Implement int? (#45)

phunanon · Oct 21, 2024 · dbf760d · dbf760d
1 parent 155d17c
commit dbf760d
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 4 deletions.
diff --git a/README.md b/README.md
@@ -329,7 +329,7 @@ etc
 (~ 10)       → -11 ;Bitwise NOT
 (div? 10 2)  → true
 (asin 1) (acos 1) (atan 1) (sinh 1) (cosh 1) (tanh 1)
-(odd? 5) (even? 6) (pos? 5) (neg? -5) (zero? 0)
+(odd? 5) (even? 6) (pos? 5) (neg? -5) (zero? 0) (int? 5)
 (null? null) (num? 123) (bool? true) (str? "hi")
 (dict? {}) (vec? []) (key? :abc) (func? +) (wild? _)
 

diff --git a/package-lock.json b/package-lock.json
diff --git a/package.json b/package.json
@@ -1,6 +1,6 @@
 {
   "name": "insitux",
-  "version": "23.12.5",
+  "version": "24.10.21",
   "description": "Extensible scripting language written in portable TypeScript.",
   "main": "dist/invoker.js",
   "types": "dist/invoker.d.ts",

diff --git a/src/index.ts b/src/index.ts
@@ -1,4 +1,4 @@
-export const insituxVersion = 231205;
+export const insituxVersion = 241021;
 import { asBoo } from "./checks";
 import { arityCheck, keyOpErr, numOpErr, typeCheck, typeErr } from "./checks";
 import { isLetter, isDigit, isSpace, isPunc } from "./checks";
@@ -221,6 +221,8 @@ function exeOp(op: string, args: Val[], ctx: Ctx, errCtx: ErrCtx): Val {
     }
     case "div?":
       return _boo(num(args[0]) % num(args[1]) === 0);
+    case "int?":
+      return _boo(Number.isInteger(num(args[0])));
     case "average": {
       const src = vec(args[0]);
       let sum = 0;

diff --git a/src/types.ts b/src/types.ts
@@ -262,6 +262,7 @@ export const ops: {
   "pos?": { exactArity: 1, numeric: "in only", returns: ["bool"] },
   "neg?": { exactArity: 1, numeric: "in only", returns: ["bool"] },
   "zero?": { exactArity: 1, numeric: "in only", returns: ["bool"] },
+  "int?": { exactArity: 1, numeric: "in only", returns: ["bool"] },
   "null?": { exactArity: 1, returns: ["bool"] },
   "num?": { exactArity: 1, returns: ["bool"] },
   "bool?": { exactArity: 1, returns: ["bool"] },