109 lines
3.2 KiB
C
109 lines
3.2 KiB
C
|
/************************************************************************/
|
||
|
|
/* */
|
||
|
|
/* RCPP - Resource Compiler Pre-Processor for NT system */
|
||
|
|
/* */
|
||
|
|
/* GLOBALS.C - Global variable definitions */
|
||
|
|
/* */
|
||
|
|
/* 27-Nov-90 w-BrianM Update for NT from PM SDK RCPP */
|
||
|
|
/* */
|
||
|
|
/************************************************************************/
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include "rcpptype.h"
|
||
|
|
#include "rcppext.h"
|
||
|
|
#include "grammar.h"
|
||
|
|
|
||
|
|
/* shared strings */
|
||
|
|
char Union_str[] = "union";
|
||
|
|
char Struct_str[] = "struct";
|
||
|
|
char Cdecl_str[] = "cdecl";
|
||
|
|
char Cdecl1_str[] = "cdecl ";
|
||
|
|
char Fortran_str[] = "fortran";
|
||
|
|
char Fortran1_str[] = "fortran ";
|
||
|
|
char Pascal_str[] = "pascal";
|
||
|
|
char Pascal1_str[] = "pascal ";
|
||
|
|
char PPelse_str[] = "#else";
|
||
|
|
char PPendif_str[] = "#endif";
|
||
|
|
char PPifel_str[] = "#if/#elif";
|
||
|
|
char Syntax_str[] = "syntax error";
|
||
|
|
|
||
|
|
|
||
|
|
FILE *ErrFile; /* file containing error messages */
|
||
|
|
FILE *Errfl; /* files errors written to */
|
||
|
|
FILE *OUTPUTFILE; /* File for output of program */
|
||
|
|
|
||
|
|
char *A_string; /* model encoding */
|
||
|
|
char *Debug; /* debugging switches */
|
||
|
|
char *Input_file; /* the input .rc file */
|
||
|
|
char *Output_file; /* the output .res file */
|
||
|
|
char *Q_string; /* hardware characteristics */
|
||
|
|
char *Version;
|
||
|
|
char *gpszNLSoptions;
|
||
|
|
int In_alloc_text;
|
||
|
|
int Bad_pragma;
|
||
|
|
int Cross_compile; /* is this a cross compile ? */
|
||
|
|
int Ehxtension; /* near/far keywords, but no huge */
|
||
|
|
int HugeModel; /* Huge Model program ?? */
|
||
|
|
int Inteltypes; /* using strict Intel types or not */
|
||
|
|
int Nerrors;
|
||
|
|
int NoPasFor; /* no fortran/pascal keywords ? */
|
||
|
|
int Out_funcdef; /* output function definitions */
|
||
|
|
int Plm; /* non-C calling sequence */
|
||
|
|
int Prep; /* preprocess */
|
||
|
|
int Srclist; /* put msgs to il file if source listing */
|
||
|
|
|
||
|
|
int Cmd_intrinsic; /* implicit intrinsics */
|
||
|
|
int Cmd_loop_opt;
|
||
|
|
int Cmd_pointer_check;
|
||
|
|
|
||
|
|
int Symbolic_debug; /* Whether to put out dbil info or not */
|
||
|
|
int Cflag; /* leave in comments */
|
||
|
|
int Eflag; /* insert #line */
|
||
|
|
int Jflag; /* no Kanji */
|
||
|
|
int Pflag; /* no #line */
|
||
|
|
int Rflag; /* mkhives - no exponent missing error */
|
||
|
|
int ZcFlag; /* case insensitive compare */
|
||
|
|
int In_define;
|
||
|
|
int InInclude;
|
||
|
|
int InIf;
|
||
|
|
int Macro_depth;
|
||
|
|
int Linenumber;
|
||
|
|
|
||
|
|
UCHAR Reuse_1[BIG_BUFFER];
|
||
|
|
UCHAR Filebuff[MED_BUFFER+1];
|
||
|
|
UCHAR Macro_buffer[BIG_BUFFER * 4];
|
||
|
|
|
||
|
|
token_t Basic_token = L_NOTOKEN;
|
||
|
|
LIST Defs = {MAXLIST}; /* -D list */
|
||
|
|
LIST Includes = {MAXLIST, {0}}; /* for include file names */
|
||
|
|
char *Path_chars = "/"; /* path delimiter chars */
|
||
|
|
char *ErrFilName = "c1.err"; /* error message file name */
|
||
|
|
char *Basename = ""; /* base IL file name */
|
||
|
|
char *Filename = Filebuff;
|
||
|
|
int Char_align = 1; /* alignment of chars in structs */
|
||
|
|
int Cmd_stack_check = TRUE;
|
||
|
|
int Stack_check = TRUE;
|
||
|
|
int Prep_ifstack = -1;
|
||
|
|
int Switch_check = TRUE;
|
||
|
|
int Load_ds_with;
|
||
|
|
int Plmn;
|
||
|
|
int Plmf;
|
||
|
|
int On_pound_line;
|
||
|
|
int Listing_value;
|
||
|
|
hash_t Reuse_1_hash;
|
||
|
|
UINT Reuse_1_length;
|
||
|
|
token_t Currtok = L_NOTOKEN;
|
||
|
|
|
||
|
|
int Extension = TRUE; /* near/far keywords? */
|
||
|
|
int Cmd_pack_size = 2;
|
||
|
|
int Pack_size = 2;
|
||
|
|
|
||
|
|
lextype_t yylval;
|
||
|
|
|
||
|
|
/*** I/O Variable for PreProcessor ***/
|
||
|
|
ptext_t Current_char;
|
||
|
|
|
||
|
|
/*** w-BrianM - Re-write of fatal(), error() ***/
|
||
|
|
char Msg_Text[MSG_BUFF_SIZE];
|
||
|
|
char * Msg_Temp;
|