hxtool revision 5d8f37ad78fc66901af50c762029a501561f3b23
15d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner#!/bin/sh
25d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner
35d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turnerhxtoh()
45d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner{
55d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner    flag=1
65d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner    while read -r str; do
75d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner        case $str in
85d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            HXCOMM*)
95d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
105d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            STEXI*|ETEXI*) flag=$(($flag^1))
115d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
125d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            *)
135d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            test $flag -eq 1 && printf "%s\n" "$str"
145d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
155d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner        esac
165d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner    done
175d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner}
185d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner
195d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turnerhxtotexi()
205d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner{
215d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner    flag=0
225d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner    while read -r str; do
235d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner        case "$str" in
245d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            HXCOMM*)
255d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
265d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            STEXI*|ETEXI*) flag=$(($flag^1))
275d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
285d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            DEFHEADING*)
295d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            echo $(expr "$str" : "DEFHEADING(\(.*\))")
305d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
315d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            *)
325d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            test $flag -eq 1 && echo $str
335d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner            ;;
345d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner        esac
355d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner    done
365d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner}
375d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner
385d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turnercase "$1" in
395d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner"-h") hxtoh ;;
405d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner"-t") hxtotexi ;;
415d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner*) exit 1 ;;
425d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turneresac
435d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turner
445d8f37ad78fc66901af50c762029a501561f3b23David 'Digit' Turnerexit 0
45