#DOCUMENTATION by exept
authorClaus Gittinger <cg@exept.de>
Tue, 25 Feb 2020 03:22:56 +0100
changeset 4641 4c0847b6289f
parent 4640 a1bb370605bc
child 4642 9aa51ff4afa1
#DOCUMENTATION by exept class: Parser changed: #stringWithEmbeddedExpressions
Parser.st
--- a/Parser.st	Tue Feb 25 02:40:09 2020 +0100
+++ b/Parser.st	Tue Feb 25 03:22:56 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -9219,9 +9221,10 @@
 !
 
 stringWithEmbeddedExpressions
-    |expressions collectedString pos1 pos2 receiver node|
+    |expressions collectedString pos1 pos2 receiver node lNr|
 
     pos1 := tokenPosition.
+    lNr := tokenLineNr.
     expressions := OrderedCollection new.
     collectedString := ''.
     [tokenType == #StringFragment] whileTrue:[ 
@@ -9235,7 +9238,7 @@
             self parseError:'"}" expected after embedded expression'.
         ]. 
         expressions add:expr.
-        collectedString := collectedString,'%',expressions size asString.
+        collectedString := collectedString,'%(',expressions size asString,')'.
         self continueEscapedString.
     ].
     pos2 := tokenPosition.
@@ -9257,6 +9260,7 @@
                 selector:#bindWithArguments:
                 arg:(self genMakeArrayWith:expressions).
     node startPosition:pos1 endPosition:pos2.
+    node lineNumber:lNr.
     ^ node
 
     "Created: / 22-05-2019 / 20:58:24 / Claus Gittinger"