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
Expand all
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 @@
...
@@ -4,6 +4,7 @@
*.fas
*.fas
*.xfasl
*.xfasl
*.dx64fsl
*.dx64fsl
*.wx64fsl
*.64xfasl
*.64xfasl
*.lib
*.lib
bin
bin
...
...
apps/dom/dom.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:dom
:description
(
asdf:defsystem
#:dom
:description
"The Gendl\" dom Subsystem"
:author
"John McCarthy"
:license
"The Gendl® dom Subsystem"
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
(
:cl-who
:yadd
)
:version
"20170524"
:depends-on
(
:cl-who
:yadd
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
:components
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
((
:file
"base/source/package"
)
(
:file
"base/source/assembly"
)
:components
(
:file
"writers/source/package"
)
((
:file
"base/source/package"
)
(
:file
"base/source/assembly"
)
(
:file
"writers/source/dom-writer"
)
(
:file
"writers/source/html"
)
(
:file
"writers/source/package"
)
(
:file
"writers/source/latex"
)
(
:file
"writers/source/plain-text"
)
(
:file
"writers/source/dom-writer"
)
(
:file
"writers/source/html"
)
(
:file
"html/source/package"
)
(
:file
"html/source/lenses"
)
(
:file
"writers/source/latex"
)
(
:file
"writers/source/plain-text"
)
(
:file
"latex/source/package"
)
(
:file
"latex/source/lenses"
)
(
:file
"html/source/package"
)
(
:file
"html/source/lenses"
)
(
:file
"latex/source/utilities"
)
(
:file
"latex/source/package"
)
(
:file
"latex/source/lenses"
)
(
:file
"test-parts/source/assembly"
)))
(
:file
"latex/source/utilities"
)
(
:file
"test-parts/source/assembly"
)))
apps/gorg/gorg.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:gorg
:description
(
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
"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
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
:components
((
:file
"source/package"
)
(
:file
"source/base-framework"
)
((
:file
"source/package"
)
(
:file
"source/base-framework"
)
...
...
apps/graphs/graphs.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:graphs
:description
(
asdf:defsystem
#:graphs
:description
"The Gendl
™ graphs Subsystem"
:author
"Dave Cooper"
:license
"The Gendl
® graphs Subsystem"
:author
"Genworks International"
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:
version
"20160110
"
:depends-on
(
:gwl-graphics
)
:
serial
t
:version
"20170524
"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
apps/ta2/ta2.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:ta2
:description
(
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
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
(
:gwl-graphics
)
:version
"20170524"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
:components
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
((
:file
"source/package"
)
(
:file
"source/parameters"
)
:components
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/javascript"
)
(
:file
"source/action-object"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/object-tree"
)
(
:file
"source/part-type-form"
)
(
:file
"source/click-mode"
)
(
:file
"source/inspector"
)
(
:file
"source/publish"
)
(
:file
"source/viewport"
)))
(
: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 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tasty
:description
(
asdf:defsystem
#:tasty
:description
"The Gendl\" Web-based Development Environment (tasty)"
:author
"The Gendl® Web-based Development Environment (tasty)"
:author
"John McCarthy"
:license
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
(
:tree
:gwl-graphics
)
:version
"20170524"
:depends-on
(
:tree
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
:components
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
((
:file
"source/package"
)
(
:file
"source/parameters"
)
:components
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/assembly"
)
(
:file
"source/initialize"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/inspector"
)
(
:file
"source/menu"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/new-inspector"
)
(
:file
"source/newer-inspector"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/part-type-form"
)
(
:file
"source/publish"
)
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/status-object"
)
(
:file
"source/test-part"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
(
:file
"source/test-part2"
)
(
:file
"source/two-viewports"
)
(
:file
"source/viewport"
)
(
:file
"source/zzinit"
)))
apps/timer/timer.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:timer
:description
(
asdf:defsystem
#:timer
:description
"The Gendl
™ timer Subsystem"
:author
"John McCarthy"
:license
"The Gendl
® timer Subsystem"
:author
"Genworks International"
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:
version
"201510
24"
:depends-on
(
:cl-smtp
:gwl
)
:
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
(
:asdf-encodings
)
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
:components
:components
((
:file
"source/package"
)
(
:file
"source/parameters"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
...
...
apps/translators/translators.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:translators
:description
(
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
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
(
:gwl
)
:version
"20170524"
:depends-on
(
:gwl
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
:components
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
:components
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
(
:file
"xml/source/xml2gdl"
)))
(
:file
"xml/source/definition-tree"
)
(
:file
"xml/source/gdl2xml"
)
(
:file
"xml/source/xml2gdl"
)))
apps/tree/tree.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:tree
:description
(
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
:author
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
(
:gwl-graphics
)
:version
"20170524"
:depends-on
(
:gwl-graphics
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
:components
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
((
:file
"source/package"
)
(
:file
"source/parameters"
)
:components
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
((
:file
"source/package"
)
(
:file
"source/parameters"
)
(
:file
"source/newertree"
)))
(
:file
"source/ajax"
)
(
:file
"source/assembly"
)
(
:file
"source/newertree"
)))
apps/yadd/yadd.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:yadd
:description
(
asdf:defsystem
#:yadd
:description
"The Gendl\" Yet Another Definition Documenter (yadd)"
:author
"The Gendl® Yet Another Definition Documenter (yadd)"
:author
"John McCarthy"
:license
"Genworks International"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20160828"
:depends-on
:version
"20170524"
:depends-on
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
(
:gwl-graphics
#-
allegro
:cl-html-parse
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
:components
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
((
:file
"source/package"
)
(
:file
"source/genworks"
)
:components
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/parameters"
)
(
:file
"source/mixins"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/define-object-documentation"
)
(
:file
"source/format-documentation"
)
(
:file
"source/assembly"
)
(
:file
"source/ass"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/format-documentation"
)
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/function-documentation"
)
(
:file
"source/initialize"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
(
:file
"source/publish"
)
(
:file
"source/test-part"
)
(
:file
"source/variable-documentation"
)
(
:file
"source/zzinit"
)))
base/base.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:base
:description
(
asdf:defsystem
#:base
:description
"The Gendl\" Base Core Kernel Engine"
:author
"John McCarthy"
"The Gendl® Base Core Kernel Engine"
:author
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
"Genworks International"
:license
:serial
t
:version
"20160828"
:depends-on
(
:bordeaux-threads
)
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
:version
"20170524"
:depends-on
(
:bordeaux-threads
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
#-
asdf-unicode
:defsystem-depends-on
#-
asdf-unicode
(
:asdf-encodings
)
:components
#+
asdf-unicode
:defsystem-depends-on
#+
asdf-unicode
nil
((
:file
"source/package"
)
(
:file
"source/genworks"
)
#+
asdf-encodings
:encoding
#+
asdf-encodings
:utf-8
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
:components
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
((
:file
"source/package"
)
(
:file
"source/genworks"
)
(
:file
"source/start"
)
(
:file
"source/syntax-checker"
)
(
:file
"source/presets"
)
(
:file
"source/parameters"
)
(
:file
"expanders/source/inputs"
)
(
:file
"source/metaclasses"
)
(
:file
"source/utilities"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"source/start"
)
(
:file
"source/syntax-checker"
)
(
:file
"expanders/source/functions"
)
(
:file
"expanders/source/inputs"
)
(
:file
"expanders/source/methods"
)
(
:file
"expanders/source/computed-slots"
)
(
:file
"expanders/source/objects"
)
(
:file
"expanders/source/functions"
)
(
:file
"macros/source/reference"
)
(
:file
"expanders/source/methods"
)
(
:file
"macros/source/message-utils"
)
(
:file
"expanders/source/objects"
)
(
:file
"macros/source/define-object"
)
(
:file
"macros/source/reference"
)
(
:file
"macros/source/defaulting"
)
(
:file
"macros/source/message-utils"
)
(
:file
"macros/source/define-format"
)
(
:file
"macros/source/define-object"
)
(
:file
"rest/source/parameters"
)
(
:file
"macros/source/defaulting"
)
(
:file
"rest/source/quantification"
)
(
:file
"macros/source/define-format"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/parameters"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/quantification"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/aggregate"
)
(
:file
"rest/source/utilities"
)
(
:file
"rest/source/ignore-errors-with-backtrace"
)
(
:file
"rest/source/null-part"
)
(
:file
"rest/source/vanilla-mixin"
)
(
:file
"rest/source/init"
)
(
:file
"rest/source/make-part"
)
(
:file
"rest/source/base-rule-object"
)
(
:file
"rest/source/bodies"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"rest/source/ignore-errors-with-backtrace"
)
(
:file
"zzinit/source/zzinit"
)))
(
: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>.
...
@@ -124,29 +124,6 @@ object in <b>object-list</b>.
(
the-object
object
(
evaluate
message
)))
object-list
)))
(
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
)
(
defun
list-of-n-numbers
(
num1
num2
n
)
"Returns a list of n numbers equally spaced between bounds num1 and num2, inclusive."
"Returns a list of n numbers equally spaced between bounds num1 and num2, inclusive."
(
let
((
increment
(
/
(
-
num2
num1
)
(
-
n
1
)))
(
let
((
increment
(
/
(
-
num2
num1
)
(
-
n
1
)))
...
@@ -154,10 +131,7 @@ was contributed by Reinier van Dijk.
...
@@ -154,10 +131,7 @@ was contributed by Reinier van Dijk.
(
dotimes
(
i
(
-
n
1
)
(
nreverse
(
cons
num2
result-list
)))
(
dotimes
(
i
(
-
n
1
)
(
nreverse
(
cons
num2
result-list
)))
(
push
(
+
num1
(
*
i
increment
))
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
))
(
defun
list-of-numbers
(
num1
num2
&optional
(
increment
1
))
"List of Numbers. Returns a list of incrementing numbers starting from
"List of Numbers. Returns a list of incrementing numbers starting from
<b>num1</b> and ending with <b>num2</b>, inclusive.
<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.
...
@@ -223,6 +197,19 @@ removing nil values from a list, consider using <tt>remove nil ...</tt> instead.
(nreverse (rflatten lst))))
(nreverse (rflatten lst))))
</pre>
</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\")
:arguments (list \"List\")
:see-also <tt>remove</tt>"
:see-also <tt>remove</tt>"
...
@@ -761,7 +748,7 @@ file.
...
@@ -761,7 +748,7 @@ file.
(
let
((
package-form
(
read
in
)))
(
let
((
package-form
(
read
in
)))
(
when
(
or
(
null
package-form
)
(
not
(
find-package
(
second
package-form
))))
(
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
)))
(
let*
((
*package*
(
find-package
(
second
package-form
)))
(
root-form
(
read
in
)))
(
when
(
or
(
null
root-form
)
(
when
(
or
(
null
root-form
)
(
not
(
eql
(
class-of
(
find-class
(
first
root-form
)))
(
find-class
'gdl-class
))))
(
not
(
eql
(
class-of
(
find-class
(
first
root-form
)))
(
find-class
'gdl-class
))))
...
...
base/source/genworks.lisp
View file @
46e50d25
...
@@ -21,7 +21,12 @@
...
@@ -21,7 +21,12 @@
;;
;;
(
in-package
:com.genworks.lisp
)
(
in-package
:com.genworks.lisp
)
(
defparameter
*external-text-format*
:default
)
#+
nil
(
defparameter
*external-text-format*
(
defparameter
*external-text-format*
#+
(
and
mswindows
allegro
)
(
excl:crlf-base-ef
:1252
)
#+
(
and
mswindows
allegro
)
(
excl:crlf-base-ef
:1252
)
#-
(
and
mswindows
allegro
)
:default
)
#-
(
and
mswindows
allegro
)
:default
)
...
@@ -35,11 +40,12 @@
...
@@ -35,11 +40,12 @@
(
ignore-errors
(
funcall
(
read-from-string
"asdf:system-source-directory"
)
"base"
))
(
ignore-errors
(
funcall
(
read-from-string
"asdf:system-source-directory"
)
"base"
))
(
if
(
typep
error
'error
)
(
if
(
typep
error
'error
)
(
warn
"~&ASDF is loaded, but :base is not registered. glisp:*genworks-source-home* remains unknown and set to nil.~%"
)
(
warn
"~&ASDF is loaded, but :base is not registered. glisp:*genworks-source-home* remains unknown and set to nil.~%"
)
(
setq
*genworks-source-home*
(
when
base-home
(
make-pathname
:name
nil
(
setq
*genworks-source-home*
:type
nil
(
make-pathname
:name
nil
:directory
(
butlast
(
butlast
(
pathname-directory
base-home
)))
:type
nil
:defaults
base-home
)))))))
:directory
(
butlast
(
butlast
(
pathname-directory
base-home
)))
:defaults
base-home
))))))))
(
set-genworks-source-home-if-known
)
(
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
...
@@ -377,6 +377,7 @@ If you are interested in this effort we would love to hear from you at open-sour
#:run-command
#:run-command
#:temporary-folder
#:temporary-folder
#:*temporary-folder-function*
#:*temporary-folder-function*
#:*utf-16-ef*
#:temporary-file
#:temporary-file
#:find-gs-path
#:find-gs-path
...
@@ -504,6 +505,7 @@ If you are interested in this effort we would love to hear from you at open-sour
...
@@ -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-circle-sphere
#:inter-line-sphere
#:inter-line-sphere
#:inter-line-plane
#:inter-line-plane
#:inter-line-line
#:translate
#:translate
#:create-obliqueness
#:create-obliqueness
#:proj-point-on-line
#: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
...
@@ -854,6 +856,9 @@ If you are interested in this effort we would love to hear from you at open-sour
(
:export
(
:export
#:define-package
#:define-package
#:remote-object
#:remote-object
#:*aserver-port*
#:*aserve-listeners*
#:*aserve-start-args*
#:*req*
#:*req*
#:*ent*
#:*ent*
#:*html-referrer*
#:*html-referrer*
...
@@ -872,6 +877,7 @@ If you are interested in this effort we would love to hear from you at open-sour
...
@@ -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?*
#:*jump-to-toplevel-on-set-self?*
#:*process-cookies?*
#:*process-cookies?*
#:*static-home*
#:*static-home*
#:announce-server-port
#:encode-root-path
#:encode-root-path
#:base-html-sheet
#:base-html-sheet
#:skeleton-ui-element
#:skeleton-ui-element
...
...
base/source/parameters.lisp
View file @
46e50d25
...
@@ -23,7 +23,7 @@
...
@@ -23,7 +23,7 @@
(
defparameter
*gendl-version*
"159
1
"
)
(
defparameter
*gendl-version*
"159
2
"
)
(
defparameter
*gendl-patch-level*
nil
)
(
defparameter
*gendl-patch-level*
nil
)
...
...
base/source/start.lisp
View file @
46e50d25
...
@@ -94,14 +94,14 @@ respective authors:
...
@@ -94,14 +94,14 @@ respective authors:
Gendl® Free Edition, version ~a
Gendl® Free Edition, version ~a
Within ~a ~a
Within ~a ~a
Copyright© 201
6
, Genworks International, Birmingham MI, USA.
Copyright© 201
7
, Genworks International, Birmingham MI, USA.
All Rights Reserved.
All Rights Reserved.
~a
~a
Welcome to Gendl®
Welcome to Gendl®
Copyright© 201
6
, Genworks® International, Birmingham MI, USA.
Copyright© 201
7
, Genworks® International, Birmingham MI, USA.
All Rights Reserved.
All Rights Reserved.
This program contains free software: you can redistribute it and/or
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.
...
@@ -437,11 +437,12 @@ keyword argument to this function.
:&key ((path *quicklisp-home*) \"Pathname or string. Quicklisp location.\")
:&key ((path *quicklisp-home*) \"Pathname or string. Quicklisp location.\")
"
"
(
let
((
ql-loader
(
or
(
probe-file
(
merge-pathnames
"program/load-ql.lisp"
glisp:*gendl-home*
))
(
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"
*quicklisp-home*
)))))
(
probe-file
(
merge-pathnames
"load-ql.lisp"
glisp:*gendl-home*
))
;; Mac prebuilt image
(
if
(
probe-file
ql-loader
)
(
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
))
(
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
()
(
defun
load-glime
()
...
...
cl-lite/cl-lite.asd
View file @
46e50d25
;;;; -*- coding: utf-8 -*-
;;;; -*- coding: utf-8 -*-
(
asdf:defsystem
#:cl-lite
:description
(
asdf:defsystem
#:cl-lite
:description
"The Gendl\" Compile-and-Load Lite Utility"
:author
"John McCarthy"