pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.261 2002/05/31 22:41:24 nilsson Exp $"); + RCSID("$Id: interpret.c,v 1.262 2002/06/25 14:26:40 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:1891:    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':