Merge pull request SeasideSt#190 from tukanos/platformIdentification

jbrichau · web-flow · commit c204e9daa69b · 2025-11-29T10:20:26.000+01:00
Identifying on which platform is Grease running
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,7 @@
+*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.
+	self deny: GRPlatform current isSmalltalkX
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,7 @@
+*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.
+	self deny: GRPlatform current isSmalltalkX
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,7 @@
+*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.
+	self deny: GRPlatform current isSmalltalkX

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