Add #greaseAsByteArray and implementation for Squeak

theseion · theseion · commit 88459fabb0f0 · 2023-10-29T14:22:44.000+01:00
diff --git a/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st b/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st
@@ -0,0 +1,3 @@
+*Grease-Core
+greaseAsByteArray
+	^ self asByteArray
diff --git a/repository/Grease-Core.package/Collection.extension/properties.json b/repository/Grease-Core.package/Collection.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "Collection"
+}
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st
@@ -0,0 +1,3 @@
+encoding
+integerAsByteArray: anInteger
+	^ anInteger asByteArray
diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st b/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st
@@ -0,0 +1,3 @@
+*Grease-Core
+greaseAsByteArray
+	^ GRPlatform current integerAsByteArray: self
diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st b/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st
@@ -0,0 +1,3 @@
+*Grease-Core
+greaseByteAt: index
+	^ self subclassResponsibility
diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st b/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st
@@ -0,0 +1,3 @@
+*Grease-Core
+greaseBytesCount
+	^ self subclassResponsibility
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Squeak-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-Squeak-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak-Core.package/LargeInteger.extension/instance/greaseByteAt..st
@@ -0,0 +1,8 @@
+*Grease-Squeak-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 bytesCount < index
+		ifTrue: [^0]
+		ifFalse: [^super at: index]
diff --git a/repository/Grease-Squeak-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak-Core.package/LargeInteger.extension/instance/greaseBytesCount.st
@@ -0,0 +1,8 @@
+*Grease-Squeak-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-Squeak-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Squeak-Core.package/LargeInteger.extension/properties.json
@@ -0,0 +1,3 @@
+{
+	"name" : "LargeInteger"
+}
diff --git a/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/README.md b/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/README.md
@@ -0,0 +1 @@
+Please describe the package using the class comment of the included manifest class. The manifest class also includes other additional metadata for the package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser
diff --git a/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/class/ruleLiteralArrayContainsSuspiciousTrueFalseOrNilRuleV1FalsePositive.st b/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/class/ruleLiteralArrayContainsSuspiciousTrueFalseOrNilRuleV1FalsePositive.st
@@ -0,0 +1,3 @@
+code-critics
+ruleLiteralArrayContainsSuspiciousTrueFalseOrNilRuleV1FalsePositive
+	^ #(#(#(#RGMetaclassDefinition #(#'ManifestGreaseSqueakCore class' #ManifestGreaseSqueakCore)) #'2023-10-29T14:22:04.342701+01:00') )
diff --git a/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/class/ruleSendsDifferentSuperRuleV1FalsePositive.st b/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/class/ruleSendsDifferentSuperRuleV1FalsePositive.st
@@ -0,0 +1,3 @@
+code-critics
+ruleSendsDifferentSuperRuleV1FalsePositive
+	^ #(#(#(#RGMethodDefinition #(#LargeInteger #greaseByteAt: #false)) #'2023-10-29T14:21:20.47823+01:00') )
diff --git a/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/class/ruleSuperSendsRuleV1FalsePositive.st b/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/class/ruleSuperSendsRuleV1FalsePositive.st
@@ -0,0 +1,3 @@
+code-critics
+ruleSuperSendsRuleV1FalsePositive
+	^ #(#(#(#RGMethodDefinition #(#LargeInteger #greaseByteAt: #false)) #'2023-10-29T14:20:58.840268+01:00') )
diff --git a/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/properties.json b/repository/Grease-Squeak-Core.package/ManifestGreaseSqueakCore.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "<historical>",
+	"super" : "PackageManifest",
+	"category" : "Grease-Squeak-Core-Manifest",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "ManifestGreaseSqueakCore",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/greaseByteAt..st
@@ -0,0 +1,14 @@
+*Grease-Squeak-Core
+greaseByteAt: n
+	"Answer the value of an apparent byte-indexable field in the receiver,
+	 analogous to the large integers, which are organized as bytes."
+
+	n = 1
+		ifTrue: [ 
+			"Negate carefully in case the receiver is SmallInteger minVal"
+			^ self < 0
+				ifTrue: [ -256 - self bitAnd: 255 ]
+				ifFalse: [ self bitAnd: 255 ] ].
+	^ self < 0
+		ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ]
+		ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ]
diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak-Core.package/SmallInteger.extension/instance/greaseBytesCount.st
@@ -0,0 +1,25 @@
+*Grease-Squeak-Core
+greaseBytesCount
+	"Answer the number of indexable fields in the receiver. This value is the 
+	 same as the largest legal subscript. Included so that a SmallInteger can 
+	 behave like a LargePositiveInteger or LargeNegativeInteger."
+	
+	"32768 == (1 bitShift: 15)"
+	"32768 bytesCount >>> 2"
+	
+	"65536 == (1 bitShift: 16)"
+	"65536 bytesCount >>> 3"
+	
+	| value length |
+	length := 1.
+	value := self.
+	value >= 0
+		ifTrue:
+			[[value > 255] whileTrue:
+				[value := value bitShift: -8.
+				 length := length + 1]]
+		ifFalse:
+			[[value < -255] whileTrue:
+				[value := value bitShift: -8.
+				 length := length + 1]].
+	^length
diff --git a/repository/Grease-Squeak-Core.package/monticello.meta/categories.st b/repository/Grease-Squeak-Core.package/monticello.meta/categories.st
@@ -1 +1,2 @@
 SystemOrganization addCategory: #'Grease-Squeak-Core'!
+SystemOrganization addCategory: #'Grease-Squeak-Core-Manifest'!
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st
@@ -1,4 +1,4 @@
-tests
+tests-encoding
 testBase64Decode
 	| input |
 	input := #(
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st
@@ -1,4 +1,4 @@
-tests
+tests-encoding
 testBase64Encode
 	| input |
 	input := #(
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st
@@ -0,0 +1,5 @@
+tests-encoding
+testGreaseAsByteArray
+	self assert: 1024 greaseAsByteArray equals: #[4 0].
+	self assert: #[1 2 3] greaseAsByteArray equals: #[1 2 3].
+	self assert: '123' greaseAsByteArray equals: #[49 50 51]
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st
@@ -0,0 +1,4 @@
+tests-encoding
+testGreaseByteAt
+	self assert: (1024 greaseByteAt: 1) equals: 0.
+	self assert: (1024 greaseByteAt: 2) equals: 4
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st
@@ -0,0 +1,3 @@
+tests-encoding
+testGreaseBytesCount
+	self assert: 1024 greaseBytesCount equals: 2

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+*Grease-Core`
	`2`	`+greaseAsByteArray`
	`3`	`+ ^ self asByteArray`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+encoding`
	`2`	`+integerAsByteArray: anInteger`
	`3`	`+ ^ anInteger asByteArray`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+*Grease-Core`
	`2`	`+greaseByteAt: index`
	`3`	`+ ^ self subclassResponsibility`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+*Grease-Core`
	`2`	`+greaseBytesCount`
	`3`	`+ ^ self subclassResponsibility`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+{`
	`2`	`+ "name" : "LargeInteger"`
	`3`	`+}`