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 ) ) ; }