Commit d83df0a0 authored by Dave Cooper's avatar Dave Cooper
Browse files

added descriptions and streamlined the loading and initialization process.

parent f4d74470
(in-package :gdl-user)
(gwl:define-package :ta2
(:documentation #.(with-open-file (in "~/gendl/apps/ta2/description.isc") (read in)))
(:export #:assembly))
#+nil
(gwl:define-package :ta2
(:documentation "Testing and Tracking Second Edition")
(:export #:assembly))
......
(asdf:defsystem #:ta2 :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Genworks International and Gendl™ Project Contributors"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130318" :depends-on (:gwl-graphics)
:serial t :version "20130319" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/javascript") (:file "source/action-object")
......
......@@ -19,13 +19,10 @@
;; <http://www.gnu.org/licenses/>.
;;
(in-package :gdl-user)
(gwl:define-package :tasty
(:documentation "Testing and Tracking Second Edition, Styled Dutch Mix")
(:documentation #.(glisp:system-description :tasty))
(:export #:assembly #:viewport #:inspector #:status-object #:menu-section #:*use-bsplines-for-vrml?*))
;; For the moment we force development in the package to 'true'.
(setq gwl:*developing?* t)
(asdf:defsystem #:tasty :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"The Gendl™ Web-based Development Environment (tasty)" :author
"Genworks International and Gendl™ Project Contributors" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130318" :depends-on (:tree :gwl-graphics)
:serial t :version "20130319" :depends-on (:tree :gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly") (:file "source/initialize")
......
(asdf:defsystem #:translators :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "Genworks International and Gendl™ Project Contributors"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130318" :depends-on nil :components
:serial t :version "20130319" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
(:file "xml/source/definition-tree") (:file "xml/source/gdl2xml")
(:file "xml/source/xml2gdl")))
......@@ -20,4 +20,7 @@
;;
(gwl:define-package :gdlxml (:export #:definition-tree #:xml2gdl #:gdl2xml #:object-definition))
(gwl:define-package :gendlxml
(:documentation #.(glisp:system-description :translators))
(:nicknames :gdlxml)
(:export #:definition-tree #:xml2gdl #:xml2gendl #:gdl2xml #:gendl2xml #:object-definition))
......@@ -21,4 +21,6 @@
(in-package :gdl-user)
(gwl:define-package :tree (:export #:tree #:newtree #:newertree))
(gwl:define-package :tree
(:documentation #.(glisp:system-description :tree))
(:export #:tree #:newtree #:newertree))
(asdf:defsystem #:tree :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author "Genworks International and Gendl™ Project Contributors"
:license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130318" :depends-on (:gwl-graphics)
:serial t :version "20130319" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
(:file "source/ajax") (:file "source/assembly")
......
......@@ -23,7 +23,7 @@
(gwl:define-package :yadd
(:documentation "GDL/GWL Documentation Facility")
(:documentation #.(glisp:system-description :yadd))
(:export #:assembly
#:ass
#:assy
......
(asdf:defsystem #:yadd :description
"Auto-generated asdf defsys from Genworks GenDL cl-lite. Please avoid hand-editing."
:author "Dave Cooper and Genworks International" :license
"The Gendl™ Yet Another Definition Documenter (yadd)" :author
"Genworks International and Gendl™ Project Contributors" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130318" :depends-on (:gwl-graphics)
:serial t :version "20130319" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
(:file "source/mixins")
......
(asdf:defsystem #:base :description
"Base Gendl Subsystem supplying define-object, define-format, define-view macros and Associated Referencing Operators and KBE Runtime Engine."
:author
"Dave Cooper and Genworks International"
:license "Gnu Affero General Public License (please see http://www.gnu.org/licenses/)" :serial t
:version "2013031400"
:components
((:file "source/package")
(:file "source/genworks")
(:file "source/presets")
(:file "source/parameters")
(:file "source/metaclasses")
(:file "source/start")
(:file "source/utilities")
(:file "expanders/source/inputs")
(:file "expanders/source/computed-slots")
(:file "expanders/source/functions")
(:file "expanders/source/methods")
(:file "expanders/source/objects")
(:file "macros/source/reference")
(:file "macros/source/message-utils")
(:file "macros/source/define-object")
(:file "macros/source/defaulting")
(:file "macros/source/define-format")
(:file "rest/source/parameters")
(:file "rest/source/quantification")
(:file "rest/source/aggregate")
(:file "rest/source/utilities")
(:file "rest/source/vanilla-mixin")
(:file "rest/source/base-rule-object")
(:file "rest/source/bodies")
(:file "rest/source/init")
(:file "rest/source/make-part")
(:file "rest/source/null-part")
(:file "rest/source/sequence")
(:file "zzinit/source/initialize")
(:file "zzinit/source/zzinit")))
(asdf:defsystem #:base :description
"The Gendl™ Base Core Kernel Engine" :author
"Genworks International and Gendl™ Project Contributors" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20130319" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
(:file "source/presets") (:file "source/parameters")
(:file "source/metaclasses") (:file "source/utilities")
(:file "source/start") (:file "expanders/source/inputs")
(:file "expanders/source/computed-slots")
(:file "expanders/source/functions")
(:file "expanders/source/methods")
(:file "expanders/source/objects")
(:file "macros/source/reference")
(:file "macros/source/message-utils")
(:file "macros/source/define-object")
(:file "macros/source/defaulting")
(:file "macros/source/define-format")
(:file "rest/source/parameters")
(:file "rest/source/quantification")
(:file "rest/source/aggregate") (:file "rest/source/utilities")
(:file "rest/source/vanilla-mixin")
(:file "rest/source/base-rule-object") (:file "rest/source/bodies")
(:file "rest/source/ignore-errors-with-backtrace")
(:file "rest/source/init") (:file "rest/source/make-part")
(:file "rest/source/null-part") (:file "rest/source/sequence")
(:file "zzinit/source/initialize") (:file "zzinit/source/zzinit")))
......@@ -25,10 +25,8 @@
#+(and mswindows allegro) (excl:crlf-base-ef :1252)
#-(and mswindows allegro) :default)
(defun system-home (system-designator &optional (errorp t))
(if (find-package :asdf)
(funcall (read-from-string "asdf:system-source-directory") system-designator)
(when errorp (error "~&glisp:system-home was called, but cannot function because asdf is not loaded.~%"))))
(defparameter *genworks-source-home* nil)
......@@ -303,7 +301,7 @@
(dolist (feature features)
(dolist (feature (make-versioned-features feature))
(unless (or (null feature) (glisp:featurep feature))
(format t "~&Pushing ~s onto *features* list.~%" feature)
(format t "~&Pushing ~s onto *features*.~%" feature)
(push feature *features*)
(setq anything-changed? t)))) anything-changed?))
......@@ -311,7 +309,7 @@
#-allegro(warn "Find out how to retitle relevant windows in currently running lisp.~%")
(defun set-window-titles ()
#+(and allegro mswindows)
(excl:console-control :title "Genworks GenDL Console")
(excl:console-control :title "Genworks Gendl™ Console")
(retitle-emacs))
#-(or allegro lispworks abcl) (warn "Find out how to get the source-pathname in current lisp.")
......@@ -327,7 +325,7 @@
(defun retitle-emacs (&key (title "Genworks GenDL Interactive Authoring Environment"))
(defun retitle-emacs (&key (title "Genworks Gendl™ Interactive Authoring Environment"))
"Retitles the associated GDL emacs window with the specified title.
:arguments (title \"The title to be placed on emacs title bar.\")"
......@@ -339,6 +337,22 @@
(lep::eval-in-emacs (concatenate 'string "(frame-retitle \"" title "\")"))))
(defun system-description (system-designator &optional (errorp t))
(let (description (home (system-home system-designator errorp)))
(when home
(let ((description-file (merge-pathnames "description.isc" home)))
(when (probe-file description-file)
(setq description
(with-open-file (in description-file) (read in))))))
(or description (format nil "~a Subsystem" system-designator))))
(defun system-home (system-designator &optional (errorp t))
(if (find-package :asdf)
(funcall (read-from-string "asdf:system-source-directory") system-designator)
(when errorp (error "~&glisp:system-home was called, but cannot function because asdf is not loaded.~%"))))
(defun upcase (string)
"Upcases the string, except in Allegro-CL's case-sensitive-lower mode, in which case the string is not modified."
#-allegro (string-upcase string)
......@@ -347,59 +361,10 @@
(:case-sensitive-lower string)))
(defmacro w-o-interrupts (&body body)
(format t "~&NOTE: from glisp:w-o-interrupts: without-interrupts is deprecated in multiprocessing Lisp - using progn - replace usage with something else e.g. process-locks.~%")
#-(or allegro lispworks cmu sbcl ccl abcl clisp)
(error "Need implementation for without-interrupts for currently running lisp.~%")
`(#+allegro progn ;; excl:without-interrupts
#+(or lispworks ccl abcl ecl clisp) progn
#+cmu system:without-interrupts
#+sbcl sb-sys:without-interrupts
,@body))
#-(or allegro lispworks)
(warn "Need implementation for xref-off for the currently running lisp.~%")
#-(or allegro lispworks)
(defun xref-off (&optional include-source-info?)
(declare (ignore include-source-info?))
(warn "Need implementation for xref-off for the currently running lisp.~%"))
#+(or allegro lispworks)
(defun xref-off (&optional include-source-info?)
(when include-source-info?
(setq #+allegro excl:*load-source-file-info*
#+lispworks lw:*record-source-files*
nil)
(setq #+allegro excl:*record-source-file-info*
#+lispworks compiler:*source-file-recording*
nil))
(setq #+allegro excl:*load-xref-info*
#+lispworks compiler:*load-xref-info*
nil)
(setq #+allegro excl:*record-xref-info*
#+lispworks compiler:*produce-xref-info*
nil))
#-(or allegro lispworks)
(warn "Need implementation for xref-off for the currently running lisp.~%")
#-(or allegro lispworks)
(defun xref-on (&optional include-source-info?)
(declare (ignore include-source-info?))
(warn "Need implementation for xref-off for the currently running lisp.~%"))
#+(or allegro lispworks)
(defun xref-on (&optional include-source-info?)
(when include-source-info?
(setq #+allegro excl:*load-source-file-info*
#+lispworks lw:*record-source-files*
t)
(setq #+allegro excl:*record-source-file-info*
#+lispworks compiler:*source-file-recording*
t))
(setq #+allegro excl:*load-xref-info*
#+lispworks compiler:*load-xref-info*
t)
(setq #+allegro excl:*record-xref-info*
#+lispworks compiler:*produce-xref-info*
t))
(format t "~&NOTE: w-o-interrupts is deprecated and ineffective in an SMP Lisp.
glisp:w-o-interrupts becomes a simple progn currently.
This must be replaced with e.g. appropriate process-locks.~%")
`(progn ,@body))
(defmacro without-package-variance-warnings (&body body)
......
;;
;; Copyright 2002, 2007, 2013 Genworks International and Genworks BV
;; Copyright 2002, 2007, 2013 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
......@@ -21,6 +21,9 @@
(in-package :common-lisp-user)
(defpackage :gendl-boot (:export #:system-description #:system-home))
(eval-when (:compile-toplevel :load-toplevel :execute)
#-(or allegro lispworks sbcl ccl abcl clisp) (error "
......@@ -29,7 +32,27 @@ gdl/base/common/genworks.lisp.
Also, PortableAllegroserve is needed for the web framework.
If you are interested in this effort we would love to hear from you at open-source@genworks.com.
" (lisp-implementation-type)))
" (lisp-implementation-type))
;;
;; Copied here from ./genworks.lisp for bootstrapping purposes.
;;
(defun gendl-boot:system-description (system-designator &optional (errorp t))
(let (description (home (gendl-boot:system-home system-designator errorp)))
(when home
(let ((description-file (merge-pathnames "description.isc" home)))
(when (probe-file description-file)
(setq description
(with-open-file (in description-file) (read in))))))
(or description (format nil "~a Subsystem" system-designator))))
(defun gendl-boot:system-home (system-designator &optional (errorp t))
(if (find-package :asdf)
(funcall (read-from-string "asdf:system-source-directory") system-designator)
(when errorp (error "~&glisp:system-home was called, but cannot function because asdf is not loaded.~%")))))
(defpackage :gendl
......@@ -38,7 +61,7 @@ If you are interested in this effort we would love to hear from you at open-sour
;; "gendl" is name of overall system.
;;
(:nicknames :gdl :genworks :base)
(:documentation "Base Gendl")
(:documentation #.(gendl-boot:system-description :base))
(:use :common-lisp)
(:shadow #:the)
(:export #:%bottom-margin%
......@@ -260,130 +283,132 @@ If you are interested in this effort we would love to hear from you at open-sour
#-(or allegro lispworks sbcl ccl abcl ecl clisp) (error "Need package for mop:validate-superclass for currently running lisp.~%")
(defpackage :com.genworks.lisp
(:use :common-lisp)
(:shadow #:intern)
(:nicknames :glisp)
(:import-from #+(or allegro abcl) :mop #+lispworks :hcl #+sbcl :sb-mop #+ccl :ccl #+(or ecl clisp) :clos
#:validate-superclass)
(:export
;;
;; Implemented in gdl/base/common/genworks.lisp.
;;
#:*external-text-format*
#:*gdl-home*
#:*gendl-home*
#:*gdl-program-home*
#:*gendl-program-home*
#:*genworks-source-home*
#:*gendl-source-home*
#:*gdl-source-home*
#:basic-command-line-arguments
#:begin-redefinitions-ok
#:current-directory
#:define-constant
#:direct-superclasses
#:direct-superclass-names
#:display-startup-banner
#:end-redefinitions-ok
#:ensure-string
#:eql-specializer
#:executable-homedir-pathname
#:featurep
#:find-feature-version
#:gl-class-name
#:gl-method-specializers
#:hex-string-to-integer
#:intern
#:make-sans-value-equalp-hash-table
#:make-sans-value-hash-table
#:make-weak-hash-table
#:make-versioned-features
#:set-default-float-format
#:set-default-package
#:set-defpackage-behavior
#:set-local-compiler-tweaks
#:set-features
#:set-settings
#:set-window-titles
#:sexpr-from-file
#:source-pathname
#:system-home
#:set-genworks-source-home-if-known
#:upcase
#:validate-superclass
#:with-definition-unit
#:without-package-variance-warnings
#:w-o-interrupts
#:xref-off
#:xref-on
(defpackage :glisp
(:documentation #.(gendl-boot:system-description :glisp))
(:use :common-lisp)
(:shadow #:intern)
(:nicknames :com.genworks.lisp)
(:import-from #+(or allegro abcl) :mop #+lispworks :hcl #+sbcl :sb-mop #+ccl :ccl #+(or ecl clisp) :clos
#:validate-superclass)
(:export
;;
;; Implemented in gdl/base/common/genworks.lisp.
;;
#:*external-text-format*
#:*gdl-home*
#:*gendl-home*
#:*gdl-program-home*
#:*gendl-program-home*
#:*genworks-source-home*
#:*gendl-source-home*
#:*gdl-source-home*
#:basic-command-line-arguments
#:begin-redefinitions-ok
#:current-directory
#:define-constant
#:direct-superclasses
#:direct-superclass-names
#:display-startup-banner
#:end-redefinitions-ok
#:ensure-string
#:eql-specializer
#:executable-homedir-pathname
#:featurep
#:find-feature-version
#:gl-class-name
#:gl-method-specializers
#:hex-string-to-integer
#:intern
#:make-sans-value-equalp-hash-table
#:make-sans-value-hash-table
#:make-weak-hash-table
#:make-versioned-features
#:set-default-float-format
#:set-default-package
#:set-defpackage-behavior
#:set-local-compiler-tweaks
#:set-features
#:set-settings
#:set-window-titles
#:sexpr-from-file
#:source-pathname
#:system-description
#:system-home
#:set-genworks-source-home-if-known
#:upcase
#:validate-superclass
#:with-definition-unit
#:without-package-variance-warnings
#:w-o-interrupts
#:xref-off
#:xref-on
#:*fasl-extension*
#:concatenate-fasls
#:directory-list
#:file-directory-p
#:temporary-folder
#:temporary-file
#:find-gs-path
#:get-pid
#:run-gs
#:set-gs-path
#:run-program
#:run-shell-command
#:*enable-utf8?*
#:*base64-encode-func*
#:*base64-decode-func*
#:class-slots
#:gc-full
#:get-backtrace
#:initialize-multiprocessing
#:local-port
#:match-regexp
#:patches-dir
#:process-run-function
#:remote-host
#:replace-regexp
#:room-report
#:slot-definition-name
#:snap-folder
#:socket-bytes-written
#:split-regexp
#:with-heuristic-case-mode
#:with-timeout-sym
#:with-timeout
#:without-redefinition-warnings
#:close-old-areas
#:open-old-areas
#:get-mem-info
#:gc-scavenge
#:copy-directory
#:copy-file
#:delete-directory-and-files
#:dump-memory
#:implementation-identifier
#:make-gdl-app
#:make-gendl-app
#:next-datestamp
#:autoloaded-packages
#:package-documentation
#:function-documentation
#:variable-documentation
#:*fasl-extension*
#:concatenate-fasls
#:directory-list
#:file-directory-p
#:temporary-folder
#:temporary-file
#:find-gs-path
#:get-pid
#:run-gs
#:set-gs-path
#:run-program
#:run-shell-command
#:*enable-utf8?*
#:*base64-encode-func*
#:*base64-decode-func*
#:class-slots
#:gc-full
#:get-backtrace
#:initialize-multiprocessing
#:local-port
#:match-regexp
#:patches-dir
#:process-run-function
#:remote-host
#:replace-regexp
#:room-report
#:slot-definition-name
#:snap-folder
#:socket-bytes-written
#:split-regexp
#:with-heuristic-case-mode
#:with-timeout-sym
#:with-timeout
#:without-redefinition-warnings
#:close-old-areas
#:open-old-areas
#:get-mem-info
#:gc-scavenge
#:copy-directory
#:copy-file
#:delete-directory-and-files
#:dump-memory
#:implementation-identifier
#:make-gdl-app
#:make-gendl-app
#:next-datestamp
#:autoloaded-packages
#:package-documentation
#:function-documentation
#:variable-documentation
#:parse-xml
))
#:parse-xml
))