static boolean GetAliasInfo(
void )
{
char buff[256];
boolean isfar16;
boolean retn;
CurrAlias = &DefaultInfo;
if( CurToken != T_LEFT_PAREN ) {
retn = TRUE;
} else {
NextToken();
if( ! PragIdCurToken() ) {
retn = FALSE;
} else {
PragCurrAlias();
strcpy( buff, Buffer );
NextToken();
if( CurToken == T_RIGHT_PAREN ) {
NextToken();
retn = TRUE;
} else if( CurToken == T_COMMA ) {
NextToken();
if( ! PragIdCurToken() ) {
retn = FALSE;
} else {
isfar16 = PragRecog( "far16" );
CreateAux( buff );
PragCurrAlias();
NextToken();
if( CurToken == T_RIGHT_PAREN ) {
AuxCopy( CurrInfo, CurrAlias );
NextToken();
}
if( isfar16 ) {
CurrInfo->flags |= AUX_FLAG_FAR16;
}
PragEnding( TRUE );
retn = FALSE;
}
}
}
}
return retn;
}
static int GetAliasInfo( void )
/*****************************/
{
int isfar16;
if( CurToken != T_LEFT_PAREN ) // #pragma aux symbol .....
return( 1 );
NextToken();
if( CurToken != T_ID ) // error
return( 0 );
LookAhead();
if( LAToken == T_RIGHT_PAREN ) { // #pragma aux (alias) symbol .....
PragCurrAlias( SavedId );
AdvanceToken();
NextToken();
return( 1 );
} else if( LAToken == T_COMMA ) { // #pragma aux (symbol, alias)
HashValue = SavedHash;
SetCurrInfo( SavedId );
AdvanceToken();
NextToken();
if( CurToken != T_ID ) // error
return( 0 );
isfar16 = PragRecog( "far16" );
if( CurToken == T_ID ) {
PragCurrAlias( Buffer );
NextToken();
}
if( CurToken == T_RIGHT_PAREN )
NextToken();
if( isfar16 )
AuxInfo.flags |= AUX_FLAG_FAR16;
CopyAuxInfo();
PragEnding();
return( 0 ); /* process no more! */
} else { // error
AdvanceToken();
return( 0 ); // shut up the compiler
}
}
static bool GetAliasInfo(
void )
{
char buff[256];
bool isfar16;
CurrAlias = &DefaultInfo;
if( CurToken != T_LEFT_PAREN ) // #pragma aux symbol ....
return( IS_ID_OR_KEYWORD( CurToken ) );
NextToken();
if( !IS_ID_OR_KEYWORD( CurToken ) ) // error
return( FALSE );
PragCurrAlias();
strcpy( buff, Buffer );
NextToken();
if( CurToken == T_RIGHT_PAREN ) { // #pragma aux (alias) symbol ....
NextToken();
return( IS_ID_OR_KEYWORD( CurToken ) );
}
if( CurToken == T_COMMA ) { // #pragma aux (alias, symbol)
NextToken();
if( IS_ID_OR_KEYWORD( CurToken ) ) {
isfar16 = PragRecog( "far16" );
CreateAux( buff );
PragCurrAlias();
NextToken();
if( CurToken == T_RIGHT_PAREN ) {
AuxCopy( CurrInfo, CurrAlias );
NextToken();
}
if( isfar16 ) {
CurrInfo->flags |= AUX_FLAG_FAR16;
}
PragEnding( TRUE );
}
}
return( FALSE );
}
