ING_DB
This commit is contained in:
Oliver Lehmann
parent
fcc2546ac7
commit
eefa54f77f
|
|
@ -0,0 +1,94 @@
|
||||||
|
/* CONSTANTS.H -- manifest constants, operand and operator codes */
|
||||||
|
/* */
|
||||||
|
/* Defines: */
|
||||||
|
/* op_codes for operands */
|
||||||
|
/* Opflag's domain set */
|
||||||
|
/* Type_spec's domain set */
|
||||||
|
|
||||||
|
/* Manifest constants used throughout EQL */
|
||||||
|
|
||||||
|
# define CONTINUE 1 /* "loop" flag for yylex */
|
||||||
|
# ifdef MAXNAME
|
||||||
|
# undef MAXNAME
|
||||||
|
# endif
|
||||||
|
# define MAXNAME 13 /* maximum length for EQL */
|
||||||
|
/* identifiers (or keywords) */
|
||||||
|
# define MAXSTRING 255 /* maximum length for EQL strings */
|
||||||
|
# define FILLCNT 110 /* length to fill lines */
|
||||||
|
/* when in Fillmode */
|
||||||
|
|
||||||
|
|
||||||
|
/* debugging info conditional compilation flag */
|
||||||
|
# define xDEBUG /* on for "-c" and "-v" flags */
|
||||||
|
|
||||||
|
|
||||||
|
/* Character types [cmap.c] */
|
||||||
|
|
||||||
|
# define EOF_TOK 0 /* end of parse input too */
|
||||||
|
# define ALPHA 1 /* alphabetic or '_' */
|
||||||
|
# define NUMBR 2 /* numeric */
|
||||||
|
# define OPATR 3 /* other non control characters */
|
||||||
|
# define PUNCT 4 /* white space */
|
||||||
|
# define CNTRL 5 /* control-characters */
|
||||||
|
|
||||||
|
|
||||||
|
/* Modes used in parser actions to distinguish contexts in which */
|
||||||
|
/* the same syntax applies. Opflag is set to these modes. */
|
||||||
|
/* */
|
||||||
|
/* (There are some modes that are never referenced, but are useful */
|
||||||
|
/* for extension). */
|
||||||
|
|
||||||
|
/* QL statements */
|
||||||
|
|
||||||
|
# define mdAPPEND 1
|
||||||
|
# define mdCOPY 2
|
||||||
|
# define mdCREATE 3
|
||||||
|
# define mdDEFINE 4
|
||||||
|
# define mdDELETE 5
|
||||||
|
# define mdDESTROY 6
|
||||||
|
# define mdHELP 7
|
||||||
|
# define mdINDEX 8
|
||||||
|
# define mdINTEGRITY 9
|
||||||
|
# define mdMODIFY 10
|
||||||
|
# define mdPRINT 11
|
||||||
|
# define mdRANGE 12
|
||||||
|
# define mdREPLACE 13
|
||||||
|
# define mdRETRIEVE 14
|
||||||
|
# define mdSAVE 15
|
||||||
|
# define mdVIEW 16
|
||||||
|
# define mdPROT 17
|
||||||
|
|
||||||
|
/* statements particular to EQL */
|
||||||
|
|
||||||
|
# define mdDECL 16 /* C - declaration */
|
||||||
|
# define mdCTLELM 17 /* left hand side of target list */
|
||||||
|
/* element in "retrieve" to C-vars */
|
||||||
|
# define mdEXIT 18 /* ## exit */
|
||||||
|
# define mdDBS 19 /* ## dbs */
|
||||||
|
# define mdTUPRET 20 /* "retrieve" w/o an "into" */
|
||||||
|
# define mdFILENAME 21 /* used in "copy" statement */
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* define typTYPE xx */ /* c types "Type_spec" */
|
||||||
|
# define opINT 1
|
||||||
|
# ifndef NO_F4
|
||||||
|
# define opFLT 2
|
||||||
|
# endif
|
||||||
|
# define opSTRING 3
|
||||||
|
# define opDOUBLE 4
|
||||||
|
# define opCHAR 5
|
||||||
|
# define opLONG 6
|
||||||
|
# define opIDSTRING 7
|
||||||
|
# define opSTRUCT 8
|
||||||
|
|
||||||
|
|
||||||
|
/* define typALLOC xx */ /* c var allocation types */
|
||||||
|
# define opAUTO 0
|
||||||
|
# define opSTATIC 1
|
||||||
|
# define opEXTERN 2
|
||||||
|
# define opREGISTER 3
|
||||||
|
|
@ -0,0 +1,165 @@
|
||||||
|
/* GLOBALS.H -- EQL declarations */
|
||||||
|
/* */
|
||||||
|
/* Defines: */
|
||||||
|
/* Structures and variables */
|
||||||
|
/* used in EQL. */
|
||||||
|
|
||||||
|
/* Structure declarations */
|
||||||
|
|
||||||
|
/* parser keyword and operator table node */
|
||||||
|
struct optab
|
||||||
|
{
|
||||||
|
char *op_term; /* pointer to terminal */
|
||||||
|
int op_token; /* lexical token */
|
||||||
|
int op_code; /* code to distinguish different op_terms */
|
||||||
|
/* with the same .op_token */
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
/* C variable tree node */
|
||||||
|
struct cvar
|
||||||
|
{
|
||||||
|
char *c_id; /* identifier */
|
||||||
|
char c_type; /* type */
|
||||||
|
char c_indir; /* indirection level */
|
||||||
|
/* (- 1 for strings) */
|
||||||
|
struct cvar *c_left; /* < sub-tree */
|
||||||
|
struct cvar *c_right; /* > sub-tree */
|
||||||
|
};
|
||||||
|
|
||||||
|
/* Display structures (linked list of strings) */
|
||||||
|
struct disp_node
|
||||||
|
{
|
||||||
|
char *d_elm; /* display element */
|
||||||
|
struct disp_node *d_next; /* next node */
|
||||||
|
int d_line; /* for Symsp nodes, line */
|
||||||
|
/* where lexeme was seen */
|
||||||
|
};
|
||||||
|
|
||||||
|
struct display
|
||||||
|
{
|
||||||
|
struct disp_node *disp_first; /* first node in display */
|
||||||
|
struct disp_node *disp_last; /* last node in display */
|
||||||
|
};
|
||||||
|
|
||||||
|
/* Retrieval list */
|
||||||
|
struct ret_var
|
||||||
|
{
|
||||||
|
char *r_elm; /* string invoking variable */
|
||||||
|
/* e.g. "*intpa [2]" */
|
||||||
|
struct ret_var *r_next; /* next variable used in "tupret" */
|
||||||
|
char r_type; /* type of variable */
|
||||||
|
};
|
||||||
|
|
||||||
|
struct ret_list
|
||||||
|
{
|
||||||
|
struct ret_var *ret_first; /* first node in ret_var chain */
|
||||||
|
struct ret_var *ret_last; /* last node in chain */
|
||||||
|
};
|
||||||
|
|
||||||
|
/* "# include" file processing stack (list) */
|
||||||
|
struct inc_file
|
||||||
|
{
|
||||||
|
int inc_yyline; /* old file's yyline */
|
||||||
|
int inc_lineout; /* " " Lineout */
|
||||||
|
char *inc_fid; /* name */
|
||||||
|
FILE *inc_infile; /* In_file */
|
||||||
|
FILE *inc_outfile; /* Out_file */
|
||||||
|
struct inc_file *inc_next;
|
||||||
|
# ifdef SETBUF
|
||||||
|
char *inc_ibuf; /* Ibuf */
|
||||||
|
# endif
|
||||||
|
};
|
||||||
|
|
||||||
|
/* Structure for yacc generated terminal codes */
|
||||||
|
/* This avoids having to include functions in */
|
||||||
|
/* [grammar.y] for the function to know the */
|
||||||
|
/* parser generated token numbers. */
|
||||||
|
struct special
|
||||||
|
{
|
||||||
|
int sp_name; /* NAME */
|
||||||
|
int sp_sconst; /* SCONST */
|
||||||
|
int sp_i2const; /* I2CONST */
|
||||||
|
int sp_i4const; /* I4CONST */
|
||||||
|
int sp_f8const; /* F8CONST */
|
||||||
|
int sp_quote; /* QUOTE */
|
||||||
|
int sp_bgncmnt; /* BGNCMNT */
|
||||||
|
int sp_endcmnt; /* ENDCMNT */
|
||||||
|
int sp_c_code; /* C_CODE */
|
||||||
|
int sp_struct_var;
|
||||||
|
};
|
||||||
|
|
||||||
|
/* Global definitions */
|
||||||
|
extern int Opcode; /* op code to distinguis tokens */
|
||||||
|
extern int yychar; /* yacc input token */
|
||||||
|
extern int yyline; /* yacc external line counter */
|
||||||
|
extern char *yylval; /* yacc external stack variable */
|
||||||
|
extern int yydebug; /* set by "-y" command line arg, */
|
||||||
|
/* has yacc parser give details */
|
||||||
|
/* of parse */
|
||||||
|
extern int Newline; /* less than one token has been */
|
||||||
|
/* read from the input line, and */
|
||||||
|
/* yylex isn't sure yet whether it */
|
||||||
|
/* is C_CODE or not */
|
||||||
|
extern int Lineout; /* output line count */
|
||||||
|
extern int In_quote; /* set if inside an IIwrite("... */
|
||||||
|
extern char *Input_file_name; /* input file name */
|
||||||
|
extern int C_code_flag; /* set to indicate C-code in parser */
|
||||||
|
extern int Pre_proc_flag; /* set to indicate a */
|
||||||
|
/* pre-processor line */
|
||||||
|
extern int Block_level; /* > 0 local, 0 global */
|
||||||
|
extern int Indir_level; /* holds indirection level */
|
||||||
|
/* of a reference to a C-var */
|
||||||
|
extern int In_string; /* set if output is in a string */
|
||||||
|
extern int Fillmode; /* set if output line being filled */
|
||||||
|
extern short Fillcnt; /* count to fill a line to */
|
||||||
|
extern int Charcnt; /* # chars written onto output line */
|
||||||
|
extern int Rtdb; /* set by "-d" command line arg, */
|
||||||
|
/* supplies EQL runtime support */
|
||||||
|
/* with info to report file name */
|
||||||
|
/* and line number in case of an */
|
||||||
|
/* error */
|
||||||
|
extern int Kwrdnum; /* # of entries in Kwrdtab tokens.y */
|
||||||
|
extern char Line_buf[]; /* buffer for input line */
|
||||||
|
extern char *Line_pos; /* position in input line */
|
||||||
|
|
||||||
|
extern struct optab Kwrdtab[]; /* table of key words [tokens.y] */
|
||||||
|
extern struct optab Optab[]; /* table of operators [tokens.y] */
|
||||||
|
extern struct special Tokens; /* holds yacc generated lex codes */
|
||||||
|
/* [tokens.y] */
|
||||||
|
extern struct cvar *C_globals; /* Global C-variable tree */
|
||||||
|
extern struct cvar *C_locals; /* Local C-variable tree */
|
||||||
|
extern struct cvar *F_globals; /* Global structure fields */
|
||||||
|
extern struct cvar *F_locals; /* Local structure fields */
|
||||||
|
extern struct display *Cv_display; /* display into which "cvarx"'s */
|
||||||
|
/* get put */
|
||||||
|
extern struct inc_file *Inc_file; /* file stack pushed by #includes */
|
||||||
|
|
||||||
|
/* I/O manipulation data structures */
|
||||||
|
extern FILE *In_file; /* input file */
|
||||||
|
extern FILE *Out_file; /* output file */
|
||||||
|
# ifdef SETBUF
|
||||||
|
extern char *Ibuf; /* input buffer */
|
||||||
|
extern char Out_buf[]; /* buffer for Out_file */
|
||||||
|
# endif
|
||||||
|
|
||||||
|
/* character type mapping */
|
||||||
|
# define ASCII_MASK 0177
|
||||||
|
# define BYTE_MASK 0377
|
||||||
|
extern char Cmap[];
|
||||||
|
# ifdef EBCDIC
|
||||||
|
# ifdef ESER_PSU
|
||||||
|
extern char _etoa_[];
|
||||||
|
# define ETOA(c) _etoa_[(c) & BYTE_MASK]
|
||||||
|
# endif
|
||||||
|
# define CMAP(c) Cmap[(ETOA(c)) & ASCII_MASK]
|
||||||
|
# else
|
||||||
|
# define CMAP(c) Cmap[(c) & ASCII_MASK]
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# ifdef xDEBUG
|
||||||
|
extern char Lex_debug; /* debugging info for lexemes in */
|
||||||
|
/* yylex() [yylex.c] */
|
||||||
|
extern char Chardebug; /* print debugging info for routine */
|
||||||
|
/* in getch.c */
|
||||||
|
# endif
|
||||||
|
|
@ -0,0 +1,312 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/bs.h"
|
||||||
|
# include "constants.h"
|
||||||
|
# include "globals.h"
|
||||||
|
# include "cmap.c"
|
||||||
|
|
||||||
|
# ifdef P8000
|
||||||
|
ret_buf AAjmp_buf;
|
||||||
|
# else
|
||||||
|
jmp_buf AAjmp_buf;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
int Opcode; /* op code to distinguis tokens */
|
||||||
|
int Newline; /* less than one token has been */
|
||||||
|
int Lineout; /* output line count */
|
||||||
|
int In_quote; /* set if inside an IIwrite("... */
|
||||||
|
char *Input_file_name; /* input file name */
|
||||||
|
int C_code_flag; /* set to indicate C-code in parser */
|
||||||
|
int Pre_proc_flag; /* set to indicate a */
|
||||||
|
/* pre-processor line */
|
||||||
|
int Block_level; /* > 0 local, 0 global */
|
||||||
|
int Indir_level; /* holds indirection level */
|
||||||
|
/* of a reference to a C-var */
|
||||||
|
int In_string; /* set if output is in a string */
|
||||||
|
int Fillmode; /* set if output line being filled */
|
||||||
|
int Charcnt; /* # chars written onto output line */
|
||||||
|
int Rtdb; /* set by "-d" command line arg, */
|
||||||
|
/* supplies EQL runtime support */
|
||||||
|
/* with info to report file name */
|
||||||
|
/* and line number in case of an */
|
||||||
|
/* error */
|
||||||
|
FILE *In_file; /* input file */
|
||||||
|
FILE *Out_file; /* output file */
|
||||||
|
# ifdef SETBUF
|
||||||
|
char *Ibuf; /* input buffer */
|
||||||
|
char Out_buf[BUFSIZ]; /* buffer for Out_file */
|
||||||
|
# endif
|
||||||
|
struct cvar *C_globals; /* Global C-variable tree */
|
||||||
|
struct cvar *C_locals; /* Local C-variable tree */
|
||||||
|
struct cvar *F_globals; /* Global structure fields */
|
||||||
|
struct cvar *F_locals; /* Local structure fields */
|
||||||
|
|
||||||
|
# ifdef xDEBUG
|
||||||
|
char Lex_debug; /* debugging info for lexemes in */
|
||||||
|
/* yylex() [yylex.c] */
|
||||||
|
char Chardebug; /* print debugging info for routine */
|
||||||
|
/* in getch.c */
|
||||||
|
# endif
|
||||||
|
|
||||||
|
static int Arg_error; /* set in argproc() [main.c] on */
|
||||||
|
/* error in prcessing command line */
|
||||||
|
/* arguments. */
|
||||||
|
|
||||||
|
/*
|
||||||
|
** MAIN.C -- Start up routines
|
||||||
|
**
|
||||||
|
** Usage:
|
||||||
|
** eql {-d | -v | -c | -y | -f | -f<integer> | <name>.q}
|
||||||
|
**
|
||||||
|
** Files:
|
||||||
|
** standard output -- for diagnostics
|
||||||
|
** <name>.q -- read
|
||||||
|
** <name>.c -- created and written
|
||||||
|
** any file appearing in a "#include" with a name
|
||||||
|
** <name>.q.h -- read
|
||||||
|
** <name>.c.h -- created and written
|
||||||
|
**
|
||||||
|
** Flags:
|
||||||
|
** possible arguments are:
|
||||||
|
** -d -- enables run-time errors to have the file name
|
||||||
|
** and line number where they occurred reported
|
||||||
|
** Defaults to off.
|
||||||
|
** -f -- specify the number of characters to fill
|
||||||
|
** an output line on QL commands
|
||||||
|
** as being very high (to get C code on the
|
||||||
|
** right line invariably).
|
||||||
|
** -f<integer> -- fill output lines to integer chars
|
||||||
|
** (0 is like -f alone)
|
||||||
|
** Defaults to FILLCNT.
|
||||||
|
** -y -- have the parser print debugging info
|
||||||
|
** Defaults to off.
|
||||||
|
** -v -- (verbose) have the lexical analizer
|
||||||
|
** print the kind of token it sees.
|
||||||
|
** (only available if xDEBUG is defined)
|
||||||
|
** Defaults to off.
|
||||||
|
** -c -- have every character read or backed up
|
||||||
|
** echoed (only if xDEBUG is defined)
|
||||||
|
** Defaults to off.
|
||||||
|
** -r -- reset all previous flags to default
|
||||||
|
** <name>.q -- name of a file to be EQL'ed
|
||||||
|
**
|
||||||
|
** Defines:
|
||||||
|
** main()
|
||||||
|
** argproc()
|
||||||
|
** eql()
|
||||||
|
*/
|
||||||
|
|
||||||
|
char *AApath;
|
||||||
|
|
||||||
|
/*
|
||||||
|
** MAIN -- invokes the pre-compiler on all the argument files
|
||||||
|
**
|
||||||
|
** Parameters:
|
||||||
|
** argc
|
||||||
|
** argv
|
||||||
|
**
|
||||||
|
*/
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char **argv;
|
||||||
|
{
|
||||||
|
extern char **argproc();
|
||||||
|
|
||||||
|
argv[argc] = 0;
|
||||||
|
|
||||||
|
for (argv++; *argv; )
|
||||||
|
{
|
||||||
|
argv = argproc(argv);
|
||||||
|
if (!Arg_error)
|
||||||
|
{
|
||||||
|
printf("%s :\n", Input_file_name);
|
||||||
|
eql(Input_file_name);
|
||||||
|
sync();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fflush(stdout);
|
||||||
|
exit(0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** ARGPROC -- process arguments on the command line
|
||||||
|
** Arguments have effect on all the files following them
|
||||||
|
** until a "-r" or an argument cancelling the first
|
||||||
|
**
|
||||||
|
** Also performs global initializations.
|
||||||
|
**
|
||||||
|
** Parameters:
|
||||||
|
** argv -- a 0 terminated string vector with the
|
||||||
|
** command lines components.
|
||||||
|
**
|
||||||
|
** Returns:
|
||||||
|
** a new argv with all the leading arguments taken out
|
||||||
|
**
|
||||||
|
** Side Effects:
|
||||||
|
** sets certain variables for certain flags
|
||||||
|
** -d -- Rtdb
|
||||||
|
** -c -- Chardebug
|
||||||
|
** -v -- Lex_debug
|
||||||
|
** -y -- yydebug
|
||||||
|
** -f -- Fillcnt
|
||||||
|
** -r -- resets all variables to default values
|
||||||
|
** Sets Arg_error on an argument error that should abort
|
||||||
|
** the pre-processing of the file read.
|
||||||
|
*/
|
||||||
|
char **argproc(argv)
|
||||||
|
register char **argv;
|
||||||
|
{
|
||||||
|
/* initializations for a new file */
|
||||||
|
C_code_flag = Pre_proc_flag = 0;
|
||||||
|
yyline = Newline = Lineout = 1;
|
||||||
|
Block_level = Indir_level = In_string = Fillmode = 0;
|
||||||
|
Charcnt = In_quote = 0;
|
||||||
|
Arg_error = 0;
|
||||||
|
|
||||||
|
/* free C variable trees, and symbol space */
|
||||||
|
freecvar(&C_locals);
|
||||||
|
freecvar(&F_locals);
|
||||||
|
freecvar(&C_globals);
|
||||||
|
freecvar(&F_globals);
|
||||||
|
|
||||||
|
symspfree();
|
||||||
|
|
||||||
|
for ( ; *argv && **argv == '-'; argv++)
|
||||||
|
{
|
||||||
|
switch (*++*argv)
|
||||||
|
{
|
||||||
|
# ifdef xDEBUG
|
||||||
|
case 'V':
|
||||||
|
case 'v':
|
||||||
|
Lex_debug = 'v';
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'C':
|
||||||
|
case 'c':
|
||||||
|
Chardebug = 'c';
|
||||||
|
break;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
case 'Y':
|
||||||
|
case 'y':
|
||||||
|
yydebug = 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'D':
|
||||||
|
case 'd':
|
||||||
|
Rtdb = 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'F':
|
||||||
|
case 'f': /* line fill */
|
||||||
|
if (AA_atoi(++*argv, &Fillcnt))
|
||||||
|
printf("bad fill count \"%s\"\n",
|
||||||
|
*argv);
|
||||||
|
if (!Fillcnt)
|
||||||
|
/* make SURE that C_CODE is put
|
||||||
|
* on line that it was typed in on
|
||||||
|
*/
|
||||||
|
Fillcnt = 30000;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'R':
|
||||||
|
case 'r': /* reset all flags to
|
||||||
|
* their default values.
|
||||||
|
*/
|
||||||
|
yydebug = Rtdb = 0;
|
||||||
|
Fillcnt = FILLCNT;
|
||||||
|
# ifdef xDEBUG
|
||||||
|
Lex_debug = Chardebug = 0;
|
||||||
|
# endif
|
||||||
|
break;
|
||||||
|
|
||||||
|
default :
|
||||||
|
printf("invalid option : '-%c'\n", **argv);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (*argv)
|
||||||
|
Input_file_name = *argv++;
|
||||||
|
else
|
||||||
|
{
|
||||||
|
printf("missing file name after arguments\n");
|
||||||
|
Arg_error++;
|
||||||
|
}
|
||||||
|
return (argv);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** EQL -- invokes the precompiler for a non-included file
|
||||||
|
**
|
||||||
|
** Parameters:
|
||||||
|
** filename -- the name of the file to pre-compile
|
||||||
|
**
|
||||||
|
** Side Effects:
|
||||||
|
** performs the preprocessing on <filename>
|
||||||
|
*/
|
||||||
|
eql(filename)
|
||||||
|
register char *filename;
|
||||||
|
{
|
||||||
|
register int l;
|
||||||
|
# ifdef SETBUF
|
||||||
|
char in_buf[BUFSIZ];
|
||||||
|
# endif
|
||||||
|
char o_file[100];
|
||||||
|
|
||||||
|
l = AAlength(filename);
|
||||||
|
if (l > sizeof o_file - 1)
|
||||||
|
{
|
||||||
|
printf("filename \"%s\" too long\n",
|
||||||
|
filename);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (!AAsequal(".q", &filename[l - 2]))
|
||||||
|
{
|
||||||
|
printf("invalid input file name \"%s\"\n",
|
||||||
|
filename);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
AAbmove(".c", AAbmove(filename, o_file, l - 2), 3);
|
||||||
|
Input_file_name = filename;
|
||||||
|
In_file = Out_file = (FILE *) 0;
|
||||||
|
# ifdef SETBUF
|
||||||
|
Ibuf = in_buf;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
|
||||||
|
if (!(In_file = fopen(filename, "r")))
|
||||||
|
printf("can't read file \"%s\"\n", filename);
|
||||||
|
else if (!(Out_file = fopen(o_file, "w")))
|
||||||
|
printf("can't write file \"%s\"\n", o_file);
|
||||||
|
else
|
||||||
|
{
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(In_file, in_buf);
|
||||||
|
setbuf(Out_file, Out_buf);
|
||||||
|
# endif
|
||||||
|
setexit();
|
||||||
|
yyparse();
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if a reset(3) is done while processing
|
||||||
|
* an included file, then this closes all
|
||||||
|
* files skipped.
|
||||||
|
*/
|
||||||
|
while (restoref())
|
||||||
|
continue;
|
||||||
|
|
||||||
|
if (Out_file)
|
||||||
|
fclose(Out_file);
|
||||||
|
if (In_file)
|
||||||
|
fclose(In_file);
|
||||||
|
In_file = Out_file = (FILE *) 0;
|
||||||
|
Input_file_name = 0;
|
||||||
|
if (Block_level)
|
||||||
|
printf("unclosed block\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
AAunlall()
|
||||||
|
{
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue