Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
I
inferior-shell
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
qitab
inferior-shell
Compare revisions
c5a58f30f676f476e997f9164444d52b7c53223f to 3b7d8d1e22e55926f75dd781f4a31e3495e95c66
Compare revisions
Changes are shown as if the
source
revision was being merged into the
target
revision.
Learn more about comparing revisions.
Source
qitab/inferior-shell
Select target project
No results found
3b7d8d1e22e55926f75dd781f4a31e3495e95c66
Select Git revision
Swap
Target
qitab/inferior-shell
Select target project
qitab/inferior-shell
rbrown/inferior-shell
2 results
c5a58f30f676f476e997f9164444d52b7c53223f
Select Git revision
Show changes
Only incoming changes from source
Include changes to target since source was created
Compare
Commits on Source (2)
Add long names for redirections.
· 773dea80
Francois-Rene Rideau
authored
9 years ago
773dea80
Update .asd files.
· 3b7d8d1e
Francois-Rene Rideau
authored
9 years ago
3b7d8d1e
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
inferior-shell-test.asd
+0
-5
0 additions, 5 deletions
inferior-shell-test.asd
inferior-shell.asd
+3
-1
3 additions, 1 deletion
inferior-shell.asd
process-spec.lisp
+58
-29
58 additions, 29 deletions
process-spec.lisp
with
61 additions
and
35 deletions
inferior-shell-test.asd
deleted
100644 → 0
View file @
c5a58f30
;;; -*- Lisp -*-
(
defsystem
:inferior-shell-test
;; adding inferior-shell *second* makes things work on asdf 1&2(!):
:depends-on
(
:inferior-shell/test
:inferior-shell
))
This diff is collapsed.
Click to expand it.
inferior-shell.asd
View file @
3b7d8d1e
;;; -*- Lisp -*-
(
defsystem
"inferior-shell"
:version
"2.0.3.1"
:description
"spawn local or remote processes and shell pipes"
:version
"2.0.3"
:author
"Francois-Rene Rideau"
:license
"MIT"
:defsystem-depends-on
(
:asdf
#-
asdf3
"uiop"
)
:depends-on
((
:version
#+
asdf3
"asdf"
#-
asdf3
"uiop"
"3.0.3"
)
; input and error-output redirection
#+
sbcl
"sb-posix"
...
...
This diff is collapsed.
Click to expand it.
process-spec.lisp
View file @
3b7d8d1e
...
...
@@ -235,56 +235,85 @@
(
r
(
make-close-redirection
old
)))
(
c
(
x
)
(
match
x
(
`
(
!
,
fd
,
pn
,@
flags
)
(
f
'!
fd
pn
flags
))
(
`
(
-
,
fd
)
(
cl
fd
))
(
`
(
<
,
pn
)
(
c
`
(
<
0
,
pn
)))
(
`
(
<
,
fd
,
pn
)
(
`
(
!
,
fd
,
pn
,@
flags
)
(
c
`
(
:open
,
fd
,
pn
,@
flags
)))
(
`
(
:open
,
fd
,
pn
,@
flags
)
(
f
'!
fd
pn
flags
))
(
`
(
-
,
fd
)
(
c
`
(
:close
,
fd
)))
(
`
(
:close
,
fd
)
(
cl
fd
))
(
`
(
<
,@
args
)
(
c
`
(
:input
,@
args
)))
(
`
(
:input
,
pn
)
(
c
`
(
:input
0
,
pn
)))
(
`
(
:input
,
fd
,
pn
)
(
f
'<
fd
pn
'
(
:input
:if-does-not-exist
:error
)))
(
`
(
<>
,
pn
)
(
c
`
(
<>
0
,
pn
)))
(
`
(
<>
,
fd
,
pn
)
(
`
(
<>
,@
args
)
(
c
`
(
:io
,@
args
)))
(
`
(
:io
,
pn
)
(
c
`
(
:io
0
,
pn
)))
(
`
(
:io
,
fd
,
pn
)
(
f
'<>
fd
pn
'
(
:io
:if-exists
:overwrite
:if-does-not-exist
:error
)))
(
`
(
>
,
pn
)
(
c
`
(
>
1
,
pn
)))
(
`
(
>
,
fd
,
pn
)
(
`
(
>
,@
args
)
(
c
`
(
:output
,@
args
)))
(
`
(
:output
,
pn
)
(
c
`
(
:output
1
,
pn
)))
(
`
(
:output
,
fd
,
pn
)
(
f
'>
fd
pn
'
(
:output
:if-exists
:error
:if-does-not-exist
:create
)))
(
`
(
>!
,
pn
)
(
c
`
(
>!
1
,
pn
)))
(
`
(
>!
,
fd
,
pn
)
(
`
(
:error-output
,
pn
)
(
c
`
(
:output
2
,
pn
)))
(
`
(
>!
,@
args
)
(
c
`
(
:force-output
,@
args
)))
(
`
(
:force-output
,
pn
)
(
c
`
(
:force-output
1
,
pn
)))
(
`
(
:force-output
,
fd
,
pn
)
(
f
'>!
fd
pn
'
(
:output
:if-exists
:supersede
:if-does-not-exist
:create
)))
(
`
(
>>
,
pn
)
(
c
`
(
>>
1
,
pn
)))
(
`
(
>>
,
fd
,
pn
)
(
`
(
>>
,@
args
)
(
c
`
(
:append
,@
args
)))
(
`
(
:append
,
pn
)
(
c
`
(
:append
1
,
pn
)))
(
`
(
:append
,
fd
,
pn
)
(
f
'>>
fd
pn
'
(
:output
:if-exists
:append
:if-does-not-exist
:error
)))
(
`
(
>>!
,
pn
)
(
c
`
(
>>
1
,
pn
)))
(
`
(
>>!
,
fd
,
pn
)
(
`
(
>>!
,@
args
)
(
c
`
(
:force-append
,@
args
)))
(
`
(
:force-append
,
pn
)
(
c
`
(
:append
1
,
pn
)))
(
`
(
:force-append
,
fd
,
pn
)
(
f
'>>!
fd
pn
'
(
:output
:if-exists
:append
:if-does-not-exist
:create
)))
(
`
(
<&
,
old-fd
-
)
(
`
(
<&
,@
args
)
(
c
`
(
:redirect-input
,@
args
)))
(
`
(
:redirect-input
,
old-fd
-
)
(
cl
old-fd
))
(
`
(
<&
,
new-fd
,
old-fd
)
(
`
(
:redirect-input
,
new-fd
,
old-fd
)
(
fd
old-fd
new-fd
))
(
`
(
>&
,
old-fd
-
)
(
`
(
:redirect-input
-
)
(
cl
0
))
(
`
(
>&
,@
args
)
(
c
`
(
:redirect-output
,@
args
)))
(
`
(
:redirect-output
,
old-fd
-
)
(
cl
old-fd
))
(
`
(
>&
,
new-fd
,
old-fd
)
(
`
(
:redirect-output
,
new-fd
,
old-fd
)
(
fd
old-fd
new-fd
))
(
`
(
<&
-
)
(
cl
0
))
(
`
(
>&
-
)
(
`
(
:redirect-output
-
)
(
cl
1
))
(
`
(
>&
,
pn
)
(
c
`
(
>
1
,
pn
))
(
c
`
(
>&
2
1
)))
(
`
(
>&!
,
pn
)
(
c
`
(
>!
1
,
pn
))
(
c
`
(
>&
2
1
)))
(
`
(
>>&
,
pn
)
(
`
(
:redirect-output
,
pn
)
(
c
`
(
:output
1
,
pn
))
(
c
`
(
:redirect-output
2
1
)))
(
`
(
>&!
,
pn
)
(
c
`
(
:force-redirect
,
pn
)))
(
`
(
:force-redirect
,
pn
)
(
c
`
(
:force-output
1
,
pn
))
(
c
`
(
:redirect-output
2
1
)))
(
`
(
>>&
,
pn
)
(
c
`
(
:redirect-append
,
pn
)))
(
`
(
:redirect-append
,
pn
)
(
c
`
(
>>
1
,
pn
))
(
c
`
(
>&
2
1
)))
(
`
(
>>&!
,
pn
)
(
`
(
>>&!
,
pn
)
(
c
`
(
:force-redirect-append
,
pn
)))
(
`
(
:force-redirect-append
,
pn
)
(
c
`
(
>>!
1
,
pn
))
(
c
`
(
>&
2
1
)))
(
_
(
flush-argument
c
)
(
parse-command-spec-token
c
x
)
...
...
This diff is collapsed.
Click to expand it.