Dear lispers,
I've made the porting of Xlisp-Plus on LCC-win32 compiler.
This software comes from Tom Almy's XLISP-PLUS 3.04 for windows.
If somebody want contribute in upgrading of this version,
may do it without any permission.
Permission is granted for unrestricted non-commercial use.
You may download the new version of Xlisp-Plus at the bottom of this
page:
http://www.btinternet.com/~john.findlay1/libs/libs.htm
Notice this one is an *experimental* version that adds support to
win32 api.
Needs developers to debug subsystem and enhance win32 functions,
also to increase compatibility to common-lisp.
Somebody could open a new project at http://sourceforge.net/.
I'm sorry but I don't have enough time to open this project now.
:-)
greetings,
DaveNlp.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
"""""
XLISP-PLUS is written by Thomas Almy and
it is an enhanced version of David Michael Betz's Xlisp
to have many features (more than 70%) of COMMON LISP.
It's small and very easy to use if you wish to learn the Lisp basis.
Since XLISP-PLUS is based on XLISP, most XLISP programs will run on
XLISP-PLUS.
Since XLISP-PLUS incorporates also many features of standard COMMON
LISP,
many small COMMON LISP applications will run on XLISP-PLUS with little
modification.
See into "xlisp300.hlp" file for details
about differences between XLISP, XLISP-PLUS and COMMON LISP.
Complete source code is provided (in "C") to allow easy modification and
extension.
The source code has been modified to work on lcc-win32 compiler and this
one
is the same version of Tom Almy's Xlisp 3.04 for Windows, with little
modification.
It also contains list of modifications that have been made over source
code and
related explanations.
To differentiate this version from the Tom Almy XLISP-PLUS 3.04 version,
this one is called XLISP-PLUS 3.04 CL also beacuse now it has support
for win32 api.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
"""""
The "xlispw32.zip" file contains
a small demo that show the use of the win32-api functions that are
embedded in Xlisp-Plus CL.
...
...
...
(defun demo-win ()
(setq hwin1 (send-message nil 'createwindow "the hello program -
window1" nil))
(setq hwin2 (send-message nil 'createwindow "the hello program -
window2" nil nil nil 400))
(setq hbutt (send-message hwin2 'createbutton "caption button2"
nil))
(setq hedit (send-message hwin2 'createedit "test2" nil))
(setq hcmbb (send-message hwin2 'createcombobox "test2" nil))
(setq hlstb (send-message hwin2 'createlistbox "test2" nil))
(setq hstat (send-message hwin2 'createstatic "test2" nil))
(setq hscrb (send-message hwin2 'createscrollbar "test2"
(+ +SBS-HORZ+ +WS-CHILD+ +WS-VISIBLE+
+WS-TABSTOP+ +WS-GROUP+ +WS-CLIPSIBLINGS+
+WS-CLIPCHILDREN+)
205 0 120 16))
(setq hbut1 (send-message hwin1 'createbutton "caption button1" nil
20 20 200 50))
(setq hedi1 (send-message hwin1 'createedit "test1"))
(set-focus nil *XLISP-WINDOW*)
(show-window *XLISP-WINDOW* +SW-MINIMIZE+)
(set-focus *XLISP-WINDOW* hwin1)
(send-message hwin1 +WM-SETTEXT+ nil (string-pointer "OK!!!"))
(set-window-color hwin1 (rgb-color 212 208 200))
(set-focus hwin1 hwin2)
(set-window-color hwin2 (rgb-color 212 208 200))
(setq wcount 0)
(loop ;;------------- [0] [1] [2]
[3]
(setf xmsg (get-window-message)) ;; return (list HWND MSG
WPARAM LPARAM)
(when (eql (nth 1 xmsg) +WM-COMMAND+)
(when (eql (nth 3 xmsg) hbutt)
(setq wcount (1+ wcount))
(send-message hedit +WM-SETTEXT+ nil (string-pointer
(princ-to-string wcount)))
(princ wcount)
(print " - press button hbutt-win2"))
(when (eql (nth 3 xmsg) hbut1)
(send-message hedi1 +WM-SETTEXT+ nil (string-pointer
(string "ok-butt-win1")))))
(when (eql (nth 1 xmsg) +WM-CLOSE+)
(when (eql (nth 0 xmsg) hwin1)
(send-message hwin2 +WM-CLOSE+)
(print "close window1")
(return))
(when (eql (nth 0 xmsg) hwin2)
(center-window hwin1)
(print "close window2"))))
(setf temp-str
(make-string (1+ (send-message *XLISP-WINDOW*
+WM-GETTEXTLENGTH+))
:initial-element #\Space))
(send-message *XLISP-WINDOW* +WM-GETTEXT+ (length temp-str)
(string-pointer temp-str))
(set-focus nil *XLISP-WINDOW*)
(show-window *XLISP-WINDOW* +SW-RESTORE+)
(string-right-trim "\000" temp-str))
...
...
...
On 11/1/03 17:37, in article ·······················@twister1.libero.it,
"DaveNlp" <···············@iol.it> wrote:
> I've made the porting of Xlisp-Plus on LCC-win32 compiler.
Ahhh..someone who still hacks Xlisp stuff. I started an ADO interface for
Xlisp last year as something to keep me busy at the office. It connects to
a database and allows queries but that's about it at the moment.
Damo
"Damond Walker" <·······@comcast.net> ha scritto nel messaggio
···························@comcast.net...
> On 11/1/03 17:37, in article
·······················@twister1.libero.it,
> "DaveNlp" <···············@iol.it> wrote:
>
> > I've made the porting of Xlisp-Plus on LCC-win32 compiler.
>
> Ahhh..someone who still hacks Xlisp stuff. I started an ADO interface
for
> Xlisp last year as something to keep me busy at the office. It
connects to
> a database and allows queries but that's about it at the moment.
>
> Damo
>
it connects to a Access database ?
greeitngs
DaveNlp
On 11/2/03 5:51, in article ·······················@twister1.libero.it,
"DaveNlp" <···············@iol.it> wrote:
>
> it connects to a Access database ?
>
I've only ever tested it against MS SQL Server. I'll check at the
office tomorrow -- I'm thinking it will work fine. While I'm at it I'll
check against PostgreSQL as well.
Damo