comments substitution in getter generators refactored with replace method
authorJakub Nesveda <jakubnesveda@seznam.cz>
Sun, 29 Jun 2014 21:47:45 +0200
changeset 584 08600ce8fd2d
parent 583 55475dc00cfe
child 585 fdc3edf1a544
comments substitution in getter generators refactored with replace method
CustomSimpleGetterMethodsCodeGenerator.st
CustomValueHolderGetterMethodsCodeGenerator.st
--- a/CustomSimpleGetterMethodsCodeGenerator.st	Tue Jun 24 22:46:09 2014 +0200
+++ b/CustomSimpleGetterMethodsCodeGenerator.st	Sun Jun 29 21:47:45 2014 +0200
@@ -43,17 +43,17 @@
 
     methodBuilder := builder methodBuilder.
     methodBuilder
-        source: ('`@methodName
-
-        %1
+        source: '`@methodName
+        `"comment
 
-        ^ `variableName' bindWith: comment);
+        ^ `variableName';
         replace: '`@methodName' with: methodName asSymbol;
-        replace: '`variableName' with: aName asString.
+        replace: '`variableName' with: aName asString;
+        replace: '`"comment' with: comment.
 
     ^ methodBuilder buildedSource
 
     "Created: / 19-05-2014 / 20:32:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-    "Modified: / 14-06-2014 / 11:24:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 29-06-2014 / 21:36:03 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
--- a/CustomValueHolderGetterMethodsCodeGenerator.st	Tue Jun 24 22:46:09 2014 +0200
+++ b/CustomValueHolderGetterMethodsCodeGenerator.st	Sun Jun 29 21:47:45 2014 +0200
@@ -50,19 +50,20 @@
 
     methodBuilder := builder methodBuilder.
     methodBuilder
-        source: ('`@methodName
-            %1
+        source: '`@methodName
+            `"comment
 
             `variableName isNil ifTrue:[
                 `variableName := ValueHolder new.
             ].
-            ^ `variableName' bindWith: comment);
+            ^ `variableName';
         replace: '`@methodName' with: methodName asSymbol;
-        replace: '`variableName' with: aName asString.
+        replace: '`variableName' with: aName asString;
+        replace: '`"comment' with: comment.
 
     ^ methodBuilder buildedSource
 
     "Created: / 19-05-2014 / 20:52:07 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-    "Modified: / 24-06-2014 / 22:41:21 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 29-06-2014 / 21:39:48 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !