pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.186 2001/02/27 01:20:28 mast Exp $"); + RCSID("$Id: interpret.c,v 1.187 2001/03/03 00:26:23 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1751:    switch (arg->type) {    case T_LVALUE:    fputs ("lvalue", stderr);    break;       case T_INT:    fprintf (stderr, "%ld", (long) arg->u.integer);    break;       case T_TYPE: + #ifdef USE_PIKE_TYPE +  /* FIXME: */ +  fputs("type-value", stderr); + #else /* !USE_PIKE_TYPE */    stupid_describe_type (arg->u.type->str, arg->u.type->len); -  + #endif /* USE_PIKE_TYPE */    break;       case T_STRING: {    int i,j=0;    fputc ('"', stderr);    for(i=0; i < arg->u.string->len && i < 100; i++)    {    switch(j=index_shared_string(arg->u.string,i))    {    case '\n':