Initial revision
[cfd] / txtlib.in
1 #! /bin/sh
2
3 # -*-sh-*-
4 #
5 # $Id: txtlib.in,v 1.1 1999/05/05 19:23:47 mdw Exp $
6 #
7 # Manipulate simple libraries of text chunks
8 #
9 # (c) 1997 Mark Wooding
10 #
11
12 #----- Licensing notice -----------------------------------------------------
13 #
14 # This file is part of the Common Files Distribution (`common').
15 #
16 # `Common' is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
20 #
21 # `Common' is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 # GNU General Public License for more details.
25 #
26 # You should have received a copy of the GNU General Public License
27 # along with `common'; if not, write to the Free Software Foundation,
28 # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
29
30 #----- Revision history -----------------------------------------------------
31 #
32 # $Log: txtlib.in,v $
33 # Revision 1.1 1999/05/05 19:23:47 mdw
34 # Initial revision
35 #
36
37 # --- Handle command line arguments ---
38
39 files=""
40 mode=x
41 out=""
42
43 # --- Parse command line arguments ---
44
45 while [ $# -gt 0 ]; do
46 case $1 in
47 -h | --h | --he | --hel | --help)
48 cat <<EOF
49 Usage: txtlib [-lx] [-o FILE] [LIBRARY...]
50
51 In \`extract' mode (-x, default), extracts chunks named on standard input
52 from the list of libraries, and writes the result to standard output.
53
54 In \`list' mode (-l), lists the chunks defined in the text libraries given.
55
56 Options:
57
58 -h, --help Print this help text.
59 -v, --version Print the program's version number.
60 -l, --list List chunks defined in text libraries.
61 -x, --extract Extract chunks from text libraries (default).
62 -o, --output=FILE Extract chunks to FILE, not standard output.
63 EOF
64 exit 0
65 ;;
66 -v | --v | --ve | --ver | --vers | --versi | --versio | --version)
67 version=`echo '$Revision: 1.1 $' |
68 sed -n -e 's;^.*: \([0-9.]*\)\\$;\1;p'`
69 echo "txtlib $version; Common Files Distribution version @VERSION@"
70 exit 0
71 ;;
72 -o | --o | --ou | --out | --outp | --outpu | --output)
73 out="$2";
74 shift
75 ;;
76 -o*)
77 out=`echo $1 | sed -e 's/^-[a-z]//'`
78 ;;
79 --o=* | --ou=* | --out=* | --outp=* | --outpu=* | --output=*)
80 out=`echo $1 | sed -e 's/^--[a-z]*=//'`
81 ;;
82 -l | --l | --li | --lis | --list)
83 mode=l
84 ;;
85 -x | --e | --ex | --ext | --extr | --extra | --extrac | --extract)
86 mode=x
87 ;;
88 --)
89 shift
90 break
91 ;;
92 -)
93 break
94 ;;
95 -*)
96 echo "txtlib: unknown option \`$1'" >&2
97 exit 1
98 ;;
99 *)
100 break
101 ;;
102 esac
103 shift
104 done
105
106 test "$out" = "-" && out=""
107
108 # --- Build a `sed' script ---
109
110 case $mode in
111 l)
112 sed -n -e "/^.*\*@-\([-a-zA-Z0-9_]*\)-@\*.*$/ s//\1/p" "$@"
113 ;;
114 x)
115 t=/tmp/txtlib.$$
116 if mkdir -m 700 $t; then :
117 else
118 echo >&2 "txtlib: could not create temporary directory"
119 exit 1
120 fi
121 sedfile=/$t/sed
122 while read LINE; do
123 echo "/\*@-$LINE-@\*/,/\*@-#-@\*/ p"
124 done >$sedfile
125 test -z "$out" || exec >$out
126 sed -e '/\*@-[-a-zA-Z0-9_]*-@\*/ i\
127 *@-#-@*' "$@" | sed -n -f $sedfile | sed -e '/\*@-#-@\*/ d'
128 rm -rf $t
129 ;;
130 esac