2.11BSD#431 - /usr/src/new/PORT/perl.1.0.10/cmd.h

   1: /* $Header: cmd.h,v 1.0.1.1 88/01/28 10:23:07 root Exp $
   2:  *
   3:  * $Log:	cmd.h,v $
   4:  * Revision 1.0.1.1  88/01/28  10:23:07  root
   5:  * patch8: added eval_root for eval operator.
   6:  *
   7:  * Revision 1.0  87/12/18  13:04:59  root
   8:  * Initial revision
   9:  *
  10:  */
  11: 
  12: #define C_NULL 0
  13: #define C_IF 1
  14: #define C_WHILE 2
  15: #define C_EXPR 3
  16: #define C_BLOCK 4
  17: 
  18: #ifndef DOINIT
  19: extern char *cmdname[];
  20: #else
  21: char *cmdname[] = {
  22:     "NULL",
  23:     "IF",
  24:     "WHILE",
  25:     "EXPR",
  26:     "BLOCK",
  27:     "5",
  28:     "6",
  29:     "7",
  30:     "8",
  31:     "9",
  32:     "10",
  33:     "11",
  34:     "12",
  35:     "13",
  36:     "14",
  37:     "15",
  38:     "16"
  39: };
  40: #endif
  41: 
  42: #define CF_OPTIMIZE 077 /* type of optimization */
  43: #define CF_FIRSTNEG 0100/* conditional is ($register NE 'string') */
  44: #define CF_NESURE 0200  /* if first doesn't match we're sure */
  45: #define CF_EQSURE 0400  /* if first does match we're sure */
  46: #define CF_COND 01000   /* test c_expr as conditional first, if not null. */
  47:             /* Set for everything except do {} while currently */
  48: #define CF_LOOP 02000   /* loop on the c_expr conditional (loop modifiers) */
  49: #define CF_INVERT 04000 /* it's an "unless" or an "until" */
  50: #define CF_ONCE 010000  /* we've already pushed the label on the stack */
  51: #define CF_FLIP 020000  /* on a match do flipflop */
  52: 
  53: #define CFT_FALSE 0 /* c_expr is always false */
  54: #define CFT_TRUE 1  /* c_expr is always true */
  55: #define CFT_REG 2   /* c_expr is a simple register */
  56: #define CFT_ANCHOR 3    /* c_expr is an anchored search /^.../ */
  57: #define CFT_STROP 4 /* c_expr is a string comparison */
  58: #define CFT_SCAN 5  /* c_expr is an unanchored search /.../ */
  59: #define CFT_GETS 6  /* c_expr is $reg = <filehandle> */
  60: #define CFT_EVAL 7  /* c_expr is not optimized, so call eval() */
  61: #define CFT_UNFLIP 8    /* 2nd half of range not optimized */
  62: #define CFT_CHOP 9  /* c_expr is a chop on a register */
  63: 
  64: #ifndef DOINIT
  65: extern char *cmdopt[];
  66: #else
  67: char *cmdopt[] = {
  68:     "FALSE",
  69:     "TRUE",
  70:     "REG",
  71:     "ANCHOR",
  72:     "STROP",
  73:     "SCAN",
  74:     "GETS",
  75:     "EVAL",
  76:     "UNFLIP",
  77:     "CHOP",
  78:     "10"
  79: };
  80: #endif
  81: 
  82: struct acmd {
  83:     STAB    *ac_stab;   /* a symbol table entry */
  84:     ARG     *ac_expr;   /* any associated expression */
  85: };
  86: 
  87: struct ccmd {
  88:     CMD     *cc_true;   /* normal code to do on if and while */
  89:     CMD     *cc_alt;    /* else code or continue code */
  90: };
  91: 
  92: struct cmd {
  93:     CMD     *c_next;    /* the next command at this level */
  94:     ARG     *c_expr;    /* conditional expression */
  95:     CMD     *c_head;    /* head of this command list */
  96:     STR     *c_first;   /* head of string to match as shortcut */
  97:     STAB    *c_stab;    /* a symbol table entry, mostly for fp */
  98:     SPAT    *c_spat;    /* pattern used by optimization */
  99:     char    *c_label;   /* label for this construct */
 100:     union ucmd {
 101:     struct acmd acmd;   /* normal command */
 102:     struct ccmd ccmd;   /* compound command */
 103:     } ucmd;
 104:     short   c_flen;     /* len of c_first, if not null */
 105:     short   c_flags;    /* optimization flags--see above */
 106:     char    c_type;     /* what this command does */
 107: };
 108: 
 109: #define Nullcmd Null(CMD*)
 110: 
 111: EXT CMD *main_root INIT(Nullcmd);
 112: EXT CMD *eval_root INIT(Nullcmd);
 113: 
 114: EXT struct compcmd {
 115:     CMD *comp_true;
 116:     CMD *comp_alt;
 117: };
 118: 
 119: #ifndef DOINIT
 120: extern struct compcmd Nullccmd;
 121: #else
 122: struct compcmd Nullccmd = {Nullcmd, Nullcmd};
 123: #endif
 124: void opt_arg();
 125: void evalstatic();
 126: STR *cmd_exec();

Defined variables

Defined struct's

Defined union's

Defined macros

Usage of this include