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
1f9caf9a
Commit
1f9caf9a
authored
Apr 13, 2012
by
Dave Cooper
Browse files
added source for newsite
parent
bd99e80e
Changes
35
Hide whitespace changes
Inline
Side-by-side
build/source/app.lisp
View file @
1f9caf9a
...
...
@@ -42,14 +42,14 @@ Defaults to a directory called <tt>(the application-name)</tt> in the user
temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
destination-directory
(
make-pathname
:name
nil
:type
nil
:directory
(
append
(
pathname-directory
(
glisp:temporary-folder
))
(
the
application-name
))
:directory
(
append
(
pathname-directory
(
glisp:temporary-folder
))
(
ensure-list
(
the
application-name
))
)
:defaults
(
glisp:temporary-folder
)))
(
overwrite?
t
)
(
load-core-gdl-form
`
(
progn
(
load
,
(
merge-pathnames
"../build"
glisp:*genworks-source-home*
))
#+
nil
(
setf
(
symbol-value
(
read-from-string
"asdf:*central-registry*"
))
nil
)))
...
...
@@ -57,7 +57,7 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
(
post-load-form
nil
)
(
init-file-names
(
list
"gdlinit.cl"
".gdlinit.cl"
)
)
(
init-file-names
nil
)
(
restart-init-function
nil
)
...
...
@@ -71,6 +71,9 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
:functions
((
make!
()
(
print-variables
(
the
init-file-names
))
(
when
(
and
(
probe-file
(
the
destination-directory
))
(
the
overwrite?
))
(
glisp:delete-directory-and-files
(
the
destination-directory
)))
(
glisp:make-gdl-app
:application-name
(
the
application-name
)
...
...
@@ -136,9 +139,9 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
(
format
nil
"~a-~a"
implementation-identifier
(
glisp:next-datestamp
prefix
implementation-identifier
))))
prefix
))))
(
app
:application-name
"gdl"
:application-class
:development
:application-class
#+
64bit
:runtime
#-
64bit
:development
:destination-directory
destination-directory
:modules
(
list
:agraph
:ide
)
:modules
(
list
#-
64bit
:agraph
#-
64bit
:ide
)
:restart-init-function
'
(
lambda
()
(
setq
glisp:*gdl-home*
(
glisp:current-directory
))
(
setq
glisp:*genworks-source-home*
(
merge-pathnames
"src/"
glisp:*gdl-home*
))
...
...
@@ -159,16 +162,19 @@ temporary directory, returned by <tt>(glisp:temporary-folder)</tt>."
(
asdf:load-system
:gdl-demos
)
(
load
(
merge-pathnames
"../downloads/gdl-downloads.asd"
glisp:*genworks-source-home*
))
(
asdf:load-system
:gdl-downloads
)
(
load
(
merge-pathnames
"demos/newsite/gdl-newsite.asd"
glisp:*genworks-source-home*
))
(
asdf:load-system
:gdl-newsite
)
(
setf
(
symbol-value
(
read-from-string
"glisp:*genworks-source-home*"
))
nil
))
:destination-directory
(
merge-pathnames
"
../..
/staging/site/"
glisp:*genworks-source-home*
)
(
merge-pathnames
"
~/share
/staging/site/"
glisp:*genworks-source-home*
)
:overwrite?
t
:application-name
"genworks-site"
:application-class
:development
:demo-days
nil
:restart-init-function
'
(
lambda
()
(
gdl:start-gdl
:edition
:trial
)
(
setf
(
symbol-value
(
read-from-string
"www.genworks.com::*smtp-server*"
))
"localhost"
)
(
glisp:set-gs-path
#+
mswindows
(
merge-pathnames
"gpl/gs/gs8.63/bin/gswin32c.exe"
glisp:*gdl-home*
)))))
build/source/genworks.lisp
View file @
1f9caf9a
...
...
@@ -81,7 +81,8 @@
#+
allegro
(
let
((
app-name
(
getf
args
:application-name
))
(
target
(
getf
args
:destination-directory
))
(
modules
(
append
(
list
:asdf
:compftype
:aserve
:phtml
#+
mswindows
:winapi
)
(
modules
(
append
(
list
:asdf
:compftype
:aserve
:phtml
#+
mswindows
:winapi
)
(
getf
args
:modules
)))
(
args
(
normalize-generate-application-args
args
)))
(
apply
#'
excl:generate-application
app-name
target
modules
args
))
...
...
demos/aero-demo-1/source/package.lisp
View file @
1f9caf9a
(
in-package
:gdl-user
)
(
gwl:define-package
:aero
(
:use
:surf
)
(
:shadowing-import-from
:surf
#:step
)
)
(
gwl:define-package
:aero
)
demos/depends-on.isc
View file @
1f9caf9a
(:gdl-gwl-graphics)
(:gdl-gwl-graphics
:gdl-smlib
)
demos/gdl-demos.asd
View file @
1f9caf9a
...
...
@@ -4,9 +4,11 @@
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2012031300"
:depends-on
(
:gdl-gwl-graphics
)
:components
((
:file
"bus/source/package"
)
:version
"2012041200"
:depends-on
(
:gdl-gwl-graphics
:gdl-smlib
)
:components
((
:file
"robot/source/package"
)
(
:file
"robot/source/assembly"
)
(
:file
"bus/source/package"
)
(
:file
"bus/source/assembly"
)
(
:file
"bus/source/body"
)
(
:file
"bus/source/chassis"
)
...
...
@@ -35,8 +37,21 @@
(
:file
"ledger/source/package"
)
(
:file
"ledger/source/assembly"
)
(
:file
"ledger/source/html"
)
(
:file
"robot/source/package"
)
(
:file
"robot/source/assembly"
)
(
:file
"newsite/source/package"
)
(
:file
"newsite/source/Services"
)
(
:file
"newsite/source/assembly"
)
(
:file
"newsite/source/configurator"
)
(
:file
"newsite/source/contact-us"
)
(
:file
"newsite/source/demos"
)
(
:file
"newsite/source/index"
)
(
:file
"newsite/source/licensing"
)
(
:file
"newsite/source/mixins"
)
(
:file
"newsite/source/news"
)
(
:file
"newsite/source/people"
)
(
:file
"newsite/source/product-descriptions"
)
(
:file
"newsite/source/product-licensing"
)
(
:file
"newsite/source/products"
)
(
:file
"newsite/source/publish"
)
(
:file
"site/source/package"
)
(
:file
"site/source/assembly"
)
(
:file
"site/source/contact"
)
...
...
@@ -55,4 +70,21 @@
(
:file
"site/source/pricing"
)
(
:file
"site/source/products"
)
(
:file
"site/source/publish"
)
(
:file
"site/source/security"
)))
\ No newline at end of file
(
:file
"site/source/security"
)
(
:file
"wind-demo-1/source/package"
)
(
:file
"wind-demo-1/source/parameters"
)
(
:file
"wind-demo-1/source/assembly"
)
(
:file
"wind-demo-1/source/blade-tanase-new"
)
(
:file
"wind-demo-1/source/edge-blend-surface-wind"
)
(
:file
"wind-demo-1/source/flaps-blade"
)
(
:file
"wind-demo-1/source/hub"
)
(
:file
"wind-demo-1/source/nacelle"
)
(
:file
"wind-demo-1/source/profile-curv"
)
(
:file
"wind-demo-1/source/rotor-assembly"
)
(
:file
"wind-demo-1/source/support"
)
(
:file
"wind-demo-1/source/surface-general-rotation"
)
(
:file
"wind-demo-1/source/test"
)
(
:file
"wind-demo-1/source/wt-demo-1"
)
(
:file
"wire-world/source/package"
)
(
:file
"wire-world/source/assembly"
)))
\ No newline at end of file
demos/gdlinit.cl
0 → 100644
View file @
1f9caf9a
(
in-package
:gwl-user
)
(
net.aserve:shutdown
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
net.aserve:start
:port
80
:listeners
50
))
(
publish-gwl-app
"/"
"genworks.com:assembly"
)
(
publish-gwl-app
"/newsite"
"www.genworks.com:assembly"
)
(
dolist
(
host
(
list
"cl-foundation.com"
"cl-foundation.org"
"www.cl-foundation.com"
"www.cl-foundation.org"
))
(
net.aserve:publish-directory
:prefix
"/aclu_files/"
:host
host
:destination
(
format
nil
"~a"
(
probe-file
"../static-old/aclu_files/"
)))
(
net.aserve:publish-file
:path
"/"
:host
host
:file
(
format
nil
"~a"
(
probe-file
"../static-old/aclu.html"
))))
(
excl.osi:setgid
1002
)
(
excl.osi:setuid
1002
)
(
setq
gwl:*developing?*
nil
)
(
format
t
"Now Sleeping main thread and being a webserver...~%"
)
(
do
()
()
(
sleep
10000
))
demos/make.lisp
0 → 100644
View file @
1f9caf9a
(
in-package
:gdl-user
)
(
eval-when
(
:compile-toplevel
:load-toplevel
:execute
)
(
ql:quickload
:gdl-build
))
(
define-object
site-app
(
gdl-build:app
)
:computed-slots
((
application-name
"gdl-demos"
)
(
application-class
:runtime
)
(
modules
:smtp
:ftp
)
(
post-load-form
'
(
progn
(
ql:quickload
:gdl-demos
)
(
ql:quickload
:gdl-downloads
)
(
setf
(
symbol-value
(
read-from-string
"asdf:*central-registry*"
))
nil
)
;;
;; FLAG -- clear other asdf and quicklisp parameters here
;;
))
(
restart-init-function
'
(
lambda
()
(
setq
glisp:*gdl-home*
(
glisp:current-directory
))
(
gdl:start-gdl
:edition
:runtime
)
(
setf
(
symbol-value
(
read-from-string
"www.genworks.com::*smtp-server*"
))
"localhost"
)
(
glisp:set-gs-path
)
(
net.aserve:publish-directory
:prefix
"/static/"
:destination
(
format
nil
"~a"
(
merge-pathnames
"static/"
glisp:*gdl-home*
)))
(
net.aserve:publish-directory
:prefix
"/site-static/"
:destination
(
format
nil
"~a"
(
merge-pathnames
"site-static/"
glisp:*gdl-home*
)))
(
net.aserve:publish-directory
:prefix
"/newsite-static/"
:destination
(
format
nil
"~a"
(
merge-pathnames
"newsite-static/"
glisp:*gdl-home*
)))
(
dolist
(
init-file
(
list
"gdlinit.cl"
".gdlinit.cl"
))
(
dolist
(
directory
(
list
glisp:*gdl-home*
(
user-homedir-pathname
)))
(
when
(
probe-file
(
merge-pathnames
init-file
directory
))
(
load
(
merge-pathnames
init-file
directory
)))))))
(
demo-days
nil
)))
(
defun
site-app
()
(
require
:smtp
)
(
require
:ftp
)
(
ql:quickload
:gdl-demos
)
(
ql:quickload
:gdl-downloads
)
(
let
((
self
(
make-object
'site-app
)))
(
when
(
probe-file
(
the
destination-directory
))
(
glisp:delete-directory-and-files
(
the
destination-directory
)))
(
the
make!
)
(
ensure-directories-exist
(
merge-pathnames
"SMLib8.51/"
(
the
destination-directory
)))
(
glisp:copy-file
(
merge-pathnames
"SMLib8.51/smlib.so"
glisp:*gdl-home*
)
(
merge-pathnames
"SMLib8.51/smlib.so"
(
the
destination-directory
)))
(
glisp:copy-file
(
merge-pathnames
"demos/gdlinit.cl"
glisp:*genworks-source-home*
)
(
merge-pathnames
"gdlinit.cl"
(
the
destination-directory
)))
(
glisp:copy-directory
(
merge-pathnames
"gdl/gwl/static/"
glisp:*genworks-source-home*
)
(
merge-pathnames
"static/"
(
the
destination-directory
)))
(
glisp:copy-directory
(
merge-pathnames
"demos/site/static/"
glisp:*genworks-source-home*
)
(
merge-pathnames
"site-static/"
(
the
destination-directory
)))
(
glisp:copy-directory
(
merge-pathnames
"demos/newsite/static/"
glisp:*genworks-source-home*
)
(
merge-pathnames
"newsite-static/"
(
the
destination-directory
)))
(
excl.osi:command-output
(
format
nil
"rsync -zav ~a dcooper8@genworks.com:~~/kitchen/~a/"
(
the
destination-directory
)
(
lastcar
(
pathname-directory
(
the
destination-directory
)))))
(
excl.osi:command-output
"ssh dcooper8@genworks.com killall -9 gdl-demos"
)))
demos/newsite/gdl-newsite.asd
View file @
1f9caf9a
(
asdf:defsystem
#:gdl-newsite
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2012032700"
:depends-on
(
:gdl-all
)
:components
((
:file
"source/index"
)
(
:file
"source/package"
)))
\ No newline at end of file
(
asdf:defsystem
#:gdl-newsite
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2012040900"
:depends-on
(
:gdl-all
)
:components
((
:file
"source/package"
)
(
:file
"source/Services"
)
(
:file
"source/assembly"
)
(
:file
"source/configurator"
)
(
:file
"source/contact-us"
)
(
:file
"source/demos"
)
(
:file
"source/index"
)
(
:file
"source/mixins"
)
(
:file
"source/news"
)
(
:file
"source/people"
)
(
:file
"source/products"
)
(
:file
"source/publish"
)))
\ No newline at end of file
demos/newsite/source/assembly.lisp
View file @
1f9caf9a
...
...
@@ -4,7 +4,8 @@
:computed-slots
((
title
"Genworks International - Welcome"
)
(
right-section-inner-html
(
the
index-html
right-section-inner-html
))
(
right-section-inner-html
(
the
current-right-section
right-section-inner-html
))
(
link-title
"Home"
)
(
pages
(
the
children
)))
...
...
@@ -13,13 +14,17 @@
:hidden-objects
((
news
:type
'news
)
(
configurator
:type
'configurator
))
(
robot
:type
'robot:assembly
))
:objects
((
index-html
:type
'index-html
)
(
products
:type
'products
)
(
services
:type
'services
)
(
demos
:type
'demos
)
(
people
:type
'people
)
(
contact-us
:type
'contact-us
)))
\ No newline at end of file
((
index-html
:type
'index-html
:respondent
self
)
(
products
:type
'products
:respondent
self
)
;;(services :type 'services)
;;(demos :type 'demos)
(
people
:type
'people
:respondent
self
)
(
contact-us
:type
'contact-us
:respondent
self
)))
\ No newline at end of file
demos/newsite/source/contact-us.lisp
View file @
1f9caf9a
(
in-package
:www.genworks.com
)
(
defparameter
*smtp-server*
"smtp.comcast.net"
)
(
define-object
contact-us
(
base-site-sheet
)
:input-slots
((
license-info
*licensed-emails*
))
:computed-slots
((
title
"Genworks International - Contact Us"
)
(
link-title
"Contact us"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:H2
"Contact us"
)
((
:DIV
:ID
"welcome"
)
((
:IMG
:SRC
"/newsite-static/images/pic_4.jpg"
:ALT
"Pic 1"
:CLASS
"left"
:WIDTH
"83"
:HEIGHT
"129"
))
(
:P
"Address: Decebal 35B"
)
(
:P
"City: Bistrita"
)
(
:P
"Country: Romania"
)
(
:P
"Tel: +40 36 340 5066"
)
(
:P
"Email: info@ke-works.ro"
))))))
(
:h2
"Contact Genworks"
)
((
:div
:id
"contact"
))
(
:p
"Please provide your email address so that we may check our records and
provide the appropriate level of service."
)
(
with-html-form
(
:cl-who?
t
)
(
if
(
the
message-sent?
)
(
htm
(
:p
"Your message has been sent. Thank you for contacting us."
)
(
:p
"Please "
((
:span
:class
"clickable"
:onclick
(
the
(
gdl-ajax-call
:function-key
:reset-message-sent
)))
"click here"
)
" if you would like to send another message."
))
(
htm
(
when
(
the
matched-name
)
(
htm
(
:h3
"Welcome "
(
str
(
the
matched-name
))
"."
)))
(
:fieldset
(
:p
(
str
(
the
email-address
html-string
)))
(
:p
(
str
(
the
subject
html-string
)))
(
:p
(
str
(
the
message-body
html-string
)))
(
:p
(
str
(
the
send-button
form-control-string
)))))))))
(
matched-email
(
find
(
the
email-address
value
)
(
the
license-info
)
:test
#'
string-equal
:key
#'
first
))
(
matched-name
(
when
(
the
matched-email
)
(
getf
(
rest
(
the
matched-email
))
:name
)))
(
supported-subject-options
(
list
:tech-support
"ask a Technical Support question"
:bug-report
"report an apparent Software Issue"
))
(
message-sent?
nil
:settable
)
)
:objects
(
;; FLAG -- change this to email-form-control when available
(
email-address
:type
'text-form-control
:size
42
:label-position
:prepend
:prompt
"Your Email Address: "
:default
""
:ajax-submit-on-change?
t
)
(
subject
:type
'menu-form-control
:prompt
"Subject: "
:size
1
:label-position
:prepend
;;:default (if (the matched-email) :tech-support :general)
:default
(
if
:tech-support
)
:ajax-submit-on-change?
t
:choice-plist
(
append
(
when
(
the
matched-email
)
(
the
supported-subject-options
))
(
list
:sales
"purchase Genworks GDL and/or Technical Support"
:var
"become a Genworks Value-added Reseller"
:evaluation
"do a Software Evaluation"
:license-renewal
"renew or retrieve license key file(s)"
:general
"ask a general question about Genworks GDL"
)))
(
message-body
:type
'text-form-control
:ajax-submit-on-change?
t
:default
""
:label-position
:table-td
:prompt
"Message: "
:size
42
:rows
25
)
(
send-button
:type
'button-form-control
:default
"Send"
:onclick
(
the
(
gdl-ajax-call
:function-key
:send-email
)))
)
:functions
((
reset-message-sent
()
(
the
(
set-slot!
:message-sent?
nil
)))
(
send-email
()
(
format
t
"Sending Email...~%"
)
(
print-variables
*smtp-server*
(
the
email-address
)
(
the
message-body
value
)
(
the
subject
value
)
(
getf
(
the
subject
choice-plist
)
(
the
subject
value
)))
#+
allegro
(
net.post-office:send-letter
*smtp-server*
(
the
email-address
value
)
"info@genworks.com"
(
the
message-body
value
)
:subject
(
getf
(
the
subject
choice-plist
)
(
make-keyword
(
the
subject
value
))))
(
the
restore-form-controls!
)
(
the
(
set-slot!
:message-sent?
t
)))
(
restore-form-controls!
()
(
dolist
(
item
(
list
(
the
subject
)
(
the
message-body
)))
(
the-object
item
restore-defaults!
)))))
(
defparameter
*licensed-emails*
(
list
(
list
"david.cooper@genworks.com"
:name
"Dave"
)
(
list
"teodor-gelu@genworks.com"
:name
"Teodor"
)
(
list
"michel.vantooren@fokker.com"
:name
"Michel"
)
(
list
"jochem.berends@ke-works.nl"
:name
"Jochem"
)
(
list
"trobertson@whiteboxlearning.com"
:name
"Tom"
)))
demos/newsite/source/file-ordering.isc
0 → 100755
View file @
1f9caf9a
("package")
\ No newline at end of file
demos/newsite/source/index.lisp
View file @
1f9caf9a
...
...
@@ -5,43 +5,45 @@
:computed-slots
((
title
"Genworks International - Welcome"
)
(
link-title
"Home"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:H2
"Welcome to Genworks"
)
((
:DIV
:ID
"welcome"
)
((
:IMG
:SRC
"/newsite-static/images/robot-small.gif"
:ALT
"Pic 1"
:CLASS
"left"
:WIDTH
"171"
:HEIGHT
"137"
))
(
:P
(
:STRONG
"Genworks"
)
" provides General-purpose Declarative Language (GDL), a Generative Applicaton Development system
for creating web-centric Knowledge Based Engineering and Business applications. Based on both ANSI and de-facto standards, GDL is
generative on many levels, "
((
:a
:href
"http://en.wikipedia.org/wiki/Automatic_programming"
)
"generating"
)
" detailed code while you write high-level definitions, then generating solutions to your problems
according to those definitions."
)
"The "
(
:STRONG
" (GDL)"
)
" suite is an open platform that blends the power of Common Lisp and "
(
:STRONG
"NURBS-based"
)
" geometry kernels. "
(
right-section-inner-html
(
with-cl-who-string
()
(
:h2
"Welcome to Genworks"
)
((
:div
:id
"welcome"
)
((
:img
:src
"/newsite-static/images/logo-transparent.png"
:ALT
"star-logo"
:CLASS
"left"
:WIDTH
"155"
:height
"149"
))
(
:p
(
:strong
"Genworks"
)
" provides General-purpose Declarative Language (GDL), a Generative Applicaton Development system
for creating web-centric Knowledge Based Engineering and Business applications. Based on both ANSI and
de-facto standards, GDL is generative on many levels, "
((
:a
:href
"http://en.wikipedia.org/wiki/Automatic_programming"
)
"generating"
)
" detailed code while you write high-level definitions, then generating solutions
to your customers' problems according to those definitions."
)
"The "
(
:strong
" (GDL)"
)
" suite is an open platform that blends the power of Common Lisp and "
(
:strong
"NURBS-based"
)
" geometry kernels. "
(
:
P
"Genworks GDL comes in a variety of configurations depending on your needs and resources,
(
:
p
"Genworks GDL comes in a variety of configurations depending on your needs and resources,
starting from a free open-source distribution through to fully supported packages with proprietary licensing and built with
high-end commercial components."
)
(
:
P
(
:
STRONG
"Genworks"
)
" is the first-level vendor for GDL. We work with a network of General Resellers and Value-added Resellers to provide
(
:
p
(
:
strong
"Genworks"
)
" is the first-level vendor for GDL. We work with a network of General Resellers and Value-added Resellers to provide
you with customized services and end-user applications, depending on your precise requirements."
))
(
:H3
"Company Profile"
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"corp"
)
((
:DIV
:ID
"corp-img"
)
"Aerospace"
)
(
:P
(
:STRONG
"Genworks International"
)
" was founded in November, 1997 as Knowledge Based Solutions, a Michigan Corporation. "
)
(
:P
"We operate as an independent entity, free of underlying debt or big-corporate influences."
)
(
:P
"Our focus is primarily as a first-level vendor for the GDL suite of tools, rather than domain-specific
vertical applications or specialized application consulting. This allows us to keep objectives aligned with our customers, and avoid
potential conflict-of-interest experienced by other KBE vendors who also presume to dominate the market for vertical applications and
consulting using their own tool."
)))))))
(
:h3
"Company Profile"
)
((
:div
:class
"profile"
)
((
:div
:id
"corp"
)
;;((:div :id "corp-img") "Aerospace")
(
:p
(
:strong
"Genworks International"
)
" was founded in November, 1997 as Knowledge Based Solutions, a Michigan Corporation. "
)
(
:p
"Genworks International operates as an independent entity free of underlying debt, hidden partners,
or big-corporate influences."
)
(
:p
"Our focus is primarily as a first-level vendor for the GDL suite of tools, rather than domain-specific
vertical applications or specialized application consulting. This allows us to keep objectives aligned
with our customers, and avoid potential conflict-of-interest experienced by other KBE vendors who also
presume to dominate the market for vertical applications and consulting using their own tool."
)))))))
demos/newsite/source/licensing.lisp
0 → 100644
View file @
1f9caf9a
(
in-package
:www.genworks.com
)
(
define-object
product-licensing
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Product Descriptions"
)
(
link-title
"Descriptions"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:h2
"Product Descriptions"
)
((
:div
:id
"welcome"
))
(
:ul
(
:li
((
:a
:href
(
the
descriptions
url
))
"Descriptions"
))
(
:li
((
:a
:href
(
the
licensing
url
))
"Licensing"
))
(
:li
((
:a
:href
(
the
configurator
url
))
"Configurator"
)))))))
demos/newsite/source/mixins.lisp
View file @
1f9caf9a
(
in-package
:www.genworks.com
)
(
define-object
base-site-sheet
(
base-ajax-sheet
)
(
define-object
base-site-sheet
(
base-ajax-
graphics-
sheet
)
:computed-slots
((
additional-header-content
(
with-cl-who-string
()
((
:link
:type
"text/css"
:rel
"stylesheet"
:href
"/newsite-static/css/style.css"
))
((
:meta
:name
"description"
:content
"Genworks is a developer and vendor for General-purpose Declarative Language (GDL), a high-productivity application development
system used for creating web-centric Knowledge-based Engineering and Business applications which can involve complex 3D geometry."
))
((
:meta
:name
"keywords"
:content
"Genworks, Knowledge-Based Engineering, KBE, GDL, Common Lisp, Generative Programming, Dynamic Languages, 3D Geometry, NURBS, Solid Modeling, Disruptive Technologies"
))))
:content
"Genworks is a developer and vendor for General-purpose Declarative Language (GDL),
a high-productivity application development system used for creating web-centric Knowledge-based
Engineering and Business applications which can involve complex 3D geometry."
))
((
:meta
:name
"keywords"
:content
"Genworks, Knowledge-Based Engineering, KBE, GDL, Common Lisp,
Generative Programming, Dynamic Languages, 3D Geometry, NURBS, Solid Modeling, Disruptive Technologies"
))
((
:script
:src
"/newsite-static/detect.js"
))
((
:script
:src
"/newsite-static/swfobject.js"
))))
(
additional-header-js-content
(
with-cl-who-string
()
(
:script
"
$j = jQuery.noConflict();
$j(document).ready(function() {
var canvas;
var gl, experimental;
var has_web_gl = false;
var has_flash = false;
var x3d_element = null;
b = BrowserDetect;
b.init();
canvas = document.getElementById(\"x3dom-logo\");
try {
gl = canvas.getContext(\"webgl\");
} catch (x) {