improve repl

spl/repl.spl

@@ -1,4 +1,6 @@
 
+func !!-cat { | }
+
 func main { mega | with args ;
     "Welcome to the SPL REPL!" println
     "Enter any code after the cursor to execute it.\n" println
@@ -6,7 +8,22 @@ func main { mega | with args ;
     "REPL" =program-name
     while { 1 } {
         catch {
-            "  > " print readln dyn-read exec2 "\n" print
+            def line "" =line
+            while { line is-complete not } {
+                def s
+                line "  > " print readln =s
+                s "!!-cat" eq   dup if { line println }
+                                not if { s "\n" concat concat =line }
+            }
+            "!!-end" line:contains if {
+                2 stop
+            }
+            "!!-cat" line:contains if {
+                "" println
+                line print
+                "." println
+            }
+            line dyn-read exec2 "\n" print
         } 
         { with err ;
             err:message dup null eq if {
@@ -27,3 +44,25 @@ func main { mega | with args ;
         }
     }
 }
+
+func is-complete { bool | with line ;
+    "!!-end" line:contains
+    0 line _array :foreach<{ | with char ; 
+        char "{" :_char eq 
+        char "(" :_char eq or 
+        char "<" :_char eq or 
+        char "[" :_char eq or 
+        if {
+            ++
+        }
+        char "}" :_char eq 
+        char ")" :_char eq or 
+        char ">" :_char eq or 
+        char "]" :_char eq or 
+        if {
+            --
+        }
+    }> not
+    or
+    "" line eq not and
+}

spl/std.spl

@@ -44,6 +44,9 @@ construct _str_ext {
     find { idx | with search this ;
         search _array this _array :find
     }
+    contains { bool | with search this ;
+        search this:find null eq not
+    }
     starts-with { bool | with beginning this ;
         beginning:to-bytes this:to-bytes:starts-with
     }