Adding platform identification

Patrik · Patrik · commit 2c846f1c4a6b · 2025-09-29T11:08:08.000+02:00
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st b/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st
@@ -0,0 +1,4 @@
+testing
+isGemStone
+
+    ^ false
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st b/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ false
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st b/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st
@@ -0,0 +1,4 @@
+testing
+isSmalltalkX
+
+    ^ false
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st b/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st
@@ -0,0 +1,4 @@
+testing
+isSqueak
+
+    ^ false
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st b/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st
@@ -0,0 +1,4 @@
+testing
+isVAST
+
+    ^ false
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st
@@ -0,0 +1,4 @@
+testing
+isGemStone
+
+    ^ true
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
@@ -0,0 +1,6 @@
+*Grease-Tests-Pharo-Core
+testIsGemStone
+	self assert: GRPlatform current isGemStone.
+	self deny: GRPlatform current isPharo.
+	self deny: GRPlatform current isSqueak.
+	self deny: GRPlatform current isVAST
diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
@@ -0,0 +1,6 @@
+*Grease-Tests-Pharo-Core
+testIsGemStone
+	self assert: GRPlatform current isGemStone.
+	self deny: GRPlatform current isPharo.
+	self deny: GRPlatform current isSqueak.
+	self deny: GRPlatform current isVAST
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st
@@ -0,0 +1,6 @@
+*Grease-Tests-Pharo-Core
+testIsPharo
+	self assert: GRPlatform current isPharo.
+	self deny: GRPlatform current isGemStone.
+	self deny: GRPlatform current isSqueak.
+	self deny: GRPlatform current isVAST

-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +testing
 +isGemStone
++
 +    ^ false