| 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 | ;; |
| Michael Ellerman | a3adb7a | 2011-12-19 17:19:31 +1100 | [diff] [blame] | 50 | ARCHHEADING*) |
| 51 | echo "$(expr "$str" : "ARCHHEADING(\(.*\),.*)")" | ||||
| 52 | ;; | ||||
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 53 | *) |
| Stefan Weil | 7d69c52 | 2009-07-01 23:13:34 +0200 | [diff] [blame] | 54 | test $flag -eq 1 && echo "$str" |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 55 | ;; |
| 56 | esac | ||||
| Jan Kiszka | 6c913ba | 2010-05-20 09:16:33 +0200 | [diff] [blame] | 57 | line=$((line+1)) |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 58 | done |
| 59 | } | ||||
| 60 | |||||
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 61 | hxtoqmp() |
| 62 | { | ||||
| 63 | IFS= | ||||
| 64 | flag=0 | ||||
| Jan Kiszka | 02e9591 | 2010-06-02 09:06:03 +0200 | [diff] [blame] | 65 | line=1 |
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 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 | ||||
| Jan Kiszka | 02e9591 | 2010-06-02 09:06:03 +0200 | [diff] [blame] | 94 | line=$((line+1)) |
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 95 | done |
| 96 | } | ||||
| 97 | |||||
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 98 | case "$1" in |
| 99 | "-h") hxtoh ;; | ||||
| 100 | "-t") hxtotexi ;; | ||||
| Jan Kiszka | b40292e | 2010-05-31 14:43:31 -0300 | [diff] [blame] | 101 | "-q") hxtoqmp ;; |
| blueswir1 | 5824d65 | 2009-03-28 06:44:27 +0000 | [diff] [blame] | 102 | *) exit 1 ;; |
| 103 | esac | ||||
| blueswir1 | 5c2f8d2 | 2009-03-28 08:13:56 +0000 | [diff] [blame] | 104 | |
| 105 | exit 0 | ||||