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
xcvb
cl-launch
Commits
d0c47302
Commit
d0c47302
authored
Aug 17, 2014
by
Francois-Rene Rideau
Browse files
Release as 4.1
parent
80ff8b4f
Changes
4
Hide whitespace changes
Inline
Side-by-side
cl-launch.sh
View file @
d0c47302
#!/bin/sh
#| cl-launch.sh -- shell wrapper for Common Lisp -*- Lisp -*-
CL_LAUNCH_VERSION
=
'4.
0.8.2
'
CL_LAUNCH_VERSION
=
'4.
1
'
license_information
()
{
AUTHOR_NOTE
=
"
\
# Please send your improvements to the author:
...
...
@@ -99,9 +99,8 @@ Name
----
cl-launch - shell wrapper for Common Lisp
Normal Usage
------------
Synopsis
--------
$PROGBASE
[options] '(lisp (form) to evaluate)'
evaluate specified form, print the results followed by newline
as in: cl -l sbcl -sp my-system-and-package '(some form)'
...
...
@@ -110,11 +109,11 @@ Normal Usage
run specified Lisp script, passing arguments, as in a script with
#!/usr/bin/cl -sp my-system-and-package -E main
$PROGBASE
[options] --execute [options] [-- arguments...]
$PROGBASE
[options]
[
--execute
]
[options] [-- arguments...]
run the specified software without generating a script (default)
$PROGBASE
[options] --output
SCRIPT
[options]
generate a
runnable shell script
from the software specification
$PROGBASE
[options] --output
EXECUTABLE
[options]
generate a
n executable script or binary
from the software specification
Special modes
-------------
...
...
@@ -628,7 +627,7 @@ Hence, variable \`\$SBCL\` controls where to look for the \`sbcl\` implementatio
and variable
\`\$
CMUCL
\`
controls where to look for the
\`
cmucl
\`
implementation.
If a binary is found with a matching pathname (using the standard unix
\`\$
PATH
\`
as required), then said implementation will be used, using proper command line
options, that may be overriden with an environment variable similar to the previous
options, that may be overrid
d
en with an environment variable similar to the previous
but with
\`
_OPTIONS
\`
appended to its name.
Hence,
\`\$
CMUCL_OPTIONS
\`
for
\`
cmucl
\`
,
\`\$
CLISP_OPTIONS
\`
for
\`
clisp
\`
, etc.
Sensible defaults are provided for each implementation, so as to execute the
...
...
debian/changelog
View file @
d0c47302
cl-launch (4.1-2) unstable; urgency=low
* Convert help to markdown, extract man page from it.
* Fix support for :require dependencies
-- Francois-Rene Rideau <fare@tunes.org> Tue, 19 Aug 2014 22:45:10 -0400
cl-launch (4.0.8-1) unstable; urgency=low
* Improve --load dependencies so they depend on previously loaded systems.
...
...
debian/cl-launch.1
View file @
d0c47302
.TH cl\-launch.sh
4.0.8.
1 "(August 2014)" "Francois\-Rene Rideau's" "
s
hell
wrapper for
Common Lisp"
.TH cl\-launch.sh 1 "(August 2014)" "Francois\-Rene Rideau's" "
S
hell
Scripting with
Common Lisp"
.SH Name
.PP
cl\-launch \- shell wrapper for Common Lisp
.SH
Normal Usage
.SH
Synopsis
.PP
.RS
.nf
...
...
@@ -12,10 +12,10 @@ cl [options] '(lisp (form) to evaluate)'
cl [options] script\-file arguments...
run specified Lisp script, passing arguments, as in a script with
#!/usr/bin/cl \-sp my\-system\-and\-package \-E main
cl [options] \-\-execute [options] [\-\- arguments...]
cl [options]
[
\-\-execute
]
[options] [\-\- arguments...]
run the specified software without generating a script (default)
cl [options] \-\-output
SCRIPT
[options]
generate a
runnable shell script
from the software specification
cl [options] \-\-output
EXECUTABLE
[options]
generate a
n executable script or binary
from the software specification
.fi
.RE
.SH Special modes
...
...
@@ -566,7 +566,7 @@ Hence, variable \fB\fC$SBCL\fR controls where to look for the \fB\fCsbcl\fR impl
and variable \fB\fC$CMUCL\fR controls where to look for the \fB\fCcmucl\fR implementation.
If a binary is found with a matching pathname (using the standard unix \fB\fC$PATH\fR
as required), then said implementation will be used, using proper command line
options, that may be overriden with an environment variable similar to the previous
options, that may be overrid
d
en with an environment variable similar to the previous
but with \fB\fC_OPTIONS\fR appended to its name.
Hence, \fB\fC$CMUCL_OPTIONS\fR for \fB\fCcmucl\fR, \fB\fC$CLISP_OPTIONS\fR for \fB\fCclisp\fR, etc.
Sensible defaults are provided for each implementation, so as to execute the
...
...
release.lisp
View file @
d0c47302
#
!/bin/sh
#| -*- Lisp -*-
#!/usr/bin/cl -s inferior-shell -s optima.ppcre -E cl-launch-release::main
exec "$(dirname $0)/cl-launch.sh" \
--system inferior-shell --system optima.ppcre \
-X --package cl-launch-release --entry main -- "$0" "$@" ; exit
...
...
@@ -54,7 +55,7 @@ exec "$(dirname $0)/cl-launch.sh" \
sv
))
(
defun
debian-arch
()
"amd64"
)
(
run/ss
`
(
dpkg
--print-architecture
))
)
(
defun
git-tag
(
&optional
(
pattern
"4.*"
))
(
with-current-directory
((
pn
))
...
...
@@ -68,22 +69,17 @@ exec "$(dirname $0)/cl-launch.sh" \
(
defun
debian-package
()
(
let*
((
debian-version
(
debian-version
))
(
version
(
get-version
))
(
origtarball
(
pn
(
strcat
"../cl-launch_"
version
".orig.tar.gz"
))))
(
origtarball
(
pn
(
strcat
"../cl-launch_"
version
".orig.tar.gz"
)))
(
home
(
user-homedir-pathname
))
(
cl-launch-version
(
strcat
"cl-launch-"
version
))
(
cldir
(
subpathname
home
"files/cl-launch/"
)))
(
with-current-directory
((
pn
))
(
run
`
(
pwd
)
:show
t
)
(
clean
)
(
delete-file-if-exists
origtarball
)
(
run
`
(
git-buildpackage
--git-debian-branch=master
--git-upstream-branch=master
(
--git-upstream-tag=
,
version
)
--git-tag
--git-retag
--git-ignore-branch
)
:show
t
)
(
run
`
(
lintian
-c
--fail-on-warnings
--profile
debian
(
..
/cl-launch_
,
debian-version
_
,
(
debian-arch
)
.
changes
))
:show
t
)
(
clean
))))
(
defun
publish-debian-package
()
(
let*
((
version
(
get-version
))
(
debian-version
(
debian-version
))
(
home
(
user-homedir-pathname
))
(
cl-launch-version
(
strcat
"cl-launch-"
version
))
(
cldir
(
subpathname
home
"files/cl-launch/"
)))
(
with-current-directory
((
pn
))
(
clean
)
(
run
`
(
pwd
)
:show
t
)
(
run
`
(
.
/cl-launch.sh
--include
"."
"-B"
install_path
)
:show
t
)
(
run
`
(
.
/cl-launch.sh
--no-include
-o
cl-launch
"-B"
install_bin
)
:show
t
)
...
...
@@ -101,10 +97,16 @@ exec "$(dirname $0)/cl-launch.sh" \
(
run
`
(
pwd
)
:show
t
)
(
run/interactive
`
(
gpg
-b
-a
(
cl-launch-
,
version
.
tar.gz
))
:show
t
)
(
run
`
(
ln
-sf
(
,
cl-launch-version
.
tar.gz
)
cl-launch.tar.gz
)
:show
t
)
(
run
`
(
ln
-sf
(
,
cl-launch-version
.
tar.gz.asc
)
cl-launch.tar.gz.asc
)
:show
t
)
(
run
`
(
ln
-sf
(
,
cl-launch-version
.
tar.gz.asc
)
cl-launch.tar.gz.asc
)
:show
t
))))
(
defun
publish-debian-package
()
(
let*
((
debian-version
(
debian-version
))
(
home
(
user-homedir-pathname
))
(
cldir
(
subpathname
home
"files/cl-launch/"
)))
(
with-current-directory
(
cldir
)
(
run
`
(
dput
mentors
(
cl-launch_
,
debian-version
_
,
(
debian-arch
)
.
changes
))
:show
t
)
(
run
`
(
rsync
-av
--delete
,
cldir
"common-lisp.net:/project/xcvb/public_html/cl-launch/"
)
:show
t
))
(
values
))
)
(
run
`
(
rsync
-av
--delete
,
cldir
"common-lisp.net:/project/xcvb/public_html/cl-launch/"
)
:show
t
))
)
(
values
))
(
defun
source
()
(
with-current-directory
()
...
...
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