tables.hhf

High Level assembly language(HLA)软件

#if( ! @defined( tables_hhf ))
?tables_hhf := true;

const
	tableNode	:text := "tableNode_t";		// Deprecated type
	tablePtr	:text := "tablePtr_t";		// Deprecated type
	table		:text := "table_t";			// Deprecated type
	
type

	tableNode_t:
		record

			// Warning! Table algorithms
			// rely upon the fact that
			// link is the first field
			// at offset zero in this record.

			__link:	pointer to tableNode_t;	// Private field.
			
			// public field:
			
			Value:	dword;		// User-defined data.
			
			id:		string;		// Read-only access to this guy!

		endrecord;

	table_t	:class

				// Private fields that objects reserved for access
				// only by the class's functions:
				
				var
					__HashMask		:dword;
					__HashCnt		:uns32;
					__HashTable		:dword;

				// Public functions:
				
				procedure create( HashSize:uns32 ); 
					@returns( "esi" ); 
					@external( "TABLE_CREATE" );

				method destroy( FreeValue:procedure ); 
					@external( "TABLE_DESTROY" );

				method getNode( id:string ); 
					@returns( "eax" ); 
					@external( "TABLE_GETNODE" );

				method lookup( id:string ); 
					@returns( "eax" ); 
					@external( "TABLE_LOOKUP" );

				iterator item;
					@external( "TABLE_ITEM" );

			endclass;
			
	tablePtr_t	:pointer to table_t;

#endif