(read-sections (append section (list line))))))))
(read-sections))))
(make-model
- :code (nth 0 sections)
+ :code (clnl-code-parser:parse
+ (clnl-lexer:lex (format nil "~{~A~^~%~}" (nth 0 sections)))
+ (remove nil
+ (mapcar
+ (lambda (widget)
+ (typecase widget
+ (slider (intern (string-upcase (slider-varname widget)) (find-package :keyword)))
+ (switch (intern (string-upcase (switch-varname widget)) (find-package :keyword)))))
+ (parse-interface (nth 1 sections)))))
:interface (parse-interface (nth 1 sections))
:info (nth 2 sections)
:turtle-shapes (nth 3 sections)
:xmax (view-max-pxcor view)
:ymin (view-min-pycor view)
:ymax (view-max-pycor view))))
+
+; For now, we keep the code hidden in this package
+(defun globals (model)
+ "GLOBALS MODEL => GLOBALS
+
+ GLOBALS: GLOBAL*
+
+ARGUMENTS AND VALUES:
+
+ MODEL: A valid model
+ GLOBAL: A symbol interned in clnl:*model-package*
+
+DESCRIPTION:
+
+ Returns the globals that get declared in the model, from widgets or
+ from code. They are interned in the package set for clnl, so
+ that they can later be used by functions in that package."
+ (mapcar
+ (lambda (pair)
+ (list
+ (intern (string-upcase (car pair)) clnl:*model-package*)
+ (cadr pair)))
+ (append
+ (clnl-code-parser:globals (model-code model))
+ (remove nil
+ (mapcar
+ (lambda (widget)
+ (typecase widget
+ (slider (list (slider-varname widget) (slider-default widget)))
+ (switch (list (switch-varname widget) (switch-on widget)))))
+ (model-interface model))))))