Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
c9c8940a
Commit
c9c8940a
authored
Apr 07, 2013
by
Dave Cooper
Browse files
Ironed out some warnings, dependencies, and build issues.
parent
8a6d5ccd
Changes
23
Hide whitespace changes
Inline
Side-by-side
apps/ta2/source/package.lisp
View file @
c9c8940a
...
...
@@ -2,7 +2,7 @@
(
gwl:define-package
:ta2
(
:documentation
#.
(
with-open-file
(
in
"~/gendl/apps/ta2/description.isc"
)
(
read
in
)
))
(
:documentation
#.
(
glisp:system-description
:ta2
))
(
:export
#:assembly
))
#+
nil
...
...
apps/translators/depends-on.isc
0 → 100644
View file @
c9c8940a
(:gwl)
\ No newline at end of file
apps/translators/translators.asd
View file @
c9c8940a
...
...
@@ -4,7 +4,7 @@
"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
"20130406"
:depends-on
nil
:version
"20130406"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"xml/source/package"
)
(
:file
"xml/source/genworks"
)
...
...
base/base.asd
View file @
c9c8940a
...
...
@@ -22,9 +22,10 @@
(
: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/null-part"
)
(
:file
"rest/source/sequence"
)
(
:file
"rest/source/sequence"
)
(
:file
"zzinit/source/initialize"
)
(
:file
"zzinit/source/zzinit"
)))
base/macros/source/define-format.lisp
View file @
c9c8940a
...
...
@@ -35,19 +35,21 @@ a symbol, this is the name of the slot and there will be no default value.\"
(
new-format-functions
(
gensym
))
(
class
(
gensym
)))
`
(
progn
(
defclass
,
name
,
mixin-list
,
(
mapcar
#'
(
lambda
(
slot
)
(
if
(
atom
slot
)
`
(
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-acc
)
:initarg
,
(
make-keyword
slot
))
`
(
,
(
glisp:intern
(
symbol-name
(
first
slot
))
:gdl-acc
)
:initform
,
(
second
slot
)
:initarg
,
(
make-keyword
(
first
slot
))
:documentation
,
(
or
(
third
slot
)
""
))))
slots
)
(
:metaclass
gdl-format-class
))
(
defclass
,
name
,
mixin-list
,
(
mapcar
#'
(
lambda
(
slot
)
(
if
(
atom
slot
)
`
(
,
(
glisp:intern
(
symbol-name
slot
)
:gdl-acc
)
:initarg
,
(
make-keyword
slot
))
`
(
,
(
glisp:intern
(
symbol-name
(
first
slot
))
:gdl-acc
)
:initform
,
(
second
slot
)
:initarg
,
(
make-keyword
(
first
slot
))
:documentation
,
(
or
(
third
slot
)
""
))))
slots
)
(
:metaclass
gdl-format-class
))
(
let
((
,
class
(
find-class
',name
)))
(
let
((
,
old-format-functions
(
format-functions
,
class
))
(
,
new-format-functions
',
(
mapcar
#'
first-symbol
(
remove
nil
functions
))))
(
dolist
(
key
(
set-difference
,
old-format-functions
,
new-format-functions
))
(
let
((
method
(
ignore-errors
(
find-method
(
symbol-function
(
glisp:intern
(
symbol-name
key
)
:gdl-format
))
nil
(
list
(
find-class
',name
))
nil
))))
(
let
((
method
(
ignore-errors
(
find-method
(
symbol-function
(
glisp:intern
(
symbol-name
key
)
:gdl-format
))
nil
(
list
(
find-class
',name
))
nil
))))
(
when
method
(
format
t
"~%Removing format function: ~a for format definition: ~s~%"
key
',name
)
(
remove-method
(
symbol-function
(
glisp:intern
(
symbol-name
key
)
:gdl-format
))
method
))))
...
...
base/rest/source/file-ordering.isc
View file @
c9c8940a
...
...
@@ -19,4 +19,4 @@
;; <http://www.gnu.org/licenses/>.
;;
("parameters" "quantification" "aggregate" "utilities" "vanilla-mixin")
("parameters" "quantification" "aggregate" "utilities"
"null-part"
"vanilla-mixin")
base/rest/source/vanilla-mixin.lisp
View file @
c9c8940a
...
...
@@ -964,6 +964,9 @@ a separate object hierarchy." object self)))
(
define-object
root-path-container
()
:input-slots
(
root-path
))
;;
;; FLAG -- stub -- to be redefined in gwl.
;;
(
define-object
remote-object
())
demos/bus/bus.asd
View file @
c9c8940a
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:bus
:description
"The Gendl™ Wireframe School Bus Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130406"
:depends-on
nil
:serial
t
:version
"20130406"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/bus/depends-on.isc
0 → 100644
View file @
c9c8940a
(:gwl-graphics)
\ No newline at end of file
demos/ledger/depends-on.isc
0 → 100644
View file @
c9c8940a
(:gwl)
\ No newline at end of file
demos/ledger/ledger.asd
View file @
c9c8940a
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:ledger
:description
"The Gendl™ Ledger Bookkeeping Demo"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130406"
:depends-on
nil
:serial
t
:version
"20130406"
:depends-on
(
:gwl
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)
...
...
demos/wire-world/depends-on.isc
0 → 100644
View file @
c9c8940a
(:gwl-graphics)
\ No newline at end of file
demos/wire-world/source/package.lisp
View file @
c9c8940a
(
in-package
:common-lisp-user
)
(
gdl:define-package
:wire-world
(
:export
#:assembly
)
:documentation
#.
(
glisp:system-description
:wire-world
))
(
:documentation
#.
(
glisp:system-description
:wire-world
))
)
demos/wire-world/wire-world.asd
View file @
c9c8940a
...
...
@@ -4,6 +4,6 @@
"The Gendl™ Wire-World demo and test-case for wireframe tessellation and X3D output"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130406"
:depends-on
nil
:version
"20130406"
:depends-on
(
:gwl-graphics
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:file
"source/package"
)
(
:file
"source/assembly"
)))
documentation/training/g102-tud/examples/depends-on.isc
0 → 100644
View file @
c9c8940a
(:gwl-graphics :surf)
\ No newline at end of file
documentation/training/g102-tud/examples/examples.asd
View file @
c9c8940a
...
...
@@ -3,7 +3,7 @@
(
asdf:defsystem
#:examples
:description
"The Gendl™ examples Subsystem"
:author
"John McCarthy"
:license
"Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial
t
:version
"20130406"
:depends-on
nil
:version
"20130406"
:depends-on
(
:gwl-graphics
:surf
)
#+
asdf-encoding
:encoding
#+
asdf-encoding
:utf-8
:components
((
:gdl
"source/primi-plane"
)
(
:gdl
"source/ui-primi-plane"
)))
documentation/training/g102-tud/examples/source/ui-primi-plane.gdl
View file @
c9c8940a
...
...
@@ -16,7 +16,10 @@
;; <http://www.gnu.org/licenses/>.
;;
(in-package :gwl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
(gwl:define-package :examples-ui))
(in-package :examples-ui)
(define-object primi-plane-ui (base-ajax-sheet)
...
...
geom-base/annotations/source/angular-dimension.lisp
View file @
c9c8940a
...
...
@@ -150,7 +150,8 @@ Defaults to nil."
(
dimension-text
:type
'general-note
:pseudo-inputs
(
start-center
)
:start-center
(
let
((
point
(
add-vectors
(
the
dim-text-start
)
(
the
dim-text-start-offset
))))
(
translate-along-vector
point
...
...
geom-base/graphs/source/pie-chart.lisp
View file @
c9c8940a
...
...
@@ -109,6 +109,7 @@ Color of the outline of the pie. Defaults to :black."
:pass-down
(
labels&colors
))
(
pie-pieces
:type
'pie-piece
:pseudo-inputs
(
fraction
line-color
)
:sequence
(
:size
(
length
(
the
data
)))
:datum
(
nth
(
the-child
index
)
(
the
data
))
:label
(
first
(
nth
(
the-child
:index
)
(
the
labels&colors
)))
...
...
regression/gwl/source/hey-now.lisp
View file @
c9c8940a
...
...
@@ -21,6 +21,8 @@
(
in-package
:gwl-user
)
(
defparameter
*locale-hash*
(
let
((
strings
`
(
:hey-now
...
...
@@ -29,6 +31,10 @@
(
let
((
ht
(
make-hash-table
:size
(
length
strings
))))
(
mapc
#'
(
lambda
(
key
value
)
(
setf
(
gethash
key
ht
)
value
))
(
plist-keys
strings
)
(
plist-values
strings
))
ht
)))
(
defun
locale-string
(
key
)
(
gethash
key
*locale-hash*
))
(
define-object
hey-now
(
base-ajax-sheet
)
...
...
@@ -57,4 +63,4 @@
:default
(
the
language-default
)
:choice-plist
(
list
:english
"English"
:chinese
"中国的"
))))
(
publish-gwl-app
"/hey-now"
'hey-now
)
\ No newline at end of file
(
publish-gwl-app
"/hey-now"
'hey-now
)
Prev
1
2
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment