From 785b43a7b6635e6fadb94e224a094e524c9e0ccd Mon Sep 17 00:00:00 2001
From: mryouse
Date: Thu, 25 May 2023 22:52:07 +0000
Subject: length on seq

---
 compiler.d | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'compiler.d')

diff --git a/compiler.d b/compiler.d
index 92711f1..66ee664 100644
--- a/compiler.d
+++ b/compiler.d
@@ -521,6 +521,18 @@ class Compiler {
         this.func.chunk.writeOp(to!ubyte(length), args[0].line);
     }
 
+    void compileLength(Form[] args) {
+        // TODO how do we identify/propagate errors?
+        if (args.length != 1) {
+            writeln("COMPILE ERROR: 'first' expects exactly one argument");
+            return;
+        }
+        ValueType vt = this.resolve(args[0], ValueType.SEQ); // TODO need a new type
+        this.func.chunk.writeOp(OpCode.OP_TYPE_CHECK_SEQ, args[0].line);
+
+        this.func.chunk.writeOp(OpCode.OP_LENGTH, args[0].line);
+    }
+
     void compileFirst(Form[] args) {
         // TODO how do we identify/propagate errors?
         if (args.length != 1) {
@@ -676,6 +688,9 @@ class Compiler {
             case "first":
                 this.compileFirst(cons.tail);
                 break;
+            case "length":
+                this.compileLength(cons.tail);
+                break;
             case "list":
                 //return compileList(cons.tail);
                 this.compileList(cons.tail);
-- 
cgit v1.2.3