hla-test/fsm.hhf

   1
   2 #if( ! @defined( fsm_hhf ))
   3 ?fsm_hhf := true;
   4
   5 #includeonce( "hla.hhf" )
   6
   7
   8 type
   9         myfsm : record
  10                 current_state : dword;
  11         endrecord;
  12
  13 #macro fsm_callback ( _cbfunc_, _extname_ ) ;
  14
  15 procedure _cbfunc_
  16 (
  17         ev : dword;
  18         old_state : dword;
  19         ctx : dword
  20 );      @cdecl;
  21         @external( _extname_ );
  22
  23 #endmacro
  24
  25 #macro fsm_callback2 ( _cbfunc_, _extname_ ) ;
  26
  27 procedure _cbfunc_
  28 (
  29         ev : dword;
  30         ctx : dword
  31 );      @cdecl;
  32         @external( _extname_ );
  33
  34 #endmacro
  35
  36 #macro fsm_advance ( _fsm_, _event_, _ctx_ ) :
  37         _fsm_end_;
  38
  39         push ( eax );
  40         push ( ebx );
  41         push ( ecx );
  42         push ( edx );
  43
  44         mov ( fsm, ebx );
  45         mov ( (type myfsm [ebx]).current_state, eax );
  46
  47         mov ( _event_, ecx );
  48
  49         mov ( _ctx_, edx );
  50
  51 #keyword tr ( _state_, _ev_, _new_state_, _cbfunc_ ) :
  52         _tr_end_;
  53
  54         cmp ( eax, _state_ );
  55         jnz _tr_end_;
  56
  57         cmp ( ecx, _ev_ );
  58         jnz _tr_end_;
  59
  60         mov ( _new_state_, eax );
  61
  62         mov ( eax, (type myfsm [ebx]).current_state );
  63
  64         push ( edx );
  65         push ( eax );
  66         push ( ecx );
  67         call ( _cbfunc_ );
  68         jmp _fsm_end_;
  69
  70 _tr_end_:
  71
  72 #keyword tr2 ( _state_, _ev_, _new_state_, _cbfunc_ ) :
  73         _tr2_end_;
  74
  75         cmp ( eax, _state_ );
  76         jnz _tr2_end_;
  77
  78         cmp ( ecx, _ev_ );
  79         jnz _tr2_end_;
  80
  81         mov ( eax, (type myfsm [ebx]).current_state );
  82
  83         push ( edx ); // _ctx_
  84         push ( ecx ); // _ev_
  85         call ( _cbfunc_ ); // _cb_func_ ( _ev_, _ctx_ );
  86         jmp _fsm_end_;
  87
  88 _tr2_end_:
  89
  90 #terminator end_fsm_advance;
  91
  92 _fsm_end_:
  93
  94         pop ( edx );
  95         pop ( ecx );
  96         pop ( ebx );
  97         pop ( eax );
  98
  99 #endmacro
 100
 101 #endif
 102