(in-package #:clnl-extension-cli)
-(defun prims ()
- "PRIMS => PRIMS
-
-ARGUMENTS AND VALUES:
-
- PRIMS: Primitives defined for this extension
-
-DESCRIPTION:
-
- PRIMS returns the primitives used in the CLI extension."
+(defmethod clnl-extensions:prims ((extension (eql :cli)))
(list
(list :name :q :type :command :func #'shut-down)
(list :name :load :type :command :args '(t) :func #'load-file)
- (list :name :help :type :command :args '((:token :optional)) :precedence 20 :func #'help)))
+ (list :name :help :type :command :args '((:token :optional)) :precedence 20 :func #'help)
+ (list
+ :name :button :type :command :args '(:string (:number :optional))
+ :precedence 20 :func #'clnl-model:execute-button)))
(defun shut-down ()
- (cl-charms/low-level:endwin)
(sb-ext:exit :abort t))
(defun load-file (file)
(:|:LOAD|
(concatenate 'string
":load <filename> loads up a model into the current clnl instance."
- " Try :load \"resources/models/Wolf Sheep Predation.nlogo\""))
+ " Try :load \"Wolf Sheep Predation.nlogo\""))
(t (format nil "Don't have help for ~S" token))))))