- lambda-gtk-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-common.lisp
by htaube＠common-lisp.net 06 Dec '05

06 Dec '05

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv12088 Modified Files: lambda-gtk-common.lisp Log Message: put generated package exports inside eval-when Date: Tue Dec 6 18:42:53 2005 Author: htaube Index: lambda-gtk/lambda-gtk-common.lisp diff -u lambda-gtk/lambda-gtk-common.lisp:1.2 lambda-gtk/lambda-gtk-common.lisp:1.3 --- lambda-gtk/lambda-gtk-common.lisp:1.2 Mon Dec 13 03:51:23 2004 +++ lambda-gtk/lambda-gtk-common.lisp Tue Dec 6 18:42:52 2005 @@ -595,6 +595,7 @@ (let ((*print-case* ':downcase)) (terpri fil) (format fil postlude-string) + (format fil "~%(eval-when (:load-toplevel :execute)~%") (when g-exports (pprint `(export ',(reverse g-exports) :g) fil)) @@ -612,5 +613,5 @@ fil)) (terpri fil) (pprint '(pushnew ':gtk *features*) fil) - (format fil "~%~%;;; end generated output~%~%") + (format fil "~%)~%~%;;; end generated output~%~%") (values)))

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 06 Dec '05

06 Dec '05

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv12006 Modified Files: lambda-gtk-openmcl.lisp Log Message: added trailing semicolon detect presence of ccl:darwin-headers;gtk2; directory Date: Tue Dec 6 18:42:10 2005 Author: htaube Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.4 lambda-gtk/lambda-gtk-openmcl.lisp:1.5 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.4 Fri Dec 31 22:18:04 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Tue Dec 6 18:42:10 2005 @@ -338,7 +338,7 @@ (dolist (l *gtk-libfiles*) (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) - (if (probe-file \"ccl:darwin-headers;gtk2\" ) + (if (probe-file \"ccl:darwin-headers;gtk2;\" ) (use-interface-dir :gtk2) (error \"Interface directory ccl:darwin-headers;gtk2; does not exist.\"))) ")

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-cmusbcl.lisp
by htaube＠common-lisp.net 06 Dec '05

06 Dec '05

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv11986 Modified Files: lambda-gtk-cmusbcl.lisp Log Message: implemented cstring->string, converted to SBCL native callbalcs (requires sbcl 0.9.7 or higher) Date: Tue Dec 6 18:40:11 2005 Author: htaube Index: lambda-gtk/lambda-gtk-cmusbcl.lisp diff -u lambda-gtk/lambda-gtk-cmusbcl.lisp:1.2 lambda-gtk/lambda-gtk-cmusbcl.lisp:1.3 --- lambda-gtk/lambda-gtk-cmusbcl.lisp:1.2 Fri Dec 31 22:18:03 2004 +++ lambda-gtk/lambda-gtk-cmusbcl.lisp Tue Dec 6 18:40:10 2005 @@ -550,6 +550,7 @@ (in-package :cl-user) (eval-when (:compile-toplevel :load-toplevel :execute) + #+sbcl (setq sb-alien::*values-type-okay* t) (export '(*gtk-libdir* *gtk-libfiles*) :cl-user) (defvar *gtk-libdir* #+:darwin \"/sw/lib/\" #-:darwin \"/usr/lib/\") (defvar *gtk-libfiles* @@ -634,7 +635,17 @@ (defgluecode (:export :gtk) (defun struct-free (x) (free-alien x))) (defgluecode (:export :gtk) - (defun cstring->string (str) (error "\"Fix me: not yet implemented.\""))) + (defun cstring->string (ptr) + (if ("g::nullptr?" ptr) + nil + (let ((p (if (typep ptr '(alien (* (unsigned 8)))) + ptr (cast ptr (* (unsigned 8)))))) + (declare (type (alien (* (unsigned 8))) p)) + (with-output-to-string (s) + (loop for i from 0 + for c = (deref p i) + until (zerop c) + do (write-char (code-char c) s))))))) (defgluecode (:export :gtk) (defun string->cstring (str) (if (= (length str) 0) @@ -681,13 +692,14 @@ `(,p (* t))))) (type (parse-alien-type return))) "#+:sbcl" - `(define-alien-function ,name , (cons type args) ,@body) + `(defparameter ,name + (sb-alien::alien-sap + (sb-alien::alien-lambda ,type ,args ,@body))) "#+:cmu" `(def-callback ,name ,(cons type args) ,@body)))) (defgluecode (:export :g) (defmacro "g-callback" (x) - "#+:sbcl" - `(alien-function-sap ,x) + "#+:sbcl" x "#+:cmu `(alien::callback ,x)")) (defgluecode (:export :g) (defun "g-signal-connect" (instance detailed-signal c-handler data)

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-cmusbcl.lisp lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 31 Dec '04

31 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv13588 Modified Files: lambda-gtk-cmusbcl.lisp lambda-gtk-openmcl.lisp Log Message: added optional arg typing for define-signal-hander Date: Fri Dec 31 22:18:04 2004 Author: htaube Index: lambda-gtk/lambda-gtk-cmusbcl.lisp diff -u lambda-gtk/lambda-gtk-cmusbcl.lisp:1.1.1.1 lambda-gtk/lambda-gtk-cmusbcl.lisp:1.2 --- lambda-gtk/lambda-gtk-cmusbcl.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-cmusbcl.lisp Fri Dec 31 22:18:03 2004 @@ -674,7 +674,11 @@ (defgluecode (:export :gtk) (defmacro define-signal-handler (name return params &body body) (let ((args (loop for p in params - collect `(,p (* t)))) + collect + (if (consp p) + (list (first p) + (parse-alien-type (second p))) + `(,p (* t))))) (type (parse-alien-type return))) "#+:sbcl" `(define-alien-function ,name , (cons type args) ,@body) Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.3 lambda-gtk/lambda-gtk-openmcl.lisp:1.4 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.3 Mon Dec 13 03:51:23 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Fri Dec 31 22:18:04 2004 @@ -375,8 +375,9 @@ (defgluecode (:export :gtk) (defmacro define-signal-handler (name return params &body body) `(ccl:defcallback ,name ,(nconc (loop for p in params - collect ':address - collect p) + append + (if (consp p) (reverse p) + (list :address p))) (list return)) ,@body))) (defgluecode (:export :g) (defun "g-callback" (x) x))

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-common.lisp lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv31337 Modified Files: lambda-gtk-common.lisp lambda-gtk-openmcl.lisp Log Message: package cleanup issues, renamed openmcl interface dir to gtk2 Date: Mon Dec 13 03:51:23 2004 Author: htaube Index: lambda-gtk/lambda-gtk-common.lisp diff -u lambda-gtk/lambda-gtk-common.lisp:1.1.1.1 lambda-gtk/lambda-gtk-common.lisp:1.2 --- lambda-gtk/lambda-gtk-common.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-common.lisp Mon Dec 13 03:51:23 2004 @@ -522,8 +522,11 @@ fil) (pprint `(eval-when (:compile-toplevel :load-toplevel :execute) (defpackage :gtk ,uses - #+openmcl (:shadow :true :false)) - (defpackage :gdk ,uses) + (:shadow :true :false :fill)) + (defpackage :gdk ,uses + (:shadow :copy :invert :xor :clear :and :or + :set :delete :plus :mouse :destroy + :map :unmap :scroll) ) (defpackage :g ,uses ,@ gshadow) (defpackage :atk ,uses) (defpackage :pango ,uses (:shadow :break))) Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.2 lambda-gtk/lambda-gtk-openmcl.lisp:1.3 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.2 Wed Dec 8 03:22:27 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Mon Dec 13 03:51:23 2004 @@ -338,9 +338,9 @@ (dolist (l *gtk-libfiles*) (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) - (if (probe-file \"ccl:darwin-headers;gtk\" ) + (if (probe-file \"ccl:darwin-headers;gtk2\" ) (use-interface-dir :gtk2) - (error \"Interface directory ccl:darwin-headers;gtk; does not exist.\"))) + (error \"Interface directory ccl:darwin-headers;gtk2; does not exist.\"))) ") ;;;

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk.html
by htaube＠common-lisp.net 08 Dec '04

08 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv19648 Modified Files: lambda-gtk.html Log Message: added link for upcoming linux openmcl header tarball Date: Wed Dec 8 03:24:15 2004 Author: htaube Index: lambda-gtk/lambda-gtk.html diff -u lambda-gtk/lambda-gtk.html:1.1.1.1 lambda-gtk/lambda-gtk.html:1.2 --- lambda-gtk/lambda-gtk.html:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk.html Wed Dec 8 03:24:14 2004 @@ -99,7 +99,7 @@ href="http://openmcl.clozure.com/Doc/ch09s07.html">ffigen</a> program) and an API control file (gtk.api) that you can edit and customize in order to generate more or less inclusive interfaces to -GTK. λgtk is organized into two layers: a common file +GTK. λgtk is organized into two parts: a common file (lambda-gtk-common.lisp) and an implementation file for each target FFI (lambda-gtk-openmcl.lisp, lambda-gtk-cmusbcl.lisp, and so on). With the exception of callbacks (which are required by GTK itself) @@ -222,16 +222,28 @@ <li> -If you are using OpenMCL, download the -<a href="ftp://common-lisp.net/pub/project/lambda-gtk/openmcl-darwin-gtk.tar.gz"> -OpenMCL GTK Interface</a> and untar it inside OpenMCL's -ccl/darwin-headers/ folder: +If you are using OpenMCL, download either: + +<ul> +<li> +<a href="ftp://common-lisp.net/pub/project/lambda-gtk/openmcl-darwin-gtk.tar.gz">openmcl-darwin-gtk.tar.gz</a> +</li> +<li><a href="ftp://common-lisp.net/pub/project/lambda-gtk/openmcl-linux-gtk.tar.gz">openmcl-linux-gtk.tar.gz</a> +</li> +</ul> + +and untar it inside either OpenMCL's ccl/darwin-headers/ or +ccl/headers/ folder: <blockquote> <pre>$ cd /path/to/ccl/darwin-headers -$ tar -zxf openmcl-gtk-interface.tar.gz +$ tar -zxf openmcl-darwin-gtk.tar.gz </pre> </blockquote> + +Untarring either archive restores a gtk2/ directory containing seveal +.cdb files for the GTK interface. + </li> <li> @@ -452,6 +464,5 @@ alt="Valid XHTML 1.0!" height="31" width="88" /> </a> - </body> </html>

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 08 Dec '04

08 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv19621 Modified Files: lambda-gtk-openmcl.lisp Log Message: changed database directory name to :gtk2 for compatibility with linux Date: Wed Dec 8 03:22:48 2004 Author: htaube Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.1.1.1 lambda-gtk/lambda-gtk-openmcl.lisp:1.2 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Wed Dec 8 03:22:27 2004 @@ -339,7 +339,7 @@ (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) (if (probe-file \"ccl:darwin-headers;gtk\" ) - (use-interface-dir :gtk) + (use-interface-dir :gtk2) (error \"Interface directory ccl:darwin-headers;gtk; does not exist.\"))) ")

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/examples.lisp
by htaube＠common-lisp.net 04 Dec '04

04 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv9597 Modified Files: examples.lisp Log Message: added call gtk:init-ensure to textentry Date: Sat Dec 4 19:41:39 2004 Author: htaube Index: lambda-gtk/examples.lisp diff -u lambda-gtk/examples.lisp:1.1.1.1 lambda-gtk/examples.lisp:1.2 --- lambda-gtk/examples.lisp:1.1.1.1 Tue Nov 30 15:59:30 2004 +++ lambda-gtk/examples.lisp Sat Dec 4 19:41:39 2004 @@ -200,6 +200,7 @@ (format t "Text entry: ~S~%" (gtk:entry-get-text data))) (defun textentry () + (gtk:init-ensure) (let* ((win (gtk:window-new gtk:window-toplevel)) (vbox (gtk:vbox-new nil 0)) (hbox (gtk:hbox-new nil 0))

1 0

[lambda-gtk-cvs] CVS update: Module imported: lambda-gtk
by htaube＠common-lisp.net 30 Nov '04

30 Nov '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv1099 Log Message: initial import of lambda-gtk Status: Vendor Tag: lambda-gtk Release Tags: rel_0-1 N lambda-gtk/examples.lisp N lambda-gtk/gtk.api N lambda-gtk/gtk.ffi N lambda-gtk/lambda-gtk-cmusbcl.lisp N lambda-gtk/lambda-gtk-common.lisp N lambda-gtk/lambda-gtk-openmcl.lisp N lambda-gtk/lambda-gtk.html N lambda-gtk/llgpl.text No conflicts created by this import Date: Tue Nov 30 15:59:32 2004 Author: htaube New module lambda-gtk added

1 0