void FortranFormat::Flush()
{
while (!endOfPattern)
ProcessToken(buffer);
inputPos = -1;
lastBracket = 1;
lastCount = 0;
formatPos = 1;
repeatCount = 0;
bracketStack.Clear();
bracketCounter.Clear();
bracketCount.Clear();
}
void PHPFormatterBuffer::format()
{
phpLexerToken token;
phpLexerToken::Vet_t sequence;
m_stack.push(sequence);
m_sequence = &m_stack.top();
while(NextToken(token)) {
phpLexerToken nextToken;
if(::phpLexerIsPHPCode(m_scanner)) {
ProcessToken(token);
//
// Special indentation cases
// Handle the following:
// for(..) <statement> -> for(..)
// <statement>
// if(..) <statement> -> if(..)
// <statement>
// etc.
// In addtion, we also handle here the following:
// if(something) {} else <statement> =>
// if(something) {
// } else
// <statement>
//
if(token.type == '(') {
// Create new stack
m_stack.push(phpLexerToken::Vet_t());
m_sequence = &m_stack.top();
}
if(token.type == ')') {
// switch back to the previous sequence
if(m_stack.size() >= 2) {
m_stack.pop();
m_sequence = &m_stack.top();
}
if(!m_sequence->empty()) {
phpLexerToken lastToken = m_sequence->at(m_sequence->size() - 1);
// The following tokens are usually followed by an open brace
if(lastToken.type == kPHP_T_IF || lastToken.type == kPHP_T_FOR || lastToken.type == kPHP_T_ELSEIF ||
lastToken.type == kPHP_T_FOREACH || lastToken.type == kPHP_T_WHILE) {
// Peek at the next char
if(PeekToken(nextToken)) {
if(nextToken.type != '{' && !nextToken.IsAnyComment()) {
// Increase the depth but only temporarily for the next statement
AppendEOL(kDepthIncTemporarily);
}
}
}
}
} else if(token.type == kPHP_T_ELSE) {
// Check for 'else <statement>' (without an open curly braces)
if(PeekToken(nextToken) && nextToken.type != '{' && nextToken.type != kPHP_T_IF) {
AppendEOL(kDepthIncTemporarily);
}
} else {
m_sequence->push_back(token);
}
} else {
ProcessToken(token);
}
}
}
void FortranFormat::GetNextField(String & field)
{
while (!ProcessToken(field))
;
}
static void
InitReduce (LSLInitRuleCode rule)
{
switch (rule)
{
case INITFILE1:
LTRACE ("INITFILE1");
break;
case INITLINES1:
LTRACE ("INITLINES1");
break;
case INITLINES2:
LTRACE ("INITLINES2");
break;
case INITLINES3:
LTRACE ("INITLINES3");
break;
case INITLINE1:
LTRACE ("INITLINE1");
break;
case INITLINE2:
LTRACE ("INITLINE2");
break;
case CLASSIFICATION1:
LTRACE ("CLASSIFICATION1");
break;
case CLASSIFICATION2:
LTRACE ("CLASSIFICATION2");
break;
case CLASSIFICATION3:
LTRACE ("CLASSIFICATION3");
break;
case CHARCLASS1:
LTRACE ("CHARCLASS1");
break;
case CHARCLASS2:
LTRACE ("CHARCLASS2");
break;
case CHARCLASS3:
LTRACE ("CHARCLASS3");
break;
case CHARCLASS4:
LTRACE ("CHARCLASS4");
break;
case CHARCLASS5:
LTRACE ("CHARCLASS5");
break;
case CHARCLASS6:
LTRACE ("CHARCLASS6");
break;
case LRC_ENDCOMMENT1:
LTRACE ("LRC_ENDCOMMENT1");
break;
case LRC_ENDCOMMENT2:
LTRACE ("LRC_ENDCOMMENT2");
break;
case IDCHARS1:
LTRACE ("IDCHARS1");
break;
case IDCHARS2:
LTRACE ("IDCHARS2");
break;
case OPCHARS1:
LTRACE ("OPCHARS1");
break;
case OPCHARS2:
LTRACE ("OPCHARS2");
break;
case LRC_EXTENSIONCHAR1:
LTRACE ("LRC_EXTENSIONCHAR1");
ProcessExtensionChar ();
break;
case SINGCHARS1:
LTRACE ("SINGCHARS1");
break;
case SINGCHARS2:
LTRACE ("SINGCHARS2");
break;
case WHITECHARS1:
LTRACE ("WHITECHARS1");
break;
case WHITECHARS2:
LTRACE ("WHITECHARS2");
break;
case LRC_ENDCOMMENTCHAR1:
LTRACE ("LRC_ENDCOMMENTCHAR1");
ProcessEndCommentChar ();
break;
case IDCHAR1:
LTRACE ("IDCHAR1");
ProcessSingleChar (IDCHAR);
break;
case OPCHAR1:
LTRACE ("OPCHAR1");
ProcessSingleChar (OPCHAR);
break;
case SINGCHAR1:
LTRACE ("SINGCHAR1");
ProcessSingleChar (SINGLECHAR);
break;
case WHITECHAR1:
LTRACE ("CHAR1");
ProcessSingleChar (WHITECHAR);
break;
case TOKENCLASS1:
LTRACE ("TOKENCLASS1");
break;
case TOKENCLASS2:
LTRACE ("TOKENCLASS2");
break;
case TOKENCLASS3:
LTRACE ("TOKENCLASS3");
break;
case TOKENCLASS4:
LTRACE ("TOKENCLASS4");
break;
case TOKENCLASS5:
LTRACE ("TOKENCLASS5");
break;
case TOKENCLASS6:
LTRACE ("TOKENCLASS6");
break;
case TOKENCLASS7:
LTRACE ("TOKENCLASS7");
break;
case TOKENCLASS8:
LTRACE ("TOKENCLASS8");
break;
case TOKENCLASS9:
LTRACE ("TOKENCLASS9");
break;
case TOKENCLASS10:
LTRACE ("TOKENCLASS10");
break;
case TOKENCLASS11:
LTRACE ("TOKENCLASS11");
break;
case TOKENCLASS12:
LTRACE ("TOKENCLASS12");
break;
case TOKENCLASS13:
LTRACE ("TOKENCLASS13");
break;
case QUANTIFIERSYMTOKS1:
LTRACE ("QUALIFERSYMTOKS1");
break;
case QUANTIFIERSYMTOKS2:
LTRACE ("QUANTIFIERSYMTOKS2");
break;
case LOGICALOPTOKS1:
LTRACE ("LOGICALOPTOKS1");
break;
case LOGICALOPTOKS2:
LTRACE ("LOGICALOPTOKS2");
break;
case LRC_EQOPTOKS1:
LTRACE ("LRC_EQOPTOKS1");
break;
case LRC_EQOPTOKS2:
LTRACE ("LRC_EQOPTOKS2");
break;
case LRC_EQUATIONSYMTOKS1:
LTRACE ("LRC_EQUATIONSYMTOKS1");
break;
case LRC_EQUATIONSYMTOKS2:
LTRACE ("LRC_EQUATIONSYMTOKS2");
break;
case LRC_EQSEPSYMTOKS1:
LTRACE ("LRC_EQSEPSYMTOKS1");
break;
case LRC_EQSEPSYMTOKS2:
LTRACE ("LRC_EQSEPSYMTOKS2");
break;
case SELECTSYMTOKS1:
LTRACE ("SELECTSYMTOKS1");
break;
case SELECTSYMTOKS2:
LTRACE ("SELECTSYMTOKS2");
break;
case OPENSYMTOKS1:
LTRACE ("OPENSYMTOKS1");
break;
case OPENSYMTOKS2:
LTRACE ("OPENSYMTOKS2");
break;
case SEPSYMTOKS1:
LTRACE ("SEPSYMTOKS1");
break;
case SEPSYMTOKS2:
LTRACE ("SEPSYMTOKS2");
break;
case CLOSESYMTOKS1:
LTRACE ("CLOSESYMTOKS1");
break;
case CLOSESYMTOKS2:
LTRACE ("CLOSESYMTOKS2");
break;
case SIMPLEIDTOKS1:
LTRACE ("SIMPLEIDTOKS1");
break;
case SIMPLEIDTOKS2:
LTRACE ("SIMPLEIDTOKS2");
break;
case MAPSYMTOKS1:
LTRACE ("MAPSYMTOKS1");
break;
case MAPSYMTOKS2:
LTRACE ("MAPSYMTOKS2");
break;
case MARKERSYMTOKS1:
LTRACE ("MARKERSYMTOKS1");
break;
case MARKERSYMTOKS2:
LTRACE ("MARKERSYMTOKS2");
break;
case COMMENTSYMTOKS1:
LTRACE ("COMMENTSYMTOKS1");
break;
case COMMENTSYMTOKS2:
LTRACE ("COMMENTSYMTOKS2");
break;
case QUANTIFIERSYMTOK1:
LTRACE ("QUANTIFERSYMTOK1");
ProcessToken (LST_QUANTIFIERSYM);
break;
case LOGICALOPTOK1:
LTRACE ("LOGICALOPTOK1");
ProcessToken (LST_LOGICALOP);
break;
case LRC_EQOPTOK1:
LTRACE ("LRC_EQOPTOK1");
ProcessToken (LST_EQOP);
break;
case LRC_EQUATIONSYMTOK1:
LTRACE ("LRC_EQUATIONSYMTOK1");
ProcessToken (LST_EQUATIONSYM);
break;
case LRC_EQSEPSYMTOK1:
LTRACE ("LRC_EQSEPSYMTOK1");
ProcessToken (LST_EQSEPSYM);
break;
case SELECTSYMTOK1:
LTRACE ("SELECTSYMTOK1");
ProcessToken (LST_SELECTSYM);
break;
case OPENSYMTOK1:
LTRACE ("OPENSYMTOK1");
ProcessToken (LST_OPENSYM);
break;
case SEPSYMTOK1:
LTRACE ("SEPSYMTOK1");
ProcessToken (LST_SEPSYM);
break;
case CLOSESYMTOK1:
LTRACE ("CLOSESYMTOK1");
ProcessToken (LST_CLOSESYM);
break;
case SIMPLEIDTOK1:
LTRACE ("SIMPLEIDTOK1");
ProcessToken (LST_SIMPLEID);
break;
case MAPSYMTOK1:
LTRACE ("MAPSYMTOK1");
ProcessToken (LST_MAPSYM);
break;
case MARKERSYMTOK1:
LTRACE ("MARKERSYMTOK1");
ProcessToken (LST_MARKERSYM);
break;
case COMMENTSYMTOK1:
LTRACE ("COMMENTSYMTOK1");
ProcessToken (LST_COMMENTSYM);
break;
case SYNCLASS1:
LTRACE ("SYNCLASS1");
ProcessSynonym ();
break;
case OLDTOKEN1:
LTRACE ("OLDTOKEN1");
break;
case NEWTOKEN1:
LTRACE ("NEWTOKEN1");
break;
default:
llcontbuglit ("InitReduce: bad switch");
break;
} /* end switch */
} /* end InitReduce () */
static void
InitReduce (LCLInitRuleCode rule) /*@modifies nextToken@*/
{
switch (rule)
{
case INITFILE1:
TRACE ("INITFILE1");
break;
case INITLINES1:
TRACE ("INITLINES1");
break;
case INITLINES2:
TRACE ("INITLINES2");
break;
case INITLINES3:
TRACE ("INITLINES3");
break;
case INITLINE1:
TRACE ("INITLINE1");
break;
case INITLINE2:
TRACE ("INITLINE2");
break;
case CLASSIFICATION1:
TRACE ("CLASSIFICATION1");
break;
case CLASSIFICATION2:
TRACE ("CLASSIFICATION2");
break;
case CLASSIFICATION3:
TRACE ("CLASSIFICATION3");
break;
case CHARCLASS1:
TRACE ("CHARCLASS1");
break;
case CHARCLASS2:
TRACE ("CHARCLASS2");
break;
case CHARCLASS3:
TRACE ("CHARCLASS3");
break;
case CHARCLASS4:
TRACE ("CHARCLASS4");
break;
case CHARCLASS5:
TRACE ("CHARCLASS5");
break;
case CHARCLASS6:
TRACE ("CHARCLASS6");
break;
case LRC_ENDCOMMENT1:
TRACE ("LRC_ENDCOMMENT1");
break;
case LRC_ENDCOMMENT2:
TRACE ("LRC_ENDCOMMENT2");
break;
case IDCHARS1:
TRACE ("IDCHARS1");
break;
case IDCHARS2:
TRACE ("IDCHARS2");
break;
case OPCHARS1:
TRACE ("OPCHARS1");
break;
case OPCHARS2:
TRACE ("OPCHARS2");
break;
case LRC_EXTENSIONCHAR1:
TRACE ("LRC_EXTENSIONCHAR1");
ProcessExtensionChar ();
break;
case SINGCHARS1:
TRACE ("SINGCHARS1");
break;
case SINGCHARS2:
TRACE ("SINGCHARS2");
break;
case WHITECHARS1:
TRACE ("WHITECHARS1");
break;
case WHITECHARS2:
TRACE ("WHITECHARS2");
break;
case LRC_ENDCOMMENTCHAR1:
TRACE ("LRC_ENDCOMMENTCHAR1");
ProcessEndCommentChar ();
break;
case IDCHAR1:
TRACE ("IDCHAR1");
ProcessSingleChar (IDCHAR);
break;
case OPCHAR1:
TRACE ("OPCHAR1");
ProcessSingleChar (OPCHAR);
break;
case SINGCHAR1:
TRACE ("SINGCHAR1");
ProcessSingleChar (SINGLECHAR);
break;
case WHITECHAR1:
TRACE ("CHAR1");
ProcessSingleChar (WHITECHAR);
break;
case TOKENCLASS1:
TRACE ("TOKENCLASS1");
break;
case TOKENCLASS2:
TRACE ("TOKENCLASS2");
break;
case TOKENCLASS3:
TRACE ("TOKENCLASS3");
break;
case TOKENCLASS4:
TRACE ("TOKENCLASS4");
break;
case TOKENCLASS5:
TRACE ("TOKENCLASS5");
break;
case TOKENCLASS6:
TRACE ("TOKENCLASS6");
break;
case TOKENCLASS7:
TRACE ("TOKENCLASS7");
break;
case TOKENCLASS8:
TRACE ("TOKENCLASS8");
break;
case TOKENCLASS9:
TRACE ("TOKENCLASS9");
break;
case TOKENCLASS10:
TRACE ("TOKENCLASS10");
break;
case TOKENCLASS11:
TRACE ("TOKENCLASS11");
break;
case TOKENCLASS12:
TRACE ("TOKENCLASS12");
break;
case TOKENCLASS13:
TRACE ("TOKENCLASS13");
break;
case QUANTIFIERSYMTOKS1:
TRACE ("QUALIFERSYMTOKS1");
break;
case QUANTIFIERSYMTOKS2:
TRACE ("QUANTIFIERSYMTOKS2");
break;
case LOGICALOPTOKS1:
TRACE ("LOGICALOPTOKS1");
break;
case LOGICALOPTOKS2:
TRACE ("LOGICALOPTOKS2");
break;
case LRC_EQOPTOKS1:
TRACE ("LRC_EQOPTOKS1");
break;
case LRC_EQOPTOKS2:
TRACE ("LRC_EQOPTOKS2");
break;
case LRC_EQUATIONSYMTOKS1:
TRACE ("LRC_EQUATIONSYMTOKS1");
break;
case LRC_EQUATIONSYMTOKS2:
TRACE ("LRC_EQUATIONSYMTOKS2");
break;
case LRC_EQSEPSYMTOKS1:
TRACE ("LRC_EQSEPSYMTOKS1");
break;
case LRC_EQSEPSYMTOKS2:
TRACE ("LRC_EQSEPSYMTOKS2");
break;
case SELECTSYMTOKS1:
TRACE ("SELECTSYMTOKS1");
break;
case SELECTSYMTOKS2:
TRACE ("SELECTSYMTOKS2");
break;
case OPENSYMTOKS1:
TRACE ("OPENSYMTOKS1");
break;
case OPENSYMTOKS2:
TRACE ("OPENSYMTOKS2");
break;
case SEPSYMTOKS1:
TRACE ("SEPSYMTOKS1");
break;
case SEPSYMTOKS2:
TRACE ("SEPSYMTOKS2");
break;
case CLOSESYMTOKS1:
TRACE ("CLOSESYMTOKS1");
break;
case CLOSESYMTOKS2:
TRACE ("CLOSESYMTOKS2");
break;
case SIMPLEIDTOKS1:
TRACE ("SIMPLEIDTOKS1");
break;
case SIMPLEIDTOKS2:
TRACE ("SIMPLEIDTOKS2");
break;
case MAPSYMTOKS1:
TRACE ("MAPSYMTOKS1");
break;
case MAPSYMTOKS2:
TRACE ("MAPSYMTOKS2");
break;
case MARKERSYMTOKS1:
TRACE ("MARKERSYMTOKS1");
break;
case MARKERSYMTOKS2:
TRACE ("MARKERSYMTOKS2");
break;
case COMMENTSYMTOKS1:
TRACE ("COMMENTSYMTOKS1");
break;
case COMMENTSYMTOKS2:
TRACE ("COMMENTSYMTOKS2");
break;
case QUANTIFIERSYMTOK1:
TRACE ("QUANTIFERSYMTOK1");
ProcessToken (quantifierSym);
break;
case LOGICALOPTOK1:
TRACE ("LOGICALOPTOK1");
ProcessToken (logicalOp);
break;
case LRC_EQOPTOK1:
TRACE ("LRC_EQOPTOK1");
ProcessToken (eqOp);
break;
case LRC_EQUATIONSYMTOK1:
TRACE ("LRC_EQUATIONSYMTOK1");
ProcessToken (equationSym);
break;
case LRC_EQSEPSYMTOK1:
TRACE ("LRC_EQSEPSYMTOK1");
ProcessToken (eqSepSym);
break;
case SELECTSYMTOK1:
TRACE ("SELECTSYMTOK1");
ProcessToken (selectSym);
break;
case OPENSYMTOK1:
TRACE ("OPENSYMTOK1");
ProcessToken (openSym);
break;
case SEPSYMTOK1:
TRACE ("SEPSYMTOK1");
ProcessToken (sepSym);
break;
case CLOSESYMTOK1:
TRACE ("CLOSESYMTOK1");
ProcessToken (closeSym);
break;
case SIMPLEIDTOK1:
TRACE ("SIMPLEIDTOK1");
ProcessToken (simpleId);
break;
case MAPSYMTOK1:
TRACE ("MAPSYMTOK1");
ProcessToken (mapSym);
break;
case MARKERSYMTOK1:
TRACE ("MARKERSYMTOK1");
ProcessToken (markerSym);
break;
case COMMENTSYMTOK1:
TRACE ("COMMENTSYMTOK1");
ProcessToken (commentSym);
break;
case SYNCLASS1:
TRACE ("SYNCLASS1");
ProcessSynonym ();
break;
case OLDTOKEN1:
TRACE ("OLDTOKEN1");
break;
case NEWTOKEN1:
TRACE ("NEWTOKEN1");
break;
default:
llcontbuglit ("InitReduce: bad case");
break;
}
}
