Revert rev 1.3 which moved us away from POSIX character classes.

The community feels our base AWK must handle them.
This commit is contained in:
obrien 2001-11-03 01:35:07 +00:00
parent 8e8327cb31
commit 9bd91d26be

View File

@ -20,13 +20,13 @@ BEGIN \
}
# entry header
/^# T[\x21-\x7e]+ (S[\x21-\x7e]+ )*D[\x21-\x7e][\x20-\x7e]*$/ && (state == 1) \
/^# T[[:graph:]]+ (S[[:graph:]]+ )*D[[:graph:]][[:print:]]*$/ && (state == 1) \
{
match($0, " T[\x21-\x7e]+");
match($0, " T[[:graph:]]+");
T = substr($0, RSTART + 2, RLENGTH - 2);
match($0, " S[\x21-\x7e]+");
match($0, " S[[:graph:]]+");
S = (RLENGTH == -1) ? "" : substr($0, RSTART + 2, RLENGTH - 2);
match($0, " D[\x21-\x7e][\x20-\x7e]*$");
match($0, " D[[:graph:]][[:print:]]*$");
D = substr($0, RSTART + 2);
# find a suitable place to store this one...