pike.git/ src/ builtin_functions.c

2001-03-17

2001-03-17 16:37:43 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 54f8ac3a5345cac2116d7b8897459b7d953051a0 (12 lines) (+10/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

The type type is now a complex type.

Rev: src/builtin_functions.c:1.353
Rev: src/encode.c:1.92
Rev: src/operators.c:1.130
Rev: src/pike_types.c:1.162
Rev: src/svalue.h:1.80

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.352 2001/03/11 22:50:36 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.353 2001/03/17 16:37:41 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
2445:    t=first_arg[0]->type;    if(!t || match_types(t, object_type_string))    { + #ifdef USE_PIKE_TYPE +  /* Skip any name-nodes. */ +  while(t && t->type == PIKE_T_NAME) { +  t = t->cdr; +  } + #endif /* USE_PIKE_TYPE */ +  /* FIXME: Ought to handle or-nodes here. */    if(t && (   #ifdef USE_PIKE_TYPE    t->type
7451:       ADD_EFUN("_refs",f__refs,tFunc(tRef,tInt),OPT_EXTERNAL_DEPEND);    ADD_EFUN("_leak",f__leak,tFunc(tRef,tInt),OPT_EXTERNAL_DEPEND); -  ADD_EFUN("_typeof",f__typeof,tFunc(tMix,tType),0); +  ADD_EFUN("_typeof", f__typeof, tFunc(tSetvar(0, tMix), tType(tVar(0))), 0);       /* class __master    * Used to prototype the master object.