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
Karsten Poeck
asdf
Commits
ff089b82
Commit
ff089b82
authored
Nov 25, 2016
by
Francois-Rene Rideau
Browse files
Split launch-program.lisp off of run-program.lisp
parent
c5a0c97d
Changes
8
Expand all
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
ff089b82
...
...
@@ -78,7 +78,7 @@ SCL ?= scl
XCL
?=
xcl
header_lisp
:=
header.lisp
driver_lisp
:=
uiop/package.lisp uiop/common-lisp.lisp uiop/utility.lisp uiop/os.lisp uiop/pathname.lisp uiop/filesystem.lisp uiop/stream.lisp uiop/image.lisp uiop/lisp-build.lisp uiop/run-program.lisp uiop/configuration.lisp uiop/backward-driver.lisp uiop/driver.lisp
driver_lisp
:=
uiop/package.lisp uiop/common-lisp.lisp uiop/utility.lisp uiop/os.lisp uiop/pathname.lisp uiop/filesystem.lisp uiop/stream.lisp uiop/image.lisp uiop/lisp-build.lisp
uiop/launch-program.lisp
uiop/run-program.lisp uiop/configuration.lisp uiop/backward-driver.lisp uiop/driver.lisp
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
all_lisp
:=
$(header_lisp)
$(driver_lisp)
$(defsystem_lisp)
...
...
make-asdf.bat
View file @
ff089b82
...
...
@@ -4,7 +4,7 @@
set
here
=
%~dp0
set
header_lisp
=
header
.lisp
set
driver_lisp
=
uiop
\package.lisp
+
uiop
\common
-lisp
.lisp
+
uiop
\utility.lisp
+
uiop
\os.lisp
+
uiop
\pathname.lisp
+
uiop
\filesystem.lisp
+
uiop
\stream.lisp
+
uiop
\image.lisp
+
uiop
\lisp
-build
.lisp
+
uiop
\run
-program
.lisp
+
uiop
\configuration.lisp
+
uiop
\backward
-driver
.lisp
+
uiop
\driver.lisp
set
driver_lisp
=
uiop
\package.lisp
+
uiop
\common
-lisp
.lisp
+
uiop
\utility.lisp
+
uiop
\os.lisp
+
uiop
\pathname.lisp
+
uiop
\filesystem.lisp
+
uiop
\stream.lisp
+
uiop
\image.lisp
+
uiop
\lisp
-build
.lisp
+
uiop
\launch
-program
.lisp
+
uiop
\run
-program
.lisp
+
uiop
\configuration.lisp
+
uiop
\backward
-driver
.lisp
+
uiop
\driver.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
...
...
make-asdf.sh
View file @
ff089b82
...
...
@@ -5,7 +5,7 @@
here
=
"
$(
dirname
$0
)
"
header_lisp
=
"header.lisp"
driver_lisp
=
"uiop/package.lisp uiop/common-lisp.lisp uiop/utility.lisp uiop/os.lisp uiop/pathname.lisp uiop/filesystem.lisp uiop/stream.lisp uiop/image.lisp uiop/lisp-build.lisp uiop/run-program.lisp uiop/configuration.lisp uiop/backward-driver.lisp uiop/driver.lisp"
driver_lisp
=
"uiop/package.lisp uiop/common-lisp.lisp uiop/utility.lisp uiop/os.lisp uiop/pathname.lisp uiop/filesystem.lisp uiop/stream.lisp uiop/image.lisp uiop/lisp-build.lisp
uiop/launch-program.lisp
uiop/run-program.lisp uiop/configuration.lisp uiop/backward-driver.lisp uiop/driver.lisp"
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"
all
()
{
...
...
test/test-run-program-unix.script
View file @
ff089b82
...
...
@@ -542,18 +542,21 @@
(new-test-suite "%process-status / terminate-process")
(defun process-status (process-info)
(uiop/launch-program::%process-status process-info))
(define-test
":exited (we slept; repeated query)"
(let* ((process-info (launch-program "./sleeper.sh 12 1"))
(status (
uiop/run-program::%
process-status process-info)))
(status (process-status process-info)))
(handle-result "running?" (equal :running status))
(sleep 2)
(multiple-value-bind (status exit-code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "exited?" (equal :exited status))
(handle-result "proper exit status?" (equal 12 exit-code)))
(multiple-value-bind (status exit-code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "exited? (no. 2)" (equal :exited status))
(handle-result "proper exit status? (no. 2)" (equal 12 exit-code)))
(wait-process process-info)))
...
...
@@ -565,14 +568,14 @@
(let* ((process-info (launch-program "./killer.sh")))
(sleep 1)
(multiple-value-bind (status code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "exited or signaled?"
(member status '(:exited :signaled)))
(handle-result "signal/exit code as expected?"
(or (and (eq status :exited) (eql code 143))
(and (eq status :signaled) (eql code 15)))))
(multiple-value-bind (status code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "exited or signaled? (no. 2)"
(member status '(:exited :signaled)))
(handle-result "signal/exit code as expected? (no. 2)"
...
...
@@ -585,11 +588,11 @@
(let* ((process-info (launch-program "./killercontainer.sh")))
(sleep 1)
(multiple-value-bind (status code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "exited?" (eq status :exited))
(handle-result "proper exit status?" (eql code (+ 128 15))))
(multiple-value-bind (status code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "exited (no. 2)?" (eq status :exited))
(handle-result "proper exit status? (no. 2)?" (eql code (+ 128 15))))
(wait-process process-info)))
...
...
@@ -599,16 +602,16 @@
#+(and lispworks (not lispworks7+))
(skip-test "Known to fail")
(let* ((process-info (launch-program "./sleeper.sh 12 2"))
(status (
uiop/run-program::%
process-status process-info)))
(status (process-status process-info)))
(handle-result "running?" (equal :running status))
(my-terminate-process process-info :urgent t)
(sleep 1)
(multiple-value-bind (status code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "signaled?" (eq status :signaled))
(handle-result "signal as expected?" (member code '(9 15))))
(multiple-value-bind (status code)
(
uiop/run-program::%
process-status process-info)
(process-status process-info)
(handle-result "signaled (no. 2)?" (eq status :signaled))
(handle-result "signal as expected (no. 2)?" (member code '(9 15))))
(wait-process process-info)))
...
...
uiop/driver.lisp
View file @
ff089b82
...
...
@@ -12,7 +12,8 @@
(
:use-reexport
:uiop/package
:uiop/utility
:uiop/os
:uiop/pathname
:uiop/filesystem
:uiop/stream
:uiop/image
:uiop/run-program
:uiop/lisp-build
:uiop/configuration
:uiop/backward-driver
))
:uiop/launch-program
:uiop/run-program
:uiop/lisp-build
:uiop/configuration
:uiop/backward-driver
))
;; Provide both lowercase and uppercase, to satisfy more people.
(
provide
"uiop"
)
(
provide
"UIOP"
)
uiop/launch-program.lisp
0 → 100644
View file @
ff089b82
This diff is collapsed.
Click to expand it.
uiop/run-program.lisp
View file @
ff089b82
This diff is collapsed.
Click to expand it.
uiop/uiop.asd
View file @
ff089b82
...
...
@@ -43,7 +43,8 @@ you already have a matching UIOP loaded."
(
:file
"stream"
:depends-on
(
"filesystem"
))
(
:file
"image"
:depends-on
(
"stream"
))
(
:file
"lisp-build"
:depends-on
(
"image"
))
(
:file
"run-program"
:depends-on
(
"stream"
))
(
:file
"launch-program"
:depends-on
(
"stream"
))
(
:file
"run-program"
:depends-on
(
"launch-program"
))
(
:file
"configuration"
:depends-on
(
"image"
))
(
:file
"backward-driver"
:depends-on
(
"lisp-build"
"run-program"
"configuration"
))
(
:file
"driver"
:depends-on
(
"backward-driver"
))))
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