pike.git/ src/ program.c

2001-12-16

2001-12-16 22:48:09 by Martin Stjernholm <mast@lysator.liu.se>

• cbe11345db78080572cd0550de33689c06ceb2c0 (25 lines) (+24/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added magic ::_indices and ::_values.

Rev: src/docode.c:1.138
Rev: src/interpret_functions.h:1.99
Rev: src/language.yacc:1.268
Rev: src/las.c:1.278
Rev: src/object.c:1.190
Rev: src/object.h:1.67
Rev: src/program.c:1.394

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.393 2001/12/16 20:31:42 mast Exp $"); + RCSID("$Id: program.c,v 1.394 2001/12/16 22:48:09 mast Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
2406:    {    return mknode(F_MAGIC_SET_INDEX,mknewintnode(e),mknewintnode(0));    } +  +  if(ISCONSTSTR(function_name,"_indices")) +  { +  return mknode(F_MAGIC_INDICES,mknewintnode(e),mknewintnode(0));    }    -  +  if(ISCONSTSTR(function_name,"_values")) +  { +  return mknode(F_MAGIC_VALUES,mknewintnode(e),mknewintnode(0)); +  } +  }    -  +     for(n=0;n<compilation_depth;n++,state=state->previous)    {    struct program *p=state->new_program;
2440:    return mknode(F_MAGIC_SET_INDEX,    mknewintnode(e),mknewintnode(n+1));    } +  +  if(ISCONSTSTR(function_name,"_indices")) +  { +  return mknode(F_MAGIC_INDICES, +  mknewintnode(e),mknewintnode(n+1));    } -  +  +  if(ISCONSTSTR(function_name,"_values")) +  { +  return mknode(F_MAGIC_VALUES, +  mknewintnode(e),mknewintnode(n+1));    } -  +  } +  }       return 0;   }