Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
oops - must write source as chunk (for exclas)
authorClaus Gittinger <cg@exept.de>
Thu, 11 Jul 1996 13:37:23 +0200
changeset 296 999d5fdf0bde
parent 295 ec9ca802683e
child 297 7affb1798230
oops - must write source as chunk (for exclas)
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Tue Jul 09 15:03:53 1996 +0200
+++ b/BCompiler.st	Thu Jul 11 13:37:23 1996 +0200
@@ -1961,11 +1961,11 @@
         stream nextPutAll:' class'.
     ].
     stream nextPutAll:' methodsFor:'''; nextPutAll:cat; nextPutAll:''''.
-    stream nextPut:sep.
-    stream cr.
+    stream nextPut:sep; cr.
 
-    stream nextPutAll:'"{ Line: 0 }"'; cr; nextPutAll:aString.
-    stream nextPut:sep; space; nextPut:sep.
+    stream nextPutAll:'"{ Line: 0 }"'; cr; 
+           nextChunkPut:aString;
+           space; nextPut:sep.
 
     stream close.
 
@@ -1991,8 +1991,8 @@
 
     self activityNotification:'compiling'.
     ok := OperatingSystem executeCommand:command onError:[:stat| 
-	status := stat.
-	false
+        status := stat.
+        false
     ].
 
     "for debugging - leave c intermediate"
@@ -2182,7 +2182,7 @@
 
     "Modified: 14.9.1995 / 22:33:04 / claus"
     "Modified: 28.12.1995 / 15:52:48 / stefan"
-    "Modified: 26.3.1996 / 17:21:46 / cg"
+    "Modified: 11.7.1996 / 13:36:22 / cg"
 !
 
 createLoadableObjectFor:baseFileName
@@ -2256,6 +2256,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.82 1996-07-09 13:03:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.83 1996-07-11 11:37:23 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st	Tue Jul 09 15:03:53 1996 +0200
+++ b/ByteCodeCompiler.st	Thu Jul 11 13:37:23 1996 +0200
@@ -1961,11 +1961,11 @@
         stream nextPutAll:' class'.
     ].
     stream nextPutAll:' methodsFor:'''; nextPutAll:cat; nextPutAll:''''.
-    stream nextPut:sep.
-    stream cr.
+    stream nextPut:sep; cr.
 
-    stream nextPutAll:'"{ Line: 0 }"'; cr; nextPutAll:aString.
-    stream nextPut:sep; space; nextPut:sep.
+    stream nextPutAll:'"{ Line: 0 }"'; cr; 
+           nextChunkPut:aString;
+           space; nextPut:sep.
 
     stream close.
 
@@ -1991,8 +1991,8 @@
 
     self activityNotification:'compiling'.
     ok := OperatingSystem executeCommand:command onError:[:stat| 
-	status := stat.
-	false
+        status := stat.
+        false
     ].
 
     "for debugging - leave c intermediate"
@@ -2182,7 +2182,7 @@
 
     "Modified: 14.9.1995 / 22:33:04 / claus"
     "Modified: 28.12.1995 / 15:52:48 / stefan"
-    "Modified: 26.3.1996 / 17:21:46 / cg"
+    "Modified: 11.7.1996 / 13:36:22 / cg"
 !
 
 createLoadableObjectFor:baseFileName
@@ -2256,6 +2256,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.82 1996-07-09 13:03:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.83 1996-07-11 11:37:23 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp