/* * Copyright (c) 1997, 2022, Oracle and/or its affiliates. All rights reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA * or visit www.oracle.com if you need additional information or have any * questions. *
*/
// MAIN.CPP - Entry point for the Architecture Description Language Compiler #include"adlc.hpp"
//------------------------------Prototypes------------------------------------- staticvoid usage(ArchDesc& AD); // Print usage message and exit staticchar *strip_ext(char *fname); // Strip off name extension staticchar *base_plus_suffix(constchar* base, constchar *suffix);// New concatenated string staticint get_legal_text(FileBuff &fbuf, char **legal_text); // Get pointer to legal text
ArchDesc* globalAD = NULL; // global reference to Architecture Description object
// ResourceMark mark;
ADLParser *ADL_Parse; // ADL Parser object to parse AD file
// Check for proper arguments if( argc == 1 ) usage(AD); // No arguments? Then print usage
// Read command line arguments and file names for( int i = 1; i < argc; i++ ) { // For all arguments char *s = argv[i]; // Get option/filename
if( *s++ == '-' ) { // It's a flag? (not a filename) if( !*s ) { // Stand-alone `-' means stdin //********** INSERT CODE HERE **********
} elsewhile (*s != '\0') { // While have flags on option switch (*s++) { // Handle flag case'd': // Debug flag
AD._dfa_debug += 1; // Set Debug Flag break; case'g': // Debug ad location flag
AD._adlocation_debug += 1; // Set Debug ad location Flag break; case'o': // No Output Flag
AD._no_output ^= 1; // Toggle no_output flag break; case'q': // Quiet Mode Flag
AD._quiet_mode ^= 1; // Toggle quiet_mode flag break; case'w': // Disable Warnings Flag
AD._disable_warnings ^= 1; // Toggle disable_warnings flag break; case'T': // Option to make DFA as many subroutine calls.
AD._dfa_small += 1; // Set Mode Flag break; case'c': { // Set C++ Output file name
AD._CPP_file._name = s; constchar *base = strip_ext(strdup(s));
AD._CPP_CLONE_file._name = base_plus_suffix(base,"_clone.cpp");
AD._CPP_EXPAND_file._name = base_plus_suffix(base,"_expand.cpp");
AD._CPP_FORMAT_file._name = base_plus_suffix(base,"_format.cpp");
AD._CPP_GEN_file._name = base_plus_suffix(base,"_gen.cpp");
AD._CPP_MISC_file._name = base_plus_suffix(base,"_misc.cpp");
AD._CPP_PEEPHOLE_file._name = base_plus_suffix(base,"_peephole.cpp");
AD._CPP_PIPELINE_file._name = base_plus_suffix(base,"_pipeline.cpp");
s += strlen(s); break;
} case'h': // Set C++ Output file name
AD._HPP_file._name = s; s += strlen(s); break; case'v': // Set C++ Output file name
AD._VM_file._name = s; s += strlen(s); break; case'a': // Set C++ Output file name
AD._DFA_file._name = s;
AD._bug_file._name = s;
s += strlen(s); break; case'#': // Special internal debug flag
AD._adl_debug++; // Increment internal debug level break; case's': // Output which instructions are cisc-spillable
AD._cisc_spill_debug = true; break; case'D': // Flag Definition
{ char* flag = s;
s += strlen(s); char* def = strchr(flag, '='); if (def == NULL) def = (char*)"1"; else *def++ = '\0';
AD.set_preproc_def(flag, def);
} break; case'U': // Flag Un-Definition
{ char* flag = s;
s += strlen(s);
AD.set_preproc_def(flag, NULL);
} break; default: // Unknown option
usage(AD); // So print usage and exit
} // End of switch on options...
} // End of while have options...
} else { // Not an option; must be a filename
AD._ADL_file._name = argv[i]; // Set the input filename
// // Files for storage, based on input file name constchar *base = strip_ext(strdup(argv[i])); char *temp = base_plus_suffix("dfa_",base);
AD._DFA_file._name = base_plus_suffix(temp,".cpp"); delete[] temp;
temp = base_plus_suffix("ad_",base);
AD._CPP_file._name = base_plus_suffix(temp,".cpp");
AD._CPP_CLONE_file._name = base_plus_suffix(temp,"_clone.cpp");
AD._CPP_EXPAND_file._name = base_plus_suffix(temp,"_expand.cpp");
AD._CPP_FORMAT_file._name = base_plus_suffix(temp,"_format.cpp");
AD._CPP_GEN_file._name = base_plus_suffix(temp,"_gen.cpp");
AD._CPP_MISC_file._name = base_plus_suffix(temp,"_misc.cpp");
AD._CPP_PEEPHOLE_file._name = base_plus_suffix(temp,"_peephole.cpp");
AD._CPP_PIPELINE_file._name = base_plus_suffix(temp,"_pipeline.cpp");
AD._HPP_file._name = base_plus_suffix(temp,".hpp"); delete[] temp;
temp = base_plus_suffix("adGlobals_",base);
AD._VM_file._name = base_plus_suffix(temp,".hpp"); delete[] temp;
temp = base_plus_suffix("bugs_",base);
AD._bug_file._name = base_plus_suffix(temp,".out"); delete[] temp;
} // End of files vs options...
} // End of while have command line arguments
// Open files used to store the matcher and its components if (AD.open_files() == 0) return 1; // Open all input/output files
// Build the File Buffer, Parse the input, & Generate Code
FileBuff ADL_Buf(&AD._ADL_file, AD); // Create a file buffer for input file
// Get pointer to legal text at the beginning of AD file. // It will be used in generated ad files. char* legal_text; int legal_sz = get_legal_text(ADL_Buf, &legal_text);
ADL_Parse = new ADLParser(ADL_Buf, AD); // Create a parser to parse the buffer
ADL_Parse->parse(); // Parse buffer & build description lists
// define the finite automata that selects lowest cost production
AD.buildDFA(AD._DFA_file._fp); // Add include guards for all .hpp files
AD.addIncludeGuardEnd(AD._HPP_file, "GENERATED_ADFILES_AD_HPP"); // .hpp
AD.addIncludeGuardEnd(AD._VM_file, "GENERATED_ADFILES_ADGLOBALS_HPP"); // .hpp
AD.close_files(0); // Close all input/output files
// Final printout and statistics // cout << program;
//------------------------------usage------------------------------------------ staticvoid usage(ArchDesc& AD)
{
printf("Architecture Description Language Compiler\n\n");
printf("Usage: adlc [-doqwTs] [-#]* [-D[=]] [-U] [-c] [-h] [-a] [-v] \n");
printf(" d produce DFA debugging info\n");
printf(" o no output produced, syntax and semantic checking only\n");
printf(" q quiet mode, suppresses all non-essential messages\n");
printf(" w suppress warning messages\n");
printf(" T make DFA as many subroutine calls\n");
printf(" s output which instructions are cisc-spillable\n");
printf(" D define preprocessor symbol\n");
printf(" U undefine preprocessor symbol\n");
printf(" c specify CPP file name (default: %s)\n", AD._CPP_file._name);
printf(" h specify HPP file name (default: %s)\n", AD._HPP_file._name);
printf(" a specify DFA output file name\n");
printf(" v specify adGlobals output file name\n");
printf(" # increment ADL debug level\n");
printf("\n");
}
//------------------------------open_file------------------------------------ int ArchDesc::open_file(bool required, ADLFILE & ADF, constchar *action)
{ if (required &&
(ADF._fp = fopen(ADF._name, action)) == NULL) {
printf("ERROR: Cannot open file for %s: %s\n", action, ADF._name);
close_files(1); return 0;
} return 1;
}
//------------------------------open_files------------------------------------- int ArchDesc::open_files(void)
{ if (_ADL_file._name == NULL)
{ printf("ERROR: No ADL input file specified\n"); return 0; }
if (!open_file(true , _ADL_file, "r")) { return 0; } if (!open_file(!_no_output, _DFA_file, "w")) { return 0; } if (!open_file(!_no_output, _HPP_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_CLONE_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_EXPAND_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_FORMAT_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_GEN_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_MISC_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_PEEPHOLE_file, "w")) { return 0; } if (!open_file(!_no_output, _CPP_PIPELINE_file, "w")) { return 0; } if (!open_file(!_no_output, _VM_file , "w")) { return 0; } if (!open_file(_dfa_debug != 0, _bug_file, "w")) { return 0; }
return 1;
}
//------------------------------close_file------------------------------------ void ArchDesc::close_file(int delete_out, ADLFILE& ADF)
{ if (ADF._fp) {
fclose(ADF._fp); if (delete_out) remove(ADF._name);
}
}
//------------------------------close_files------------------------------------ void ArchDesc::close_files(int delete_out)
{ if (_ADL_file._fp) fclose(_ADL_file._fp);
if (fname) {
ep = fname + strlen(fname) - 1; // start at last character and look for '.' while (ep >= fname && *ep != '.') --ep; if (*ep == '.') *ep = '\0'; // truncate string at '.'
} return fname;
}
//------------------------------base_plus_suffix------------------------------- // New concatenated string staticchar *base_plus_suffix(constchar* base, constchar *suffix)
{ int len = (int)strlen(base) + (int)strlen(suffix) + 1;
//------------------------------get_legal_text--------------------------------- // Get pointer to legal text at the beginning of AD file. // This code assumes that a legal text starts at the beginning of .ad files, // is commented by "//" at each line and ends with empty line. // int get_legal_text(FileBuff &fbuf, char **legal_text)
{ char* legal_start = fbuf.get_line();
assert(legal_start[0] == '/' && legal_start[1] == '/', "Incorrect header of AD file"); char* legal_end = fbuf.get_line();
assert(strncmp(legal_end, "// Copyright", 12) == 0, "Incorrect header of AD file"); while(legal_end[0] == '/' && legal_end[1] == '/') {
legal_end = fbuf.get_line();
}
*legal_text = legal_start; return (int) (legal_end - legal_start);
}
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
