| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 1 | #!/bin/sh |
| 2 | |||||
| 3 | hxtoh() | ||||
| 4 | { | ||||
| 5 | flag=1 | ||||
| blueswir1 | fb21ced | 2009-03-29 09:06:43 +0000 | [diff] [blame] | 6 | while read -r str; do |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 7 | case $str in |
| 8 | HXCOMM*) | ||||
| 9 | ;; | ||||
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 10 | STEXI*|ETEXI*|SQMP*|EQMP*) flag=$(($flag^1)) |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 11 | ;; |
| 12 | *) | ||||
| blueswir1 | 004efc9 | 2009-03-29 10:50:43 +0000 | [diff] [blame] | 13 | test $flag -eq 1 && printf "%s\n" "$str" |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 14 | ;; |
| 15 | esac | ||||
| 16 | done | ||||
| 17 | } | ||||
| 18 | |||||
| 19 | hxtotexi() | ||||
| 20 | { | ||||
| 21 | flag=0 | ||||
| Jan Kiszka | 6c913ba | 2010-05-20 09:16:33 +0200 | [diff] [blame] | 22 | line=1 |
| blueswir1 | fb21ced | 2009-03-29 09:06:43 +0000 | [diff] [blame] | 23 | while read -r str; do |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 24 | case "$str" in |
| 25 | HXCOMM*) | ||||
| 26 | ;; | ||||
| Jan Kiszka | 6c913ba | 2010-05-20 09:16:33 +0200 | [diff] [blame] | 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 | ||||
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 40 | ;; |
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 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 | ;; | ||||
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 47 | DEFHEADING*) |
| Stefan Weil | 7d69c52 | 2009-07-01 23:13:34 +0200 | [diff] [blame] | 48 | echo "$(expr "$str" : "DEFHEADING(\(.*\))")" |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 49 | ;; |
| 50 | *) | ||||
| Stefan Weil | 7d69c52 | 2009-07-01 23:13:34 +0200 | [diff] [blame] | 51 | test $flag -eq 1 && echo "$str" |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 52 | ;; |
| 53 | esac | ||||
| Jan Kiszka | 6c913ba | 2010-05-20 09:16:33 +0200 | [diff] [blame] | 54 | line=$((line+1)) |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 55 | done |
| 56 | } | ||||
| 57 | |||||
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 58 | hxtoqmp() |
| 59 | { | ||||
| 60 | IFS= | ||||
| 61 | flag=0 | ||||
| Jan Kiszka | 02e9591 | 2010-06-02 09:06:03 +0200 | [diff] [blame] | 62 | line=1 |
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 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 | ||||
| Jan Kiszka | 02e9591 | 2010-06-02 09:06:03 +0200 | [diff] [blame] | 91 | line=$((line+1)) |
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 92 | done |
| 93 | } | ||||
| 94 | |||||
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 95 | case "$1" in |
| 96 | "-h") hxtoh ;; | ||||
| 97 | "-t") hxtotexi ;; | ||||
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 98 | "-q") hxtoqmp ;; |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 99 | *) exit 1 ;; |
| 100 | esac | ||||
| blueswir1 | 5c2f8d2 | 2009-03-28 08:13:56 +0000 | [diff] [blame] | 101 | |
| 102 | exit 0 | ||||