...
 
Commits (2)
......@@ -3,12 +3,13 @@
(asdf:defsystem #:geysr :description
"The Gendl® geysr Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20181012" :depends-on nil
:serial t :version "20181129" :depends-on nil
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:gdl "source/package") (:gdl "source/assembly")
(:gdl "source/initialize") (:gdl "source/inspector")
(:gdl "source/menu-node") (:gdl "source/menu") (:gdl "source/tree")
(:gdl "source/user-inputs") (:gdl "source/viewport")))
(:gdl "source/menu-node") (:gdl "source/menu")
(:file "source/parameters") (:gdl "source/tree")
(:gdl "source/viewport") (:gdl "source/zzinit")))
......@@ -23,35 +23,6 @@
(define-object geysr-robot (assembly)
:computed-slots ((root-object-type (read-from-string "robot:assembly"))))
(define-object geysr-dragster (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::dragster-assembly"))))
(define-object geysr-glider (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::glider-assembly"))))
(define-object geysr-green-car (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::green-car-assembly"))))
(define-object geysr-mousetrap-car (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::mousetrap-car-assembly"))))
(define-object geysr-structures (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::structures-assembly"))))
(define-object geysr-shelter (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::shelter-assembly"))))
(define-object geysr-rover (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::rover-assembly"))))
(define-object geysr-water-rocket (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::water-rocket-assembly"))))
(define-object geysr-parm (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::parm-assembly"))))
(define-object geysr-wind-turbine (assembly)
:computed-slots ((root-object-type (read-from-string "wbl::wind-turbine-assembly"))))
(define-object geysr-cpacs (assembly)
:computed-slots ((root-object-type (read-from-string "xml-tree"))))
......@@ -69,11 +40,9 @@
(error "~&Geysr System Home not found, needed for its static/.~%"))))
(static (namestring (merge-pathnames "static/" directory))))
(print-variables directory static)
(with-all-servers (server)
(mapc #'(lambda(prefix file)
(print-variables prefix file)
(publish-directory :prefix prefix :server server :destination file))
`("/geysr-static")
`(,static))
......@@ -86,20 +55,13 @@
(publish-gwl-app "/geysr-missile" 'geysr-missile)
(publish-gwl-app "/geysr-robot" 'geysr-robot)
(publish-gwl-app "/geysr-dragster" 'geysr-dragster)
(publish-gwl-app "/geysr-glider" 'geysr-glider)
(publish-gwl-app "/geysr-green-car" 'geysr-green-car)
(publish-gwl-app "/geysr-mousetrap-car" 'geysr-mousetrap-car)
(publish-gwl-app "/geysr-parm" 'geysr-parm)
(publish-gwl-app "/geysr-rover" 'geysr-rover)
(publish-gwl-app "/geysr-shelter" 'geysr-structures)
(publish-gwl-app "/geysr-structures" 'geysr-structures)
(publish-gwl-app "/geysr-water-rocket" 'geysr-water-rocket)
(publish-gwl-app "/geysr-wind-turbine" 'geysr-wind-turbine)
(publish-gwl-app "/geysr-cpacs" 'geysr-cpacs)
(publish-gwl-app "/geysr-pp" 'geysr-primi-plane))))
(publish-gwl-app "/geysr-pp" 'geysr-primi-plane)
)))
;;(initialize!)
;;
;; Copyright 2002, 2009 Genworks International and Genworks BV
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; 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 :geysr)
(defparameter *these-features* (list :geysr))
(defparameter *settings* nil)
(in-package :geysr)
(define-object user-inputs (sheet-section)
:input-slots (root-object)
:computed-slots
((inner-html (defaulting (the root-object pui inner-html) nil))))
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
;; 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 :geysr)
(glisp:set-features *these-features*)
":gendl-asdf"
\ No newline at end of file
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:gendl-asdf
:description "asdf gendl artifacts loading"
:serial t
:version "20161111"
:depends-on (#:gwl) ;; TODO reduce this one to a minimal dependency
:components ((:file "gendl-asdf")))
;;;; -*- coding: utf-8 -*-
(in-package :gdl-user)
(defclass asdf::gdl (asdf::cl-source-file) ((type :initform "gdl")))
(defclass asdf::gendl (asdf::cl-source-file) ((type :initform "gendl")))
(defclass asdf::lisp (asdf::cl-source-file) ())
......@@ -3,9 +3,9 @@
(asdf:defsystem #:gendl :description
"The Gendl® gendl Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20181128" :depends-on
:serial t :version "20181129" :depends-on
(:gwl-graphics :tasty :geysr :robot :yadd :cl-lite)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings :gendl-asdf)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode (:gendl-asdf)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components nil)