Commit 59fa5ded authored by Dave Cooper's avatar Dave Cooper

Basics are working on SBCL.

parent 6246454c
......@@ -114,6 +114,7 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
(setq glisp:*gdl-home* (glisp:current-directory))
(setq glisp:*genworks-source-home* (merge-pathnames "src/" glisp:*gdl-home*))
(setq ql:*quicklisp-home* (merge-pathnames "quicklisp/" glisp:*gdl-home*))
(asdf:initialize-output-translations)
(gdl:start-gdl :edition :trial)
(glisp:set-gs-path (merge-pathnames "gpl/gs/gs8.63/bin/gswin32c.exe" glisp:*gdl-home*))))
......
......@@ -129,15 +129,15 @@
;;
(ensure-directories-exist (merge-pathnames "SMLib8.40/" (the target-parent)))
(glisp:copy-file (merge-pathnames (format nil "../../common/SMLib8.40/libs/~a/~a"
#+linux "linux"
#+mswindows "windows"
#+macosx "macos"
(glisp:smlib-name))
glisp:*genworks-source-home*)
(merge-pathnames (format nil "SMLib8.40/~a" (glisp:smlib-name))
(the target-parent)))
(let ((smlib-name (if (find-package :smlib) (funcall (read-from-string "glisp:smlib-name"))
(error "smlib-name not known (smlib module probably not loaded)."))))
(glisp:copy-file (merge-pathnames (format nil "../../common/SMLib8.40/libs/~a/~a"
#+linux "linux"
#+mswindows "windows"
#+macosx "macos" smlib-name)
glisp:*genworks-source-home*)
(merge-pathnames (format nil "SMLib8.40/~a" smlib-name)
(the target-parent))))
;;
;; gpl on windows
;;
......
......@@ -19,7 +19,7 @@
;; <http://www.gnu.org/licenses/>.
;;
(in-package :user)
(in-package :gdl-user)
(gwl:define-package :genworks.demos.bus
(:nicknames :bus) (:export #:assembly #:fleet))
......
(in-package :user)
(in-package :gdl-user)
(gwl:define-package :ledger (:export #:assembly #:html-assembly))
......
......@@ -18,5 +18,6 @@
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :gdl-user)
(gwl:define-package :robot (:export #:assembly))
This diff is collapsed.
......@@ -6,7 +6,8 @@
:license "AGPL unless otherwise indicated" :serial t
:version "2011102100" :depends-on (:gdl-gwl-graphics)
:components
((:file "source/package") (:file "source/mixins")
((:file "source/package") (:file "source/genworks")
(:file "source/mixins")
(:file "source/assembly") (:file "source/ass")
(:file "source/define-object-documentation")
(:file "source/format-documentation")
......
This diff is collapsed.
......@@ -19,4 +19,4 @@
;; <http://www.gnu.org/licenses/>.
;;
("package" "mixins" "defpart-documentation" "assembly")
("package" "genworks" "mixins" "define-object-documentation" "assembly")
......@@ -36,9 +36,7 @@
(do-symbols (symbol (the :package)
(sort (nreverse result) #'string< :key #'symbol-name))
(when (and (eql (symbol-package symbol) package-object)
#+allegro (get symbol 'excl::%fun-documentation)
#+cmu (documentation symbol 'function)
#+lispworks (get symbol 'system::%fun-documentation))
(glisp:function-documentation symbol))
(push symbol result))))))
(symbols-external (remove-duplicates
(let (result (package-object (the :package-object)))
......@@ -52,9 +50,7 @@
:key
#'symbol-name))
(when (and (eql (symbol-package symbol) package-object)
#+allegro (get symbol 'excl::%fun-documentation)
#+cmu (documentation symbol 'function)
#+lispworks (get symbol 'system::%fun-documentation))
(glisp:function-documentation symbol))
(push symbol result))))))))
......@@ -69,14 +65,8 @@
:computed-slots
((strings-for-display (format nil "~a" (the symbol)))
(doc-string #+allegro (get (the symbol) 'excl::%fun-documentation)
#+cmu (documentation (the symbol) 'function)
#+lispworks (get symbol 'system::%fun-documentation))
(macro? #+allegro (null (typep (symbol-function (the :symbol)) 'function))
#+cmu (macro-function (the symbol))
#+lispworks (macro-function (the symbol))))
(doc-string (glisp:function-documentation symbol))
(macro? (macro-function (the symbol))))
:functions
((write-html-sheet
......
;;
;; Copyright 2002-2011 Genworks International and Genworks BV
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :com.genworks.lisp)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defpackage :com.genworks.lisp
(:use :common-lisp)
(:export #:autoloaded-packages
#:package-documentation
#:function-documentation
#:variable-documentation)))
(defun autoloaded-packages ()
(remove-if-not #'find-package
(append (list :win :windows :regexp)
(remove-duplicates
#-allegro nil
#+allegro (mapcar #'rest excl::*autoload-package-name-alist*)
))))
#-(or allegro lispworks sbcl) (error "Need implementation for package-documentation for the currently running Lisp.~%")
(defun package-documentation (package)
(#+(or allegro lispworks) documentation
#+sbcl sb-kernel:package-doc-string
(find-package package)))
#-(or allegro lispworks sbcl cmu) (error "Need implementation for function-documentation for the currently running Lisp.~%")
(defun function-documentation (function-symbol)
#+allegro (get function-symbol 'excl::%fun-documentation)
#+lispworks (get symbol 'system::%fun-documentation)
#+(or cmu sbcl) (documentation function-symbol 'function))
#-(or allegro lispworks sbcl cmu) (error "Need implementation for variable-documentation for the currently running Lisp.~%")
(defun variable-documentation (function-symbol)
#+allegro (get function-symbol 'excl::%var-documentation)
#+lispworks (get symbol 'system::%var-documentation)
#+(or cmu sbcl) (documentation function-symbol 'variable))
......@@ -35,15 +35,8 @@ link to the favicon.ico and a link to a default CSS sheet. All these elements ca
found in the *gdl-install-dir*/static/gwl/ directories."
default-header-content (html
((:link :href "/static/gwl/images/favicon.ico"
:type "image/x-icon" :rel "icon"))
;;
;; FLAG -- nil'ed out for now, this was causing tiny fonts.
;;
#+nil
((:link :href "/static/gwl/style/tasty-layout.css"
:type "text/css" :rel "stylesheet"))
))
:type "image/x-icon" :rel "icon"))))
("Contains standard jQuery files to include in the header for additional search funcionality.
This computed-slot contains javascript files, found in the *gdl-install-dir*
and used throughout the yadd pages for the generation of automatic search forms (like the master-index).
......
......@@ -32,9 +32,7 @@
(do-symbols (symbol (the :package)
(sort (nreverse result) #'string< :key #'symbol-name))
(when (and (eql (symbol-package symbol) package-object)
#+allegro (get symbol 'excl::%var-documentation)
#+cmu (documentation symbol 'variable)
#+lispworks (get symbol 'system::%fun-documentation))
(glisp:variable-documentation symbol))
(push symbol result))))))
(symbols-external (remove-duplicates
(let (result (package-object (the :package-object)))
......@@ -48,13 +46,10 @@
:key
#'symbol-name))
(when (and (eql (symbol-package symbol) package-object)
#+allegro (get symbol 'excl::%var-documentation)
#+cmu (documentation symbol 'variable)
#+lispworks (get symbol 'system::%fun-documentation))
(glisp:variable-documentation symbol))
(push symbol result))))))))
(define-object variable-dokumentation (doc-string-parser-mixin
remark-writers-mixin base-yadd-sheet)
......@@ -65,9 +60,7 @@
(show-package? nil))
:computed-slots
((remark-string #+allegro (get (the symbol) 'excl::%var-documentation)
#+cmu (documentation (the symbol) 'variable)
#+lispworks (get symbol 'system::%fun-documentation)))
((remark-string (glisp:variable-documentation (the symbol))))
:functions
((write-html-sheet
......
......@@ -137,7 +137,7 @@ point-1 to point-2.
:arguments (point-1 \"3D point\"
point-1 \"3D point\")"
(declare (type (array double-float) point-1 point-2)
(declare ;;(type (array double-float) point-1 point-2)
(optimize (speed 3) (compilation-speed 0)
(safety 0) (debug 0)))
......
......@@ -6,7 +6,8 @@
:license "AGPL unless otherwise indicated" :serial t
:version "2011102000" :depends-on
(:gdl-geom-base :gdl-gwl) :components
((:file "gwl/source/parameters")
((:file "gwl/source/package")
(:file "gwl/source/parameters")
(:file "gwl/source/application-mixin")
(:file "gwl/source/base-ajax-graphics-sheet")
(:file "gwl/source/base-html-graphics-sheet")
......
(in-package :gdl-user)
(gdl:define-package :gwl
(:use :net.aserve :net.aserve.client :net.uri :net.html.generator :cl-who)
(:shadow #:define-package))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment