Parse widgets v1 - view
[clnl] / src / main / main.lisp
1 (in-package #:clnl)
2
3 (defun e (ast) ast)
4
5 (defun r (str)
6  (let*
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)))
14
15 (defun p (result) result)
16
17 (defun run ()
18  "RUN => RESULT
19
20 ARGUMENTS AND VALUES:
21
22   RESULT: undefined, the system terminates at the end of the loop
23
24 DESCRIPTION:
25
26   RUN starts up the CLNL system."
27
28  (sb-thread:make-thread #'clnl-cli:run)
29  (clnl-interface:run))
30
31 (defun boot ()
32  "BOOT => RESULT
33
34 ARGUMENTS AND VALUES:
35
36   RESULT: undefined
37
38 DESCRIPTION:
39
40   BOOT does exactly that, boots the clnl system in a clean state.  The seed
41   is set so that multiple runs will evaluate to the same."
42  (clnl-random:set-seed 15)
43  (clnl-nvm:create-world))
44
45 (defun run-commands (cmds)
46  "RUN-COMMANDS CMDS => RESULT
47
48 ARGUMENTS AND VALUES:
49
50   CMDS: A string that may have one more NetLogo commands
51   RESULT: undefined
52
53 DESCRIPTION:
54
55   RUN-COMMANDS will take NetLogo commands, put them through the various
56   stages need to turn them into Common Lisp code, and run it."
57  (eval (clnl-transpiler:transpile-commands (clnl-parser:parse (clnl-lexer:lex cmds)))))
58
59 (defun run-reporter (reporter)
60  "RUN-REPORTER REPORTER => RESULT
61
62 ARGUMENTS AND VALUES:
63
64   REPORTER: A string that should have only one reporter
65   RESULT: The value reported by the NVM
66
67 DESCRIPTION:
68
69   RUN-REPORTER will take a NetLogo REPORTER, put it through the various
70   stages need to turn them into Common Lisp code, run it, and return the RESULT."
71  (eval (clnl-transpiler:transpile-reporter (car (clnl-parser:parse (clnl-lexer:lex reporter))))))