}
void
-lclinit_process (void)
+LCLProcessInitFile (void)
{
InitLines ();
setCodePoint ();
InitReduce (INITLINES1);
+
+
if (ltoken_getCode (nextToken) != LEOFTOKEN)
{
InitLine ();
static void
InitLine (void)
{
+
if (ltoken_getCode (nextToken) == LLT_EOL)
{
/* Nothing on line. */
- InitReduce (INITLINE1);
+ InitReduce (INITLINE1);
}
else
{
- Classification ();
+ Classification ();
InitReduce (INITLINE2);
}
{
LocalUserError (nextToken, "Unexpected tokens on line");
}
-
+
nextToken = LCLScanNextToken (); /* Discard EOL */
-}
+ }
static void
Classification (void)
{
lsymbol ntext = ltoken_getRawText (nextToken);
+
if (ntext == ltoken_getText (endCommentCharToken)
|| ntext == ltoken_getText (idCharToken)
{
llbug (message ("Expected character, token, or synonym classification: %s",
ltoken_getRawString (nextToken)));
- /* pop off all tokens on this line */
+ /* pop off all tokens on this line */
}
}
CharClass (void)
{
ltoken charClassToken;
+
charClassToken = nextToken;
+
nextToken = LCLScanNextToken (); /* Discard char class keyword. */
if (ltoken_getRawText (charClassToken) == ltoken_getText (endCommentCharToken))
}
static void
-TokenClass (void) /*@modifies nextToken@*/
+ TokenClass (void) /*@modifies nextToken@*/
{
ltoken tokenClassToken;
lsymbol ttext = ltoken_getRawText (nextToken);
*/
void
-lclinit_initMod (void)
+LCLProcessInitFileInit (void)
{
int i;
}
void
-lclinit_reset (void)
+LCLProcessInitFileReset (void)
{
nextToken = LCLScanNextToken ();
}
void
-lclinit_cleanup (void)
+LCLProcessInitFileCleanup (void)
{
- ;
}