comparison: openpkg/sea.sh
openpkg/sea.sh
- changeset 428
- f880f219c566
- child 446
- 85ef9b73028a
equal
deleted
inserted
replaced
| -1:000000000000 | 0:ec8b7ab873a6 |
|---|---|
| 1 ## | |
| 2 ## sea -- Shell Execution Archive | |
| 3 ## Copyright (c) 2012 Ralf S. Engelschall <rse@engelschall.com> | |
| 4 ## | |
| 5 ## This program is free software; you can redistribute it and/or modify | |
| 6 ## it under the terms of the GNU General Public License as published by | |
| 7 ## the Free Software Foundation; either version 2 of the License, or | |
| 8 ## (at your option) any later version. | |
| 9 ## | |
| 10 ## This program is distributed in the hope that it will be useful, | |
| 11 ## but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 13 ## General Public License for more details. | |
| 14 ## | |
| 15 ## You should have received a copy of the GNU General Public License | |
| 16 ## along with this program; if not, write to the Free Software | |
| 17 ## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, | |
| 18 ## USA, or contact Ralf S. Engelschall <rse@engelschall.com>. | |
| 19 ## | |
| 20 ## NOTICE: Given that you include this file verbatim into your own | |
| 21 ## source tree, you are justified in saying that it remains separate | |
| 22 ## from your package, and that this way you are simply just using GNU | |
| 23 ## shtool. So, in this situation, there is no requirement that your | |
| 24 ## package itself is licensed under the GNU General Public License in | |
| 25 ## order to take advantage of GNU shtool. | |
| 26 ## | |
| 27 | |
| 28 ## | |
| 29 ## COMMAND LINE PARSING | |
| 30 ## | |
| 31 | |
| 32 str_usage="[-h|--help] [-o|--output <file>] <script> [<file-or-dir> ...]" | |
| 33 arg_spec="1+" | |
| 34 opt_spec="h.o:" | |
| 35 opt_alias="h:help,o:output" | |
| 36 opt_h=no | |
| 37 opt_o="" | |
| 38 | |
| 39 # parse argument specification string | |
| 40 eval `echo $arg_spec |\ | |
| 41 sed -e 's/^\([0-9]*\)\([+=]\)/arg_NUMS=\1; arg_MODE=\2/'` | |
| 42 | |
| 43 # parse option specification string | |
| 44 eval `echo $opt_spec |\ | |
| 45 sed -e 's/\([a-zA-Z0-9]\)\([.:+]\)/opt_MODE_\1=\2;/g'` | |
| 46 | |
| 47 # parse option alias string | |
| 48 eval `echo $opt_alias |\ | |
| 49 sed -e 's/-/_/g' -e 's/\([a-zA-Z0-9]\):\([^,]*\),*/opt_ALIAS_\2=\1;/g'` | |
| 50 | |
| 51 # interate over argument line | |
| 52 opt_PREV='' | |
| 53 while [ $# -gt 0 ]; do | |
| 54 # special option stops processing | |
| 55 if [ ".$1" = ".--" ]; then | |
| 56 shift | |
| 57 break | |
| 58 fi | |
| 59 | |
| 60 # determine option and argument | |
| 61 opt_ARG_OK=no | |
| 62 if [ ".$opt_PREV" != . ]; then | |
| 63 # merge previous seen option with argument | |
| 64 opt_OPT="$opt_PREV" | |
| 65 opt_ARG="$1" | |
| 66 opt_ARG_OK=yes | |
| 67 opt_PREV='' | |
| 68 else | |
| 69 # split argument into option and argument | |
| 70 case "$1" in | |
| 71 --[a-zA-Z0-9]*=*) | |
| 72 eval `echo "x$1" |\ | |
| 73 sed -e 's/^x--\([a-zA-Z0-9-]*\)=\(.*\)$/opt_OPT="\1";opt_ARG="\2"/'` | |
| 74 opt_STR=`echo $opt_OPT | sed -e 's/-/_/g'` | |
| 75 eval "opt_OPT=\${opt_ALIAS_${opt_STR}-${opt_OPT}}" | |
| 76 ;; | |
| 77 --[a-zA-Z0-9]*) | |
| 78 opt_OPT=`echo "x$1" | cut -c4-` | |
| 79 opt_STR=`echo $opt_OPT | sed -e 's/-/_/g'` | |
| 80 eval "opt_OPT=\${opt_ALIAS_${opt_STR}-${opt_OPT}}" | |
| 81 opt_ARG='' | |
| 82 ;; | |
| 83 -[a-zA-Z0-9]*) | |
| 84 eval `echo "x$1" |\ | |
| 85 sed -e 's/^x-\([a-zA-Z0-9]\)/opt_OPT="\1";/' \ | |
| 86 -e 's/";\(.*\)$/"; opt_ARG="\1"/'` | |
| 87 ;; | |
| 88 -[a-zA-Z0-9]) | |
| 89 opt_OPT=`echo "x$1" | cut -c3-` | |
| 90 opt_ARG='' | |
| 91 ;; | |
| 92 *) | |
| 93 break | |
| 94 ;; | |
| 95 esac | |
| 96 fi | |
| 97 | |
| 98 # eat up option | |
| 99 shift | |
| 100 | |
| 101 # determine whether option needs an argument | |
| 102 eval "opt_MODE=\$opt_MODE_${opt_OPT}" | |
| 103 if [ ".$opt_ARG" = . ] && [ ".$opt_ARG_OK" != .yes ]; then | |
| 104 if [ ".$opt_MODE" = ".:" ] || [ ".$opt_MODE" = ".+" ]; then | |
| 105 opt_PREV="$opt_OPT" | |
| 106 continue | |
| 107 fi | |
| 108 fi | |
| 109 | |
| 110 # process option | |
| 111 case $opt_MODE in | |
| 112 '.' ) | |
| 113 # boolean option | |
| 114 eval "opt_${opt_OPT}=yes" | |
| 115 ;; | |
| 116 ':' ) | |
| 117 # option with argument (multiple occurances override) | |
| 118 eval "opt_${opt_OPT}=\"\$opt_ARG\"" | |
| 119 ;; | |
| 120 '+' ) | |
| 121 # option with argument (multiple occurances append) | |
| 122 eval "opt_${opt_OPT}=\"\$opt_${opt_OPT} \$opt_ARG\"" | |
| 123 ;; | |
| 124 * ) | |
| 125 echo "$0: ERROR: unknown option: \`$opt_OPT'" 1>&2 | |
| 126 exit 1 | |
| 127 ;; | |
| 128 esac | |
| 129 done | |
| 130 if [ ".$opt_PREV" != . ]; then | |
| 131 echo "$0: ERROR: missing argument to option \`$opt_PREV'" 1>&2 | |
| 132 exit 1 | |
| 133 fi | |
| 134 | |
| 135 # process help option | |
| 136 if [ ".$opt_h" = .yes ]; then | |
| 137 echo "Usage: $0 $str_usage" | |
| 138 exit 0 | |
| 139 fi | |
| 140 | |
| 141 # complain about incorrect number of arguments | |
| 142 case $arg_MODE in | |
| 143 '=' ) | |
| 144 if [ $# -ne $arg_NUMS ]; then | |
| 145 echo "$0: ERROR: invalid number of arguments (exactly $arg_NUMS expected)" 1>&2 | |
| 146 exit 1 | |
| 147 fi | |
| 148 ;; | |
| 149 '+' ) | |
| 150 if [ $# -lt $arg_NUMS ]; then | |
| 151 echo "$0: ERROR: invalid number of arguments (at least $arg_NUMS expected)" 1>&2 | |
| 152 exit 1 | |
| 153 fi | |
| 154 ;; | |
| 155 esac | |
| 156 | |
| 157 ## | |
| 158 ## MAIN | |
| 159 ## | |
| 160 | |
| 161 # we required at least the control script | |
| 162 script="$1" | |
| 163 shift | |
| 164 | |
| 165 # determine output file | |
| 166 sea="$opt_o" | |
| 167 if [ ".$sea" = . ]; then | |
| 168 sea=`echo "$script" | sed -e 's;\.[^.][^.]*$;;' -e 's;$;.sea;'` | |
| 169 fi | |
| 170 | |
| 171 # wrap into a self-extracting distribution file | |
| 172 tmpdir="${TMPDIR-/tmp}" | |
| 173 tmpfile="$tmpdir/sea.tmp.$$" | |
| 174 rm -f $tmpfile | |
| 175 set -o noclobber | |
| 176 ( sed <$0 \ | |
| 177 -e '1,/^____/d' \ | |
| 178 -e "s;@script@;$script;g" | |
| 179 echo . | awk '{ | |
| 180 for (i = 0; i < 2048/8; i++) { | |
| 181 printf(" "); | |
| 182 } | |
| 183 }' | |
| 184 ) >$tmpfile | |
| 185 dd bs=2048 count=1 if=$tmpfile of=$sea 2>/dev/null | |
| 186 rm -f $tmpfile | |
| 187 tar cf - "$script" "$@" 2>/dev/null >>$sea | |
| 188 | |
| 189 # graceful termination | |
| 190 # (before the shell discovers that we carry the wrapper with us below) | |
| 191 exit 0 | |
| 192 | |
| 193 ## | |
| 194 ## WRAPPER SCRIPT | |
| 195 ## | |
| 196 | |
| 197 ______________________________________________________________________________ | |
| 198 #!/bin/sh | |
| 199 #![OpenPKG] | |
| 200 ## | |
| 201 ## THIS IS AN AUTO-GENERATED SHELL-WRAPPER ARCHIVE | |
| 202 ## | |
| 203 | |
| 204 # establish sane environment | |
| 205 PATH="$PATH:/bin:/sbin:/usr/bin:/usr/sbin" | |
| 206 LC_CTYPE=C | |
| 207 export LC_CTYPE | |
| 208 umask 022 | |
| 209 | |
| 210 # pass-through | |
| 211 if [ $# -eq 1 -a ".$1" = ".--tar" ]; then | |
| 212 # pass-through attached payload on stdout | |
| 213 dd if="$0" bs=2048 skip=1 2>/dev/null | |
| 214 rc=$? | |
| 215 else | |
| 216 # extract attached payload | |
| 217 rm -rf "$0.d" >/dev/null 2>&1 | |
| 218 mkdir "$0.d" || exit $? | |
| 219 dd if="$0" bs=2048 skip=1 2>/dev/null | \ | |
| 220 (cd "$0.d" && tar xf - 2>/dev/null) | |
| 221 if [ ! -f "$0.d/@script@" ]; then | |
| 222 echo "$0: ERROR: failed to unpack attached payload into directory \"$0.d\"" 1>&2 | |
| 223 rm -rf "$0.d" >/dev/null 2>&1 || true | |
| 224 exit 1 | |
| 225 fi | |
| 226 | |
| 227 # pass-through execution to control script | |
| 228 (cd "$0.d" && exec sh "./@script@" ${1+"$@"}) | |
| 229 rc=$? | |
| 230 | |
| 231 # cleanup | |
| 232 rm -rf "$0.d" >/dev/null 2>&1 || true | |
| 233 fi | |
| 234 | |
| 235 # terminate gracefully | |
| 236 # (before the shell discovers that we carry MBs of raw data with us below) | |
| 237 exit $rc | |
| 238 | |
| 239 # the payload tarball is appended in raw format directly to the end | |
| 240 # of this script, just leaded by padding whitespaces which make sure | |
| 241 # that the tarball data starts at the pre-defined offset of 2KB. This | |
| 242 # allows us to unpack the tarball by just skipping the leading 2KB. | |
| 243 |
