echo T.latin1: tests of 8-bit input awk=${awk-../a.out} $awk ' { print $0 } ' latin1 >foo1 diff latin1 foo1 || echo 'BAD: T.latin1 1' $awk '{ gsub(/\351/, "\370"); print }' latin1 >foo0 $awk '{ gsub(/�/, "�"); print }' latin1 >foo1 diff foo0 foo1 || echo 'BAD: T.latin1 3' $awk '{ gsub(/[^\300-\370]/, ""); print }' latin1 >foo0 $awk '{ gsub(/[^�-�]/, ""); print } ' latin1 >foo1 diff foo0 foo1 || echo 'BAD: T.latin1 4' echo '/�/' >foo1 $awk -f foo1 foo1 >foo2 diff foo1 foo2 || echo 'BAD: T.latin1 5' echo /[��]/ >foo1 $awk -f foo1 foo1 >foo2 diff foo1 foo2 || echo 'BAD: T.latin1 6' echo 'This is a line. Patterns like /[��]/ do not work yet. Example, run awk /[��]/ over a file containing just �. This is another line.' >foo0 echo 'Patterns like /[��]/ do not work yet. Example, run awk /[��]/ over a file containing just �.' >foo1 $awk '/[��]/' foo0 >foo2 diff foo1 foo2 || echo 'BAD: T.latin1 7'