Artifact 80762550577128f70c20ed44c5f085a4298ae1b9:


0000: 23 69 66 6e 64 65 66 20 5f 43 41 4c 4c 42 41 43  #ifndef _CALLBAC
0010: 4b 5f 48 0a 23 64 65 66 69 6e 65 20 5f 43 41 4c  K_H.#define _CAL
0020: 4c 42 41 43 4b 5f 48 0a 0a 2f 2a 0a 20 2a 20 43  LBACK_H../*. * C
0030: 6f 70 79 72 69 67 68 74 20 31 39 39 37 2d 31 39  opyright 1997-19
0040: 39 39 2c 20 32 30 30 35 20 42 72 75 6e 6f 20 48  99, 2005 Bruno H
0050: 61 69 62 6c 65 2c 20 3c 62 72 75 6e 6f 40 63 6c  aible, <bruno@cl
0060: 69 73 70 2e 6f 72 67 3e 0a 20 2a 0a 20 2a 20 54  isp.org>. *. * T
0070: 68 69 73 20 69 73 20 66 72 65 65 20 73 6f 66 74  his is free soft
0080: 77 61 72 65 20 64 69 73 74 72 69 62 75 74 65 64  ware distributed
0090: 20 75 6e 64 65 72 20 74 68 65 20 47 4e 55 20 47   under the GNU G
00a0: 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69  eneral Public Li
00b0: 63 65 6e 63 65 0a 20 2a 20 64 65 73 63 72 69 62  cence. * describ
00c0: 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20 43  ed in the file C
00d0: 4f 50 59 49 4e 47 2e 20 43 6f 6e 74 61 63 74 20  OPYING. Contact 
00e0: 74 68 65 20 61 75 74 68 6f 72 20 69 66 20 79 6f  the author if yo
00f0: 75 20 64 6f 6e 27 74 20 68 61 76 65 20 74 68 69  u don't have thi
0100: 73 0a 20 2a 20 6f 72 20 63 61 6e 27 74 20 6c 69  s. * or can't li
0110: 76 65 20 77 69 74 68 20 69 74 2e 20 54 68 65 72  ve with it. Ther
0120: 65 20 69 73 20 41 42 53 4f 4c 55 54 45 4c 59 20  e is ABSOLUTELY 
0130: 4e 4f 20 57 41 52 52 41 4e 54 59 2c 20 65 78 70  NO WARRANTY, exp
0140: 6c 69 63 69 74 20 6f 72 20 69 6d 70 6c 69 65 64  licit or implied
0150: 2c 0a 20 2a 20 6f 6e 20 74 68 69 73 20 73 6f 66  ,. * on this sof
0160: 74 77 61 72 65 2e 0a 20 2a 2f 0a 0a 23 69 66 20  tware.. */..#if 
0170: 21 64 65 66 69 6e 65 64 28 4c 49 42 46 46 43 41  !defined(LIBFFCA
0180: 4c 4c 5f 56 45 52 53 49 4f 4e 29 0a 23 20 64 65  LL_VERSION).# de
0190: 66 69 6e 65 20 4c 49 42 46 46 43 41 4c 4c 5f 56  fine LIBFFCALL_V
01a0: 45 52 53 49 4f 4e 20 40 4c 49 42 46 46 43 41 4c  ERSION @LIBFFCAL
01b0: 4c 5f 56 45 52 53 49 4f 4e 40 0a 23 65 6e 64 69  L_VERSION@.#endi
01c0: 66 0a 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 63  f..#include "vac
01d0: 61 6c 6c 5f 72 2e 68 22 0a 23 69 6e 63 6c 75 64  all_r.h".#includ
01e0: 65 20 22 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 2e  e "trampoline_r.
01f0: 68 22 0a 0a 74 79 70 65 64 65 66 20 76 6f 69 64  h"..typedef void
0200: 20 28 2a 5f 5f 56 41 5f 66 75 6e 63 74 69 6f 6e   (*__VA_function
0210: 29 20 28 76 6f 69 64 2a 2c 20 76 61 5f 61 6c 69  ) (void*, va_ali
0220: 73 74 29 3b 0a 0a 23 69 66 20 30 0a 65 78 74 65  st);..#if 0.exte
0230: 72 6e 20 5f 5f 54 52 5f 66 75 6e 63 74 69 6f 6e  rn __TR_function
0240: 20 61 6c 6c 6f 63 5f 63 61 6c 6c 62 61 63 6b 20   alloc_callback 
0250: 28 5f 5f 56 41 5f 66 75 6e 63 74 69 6f 6e 2c 20  (__VA_function, 
0260: 76 6f 69 64 2a 29 3b 0a 65 78 74 65 72 6e 20 76  void*);.extern v
0270: 6f 69 64 20 66 72 65 65 5f 63 61 6c 6c 62 61 63  oid free_callbac
0280: 6b 20 28 5f 5f 54 52 5f 66 75 6e 63 74 69 6f 6e  k (__TR_function
0290: 29 3b 0a 65 78 74 65 72 6e 20 69 6e 74 20 69 73  );.extern int is
02a0: 5f 63 61 6c 6c 62 61 63 6b 20 28 76 6f 69 64 2a  _callback (void*
02b0: 29 3b 0a 65 78 74 65 72 6e 20 5f 5f 56 41 5f 66  );.extern __VA_f
02c0: 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 62 61 63 6b  unction callback
02d0: 5f 61 64 64 72 65 73 73 20 28 76 6f 69 64 2a 29  _address (void*)
02e0: 3b 0a 65 78 74 65 72 6e 20 76 6f 69 64 2a 20 63  ;.extern void* c
02f0: 61 6c 6c 62 61 63 6b 5f 64 61 74 61 20 28 76 6f  allback_data (vo
0300: 69 64 2a 29 3b 0a 23 65 6c 73 65 0a 23 64 65 66  id*);.#else.#def
0310: 69 6e 65 20 61 6c 6c 6f 63 5f 63 61 6c 6c 62 61  ine alloc_callba
0320: 63 6b 28 61 64 64 72 65 73 73 2c 64 61 74 61 29  ck(address,data)
0330: 20 20 5c 0a 20 20 61 6c 6c 6f 63 5f 74 72 61 6d    \.  alloc_tram
0340: 70 6f 6c 69 6e 65 5f 72 28 28 5f 5f 54 52 5f 66  poline_r((__TR_f
0350: 75 6e 63 74 69 6f 6e 29 26 5f 5f 76 61 63 61 6c  unction)&__vacal
0360: 6c 5f 72 2c 28 76 6f 69 64 2a 29 28 5f 5f 56 41  l_r,(void*)(__VA
0370: 5f 66 75 6e 63 74 69 6f 6e 29 28 61 64 64 72 65  _function)(addre
0380: 73 73 29 2c 28 76 6f 69 64 2a 29 28 64 61 74 61  ss),(void*)(data
0390: 29 29 0a 23 64 65 66 69 6e 65 20 66 72 65 65 5f  )).#define free_
03a0: 63 61 6c 6c 62 61 63 6b 28 66 75 6e 63 74 69 6f  callback(functio
03b0: 6e 29 20 20 5c 0a 20 20 66 72 65 65 5f 74 72 61  n)  \.  free_tra
03c0: 6d 70 6f 6c 69 6e 65 5f 72 28 66 75 6e 63 74 69  mpoline_r(functi
03d0: 6f 6e 29 0a 23 64 65 66 69 6e 65 20 69 73 5f 63  on).#define is_c
03e0: 61 6c 6c 62 61 63 6b 28 66 75 6e 63 74 69 6f 6e  allback(function
03f0: 29 20 20 5c 0a 20 20 28 69 73 5f 74 72 61 6d 70  )  \.  (is_tramp
0400: 6f 6c 69 6e 65 5f 72 28 66 75 6e 63 74 69 6f 6e  oline_r(function
0410: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  )               
0420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0430: 20 20 20 20 20 20 20 20 5c 0a 20 20 20 26 26 20          \.   && 
0440: 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 5f 61 64 64  trampoline_r_add
0450: 72 65 73 73 28 66 75 6e 63 74 69 6f 6e 29 20 3d  ress(function) =
0460: 3d 20 28 5f 5f 54 52 5f 66 75 6e 63 74 69 6f 6e  = (__TR_function
0470: 29 26 5f 5f 76 61 63 61 6c 6c 5f 72 20 5c 0a 20  )&__vacall_r \. 
0480: 20 29 0a 23 64 65 66 69 6e 65 20 63 61 6c 6c 62   ).#define callb
0490: 61 63 6b 5f 61 64 64 72 65 73 73 28 66 75 6e 63  ack_address(func
04a0: 74 69 6f 6e 29 20 20 5c 0a 20 20 28 5f 5f 56 41  tion)  \.  (__VA
04b0: 5f 66 75 6e 63 74 69 6f 6e 29 74 72 61 6d 70 6f  _function)trampo
04c0: 6c 69 6e 65 5f 72 5f 64 61 74 61 30 28 66 75 6e  line_r_data0(fun
04d0: 63 74 69 6f 6e 29 0a 23 64 65 66 69 6e 65 20 63  ction).#define c
04e0: 61 6c 6c 62 61 63 6b 5f 64 61 74 61 28 66 75 6e  allback_data(fun
04f0: 63 74 69 6f 6e 29 20 20 5c 0a 20 20 74 72 61 6d  ction)  \.  tram
0500: 70 6f 6c 69 6e 65 5f 72 5f 64 61 74 61 31 28 66  poline_r_data1(f
0510: 75 6e 63 74 69 6f 6e 29 0a 23 65 6e 64 69 66 0a  unction).#endif.
0520: 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 43 41 4c 4c  .#endif /* _CALL
0530: 42 41 43 4b 5f 48 20 2a 2f 0a                    BACK_H */.