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

   1: /* $Header: perl.h,v 1.0 87/12/18 13:05:38 root Exp $
   2:  *
   3:  * $Log:	perl.h,v $
   4:  * Revision 1.0  87/12/18  13:05:38  root
   5:  * Initial revision
   6:  *
   7:  */
   8: 
   9: #define DEBUGGING
  10: #define STDSTDIO    /* eventually should be in config.h */
  11: 
  12: #define VOIDUSED 1
  13: #include "config.h"
  14: 
  15: #ifndef BCOPY
  16: #   define bcopy(s1,s2,l) memcpy(s2,s1,l);
  17: #   define bzero(s,l) memset(s,0,l);
  18: #endif
  19: 
  20: #include <stdio.h>
  21: #include <ctype.h>
  22: #include <setjmp.h>
  23: #include <sys/types.h>
  24: #include <sys/stat.h>
  25: #include <time.h>
  26: #include <sys/times.h>
  27: 
  28: typedef struct arg ARG;
  29: typedef struct cmd CMD;
  30: typedef struct formcmd FCMD;
  31: typedef struct scanpat SPAT;
  32: typedef struct stab STAB;
  33: typedef struct stio STIO;
  34: typedef struct string STR;
  35: typedef struct atbl ARRAY;
  36: typedef struct htbl HASH;
  37: 
  38: #include "str.h"
  39: #include "form.h"
  40: #include "stab.h"
  41: #include "spat.h"
  42: #include "arg.h"
  43: #include "cmd.h"
  44: #include "array.h"
  45: #include "hash.h"
  46: 
  47: /* A string is TRUE if not "" or "0". */
  48: #define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))
  49: EXT char *Yes INIT("1");
  50: EXT char *No INIT("");
  51: 
  52: #define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
  53: 
  54: #define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
  55: #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
  56: #define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
  57: EXT STR *Str;
  58: 
  59: #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
  60: 
  61: CMD *add_label();
  62: CMD *block_head();
  63: CMD *append_line();
  64: CMD *make_acmd();
  65: CMD *make_ccmd();
  66: CMD *invert();
  67: CMD *addcond();
  68: CMD *addloop();
  69: CMD *wopt();
  70: 
  71: SPAT *stab_to_spat();
  72: 
  73: STAB *stabent();
  74: 
  75: ARG *stab_to_arg();
  76: ARG *op_new();
  77: ARG *make_op();
  78: ARG *make_lval();
  79: ARG *make_match();
  80: ARG *make_split();
  81: ARG *flipflip();
  82: 
  83: STR *arg_to_str();
  84: STR *str_new();
  85: STR *stab_str();
  86: STR *eval();
  87: 
  88: FCMD *load_format();
  89: 
  90: char *scanpat();
  91: char *scansubst();
  92: char *scantrans();
  93: char *scanstr();
  94: char *scanreg();
  95: char *reg_get();
  96: char *str_append_till();
  97: char *str_gets();
  98: 
  99: bool do_match();
 100: bool do_open();
 101: bool do_close();
 102: bool do_print();
 103: 
 104: int do_subst();
 105: 
 106: void str_free();
 107: void freearg();
 108: 
 109: EXT int line INIT(0);
 110: EXT int arybase INIT(0);
 111: 
 112: struct outrec {
 113:     int o_lines;
 114:     char *o_str;
 115:     int o_len;
 116: };
 117: 
 118: EXT struct outrec outrec;
 119: EXT struct outrec toprec;
 120: 
 121: EXT STAB *last_in_stab INIT(Nullstab);
 122: EXT STAB *defstab INIT(Nullstab);
 123: EXT STAB *argvstab INIT(Nullstab);
 124: EXT STAB *envstab INIT(Nullstab);
 125: EXT STAB *sigstab INIT(Nullstab);
 126: EXT STAB *defoutstab INIT(Nullstab);
 127: EXT STAB *curoutstab INIT(Nullstab);
 128: EXT STAB *argvoutstab INIT(Nullstab);
 129: 
 130: EXT STR *freestrroot INIT(Nullstr);
 131: 
 132: EXT FILE *rsfp;
 133: EXT char buf[1024];
 134: EXT char *bufptr INIT(buf);
 135: 
 136: EXT STR *linestr INIT(Nullstr);
 137: 
 138: EXT char record_separator INIT('\n');
 139: EXT char *ofs INIT(Nullch);
 140: EXT char *ors INIT(Nullch);
 141: EXT char *ofmt INIT(Nullch);
 142: EXT char *inplace INIT(Nullch);
 143: 
 144: EXT char tokenbuf[256];
 145: EXT int expectterm INIT(TRUE);
 146: EXT int lex_newlines INIT(FALSE);
 147: 
 148: FILE *popen();
 149: /* char *str_get(); */
 150: STR *interp();
 151: void free_arg();
 152: STIO *stio_new();
 153: 
 154: EXT struct stat statbuf;
 155: EXT struct tms timesbuf;
 156: 
 157: #ifdef DEBUGGING
 158: EXT int debug INIT(0);
 159: EXT int dlevel INIT(0);
 160: EXT char debname[40];
 161: EXT char debdelim[40];
 162: #define YYDEBUG;
 163: extern int yydebug;
 164: #endif
 165: 
 166: EXT STR str_no;
 167: EXT STR str_yes;
 168: 
 169: /* runtime control stuff */
 170: 
 171: EXT struct loop {
 172:     char *loop_label;
 173:     jmp_buf loop_env;
 174: } loop_stack[32];
 175: 
 176: EXT int loop_ptr INIT(-1);
 177: 
 178: EXT jmp_buf top_env;
 179: 
 180: EXT char *goto_targ INIT(Nullch);   /* cmd_exec gets strange when set */
 181: 
 182: double atof();
 183: long time();
 184: struct tm *gmtime(), *localtime();
 185: 
 186: #ifdef CHARSPRINTF
 187:     char *sprintf();
 188: #else
 189:     int sprintf();
 190: #endif
 191: 
 192: #ifdef EUNICE
 193: #define UNLINK(f) while (unlink(f) >= 0)
 194: #else
 195: #define UNLINK unlink
 196: #endif

Defined variables

Defined struct's

Defined typedef's

Defined macros

Usage of this include