Return to hxtool CVS log

Up to [Qemu by Fabrice Bellard] / qemu / scripts

Annotation of qemu/scripts/hxtool, revision 1.1.1.1

1.1       root        1: #!/bin/sh
                      2: 
                      3: hxtoh()
                      4: {
                      5:     flag=1
                      6:     while read -r str; do
                      7:         case $str in
                      8:             HXCOMM*)
                      9:             ;;
                     10:             STEXI*|ETEXI*|SQMP*|EQMP*) flag=$(($flag^1))
                     11:             ;;
                     12:             *)
                     13:             test $flag -eq 1 && printf "%s\n" "$str"
                     14:             ;;
                     15:         esac
                     16:     done
                     17: }
                     18: 
                     19: hxtotexi()
                     20: {
                     21:     flag=0
                     22:     line=1
                     23:     while read -r str; do
                     24:         case "$str" in
                     25:             HXCOMM*)
                     26:             ;;
                     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
                     46:             ;;
                     47:             DEFHEADING*)
                     48:             echo "$(expr "$str" : "DEFHEADING(\(.*\))")"
                     49:             ;;
                     50:             *)
                     51:             test $flag -eq 1 && echo "$str"
                     52:             ;;
                     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))
                     92:     done
                     93: }
                     94: 
                     95: case "$1" in
                     96: "-h") hxtoh ;;
                     97: "-t") hxtotexi ;;
                     98: "-q") hxtoqmp ;;
                     99: *) exit 1 ;;
                    100: esac
                    101: 
                    102: exit 0

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.