pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.103 1999/12/17 22:45:40 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.104 1999/12/18 14:59:38 mast 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:2535:    {    p=id_to_program(extract_type_int(t+1));       comefrom_int_index:    if(p && n)    {    INT32 i;    if(n->token == F_ARROW)    {    /* FIXME: make this stricter */ -  if((i=FIND_LFUN(p,LFUN_ARROW))!=-1 || FIND_LFUN(p,LFUN_ASSIGN_ARROW)!=-1) +  if((i=FIND_LFUN(p,LFUN_ARROW))!=-1)    {    /* FIXME: function_type_string should be replaced with something    * derived from type_string    */    if(i!=-1 && (tmp=check_call(function_type_string, ID_FROM_INT(p, i)->type)))    return tmp;       reference_shared_string(mixed_type_string);    return mixed_type_string;    }    }else{ -  if((i=FIND_LFUN(p,LFUN_INDEX)) != -1 || FIND_LFUN(p,LFUN_ASSIGN_INDEX) != -1) +  if((i=FIND_LFUN(p,LFUN_INDEX)) != -1)    {    /* FIXME: function_type_string should be replaced with something    * derived from type_string    */    if(i!=-1 && (tmp=check_call(function_type_string, ID_FROM_INT(p, i)->type)))    return tmp;       reference_shared_string(mixed_type_string);    return mixed_type_string;    }