pike.git / src / lex.c

version» Context lines:

pike.git/src/lex.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: lex.c,v 1.52 1998/04/27 19:17:16 grubba Exp $"); + RCSID("$Id: lex.c,v 1.53 1998/05/12 23:51:26 hubbe Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "constants.h"   #include "hashtable.h"   #include "stuff.h"   #include "pike_memory.h"   #include "interpret.h"
pike.git/src/lex.c:130:   { "global", F_GLOBAL, I_HASARG },   { "index", F_INDEX },   { "->x", F_ARROW, I_HASARG },   { "clear string subtype", F_CLEAR_STRING_SUBTYPE },   { "arrow string", F_ARROW_STRING, I_HASARG },   { "indirect", F_INDIRECT },      { "branch", F_BRANCH, I_ISJUMP },   { "branch non zero", F_BRANCH_WHEN_NON_ZERO, I_ISJUMP },   { "branch if local", F_BRANCH_IF_LOCAL, I_HASARG }, + { "branch if !local", F_BRANCH_IF_NOT_LOCAL, I_HASARG }, + { "branch if ! local->x", F_BRANCH_IF_NOT_LOCAL_ARROW, I_HASARG },   { "branch when zero", F_BRANCH_WHEN_ZERO, I_ISJUMP },   { "branch if <", F_BRANCH_WHEN_LT, I_ISJUMP },   { "branch if >", F_BRANCH_WHEN_GT, I_ISJUMP },   { "branch if <=", F_BRANCH_WHEN_LE, I_ISJUMP },   { "branch if >=", F_BRANCH_WHEN_GE, I_ISJUMP },   { "branch if ==", F_BRANCH_WHEN_EQ, I_ISJUMP },   { "branch if !=", F_BRANCH_WHEN_NE, I_ISJUMP },   { "branch & pop if zero", F_BRANCH_AND_POP_WHEN_ZERO, I_ISJUMP },   { "branch & pop if !zero", F_BRANCH_AND_POP_WHEN_NON_ZERO, I_ISJUMP },   { "++Loop", F_INC_LOOP, I_ISJUMP },
pike.git/src/lex.c:227:   { "mark & string", F_MARK_AND_STRING, I_HASARG },   { "mark & call", F_MARK_APPLY, I_HASARG },   { "mark, call & pop", F_MARK_APPLY_POP, I_HASARG },   { "apply and return", F_APPLY_AND_RETURN, I_HASARG },   { "apply, assign local and pop", F_APPLY_ASSIGN_LOCAL_AND_POP, I_HASARG },   { "apply & assign local", F_APPLY_ASSIGN_LOCAL, I_HASARG },   { "call lfun & return", F_CALL_LFUN_AND_RETURN, I_HASARG },   { "call function", F_CALL_FUNCTION, 0 },   { "call function & return", F_CALL_FUNCTION_AND_RETURN, 0 },   { "+= and pop", F_ADD_TO_AND_POP, 0 }, + { "local=local;", F_LOCAL_2_LOCAL, I_HASARG }, + { "local=global;", F_GLOBAL_2_LOCAL, I_HASARG }, + { "global=local;", F_LOCAL_2_GLOBAL, I_HASARG }, + { "local->x", F_LOCAL_ARROW, I_HASARG }, + { "global[local]", F_GLOBAL_LOCAL_INDEX, I_HASARG },   };      struct instr instrs[F_MAX_INSTR - F_OFFSET];      struct reserved   {    struct hash_entry link;    int token;   };