| STEXI*|ETEXI*|SQMP*|EQMP*) flag=$(($flag^1)) |
| test $flag -eq 1 && printf "%s\n" "$str" |
| if test $flag -eq 1 ; then |
| echo "line $line: syntax error: expected ETEXI, found $str" >&2 |
| if test $flag -ne 1 ; then |
| echo "line $line: syntax error: expected STEXI, found $str" >&2 |
| if test $flag -eq 1 ; then |
| echo "line $line: syntax error: expected ETEXI, found $str" >&2 |
| echo "$(expr "$str" : "DEFHEADING(\(.*\))")" |
| echo "$(expr "$str" : "ARCHHEADING(\(.*\),.*)")" |
| test $flag -eq 1 && echo "$str" |
| if test $flag -eq 1 ; then |
| echo "line $line: syntax error: expected EQMP, found $str" >&2 |
| if test $flag -ne 1 ; then |
| echo "line $line: syntax error: expected SQMP, found $str" >&2 |
| if test $flag -eq 1 ; then |
| echo "line $line: syntax error: expected EQMP, found $str" >&2 |
| test $flag -eq 1 && echo "$str" |