Commit 90dc12fd authored by Dave Cooper's avatar Dave Cooper

updated training, updated surface primitives

parent f14d08f7
......@@ -35,59 +35,26 @@ should now be more familiar and less of a mystery.")
(:description
,(string-append
"For further resources, see the "
(with-output-to-string(ss)(html-stream ss ((:a :href "http://www.alu.org/alu/res-lisp") "Association of Lisp Users")))
" and the "
(with-output-to-string(ss)(html-stream ss ((:a :href "http://www.common-lisp.net") "Common Lisp.net")))
", "
", and the "
(with-output-to-string(ss)(html-stream ss ((:a :href "http://www.lispworks.com/reference/HyperSpec/Front/index.htm") "Common Lisp Hyperspec")))
" for the complete official specification of the language." ))
(:description
,(string-append
"For creating complete and well-rounded CL-based applications, especially web-based and
technical/engineering applications, please consider using Genworks "
technical/engineering applications, please consider using the open-source "
(with-output-to-string(ss)(html-stream ss ((:a :href "http://gendl.org") "Gendl Project")))
" or the commercial Genworks "
(with-output-to-string(ss)(html-stream ss ((:a :href "http://www.genworks.com/products/index.html")
"General-purpose Declarative Language (GDL)")))
"."))
(:description "Genworks offers G102, as a followup to this course, for quickly coming up to speed in GDL.")
(:description "Thank you for your attention, and please do not hesitate to voice questions and comments on this training course. Ask your instructor
or send them to info at genworks dot com.")))
(:title "Licensing"
:bullet-points
((:description
"Moving toward AGPL for GDL source code.")
(:description
"Certain files already available, working from the outside inward.")
(:description
"AGPL requires all derived works (for GDL, this includes applications delivered with GDL runtime) to be released
open-source under compatible license.")
(:description
"Dual licensing approach - Genworks will continue to make Commercial GDL licenses available
for supported or proprietary work, and containing commercial Common Lisp and geometry kernels.")
(:description
"Currently released package is _not_ open-source (depends on commercial Lisp compiler and runtime
and optional geometry kernel) and issued to individuals based on email address. Please keep your individual
license file protected.")
(:description
"Limited-time Trial Editions made available for following exercises in this course.")
(:description
"TU Delft currently has 25 Student Licenses (350 Euros per year) -- please apply for one of
these if you use GDL past the Trial period.")
(:description
"Student and Trial licenses may _not_ be used for development of funded research
projects (Academic licenses are available for that purpose).")
))
(:description "Genworks offers G102, as a followup to this course, for quickly coming up to speed in GDL.")
(:description "Thank you for your attention, and please do not hesitate to voice questions and
comments on this training course. Ask your instructor or send them to info at genworks dot com.")))
......
......@@ -228,7 +228,7 @@ use it for keywords, symbols, integers, but not for strings, lists, or floating-
(:blue "Blue is okay")
((:red :orange) "Red or orange are actually her favorite colors")
(:green "Are you nuts?")))
:return-value "Red is actually her favorite color")))
:return-value "Red or orange are actually her favorite colors")))
(:description "For matching strings, you have to use <i>cond</i> "
......
......@@ -37,11 +37,11 @@
(setq os-ratings (make-hash-table))
:return-value "<eql hash-table with 0 entries @ #x9309caa>")
(:code
(setf (gethash :windows os-ratings) :horrible)
:return-value :horrible)
(setf (gethash :windows os-ratings) :acceptable)
:return-value :acceptable)
(:code
(gethash :windows os-ratings)
:return-value :horrible)))
:return-value :acceptable)))
(:description
"Can store database tables locally and temporarily
as hash tables for very fast repeated access.")
......
......@@ -510,13 +510,12 @@ have no meaning to Lisp itself.")
(:description "Setf is used to set ``locations'' resulting from a function call:"
:examples
((:code (setq *operating-systems* (list "NT" "Solaris" "Irix" "HP-UX" "AIX"))
:return-value ("NT" "Solaris" "Irix" "HP-UX" "AIX"))
((:code (setq *operating-systems* (list "Solaris" "Windows" "FreeBSD" "iOS" "Android"))
:return-value ("Solaris" "Windows" "FreeBSD" "iOS" "Android"))
(:code (setf (first *operating-systems*) "Linux") :return-value "Linux")
(:code *operating-systems* :return-value ("Linux" "Solaris"
"Irix" "HP-UX" "AIX"))))))
(:code *operating-systems* :return-value ("Linux" "Windows" "FreeBSD" "iOS" "Android"))))))
(:title "Iteration"
......
......@@ -58,7 +58,14 @@
(format t "~%~%*************** Session ~a Restarted! ***************~%~%"
(the-object new-self instance-id))
;;
;; Force it to set html-sections.
;;
;; But, have to do the one at root-path as well if root-path is not nil.
;;
(the-object new-self main-sheet-body)
(the-object new-self custom-snap-restore!)
)
......@@ -280,10 +287,15 @@ You can reload to get previous state" *ajax-timeout*))
(if (equalp value :parse) "parseme" value))))
(replace-list (when (the stale?)
(list :dom-id (the dom-id)
:inner-html (the inner-html)
:js-to-eval (the js-to-eval))))))
(replace-list
(progn
(when *debug?* (print-variables (the stale?) (the section root-path)))
(when (the stale?)
(list :dom-id (the dom-id)
:inner-html (the inner-html)
:js-to-eval (the js-to-eval)))))))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setq *compile-dependency-tracking?* *current-status*))
......
......@@ -409,7 +409,7 @@ running the Javascript interpreter to evaluate (the js-to-eval), if any.
js-vals (glisp:replace-regexp js-vals "\\" "\\\\\\\\"))
(format nil "gdlAjax(~a, 'args=~a~a~a, ~a); return(false);"
(format nil "gdlAjax(~a, 'args=~a~a~a, ~a);"
(if null-event? "null" "event") string-1 string-2 (or js-vals "") string-3)))
......
......@@ -42,13 +42,6 @@
</pre>"))
;;
;; FLAG move to main package.lisp.
;;
(eval-when (:compile-toplevel :load-toplevel :execute)
(export 'circular-curve :surf))
;;
;; FLAG -- add Lift regression test in gendl/regression/source/
;;
......
......@@ -53,12 +53,6 @@
(island :type 'arc-curve :pass-down (radius))))
;;
;; FLAG move to main package.lisp.
;;
(eval-when (:compile-toplevel :load-toplevel :execute)
(export 'circular-surface :surf))
;;
;; FLAG -- add Lift regression test in gendl/regression/source/
;;
......
......@@ -45,7 +45,9 @@
;;
;; FLAG -- add to regression tests.
;;
#+nil
(define-object normally-projected-curve-test (normally-projected-curve)
......
......@@ -76,10 +76,14 @@
(reverse knot-vector))))))
;;
;; FLAG -- add to regression tests.
;;
#+nil
(in-package :gdl-user)
#+nil
(define-object test-redirected-surfaces (base-object)
:input-slots ((n-u 12) (n-v 12))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment