Subject: Unix scripting with LispWorks - msg#00071

List: lisp.lispworks.general

Date: Prev Next Index Thread: Prev Next Index

Back when I used CLISP there was an easy way to create scripts that
where callable from the Unix command line. It was nice because the
contents of the shell script was just plain text Lisp code and could
be edited and tweaked easily.

Is there a way to do that in LispWorks?

Regards,
Chris Dean

Was this page helpful?

Thread at a glance:

Previous Message by Date: click to view message preview

Re: How to operate image pixels without having associated window ?

On 9269 day of my life lisptracker@xxxxxxx wrote: > Having something like SetDIBitsToDevice would be very handy. You can do it with OpenGL (though I know you do not like it. :) I have an example somewhere on my disk, but can't find it now... -- Ivan Boldyrev Your bytes are bitten.

Next Message by Date: click to view message preview

Re: Unix scripting with LispWorks

Maybe cl-launch is what you're looking for? http://www.cliki.net/cl-launch Regards Friedrich

Previous Message by Thread: click to view message preview

Scrolling an editor pane during create callback

Hi! If you compile the code below and execute (FOO) you'll get an editor pane with two push buttons. If you press UP the editor will scroll to the start of the text, if you press DOWN, the editor will scroll to the end of the text. Fine. However, note that there's a call to DOWN in the create callback of the interface. This one doesn't seem to have any effect. I tried several other strategies but without success. What I want is to programmatically set the scrolling position of an editor pane to a certain position at the very moment when it's displayed. Is there a way to do that? Thanks, Edi. (defparameter *size* 4000) (defun adjust-scrollbar (pane pos) (let ((buffer (capi:editor-pane-buffer pane)) (window (capi:editor-window pane))) (when window (editor:with-point ((start (editor:buffers-start buffer))) (editor:increment-point start pos) (editor::move-line-to-position window start nil) (editor::update-window-after-scroll window nil))))) (defun up (editor) (adjust-scrollbar editor 0)) (defun down (editor) (adjust-scrollbar editor (length (capi:editor-pane-text editor)))) (capi:define-interface foo-interface () () (:panes (up-button capi:push-button :text "Up" :callback-type :none :callback (lambda () (up editor))) (down-button capi:push-button :text "Down" :callback-type :none :callback (lambda () (down editor))) (editor capi:editor-pane :buffer-name "foo" :accessor editor)) (:layouts (row-layout capi:row-layout '(up-button down-button)) (column-layout capi:column-layout '(row-layout editor))) (:default-initargs :layout 'column-layout :create-callback (lambda (interface) (setf (capi:editor-pane-text (editor interface)) (coerce (loop for i below *size* collect (code-char (+ #.(char-code #\A) (mod i 26)))) 'string)) (down (editor interface))) :best-width 300 :best-height 300)) (defun foo () (capi:display (make-instance 'foo-interface)))

Next Message by Thread: click to view message preview