Commit e67934b3 authored by Dave Cooper's avatar Dave Cooper

releasing 1583

parent e26555f5
;;;; -*- encoding: utf-8; -*-
;;;; -*- 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)"
:author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:gwl-graphics)
:version "20130706" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tasty :description
"The Gendl™ Web-based Development Environment (tasty)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:tree :gwl-graphics)
:version "20130706" :depends-on (:tree :gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:translators :description
"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 "20130501" :depends-on (:gwl)
:version "20130706" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "xml/source/package") (:file "xml/source/genworks")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:tree :description
"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 "20130501" :depends-on (:gwl-graphics)
:version "20130706" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:yadd :description
"The Gendl™ Yet Another Definition Documenter (yadd)" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:gwl-graphics)
:version "20130706" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:base :description
"The Gendl™ Base Core Kernel Engine" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on nil
:serial t :version "20130706" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/genworks")
......
......@@ -90,8 +90,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*error-on-reserved-words?*
#:*force-restore-slot-default?*
#:*gdl-init-functions*
#:*genworks-oss-svn-version*
#:*genworks-svn-version*
#:*gendl-version*
#:*ghostscript-path*
#:*gs-path*
#:*load-documentation-database?*
......
......@@ -21,6 +21,8 @@
(in-package :gdl)
(defparameter *gendl-version* "1583")
(eval-when (compile load eval)
(when (not (boundp '*production-build?*)) (defvar *production-build?* nil)))
......
;;;; -*- encoding: utf-8; -*- ;
;;;; -*- coding: utf-8 -*- ;
;;
;; Copyright 2002-2011 Genworks International
;;
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:cl-lite :description
"The Gendl™ Compile-and-Load Lite Utility" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on (:glisp)
:serial t :version "20130706" :depends-on (:glisp)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/parameters")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:bus :description
"The Gendl™ Wireframe School Bus Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on (:gwl-graphics)
:serial t :version "20130706" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:ledger :description
"The Gendl™ Ledger Bookkeeping Demo" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on (:gwl)
:serial t :version "20130706" :depends-on (:gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:robot :description
"The Gendl™ Simplified Android Robot example " :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:gwl-graphics)
:version "20130706" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/assembly")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:wire-world :description
"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 "20130501" :depends-on (:gwl-graphics)
:version "20130706" :depends-on (:gwl-graphics)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components ((:file "source/package") (:file "source/assembly")))
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:examples :description
"The Gendl™ examples Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130706" :depends-on nil
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/ch2-examples") (:file "source/ch3-examples")
(:gdl "source/primi-plane") (:gdl "source/ui-primi-plane")))
......@@ -14,6 +14,17 @@
(require 'cl)
(defun maximize-frame ()
"Maximizes the active frame in Windows"
(interactive)
;; Send a `WM_SYSCOMMAND' message to the active frame with the
;; `SC_MAXIMIZE' parameter.
(when (eq system-type 'windows-nt) (w32-send-sys-command 61488))
(unless (eq system-type 'windows-nt) (set-frame-parameter nil 'fullscreen 'maximized)))
(add-hook 'window-setup-hook 'maximize-frame t)
;; 2. WHERE ARE WE?
(defvar *gendl-home* (file-truename (concat (file-name-directory (file-truename load-file-name)) "../")))
......@@ -161,13 +172,9 @@
(slime-repl)
(insert "(unless (find-package :gendl) (load (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname))))")
(slime-repl-return)
(insert (format "(load (compile-file \"%s/emacs/glime.lisp\"))" *gendl-home*))
(insert (format "(load (compile-file \"%semacs/glime.lisp\"))" *gendl-home*))
(slime-repl-return)
(insert "(gendl:start-gendl!)")
(slime-repl-return)
(insert (format "(format nil \"Also contains ~a, and Quicklisp libraries from:
%s.
Thank You to their respective authors and maintainers.\" (lisp-implementation-type))" (concat *gendl-home* "quicklisp/")))
(insert "(gdl::startup-banner)")
(slime-repl-return)
(insert "(in-package gdl-user)")
(slime-repl-return)
......@@ -191,15 +198,16 @@ Thank You to their respective authors and maintainers.\" (lisp-implementation-ty
;; 4.4. Prior to SLIME
(defun prior-to-glime ()
(find-file (concat *gendl-home* "emacs/README.txt"))
(toggle-read-only)
(let ((frame-title "Genworks® Gendl™ Interactive Authoring Environment"))
(modify-frame-parameters nil (list (cons 'name frame-title))))
(setq inhibit-splash-screen t)
(cd "~/")
(set-frame-parameter nil 'fullscreen 'maximized))
(cd "~/"))
(defun load-user-emacs-glime ()
(when (file-exists-p "~/.emacs-glime") (load-file "~/.emacs-glime"))
......
......@@ -112,11 +112,12 @@
,setter))))))
#-:lispworks
(defmacro when-let (binding &body body)
(destructuring-bind (var val) binding
`(let ((,var ,val))
(when ,var
,@body))))
(glisp:without-redefinition-warnings
(defmacro when-let (binding &body body)
(destructuring-bind (var val) binding
`(let ((,var ,val))
(when ,var
,@body)))))
#||
#-:lispworks
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:geom-base :description
"The Gendl™ Wireframe Geometry" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:glisp)
:version "20130706" :depends-on (:glisp)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "prereqs/source/presets")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:glisp :description
"The Gendl™ Common Lisp Portability" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on
:serial t :version "20130706" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :acl-compat)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:gwl-graphics :description
"The Gendl™ GWL embedded graphics support" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on (:geom-base :gwl)
:serial t :version "20130706" :depends-on (:geom-base :gwl)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "gwl/source/application-mixin")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:gwl :description
"The Gendl™ Generative Web Language (GWL)" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20130501" :depends-on (:glisp :aserve)
:serial t :version "20130706" :depends-on (:glisp :aserve)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/package") (:file "source/defparameters")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:regression :description
"The Gendl™ regression Subsystem" :author "John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:lift :surf :tasty)
:version "20130706" :depends-on (:lift :surf :tasty)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "utils/source/package") (:file "utils/source/genworks")
......
;;;; -*- encoding: utf-8; -*-
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:surf :description
"The Gendl™ NURBS Surface and Solids Geometry Primitives" :author
"John McCarthy" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20130501" :depends-on (:geom-base)
:version "20130706" :depends-on (:geom-base)
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:components
((:file "source/parameters") (:file "source/classes")
......
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