pike.git / src / encode.c

version» Context lines:

pike.git/src/encode.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: encode.c,v 1.242 2007/05/02 17:43:32 grubba Exp $ + || $Id: encode.c,v 1.243 2007/05/09 16:02:21 grubba Exp $   */      #include "global.h"   #include "stralloc.h"   #include "pike_macros.h"   #include "object.h"   #include "constants.h"   #include "interpret.h"   #include "svalue.h"   #include "mapping.h"
pike.git/src/encode.c:330:    encode_type(t->car, data);    t = t->cdr;    }    addchar(T_MANY);    /* FALL_THROUGH */    case T_MANY:    encode_type(t->car, data);    t = t->cdr;    goto one_more_type;    +  case T_SCOPE: +  { +  ptrdiff_t val = CAR_TO_INT(t); +  addchar(val & 0xff); +  } +  /* FALL_THOUGH */    case T_MAPPING:    case T_OR:    case T_AND:    encode_type(t->car, data);    t = t->cdr;    goto one_more_type;       case T_TYPE:    case T_PROGRAM:    case T_ARRAY:
pike.git/src/encode.c:2097:       case T_ASSIGN:    tmp = GETC();    if ((tmp < '0') || (tmp > '9')) {    Pike_error("decode_value(): Bad marker in type string (%d).\n", tmp);    }    low_decode_type(data);    push_assign_type(tmp); /* Actually reverse, but they're the same */    break;    +  case T_SCOPE: +  tmp = GETC(); +  low_decode_type(data); +  push_scope_type(tmp); /* Actually reverse, but they're the same */ +  break; +     case T_FUNCTION:    {    int narg = 0;       while (GETC() != T_MANY) {    data->ptr--;    low_decode_type(data);    narg++;    }    low_decode_type(data); /* Many */