Return to r.h CVS log

Up to [Research Unix] / researchv10no / cmd / ratfor

Annotation of researchv10no/cmd/ratfor/r.h, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include <ctype.h>
                      3: #include <string.h>
                      4: #include "y.tab.h"
                      5: 
                      6: #
                      7: #define        putbak(c)       *ip++ = c
                      8: /*     #define getchr()        (ip>ibuf?*--ip: getc(infile[infptr]))   */
                      9: 
                     10: #define        LET     1
                     11: #define        DIG     2
                     12: #define        COMMENT '#'
                     13: #define        QUOTE   '"'
                     14: 
                     15: extern int     transfer;
                     16: 
                     17: #define        INDENT  3       /* indent delta */
                     18: #define        CONTFLD 6       /* default position of continuation character */
                     19: extern int     contfld;        /* column for continuation char */
                     20: extern int     contchar;
                     21: extern int     dbg;
                     22: extern int     yyval;
                     23: extern int     *yypv;
                     24: extern int     yylval;
                     25: extern int     errorflag;
                     26: extern int     f77;
                     27: 
                     28: extern char    comment[];      /* save input comments here */
                     29: extern int     comptr; /* next free slot in comment */
                     30: extern int     printcom;       /* print comments, etc., if on */
                     31: extern int     indent; /* level of nesting for indenting */
                     32: 
                     33: extern char    ibuf[];
                     34: extern char    *ip;
                     35: 
                     36: extern FILE    *outfil;        /* output file id */
                     37: extern FILE    *infile[];
                     38: extern char    *curfile[];
                     39: extern int     infptr;
                     40: extern int     linect[];
                     41: 
                     42: extern char    fcname[];
                     43: 
                     44: extern int     svargc;
                     45: extern char    **svargv;
                     46: 
                     47: #define EOS 0
                     48: #define        HSHSIZ  101
                     49: struct nlist {
                     50:        char    *name;
                     51:        char    *def;
                     52:        int     ydef;
                     53:        struct  nlist *next;
                     54: };
                     55: 
                     56: struct nlist   *lookup();
                     57: char   *install();
                     58: char   *malloc();
                     59: extern char    *fcnloc;
                     60: extern char    *FCN1loc;
                     61: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.