Added String isWhiteSpace, isLetter, isDigit

- used by SomSom parser Signed-off-by: Stefan Marr <[email protected]>
SOM-st · Mar 17, 2020 · ecdff3c · ecdff3c
1 parent 0967fa0
commit ecdff3c
Showing 1 changed file with 38 additions and 0 deletions.
diff --git a/src/som/primitives/StringPrimitives.java b/src/som/primitives/StringPrimitives.java
@@ -118,5 +118,43 @@ public void invoke(final Frame frame, final Interpreter interpreter) {
       }
     });
 
+    installInstancePrimitive(new SPrimitive("isWhiteSpace", universe) {
+
+      @Override
+      public void invoke(final Frame frame, final Interpreter interpreter) {
+        SString self = (SString) frame.pop();
+        if (Character.isWhitespace(self.getEmbeddedString().charAt(0))) {
+          frame.push(universe.trueObject);
+        } else {
+          frame.push(universe.falseObject);
+        }
+      }
+    });
+
+    installInstancePrimitive(new SPrimitive("isLetter", universe) {
+
+      @Override
+      public void invoke(final Frame frame, final Interpreter interpreter) {
+        SString self = (SString) frame.pop();
+        if (Character.isLetter(self.getEmbeddedString().charAt(0))) {
+          frame.push(universe.trueObject);
+        } else {
+          frame.push(universe.falseObject);
+        }
+      }
+    });
+
+    installInstancePrimitive(new SPrimitive("isDigit", universe) {
+
+      @Override
+      public void invoke(final Frame frame, final Interpreter interpreter) {
+        SString self = (SString) frame.pop();
+        if (Character.isDigit(self.getEmbeddedString().charAt(0))) {
+          frame.push(universe.trueObject);
+        } else {
+          frame.push(universe.falseObject);
+        }
+      }
+    });
   }
 }