Word *
Finder_FindQualifiedIDWord ( Finder * finder, byte * token )
{
Word * word ;
//while ( ( symbol = _Symbol_FindAny ( token ) ) )
while ( ( word = Finder_Word_FindUsing ( finder, token ) ) )
{
if ( word->CType & ( NAMESPACE ) )
{
Namespace * ns = ( Namespace * ) word ;
Finder_SetQualifyingNamespace ( finder, ns ) ;
}
else if ( word->CType & ( OBJECT ) )
{
Finder_SetQualifyingNamespace ( finder, word->ContainingNamespace ) ;
}
else if ( word->CType & ( CLASS_MEMBER_ACCESS ) )
{
Finder_SetQualifyingNamespace ( finder, word->ClassFieldNamespace ) ;
}
else return word ;
if ( Lexer_IsTokenForwardDotted ( _Context_->Lexer0 ) )
{
Lexer_ReadToken ( _Context_->Lexer0 ) ; // the '.'
token = Lexer_ReadToken ( _Context_->Lexer0 ) ; // the namespace
continue ;
}
else return word ;
}
return 0 ;
}
void
CfrTil_ParenthesisComment ( )
{
while ( 1 )
{
int inChar = ReadLine_PeekNextChar ( _Context_->ReadLiner0 ) ;
if ( ( inChar == - 1 ) || ( inChar == eof ) ) break ;
char * token = ( char* ) Lexer_ReadToken ( _Context_->Lexer0 ) ;
if ( strcmp ( token, "*/" ) == 0 ) return ;
}
}
void
Parse_SkipUntil_Token ( byte * end )
{
while ( 1 )
{
byte * token ;
int inChar = ReadLine_PeekNextChar ( _Context_->ReadLiner0 ) ;
if ( ( inChar == 0 ) || ( inChar == - 1 ) || ( inChar == eof ) ) break ;
if ( ( token = Lexer_ReadToken ( _Context_->Lexer0 ) ) )
{
if ( String_Equal ( token, end ) ) break ;
}
}
}
dllist *
_CfrTil_Interpret_ReadToList ( )
{
byte * token ;
Interpreter * interp = _Context_->Interpreter0 ;
interp->InterpList = List_New ( ) ;
while ( token = Lexer_ReadToken ( _Lexer_ ) )
{
if ( String_Equal ( token, ";l" ) ) break ;
Word * word = _Interpreter_TokenToWord ( interp, token ) ;
if ( word )
{
_Word_Interpret ( word ) ;
//List_Push_A_1Value_Node ( interp->InterpList, word ) ;
List_Push ( interp->InterpList, word ) ;
}
}
return interp->InterpList ;
}
void
CfrTil_Token ( )
{
_DataStack_Push ( ( int32 ) Lexer_ReadToken ( _Context_->Lexer0 ) ) ;
}
