Subversion Repositories forwardcom

/*********************************  raise_event *******************************

* Author:        Agner Fog

* date created:  2018-03-23

* Last modified: 2021-04-25

* Version:       1.11

* Project:       ForwardCom library libc.li

* Description:   raise_event: find event handlers and call them

* C declaration: int64_t raise_event(int64_t id_and_key, int64_t parameter1, const char * parameter2, ...)

*

* Copyright 2018 GNU General Public License http://www.gnu.org/licenses

*****************************************************************************/

extern __event_table: ip                         // address of event table

extern __event_table_num: constant               // size of event table

extern __ip_base: ip                             // reference point

code section execute align = 4

_raise_event function public

push (r16, 22)                                   // save registers r16 - r22

int64 r16 = address([__event_table])             // address of event table

int32 r17 = __event_table_num                    // size of event table

int64 r18 = address([__ip_base])                 // reference point

int64 r19 = r0                                   // save ID and key

int64 r20 = r1                                   // save function parameters

int64 r21 = r2

int64 r22 = r3

// loop through event table

// (note: this table is sorted. we may use binary search if the table is big)

while (int32 r17 > 0) {

   int64 r0 = [r16+8]                            // read key and id from table entry

   if (int64 r0 == r19) {

      // matching record found

      int64 r1 = r20                             // function parameters are in r1, r2, r3

      int64 r2 = r21

      int64 r3 = r22

      int32 call_relative(r18, [r16])            // call relative function pointer from table, with r18 as reference point

      if (int64 r0 == 0) {break}                 // disable further events with same ID if return value is 0

   }

   int64 r16 += 16                               // next record in event table

   int64 r17--                                   // decrement loop counter

}

pop (r16, 22)                                    // restore registers r22 - r16

return

_raise_event end

code end