improved for EOF handling
authorceriel <none@none>
Fri, 17 Nov 1989 11:40:48 +0000 (11:40 +0000)
committerceriel <none@none>
Fri, 17 Nov 1989 11:40:48 +0000 (11:40 +0000)
lang/cem/cemcom/make.tokcase

index f121c3e..56d104a 100755 (executable)
@@ -23,6 +23,7 @@ s/.*{\(.*\),.*\(".*"\).*$/    case \1 :\
 
 cat <<'--EOT--'
        default:
+               if (tok <= 0) return "end of file";
                if (tok < 040 || tok >= 0177) {
                        return "bad token";
                }