7 ((lexed-ast (let ((ast (clnl-lexer:lex str)))
8 (format t "Via lexing, AST for~%~S~% became~%~S~%~%" str ast) ast))
9 (parsed-ast (let ((ast (clnl-parser:parse lexed-ast)))
10 (format t "Via parsing, AST for~%~S~% became~%~S~%~%" lexed-ast ast) ast))
11 (transpiled-ast (let ((ast (clnl-transpiler:transpile-commands parsed-ast)))
12 (format t "Via transpiling, AST for~%~S~% became~%~S~%" parsed-ast ast) ast)))
13 (eval transpiled-ast)))
15 (defun p (result) result)
22 RESULT: undefined, the system terminates at the end of the loop
26 RUN implements a very simple REPL."
28 :for str := (progn (format t "> ") (force-output) (read-line))
42 BOOT does exactly that, boots the clnl system in a clean state. The seed
43 is set so that multiple runs will evaluate to the same."
44 (clnl-random:set-seed 15)
45 (clnl-nvm:create-world))
47 (defun run-commands (cmds)
48 "RUN-COMMANDS CMDS => RESULT
52 CMDS: A string that may have one more NetLogo commands
57 RUN-COMMANDS will take NetLogo commands, put them through the various
58 stages need to turn them into Common Lisp code, and run it."
59 (eval (clnl-transpiler:transpile-commands (clnl-parser:parse (clnl-lexer:lex cmds)))))
61 (defun run-reporter (reporter)
62 "RUN-REPORTER REPORTER => RESULT
66 REPORTER: A string that should have only one reporter
67 RESULT: The value reported by the NVM
71 RUN-REPORTER will take a NetLogo REPORTER, put it through the various
72 stages need to turn them into Common Lisp code, run it, and return the RESULT."
73 (eval (clnl-transpiler:transpile-reporter (car (clnl-parser:parse (clnl-lexer:lex reporter))))))