int CInterpreter::GetDoWait( void ) { CBlock block; //Write out the "do" portion block.Create( ID_DO ); if (!Match( TK_OPEN_PARENTHESIS )) return Error("syntax error : '(' not found"); if ( GetString( &block ) == false ) return false; if (!Match( TK_CLOSED_PARENTHESIS )) return Error("do : too many parameters"); //Write out the accompanying "wait" char *str = (char *) block.GetMemberData( 0 ); CBlock block2; block2.Create( ID_WAIT ); block2.Write( TK_STRING, (char *) str ); m_blockStream->WriteBlock( &block ); m_blockStream->WriteBlock( &block2 ); return true; }