Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
c5be47f0
Commit
c5be47f0
authored
Jul 31, 2012
by
Dave Cooper
Browse files
tagged for v2012073101
parent
eb4e3d59
Changes
5
Hide whitespace changes
Inline
Side-by-side
build/source/distro.lisp
View file @
c5be47f0
...
...
@@ -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"
)))
...
...
dist/run-gdl.bat
View file @
c5be47f0
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"
regression/assembly-output/source/bracket-test.lisp
0 → 100644
View file @
c5be47f0
(
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
surf/source/formats.lisp
View file @
c5be47f0
...
...
@@ -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
%
)
)
...
...
surf/source/views.lisp
View file @
c5be47f0
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment