pike.git / src / mapping.c

version» Context lines:

pike.git/src/mapping.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. - || $Id: mapping.c,v 1.157 2002/12/01 00:16:54 mast Exp $ + || $Id: mapping.c,v 1.158 2003/01/09 15:21:26 grubba Exp $   */      #include "global.h" - RCSID("$Id: mapping.c,v 1.157 2002/12/01 00:16:54 mast Exp $"); + RCSID("$Id: mapping.c,v 1.158 2003/01/09 15:21:26 grubba Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"   #include "svalue.h"   #include "array.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "pike_memory.h"   #include "dynamic_buffer.h"   #include "interpret.h"
pike.git/src/mapping.c:1699:    return;    }       a = mapping_indices(m);    SET_ONERROR(err, do_free_array, a);       if(! m->data->size) { /* mapping_indices may remove elements */    my_strcat("([ ])");    }    else { -  int save_t_flag = t_flag; +  int save_t_flag = Pike_interpreter.trace_level;       if (m->data->size == 1) {    my_strcat("([ /* 1 element */\n");    } else {    sprintf(buf, "([ /* %ld elements */\n", (long)m->data->size);    my_strcat(buf);    }    -  t_flag = 0; +  Pike_interpreter.trace_level = 0;    if(SETJMP(catch)) {    free_svalue(&throw_value);    throw_value.type = T_INT;    }    else    sort_array_destructively(a);    UNSETJMP(catch); -  t_flag = save_t_flag; +  Pike_interpreter.trace_level = save_t_flag;       for(e = 0; e < a->size; e++)    {    struct svalue *tmp;    if(e)    my_strcat(",\n");       for(d = 0; d < indent; d++)    my_putchar(' ');       describe_svalue(ITEM(a)+e, indent+2, &doing);    my_putchar(':');       { -  int save_t_flag=t_flag; -  t_flag=0; +  int save_t_flag=Pike_interpreter.trace_level; +  Pike_interpreter.trace_level=0;       tmp=low_mapping_lookup(m, ITEM(a)+e);    -  t_flag=save_t_flag; +  Pike_interpreter.trace_level=save_t_flag;    }    if(tmp)    describe_svalue(tmp, indent+2, &doing);    else    my_strcat("** gone **");    }       my_putchar('\n');    for(e=2; e<indent; e++) my_putchar(' ');    my_strcat("])");