timer.hhf

来自「High Level assembly language(HLA)软件」· HHF 代码 · 共 51 行

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

	#includeOnce( "datetime.hhf" )
	#includeOnce( "stdio.hhf" )

/****************************************************/
/*                                                  */
/* 	The TIMER class:                                */
/*                                                  */
/****************************************************/


const
	timer	:text := "timer_t";		// Deprecated type

type

	timer_t:	
		class

			var
				Accumulated:	qword;

				DateStarted:	date.daterec;
				TimeStarted:	time.timerec;
				msStarted:		uns32;

				DateStopped:	date.daterec;
				TimeStopped:	time.timerec;
				msStopped:		uns32;

				Running:	boolean;
				Valid:		boolean;

			procedure create;	@external( "TIMER_CREATE" );

			method start;		@external( "TIMER_START" );
			method restart;		@external( "TIMER_RESTART" );
			method stop; 
				@returns( "edx:eax" );	
				@external( "TIMER_STOP" );
				
			method checkPoint; 
				@returns( "edx:eax" ); 
				@external( "TIMER_CHECKPOINT" );

		endclass;


#endif