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
8001f973
Commit
8001f973
authored
Mar 12, 2013
by
Dave Cooper
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
removed site and site-static for factoring and overhaul
parent
093aa360
Changes
214
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
214 changed files
with
0 additions
and
7874 deletions
+0
-7874
demos/newsite/source/Services.lisp
demos/newsite/source/Services.lisp
+0
-39
demos/newsite/source/assembly.lisp
demos/newsite/source/assembly.lisp
+0
-73
demos/newsite/source/configurator-engine.lisp
demos/newsite/source/configurator-engine.lisp
+0
-265
demos/newsite/source/configurator.lisp
demos/newsite/source/configurator.lisp
+0
-546
demos/newsite/source/contact-us.lisp
demos/newsite/source/contact-us.lisp
+0
-154
demos/newsite/source/demos.lisp
demos/newsite/source/demos.lisp
+0
-50
demos/newsite/source/documentation.lisp
demos/newsite/source/documentation.lisp
+0
-213
demos/newsite/source/downloads.lisp
demos/newsite/source/downloads.lisp
+0
-39
demos/newsite/source/explanations.lisp
demos/newsite/source/explanations.lisp
+0
-424
demos/newsite/source/explanations.txt
demos/newsite/source/explanations.txt
+0
-234
demos/newsite/source/file-ordering.isc
demos/newsite/source/file-ordering.isc
+0
-23
demos/newsite/source/ignore-list.isc
demos/newsite/source/ignore-list.isc
+0
-3
demos/newsite/source/index.lisp
demos/newsite/source/index.lisp
+0
-73
demos/newsite/source/language.lisp
demos/newsite/source/language.lisp
+0
-59
demos/newsite/source/licensing.lisp
demos/newsite/source/licensing.lisp
+0
-41
demos/newsite/source/locales.lisp
demos/newsite/source/locales.lisp
+0
-583
demos/newsite/source/mixins.lisp
demos/newsite/source/mixins.lisp
+0
-295
demos/newsite/source/news.lisp
demos/newsite/source/news.lisp
+0
-61
demos/newsite/source/package.lisp
demos/newsite/source/package.lisp
+0
-26
demos/newsite/source/people.lisp
demos/newsite/source/people.lisp
+0
-119
demos/newsite/source/product-descriptions.lisp
demos/newsite/source/product-descriptions.lisp
+0
-163
demos/newsite/source/products.lisp
demos/newsite/source/products.lisp
+0
-48
demos/newsite/source/publish.lisp
demos/newsite/source/publish.lisp
+0
-35
demos/newsite/static/css/style.css
demos/newsite/static/css/style.css
+0
-432
demos/newsite/static/detect.js
demos/newsite/static/detect.js
+0
-235
demos/newsite/static/documents/contributor.pdf
demos/newsite/static/documents/contributor.pdf
+0
-0
demos/newsite/static/documents/eval.txt
demos/newsite/static/documents/eval.txt
+0
-301
demos/newsite/static/documents/gendl-development.pdf
demos/newsite/static/documents/gendl-development.pdf
+0
-0
demos/newsite/static/documents/student.txt
demos/newsite/static/documents/student.txt
+0
-298
demos/newsite/static/images/--resize
demos/newsite/static/images/--resize
+0
-0
demos/newsite/static/images/535x279
demos/newsite/static/images/535x279
+0
-0
demos/newsite/static/images/CIMG0007.jpg
demos/newsite/static/images/CIMG0007.jpg
+0
-0
demos/newsite/static/images/Gendl-dave-low-521.png
demos/newsite/static/images/Gendl-dave-low-521.png
+0
-0
demos/newsite/static/images/Gendl-dave-low.png
demos/newsite/static/images/Gendl-dave-low.png
+0
-0
demos/newsite/static/images/Information.png
demos/newsite/static/images/Information.png
+0
-0
demos/newsite/static/images/a2.gif
demos/newsite/static/images/a2.gif
+0
-0
demos/newsite/static/images/aero-small.png
demos/newsite/static/images/aero-small.png
+0
-0
demos/newsite/static/images/aero-structure-b.png
demos/newsite/static/images/aero-structure-b.png
+0
-0
demos/newsite/static/images/alina.jpg
demos/newsite/static/images/alina.jpg
+0
-0
demos/newsite/static/images/andrei.jpg
demos/newsite/static/images/andrei.jpg
+0
-0
demos/newsite/static/images/arr_orange.gif
demos/newsite/static/images/arr_orange.gif
+0
-0
demos/newsite/static/images/arr_white.gif
demos/newsite/static/images/arr_white.gif
+0
-0
demos/newsite/static/images/body_bg.gif
demos/newsite/static/images/body_bg.gif
+0
-0
demos/newsite/static/images/body_bot.jpg
demos/newsite/static/images/body_bot.jpg
+0
-0
demos/newsite/static/images/body_top.jpg
demos/newsite/static/images/body_top.jpg
+0
-0
demos/newsite/static/images/british-flag.jpg
demos/newsite/static/images/british-flag.jpg
+0
-0
demos/newsite/static/images/cards-classic/1.png
demos/newsite/static/images/cards-classic/1.png
+0
-0
demos/newsite/static/images/cards-classic/10.png
demos/newsite/static/images/cards-classic/10.png
+0
-0
demos/newsite/static/images/cards-classic/11.png
demos/newsite/static/images/cards-classic/11.png
+0
-0
demos/newsite/static/images/cards-classic/12.png
demos/newsite/static/images/cards-classic/12.png
+0
-0
demos/newsite/static/images/cards-classic/13.png
demos/newsite/static/images/cards-classic/13.png
+0
-0
demos/newsite/static/images/cards-classic/14.png
demos/newsite/static/images/cards-classic/14.png
+0
-0
demos/newsite/static/images/cards-classic/15.png
demos/newsite/static/images/cards-classic/15.png
+0
-0
demos/newsite/static/images/cards-classic/16.png
demos/newsite/static/images/cards-classic/16.png
+0
-0
demos/newsite/static/images/cards-classic/17.png
demos/newsite/static/images/cards-classic/17.png
+0
-0
demos/newsite/static/images/cards-classic/18.png
demos/newsite/static/images/cards-classic/18.png
+0
-0
demos/newsite/static/images/cards-classic/19.png
demos/newsite/static/images/cards-classic/19.png
+0
-0
demos/newsite/static/images/cards-classic/2.png
demos/newsite/static/images/cards-classic/2.png
+0
-0
demos/newsite/static/images/cards-classic/20.png
demos/newsite/static/images/cards-classic/20.png
+0
-0
demos/newsite/static/images/cards-classic/21.png
demos/newsite/static/images/cards-classic/21.png
+0
-0
demos/newsite/static/images/cards-classic/22.png
demos/newsite/static/images/cards-classic/22.png
+0
-0
demos/newsite/static/images/cards-classic/23.png
demos/newsite/static/images/cards-classic/23.png
+0
-0
demos/newsite/static/images/cards-classic/24.png
demos/newsite/static/images/cards-classic/24.png
+0
-0
demos/newsite/static/images/cards-classic/25.png
demos/newsite/static/images/cards-classic/25.png
+0
-0
demos/newsite/static/images/cards-classic/26.png
demos/newsite/static/images/cards-classic/26.png
+0
-0
demos/newsite/static/images/cards-classic/27.png
demos/newsite/static/images/cards-classic/27.png
+0
-0
demos/newsite/static/images/cards-classic/28.png
demos/newsite/static/images/cards-classic/28.png
+0
-0
demos/newsite/static/images/cards-classic/29.png
demos/newsite/static/images/cards-classic/29.png
+0
-0
demos/newsite/static/images/cards-classic/3.png
demos/newsite/static/images/cards-classic/3.png
+0
-0
demos/newsite/static/images/cards-classic/30.png
demos/newsite/static/images/cards-classic/30.png
+0
-0
demos/newsite/static/images/cards-classic/31.png
demos/newsite/static/images/cards-classic/31.png
+0
-0
demos/newsite/static/images/cards-classic/32.png
demos/newsite/static/images/cards-classic/32.png
+0
-0
demos/newsite/static/images/cards-classic/33.png
demos/newsite/static/images/cards-classic/33.png
+0
-0
demos/newsite/static/images/cards-classic/34.png
demos/newsite/static/images/cards-classic/34.png
+0
-0
demos/newsite/static/images/cards-classic/35.png
demos/newsite/static/images/cards-classic/35.png
+0
-0
demos/newsite/static/images/cards-classic/36.png
demos/newsite/static/images/cards-classic/36.png
+0
-0
demos/newsite/static/images/cards-classic/37.png
demos/newsite/static/images/cards-classic/37.png
+0
-0
demos/newsite/static/images/cards-classic/38.png
demos/newsite/static/images/cards-classic/38.png
+0
-0
demos/newsite/static/images/cards-classic/39.png
demos/newsite/static/images/cards-classic/39.png
+0
-0
demos/newsite/static/images/cards-classic/4.png
demos/newsite/static/images/cards-classic/4.png
+0
-0
demos/newsite/static/images/cards-classic/40.png
demos/newsite/static/images/cards-classic/40.png
+0
-0
demos/newsite/static/images/cards-classic/41.png
demos/newsite/static/images/cards-classic/41.png
+0
-0
demos/newsite/static/images/cards-classic/42.png
demos/newsite/static/images/cards-classic/42.png
+0
-0
demos/newsite/static/images/cards-classic/43.png
demos/newsite/static/images/cards-classic/43.png
+0
-0
demos/newsite/static/images/cards-classic/44.png
demos/newsite/static/images/cards-classic/44.png
+0
-0
demos/newsite/static/images/cards-classic/45.png
demos/newsite/static/images/cards-classic/45.png
+0
-0
demos/newsite/static/images/cards-classic/46.png
demos/newsite/static/images/cards-classic/46.png
+0
-0
demos/newsite/static/images/cards-classic/47.png
demos/newsite/static/images/cards-classic/47.png
+0
-0
demos/newsite/static/images/cards-classic/48.png
demos/newsite/static/images/cards-classic/48.png
+0
-0
demos/newsite/static/images/cards-classic/49.png
demos/newsite/static/images/cards-classic/49.png
+0
-0
demos/newsite/static/images/cards-classic/5.png
demos/newsite/static/images/cards-classic/5.png
+0
-0
demos/newsite/static/images/cards-classic/50.png
demos/newsite/static/images/cards-classic/50.png
+0
-0
demos/newsite/static/images/cards-classic/51.png
demos/newsite/static/images/cards-classic/51.png
+0
-0
demos/newsite/static/images/cards-classic/52.png
demos/newsite/static/images/cards-classic/52.png
+0
-0
demos/newsite/static/images/cards-classic/53.png
demos/newsite/static/images/cards-classic/53.png
+0
-0
demos/newsite/static/images/cards-classic/54.png
demos/newsite/static/images/cards-classic/54.png
+0
-0
demos/newsite/static/images/cards-classic/6.png
demos/newsite/static/images/cards-classic/6.png
+0
-0
demos/newsite/static/images/cards-classic/7.png
demos/newsite/static/images/cards-classic/7.png
+0
-0
demos/newsite/static/images/cards-classic/8.png
demos/newsite/static/images/cards-classic/8.png
+0
-0
demos/newsite/static/images/cards-classic/9.png
demos/newsite/static/images/cards-classic/9.png
+0
-0
demos/newsite/static/images/cards-classic/index.desktop
demos/newsite/static/images/cards-classic/index.desktop
+0
-5
demos/newsite/static/images/china-flag.gif
demos/newsite/static/images/china-flag.gif
+0
-0
demos/newsite/static/images/code-background.png
demos/newsite/static/images/code-background.png
+0
-0
demos/newsite/static/images/contact-support.jpg
demos/newsite/static/images/contact-support.jpg
+0
-0
demos/newsite/static/images/diana.bmp
demos/newsite/static/images/diana.bmp
+0
-0
demos/newsite/static/images/documentation-small.jpg
demos/newsite/static/images/documentation-small.jpg
+0
-0
demos/newsite/static/images/documentation.jpg
demos/newsite/static/images/documentation.jpg
+0
-0
demos/newsite/static/images/dots.gif
demos/newsite/static/images/dots.gif
+0
-0
demos/newsite/static/images/footer_bg.gif
demos/newsite/static/images/footer_bg.gif
+0
-0
demos/newsite/static/images/footerline.jpg
demos/newsite/static/images/footerline.jpg
+0
-0
demos/newsite/static/images/genworks-noesis-compact.png
demos/newsite/static/images/genworks-noesis-compact.png
+0
-0
demos/newsite/static/images/green-checkmark.jpg
demos/newsite/static/images/green-checkmark.jpg
+0
-0
demos/newsite/static/images/header_1.jpg
demos/newsite/static/images/header_1.jpg
+0
-0
demos/newsite/static/images/header_2.jpg
demos/newsite/static/images/header_2.jpg
+0
-0
demos/newsite/static/images/header_22.jpg
demos/newsite/static/images/header_22.jpg
+0
-0
demos/newsite/static/images/logo-transparent.png
demos/newsite/static/images/logo-transparent.png
+0
-0
demos/newsite/static/images/me-phone.jpg
demos/newsite/static/images/me-phone.jpg
+0
-0
demos/newsite/static/images/michel.jpg
demos/newsite/static/images/michel.jpg
+0
-0
demos/newsite/static/images/nav_bot.jpg
demos/newsite/static/images/nav_bot.jpg
+0
-0
demos/newsite/static/images/nav_left.jpg
demos/newsite/static/images/nav_left.jpg
+0
-0
demos/newsite/static/images/news_bg.jpg
demos/newsite/static/images/news_bg.jpg
+0
-0
demos/newsite/static/images/page_bg.jpg
demos/newsite/static/images/page_bg.jpg
+0
-0
demos/newsite/static/images/pic_1.jpg
demos/newsite/static/images/pic_1.jpg
+0
-0
demos/newsite/static/images/pic_2.jpg
demos/newsite/static/images/pic_2.jpg
+0
-0
demos/newsite/static/images/pic_3.jpg
demos/newsite/static/images/pic_3.jpg
+0
-0
demos/newsite/static/images/pic_4.jpg
demos/newsite/static/images/pic_4.jpg
+0
-0
demos/newsite/static/images/product.bmp
demos/newsite/static/images/product.bmp
+0
-0
demos/newsite/static/images/reinier.jpg
demos/newsite/static/images/reinier.jpg
+0
-0
demos/newsite/static/images/robot-small.gif
demos/newsite/static/images/robot-small.gif
+0
-0
demos/newsite/static/images/support.jpg
demos/newsite/static/images/support.jpg
+0
-0
demos/newsite/static/images/teodor.jpg
demos/newsite/static/images/teodor.jpg
+0
-0
demos/newsite/static/swfobject.js
demos/newsite/static/swfobject.js
+0
-4
demos/newsite/static/x3dom.swf
demos/newsite/static/x3dom.swf
+0
-0
demos/newsite/to-do.txt
demos/newsite/to-do.txt
+0
-23
demos/site/depends-on.isc
demos/site/depends-on.isc
+0
-1
demos/site/html/How to Report Bugs Effectively.pdf
demos/site/html/How to Report Bugs Effectively.pdf
+0
-0
demos/site/html/How to Report Bugs Effectively.webarchive
demos/site/html/How to Report Bugs Effectively.webarchive
+0
-546
demos/site/kitchen/gdlinit.cl
demos/site/kitchen/gdlinit.cl
+0
-105
demos/site/kitchen/safe-start
demos/site/kitchen/safe-start
+0
-7
demos/site/kitchen/start
demos/site/kitchen/start
+0
-5
demos/site/source/assembly.lisp
demos/site/source/assembly.lisp
+0
-86
demos/site/source/contact.lisp
demos/site/source/contact.lisp
+0
-37
demos/site/source/demos.lisp
demos/site/source/demos.lisp
+0
-66
demos/site/source/file-ordering.isc
demos/site/source/file-ordering.isc
+0
-22
demos/site/source/glossary.lisp
demos/site/source/glossary.lisp
+0
-128
demos/site/source/index.lisp
demos/site/source/index.lisp
+0
-50
demos/site/source/landing.lisp
demos/site/source/landing.lisp
+0
-74
demos/site/source/licensing.lisp
demos/site/source/licensing.lisp
+0
-90
demos/site/source/maintenance.lisp
demos/site/source/maintenance.lisp
+0
-77
demos/site/source/make.lisp
demos/site/source/make.lisp
+0
-23
demos/site/source/mixins.lisp
demos/site/source/mixins.lisp
+0
-165
demos/site/source/new.lisp
demos/site/source/new.lisp
+0
-65
demos/site/source/opportunities.lisp
demos/site/source/opportunities.lisp
+0
-61
demos/site/source/options.lisp
demos/site/source/options.lisp
+0
-68
demos/site/source/package.lisp
demos/site/source/package.lisp
+0
-22
demos/site/source/people.lisp
demos/site/source/people.lisp
+0
-147
demos/site/source/pricing.lisp
demos/site/source/pricing.lisp
+0
-50
demos/site/source/products.lisp
demos/site/source/products.lisp
+0
-99
demos/site/source/publish.lisp
demos/site/source/publish.lisp
+0
-42
demos/site/source/security.lisp
demos/site/source/security.lisp
+0
-58
demos/site/static/aclu.html
demos/site/static/aclu.html
+0
-58
demos/site/static/aclu_files/idea-1.png
demos/site/static/aclu_files/idea-1.png
+0
-0
demos/site/static/css/ie.css
demos/site/static/css/ie.css
+0
-20
demos/site/static/css/main.css
demos/site/static/css/main.css
+0
-472
demos/site/static/css/niftyCorners.css
demos/site/static/css/niftyCorners.css
+0
-35
demos/site/static/googlehostedservice.html
demos/site/static/googlehostedservice.html
+0
-1
demos/site/static/images/buttons/_notes/compass.jpg.mno
demos/site/static/images/buttons/_notes/compass.jpg.mno
+0
-4
demos/site/static/images/buttons/compass.jpg
demos/site/static/images/buttons/compass.jpg
+0
-0
demos/site/static/images/buttons/compass.png
demos/site/static/images/buttons/compass.png
+0
-0
demos/site/static/images/buttons/minus.gif
demos/site/static/images/buttons/minus.gif
+0
-0
demos/site/static/images/buttons/plus.gif
demos/site/static/images/buttons/plus.gif
+0
-0
demos/site/static/images/demos/_notes/bus.gif.mno
demos/site/static/images/demos/_notes/bus.gif.mno
+0
-4
demos/site/static/images/demos/_notes/tank.gif.mno
demos/site/static/images/demos/_notes/tank.gif.mno
+0
-4
demos/site/static/images/demos/bus.gif
demos/site/static/images/demos/bus.gif
+0
-0
demos/site/static/images/demos/cockpit.gif
demos/site/static/images/demos/cockpit.gif
+0
-0
demos/site/static/images/demos/nurbs.gif
demos/site/static/images/demos/nurbs.gif
+0
-0
demos/site/static/images/demos/robot.gif
demos/site/static/images/demos/robot.gif
+0
-0
demos/site/static/images/demos/tank.gif
demos/site/static/images/demos/tank.gif
+0
-0
demos/site/static/images/demos/tank.png
demos/site/static/images/demos/tank.png
+0
-0
demos/site/static/images/format/Genworks.gif
demos/site/static/images/format/Genworks.gif
+0
-0
demos/site/static/images/format/_notes/Genworks.gif.mno
demos/site/static/images/format/_notes/Genworks.gif.mno
+0
-4
demos/site/static/images/format/_notes/demos_intro_bg.gif.mno
...s/site/static/images/format/_notes/demos_intro_bg.gif.mno
+0
-4
demos/site/static/images/format/_notes/tree_li_bg.gif.mno
demos/site/static/images/format/_notes/tree_li_bg.gif.mno
+0
-4
demos/site/static/images/format/about_bg.gif
demos/site/static/images/format/about_bg.gif
+0
-0
demos/site/static/images/format/about_bottom.gif
demos/site/static/images/format/about_bottom.gif
+0
-0
demos/site/static/images/format/about_top.gif
demos/site/static/images/format/about_top.gif
+0
-0
demos/site/static/images/format/column_background.jpg
demos/site/static/images/format/column_background.jpg
+0
-0
demos/site/static/images/format/column_bottom.gif
demos/site/static/images/format/column_bottom.gif
+0
-0
demos/site/static/images/format/column_top.gif
demos/site/static/images/format/column_top.gif
+0
-0
demos/site/static/images/format/demos_intro_bg.gif
demos/site/static/images/format/demos_intro_bg.gif
+0
-0
demos/site/static/images/format/demos_intro_bg.png
demos/site/static/images/format/demos_intro_bg.png
+0
-0
demos/site/static/images/format/dot_bl.gif
demos/site/static/images/format/dot_bl.gif
+0
-0
demos/site/static/images/format/dot_br.gif
demos/site/static/images/format/dot_br.gif
+0
-0
demos/site/static/images/format/dot_tl.gif
demos/site/static/images/format/dot_tl.gif
+0
-0
demos/site/static/images/format/dot_tr.gif
demos/site/static/images/format/dot_tr.gif
+0
-0
demos/site/static/images/format/genworks.png
demos/site/static/images/format/genworks.png
+0
-0
demos/site/static/images/format/tree_li_bg.gif
demos/site/static/images/format/tree_li_bg.gif
+0
-0
demos/site/static/images/format/tree_li_bg.png
demos/site/static/images/format/tree_li_bg.png
+0
-0
demos/site/static/images/icons/Enter.gif
demos/site/static/images/icons/Enter.gif
+0
-0
demos/site/static/images/icons/Genworks-title.gif
demos/site/static/images/icons/Genworks-title.gif
+0
-0
demos/site/static/images/icons/Genworks_title.gif
demos/site/static/images/icons/Genworks_title.gif
+0
-0
demos/site/static/images/icons/Nurbs.gif
demos/site/static/images/icons/Nurbs.gif
+0
-0
demos/site/static/images/icons/Robothome.gif
demos/site/static/images/icons/Robothome.gif
+0
-0
demos/site/static/images/icons/Rocket-Tank.gif
demos/site/static/images/icons/Rocket-Tank.gif
+0
-0
demos/site/static/images/icons/School-Bus.gif
demos/site/static/images/icons/School-Bus.gif
+0
-0
demos/site/static/images/icons/bracket.gif
demos/site/static/images/icons/bracket.gif
+0
-0
demos/site/static/images/icons/cockpit.gif
demos/site/static/images/icons/cockpit.gif
+0
-0
demos/site/static/images/icons/dot.gif
demos/site/static/images/icons/dot.gif
+0
-0
demos/site/static/images/icons/red-dot.gif
demos/site/static/images/icons/red-dot.gif
+0
-0
demos/site/static/images/icons/robot.gif
demos/site/static/images/icons/robot.gif
+0
-0
demos/site/static/images/jmc.jpg
demos/site/static/images/jmc.jpg
+0
-0
demos/site/static/images/logos/genworks-logo.gif
demos/site/static/images/logos/genworks-logo.gif
+0
-0
demos/site/static/images/logos/genworks-logohome.gif
demos/site/static/images/logos/genworks-logohome.gif
+0
-0
demos/site/static/js/niftycube.js
demos/site/static/js/niftycube.js
+0
-306
No files found.
demos/newsite/source/Services.lisp
deleted
100644 → 0
View file @
093aa360
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
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
deleted
100644 → 0
View file @
093aa360
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:www.genworks.com
)
(
define-object
assembly
(
base-site-sheet
)
:computed-slots
((
title
"Genworks International - Welcome"
)
(
lang
(
the
language
choice
value
))
(
right-section-inner-html
(
the
current-right-section
right-section-inner-html
))
(
right-section-js-to-eval
(
the
current-right-section
right-section-js-to-eval
))
(
right-section-js-always-to-eval
(
the
current-right-section
right-section-js-to-eval
))
(
link-title
"Home"
)
(
pages
(
the
children
)))
:trickle-down-slots
(
pages
lang
)
:hidden-objects
((
news
:type
'news
)
(
primi-plane
:type
'gdl-user::primi-plane
)
(
robot
:type
'robot:assembly
))
:objects
((
index-html
:type
'index-html
:respondent
self
)
(
products
:type
'products
:respondent
self
)
;;(services :type 'services)
(
documentation
:type
'documentation-and-educational
:respondent
self
)
(
demos
:type
'demos
:respondent
self
)
(
downloads
:type
'downloads
:respondent
self
)
(
people
:type
'people
:respondent
self
)
(
contact-us
:type
'contact-us
:respondent
self
)
(
language
:type
'language
:respondent
self
)
))
\ No newline at end of file
demos/newsite/source/configurator-engine.lisp
deleted
100644 → 0
View file @
093aa360
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:www.genworks.com
)
(
define-object
configurator
(
base-site-sheet
)
:computed-slots
((
link-title
"Configurator"
)
(
right-section-js-to-eval
"hide_all();$j('#product-image').show(200);"
)
(
right-section-inner-html
(
with-cl-who-string
()
((
:a
:name
"Top"
))
(
:h1
"Estimated Pricing: $"
(
fmt
"~:d"
(
ceiling
(
the
current-price
))))
(
str
(
the
current-choice-screen
inner-html
))
(
str
(
the
summary
inner-html
))
(
when
(
the
current-choice-screen
explanation-html
)
(
htm
(
:p
(
str
(
the
current-choice-screen
explanation-html
)))))
))
;;
;; FLAG -- figure out how to make this whole thing into an object tree instead of this hairy-calc.
;;
(
current-price
(
+
(
the
gendl-license
selected-price
)
(
the
cl-engine
selected-price
)
(
the
geometry-kernel
selected-price
)
(
the
support-level
selected-price
)
(
the
training-level
selected-price
)))
(
current-choice-screen
(
the
gendl-license
)
:settable
)
(
selected-gendl-license
(
the
gendl-license
choice
value
))
(
selected-cl-engine
(
the
cl-engine
choice
value
))
(
selected-geometry-kernel
(
the
geometry-kernel
choice
value
))
(
selected-support-level
(
the
support-level
choice
value
))
(
selected-training-level
(
the
training-level
choice
value
))
(
academic?
(
the
gendl-license
academic-input?
value
))
(
set-current-sheet-function
#'
(
lambda
(
sheet
)
(
the
(
set-slot!
:current-choice-screen
sheet
))))
)
:trickle-down-slots
(
respondent
set-current-sheet-function
)
:objects
((
gendl-license
:type
'gendl-license-choice
:pass-down
(
selected-gendl-license
selected-cl-engine
selected-geometry-kernel
selected-support-level
selected-training-level
academic?
)
:next-sheet
(
the
cl-engine
))
(
cl-engine
:type
'cl-engine-choice
:pass-down
(
selected-gendl-license
selected-cl-engine
selected-geometry-kernel
selected-support-level
selected-training-level
academic?
)
:previous-sheet
(
the
gendl-license
)
:next-sheet
(
the
geometry-kernel
))
(
geometry-kernel
:type
'geometry-kernel-choice
:pass-down
(
selected-gendl-license
selected-cl-engine
selected-geometry-kernel
selected-support-level
selected-training-level
academic?
)
:previous-sheet
(
the
cl-engine
)
:next-sheet
(
the
support-level
))
(
support-level
:type
'support-level-choice
:pass-down
(
selected-gendl-license
selected-cl-engine
selected-geometry-kernel
selected-support-level
selected-training-level
academic?
)
:previous-sheet
(
the
geometry-kernel
)
:next-sheet
(
the
training-level
))
(
training-level
:type
'training-level-choice
:pass-down
(
selected-gendl-license
selected-cl-engine
selected-geometry-kernel
selected-support-level
selected-training-level
academic?
)
:previous-sheet
(
the
support-level
))
(
summary
:type
'quotation-summary
:selected-items
(
list
(
the
gendl-license
selected-item
)
(
the
cl-engine
selected-item
)
(
the
geometry-kernel
selected-item
)
(
the
support-level
selected-item
)
(
the
training-level
selected-item
))
:current-total
(
the
current-price
))))
(
define-object
quotation-summary
()
:input-slots
(
selected-items
current-total
)
:computed-slots
((
inner-html
(
with-cl-who-string
()
((
:div
:class
"quotation-summary"
)
(
:table
(
:tr
(
:th
(
str
(
locale-string
:gendl-component
)))
(
:th
(
str
(
locale-string
:your-selection
)))
(
:th
(
str
(
locale-string
:price
))))
(
dolist
(
item
(
the
selected-items
))
(
htm
(
:tr
((
:td
:class
"clickme"
)
(
str
(
the-object
item
go-to-link
)))
(
:td
(
str
(
the-object
item
string
)))
((
:td
:class
"right-justify"
)
(
fmt
"$~:d"
(
ceiling
(
the-object
item
selected-price
)))))))
(
:tr
(
:th
:br
)
((
:th
:class
"right-justify"
)
"Total"
)
((
:td
:class
"look-at-me right-justify"
)
(
fmt
"$~:d"
(
the
current-total
))))))))))
(
define-object
wizard-screen
(
sheet-section
)
:input-slots
((
previous-sheet
nil
)
(
next-sheet
nil
)
(
extra-controls-html
nil
)
set-current-sheet-function
selected-gendl-license
selected-cl-engine
selected-geometry-kernel
selected-support-level
selected-training-level
academic?
(
discount-func
(
if
(
the
academic?
)
#'
(
lambda
(
num
)
(
half
num
))
#'
identity
))
(
explanation
nil
)
;; override with child object
(
explanation-html
(
when
(
and
(
the
explanation
)
(
typep
(
the
explanation
)
'sheet-section
))
(
the
explanation
inner-html
))))
:computed-slots
((
inner-html
(
with-cl-who-string
()
(
:p
(
:h2
(
str
(
the
heading
)))
(
:fieldset
(
str
(
the
choice
html-string
))
(
when
(
the
extra-controls-html
)
(
str
(
the
extra-controls-html
)))))
(
when
(
the
money-saving-tip
)
(
htm
((
:p
:class
"helpful-tip"
)
(
str
(
locale-string
:tip
))
": "
(
str
(
the
money-saving-tip
)))))
(
:p
(
when
(
the
previous-sheet
)
(
str
(
the
previous-button
form-control-string
)))
(
when
(
the
next-sheet
)
(
str
(
the
next-button
form-control-string
))))))
(
current-choice-object
self
)
(
selected-price
(
the
selected-item
current-price
))
(
radio-price-choices
(
remove-if-not
#'
(
lambda
(
child
)
(
typep
child
'radio-price-choice
))
(
the
children
)))
(
choice-plist
(
mapcan
#'
(
lambda
(
radio
)
(
list
(
make-keyword
(
the-object
radio
strings-for-display
))
(
the-object
radio
choice-price-string
)))
(
the
radio-price-choices
)))
(
selected-item
(
dolist
(
object
(
the
radio-price-choices
))
(
when
(
eql
(
the-object
object
key
)
(
the
choice
value
))
(
return
object
))))
(
money-saving-tip
nil
)
)
:trickle-down-slots
(
selected-item
selected-price
heading
current-choice-object
)
:objects
((
previous-button
:type
'button-form-control
:label
(
format
nil
"<-~a"
(
locale-string
:previous
))
:onclick
(
the
(
gdl-ajax-call
:function-key
:set-current-sheet
:arguments
(
list
(
the
previous-sheet
)))))
(
next-button
:type
'button-form-control
:label
(
format
nil
"~a->"
(
locale-string
:next
))
:onclick
(
the
(
gdl-ajax-call
:function-key
:set-current-sheet
:arguments
(
list
(
the
next-sheet
)))))
(
choice
:type
'radio-form-control
:choice-plist
(
the
choice-plist
)
:prompt
""
:default
(
make-keyword
(
the
default
strings-for-display
))
:disabled-keys
nil
:disabled-keys
(
remove-if-not
#'
(
lambda
(
key
)
(
the
(
evaluate
key
)
disabled?
))
(
plist-keys
(
the-child
choice-plist
)))
:ajax-submit-on-change?
t
))
:functions
((
set-current-sheet
(
sheet
)
(
funcall
(
the
set-current-sheet-function
)
sheet
))))
(
define-object
radio-price-choice
(
sheet-section
)
:input-slots
(
string
current-price
(
disabled?
nil
)
(
disabled-message
""
)
heading
current-choice-object
)
:computed-slots
((
key
(
make-keyword
(
the
strings-for-display
)))
(
selected?
(
eql
(
the
selected-item
)
self
))
(
delta
(
-
(
the
current-price
)
(
the
selected-price
)))
(
go-to-link
(
let
((
choice-object
(
the
current-choice-object
)))
(
with-cl-who-string
()
((
:span
:onclick
(
the
(
gdl-ajax-call
:function-key
:set-current-sheet
:arguments
(
list
choice-object
))))
(
str
(
the
heading
))))))
(
choice-price-string
(
if
(
the
disabled?
)
(
with-cl-who-string
()
((
:span
:class
"disabled"
)
(
str
(
the
string
)))
" "
(
unless
(
string-equal
(
the
disabled-message
)
""
)
(
htm
:br
" "
(
:i
(
str
(
the
disabled-message
))))))
(
format
nil
"~a ~a"
(
the
string
)
(
if
(
the
selected?
)
""
(
format
nil
"(~a$~:d)"
(
cond
((
zerop
(
the
delta
))
"+"
)
((
plusp
(
the
delta
))
"+"
)
((
minusp
(
the
delta
))
"-"
))
(
abs
(
ceiling
(
the
delta
)))))))))
:functions
((
set-current-sheet
(
object
)
(
funcall
(
the
set-current-sheet-function
)
object
))))
demos/newsite/source/configurator.lisp
deleted
100644 → 0
View file @
093aa360
;;
;; Copyright 2002-2011, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(
in-package
:www.genworks.com
)
(
defun
info-anchor
(
string
)
(
with-cl-who-string
()
((
:a
:href
(
format
nil
"#~a"
string
))
((
:img
:src
"/newsite-static/images/information.png"
:width
12
)))))
(
define-object
gendl-license-choice
(
wizard-screen
)
:computed-slots
((
heading
(
locale-string
:gendl-licensing-level
))
(
default
(
the
agpl
))
(
extra-controls-html
(
with-cl-who-string
()
(
str
(
the
academic-input?
html-string
)))))
:objects
((
agpl
:type
'radio-price-choice
:string
(
string-append
(
locale-string
:open-source-agpl
)
(
info-anchor
"agpl-license"
))
:disabled?
(
eql
(
the
selected-geometry-kernel
)
:smlib
)
:disabled-message
(
locale-string
:please-select-basic-geom
)
:current-price
0
)
(
trial
:type
'radio-price-choice
:string
(
string-append
(
locale-string
:evaluation
)
(
info-anchor
"trial-license"
))
:current-price
0
)
(
student
:type
'radio-price-choice
:string
(
string-append
(
locale-string
:student
)
(
info-anchor
"student-license"
))
:current-price
49
)
(
professional
:type
'radio-price-choice
:string
(
string-append
(
locale-string
:professional
)
(
info-anchor
"professional-license"
))
:current-price
(
funcall
(
the
discount-func
)
1990
))
(
enterprise
:type
'radio-price-choice
:string
(
string-append
(
locale-string
:enterprise
)
(
info-anchor
"enterprise-license"
))
:current-price
(
funcall
(
the
discount-func
)
4990
))
(
academic-input?
:type
'checkbox-form-control
:ajax-submit-on-change?
t
:default
(
eql
(
the
selected-gendl-license
)
:student
)
:label-position
:table-td-append
:prompt
(
string-append
(
locale-string
:order-qualifies-for-academic
)
(
info-anchor
"academic-pricing"
)))
(
explanation
:type
'license-choice-explanation
)))
(
define-object
cl-engine-choice
(
wizard-screen
)
:computed-slots
((
heading
(
locale-string
:common-lisp-engine
))
(
default
(
case
(
the
selected-gendl-license
)
(
:agpl
(
the
none
))
(
:professional
(
the
lw-32-base
))
(
otherwise
(
the
acl-32
))))
(
lw-uplift
1
)
(
acl-uplift
1
)
(
discount-func
#'
(
lambda
(
price
key
)
(
ecase
key
(
:none
price
)
(
:sbcl
price
)
(
:acl-32
(
*
(
the
acl-uplift
)
price
))
(
:acl-64
(
*
(
the
acl-uplift
)
price
))
(
:lw-32-base
(
*
(
the
lw-uplift
)
price
))
(
:lw-32-full
(
*
(
the
lw-uplift
)
price
))
(
:lw-64-full
(
*
(
the
lw-uplift
)
price
))))))
:objects
((
none
:type
'radio-price-choice
:string
(
string-append
(
locale-string
:none
)
" ("
(
locale-string
:i-e
)
(
locale-string
:space
)
(
locale-string
:self-provided-or-third-party
)
")"
)
:current-price
(
funcall
(
the
discount-func
)
0
(
first
(
the-child
root-path
)))
:disabled?
(
or
(
eql
(
the
selected-geometry-kernel
)
:smlib
)
(
eql
(
the
selected-gendl-license
)
:trial
)
(
not
(
eql
(
the
selected-support-level
)
:none
)))
:disabled-message
(
format
nil
"~a ~a~a~a~a~a ~a."
(
locale-string
:please-select
)
(
if
(
eql
(
the
selected-geometry-kernel
)
:smlib
)
(
locale-string
:the-basic-geometry-kernel
)
""
)
(
cond
((
and
(
eql
(
the
selected-geometry-kernel
)
:smlib
)
(
eql
(
the
selected-gendl-license
)
:trial
))
(
string-append
(
locale-string
:space
)
(
locale-string
:and
)
(
locale-string
:space
)))
(
t
(
locale-string
:space
)))
(
if
(
eql
(
the
selected-gendl-license
)
:trial
)
(
locale-string
:a-non-evaluation-gendl-license
)
""
)
(
cond
((
and
(
not
(
eql
(
the
selected-support-level
)
:none
))
(
or
(
eql
(
the
selected-gendl-license
)
:trial
)
(
eql
(
the
selected-geometry-kernel
)
:smlib
)))
(
string-append
(
locale-string
:space
)
(
locale-string
:and
)
(
locale-string
:space
)))
((
not
(
eql
(
the
selected-support-level
)
:none
))
(
locale-string
:space
))
(
t
""
))
(
if
(
not
(
eql
(
the
selected-support-level
)
:none
))
(
string-append
"\""
(
locale-string
:none
)
"\""
(
locale-string
:space
)
(
locale-string
:for
)
(
locale-string
:space
)
(
locale-string
:technical-support-level
))
""
)
(
locale-string
:to-enable-this-option
)))
(
sbcl
:type
'radio-price-choice
:string
"SBCL"
:current-price
(
funcall
(
the
discount-func
)
0
(
first
(
the-child
root-path
)))
:disabled?
(
or
(
eql
(
the
selected-geometry-kernel
)
:smlib
)
(
eql
(
the
selected-gendl-license
)
:trial
))
:disabled-message
(
the
none
disabled-message
))
(
acl-32
:type
'radio-price-choice
:string
(
locale-string
:franz-allegro-cl-32
)
:current-price
(
funcall
(
the
discount-func
)
(
ecase
(
the
selected-gendl-license
)
(
:agpl
(
if
(
the
academic?
)
4500
6000
))
(
:trial
0
)