Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
G
gendl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
47
Issues
47
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gendl
gendl
Commits
46e50d25
Commit
46e50d25
authored
Oct 16, 2017
by
Dave Cooper
Browse files
Options
Browse Files
Download
Plain Diff
Merge tag '1592' into devo
Merging release 1592 with devo and master.
parents
2f8349cc
3ecc4eba
Changes
136
Hide whitespace changes
Inline
Side-by-side
Showing
136 changed files
with
313973 additions
and
17715 deletions
+313973
-17715
.gitignore
.gitignore
+1
-0
apps/dom/dom.asd
apps/dom/dom.asd
+18
-17
apps/gorg/gorg.asd
apps/gorg/gorg.asd
+3
-2
apps/graphs/graphs.asd
apps/graphs/graphs.asd
+4
-3
apps/ta2/ta2.asd
apps/ta2/ta2.asd
+17
-16
apps/tasty/tasty.asd
apps/tasty/tasty.asd
+19
-18
apps/timer/timer.asd
apps/timer/timer.asd
+4
-3
apps/translators/translators.asd
apps/translators/translators.asd
+14
-13
apps/tree/tree.asd
apps/tree/tree.asd
+14
-13
apps/yadd/yadd.asd
apps/yadd/yadd.asd
+20
-19
base/base.asd
base/base.asd
+34
-32
base/rest/source/utilities.lisp
base/rest/source/utilities.lisp
+15
-28
base/source/genworks.lisp
base/source/genworks.lisp
+12
-6
base/source/package.lisp
base/source/package.lisp
+6
-0
base/source/parameters.lisp
base/source/parameters.lisp
+1
-1
base/source/start.lisp
base/source/start.lisp
+2
-2
base/source/utilities.lisp
base/source/utilities.lisp
+5
-4
cl-lite/cl-lite.asd
cl-lite/cl-lite.asd
+14
-12
cl-lite/source/cl-lite.lisp
cl-lite/source/cl-lite.lisp
+16
-10
demos/4bar/4bar.asd
demos/4bar/4bar.asd
+4
-4
demos/bus/bus.asd
demos/bus/bus.asd
+27
-25
demos/ledger/ledger.asd
demos/ledger/ledger.asd
+13
-12
demos/robot/robot.asd
demos/robot/robot.asd
+14
-13
demos/wire-world/wire-world.asd
demos/wire-world/wire-world.asd
+12
-11
depends-on.isc
depends-on.isc
+1
-0
documentation/training/g101/questions.txt
documentation/training/g101/questions.txt
+21
-0
documentation/training/g102-tud/examples/examples.asd
documentation/training/g102-tud/examples/examples.asd
+12
-11
documentation/training/g102-tud/images/airfoil.png
documentation/training/g102-tud/images/airfoil.png
+0
-0
documentation/training/g102-tud/images/box-cone-intersect.png
...mentation/training/g102-tud/images/box-cone-intersect.png
+0
-0
documentation/training/g102-tud/images/box-cone-subtract.png
documentation/training/g102-tud/images/box-cone-subtract.png
+0
-0
documentation/training/g102-tud/images/box-cone-unite.png
documentation/training/g102-tud/images/box-cone-unite.png
+0
-0
documentation/training/g102-tud/images/boxed-curves-example.png
...ntation/training/g102-tud/images/boxed-curves-example.png
+0
-0
documentation/training/g102-tud/images/cone-sample.png
documentation/training/g102-tud/images/cone-sample.png
+0
-0
documentation/training/g102-tud/images/cylinder-sample.png
documentation/training/g102-tud/images/cylinder-sample.png
+0
-0
documentation/training/g102-tud/images/five-boxes.png
documentation/training/g102-tud/images/five-boxes.png
+0
-0
documentation/training/g102-tud/images/global-filleted-polygon-projection-sample.png
...-tud/images/global-filleted-polygon-projection-sample.png
+0
-0
documentation/training/g102-tud/images/merged-airfoil.png
documentation/training/g102-tud/images/merged-airfoil.png
+0
-0
documentation/training/g102-tud/images/regioned-airfoil.png
documentation/training/g102-tud/images/regioned-airfoil.png
+0
-0
documentation/training/g102-tud/images/simple-curve.png
documentation/training/g102-tud/images/simple-curve.png
+0
-0
documentation/training/g102-tud/images/simple-surface.png
documentation/training/g102-tud/images/simple-surface.png
+0
-0
documentation/training/g102-tud/images/single-box.png
documentation/training/g102-tud/images/single-box.png
+0
-0
documentation/training/g102-tud/images/sphere-sample.png
documentation/training/g102-tud/images/sphere-sample.png
+0
-0
documentation/training/g102-tud/images/spherical-cap-sample.png
...ntation/training/g102-tud/images/spherical-cap-sample.png
+0
-0
documentation/training/g102-tud/images/tilted-monolith.png
documentation/training/g102-tud/images/tilted-monolith.png
+0
-0
documentation/training/g102-tud/images/torus-sample.png
documentation/training/g102-tud/images/torus-sample.png
+0
-0
documentation/training/g102-tud/slides/source/ch2.lisp
documentation/training/g102-tud/slides/source/ch2.lisp
+1
-1
documentation/training/g102/images/cone-sample.png
documentation/training/g102/images/cone-sample.png
+0
-0
documentation/training/g102/images/cylinder-sample.png
documentation/training/g102/images/cylinder-sample.png
+0
-0
documentation/training/g102/images/five-boxes.png
documentation/training/g102/images/five-boxes.png
+0
-0
documentation/training/g102/images/global-filleted-polygon-projection-sample.png
...g102/images/global-filleted-polygon-projection-sample.png
+0
-0
documentation/training/g102/images/sphere-sample.png
documentation/training/g102/images/sphere-sample.png
+0
-0
documentation/training/g102/images/spherical-cap-sample.png
documentation/training/g102/images/spherical-cap-sample.png
+0
-0
documentation/training/g102/images/tilted-monolith.png
documentation/training/g102/images/tilted-monolith.png
+0
-0
documentation/training/g102/images/torus-sample.png
documentation/training/g102/images/torus-sample.png
+0
-0
documentation/training/g102/slides/source/geometry.lisp
documentation/training/g102/slides/source/geometry.lisp
+26
-9
documentation/training/training.asd
documentation/training/training.asd
+11
-6
documentation/tutorial/tutorial.asd
documentation/tutorial/tutorial.asd
+9
-6
emacs/README.txt
emacs/README.txt
+1
-16
emacs/gdl.el
emacs/gdl.el
+9
-9
gendl.asd
gendl.asd
+11
-23
geom-base/annotations/source/arrowhead.lisp
geom-base/annotations/source/arrowhead.lisp
+86
-47
geom-base/annotations/source/sample-drawing.lisp
geom-base/annotations/source/sample-drawing.lisp
+1
-1
geom-base/annotations/source/tests.lisp
geom-base/annotations/source/tests.lisp
+17
-5
geom-base/drawing/source/base-view.lisp
geom-base/drawing/source/base-view.lisp
+41
-1
geom-base/drawing/source/lenses.lisp
geom-base/drawing/source/lenses.lisp
+435
-371
geom-base/formats/source/dxf.lisp
geom-base/formats/source/dxf.lisp
+4082
-226
geom-base/geom-base.asd
geom-base/geom-base.asd
+62
-61
geom-base/prereqs/source/utilities.lisp
geom-base/prereqs/source/utilities.lisp
+7
-0
geom-base/text/source/general-note.lisp
geom-base/text/source/general-note.lisp
+10
-4
geom-base/wire/source/arc.lisp
geom-base/wire/source/arc.lisp
+10
-1
geom-base/wire/source/line-and-arc-constraints.lisp
geom-base/wire/source/line-and-arc-constraints.lisp
+223
-5
geom-base/wire/source/views.lisp
geom-base/wire/source/views.lisp
+6
-3
glisp/defsystem-depends-on.isc
glisp/defsystem-depends-on.isc
+1
-1
glisp/depends-on.isc
glisp/depends-on.isc
+1
-1
glisp/glisp.asd
glisp/glisp.asd
+5
-3
glisp/source/genworks.lisp
glisp/source/genworks.lisp
+6
-0
gwl-graphics/gwl-graphics.asd
gwl-graphics/gwl-graphics.asd
+20
-18
gwl-graphics/gwl/source/base-ajax-graphics-sheet.lisp
gwl-graphics/gwl/source/base-ajax-graphics-sheet.lisp
+2
-2
gwl/ajax/source/ajax.lisp
gwl/ajax/source/ajax.lisp
+3
-0
gwl/gwl.asd
gwl/gwl.asd
+2
-2
gwl/source/crawler.lisp
gwl/source/crawler.lisp
+13
-6
gwl/source/new-urls.lisp
gwl/source/new-urls.lisp
+3
-1
gwl/source/utilities.lisp
gwl/source/utilities.lisp
+5
-0
gwl/static/3rdpty/x3dom-162/x3dom-dev.js
gwl/static/3rdpty/x3dom-162/x3dom-dev.js
+0
-0
gwl/static/3rdpty/x3dom-162/x3dom.css
gwl/static/3rdpty/x3dom-162/x3dom.css
+232
-0
gwl/static/3rdpty/x3dom-162/x3dom.js
gwl/static/3rdpty/x3dom-162/x3dom.js
+4407
-0
gwl/static/3rdpty/x3dom-162/x3dom.swf
gwl/static/3rdpty/x3dom-162/x3dom.swf
+0
-0
gwl/static/3rdpty/x3dom/AUTHORS
gwl/static/3rdpty/x3dom/AUTHORS
+42
-0
gwl/static/3rdpty/x3dom/LICENSE
gwl/static/3rdpty/x3dom/LICENSE
+42
-0
gwl/static/3rdpty/x3dom/README.md
gwl/static/3rdpty/x3dom/README.md
+124
-0
gwl/static/3rdpty/x3dom/RELEASENOTES.rst
gwl/static/3rdpty/x3dom/RELEASENOTES.rst
+407
-0
gwl/static/3rdpty/x3dom/ammo.js
gwl/static/3rdpty/x3dom/ammo.js
+21351
-0
gwl/static/3rdpty/x3dom/components/BVHRefiner.js
gwl/static/3rdpty/x3dom/components/BVHRefiner.js
+225
-0
gwl/static/3rdpty/x3dom/components/CADGeometry.js
gwl/static/3rdpty/x3dom/components/CADGeometry.js
+96
-0
gwl/static/3rdpty/x3dom/components/Geometry2D.js
gwl/static/3rdpty/x3dom/components/Geometry2D.js
+57
-0
gwl/static/3rdpty/x3dom/components/Geometry3DExt.js
gwl/static/3rdpty/x3dom/components/Geometry3DExt.js
+195
-0
gwl/static/3rdpty/x3dom/components/Geospatial.js
gwl/static/3rdpty/x3dom/components/Geospatial.js
+188
-0
gwl/static/3rdpty/x3dom/components/H-Anim.js
gwl/static/3rdpty/x3dom/components/H-Anim.js
+2
-0
gwl/static/3rdpty/x3dom/components/Layout.js
gwl/static/3rdpty/x3dom/components/Layout.js
+7
-0
gwl/static/3rdpty/x3dom/components/VolumeRendering.js
gwl/static/3rdpty/x3dom/components/VolumeRendering.js
+166
-0
gwl/static/3rdpty/x3dom/dash.all.js
gwl/static/3rdpty/x3dom/dash.all.js
+4843
-0
gwl/static/3rdpty/x3dom/x3dom-1.7.1.zip
gwl/static/3rdpty/x3dom/x3dom-1.7.1.zip
+0
-0
gwl/static/3rdpty/x3dom/x3dom-full-physics.debug.js
gwl/static/3rdpty/x3dom/x3dom-full-physics.debug.js
+96879
-0
gwl/static/3rdpty/x3dom/x3dom-full-physics.js
gwl/static/3rdpty/x3dom/x3dom-full-physics.js
+27337
-0
gwl/static/3rdpty/x3dom/x3dom-full.debug.js
gwl/static/3rdpty/x3dom/x3dom-full.debug.js
+72371
-0
gwl/static/3rdpty/x3dom/x3dom-full.js
gwl/static/3rdpty/x3dom/x3dom-full.js
+5790
-0
gwl/static/3rdpty/x3dom/x3dom.css
gwl/static/3rdpty/x3dom/x3dom.css
+0
-16
gwl/static/3rdpty/x3dom/x3dom.debug.js
gwl/static/3rdpty/x3dom/x3dom.debug.js
+56382
-0
gwl/static/3rdpty/x3dom/x3dom.js
gwl/static/3rdpty/x3dom/x3dom.js
+1050
-588
gwl/zzinit/source/ignore-list.isc
gwl/zzinit/source/ignore-list.isc
+1
-0
gwl/zzinit/source/initialize.lisp
gwl/zzinit/source/initialize.lisp
+125
-11
ignore-list.isc
ignore-list.isc
+2
-0
regression/data/blended-solid-test.data
regression/data/blended-solid-test.data
+11
-10
regression/data/boolean-test.data
regression/data/boolean-test.data
+9
-11
regression/data/box-solid-test.data
regression/data/box-solid-test.data
+11
-12
regression/data/cone-solid-test.data
regression/data/cone-solid-test.data
+7
-7
regression/data/cylinder-solid-test.data
regression/data/cylinder-solid-test.data
+203
-11
regression/data/extruded-solid-test.data
regression/data/extruded-solid-test.data
+9
-9
regression/data/iges-reader-test.data
regression/data/iges-reader-test.data
+8
-8
regression/data/iges-writer-test-2.data
regression/data/iges-writer-test-2.data
+7
-7
regression/data/iges-writer-test.data
regression/data/iges-writer-test.data
+8
-8
regression/data/intersected-solid-test.data
regression/data/intersected-solid-test.data
+19
-22
regression/data/native-reader-test.data
regression/data/native-reader-test.data
+8
-8
regression/data/round-trip-2.igs
regression/data/round-trip-2.igs
+3062
-3059
regression/data/round-trip.igs
regression/data/round-trip.igs
+11772
-11765
regression/data/round-trip.stp
regression/data/round-trip.stp
+864
-864
regression/data/sewn-solid-test.data
regression/data/sewn-solid-test.data
+10
-13
regression/data/step-reader-test.data
regression/data/step-reader-test.data
+8
-8
regression/data/step-writer-test.data
regression/data/step-writer-test.data
+9
-9
regression/data/subtracted-solid-test.data
regression/data/subtracted-solid-test.data
+8
-8
regression/data/united-solid-test.data
regression/data/united-solid-test.data
+8
-8
regression/regression.asd
regression/regression.asd
+77
-76
setup-cffi/depends-on.isc
setup-cffi/depends-on.isc
+1
-0
setup-cffi/setup-cffi.asd
setup-cffi/setup-cffi.asd
+10
-0
setup-cffi/source/setup.lisp
setup-cffi/source/setup.lisp
+17
-0
surf/surf.asd
surf/surf.asd
+74
-73
No files found.
.gitignore
View file @
46e50d25
...
...
@@ -4,6 +4,7 @@
*.fas
*.xfasl
*.dx64fsl
*.wx64fsl
*.64xfasl
*.lib
bin
...
...
apps/dom/dom.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:dom
:description
"The Gendl\" dom Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
(
:cl-who
:yadd
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"base/source/package"
)
(
:file
"base/source/assembly"
)
(
:file
"writers/source/package"
)
(
:file
"writers/source/dom-writer"
)
(
:file
"writers/source/html"
)
(
:file
"writers/source/latex"
)
(
:file
"writers/source/plain-text"
)
(
:file
"html/source/package"
)
(
:file
"html/source/lenses"
)
(
:file
"latex/source/package"
)
(
:file
"latex/source/lenses"
)
(
:file
"latex/source/utilities"
)
(
:file
"test-parts/source/assembly"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:dom
:description
"The Gendl® dom Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:cl-who
:yadd
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"base/source/package"
)
(
:file
"base/source/assembly"
)
(
:file
"writers/source/package"
)
(
:file
"writers/source/dom-writer"
)
(
:file
"writers/source/html"
)
(
:file
"writers/source/latex"
)
(
:file
"writers/source/plain-text"
)
(
:file
"html/source/package"
)
(
:file
"html/source/lenses"
)
(
:file
"latex/source/package"
)
(
:file
"latex/source/lenses"
)
(
:file
"latex/source/utilities"
)
(
:file
"test-parts/source/assembly"
)))
apps/gorg/gorg.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:gorg
:description
"The Gendl
™
gorg Subsystem"
:author
"Xinyue (Cherie) Yang"
:license
"The Gendl
®
gorg Subsystem"
:author
"Xinyue (Cherie) Yang"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"201
50613
"
:depends-on
(
:html-template
:gwl-graphics
)
:version
"201
70524
"
:depends-on
(
:html-template
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/base-framework"
)
...
...
apps/graphs/graphs.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:graphs
:description
"The Gendl
™ graphs Subsystem"
:author
"Dave Cooper"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:
version
"20160110
"
:depends-on
(
:gwl-graphics
)
"The Gendl
® graphs Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:
serial
t
:version
"20170524
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
apps/ta2/ta2.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
;;;; -*- 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
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
apps/tasty/tasty.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
"The Gendl® Web-based Development Environment (tasty)"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
apps/timer/timer.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:timer
:description
"The Gendl
™ timer Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:
version
"201510
24"
:depends-on
(
:cl-smtp
:gwl
)
"The Gendl
® timer Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:
serial
t
:version
"201705
24"
:depends-on
(
:cl-smtp
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/translators/translators.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
"The Gendl® Translators to/from XML and potentially other high-level KBE and Knowledge formats"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/tree.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
"The Gendl® Tree component used by Tasty and potentially as a UI component on its own"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/format-documentation"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
"The Gendl® Yet Another Definition Documenter (yadd)"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/format-documentation"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
base/base.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:bordeaux-threads
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
: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
"source/syntax-checker"
)
(
: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/null-part"
)
(
: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/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:base
:description
"The Gendl® Base Core Kernel Engine"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:bordeaux-threads
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
: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
"source/syntax-checker"
)
(
: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/null-part"
)
(
: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/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
base/rest/source/utilities.lisp
View file @
46e50d25
...
...
@@ -124,29 +124,6 @@ object in <b>object-list</b>.
(
the-object
object
(
evaluate
message
)))
object-list
)))
(
defun
list-of-numbers
(
num1
num2
&optional
(
increment
1
)
(
tolerance
(
/
increment
10
)))
"List of Numbers. Returns a list of incrementing numbers starting
from <b>num1</b> and ending with <b>num2</b>, inclusive. Increment can
be positive for num1 < num2, or negative for num1 > num2. This version
was contributed by Reinier van Dijk.
:arguments (num1 \"Number\"
num2 \"Number\")
:&optional ((increment 1) \"Number. The distance between the returned listed numbers.\"
(tolerance (/ increment 10)) \"Number. tolerance for increment.\")"
(
cond
((
zerop
increment
)
(
error
"increment of zero is not allowed"
))
((
and
(
<
increment
0.0
)
(
>
num2
num1
))
(
unless
*allow-nil-list-of-numbers?*
(
error
"increment is negative, while difference between num2 and num1 is positive."
)))
((
and
(
>
increment
0.0
)
(
<
num2
num1
))
(
unless
*allow-nil-list-of-numbers?*
(
error
"increment is positive, while difference between num2 and num1 is negative."
)))
(
t
(
let
((
predicate
(
if
(
>
increment
0.0
)
#'
>=
#'
<=
))
(
result-list
nil
))
(
do
((
num
num1
(
+
num
increment
)))
((
or
(
funcall
predicate
num
num2
)
(
<
(
abs
(
-
num2
num
))
tolerance
))
(
nreverse
(
cons
num2
result-list
)))
(
push
num
result-list
))))))
(
defun
list-of-n-numbers
(
num1
num2
n
)
"Returns a list of n numbers equally spaced between bounds num1 and num2, inclusive."
(
let
((
increment
(
/
(
-
num2
num1
)
(
-
n
1
)))
...
...
@@ -154,10 +131,7 @@ was contributed by Reinier van Dijk.
(
dotimes
(
i
(
-
n
1
)
(
nreverse
(
cons
num2
result-list
)))
(
push
(
+
num1
(
*
i
increment
))
result-list
))))
;;
;; FLAG -- remove this when above version is fully tested.
;;
#+
nil
(
defun
list-of-numbers
(
num1
num2
&optional
(
increment
1
))
"List of Numbers. Returns a list of incrementing numbers starting from
<b>num1</b> and ending with <b>num2</b>, inclusive.
...
...
@@ -223,6 +197,19 @@ removing nil values from a list, consider using <tt>remove nil ...</tt> instead.
(nreverse (rflatten lst))))
</pre>
:note This will not work with dotted lists, only with actual lists. If
you need dotted lists, use the old definition of flatten, from Paul
Graham On Lisp:
<pre>
(defun flatten (tree)
(if (atom tree)
(ensure-list tree)
(nconc (flatten (car tree))
(if (cdr tree) (flatten (cdr tree))))))
</pre>
:arguments (list \"List\")
:see-also <tt>remove</tt>"
...
...
@@ -761,7 +748,7 @@ file.
(
let
((
package-form
(
read
in
)))
(
when
(
or
(
null
package-form
)
(
not
(
find-package
(
second
package-form
))))
(
error
"Invalid package specification at beginning of
~a.~%"
filename
))
(
error
"Invalid package specification at beginning of
stream ~s.~%"
in
))
(
let*
((
*package*
(
find-package
(
second
package-form
)))
(
root-form
(
read
in
)))
(
when
(
or
(
null
root-form
)
(
not
(
eql
(
class-of
(
find-class
(
first
root-form
)))
(
find-class
'gdl-class
))))
...
...
base/source/genworks.lisp
View file @
46e50d25
...
...
@@ -21,7 +21,12 @@
;;
(
in-package
:com.genworks.lisp
)
(
defparameter
*external-text-format*
:default
)
#+
nil
(
defparameter
*external-text-format*
#+
(
and
mswindows
allegro
)
(
excl:crlf-base-ef
:1252
)
#-
(
and
mswindows
allegro
)
:default
)
...
...
@@ -35,11 +40,12 @@
(
ignore-errors
(
funcall
(
read-from-string
"asdf:system-source-directory"
)
"base"
))
(
if
(
typep
error
'error
)
(
warn
"~&ASDF is loaded, but :base is not registered. glisp:*genworks-source-home* remains unknown and set to nil.~%"
)
(
setq
*genworks-source-home*
(
make-pathname
:name
nil
:type
nil
:directory
(
butlast
(
butlast
(
pathname-directory
base-home
)))
:defaults
base-home
)))))))
(
when
base-home
(
setq
*genworks-source-home*
(
make-pathname
:name
nil
:type
nil
:directory
(
butlast
(
butlast
(
pathname-directory
base-home
)))
:defaults
base-home
))))))))
(
set-genworks-source-home-if-known
)
...
...
base/source/package.lisp
View file @
46e50d25
...
...
@@ -377,6 +377,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:run-command
#:temporary-folder
#:*temporary-folder-function*
#:*utf-16-ef*
#:temporary-file
#:find-gs-path
...
...
@@ -504,6 +505,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:inter-circle-sphere
#:inter-line-sphere
#:inter-line-plane
#:inter-line-line
#:translate
#:create-obliqueness
#:proj-point-on-line
...
...
@@ -854,6 +856,9 @@ If you are interested in this effort we would love to hear from you at open-sour
(
:export
#:define-package
#:remote-object
#:*aserver-port*
#:*aserve-listeners*
#:*aserve-start-args*
#:*req*
#:*ent*
#:*html-referrer*
...
...
@@ -872,6 +877,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:*jump-to-toplevel-on-set-self?*
#:*process-cookies?*
#:*static-home*
#:announce-server-port
#:encode-root-path
#:base-html-sheet
#:skeleton-ui-element
...
...
base/source/parameters.lisp
View file @
46e50d25
...
...
@@ -23,7 +23,7 @@
(
defparameter
*gendl-version*
"159
1
"
)
(
defparameter
*gendl-version*
"159
2
"
)
(
defparameter
*gendl-patch-level*
nil
)
...
...
base/source/start.lisp
View file @
46e50d25
...
...
@@ -94,14 +94,14 @@ respective authors:
Gendl® Free Edition, version ~a
Within ~a ~a
Copyright© 201
6
, Genworks International, Birmingham MI, USA.
Copyright© 201
7
, Genworks International, Birmingham MI, USA.
All Rights Reserved.
~a
Welcome to Gendl®
Copyright© 201
6
, Genworks® International, Birmingham MI, USA.
Copyright© 201
7
, Genworks® International, Birmingham MI, USA.
All Rights Reserved.
This program contains free software: you can redistribute it and/or
...
...
base/source/utilities.lisp
View file @
46e50d25
...
...
@@ -437,11 +437,12 @@ keyword argument to this function.
:&key ((path *quicklisp-home*) \"Pathname or string. Quicklisp location.\")
"
(
let
((
ql-loader
(
or
(
probe-file
(
merge-pathnames
"program/load-ql.lisp"
glisp:*gendl-home*
))
(
probe-file
(
merge-pathnames
"../load-ql.lisp"
*quicklisp-home*
)))))
(
if
(
probe-file
ql-loader
)
(
let
((
ql-loader
(
or
(
probe-file
(
merge-pathnames
"program/load-ql.lisp"
glisp:*gendl-home*
))
;; linux, windows prebuilt image
(
probe-file
(
merge-pathnames
"load-ql.lisp"
glisp:*gendl-home*
))
;; Mac prebuilt image
(
probe-file
(
merge-pathnames
"../load-ql.lisp"
*quicklisp-home*
)))))
;; loading from source
(
if
(
and
ql-loader
(
probe-file
ql-loader
))
(
let
((
*quicklisp-home*
path
))
(
load
ql-loader
))
(
warn
"
~s does not exist
.~%"
ql-loader
))))
(
warn
"
load-ql.lisp was not found in ~a
.~%"
ql-loader
))))
(
defun
load-glime
()
...
...
cl-lite/cl-lite.asd
View file @
46e50d25
;;;; -*- 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
"20160828"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:cl-lite
:description
"The Gendl® Compile-and-Load Lite Utility"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20170524"
:depends-on
(
:glisp
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/cl-lite"
)
(
:file
"source/initialize"
)
(
:file
"source/zzinit"
)))
cl-lite/source/cl-lite.lisp
View file @
46e50d25
...
...
@@ -70,7 +70,7 @@ given as keyword args to this function)."
(
remf
args
:show-redefinition-warnings?
)
(
with-compilation-unit
()
(
let
((
object
(
apply
#'
make-object
'codebase-directory-node
:pathname
pathname
args
)))
(
unless
(
the-object
object
dry-run?
)
(
unless
nil
;;
(the-object object dry-run?)
(
the-object
object
(
compile-and-load
:package-file-ht
package-file-ht
)))
(
when
(
the-object
object
create-asd-file?
)
(
the-object
object
(
write-asd-file
))))))))
...
...
@@ -173,7 +173,7 @@ given as keyword args to this function)."
"The Gendl® "
(
or
(
the
(
read-isc-file
"description"
))
(
format
nil
"~a Subsystem"
(
the
local-name
)))))
(
author
(
or
(
the
(
read-isc-file
"author"
))
"
John McCarthy
"
))
(
author
(
or
(
the
(
read-isc-file
"author"
))
"
Genworks International
"
))
(
version
(
or
(
the
(
read-isc-file
"version"
))
(
replace-substring
(
iso-8601-date
(
get-universal-time
))
"-"
""
)))
(
license
(
or
(
the
(
read-isc-file
"license"
))
...
...
@@ -308,12 +308,14 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
(
if
(
stringp
sexpr
)
(
format
nil
"%%remove%%~a%%remove%%"
sexpr
)
sexpr
)))
(
asdf-defsystem-depends-on
(
let
((
sexpr
(
glisp:sexpr-from-file
(
merge-pathnames
(
make-pathname
:name
"defsystem-depends-on"
:type
"isc"
)
(
the
ppathname
)))))
(
if
(
stringp
sexpr
)
sexpr
(
format
nil
"\"~s\""
sexpr
))))
(
asdf-defsystem-depends-on
(
let
((
sexpr
(
glisp:sexpr-from-file
(
merge-pathnames
(
make-pathname
:name
"defsystem-depends-on"
:type
"isc"
)
(
the
ppathname
)))))
(
if
(
and
sexpr
(
not
(
stringp
sexpr
)))
(
error
"defsystem-depends-on.isc should be either nil or a string containing the expression
to go inside the actual list form in the asdf file. It came in as ~s instead.~%"
sexpr
)
sexpr
)))
(
additional-asd-code
(
let
((
asd-code-file
...
...
@@ -356,9 +358,13 @@ Defaults to nil (i.e. we assume we are loading into a clean system and need all
:version
,
(
the
version
)
:depends-on
,
(
the
asdf-depends-on
)
,
(
format
nil
"%%remove%%#-asdf-unicode :defsystem-depends-on #-asdf-unicode ~a%%remove%%"
(
format
nil
"(:asdf-encodings ~a)"
(
subseq
(
the
asdf-defsystem-depends-on
)
1
(
1-
(
length
(
the
asdf-defsystem-depends-on
))))))