reactor based simple lisp program needed

[rajat_bapi_mallick]

Hi !

Can I have some simple lisp program (reactor based) for my better understanding ??


Thanks in advance

- Rajat

['gile']

Hi,

Here's a little example, and you can see this thread (http://www.theswamp.org/index.php?topic=19315.0)

;; Creates a reactor and put it active
(defun c:my-reactor-on ()
(or *my_reactor*
(setq *my_reactor*
(vlr-command-reactor
nil
'((:vlr-commandWillStart . StartCallback)
(:vlr-commandEnded . EndCallback)
)
)
)
)
(princ "\nMy reactor in on.")
(princ)
)

;; Remove the reactor
(defun c:my-reactor-off ()
(and *my_reactor*
(vlr-remove *my_reactor*)
(setq *my_reactor* nil)
)
(princ "\nMy reactor in off.")
(princ)
)

;; Callback functions
(defun StartCallback (rea cde)
(alert (strcat "Command \"" (car cde) "\" will start."))
)

(defun EndCallback (rea cde)
(alert (strcat "Command \"" (car cde) "\" ended."))
)

[kennet.sjoberg]

. .Can I have some simple lisp program (reactor based) for my better understanding ?? . .
Take a look in "Anatomy of an AUTOLISP file" or do an "Advanced Search" in the LISP forum searching for reactor and you will find it.

: ) Happy Computing !

kennet