BeeProjectDefinitionWriter.st
branchjv
changeset 3922 ae8879b8ba67
parent 3921 243f926d6101
child 4162 e96794cd9edd
--- a/BeeProjectDefinitionWriter.st	Mon Nov 02 20:30:10 2015 +0000
+++ b/BeeProjectDefinitionWriter.st	Tue Nov 03 07:19:15 2015 +0000
@@ -60,14 +60,34 @@
 
     classes do:[:class |  
         stream nextPutAll: 'project addClass: '; nextPutAll: class name storeString; nextPutAll: '.'; cr.
-    ]
+    ].
+    stream cr.
 
-    "Modified: / 02-11-2015 / 19:14:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-11-2015 / 07:05:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutExtensions:methods on: stream
 
-    "Modified: / 02-11-2015 / 19:15:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    stream nextPutAll: '#('; cr.
+    methods do:[:method | 
+        stream nextPut:'''';
+               nextPutAll: method mclass name;
+               nextPutAll: '>>';
+               nextPutAll: method seelctore;
+               nextPut:'''';
+               cr.
+    ].
+    stream nextPutAll: ') do: [:string | project addMethod: string].'
+
+    "Modified: / 03-11-2015 / 07:07:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+fileOutFooterOn:aStream
+    aStream cr.
+    aStream cr.
+    aStream nextPutAll: '^ project'.
+
+    "Created: / 03-11-2015 / 23:05:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutHeaderOn:aStream
@@ -92,3 +112,10 @@
     "Modified: / 02-11-2015 / 19:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!BeeProjectDefinitionWriter class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+