Add #asMethodReturningString:named:

marschall · marschall · commit a0cbf948e9d3 · 2022-08-25T10:34:26.000+02:00
Fixes SeasideSt#141
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st b/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st
@@ -0,0 +1,21 @@
+file library
+asMethodReturningString: aByteArrayOrString named: aSymbol
+	"Generates the source of a method named aSymbol that returns aByteArrayOrString as a String.
+	
+	This implementation answers a String formatted like so
+	
+	aSymbol
+		^ aByteArrayOrString
+	
+	Subclasses need to override this method if the dialect needs changes to support Unicode string literals"
+	^ String streamContents: [ :stream | 
+		stream
+			nextPutAll: aSymbol;
+			nextPut: Character cr.
+		stream
+			tab;
+			nextPutAll: '^ '''.
+		aByteArrayOrString greaseString do: [ :each | 
+			each = $' ifTrue: [ stream nextPut: $' ].
+			stream nextPut: each ].
+		stream nextPut: $' ]
