closure-cvs

closure-cvs@common-lisp.net

208 discussions

[closure-cvs] CVS closure
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure In directory clnet:/tmp/cvs-serv9505 Modified Files: closure.asd Log Message: Use CXML's rune implementation and XML parser. --- /project/closure/cvsroot/closure/closure.asd 2006/01/11 22:05:54 1.7 +++ /project/closure/cvsroot/closure/closure.asd 2006/12/29 21:29:22 1.8 @@ -60,7 +60,7 @@ (make-pathname :name nil :type nil :defaults *load-truename*)) :default-component-class closure-source-file - :depends-on (:clim #+sbcl :sb-bsd-sockets) + :depends-on (:cxml :mcclim #+sbcl :sb-bsd-sockets) :components ((:file dependent :pathname @@ -75,12 +75,10 @@ #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!")) (:file "package" :depends-on (dependent)) - (:file "runes" - :depends-on ("package" dependent)) (:file "util" - :depends-on ("package" dependent "runes")) + :depends-on ("package" dependent)) (:file "match" - :depends-on ("package" dependent "runes" "util")))) + :depends-on ("package" dependent "util")))) (asdf:defsystem closure @@ -121,20 +119,6 @@ (:file "css-support"))) ;; Libraries - - (:module xml - :components - ((:file "package") - (:file "encodings" :depends-on ("package")) - (:file "encodings-data" :depends-on ("package" "encodings")) - (:file "sax-handler") - (:file "dompack") - (:file "dom-impl" :depends-on ("dompack")) - (:file "dom-builder" :depends-on ("dom-impl" "sax-handler")) - (:file "xml-stream" :depends-on ("package")) - (:file "xml-name-rune-p" :depends-on ("package")) - (:file "xml-parse" :depends-on ("package" "dompack" "sax-handler")) - (:file "xml-canonic" :depends-on ("package" "dompack" "xml-parse")) )) ;; CLEX and LALR

1 0

[closure-cvs] CVS closure/src
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure/src In directory clnet:/tmp/cvs-serv9505/src Modified Files: defpack.lisp Log Message: Use CXML's rune implementation and XML parser. --- /project/closure/cvsroot/closure/src/defpack.lisp 2005/07/17 09:30:48 1.5 +++ /project/closure/cvsroot/closure/src/defpack.lisp 2006/12/29 21:29:23 1.6 @@ -28,7 +28,7 @@ (defpackage :renderer (:nicknames :r2) - (:use :glisp) + (:use :glisp :runes) (:import-from :imagelib #:aimage #:aimage-width @@ -94,18 +94,18 @@ )) (defpackage :ws/x11 - (:use :glisp) + (:use :glisp :runes) (:export #:aimage->ximage)) (defpackage :gif - (:use :glisp) + (:use :glisp :runes) (:export #:gif-stream->aimage)) (defpackage :ws/charset ;;(:nicknames :charset) ;; Arg! CLISP now defines a package called "charset". - (:use :glisp) + (:use :glisp :runes) (:export #:CHARSET #:CHARSET-DECODE #:CHARSET-ENCODE @@ -118,7 +118,7 @@ ;;zzz(defpackage :ws/estk (:use :glisp)) ;should die (defpackage :gui - (:use :glisp) + (:use :glisp :runes) (:import-from #:clim #:+nowhere+ @@ -197,7 +197,7 @@ )) -(defpackage :gtk-gui (:use :glisp)) +(defpackage :gtk-gui (:use :glisp :runes)) (defpackage :closure (:use) @@ -234,9 +234,4 @@ "DEVICE-FONT-UNDERLINE-THICKNESS" )) -(defpackage :clue-gui2 (:use #||:glue :clue||# :glisp)) - - - - - +(defpackage :clue-gui2 (:use #||:glue :clue||# :glisp :runes))

1 0

[closure-cvs] CVS closure/src/gui
by dlichteblau 29 Dec '06

29 Dec '06

Update of /project/closure/cvsroot/closure/src/gui In directory clnet:/tmp/cvs-serv12493 Modified Files: clim-gui.lisp Log Message: Make closure start on Gtkairo: * src/gui/clim-gui.lisp (WRITE-STATUS, FOO, COM-REDRAW): Replace calls to xlib:display-finish-output with clim-backend:port-force-output. --- /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2005/08/25 15:14:14 1.22 +++ /project/closure/cvsroot/closure/src/gui/clim-gui.lisp 2006/12/29 17:37:07 1.23 @@ -4,7 +4,7 @@ ;;; Created: 2002-07-22 ;;; Author: Gilbert Baumann <gilbert(a)base-engineering.com> ;;; License: MIT style (see below) -;;; $Id: clim-gui.lisp,v 1.22 2005/08/25 15:14:14 crhodes Exp $ +;;; $Id: clim-gui.lisp,v 1.23 2006/12/29 17:37:07 dlichteblau Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 2002 by Gilbert Baumann @@ -28,6 +28,13 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ;; $Log: clim-gui.lisp,v $ +;; Revision 1.23 2006/12/29 17:37:07 dlichteblau +;; Make closure start on Gtkairo: +;; +;; * src/gui/clim-gui.lisp (WRITE-STATUS, FOO, COM-REDRAW): Replace +;; calls to xlib:display-finish-output with +;; clim-backend:port-force-output. +;; ;; Revision 1.22 2005/08/25 15:14:14 crhodes ;; OpenMCL support (from Dave Murray aka JQS) ;; @@ -514,7 +521,7 @@ (defun write-status (string) (window-clear (find-pane-named *frame* 'status)) (write-string string (find-pane-named *frame* 'status)) - (xlib:display-finish-output (clim-clx::clx-port-display (find-port)))) + (clim-backend:port-force-output (find-port))) (defun foo (url) (let ((*standard-output* *trace-output*)) @@ -561,9 +568,9 @@ (clim:change-space-requirements *pane* :width x2 :height y2) ;; While we are at it, force a repaint (handle-repaint *pane* (sheet-region (pane-viewport *pane*))) - (xlib:display-finish-output (clim-clx::clx-port-display (find-port)))))))) + (clim-backend:port-force-output (find-port))))))) #+nil (write-status "Done."))))) - #+nil (xlib:display-finish-output (clim-clx::clx-port-display (find-port))))))) + #+nil (clim-backend:port-force-output (find-port)))))) (defun reflow () (let ((*standard-output* *trace-output*)) @@ -684,5 +691,5 @@ (define-closure-command (com-redraw :name t :keystroke (#\r :control)) () (let* ((*pane* (find-pane-named *frame* 'canvas)) ) (handle-repaint *pane* (sheet-region (pane-viewport *pane*)))) - (xlib:display-finish-output (clim-clx::clx-port-display (find-port)))) + (clim-backend:port-force-output (find-port)))

1 0

[closure-cvs] CVS closure/src/css
by emarsden 26 Dec '06

26 Dec '06

Update of /project/closure/cvsroot/closure/src/css In directory clnet:/tmp/cvs-serv20327 Modified Files: css-selector.lisp css-setup.lisp Log Message: Trivial bugfixes. --- /project/closure/cvsroot/closure/src/css/css-selector.lisp 2005/05/04 19:30:48 1.6 +++ /project/closure/cvsroot/closure/src/css/css-selector.lisp 2006/12/26 14:19:18 1.7 @@ -833,7 +833,7 @@ (subseq seq (+ p1 1) p2))) (parse-style-sheet* seq (+ p2 1) nil)) ))))) (t - (warn "Bad css syntax: " (as-string seq)) + (warn "Bad css syntax: ~A" (as-string seq)) nil))))) --- /project/closure/cvsroot/closure/src/css/css-setup.lisp 2005/03/13 18:00:58 1.4 +++ /project/closure/cvsroot/closure/src/css/css-setup.lisp 2006/12/26 14:19:18 1.5 @@ -4,7 +4,7 @@ ;;; Created: 1998-06-18 ;;; Author: Gilbert Baumann <gilbert(a)base-engineering.com> ;;; License: MIT style (see below) -;;; $Id: css-setup.lisp,v 1.4 2005/03/13 18:00:58 gbaumann Exp $ +;;; $Id: css-setup.lisp,v 1.5 2006/12/26 14:19:18 emarsden Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 1998-2002 by Gilbert Baumann @@ -394,10 +394,8 @@ 'new-interpret-length) (round (* a dpi 12) 72)) (t - (* a font-size)) - (t - (round (* a dpi 12) 72)))) - (:ex + (* a font-size)))) + (:ex (cond ((and pt (not (realp font-size))) (warn "In ~S: font-size not available -- fix your programm." 'new-interpret-length) @@ -459,6 +457,9 @@ ;; $Log: css-setup.lisp,v $ +;; Revision 1.5 2006/12/26 14:19:18 emarsden +;; Trivial bugfixes. +;; ;; Revision 1.4 2005/03/13 18:00:58 gbaumann ;; Gross license change ;;

1 0

[closure-cvs] CVS closure/src/renderer
by thenriksen 06 Nov '06

06 Nov '06

Update of /project/closure/cvsroot/closure/src/renderer In directory clnet:/tmp/cvs-serv23083/src/renderer Modified Files: renderer2.lisp Log Message: Remove compiler-killing evil character from comment. --- /project/closure/cvsroot/closure/src/renderer/renderer2.lisp 2005/08/25 15:03:54 1.14 +++ /project/closure/cvsroot/closure/src/renderer/renderer2.lisp 2006/11/06 19:43:01 1.15 @@ -4,7 +4,7 @@ ;;; Created: somewhen late 2002 ;;; Author: Gilbert Baumann <gilbert(a)base-engineering.com> ;;; License: MIT style (see below) -;;; $Id: renderer2.lisp,v 1.14 2005/08/25 15:03:54 crhodes Exp $ +;;; $Id: renderer2.lisp,v 1.15 2006/11/06 19:43:01 thenriksen Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 1997-2003 by Gilbert Baumann @@ -4707,7 +4707,7 @@ ;; test44: a few problems with inline images: ;; . vertical border and padding is not accounted for in line height calculation -;; . border and image coördinates are out of synch vertically. +;; . border and image coordinates are out of synch vertically. ;; => We need to talk again about geometry. ;; ;; The "bottom" of a replaced object is the bottom including margin, padding and border. @@ -4969,6 +4969,9 @@ ;; $Log: renderer2.lisp,v $ +;; Revision 1.15 2006/11/06 19:43:01 thenriksen +;; Remove compiler-killing evil character from comment. +;; ;; Revision 1.14 2005/08/25 15:03:54 crhodes ;; turn off table debugging ;;

1 0

[closure-cvs] CVS closure/src/net
by thenriksen 06 Nov '06

06 Nov '06

Update of /project/closure/cvsroot/closure/src/net In directory clnet:/tmp/cvs-serv23002/src/net Modified Files: http.lisp Log Message: Make Closure capable of connecting to non-port 80 URLs. --- /project/closure/cvsroot/closure/src/net/http.lisp 2005/07/19 20:42:08 1.8 +++ /project/closure/cvsroot/closure/src/net/http.lisp 2006/11/06 19:41:56 1.9 @@ -348,7 +348,9 @@ (header (append (if (and (or *send-host-field-never-the-less-p* proxyp) (not (member :host header :test #'string-equal :key #'car))) - (list (cons "Host" host)) + (if (and (numberp (url:url-port url)) (not (= (url:url-port url) 80))) + (list (cons "Host" (format nil "~A:~A" host (url:url-port url)))) + (list (cons "Host" host))) nil) (if *referer* (list (cons "Referer" (if (url:url-p *referer*)

1 0

[closure-cvs] CVS update: closure/closure.asd
by tdalyjr＠common-lisp.net 11 Jan '06

11 Jan '06

Update of /project/closure/cvsroot/closure In directory common-lisp.net:/tmp/cvs-serv969 Modified Files: closure.asd Log Message: Patch by Vincent Arkesteijn to indicate the glisp system's dependance on the clim and, in sbcl, sb-bsd-sockets systems. Date: Wed Jan 11 23:05:54 2006 Author: tdalyjr Index: closure/closure.asd diff -u closure/closure.asd:1.6 closure/closure.asd:1.7 --- closure/closure.asd:1.6 Thu Aug 25 17:14:11 2005 +++ closure/closure.asd Wed Jan 11 23:05:54 2006 @@ -60,6 +60,7 @@ (make-pathname :name nil :type nil :defaults *load-truename*)) :default-component-class closure-source-file + :depends-on (:clim #+sbcl :sb-bsd-sockets) :components ((:file dependent :pathname

1 0

[closure-cvs] CVS update: closure/src/patches/clx-patch.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

Update of /project/closure/cvsroot/closure/src/patches In directory common-lisp.net:/tmp/cvs-serv3854/src/patches Modified Files: clx-patch.lisp Log Message: OpenMCL support (from Dave Murray aka JQS) Date: Thu Aug 25 17:14:15 2005 Author: crhodes Index: closure/src/patches/clx-patch.lisp diff -u closure/src/patches/clx-patch.lisp:1.4 closure/src/patches/clx-patch.lisp:1.5 --- closure/src/patches/clx-patch.lisp:1.4 Sun Mar 13 19:02:58 2005 +++ closure/src/patches/clx-patch.lisp Thu Aug 25 17:14:15 2005 @@ -167,7 +167,7 @@ (get-host-name)) ;;; GET-BEST-AUTHORIZATION - + #-openmcl (defun get-best-authorization (host display protocol) (labels ((read-short (stream &optional (eof-errorp t)) (let ((high-byte (read-byte stream eof-errorp nil)))

1 0

[closure-cvs] CVS update: closure/src/gui/clim-gui.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

Update of /project/closure/cvsroot/closure/src/gui In directory common-lisp.net:/tmp/cvs-serv3854/src/gui Modified Files: clim-gui.lisp Log Message: OpenMCL support (from Dave Murray aka JQS) Date: Thu Aug 25 17:14:14 2005 Author: crhodes Index: closure/src/gui/clim-gui.lisp diff -u closure/src/gui/clim-gui.lisp:1.21 closure/src/gui/clim-gui.lisp:1.22 --- closure/src/gui/clim-gui.lisp:1.21 Thu Aug 25 17:05:48 2005 +++ closure/src/gui/clim-gui.lisp Thu Aug 25 17:14:14 2005 @@ -4,7 +4,7 @@ ;;; Created: 2002-07-22 ;;; Author: Gilbert Baumann <gilbert(a)base-engineering.com> ;;; License: MIT style (see below) -;;; $Id: clim-gui.lisp,v 1.21 2005/08/25 15:05:48 crhodes Exp $ +;;; $Id: clim-gui.lisp,v 1.22 2005/08/25 15:14:14 crhodes Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 2002 by Gilbert Baumann @@ -28,6 +28,9 @@ ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ;; $Log: clim-gui.lisp,v $ +;; Revision 1.22 2005/08/25 15:14:14 crhodes +;; OpenMCL support (from Dave Murray aka JQS) +;; ;; Revision 1.21 2005/08/25 15:05:48 crhodes ;; Work around problems related to *closure-inited-p* (see #lisp logs for ;; 2005-08-25 for more discussion). Not clear where the fault lies: sbcl, @@ -428,12 +431,6 @@ (defun send-closure-command (command &rest args) (ensure-closure) - - #+openmcl - (with-closure () - (glisp::process-interrupt *closure-process* - #'(lambda () (apply command args)))) - #-openmcl (with-closure () (clim-sys:process-interrupt *closure-process* #'(lambda () (apply command args)))))

1 0

[closure-cvs] CVS update: closure/src/glisp/dep-openmcl.lisp closure/src/glisp/gendep.lisp
by crhodes＠common-lisp.net 25 Aug '05

25 Aug '05

Update of /project/closure/cvsroot/closure/src/glisp In directory common-lisp.net:/tmp/cvs-serv3854/src/glisp Modified Files: gendep.lisp Added Files: dep-openmcl.lisp Log Message: OpenMCL support (from Dave Murray aka JQS) Date: Thu Aug 25 17:14:13 2005 Author: crhodes Index: closure/src/glisp/gendep.lisp diff -u closure/src/glisp/gendep.lisp:1.2 closure/src/glisp/gendep.lisp:1.3 --- closure/src/glisp/gendep.lisp:1.2 Sun Mar 13 19:01:15 2005 +++ closure/src/glisp/gendep.lisp Thu Aug 25 17:14:12 2005 @@ -337,7 +337,8 @@ #+(AND ALLEGRO ALLEGRO-V5.0) "acl5" #+(AND ALLEGRO (NOT ALLEGRO-V5.0)) "acl" #+GCL "gcl" - #-(OR CLISP CMU ALLEGRO GCL) + #+OPENMCL "openmcl" + #-(OR CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!")) ;; all symbols, which are defined by gray streams @@ -379,6 +380,7 @@ #+:CMU '(:ext) #+:ALLEGRO '(:excl) #+:HARLEQUIN-COMMON-LISP '(:stream) + #+:OPENMCL '(:ccl) ) (defun seek-symbol (name packages)

1 0

← Newer
1
...
10
11
12
13
14
15
16
...
21
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

closure-cvs