Commit c5be47f0 authored by Dave Cooper's avatar Dave Cooper
Browse files

tagged for v2012073101

parent eb4e3d59
......@@ -26,9 +26,13 @@
:input-slots
((overwrite? nil)
(staging-directory #+mswindows "e:/staging/" #-mswindows "~/share/staging/")
(staging-directory #+mswindows (or (probe-file "e:/staging/")
(probe-file "z:/staging/"))
#-mswindows "~/share/staging/")
(release-directory #+mswindows "e:/release/" #-mswindows "~/share/release/")
(release-directory #+mswindows (or (probe-file "e:/release/")
(probe-file "z:/release/"))
#-mswindows "~/share/release/")
(release-name-mapping '(("acl-8.2m-linux-x86" . "gdl1581-linux")
("acl-8.2m-win-x86" . "gdl1581-windows")))
......
cd %~dp0\program\
%windir%\system32\cmd.exe "/C start ..\gpl\gnu-emacs-23.3\bin\runemacs.exe --no-splash --no-init-file -l ..\emacs\gdl.el"
if exist "..\..\gpl\gnu-emacs-23.3\bin\runemacs.exe" (set emacspath=..\..\gpl\gnu-emacs-23.3\bin\runemacs.exe) else (set emacspath=..\gpl\gnu-emacs-23.3\bin\runemacs.exe)
%windir%\system32\cmd.exe "/C start %emacspath% --no-splash --no-init-file -l ..\emacs\gdl.el"
(in-package :bracket)
(define-object bracket-test (base-object)
:objects
((bracket :type 'simple-bracket))
:functions
((step-out!
()
(with-format (step "/tmp/try.stp" :assembly? t) (write-the bracket cad-output-tree)))))
\ No newline at end of file
......@@ -30,7 +30,7 @@
(define-format nurbs (base-format)
:slots ((assembly? nil)
(assembly nil)))
(%assembly% nil)))
(define-format stl (nurbs)
......@@ -144,8 +144,8 @@
()
(let ((buffer-file (namestring (glisp:temporary-file))))
(with-format-slots (assembly)
(smlib::write-hw-file-assembly *geometry-kernel* buffer-file assembly)
(with-format-slots (%assembly%)
(smlib::write-hw-file-assembly *geometry-kernel* buffer-file %assembly%)
)
......
......@@ -37,7 +37,7 @@
(cad-output-assembly-tree (&optional (assembly-instance (let ((assembly (make-tx-assembly-instance
*geometry-kernel*
:name (the strings-for-display))))
(set-format-slot assembly assembly)
(set-format-slot %assembly% assembly)
assembly)))
(dolist (child (the children))
......
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