Branch: Tag:

1998-05-20

1998-05-20 16:42:25 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Now treats \r as whitespace.

Rev: src/lex.c:1.38

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: lex.c,v 1.37 1998/03/03 22:30:22 hubbe Exp $"); + RCSID("$Id: lex.c,v 1.38 1998/05/20 16:42:25 grubba Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"
1181:    if(GOBBLE('#'))    {    SKIPWHITE(); -  READBUF(C!=' ' && C!='\t' && C!='\n'); +  READBUF(C!=' ' && C!='\t' && C!='\n' && C!='\r');       switch(buf[0])    {    case 'l':    if(strcmp("line",buf)) break; -  READBUF(C!=' ' && C!='\t' && C!='\n'); +  READBUF(C!=' ' && C!='\t' && C!='\n' && C!='\r');       case '0': case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':
1301:    }       SKIPWHITE(); -  READBUF(C!=' ' && C!='\t' && C!='\n'); +  READBUF(C!=' ' && C!='\t' && C!='\n' && C!='\r');       switch(buf[0])    {
1309:       case 'l':    if(strcmp("line",buf)) goto badhash; -  READBUF(C!=' ' && C!='\t' && C!='\n'); +  READBUF(C!=' ' && C!='\t' && C!='\n' && C!='\r');       case '0': case '1': case '2': case '3': case '4':    case '5': case '6': case '7': case '8': case '9':
1450:       case ' ':    case '\t': +  case '\r':    continue;       case MY_EOF: