pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.229 2000/12/05 21:08:19 per Exp $"); + RCSID("$Id: las.c,v 1.230 2001/01/11 23:32:29 mast Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:2192:    low_print_tree(_CDR(foo),0);    return;       case F_APPLY:    low_print_tree(_CAR(foo),0);    fprintf(stderr, "(");    low_print_tree(_CDR(foo),0);    fprintf(stderr, ")");    return;    +  case F_NORMAL_STMT_LABEL: +  case F_CUSTOM_STMT_LABEL: +  fprintf(stderr, "%s:", _CAR(foo)->u.sval.u.string->str); +  low_print_tree(_CDR(foo),0); +  return; +     default:    if(!car_is_node(foo) && !cdr_is_node(foo))    {    fprintf(stderr, "%s",get_token_name(foo->token));    return;    }    if(foo->token<256)    {    fprintf(stderr, "%c(",foo->token);    }else{