1 (in-package #:clnl-extension-cli)
8 PRIMS: Primitives defined for this extension
12 PRIMS returns the primitives used in the CLI extension."
14 (list :name :q :type :command :func #'shut-down)
15 (list :name :load :type :command :args '(t) :func #'load-file)
16 (list :name :help :type :command :args '((:token :optional)) :precedence 20 :func #'help)))
19 (cl-charms/low-level:endwin)
20 (sb-ext:exit :abort t))
22 (defun load-file (file)
25 (defun help (&optional token)
28 "Placeholder help facility, try <:help :q> or <:help :load> for information about the commands we accept"
30 (:|:Q| ":q quits out of clnl")
33 ":load <filename> loads up a model into the current clnl instance."
34 " Try :load \"resources/models/Wolf Sheep Predation.nlogo\""))
35 (t (format nil "Don't have help for ~S" token))))))