Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Hugo Ishimaru
asdf
Commits
408ccf50
Commit
408ccf50
authored
Nov 19, 2016
by
Francois-Rene Rideau
Committed by
Elias Pipping
Nov 22, 2016
Browse files
Fix asdf-tools for Windows
parent
c68f0926
Changes
5
Hide whitespace changes
Inline
Side-by-side
README.md
View file @
408ccf50
...
...
@@ -109,7 +109,7 @@ as in for instance:
Or you can make that your local default (assuming GNU make) using:
ln -s
Makefile-lisp-scripting GNUmakefile
echo "include
Makefile-lisp-scripting
" >
GNUmakefile
These Lisp tools by default use Clozure Common Lisp (CCL) to build and run a binary
`build/asdf-tools`
that will orchestrate the tests.
...
...
make-asdf.bat
View file @
408ccf50
...
...
@@ -8,7 +8,7 @@ set driver_lisp=uiop\package.lisp + uiop\common-lisp.lisp + uiop\utility.lisp +
set
defsystem_lisp
=
upgrade
.lisp
+
cache
.lisp
+
component
.lisp
+
system
.lisp
+
find
-system
.lisp
+
find
-component
.lisp
+
operation
.lisp
+
action
.lisp
+
lisp
-action
.lisp
+
plan
.lisp
+
operate
.lisp
+
parse
-defsystem
.lisp
+
bundle
.lisp
+
concatenate
-source
.lisp
+
output
-translations
.lisp
+
source
-registry
.lisp
+
package
-inferred-system
.lisp
+
backward
-interface
.lisp
+
backward
-internals
.lisp
+
interface
.lisp
+
user
.lisp
+
footer
.lisp
%~d0
cd
%~p0
cd
"
%~p0
"
if
"
%
~1"
==
""
goto
all
if
"
%
~1"
==
"all"
goto
all
...
...
@@ -19,8 +19,8 @@ if "%~1"=="noext" goto noext
if
"
%
~1"
==
"driver_files"
goto
driver_files
if
"
%
~1"
==
"defsystem_files"
goto
defsystem_files
call
%
0
build_asdf_tools
%here%
\build\asdf
-tools
.exe
env
%
*
call
"
%
0
"
build_asdf_tools
"
%here%
\build\asdf-tools.exe
"
env
%
*
goto
end
...
...
@@ -40,9 +40,9 @@ goto end
:build
_asdf_tools
:: Building a binary for asdf-tools
if
exist
s
build
\asdf
-tools
.exe
goto
end
call
%
0
build_asdf
%here%
\tools\asdf
-tools
.bat
build
-asdf-tools
if
exist
build
\asdf
-tools
.exe
goto
end
call
"
%
0
"
build_asdf
"
%here%
\tools\asdf-tools.bat
"
build
-asdf-tools
goto
end
:clobber
...
...
tools/asdf-tools.asd
View file @
408ccf50
...
...
@@ -8,8 +8,7 @@
(
:version
"cl-scripting"
"0.2"
)
(
:feature
:sbcl
(
:require
"sb-introspect"
)))
:build-operation
program-op
:build-pathname
#.
(
format
nil
"../build/asdf-tools~@[.~A~]"
(
asdf/bundle:bundle-pathname-type
:program
))
:build-pathname
"../build/asdf-tools"
:entry-point
"asdf-tools::entry-point"
:components
((
:file
"package"
)
...
...
tools/asdf-tools.bat
View file @
408ccf50
@echo
off
::
@echo off
::: By default. We use CCL, because SBCL doesn't have a good enough run-program on Windows.
if
"
%LISP%
"
==
""
goto
ccl
...
...
@@ -9,22 +9,22 @@ if "%LISP%" == "sbcl" goto sbcl
:ccl
if
"
%CCL%
"
==
""
set
CCL
=
ccl
%CCL%
--no-init --load
%~dp0
asdf
-tools
--
%
*
"
%CCL%
"
--no-init --load
"
%~dp0
asdf-tools
"
--
%
*
goto
end
:sbcl
::: As of SBCL 1.2.13, SBCL's run-program fails to call CMD.EXE directly, so can't fully run asdf-tools
if
"
%SBCL%
"
==
""
set
SBCL
=
sbcl
%SBCL%
--noinform --no-userinit --no-sysinit --script
%~dp0
asdf
-tools
%
*
"
%SBCL%
"
--noinform --no-userinit --no-sysinit --script
"
%~dp0
asdf-tools
"
%
*
goto
end
:allegro
if
"
%ALLEGRO%
"
==
""
set
ALLEGRO
=
alisp
.exe
if
"
%
~1"
==
"get_allegro_dir"
goto
get_allegro_dir
call
%
0
get_allegro_dir
%ALLEGRO%
%ALLEGRO%
.exe
%ALLEGRODIR%
buildi
.exe
-I
%ALLEGRODIR%
alisp
.dxl
-qq -e
"(setf *load-verbose* nil)"
-L
%~dp0
asdf
-tools
.
--
%
*
call
%
0
get_allegro_dir
"
%ALLEGRO%
"
"
%ALLEGRO%
.exe
"
"
%ALLEGRODIR%
buildi.exe
"
-I
"
%ALLEGRODIR%
alisp.dxl
"
-qq -e
"(setf *load-verbose* nil)"
-L
"
%~dp0
asdf-tools.
"
--
%
*
goto
end
:get
_allegro_dir
if
not
"
%~dp
$PATH:2"
==
""
(
set
ALLEGRODIR
=
%~dp
$PATH:2
&
goto
end
)
...
...
tools/release.lisp
View file @
408ccf50
...
...
@@ -14,8 +14,12 @@
(
defun
system-source-files
(
system
&key
monolithic
)
(
let
((
system
(
find-system
system
)))
(
enough-namestrings
(
system-source-directory
system
)
(
input-files
'concatenate-source-op
system
))))
(
enough-namestrings
(
system-source-directory
system
)
(
input-files
(
if
monolithic
'monolithic-concatenate-source-op
'concatenate-source-op
)
system
))))
;;; Making release tarballs for asdf, asdf/defsystem, uiop.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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