Prims - Implement random, random-xcor, random-ycor, setxy
[clnl] / src / main / package.lisp
1 (defpackage #:clnl (:use :common-lisp)
2  (:export #:run #:boot #:run-commands #:run-reporter #:*model-package*)
3  (:documentation
4   "Main CLNL package
5
6 The entry point for general purpose clnl startup, as well as
7 the place that ties all the parts together into a cohesive whole."))
8
9 (defpackage #:clnl-parser
10  (:use :common-lisp)
11  (:export #:parse)
12  (:documentation
13   "CLNL Parser
14
15 All the code to convert the list of tokens coming from the lexer
16 into an ast that can be transpiled later."))
17
18 (defpackage #:clnl-code-parser
19  (:use :common-lisp)
20  (:export #:parse #:globals)
21  (:documentation
22   "CLNL Code Parser
23
24 A parser specifically for code from NetLogo models, that turns the lexed
25 ast from an entire structured file into something more defined.
26
27 This is different from the general parser (in clnl-parser) in that
28 it's made for parsing the code section of nlogo files, and so works
29 outside of the constraints.  In NetLogo, I believe this is analagous
30 to the StructureParser, but I'm guessing there's weird overlap with
31 other things."))
32
33 (defpackage #:clnl-random
34  (:use :common-lisp)
35  (:shadow #:export)
36  (:export #:export #:set-seed #:next-int #:next-double #:next-long)
37  (:documentation
38   "Wrapper around mt19937.
39
40 mt19937 implements a merseinne twister that must be adapted a little in
41 order to match the implementation in the main NetLogo codebase which tries
42 to match how java.util.Random works.  Turtles, all the way down."))
43
44 (defpackage #:clnl-transpiler
45  (:use :common-lisp)
46  (:export #:transpile-commands #:transpile-reporter)
47  (:documentation
48   "CLNL Transpiler
49
50 The transpiler is responsible for taking an ast and turning it into valid CL code
51 targeting the nvm.  Here is where start to care about commands versus reporters
52 and ensuring that things are in the right place.  The reason we wait until here
53 is because we want to allow someone else to play with the AST before handing it off
54 to us.  For instance, the command center wants to add \"show\" to reporters, and
55 the users dictate based on entry point whether they are expecting a command
56 or a reporter.  So monitors can say \"hey, transpile this reporter\" and we'll check
57 to make sure it actually is.
58
59 Furthermore, the lisp code that any netlogo code would be transpiled to should
60 use exported symbols, such that anyone writing NetLogo code in lisp could use
61 the nvm in the same way that comes out of this transpiler
62 All the code to convert the list of tokens coming from the lexer
63 into an ast that can be transpiled later."))
64
65 (defpackage #:clnl-nvm
66  (:use :common-lisp)
67  (:shadow #:random)
68  (:export #:export-world #:create-world #:current-state
69   ; API as used by transpiled NetLogo programs
70   #:agent-value
71   #:ask
72   #:create-turtles
73   #:die
74   #:of
75   #:forward
76   #:lookup-color
77   #:one-of
78   #:patches
79   #:reset-ticks
80   #:random
81   #:random-float
82   #:random-xcor
83   #:random-ycor
84   #:setxy
85   #:show
86   #:turtles
87   #:tick
88   #:ticks
89   #:turn-right #:turn-left)
90  (:documentation
91   "CLNL NVM
92
93 NetLogo Virtual Machine: the simulation engine."))
94
95 (defpackage #:clnl-lexer
96  (:use :common-lisp)
97  (:export #:lex)
98  (:documentation
99   "CLNL Lexer
100
101 The primary code responsible for tokenizing NetLogo code."))
102
103 (defpackage #:clnl-interface
104  (:use :common-lisp)
105  (:export #:run #:export-view #:initialize)
106  (:documentation
107   "CLNL Interface
108
109 The NetLogo view interface using opengl.  This is responsible for taking the
110 current state of the enging and displaying it.  Will not house any interface
111 components."))
112
113 (defpackage #:clnl-cli
114  (:use :common-lisp :cl-charms/low-level)
115  (:export #:run)
116  (:documentation
117   "CLNL CLI
118
119 The main NetLogo interface for interacting with the program.  Since CLNL is
120 a command line interface program with a view for display purposes only, this
121 is where all the features that the traditional NetLogo UI lives."))
122
123 (defpackage #:clnl-model
124  (:use :common-lisp)
125  (:export #:default-model #:read-from-nlogo #:world-dimensions #:globals)
126  (:documentation
127   "CLNL Model
128
129 The representation, parsing, and serializing of NetLogo model files, including
130 all of the sections, and subsections held within.  This package houses not only
131 the code to read and write .nlogo files, but also the living state of the model
132 as clnl runs."))