[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Help-smalltalk] [PATCH 1/2] use Character cr for Squeak export
From: |
Tim Felgentreff |
Subject: |
[Help-smalltalk] [PATCH 1/2] use Character cr for Squeak export |
Date: |
Fri, 11 Sep 2009 09:00:35 +0200 |
---
packages/stinst/parser/SqueakExporter.st | 9 +++++++--
1 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/packages/stinst/parser/SqueakExporter.st
b/packages/stinst/parser/SqueakExporter.st
index ac314f8..98a62b3 100644
--- a/packages/stinst/parser/SqueakExporter.st
+++ b/packages/stinst/parser/SqueakExporter.st
@@ -30,11 +30,15 @@
|
======================================================================"
+Stream extend [
+ nl [
+ self nextPut: Character cr
+ ]
+]
OldSyntaxExporter subclass: SqueakSyntaxExporter [
<comment: 'This class is responsible for filing out
a given class on a given stream in Squeak format'>
-
fileOutDeclaration: aBlock [
(completeFileOut and: [ outClass environment ~= self defaultNamespace
])
@@ -46,7 +50,8 @@ OldSyntaxExporter subclass: SqueakSyntaxExporter [
fileOutChunk: aString [
outStream
nl;
- nextPutAll: (aString copyReplaceAll: '!' with: '!!');
+ nextPutAll: ((aString copyReplaceAll: '!' with: '!!')
+ replaceAll: Character lf with: Character cr);
nextPut: $!
]
- [Help-smalltalk] [PATCH 1/2] use Character cr for Squeak export,
Tim Felgentreff <=