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 starts up the CLNL system."
29 (sb-thread:make-thread #'clnl-cli:run)
32 (defun boot (&optional file)
33 "BOOT &optional FILE => RESULT
37 FILE: nlogo file with which to initialize state
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.
45 When FILE is not provided, a default model is used."
46 (eval (model->lisp (if file (with-open-file (str file) (clnl-model:read-from-nlogo str)) (clnl-model:default-model)))))
48 (defun run-commands (cmds)
49 "RUN-COMMANDS CMDS => RESULT
53 CMDS: A string that may have one more NetLogo commands
58 RUN-COMMANDS will take NetLogo commands, put them through the various
59 stages need to turn them into Common Lisp code, and run it."
60 (eval (clnl-transpiler:transpile-commands (clnl-parser:parse (clnl-lexer:lex cmds)))))
62 (defun run-reporter (reporter)
63 "RUN-REPORTER REPORTER => RESULT
67 REPORTER: A string that should have only one reporter
68 RESULT: The value reported by the NVM
72 RUN-REPORTER will take a NetLogo REPORTER, put it through the various
73 stages need to turn them into Common Lisp code, run it, and return the RESULT."
74 (eval (clnl-transpiler:transpile-reporter (car (clnl-parser:parse (clnl-lexer:lex reporter))))))
76 ; Everything gets tied together here
77 ; The intention of this method is to generate the common lisp equivalent of a model file,
78 ; such that if you decided to no longer use nlogo, you could use the engine without it.
79 (defun model->lisp (model)
81 (clnl-random:set-seed 15) ; should the seed always be 15?
82 (clnl-nvm:create-world ,model)
83 (clnl-interface:initialize ,model)))