b91e2391 |
1 | #! /bin/sh |
2 | |
3 | # -*-sh-*- |
4 | # |
4969747b |
5 | # $Id: txtlib.in,v 1.2 1999/11/11 17:49:15 mdw Exp $ |
b91e2391 |
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 $ |
4969747b |
33 | # Revision 1.2 1999/11/11 17:49:15 mdw |
34 | # Regular expression fixes for parsing version numbers. |
35 | # |
36 | # Revision 1.1.1.1 1999/05/05 19:23:47 mdw |
37 | # New import. The old CVS repository was lost in a disk disaster. |
b91e2391 |
38 | # |
39 | |
40 | # --- Handle command line arguments --- |
41 | |
42 | files="" |
43 | mode=x |
44 | out="" |
45 | |
46 | # --- Parse command line arguments --- |
47 | |
48 | while [ $# -gt 0 ]; do |
49 | case $1 in |
50 | -h | --h | --he | --hel | --help) |
51 | cat <<EOF |
52 | Usage: txtlib [-lx] [-o FILE] [LIBRARY...] |
53 | |
54 | In \`extract' mode (-x, default), extracts chunks named on standard input |
55 | from the list of libraries, and writes the result to standard output. |
56 | |
57 | In \`list' mode (-l), lists the chunks defined in the text libraries given. |
58 | |
59 | Options: |
60 | |
61 | -h, --help Print this help text. |
62 | -v, --version Print the program's version number. |
63 | -l, --list List chunks defined in text libraries. |
64 | -x, --extract Extract chunks from text libraries (default). |
65 | -o, --output=FILE Extract chunks to FILE, not standard output. |
66 | EOF |
67 | exit 0 |
68 | ;; |
69 | -v | --v | --ve | --ver | --vers | --versi | --versio | --version) |
4969747b |
70 | version=`echo '$Revision: 1.2 $' | |
71 | sed -n -e 's;^.*: \([0-9.]*\) *\\$;\1;p'` |
b91e2391 |
72 | echo "txtlib $version; Common Files Distribution version @VERSION@" |
73 | exit 0 |
74 | ;; |
75 | -o | --o | --ou | --out | --outp | --outpu | --output) |
76 | out="$2"; |
77 | shift |
78 | ;; |
79 | -o*) |
80 | out=`echo $1 | sed -e 's/^-[a-z]//'` |
81 | ;; |
82 | --o=* | --ou=* | --out=* | --outp=* | --outpu=* | --output=*) |
83 | out=`echo $1 | sed -e 's/^--[a-z]*=//'` |
84 | ;; |
85 | -l | --l | --li | --lis | --list) |
86 | mode=l |
87 | ;; |
88 | -x | --e | --ex | --ext | --extr | --extra | --extrac | --extract) |
89 | mode=x |
90 | ;; |
91 | --) |
92 | shift |
93 | break |
94 | ;; |
95 | -) |
96 | break |
97 | ;; |
98 | -*) |
99 | echo "txtlib: unknown option \`$1'" >&2 |
100 | exit 1 |
101 | ;; |
102 | *) |
103 | break |
104 | ;; |
105 | esac |
106 | shift |
107 | done |
108 | |
109 | test "$out" = "-" && out="" |
110 | |
111 | # --- Build a `sed' script --- |
112 | |
113 | case $mode in |
114 | l) |
115 | sed -n -e "/^.*\*@-\([-a-zA-Z0-9_]*\)-@\*.*$/ s//\1/p" "$@" |
116 | ;; |
117 | x) |
118 | t=/tmp/txtlib.$$ |
119 | if mkdir -m 700 $t; then : |
120 | else |
121 | echo >&2 "txtlib: could not create temporary directory" |
122 | exit 1 |
123 | fi |
124 | sedfile=/$t/sed |
125 | while read LINE; do |
126 | echo "/\*@-$LINE-@\*/,/\*@-#-@\*/ p" |
127 | done >$sedfile |
128 | test -z "$out" || exec >$out |
129 | sed -e '/\*@-[-a-zA-Z0-9_]*-@\*/ i\ |
130 | *@-#-@*' "$@" | sed -n -f $sedfile | sed -e '/\*@-#-@\*/ d' |
131 | rm -rf $t |
132 | ;; |
133 | esac |