More moves for Tool Packages
git-svn-id: https://edk2.svn.sourceforge.net/svnroot/edk2/trunk/edk2@1676 6f19259b-4bc3-4df7-8a09-765794883524
This commit is contained in:
lhauch
191
Tools/CCode/Source/Pccts/h/DLexer.h
Normal file
191
Tools/CCode/Source/Pccts/h/DLexer.h
Normal file
@@ -0,0 +1,191 @@
|
||||
/* DLexer.h (formerly DLexer.cpp)
|
||||
*
|
||||
* This was renamed because the use of the .cpp extension caused problems
|
||||
* with IDEs.
|
||||
*
|
||||
* 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.
|
||||
*
|
||||
* ANTLR 1.33
|
||||
* Terence Parr
|
||||
* Parr Research Corporation
|
||||
* with Purdue University and AHPCRC, University of Minnesota
|
||||
* 1989-2000
|
||||
*/
|
||||
|
||||
#define ZZINC {if ( track_columns ) (++_endcol);}
|
||||
|
||||
#define ZZGETC {ch = input->nextChar(); cl = ZZSHIFT(ch);}
|
||||
|
||||
#define ZZNEWSTATE (newstate = dfa[state][cl])
|
||||
|
||||
#ifndef ZZCOPY
|
||||
#define ZZCOPY \
|
||||
/* Truncate matching buffer to size (not an error) */ \
|
||||
if (nextpos < lastpos){ \
|
||||
*(nextpos++) = ch; \
|
||||
}else{ \
|
||||
bufovf = 1; \
|
||||
}
|
||||
#endif
|
||||
|
||||
void DLGLexer::
|
||||
mode( int m )
|
||||
{
|
||||
/* points to base of dfa table */
|
||||
if (m<MAX_MODE){
|
||||
automaton = m;
|
||||
/* have to redo class since using different compression */
|
||||
cl = ZZSHIFT(ch);
|
||||
}else{
|
||||
sprintf((char *)ebuf,"Invalid automaton mode = %d ",m);
|
||||
errstd(ebuf);
|
||||
}
|
||||
}
|
||||
|
||||
ANTLRTokenType DLGLexer::
|
||||
nextTokenType(void)
|
||||
{
|
||||
register int state, newstate;
|
||||
/* last space reserved for the null char */
|
||||
register DLGChar *lastpos;
|
||||
ANTLRTokenType tk;
|
||||
|
||||
skip:
|
||||
bufovf = 0;
|
||||
lastpos = &_lextext[_bufsize-1];
|
||||
nextpos = _lextext;
|
||||
_begcol = _endcol+1;
|
||||
more:
|
||||
_begexpr = nextpos;
|
||||
if ( interactive ) {
|
||||
/* interactive version of automaton */
|
||||
/* if there is something in ch, process it */
|
||||
state = newstate = dfa_base[automaton];
|
||||
if (charfull){
|
||||
ZZINC;
|
||||
ZZCOPY;
|
||||
ZZNEWSTATE;
|
||||
}
|
||||
while (alternatives[newstate]){
|
||||
state = newstate;
|
||||
ZZGETC;
|
||||
ZZINC;
|
||||
ZZCOPY;
|
||||
ZZNEWSTATE;
|
||||
}
|
||||
/* figure out if last character really part of token */
|
||||
if ((state != dfa_base[automaton]) && (newstate == DfaStates)){
|
||||
charfull = 1;
|
||||
--nextpos;
|
||||
}else{
|
||||
charfull = 0;
|
||||
state = newstate;
|
||||
}
|
||||
*(nextpos) = '\0';
|
||||
/* Able to transition out of start state to some non err state?*/
|
||||
if ( state == dfa_base[automaton] ){
|
||||
/* make sure doesn't get stuck */
|
||||
advance();
|
||||
}
|
||||
}
|
||||
else { /* non-interactive version of automaton */
|
||||
if (!charfull)
|
||||
advance();
|
||||
else
|
||||
ZZINC;
|
||||
state = dfa_base[automaton];
|
||||
while (ZZNEWSTATE != DfaStates) {
|
||||
state = newstate;
|
||||
ZZCOPY;
|
||||
ZZGETC;
|
||||
ZZINC;
|
||||
}
|
||||
charfull = 1;
|
||||
if ( state == dfa_base[automaton] ){
|
||||
if (nextpos < lastpos){
|
||||
*(nextpos++) = ch;
|
||||
}else{
|
||||
bufovf = 1;
|
||||
}
|
||||
*nextpos = '\0';
|
||||
/* make sure doesn't get stuck */
|
||||
advance();
|
||||
}else{
|
||||
*nextpos = '\0';
|
||||
}
|
||||
}
|
||||
if ( track_columns ) _endcol -= charfull;
|
||||
_endexpr = nextpos -1;
|
||||
add_erase = 0;
|
||||
#ifdef OLD
|
||||
tk = (ANTLRTokenType)
|
||||
(*actions[accepts[state]])(this); // must pass this manually
|
||||
// actions is not a [] of pointers
|
||||
// to member functions.
|
||||
#endif
|
||||
tk = (this->*actions[accepts[state]])();
|
||||
|
||||
// MR1
|
||||
// MR1 11-Apr-97 Help for tracking DLG results
|
||||
// MR1
|
||||
|
||||
#ifdef DEBUG_LEXER
|
||||
|
||||
/* MR1 */ if (debugLexerFlag) {
|
||||
/* MR1 */ if (parser != NULL) {
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, "\ntoken name=%s",parser->parserTokenName(tk));
|
||||
/* MR1 */ } else {
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, "\ntoken nnumber=%d",tk);
|
||||
/* MR1 */ };
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, " lextext=(%s) mode=%d",
|
||||
/* MR1 */ (_lextext[0]=='\n' && _lextext[1]==0) ?
|
||||
/* MR1 */ "newline" : _lextext,
|
||||
/* MR1 */ automaton);
|
||||
/* MR1 */ if (interactive && !charfull) {
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, " char=empty");
|
||||
/* MR1 */ } else {
|
||||
/* MR1 */ if (ch=='\n') {
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, " char=newline");
|
||||
/* MR1 */ } else {
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, " char=(%c)",ch);
|
||||
/* MR1 */ };
|
||||
/* MR1 */ };
|
||||
/* MR1 */ /* MR23 */ printMessage(stdout, " %s\n",
|
||||
/* MR1 */ (add_erase==1 ? "skip()" :
|
||||
/* MR1 */ add_erase==2 ? "more()" :
|
||||
/* MR1 */ ""));
|
||||
/* MR1 */ };
|
||||
|
||||
#endif
|
||||
|
||||
switch (add_erase) {
|
||||
case 1: goto skip;
|
||||
case 2: goto more;
|
||||
}
|
||||
return tk;
|
||||
}
|
||||
|
||||
void DLGLexer::
|
||||
advance()
|
||||
{
|
||||
if ( input==NULL ) err_in();
|
||||
ZZGETC; charfull = 1; ZZINC;
|
||||
}
|
||||
Reference in New Issue
Block a user