Branch: Tag:

1996-09-24

1996-09-24 23:46:53 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

isspace -> ISSPACE, subtype=-1 -> subtype=USHRT_MAX

Rev: src/array.c:1.2
Rev: src/builtin_functions.c:1.3
Rev: src/configure.in:1.4
Rev: src/constants.c:1.2
Rev: src/docode.c:1.2
Rev: src/interpret.c:1.3
Rev: src/las.c:1.3
Rev: src/lex.c:1.3
Rev: src/machine.h.in:1.3
Rev: src/pike_types.c:1.2
Rev: src/port.c:1.3
Rev: src/port.h:1.5
Rev: src/signal_handler.c:1.3
Rev: src/svalue.c:1.2
Rev: src/svalue.h:1.3
Rev: src/types.h:1.3

203:    char buf[80];    unsigned int len;    -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;       len=0;    for(len=0;isidchar(s[0][len]);len++)
224:    else if(!strcmp(buf,"unknown")) push_type(T_UNKNOWN);    else if(!strcmp(buf,"function"))    { -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    if(**s == '(')    {    ++*s; -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    type_stack_mark();    while(1)    {
247:    if(**s==',')    {    ++*s; -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    }    else if(s[0][0]=='.' && s[0][1]=='.' && s[0][2]=='.')    {
255:    push_type(T_MANY);    type_stack_reverse();    *s+=3; -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    if(**s != ':') error("Missing ':' after ... in function type.\n");    break;    }
278:    }    else if(!strcmp(buf,"mapping"))    { -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    if(**s == '(')    {    type_stack_mark();
302:    }    else if(!strcmp(buf,"array"))    { -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    if(**s == '(')    {    ++*s;
316:    }    else if(!strcmp(buf,"multiset"))    { -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    if(**s == '(')    {    ++*s;
331:    else    error("Couldn't parse type. (%s)\n",buf);    -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;   }         static void internal_parse_typeB(char **s)   { -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    switch(**s)    {    case '!':
349:    case '(':    ++*s;    internal_parse_typeB(s); -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    if(**s != ')') error("Expecting ')'.\n");    break;   
363:   {    internal_parse_typeB(s);    -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;       while(**s == '*')    {    ++*s; -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;    push_type(T_ARRAY);    }   }
381:    internal_parse_typeCC(s);    type_stack_reverse();    -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;       if(**s == '&')    {
400:   {    internal_parse_typeC(s);    -  while(isspace(**s)) ++*s; +  while(ISSPACE(**s)) ++*s;       while(**s == '|')    {
950:    switch(s->type)    {    case T_FUNCTION: -  if(s->subtype == -1) +  if(s->subtype == FUNCTION_BUILTIN)    {    ret=s->u.efun->type;    }else{