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

did release 1585p002

parent 3a83fe5a
......@@ -4,7 +4,7 @@
"The Gendl™ (legacy) Testing and Tracking Utility, version 2 (using Ajax but pre-gdlAjax, and no JQuery or CSS)"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:gwl-graphics)
:serial t :version "20140204" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Web-based Development Environment (tasty)" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:tree :gwl-graphics)
:serial t :version "20140204" :depends-on (:tree :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:gwl)
:serial t :version "20140204" :depends-on (:gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Tree component used by Tasty and potentially as a UI component on its own"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:gwl-graphics)
:serial t :version "20140204" :depends-on (:gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Yet Another Definition Documenter (yadd)" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on
:serial t :version "20140204" :depends-on
(:gwl-graphics #-allegro :cl-html-parse)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -4,7 +4,7 @@
"The Gendl™ Base Core Kernel Engine" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on nil
:serial t :version "20140204" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Compile-and-Load Lite Utility" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:glisp)
:serial t :version "20140204" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,8 +4,7 @@
"The Gendl™ Wireframe School Bus Demo" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on
(#-gwl-graphics :gwl-graphics)
:serial t :version "20140204" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
"(#-gwl-graphics :gwl-graphics)"
\ No newline at end of file
nil
\ No newline at end of file
......@@ -4,7 +4,7 @@
"The Gendl™ Ledger Bookkeeping Demo" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on
:serial t :version "20140204" :depends-on
(#-gwl :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
"(#-gendl :gwl-graphics)"
\ No newline at end of file
nil
\ No newline at end of file
......@@ -4,8 +4,7 @@
"The Gendl™ Simplified Android Robot example " :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on
(#-gendl :gwl-graphics)
:serial t :version "20140204" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author "Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on
:serial t :version "20140204" :depends-on
(#-gwl-graphics :gwl-graphics)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
......
......@@ -4,7 +4,7 @@
"The Gendl™ examples Subsystem" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:gwl-graphics :surf)
:serial t :version "20140204" :depends-on (:gwl-graphics :surf)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -15,6 +15,8 @@
(require 'cl)
(defvar *default-font-size* 15)
(defun maximize-frame ()
"Maximizes the active frame in Windows"
(interactive)
......@@ -90,16 +92,13 @@
;;(global-set-key (kbd "C-m") 'newline-and-indent)
)
(gdl:global-keys)
;; 3.5. Font
(defun gdl:set-font ()
(interactive)
(let ((font-size (1+ (/ (display-pixel-height) 100))))
(let ((font-size *default-font-size*)) ;; (/ (display-mm-height) 16)
(set-frame-font
(format
(case system-type
......@@ -126,19 +125,24 @@
;;
;; 4.1. Some synonyms
(defun gendl () (interactive)
(defun gendl (&optional exe) (interactive)
(add-hook 'slime-connected-hook 'load-and-or-start-gendl t)
;;(add-hook 'slime-connected-hook 'load-base-ql)
(add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
(add-to-list 'auto-mode-alist '("\\.gdl\\'" . lisp-mode))
(add-to-list 'auto-mode-alist '("\\.gendl\\'" . lisp-mode))
(with-temp-buffer (cd *gendl-home*) (slime)))
(defun gdl () (interactive) (gendl))
(with-temp-buffer (cd *gendl-home*) (slime exe)))
(defun gdl () (interactive) (gendl 'gdl))
(defun agdl8 () (interactive) (gendl 'agdl8))
(defun glime () (interactive) (gendl))
(defun gdl-quit () (interactive) (slime-quit-lisp))
(defun gq () (interactive) (gdl-quit))
(defun gendl-quit () (interactive) (gdl-quit))
(defun quit-gendl () (interactive) (gdl-quit))
(defun quit-gdl () (interactive) (gdl-quit))
;; 4.2. Locate Common Lisp / Locate SLIME
......@@ -191,26 +195,37 @@
(slime-repl-return))
(defvar gdl-startup-string
(format
"(progn (unless (find-package :gendl)
(let ((load-file (or (probe-file (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname)))
(probe-file \"c:/users/dcooper8/.load-gendl.lisp\"))))
(load load-file)))
(when (and (find-package :gendl) (find-package :swank))
(load (compile-file \"%semacs/glime.lisp\"
:output-file
(merge-pathnames
(make-pathname :name \"glime\"
:type (symbol-value
(read-from-string \"glisp:*fasl-extension*\")))
(funcall (symbol-function (read-from-string \"glisp:temporary-folder\")))))))
(when (find-package :gendl) (funcall (symbol-function (read-from-string \"gendl::startup-banner\"))))
(let ((gendl-loaded? (find-package :gendl)) (genworks-gdl-loaded? (find-package :genworks-gdl)))
(cond (genworks-gdl-loaded? (funcall (symbol-function (read-from-string \"gdl:start-gdl!\"))))
(gendl-loaded? (funcall (symbol-function (read-from-string \"gendl:start-gendl!\"))))
(t (format t \"~%%~%%***~%%Gendl or GDL is not loaded and did not load successfully from .load-gendl.lisp in your home directory.~%%***~%%~%%\"))))
(when (find-package :gendl) (in-package :gdl-user)))" *gendl-home*))
(defun load-and-or-start-gendl ()
(slime-repl)
(insert "(unless (find-package :gendl)
(let ((load-file (or (probe-file (merge-pathnames \".load-gendl.lisp\" (user-homedir-pathname)))
(probe-file \"c:/users/dcooper8/.load-gendl.lisp\"))))
(load load-file)))")
(slime-repl-return)
(insert (format "(when (find-package :gendl) (load (compile-file \"%semacs/glime.lisp\")))" *gendl-home*))
(slime-repl-return)
(insert "(when (find-package :gendl) (funcall (symbol-function (read-from-string \"gendl::startup-banner\"))))")
(slime-repl-return)
(insert "(let ((gendl-loaded? (find-package :gendl)) (genworks-gdl-loaded? (find-package :genworks-gdl)))
(cond (genworks-gdl-loaded? (funcall (symbol-function (read-from-string \"gdl:start-gdl!\"))))
(gendl-loaded? (funcall (symbol-function (read-from-string \"gendl:start-gendl!\"))))
(t (format t \"~%~%***~%Gendl or GDL is not loaded and did not load successfully from .load-gendl.lisp in your home directory.~%***~%~%\"))))")
(slime-repl-return)
(insert "(when (find-package :gendl) (in-package :gdl-user))")
(insert gdl-startup-string)
(slime-repl-return)
(end-of-buffer))
(defun set-slime-shortcuts ()
"Set keybindings for switching to slime buffers"
(interactive)
......@@ -263,7 +278,59 @@
;; 5. MAKE IT HAPPEN
(prior-to-glime)
(glime)
;;
;; FLAG -- conditionalize based on running slime or ELI
;;
;;(glime)
(defvar *eli-init* (concat *gendl-home* "program/eli/fi-site-init.el"))
(when (file-exists-p *eli-init*)
(defun get-executable (exe-name)
(let* ((info (assoc exe-name slime-lisp-implementations )))
(replace-regexp-in-string
"/program/program/" "/program/"
(case system-type
(windows-nt
(concat (file-name-directory (first (second info)))
(replace-regexp-in-string "\\\\" "/" (second (second info)))))
((darwin gnu/linux)
(first (second info)))))))
(defvar gdl:*gdl-toplevel-base* "*gdl toplevel*")
(defun agdl8e () (interactive)
(gdl-devo (get-executable 'agdl8)))
(defun gdle () (interactive)
(gdl-devo (get-executable 'gdl)))
(defun gdl-devo (executable)
(interactive)
(load-file *eli-init*)
(setq gdl:*gdl-toplevel*
(concat gdl:*gdl-toplevel-base*
(if (equalp (subseq (file-name-sans-extension (file-name-nondirectory executable))
0 1) "a")
"(ANSI)" "(modern)")))
(fi:common-lisp gdl:*gdl-toplevel* *gendl-home* executable nil)
(global-set-key "\C-x&" '(lambda()(interactive) (switch-to-buffer gdl:*gdl-toplevel*)))
(switch-to-buffer gdl:*gdl-toplevel*)
(end-of-buffer)
(goto-char (point-max))
(insert gdl-startup-string)
(fi:inferior-lisp-newline)
(end-of-buffer)))
......
......@@ -4,7 +4,7 @@
"The Gendl™ Wireframe Geometry" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:glisp)
:serial t :version "20140204" :depends-on (:glisp)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Common Lisp Portability" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on
:serial t :version "20140204" :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
......
......@@ -672,7 +672,8 @@ please find implementation for the currently running lisp.~%")
(append
(mapcar #'(lambda(option) (concatenate 'string "--" option)) long-form-options)
(list (expanded-pathname-string (namestring source)))
(list (expanded-pathname-string (namestring dest)))))))))
(list (if (search ":" (namestring dest)) dest
(expanded-pathname-string (namestring dest))))))))))
(when (or print-command? dry-run?) (format t "~s~%" command-list))
(unless dry-run?
(uiop:with-current-directory (directory)
......
......@@ -4,7 +4,7 @@
"The Gendl™ GWL embedded graphics support" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:geom-base :gwl)
:serial t :version "20140204" :depends-on (:geom-base :gwl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
......@@ -4,7 +4,7 @@
"The Gendl™ Generative Web Language (GWL)" :author
"Dave Cooper and Genworks International" :license
"Gnu Affero General Public License (please see http://www.gnu.org/licenses/)"
:serial t :version "20140122" :depends-on (:glisp :aserve)
:serial t :version "20140204" :depends-on (:glisp :aserve)
#-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