mirror of
https://github.com/CloverHackyColor/CloverBootloader.git
synced 2024-12-12 14:36:56 +01:00
b1264ef1e3
Signed-off-by: Sergey Isakov <isakov-sl@bk.ru>
282 lines
7.8 KiB
C
Executable File
282 lines
7.8 KiB
C
Executable File
/* Main function for dlg version
|
|
*
|
|
* SOFTWARE RIGHTS
|
|
*
|
|
* We reserve no LEGAL rights to the Purdue Compiler Construction Tool
|
|
* Set (PCCTS) -- PCCTS is in the public domain. An individual or
|
|
* company may do whatever they wish with source code distributed with
|
|
* PCCTS or the code generated by PCCTS, including the incorporation of
|
|
* PCCTS, or its output, into commerical software.
|
|
*
|
|
* We encourage users to develop software with PCCTS. However, we do ask
|
|
* that credit is given to us for developing PCCTS. By "credit",
|
|
* we mean that if you incorporate our source code into one of your
|
|
* programs (commercial product, research project, or otherwise) that you
|
|
* acknowledge this fact somewhere in the documentation, research report,
|
|
* etc... If you like PCCTS and have developed a nice tool with the
|
|
* output, please mention that you developed it using PCCTS. In
|
|
* addition, we ask that this header remain intact in our source code.
|
|
* As long as these guidelines are kept, we expect to continue enhancing
|
|
* this system and expect to make other tools available as they are
|
|
* completed.
|
|
*
|
|
* DLG 1.33
|
|
* Will Cohen
|
|
* With mods by Terence Parr; AHPCRC, University of Minnesota
|
|
* 1989-2001
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include "stdpccts.h"
|
|
|
|
char program[] = "dlg";
|
|
char version[] = "1.33MR33"; /* MRXXX */
|
|
int numfiles = 0;
|
|
char *file_str[2] = {NULL, NULL};
|
|
char *mode_file = "mode.h";
|
|
char *class_name = DEFAULT_CLASSNAME;
|
|
char *OutputDirectory = TopDirectory;
|
|
|
|
/* Option variables */
|
|
int comp_level = 0;
|
|
int interactive = FALSE;
|
|
int case_insensitive = FALSE;
|
|
int warn_ambig = FALSE;
|
|
int gen_cpp = FALSE;
|
|
|
|
#ifdef __USE_PROTOS
|
|
static int ci_strequ(char *a,char *b)
|
|
#else
|
|
static int ci_strequ(a,b)
|
|
char *a;
|
|
char *b;
|
|
#endif
|
|
{
|
|
for ( ;*a != 0 && *b != 0; a++, b++) {
|
|
if (toupper(*a) != toupper(*b)) return 0;
|
|
}
|
|
return (*a == *b);
|
|
}
|
|
|
|
/* Option List Stuff */
|
|
#ifdef __USE_PROTOS
|
|
void p_comp0(void) {comp_level = 0;}
|
|
void p_comp1(void) {comp_level = 1;}
|
|
void p_comp2(void) {comp_level = 2;}
|
|
void p_stdio(void) { file_str[numfiles++] = NULL;}
|
|
void p_file(char *s) { file_str[numfiles++] = s;}
|
|
void p_cl_name(char *s, char *t)
|
|
{
|
|
if ( gen_cpp ) {
|
|
class_name = t;
|
|
}
|
|
else {
|
|
warning("-cl only valid in C++ mode; -cl ignored...",0);
|
|
}
|
|
}
|
|
void p_mode_file(char *s, char *t){mode_file=t;}
|
|
void p_outdir(char *s,char *t) {OutputDirectory=t;}
|
|
void p_ansi(void) {gen_ansi = TRUE;}
|
|
void p_interactive(void) {interactive = TRUE;}
|
|
void p_case_s(void) { case_insensitive = FALSE; }
|
|
void p_case_i(void) { case_insensitive = TRUE; }
|
|
void p_warn_ambig(void) { warn_ambig = TRUE; }
|
|
void p_cpp(void) { gen_cpp = TRUE; }
|
|
#else
|
|
void p_comp0() {comp_level = 0;}
|
|
void p_comp1() {comp_level = 1;}
|
|
void p_comp2() {comp_level = 2;}
|
|
void p_stdio() { file_str[numfiles++] = NULL;}
|
|
void p_file(s) char *s; { file_str[numfiles++] = s;}
|
|
void p_cl_name(s,t)
|
|
char *s, *t;
|
|
{
|
|
if ( gen_cpp ) {
|
|
class_name = t;
|
|
}
|
|
else {
|
|
warning("-cl only valid in C++ mode; -cl ignored...",0);
|
|
}
|
|
}
|
|
void p_mode_file(s,t) char *s,*t;{mode_file=t;}
|
|
void p_outdir(s,t) char *s,*t;{OutputDirectory=t;}
|
|
void p_ansi() {gen_ansi = TRUE;}
|
|
void p_interactive() {interactive = TRUE;}
|
|
void p_case_s() { case_insensitive = FALSE; }
|
|
void p_case_i() { case_insensitive = TRUE; }
|
|
void p_warn_ambig() { warn_ambig = TRUE; }
|
|
void p_cpp() { gen_cpp = TRUE; }
|
|
#endif
|
|
|
|
#ifdef __cplusplus
|
|
typedef void (*WildFunc)(...);
|
|
#else
|
|
typedef void (*WildFunc)();
|
|
#endif
|
|
|
|
typedef struct {
|
|
char *option;
|
|
int arg;
|
|
WildFunc process;
|
|
char *descr;
|
|
} Opt;
|
|
|
|
Opt options[] = {
|
|
{ "-CC", 0, (WildFunc)p_cpp, "Generate C++ output" },
|
|
{ "-C0", 0, (WildFunc)p_comp0, "No compression (default)" },
|
|
{ "-C1", 0, (WildFunc)p_comp1, "Compression level 1" },
|
|
{ "-C2", 0, (WildFunc)p_comp2, "Compression level 2" },
|
|
{ "-ga", 0, (WildFunc)p_ansi, "Generate ansi C"},
|
|
{ "-Wambiguity", 0, (WildFunc)p_warn_ambig, "Warn if expressions ambiguous"},
|
|
{ "-m", 1, (WildFunc)p_mode_file, "Rename lexical mode output file"},
|
|
{ "-i", 0, (WildFunc)p_interactive, "Build interactive scanner (not valid for C++ mode)"},
|
|
{ "-ci", 0, (WildFunc)p_case_i, "Make lexical analyzer case insensitive"},
|
|
{ "-cl", 1, (WildFunc)p_cl_name, "Rename lexer class (DLGLexer); only used for -CC"},
|
|
{ "-cs", 0, (WildFunc)p_case_s, "Make lexical analyzer case sensitive (default)"},
|
|
{ "-o", 1, (WildFunc)p_outdir, OutputDirectoryOption},
|
|
{ "-", 0, (WildFunc)p_stdio, "Use standard i/o rather than file"},
|
|
{ "*", 0, (WildFunc)p_file, ""}, /* anything else is a file */
|
|
{ NULL, 0, NULL }
|
|
};
|
|
|
|
#ifdef __USE_PROTOS
|
|
void ProcessArgs(int argc, char **argv, Opt *options)
|
|
#else
|
|
void ProcessArgs(argc, argv, options)
|
|
int argc;
|
|
char **argv;
|
|
Opt *options;
|
|
#endif
|
|
{
|
|
Opt *p;
|
|
|
|
while ( argc-- > 0 )
|
|
{
|
|
p = options;
|
|
while ( p->option != NULL )
|
|
{
|
|
if ( strcmp(p->option, "*") == 0 ||
|
|
ci_strequ(p->option,*argv) )
|
|
{
|
|
if ( p->arg )
|
|
{
|
|
(*p->process)( *argv, *(argv+1) );
|
|
argv++;
|
|
argc--;
|
|
}
|
|
else
|
|
(*p->process)( *argv );
|
|
break;
|
|
}
|
|
p++;
|
|
}
|
|
argv++;
|
|
}
|
|
}
|
|
|
|
#ifdef __USE_PROTOS
|
|
int main(int argc, char *argv[])
|
|
#else
|
|
int main(argc, argv)
|
|
int argc;
|
|
char *argv[];
|
|
#endif
|
|
{
|
|
init();
|
|
fprintf(stderr, "%s Version %s 1989-2001\n", &(program[0]),
|
|
&(version[0]));
|
|
if ( argc == 1 )
|
|
{
|
|
Opt *p = options;
|
|
fprintf(stderr, "%s [options] f1 f2 ... fn\n",argv[0]);
|
|
while ( *(p->option) != '*' )
|
|
{
|
|
fprintf(stderr, "\t%s %s\t%s\n",
|
|
p->option,
|
|
(p->arg)?"___":" ",
|
|
p->descr);
|
|
p++;
|
|
}
|
|
}else{
|
|
ProcessArgs(argc-1, &(argv[1]), options);
|
|
if (interactive && gen_cpp) {
|
|
fprintf(stderr,"\n");
|
|
/*** MR21a This statement is wrong ! ***/
|
|
#if 0
|
|
*** fprintf(stderr,"Interactive lexer option (\"-i\") has no effect when in C++ mode\n");
|
|
*** fprintf(stderr,"because of extra buffering provided by ANTLRTokenBuffer class.\n");
|
|
*** fprintf(stderr,"\n");
|
|
#endif
|
|
}
|
|
input_stream = read_stream(file_str[0]);
|
|
if (input_stream) {
|
|
/* don't overwrite unless input okay */
|
|
if ( gen_cpp ) {
|
|
output_stream = write_stream(ClassName(CPP_FILE_SUFFIX));
|
|
if ( file_str[1]!=NULL ) {
|
|
warning("output file implicit in C++ mode; ignored...",0);
|
|
}
|
|
class_stream = write_stream(ClassName(".h"));
|
|
mode_stream = class_stream;
|
|
}
|
|
else {
|
|
output_stream = write_stream(file_str[1]);
|
|
mode_stream = write_stream(mode_file);
|
|
}
|
|
}
|
|
/* make sure that error reporting routines in grammar
|
|
know what the file really is */
|
|
/* make sure that reading and writing somewhere */
|
|
if (input_stream && output_stream && mode_stream){
|
|
ANTLR(grammar(), input_stream);
|
|
}
|
|
p_class_def2(); /* MR1 */
|
|
}
|
|
if ( output_stream!=NULL ) fclose(output_stream);
|
|
if ( !gen_cpp && mode_stream!=NULL ) fclose(mode_stream);
|
|
if ( class_stream!=NULL ) fclose(class_stream);
|
|
exit(PCCTS_EXIT_SUCCESS);
|
|
return 0; /* get rid of warning message MR1 */
|
|
}
|
|
|
|
/* initialize all the variables */
|
|
void
|
|
#ifdef __USE_PROTOS
|
|
init(void)
|
|
#else
|
|
init()
|
|
#endif
|
|
{
|
|
register int i;
|
|
|
|
#ifdef SPECIAL_INITS
|
|
special_inits(); /* MR1 */
|
|
#endif
|
|
used_chars = empty;
|
|
used_classes = empty;
|
|
/* make the valid character set */
|
|
normal_chars = empty;
|
|
/* NOTE: MIN_CHAR is EOF */
|
|
/* NOTE: EOF is not quite a valid char, it is special. Skip it*/
|
|
for (i = 1; i<CHAR_RANGE; ++i){
|
|
set_orel(i,&normal_chars);
|
|
}
|
|
make_nfa_model_node();
|
|
clear_hash();
|
|
/* NOTE: need to set this flag before the lexer starts getting */
|
|
/* tokens */
|
|
func_action = FALSE;
|
|
}
|
|
|
|
/* stuff that needs to be reset when a new automaton is being built */
|
|
void
|
|
#ifdef __USE_PROTOS
|
|
new_automaton_mode(void) /* MR1 */
|
|
#else
|
|
new_automaton_mode() /* MR1 */
|
|
#endif
|
|
{
|
|
set_free(used_chars);
|
|
clear_hash();
|
|
}
|