Commit 1f9caf9a authored by Dave Cooper's avatar Dave Cooper
Browse files

added source for newsite

parent bd99e80e
......@@ -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*)))))
......@@ -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))
......
(in-package :gdl-user)
(gwl:define-package :aero (:use :surf) (:shadowing-import-from :surf #:step))
(gwl:define-package :aero)
(:gdl-gwl-graphics)
(:gdl-gwl-graphics :gdl-smlib)
......@@ -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
(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))
(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")))
(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
......@@ -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
(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")))
("package")
\ No newline at end of file
......@@ -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.")))))))
(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")))))))
(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) {