Add implementation of #greaseAsByteArray for Squeak 5

theseion · theseion · commit c7c9826066f1 · 2023-10-29T15:16:25.000+01:00
diff --git a/repository/Grease-Squeak5-Core.package/.filetree b/repository/Grease-Squeak5-Core.package/.filetree
@@ -1,4 +1,5 @@
 {
-	"noMethodMetaData" : true,
 	"separateMethodMetaAndSource" : false,
-	"useCypressPropertiesFile" : true }
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}
diff --git a/repository/Grease-Squeak5-Core.package/Behavior.extension/properties.json b/repository/Grease-Squeak5-Core.package/Behavior.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Behavior" }
+	"name" : "Behavior"
+}
diff --git a/repository/Grease-Squeak5-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Squeak5-Core.package/BlockClosure.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "BlockClosure" }
+	"name" : "BlockClosure"
+}
diff --git a/repository/Grease-Squeak5-Core.package/BlockContext.extension/properties.json b/repository/Grease-Squeak5-Core.package/BlockContext.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "BlockContext" }
+	"name" : "BlockContext"
+}
diff --git a/repository/Grease-Squeak5-Core.package/ByteArray.extension/properties.json b/repository/Grease-Squeak5-Core.package/ByteArray.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "ByteArray" }
+	"name" : "ByteArray"
+}
diff --git a/repository/Grease-Squeak5-Core.package/Character.extension/properties.json b/repository/Grease-Squeak5-Core.package/Character.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Character" }
+	"name" : "Character"
+}
diff --git a/repository/Grease-Squeak5-Core.package/Collection.extension/properties.json b/repository/Grease-Squeak5-Core.package/Collection.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Collection" }
+	"name" : "Collection"
+}
diff --git a/repository/Grease-Squeak5-Core.package/Duration.extension/properties.json b/repository/Grease-Squeak5-Core.package/Duration.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Duration" }
+	"name" : "Duration"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/GRDelegatingStream.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "GRDelegatingStream" }
+	"name" : "GRDelegatingStream"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Squeak5-Core.package/GRDynamicVariable.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "",
-	"instvars" : [
-		 ],
-	"name" : "GRDynamicVariable",
-	"pools" : [
-		 ],
 	"super" : "DynamicVariable",
-	"type" : "normal" }
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRDynamicVariable",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPackage.extension/properties.json b/repository/Grease-Squeak5-Core.package/GRPackage.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "GRPackage" }
+	"name" : "GRPackage"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoConverterCodecStream.class/properties.json
@@ -1,14 +1,13 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "pmm 9/14/2013 15:53",
+	"super" : "GRCodecStream",
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
 	"instvars" : [
-		"converter" ],
+		"converter"
+	],
 	"name" : "GRPharoConverterCodecStream",
-	"pools" : [
-		 ],
-	"super" : "GRCodecStream",
-	"type" : "normal" }
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoGenericCodec.class/properties.json
@@ -1,15 +1,14 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "",
+	"super" : "GRCodec",
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
 	"instvars" : [
 		"name",
-		"urlCodec" ],
+		"urlCodec"
+	],
 	"name" : "GRPharoGenericCodec",
-	"pools" : [
-		 ],
-	"super" : "GRCodec",
-	"type" : "normal" }
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoLatin1Codec.class/properties.json
@@ -1,14 +1,13 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "<historical>",
+	"super" : "GRNullCodec",
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
 	"instvars" : [
-		"name" ],
+		"name"
+	],
 	"name" : "GRPharoLatin1Codec",
-	"pools" : [
-		 ],
-	"super" : "GRNullCodec",
-	"type" : "normal" }
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoLatin1CodecStream.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "<historical>",
-	"instvars" : [
-		 ],
-	"name" : "GRPharoLatin1CodecStream",
-	"pools" : [
-		 ],
 	"super" : "GRNullCodecStream",
-	"type" : "normal" }
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRPharoLatin1CodecStream",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/properties.json
@@ -1,15 +1,14 @@
 {
+	"commentStamp" : "pmm 2/1/2014 13:28",
+	"super" : "GRPlatform",
 	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
+	"classinstvars" : [ ],
+	"pools" : [ ],
 	"classvars" : [
 		"UrlTable",
-		"XmlTable" ],
-	"commentStamp" : "pmm 2/1/2014 13:28",
-	"instvars" : [
-		 ],
+		"XmlTable"
+	],
+	"instvars" : [ ],
 	"name" : "GRPharoPlatform",
-	"pools" : [
-		 ],
-	"super" : "GRPlatform",
-	"type" : "normal" }
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoRandomProvider.class/properties.json
@@ -1,15 +1,14 @@
 {
+	"commentStamp" : "",
+	"super" : "GRObject",
 	"category" : "Grease-Squeak5-Core",
 	"classinstvars" : [
 		"mutex",
-		"generator" ],
-	"classvars" : [
-		 ],
-	"commentStamp" : "",
-	"instvars" : [
-		 ],
+		"generator"
+	],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
 	"name" : "GRPharoRandomProvider",
-	"pools" : [
-		 ],
-	"super" : "GRObject",
-	"type" : "normal" }
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8Codec.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "pmm 2/20/2009 12:51",
-	"instvars" : [
-		 ],
-	"name" : "GRPharoUtf8Codec",
-	"pools" : [
-		 ],
 	"super" : "GRCodec",
-	"type" : "normal" }
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRPharoUtf8Codec",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRPharoUtf8CodecStream.class/properties.json
@@ -1,15 +1,14 @@
 {
+	"commentStamp" : "pmm 2/20/2009 12:27",
+	"super" : "GRPharoConverterCodecStream",
 	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
+	"classinstvars" : [ ],
+	"pools" : [ ],
 	"classvars" : [
 		"Latin1ToUtf8Encodings",
-		"Latin1ToUtf8Map" ],
-	"commentStamp" : "pmm 2/20/2009 12:27",
-	"instvars" : [
-		 ],
+		"Latin1ToUtf8Map"
+	],
+	"instvars" : [ ],
 	"name" : "GRPharoUtf8CodecStream",
-	"pools" : [
-		 ],
-	"super" : "GRPharoConverterCodecStream",
-	"type" : "normal" }
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Squeak5-Core.package/GRSmallDictionary.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "GRSmallDictionary" }
+	"name" : "GRSmallDictionary"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st
@@ -0,0 +1,7 @@
+encoding
+integerAsByteArray: anInteger
+	| stream |
+	stream := ByteArray new writeStream.
+	anInteger greaseBytesCount to: 1 by: -1 do: [:digitIndex |
+		stream nextPut: (anInteger greaseByteAt: digitIndex)].
+	^ stream contents
diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "",
-	"instvars" : [
-		 ],
-	"name" : "GRSqueakPlatform",
-	"pools" : [
-		 ],
 	"super" : "GRPharoPlatform",
-	"type" : "normal" }
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRSqueakPlatform",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/properties.json b/repository/Grease-Squeak5-Core.package/GRWorkingWriteStream.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "Grease-Squeak5-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "pmm 8/25/2011 18:30",
-	"instvars" : [
-		 ],
-	"name" : "GRWorkingWriteStream",
-	"pools" : [
-		 ],
 	"super" : "WriteStream",
-	"type" : "normal" }
+	"category" : "Grease-Squeak5-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRWorkingWriteStream",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak5-Core.package/Interval.extension/properties.json b/repository/Grease-Squeak5-Core.package/Interval.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Interval" }
+	"name" : "Interval"
+}
diff --git a/repository/Grease-Squeak5-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak5-Core.package/LargeInteger.extension/instance/greaseByteAt..st
@@ -0,0 +1,8 @@
+*Grease-Squeak5-Core
+greaseByteAt: index 
+	"Primitive. Answer the value of an indexable field in the receiver.   LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256.  Fail if the argument (the index) is not an Integer or is out of bounds. Essential.  See Object documentation whatIsAPrimitive."
+
+	<primitive: 60>
+	self greaseBytesCount < index
+		ifTrue: [^0]
+		ifFalse: [^super at: index]
diff --git a/repository/Grease-Squeak5-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak5-Core.package/LargeInteger.extension/instance/greaseBytesCount.st
@@ -0,0 +1,8 @@
+*Grease-Squeak5-Core
+greaseBytesCount
+	"Primitive. Answer the number of indexable fields in the receiver. This 
+	value is the same as the largest legal subscript. Essential. See Object 
+	documentation whatIsAPrimitive."
+
+	<primitive: 62>
+	self primitiveFailed
diff --git a/repository/Grease-Squeak5-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Squeak5-Core.package/LargeInteger.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "LargeInteger"
+}
diff --git a/repository/Grease-Squeak5-Core.package/MessageSend.extension/properties.json b/repository/Grease-Squeak5-Core.package/MessageSend.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "MessageSend" }
+	"name" : "MessageSend"
+}
diff --git a/repository/Grease-Squeak5-Core.package/Number.extension/properties.json b/repository/Grease-Squeak5-Core.package/Number.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Number" }
+	"name" : "Number"
+}
diff --git a/repository/Grease-Squeak5-Core.package/Object.extension/properties.json b/repository/Grease-Squeak5-Core.package/Object.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/Point.extension/properties.json b/repository/Grease-Squeak5-Core.package/Point.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/PositionableStream.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Squeak5-Core.package/ScaledDecimal.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Squeak5-Core.package/SequenceableCollection.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/greaseByteAt..st
diff --git a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak5-Core.package/SmallInteger.extension/instance/greaseBytesCount.st
diff --git a/repository/Grease-Squeak5-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Squeak5-Core.package/SmallInteger.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/SocketStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/SocketStream.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/String.extension/properties.json b/repository/Grease-Squeak5-Core.package/String.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/Symbol.extension/properties.json b/repository/Grease-Squeak5-Core.package/Symbol.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/WriteStream.extension/properties.json b/repository/Grease-Squeak5-Core.package/WriteStream.extension/properties.json
diff --git a/repository/Grease-Squeak5-Core.package/properties.json b/repository/Grease-Squeak5-Core.package/properties.json

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,5 @@`
`1`	`1`	`{`
`2`		`- "noMethodMetaData" : true,`
`3`	`2`	`"separateMethodMetaAndSource" : false,`
`4`		`- "useCypressPropertiesFile" : true }`
	`3`	`+ "noMethodMetaData" : true,`
	`4`	`+ "useCypressPropertiesFile" : true`
	`5`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "Behavior" }`
	`2`	`+ "name" : "Behavior"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "BlockClosure" }`
	`2`	`+ "name" : "BlockClosure"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "BlockContext" }`
	`2`	`+ "name" : "BlockContext"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "ByteArray" }`
	`2`	`+ "name" : "ByteArray"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "Character" }`
	`2`	`+ "name" : "Character"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "Collection" }`
	`2`	`+ "name" : "Collection"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "Duration" }`
	`2`	`+ "name" : "Duration"`
	`3`	`+}`
Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`{`
`2`		`- "name" : "GRDelegatingStream" }`
	`2`	`+ "name" : "GRDelegatingStream"`
	`3`	`+}`