Commit d0c47302 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Release as 4.1

parent 80ff8b4f
#!/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 an 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 overridden 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
......
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.
......
.TH cl\-launch.sh 4.0.8.1 "(August 2014)" "Francois\-Rene Rideau's" "shell wrapper for Common Lisp"
.TH cl\-launch.sh 1 "(August 2014)" "Francois\-Rene Rideau's" "Shell 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 an 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 overridden 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
......
#!/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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment