6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-08 12:31:09 +00:00
Code Issues Projects Releases Wiki Activity

Add MACROs

Browse Source
This commit is contained in:
David Schmenk 2024-07-31 14:28:39 -07:00
parent ccc13a0a6f
commit e818da7339
5 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/DRAWL.po
View File

Binary file not shown.

4
src/lisp/defun.lisp Normal file
View File

@ -0,0 +1,4 @@
(DEFINE (DEFUN (MACRO (L)
(EVAL (CONS 'DEFINE
(LIST (CONS (CAR L) (LIST (CONS 'LAMBDA (CDR L)))))))
)))

25
src/lisp/s-expr.pla
View File

@ -75,7 +75,7 @@ const HASH_MASK = HASH_SIZE-1
word hashtbl[HASH_SIZE]
var sym_nil, sym_true, sym_quote, sym_lambda, sym_funarg, sym_set
var sym_cond, sym_if, sym_label, sym_for, sym_space, sym_cr
var sym_macro, sym_cond, sym_if, sym_label, sym_for, sym_space, sym_cr
predef print_expr(expr)#0
predef eval_expr(expr)#1
@ -798,6 +798,9 @@ def apply_funargs(funarg, argvals)
return funexpr
end
def apply_macro(macro, args)
end
def eval_atom(atom)#1
//
// Atom - return the symbol value or the atom itself
@ -862,7 +865,7 @@ export def eval_expr(expr)#1
fin
fin
else
curl = NULL // Set-up for in-line LAMBDA
curl = NULL // Set-up for in-line function
fin
if func->type == CONS_TYPE
if func=>car == sym_label // LABEL
@ -877,17 +880,26 @@ export def eval_expr(expr)#1
curl = func
fin
expr = func=>cdr=>cdr=>car
if trace
puts("\nTRACE:"); print_expr(func)
puts("\n ASSOC:"); print_expr(assoc_list); putln
fin
elsif func=>car == sym_funarg // FUNARG
expr = apply_funargs(func, expr=>cdr)
break
elsif func=>car == sym_macro // MACRO
curl = new_cons // Add args to assoc_list
curl=>car = new_cons
curl=>car=>car = func=>cdr=>car=>car
curl=>car=>cdr = args
curl=>cdr = assoc_list
assoc_list = curl
curl = NULL
expr = func=>cdr=>cdr=>car
else
puts("Non-LAMBDA EVAL:"); print_expr(expr); putln
expr = NULL
fin
if trace
puts("\nTRACE:"); print_expr(func)
puts("\n ASSOC:"); print_expr(assoc_list); putln
fin
fin
else
expr = eval_atom(expr)
@ -1304,6 +1316,7 @@ sym_space = new_sym("SPACE")
sym_cr = new_sym("CR")
sym_lambda = new_sym("LAMBDA")
sym_funarg = new_sym("FUNARG")
sym_macro = new_sym("MACRO")
sym_cond = new_sym("COND")
sym_if = new_sym("IF")
sym_set = new_sym("SET")

1
src/mklisp
View File

@ -33,3 +33,4 @@ cat lisp/loop.lisp | ./ac.jar -ptx DRAWL.po lisp/LOOP.LISP TXT
cat lisp/minmax.lisp | ./ac.jar -ptx DRAWL.po lisp/MINMAX.LISP TXT
cat lisp/prog.lisp | ./ac.jar -ptx DRAWL.po lisp/PROG.LISP TXT
cat lisp/lores.lisp | ./ac.jar -ptx DRAWL.po lisp/LORES.LISP TXT
cat lisp/defun.lisp | ./ac.jar -ptx DRAWL.po lisp/DEFUN.LISP TXT

1
src/mkrel
View File

@ -189,6 +189,7 @@ cp lisp/loop.lisp prodos/bld/lisp/LOOP.LISP.TXT
cp lisp/minmax.lisp prodos/bld/lisp/MINMAX.LISP.TXT
cp lisp/prog.lisp prodos/bld/lisp/PROG.LISP.TXT
cp lisp/lores.lisp prodos/bld/lisp/LORES.LISP.TXT
cp lisp/defun.lisp prodos/bld/lisp/DEFUN.LISP.TXT
#mkdir prodos/bld/examples
#cp samplesrc/examples/ex.1.pla prodos/bld/examples/EX.1.PLA.TXT