pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.204 2003/02/24 20:42:53 mast Exp $ + || $Id: pike_types.c,v 1.205 2003/03/29 13:47:40 marcus Exp $   */      #include "global.h" - RCSID("$Id: pike_types.c,v 1.204 2003/02/24 20:42:53 mast Exp $"); + RCSID("$Id: pike_types.c,v 1.205 2003/03/29 13:47:40 marcus Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:1125:    bad_type:    Pike_error("Couldn't parse type. (%s)\n",buf);    }       while(ISSPACE(**s)) ++*s;   }         static void internal_parse_typeB(const char **s)   { -  while(ISSPACE(**((const unsigned char **)s))) ++*s; +  while(ISSPACE(EXTRACT_UCHAR(*s))) ++*s;    switch(**s)    {    case '!':    ++*s;    internal_parse_typeB(s);    push_type(T_NOT);    break;       case '(':    ++*s;    internal_parse_type(s); -  while(ISSPACE(**((const unsigned char **)s))) ++*s; +  while(ISSPACE(EXTRACT_UCHAR(*s))) ++*s;    if(**s != ')') Pike_error("Expecting ')'.\n");    ++*s;    break;       default:       internal_parse_typeA(s);    }   }      static void internal_parse_typeCC(const char **s)   {    internal_parse_typeB(s);    -  while(ISSPACE(**((const unsigned char **)s))) ++*s; +  while(ISSPACE(EXTRACT_UCHAR(*s))) ++*s;       while(**s == '*')    {    ++*s; -  while(ISSPACE(**((const unsigned char **)s))) ++*s; +  while(ISSPACE(EXTRACT_UCHAR(*s))) ++*s;    push_type(T_ARRAY);    }   }      static void internal_parse_typeC(const char **s)   {    internal_parse_typeCC(s);       if(**s == '&')    {