lib.py

@@ -65,7 +65,7 @@ def execute(program):
                 return subs
 
             elif ctx[0] == _ident("miracle"):
-                return _box(getattr(eval(_destr(subs[1])), _destr(subs[2]))(*[(i if type(i) == type([]) else i[1]) for i in _fixarr(subs[3])]))
+                return _box(eval(_destr(subs[1]))[_destr(subs[2])](*[(i if type(i) == type([]) else i[1]) for i in _fixarr(subs[3])]))
             elif ctx[0] == _ident("def"):
                 ids[ctx[1]] = subs[2]
                 return ids[ctx[1]]

lib/kokoro.klambda

@@ -1,10 +1,10 @@
 (def spit (lambda (cunny)
     (miracle
-        "__import__('builtins')" "print" (id cunny))))
+        "__builtins__" "print" (id cunny))))
 
 (def input (lambda ()
 	(miracle
-		"__import__('builtins')" "input" (""))))
+		"__builtins__" "input" (""))))
 (def thesis (lambda ()
 	(spit
 		("this language belongs to makise kurisu. there are many like it, but this one is hers."))))

lib/lists.klambda

@@ -1,6 +1,6 @@
 (def length (lambda (cunny)
 	(miracle
-		"__import__('builtins')" "len" (cunny))))
+		"__builtins__" "len" (cunny))))
 
 (def append (lambda (item, victim)
 	(insert (length victim) item victim)))

lib/string.klambda

@@ -1,3 +1,3 @@
-(def str2lst (lambda (s)
+(def str2lst (lambda (l)
     (miracle
-        "__import__('builtins')" "list" (s))))
+        "__builtins__" "list" (l))))

main.py

@@ -6,46 +6,47 @@ def isnum(n):
     except:
         return False
     return True
+reps = ["(", ")", "\"", ","]
+f = open(sys.argv[1]).read()
 
-def preprocess(filename):
-    def expand(file, path):
-        working_directory = pathlib.Path(path).parent.resolve()
-        tmp = file.replace("\\\n", "").split("\n")
-        defs = {}
-        for idx, i in enumerate(tmp):
+def expand(file, path):
+    working_directory = pathlib.Path(path).parent.resolve()
+    tmp = file.replace("\\\n", "").split("\n")
+    defs = {}
+    for idx, i in enumerate(tmp):
+        parts = i.split(":")
+        if len(i) < 1:
+            continue
+        elif i[:8] == "INCLUDE:":
+            fpath = str(working_directory)+"/"+i[8:]
+            tdefs, tmp[idx] = expand(open(fpath).read(), fpath)
+            defs.update(tdefs)
+        elif i[:7] == "DEFINE:":
+            parts = parts[1:]
+            defs[parts[0]] = (parts[2:], parts[1].replace("\t", " "))
+            tmp.pop(idx)
+        elif i[0] == ":":
+            tmp.pop(idx)
+        elif i.split(":")[0] in defs.keys():
             parts = i.split(":")
-            if len(i) < 1:
-                continue
-            elif i[:8] == "INCLUDE:":
-                fpath = str(working_directory)+"/"+i[8:]
-                tdefs, tmp[idx] = expand(open(fpath).read(), fpath)
-                defs.update(tdefs)
-            elif i[:7] == "DEFINE:":
-                parts = parts[1:]
-                defs[parts[0]] = (parts[2:], parts[1].replace("\t", " "))
-                tmp.pop(idx)
-            elif i[0] == ":":
-                tmp.pop(idx)
-            elif i.split(":")[0] in defs.keys():
-                parts = i.split(":")
-                args, exp = defs[parts[0]]
-
-                for arg_idx, arg in enumerate(parts[1:]):
-                    if len(args) < 1: break
-                    exp = exp.replace(
-                        args[arg_idx], arg
-                    )
-                #print(exp, "exp")
-                tmp[idx] = exp
-            #print(i, "\nsep")
-        return (defs, "\n".join(tmp))
-
-    f = open(filename).read()
-    f = expand(f, sys.argv[1])[1]
-
-    f = f.replace(" ", " RDANEELOLIVAW ") # spacer
-    for r in ["(", ")", "\"", ","]: f = f.replace(r, " "+r+" ")
-    return f.split()
+            args, exp = defs[parts[0]]
+
+            for arg_idx, arg in enumerate(parts[1:]):
+                if len(args) < 1: break
+                exp = exp.replace(
+                    args[arg_idx], arg
+                )
+            #print(exp, "exp")
+            tmp[idx] = exp
+        #print(i, "\nsep")
+    return (defs, "\n".join(tmp))
+
+f = expand(f, sys.argv[1])[1]
+
+
+f = f.replace(" ", " RDANEELOLIVAW ") # spacer
+for r in reps: f = f.replace(r, " "+r+" ")
+f = f.split()
 
 def tokenize(f):
     toks = []
@@ -124,7 +125,7 @@ def structurize(program):
 
 #print(tokenize(f))
 #print(lex(tokenize(f)), "\n")
-program = structurize(lex(tokenize(preprocess(sys.argv[1]))))
+program = structurize(lex(tokenize(f)))
 #lib.execute(structurize(lex(tokenize(f))))
 
 #print(program)

readme.txt

@@ -8,12 +8,11 @@ standard library.
 syntax:
 
 a program is a series of functions executed using one environment -- that is, sharing 
-some defined variables and functions.
+defined variables and functions.
 these functions are executed homoiconic objects made up of language types:
 - list, `()` and everything inside. items are delimited by whitespace.
 - string, everything between `"` double quotes
 - number, everything capable of being represented as a decimal float value
-- lambda, an anonymous expression containing the args and procedure
 - identifier, everything else
 lists starting with defined function identifiers are executed with the rest of the list
 as parameters, i.e. (spit "hello~" (+ 9000 1)). runs `spit` using "hello" and (+ 9000 1).

test.klambda

@@ -19,7 +19,7 @@ INCLUDE:./lib/aids.klambda
 	(id spit (cond (% i 15) (cond (% i 5) (cond (% i 3) i "fizz") "buzz") "fizzbuzz")))
 
 (def moeblob ("moe" "moe~" "kyun!!"))
-(each moeblob
-	(id spit item))
+(loop 0 (- (length moeblob) 1)
+	(id spit (at i moeblob)))
 
 (thesis)