]>
Commit | Line | Data |
---|---|---|
5824d651 BS |
1 | #!/bin/sh |
2 | ||
3 | hxtoh() | |
4 | { | |
5 | flag=1 | |
fb21ced7 | 6 | while read -r str; do |
5824d651 BS |
7 | case $str in |
8 | HXCOMM*) | |
9 | ;; | |
b40292e7 | 10 | STEXI*|ETEXI*|SQMP*|EQMP*) flag=$(($flag^1)) |
5824d651 BS |
11 | ;; |
12 | *) | |
004efc96 | 13 | test $flag -eq 1 && printf "%s\n" "$str" |
5824d651 BS |
14 | ;; |
15 | esac | |
16 | done | |
17 | } | |
18 | ||
19 | hxtotexi() | |
20 | { | |
21 | flag=0 | |
6c913ba5 | 22 | line=1 |
fb21ced7 | 23 | while read -r str; do |
5824d651 BS |
24 | case "$str" in |
25 | HXCOMM*) | |
26 | ;; | |
6c913ba5 JK |
27 | STEXI*) |
28 | if test $flag -eq 1 ; then | |
29 | echo "line $line: syntax error: expected ETEXI, found $str" >&2 | |
30 | exit 1 | |
31 | fi | |
32 | flag=1 | |
33 | ;; | |
34 | ETEXI*) | |
35 | if test $flag -ne 1 ; then | |
36 | echo "line $line: syntax error: expected STEXI, found $str" >&2 | |
37 | exit 1 | |
38 | fi | |
39 | flag=0 | |
5824d651 | 40 | ;; |
b40292e7 JK |
41 | SQMP*|EQMP*) |
42 | if test $flag -eq 1 ; then | |
43 | echo "line $line: syntax error: expected ETEXI, found $str" >&2 | |
44 | exit 1 | |
45 | fi | |
46 | ;; | |
5824d651 | 47 | DEFHEADING*) |
7d69c52e | 48 | echo "$(expr "$str" : "DEFHEADING(\(.*\))")" |
5824d651 | 49 | ;; |
a3adb7ad ME |
50 | ARCHHEADING*) |
51 | echo "$(expr "$str" : "ARCHHEADING(\(.*\),.*)")" | |
52 | ;; | |
5824d651 | 53 | *) |
7d69c52e | 54 | test $flag -eq 1 && echo "$str" |
5824d651 BS |
55 | ;; |
56 | esac | |
6c913ba5 | 57 | line=$((line+1)) |
5824d651 BS |
58 | done |
59 | } | |
60 | ||
b40292e7 JK |
61 | hxtoqmp() |
62 | { | |
63 | IFS= | |
64 | flag=0 | |
02e95918 | 65 | line=1 |
b40292e7 JK |
66 | while read -r str; do |
67 | case "$str" in | |
68 | HXCOMM*) | |
69 | ;; | |
70 | SQMP*) | |
71 | if test $flag -eq 1 ; then | |
72 | echo "line $line: syntax error: expected EQMP, found $str" >&2 | |
73 | exit 1 | |
74 | fi | |
75 | flag=1 | |
76 | ;; | |
77 | EQMP*) | |
78 | if test $flag -ne 1 ; then | |
79 | echo "line $line: syntax error: expected SQMP, found $str" >&2 | |
80 | exit 1 | |
81 | fi | |
82 | flag=0 | |
83 | ;; | |
84 | STEXI*|ETEXI*) | |
85 | if test $flag -eq 1 ; then | |
86 | echo "line $line: syntax error: expected EQMP, found $str" >&2 | |
87 | exit 1 | |
88 | fi | |
89 | ;; | |
90 | *) | |
91 | test $flag -eq 1 && echo "$str" | |
92 | ;; | |
93 | esac | |
02e95918 | 94 | line=$((line+1)) |
b40292e7 JK |
95 | done |
96 | } | |
97 | ||
5824d651 BS |
98 | case "$1" in |
99 | "-h") hxtoh ;; | |
100 | "-t") hxtotexi ;; | |
b40292e7 | 101 | "-q") hxtoqmp ;; |
5824d651 BS |
102 | *) exit 1 ;; |
103 | esac | |
5c2f8d2d BS |
104 | |
105 | exit 0 |