c6cceb47f3
* doc/mes.texi (Invoking mesar): New section. * mes/module/mes/boot-0.scm: Add one line help description. * module/mescc.scm (parse-opts): Likewise. * scripts/diff.scm (main): Add -h,--help, -v,--version. * scripts/mesar.in: Likewise.
83 lines
2.1 KiB
Plaintext
83 lines
2.1 KiB
Plaintext
#! @SHELL@
|
|
|
|
# GNU Mes --- Maxwell Equations of Software
|
|
# Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
#
|
|
# This file is part of GNU Mes.
|
|
#
|
|
# GNU Mes is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or (at
|
|
# your option) any later version.
|
|
#
|
|
# GNU Mes is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
if [ "$V" = 2 ]; then
|
|
set -x
|
|
fi
|
|
|
|
# parse arguments
|
|
while [ $# -gt 0 ]; do
|
|
case $1 in
|
|
(-h|--help)
|
|
cat <<EOF
|
|
Usage: mesar [OPTION]... COMMAND ARCHIVE-FILE FILE...
|
|
Archiver for MesCC.
|
|
|
|
Commands:
|
|
r[ab][f][u] - replace existing or insert new file(s) into the archive
|
|
[c] - do not warn if the library had to be created
|
|
[D] - use zero for timestamps and uids/gids (default)
|
|
|
|
are ignored and assumed to be "crD".
|
|
|
|
Options:
|
|
-h,--help display this help and exit
|
|
-V,--version display version information and exit
|
|
EOF
|
|
exit 0
|
|
;;
|
|
(-V|--version)
|
|
cat <<EOF
|
|
mesar (GNU Mes) @VERSION@
|
|
EOF
|
|
exit 0
|
|
;;
|
|
-*) shift
|
|
;;
|
|
*) break
|
|
;;
|
|
esac
|
|
done
|
|
|
|
command=$1
|
|
shift
|
|
if [ -z "$command" ]; then
|
|
echo "AR: Usage error: missing command." 1>&2
|
|
exit 2
|
|
fi
|
|
archive=$1
|
|
shift
|
|
if [ -z "$archive" ]; then
|
|
echo "AR: Usage error: missing archive" 1>&2
|
|
exit 2
|
|
fi
|
|
if [ $# -eq 0 ]; then
|
|
echo "AR: Usage error: missing object files" 1>&2
|
|
exit 2
|
|
fi
|
|
M1_archive=$(dirname "$archive")/$(basename "$archive" .a).s
|
|
for o in "$@"; do
|
|
s=$(dirname "$o")/$(basename "$o" .o).s
|
|
M1_objects="$M1_objects $s"
|
|
done
|
|
mkdir -p $(dirname "$archive")
|
|
cat $M1_objects > "$M1_archive"
|
|
cat "$@" > "$archive"
|