Commit f33602e7 authored by Dave Cooper's avatar Dave Cooper

correct build for Allegro ANSI mode

parent fececd45
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ta2 :description
"The Gendl (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
"The Gendl\" (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:gwl-graphics)
:version "20140601" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tasty :description
"The Gendl Web-based Development Environment (tasty)" :author
"The Gendl\" Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:tree :gwl-graphics)
:version "20140601" :depends-on (:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:translators :description
"The Gendl Translators to/from XML and potentially other high-level KBE and Knowledge formats"
"The Gendl\" Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:gwl)
:version "20140601" :depends-on (:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tree :description
"The Gendl Tree component used by Tasty and potentially as a UI component on its own"
"The Gendl\" Tree component used by Tasty and potentially as a UI component on its own"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:gwl-graphics)
:version "20140601" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -138,7 +138,7 @@ If you specify :part-symbol-supplied, do not specify :instance-supplied."))
((:div :class "gdl-object-def")
"(" ((:span :class "gdl-operator") "define-object") " "
((:span :class "gdl-defined-symbol") (str (the part-full-symbol)))
(fmt " (~{~a~^ ~})" (remove 'vanilla-mixin (the mixins-list))))
(fmt " (~{~a~^ ~})" (remove 'gdl::vanilla-mixin (the mixins-list))))
(mapc #'(lambda(section)
(str (with-output-to-string (*html-stream*)
......
......@@ -26,7 +26,7 @@
(append (list :win :windows :regexp)
(remove-duplicates
#-allegro nil
#+allegro (mapcar #'(lambda(pair) (intern (first pair) :keyword)) excl::*autoload-package-name-alist*)
#+allegro (mapcar #'rest excl::*autoload-package-name-alist*)
)))
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:yadd :description
"The Gendl Yet Another Definition Documenter (yadd)" :author
"The Gendl\" Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on
:version "20140601" :depends-on
(:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:base :description
"The Gendl Base Core Kernel Engine" :author "John McCarthy"
"The Gendl\" Base Core Kernel Engine" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on nil
:serial t :version "20140601" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:cl-lite :description
"The Gendl Compile-and-Load Lite Utility" :author "John McCarthy"
"The Gendl\" Compile-and-Load Lite Utility" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on (:glisp)
:serial t :version "20140601" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:bus :description
"The Gendl Wireframe School Bus Demo" :author "John McCarthy"
"The Gendl\" Wireframe School Bus Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on (:gwl-graphics)
:serial t :version "20140601" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ledger :description
"The Gendl Ledger Bookkeeping Demo" :author "John McCarthy"
"The Gendl\" Ledger Bookkeeping Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on
:serial t :version "20140601" :depends-on
(#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:robot :description
"The Gendl Simplified Android Robot example " :author
"The Gendl\" Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:gwl-graphics)
:version "20140601" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:wire-world :description
"The Gendl Wire-World demo and test-case for wireframe tessellation and X3D output"
"The Gendl\" Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on
:version "20140601" :depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:examples :description
"The Gendl examples Subsystem" :author "John McCarthy" :license
"The Gendl\" examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:gwl-graphics :surf)
:version "20140601" :depends-on (:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -258,8 +258,11 @@
(defun load-user-emacs-glime ()
(when (file-exists-p "~/.emacs-glime") (load-file "~/.emacs-glime"))
(when (file-exists-p "~/.emacs-glime.el") (load-file "~/.emacs-glime.el")))
(when (file-exists-p "~/.emacs-glime.el") (load-file "~/.emacs-glime.el"))
(when (file-exists-p "~/.emacs-gendl") (load-file "~/.emacs-gendl"))
(when (file-exists-p "~/.emacs-gendl.el") (load-file "~/.emacs-gendl.el")))
(load-user-emacs-glime)
(ignore-errors
(require 'package)
......@@ -310,7 +313,7 @@
(gdl-devo (get-executable 'agdl8)))
(defun gdle () (interactive)
(gdl-devo (get-executable 'gdle)))
(gdl-devo (get-executable 'gdl)))
(defun gdl-devo (executable)
(interactive)
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:geom-base :description
"The Gendl Wireframe Geometry" :author "John McCarthy" :license
"The Gendl\" Wireframe Geometry" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:glisp)
:version "20140601" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:glisp :description
"The Gendl Common Lisp Portability" :author "John McCarthy"
"The Gendl\" Common Lisp Portability" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on
:serial t :version "20140601" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:gwl-graphics :description
"The Gendl GWL embedded graphics support" :author "John McCarthy"
"The Gendl\" GWL embedded graphics support" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on (:geom-base :gwl)
:serial t :version "20140601" :depends-on (:geom-base :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:gwl :description
"The Gendl Generative Web Language (GWL)" :author "John McCarthy"
"The Gendl\" Generative Web Language (GWL)" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140515" :depends-on (:glisp :aserve)
:serial t :version "20140601" :depends-on (:glisp :aserve)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -69,7 +69,11 @@ by user application code.")
(defun make-new-instance-id (&key (max-value *max-id-value*))
(let ((*print-base* 16) (universal-time (get-universal-time))
(random (random max-value *iid-random-state*)))
(format nil "~a~a" random universal-time)))
(let ((string (format nil "~a~a" random universal-time)))
(if (and (glisp:featurep :allegro)
(eql (symbol-value (read-from-string "excl:*current-case-mode*"))
:case-insensitive-upper))
(string-upcase string) string))))
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:regression :description
"The Gendl regression Subsystem" :author "John McCarthy" :license
"The Gendl\" regression Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:lift :surf :tasty)
:version "20140601" :depends-on (:lift :surf :tasty)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:surf :description
"The Gendl NURBS Surface and Solids Geometry Primitives" :author
"The Gendl\" NURBS Surface and Solids Geometry Primitives" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20140515" :depends-on (:geom-base)
:version "20140601" :depends-on (:geom-base)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
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