File tree 1 file changed +60
-2
lines changed
1 file changed +60
-2
lines changed Original file line number Diff line number Diff line change 7
7
case $str in
8
8
HXCOMM* )
9
9
;;
10
- STEXI* |ETEXI* ) flag=$(( $flag ^1 ))
10
+ STEXI* |ETEXI* |SQMP * |EQMP * ) flag=$(( $flag ^1 ))
11
11
;;
12
12
* )
13
13
test $flag -eq 1 && printf " %s\n" " $str "
@@ -19,11 +19,30 @@ hxtoh()
19
19
hxtotexi ()
20
20
{
21
21
flag=0
22
+ line=1
22
23
while read -r str; do
23
24
case " $str " in
24
25
HXCOMM* )
25
26
;;
26
- STEXI* |ETEXI* ) flag=$(( $flag ^1 ))
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
40
+ ;;
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
27
46
;;
28
47
DEFHEADING* )
29
48
echo " $( expr " $str " : " DEFHEADING(\(.*\))" ) "
@@ -32,12 +51,51 @@ hxtotexi()
32
51
test $flag -eq 1 && echo " $str "
33
52
;;
34
53
esac
54
+ line=$(( line+ 1 ))
55
+ done
56
+ }
57
+
58
+ hxtoqmp ()
59
+ {
60
+ IFS=
61
+ flag=0
62
+ line=1
63
+ while read -r str; do
64
+ case " $str " in
65
+ HXCOMM* )
66
+ ;;
67
+ SQMP* )
68
+ if test $flag -eq 1 ; then
69
+ echo " line $line : syntax error: expected EQMP, found $str " >&2
70
+ exit 1
71
+ fi
72
+ flag=1
73
+ ;;
74
+ EQMP* )
75
+ if test $flag -ne 1 ; then
76
+ echo " line $line : syntax error: expected SQMP, found $str " >&2
77
+ exit 1
78
+ fi
79
+ flag=0
80
+ ;;
81
+ STEXI* |ETEXI* )
82
+ if test $flag -eq 1 ; then
83
+ echo " line $line : syntax error: expected EQMP, found $str " >&2
84
+ exit 1
85
+ fi
86
+ ;;
87
+ * )
88
+ test $flag -eq 1 && echo " $str "
89
+ ;;
90
+ esac
91
+ line=$(( line+ 1 ))
35
92
done
36
93
}
37
94
38
95
case " $1 " in
39
96
" -h" ) hxtoh ;;
40
97
" -t" ) hxtotexi ;;
98
+ " -q" ) hxtoqmp ;;
41
99
* ) exit 1 ;;
42
100
esac
43
101
You can’t perform that action at this time.
0 commit comments