Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
0b56dc05
Commit
0b56dc05
authored
Mar 29, 2012
by
Dave Cooper
Browse files
added training slides, changed main-view to inner-html
parent
74abba6b
Changes
273
Hide whitespace changes
Inline
Side-by-side
demos/newsite/depends-on.isc
0 → 100644
View file @
0b56dc05
(:gdl-all)
\ No newline at end of file
demos/newsite/gdl-newsite.asd
0 → 100644
View file @
0b56dc05
(
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
demos/newsite/source/Services.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
services
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Services"
)
(
link-title
"Services"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:H2
"Our Services"
)
((
:DIV
:ID
"welcome"
))
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"peop"
)
(
:H3
"Value-added application support "
)
(
:P
"One year Maintenance and Implementation Support (provided by KE-Works, up to 5 events), with the option to renew at any time for a 5 k€ fee."
)
(
:H3
"Remote consultancy "
)
(
:P
"Service scheduled for release Q1 2012."
)
(
:H3
"On-site consultancy "
)
(
:P
"Service scheduled for release Q1 2012."
)))))))
\ No newline at end of file
demos/newsite/source/assembly.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
assembly
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Welcome"
)
(
right-section-inner-html
(
the
index-html
right-section-inner-html
))
(
link-title
"Home"
)
(
pages
(
the
children
)))
:trickle-down-slots
(
pages
)
:hidden-objects
((
news
:type
'news
)
(
configurator
:type
'configurator
))
: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
demos/newsite/source/configurator.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
configurator
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Product Configurator"
)
(
link-title
"Product Configurator"
)
(
current-price
(
*
(
the
quantity
value
)
(
+
(
ecase
(
the
license
value
)
(
:agpl
0
)
(
:proprietary
3000
))
(
ecase
(
the
lisp-engine
value
)
(
:none
0
)
(
:sbcl
0
)
(
:ccl
0
)
(
:acl
5000
)
(
:lw
3000
))
(
ecase
(
the
support-level
value
)
(
:none
0
)
(
:install
300
)
(
:comprehensive
9000
))
(
ecase
(
the
geometry-kernel
value
)
(
:basic
0
)
(
:smlib
9000
)))))
(
right-section-inner-html
(
with-cl-who-string
()
(
:h2
"Configure your Download"
)
((
:div
:id
"configurator"
))
(
:p
(
:h1
(
fmt
"Price: $~$"
(
the
current-price
))))
(
with-html-form
(
:cl-who?
t
)
(
:fieldset
(
str
(
the
quantity
html-string
))
(
str
(
the
license
html-string
))
(
str
(
the
lisp-engine
html-string
))
(
str
(
the
support-level
html-string
))
(
str
(
the
geometry-kernel
html-string
)))))))
:objects
((
quantity
:type
'text-form-control
:size
1
:default
1
:prompt
"Quantity"
:ajax-submit-on-change?
t
)
(
license
:type
'menu-form-control
:size
1
:choice-plist
(
list
:agpl
"AGPL"
:proprietary
"Proprietary"
)
:default
:agpl
:prompt
"License"
:ajax-submit-on-change?
t
)
(
lisp-engine
:type
'menu-form-control
:size
1
:choice-plist
(
list
:none
"None"
:sbcl
"SBCL"
:ccl
"Clozure CL"
:acl
"Franz® Allegro CL"
:lw
"LispWorks"
)
:default
:none
:prompt
"Common Lisp Engine"
:ajax-submit-on-change?
t
)
(
support-level
:type
'menu-form-control
:size
1
:choice-plist
(
list
:none
"None"
:install
"Installation"
:comprehensive
"Comprehensive"
)
:default
:none
:ajax-submit-on-change?
t
)
(
geometry-kernel
:type
'menu-form-control
:size
1
:choice-plist
(
list
:basic
"Basic"
:smlib
"SMLib from Solid Modeling Solutions™"
)
:default
:basic
:ajax-submit-on-change?
t
)))
demos/newsite/source/contact-us.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
contact-us
(
base-site-sheet
)
: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"
))))))
demos/newsite/source/demos.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
demos
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Demos"
)
(
link-title
"Demos"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:H2
"Demos"
)
(
:H3
"Aerospace"
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"d-corp"
)
((
:DIV
:ID
"d-corp-img"
)
"
Aero Demo 1"
)
(
:P
"Under construction "
))
((
:DIV
:ID
"d-indu"
)
((
:DIV
:ID
"d-indu-img"
)
"
Aero Demo 2"
)
(
:P
"Under construction "
))
((
:P
:CLASS
"more"
)
((
:A
:HREF
""
)
"View Details"
)))
(
:H3
"Wind Energy"
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"d-corp"
)
((
:DIV
:ID
"d-corp-img"
)
"
Wind Demo 1"
)
(
:P
"Under construction"
))
((
:DIV
:ID
"d-indu"
)
((
:DIV
:ID
"d-indu-img"
)
"
Wind Demo 2"
)
(
:P
"Under construction"
))
((
:DIV
:CLASS
"clear"
))
((
:P
:CLASS
"more"
)
((
:A
:HREF
""
)
"View Details"
)))))))
demos/newsite/source/index.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
index-html
(
base-site-sheet
)
: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. "
(
: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
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."
)))))))
demos/newsite/source/mixins.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
base-site-sheet
(
base-ajax-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"
))))
(
html-sections
(
list
(
the
nav-section
)
(
the
news-section
)
(
the
support-section
)
(
the
right-section
)
(
the
footer-section
)))
(
main-sheet-body
(
with-cl-who-string
()
((
:div
:id
"wrapper"
)
((
:div
:id
"header"
)
(
when
*developing?*
(
str
(
the
development-links
))))
((
:div
:id
"left"
)
((
:div
:id
"logo"
)
(
:H1
"Genworks International"
)
(
:p
"Practical Tools for Generative Application Development"
))
(
str
(
the
nav-section
main-div
))
(
str
(
the
news-section
main-div
))
(
str
(
the
support-section
main-div
)))
(
str
(
the
right-section
main-div
))
((
:div
:class
"clear"
))
((
:div
:id
"spacer"
))
(
str
(
the
footer-section
main-div
)))))
(
right-section-inner-html
(
with-cl-who-string
()
(
:h2
"Empty Template"
)))
(
link-title
(
the
strings-for-display
)))
:hidden-objects
((
nav-section
:type
'sheet-section
:dom-id
"nav"
:inner-html
(
with-cl-who-string
()
(
:ul
(
dolist
(
page
(
the
pages
))
(
htm
(
:li
((
:a
:href
(
the
(
relative-url-to
(
the-object
page
url
))))
(
str
(
the-object
page
link-title
)))))))))
(
news-section
:type
'sheet-section
:dom-id
"news"
:inner-html
(
with-cl-who-string
()
((
:div
:class
"news"
)
(
:h2
"Latest News"
)
(
:h3
"2012-03-28"
)
(
:p
"New Genworks Website prototype is launched."
)
((
:div
:class
"hr-dots"
))
(
:h3
"2012-03-15"
)
(
:p
"Integration and Testing of Genworks GDL 1581 with "
((
:a
:href
"http://www.smlib.com"
)
" SMLib 8.51 "
)
" is completed."
)
(
if
(
eql
self
(
the
news
))
(
htm
((
:p
:class
"more"
)
((
:a
:href
(
the
(
relative-url-to
(
the
index-html
url
))))
"less..."
)))
(
htm
((
:p
:class
"more"
)
((
:a
:href
(
the
(
relative-url-to
(
the
news
url
))))
"more..."
)))))))
(
support-section
:type
'sheet-section
:dom-id
"support"
:inner-html
(
with-cl-who-string
()
(
:P
"Technical Support"
)))
(
right-section
:type
'sheet-section
:dom-id
"right"
:inner-html
(
the
right-section-inner-html
))
(
footer-section
:type
'sheet-section
:dom-id
"footer"
:inner-html
(
with-cl-who-string
()
((
:div
:id
"copyright"
)
"Copyright © 2011 Copyright KE-Works S.R.L Romania All right reserved."
)
((
:div
:id
"footerline"
))))))
demos/newsite/source/news.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
news
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - News"
)
(
link-title
"News"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:h2
"Prior News"
)
(
:H3
"2012-03-01"
)
(
:p
"Genworks GDL included as a standard dist with "
((
:a
:href
"http://www.quicklisp.org"
)
"Quicklisp"
)
"."
)
((
:div
:class
"hr-dots"
))
(
:h3
"2012-02-01"
)
(
:p
"Port of core Genworks GDL to "
((
:a
:href
"http://www.sbcl.org"
)
"Steel Bank Common Lisp"
)
" is completed."
)
(
:h3
"2012-01-01"
)
(
:p
"Genworks GDL 1581 Stable Beta release available, available on "
((
:a
:href
"http://www.franz.com/products/allegro"
)
"Allegro CL 8.2"
)
" and "
((
:a
:href
"http://www.lispworks.com/news/news31.html"
)
"LispWorks 6.1"
))
(
:h3
"2011-10-24"
)
(
:p
((
:a
:href
"http://en.wikipedia.org/wiki/John_McCarthy_(computer_scientist)"
)
"John McCarthy"
)
", father of Lisp programming language family, exits the planet."
)
(
:h3
"2011-10-23"
)
(
:p
"Open-sourcing of GDL under "
((
:a
:href
"http://www.gnu.org/licenses/agpl-3.0.html"
)
"Gnu Affero General Public License"
)
" is announced at "
((
:a
:href
"http://blip.tv/eclm"
)
"ECLM 2011"
)
"."
)))))
demos/newsite/source/package.lisp
0 → 100644
View file @
0b56dc05
(
gwl:define-package
:www.genworks.com
(
:export
#:assembly
))
demos/newsite/source/people.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
people
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - People"
)
(
link-title
"People"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:H2
"Our people"
)
((
:DIV
:ID
"welcome"
))
(
:H3
"Chiciudean Teodor Gelu "
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"peop"
)
(
:H4
"Engineering Consultant, composite materials and KBE "
)
(
:P
"Teodor founded KE-Works S.R.L. Romania in 2009. At that time, he was a PhD Researcher
at Delft University of Technology in the department of Systems Engineering and Aircraft Design.
In 2011 he joined Genworks International as a consultant for Documentation, Geometry Primitives
Development and Support."
)
(
:P
"Teodor holds a Dipl-Ing. "M.Sc." degree in Aircraft Propulsion System, from Politehnica
University of Bucharest, Faculty of Aerospace Engineering and a Doctor degree in Chemical Engineering "Composite Materials"
from Politehnica University Bucharest, Faculty of Applied Chemistry and Materials Science. "
)))
(
:H3
"Alina Alexandra Tache "
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"peop"
)
(
:H4
"Engineering Consultant, composite materials and NDI"
)
(
:P
"Alina has a background in Chemical Engineering. She holds a M.Sc. degree from Politehnica University of
Bucharest, Faculty of Applied Chemistry and Materials Science. She is involved with research in improving the
polymer matrix fiber interface, Bio-composite materials design, prototype manufacturing and testing."
)
(
:P
"She possesses expertise in Nondestructive Inspection (NDI) and it is a certified level I
practitioner in ARN-TN Insignificant Radiologic Risk Activities - Nuclear Techniques by the Romanian
National Commission for Nuclear Activities Control (CNCAN). "
)))
(
:H3
"Carcu Andrei Eugen "
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"peop"
)
(
:H4
"IT Consultant, visualization and networking "
)
(
:P
"Andrei has a background in Telecommunications and Multimedia Technology. He holds a Dipl-Ing. "M.Sc."
degree from Technical University of Cluj Napoca, Faculty of Telecommunications and Technology of Information.
He is involved in product configuration management (hardware and software "C, C#, C++"),
database "SQL" and server deployment support."
)
(
:P
"Andrei has several years of experience as a support engineer at CEMA AG and Alcatel-Lucent
and holds a Microsoft Active Directory and Cisco certification."
)))
(
:H3
"Varga Diana Iulia "
)
((
:DIV
:ID
"profile"
)
((
:DIV
:ID
"peop"
)
(
:H4
"Consultant, marketing and customer relations"
)
(
:P
"Diana has a background in Management in which she holds a M.Sc. degree from University Babes-Bolyai, Cluj-Napoca.
She is involved in finance budgeting, customer relations, and licensing."
)))))))
demos/newsite/source/products.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
define-object
products
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Products"
)
(
link-title
"Products"
)
(
right-section-inner-html
(
with-cl-who-string
()
(
:h2
"Our Products"
)
((
:div
:id
"welcome"
))
(
:p
((
:a
:href
(
the
configurator
url
))
"Product Configurator"
))))))
demos/newsite/source/publish.lisp
0 → 100644
View file @
0b56dc05
(
in-package
:www.genworks.com
)
(
let
((
static
(
namestring
(
merge-pathnames
"newsite/static/"
(
asdf:system-source-directory
"gdl-demos"
))))
(
images
(
namestring
(
merge-pathnames
"newsite/images/"
(
asdf:system-source-directory
"gdl-demos"
)))))
(
publish-directory
:prefix
"/newsite-static/"
:headers
(
list
(
cons
:cache-control
"86400"
))
:destination
static
))
(
publish-gwl-app
"/newsite"
"www.genworks.com:assembly"
)
(
publish-gwl-app
"/newsite/"
"www.genworks.com:assembly"
)
(
publish-gwl-app
"/newsite.html"
"www.genworks.com:assembly"
)
demos/newsite/static/css/style.css
0 → 100644
View file @
0b56dc05
html
,
body
,
h1
,
h2
,
h3
,
h4
,
ul
,
li
{
margin
:
0
;
padding
:
0
;
}
h1
img
{
display
:
block
;
}
img
{
border
:
0
;
}
a
{
color
:
#464544
;
}
a
:hover
{
color
:
#FFA405
;
}
.left
{
float
:
left
;
}
.right
{
float
:
right
;
}
.more
{
text-align
:
right
;
}
.clear
{
clear
:
both
;
}
body
{
background
:
#E0D5B7
url(../images/page_bg.jpg)
repeat-x
;
text-align
:
center
;
font
:
11px
verdana
,
arial
,
sans-serif
;
color
:
#74653D
;
padding-bottom
:
10px
;
padding-top
:
31px
;
}
/** layout **/
#wrapper
{
text-align
:
left
;
margin
:
auto
;
width
:
778px
;
position
:
relative
;
background
:
url(../images/body_bg.gif)
repeat-y
;
}
#header
{
position
:
absolute
;
top
:
0
;
left
:
243px
;
width
:
535px
;
height
:
279px
;
/* background: url(../images/header_2.jpg) no-repeat; */
background
:
url(../images/aero-small.png)
no-repeat
;
}
#header-people
{
position
:
absolute
;
top
:
0
;
left
:
243px
;
width
:
535px
;
height
:
279px
;
background
:
url(../images/header_22.jpg)
no-repeat
;
}
#left
{
float
:
left
;
width
:
243px
;
}
#logo
{
width
:
244px
;
height
:
152px
;
background
:
url(../images/header_1.jpg)
no-repeat
;
text-align
:
center
;
color
:
#595959
;
}
#logo
h1
{
padding-top
:
30px
;
font
:
24px
"arial narrow"
,
arial
,
sans-serif
;
}
#logo
p
{
margin
:
8px
25px
4px
25px
;
border-top
:
1px
solid
#B8B8B8
;
border-bottom
:
1px
solid
#B8B8B8
;
padding
:
3px
;
letter-spacing
:
0.2em
;
font-weight
:
bold
;
}
#nav
{
background
:
url(../images/nav_left.jpg)
no-repeat
;
}
#nav
ul
{
margin-left
:
9px
;
padding-left
:
1px
;
padding-bottom
:
29px
;
background
:
#2A2A2A
bottom
left
url(../images/nav_bot.jpg)
no-repeat
;
}
#nav
li
{
list-style
:
none
;
font
:
14px
"arial narrow"
,
arial
,
sans-serif
;
border-top
:
1px
solid
#959595
;
background
:
188px
10px
url(../images/arr_white.gif)
no-repeat
;
padding
:
7px
0
0
31px
;
}
#nav
a
{
color
:
#fff
;
text-decoration
:
none
;
border-left
:
1px
solid
#959595
;
padding-left
:
10px
;
display
:
block
;
width
:
90%
;
padding
:
2px
0
6px
8px
;
}
#nav
a
:hover
{
text-decoration
:
underline
;
}
#nav
.importantt
a
{
color
:
#E9C379
;
}
#nav
.important
{
border
:
none
;
background
:
188px
10px
url(../images/arr_orange.gif)
no-repeat
;
}
#nav
.important
a
{
color
:
#E9C379
;
}
.news
{
background
:
url(../images/news_bg.jpg)
repeat-y
;
padding-left
:
37px
;
padding-right
:
22px
;
padding-bottom
:
3px
;
text-align
:
justify
;
}
.news
h2
{
font-size
:
12px
;
color
:
#BE8B06
;
}
.news
h3
,
#news
p
{
font-size
:
11px
;
margin
:
1em
8px
1em
0
;
}
.news
a
{
color
:
#74653D
;
font-weight
:
bold
;