Artifact
d6a2062451c32f60f4511439cf838350310f757a:
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 20 42 72 75 6e 6f 20 48 61 69 62 6c 65 2c 99 Bruno Haible,
0050: 20 3c 62 72 75 6e 6f 40 63 6c 69 73 70 2e 6f 72 <bruno@clisp.or
0060: 67 3e 0a 20 2a 0a 20 2a 20 54 68 69 73 20 69 73 g>. *. * This is
0070: 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 20 64 free software d
0080: 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 65 72 istributed under
0090: 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c the GNU General
00a0: 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 63 65 0a Public Licence.
00b0: 20 2a 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 * described in
00c0: 74 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 the file COPYING
00d0: 2e 20 43 6f 6e 74 61 63 74 20 74 68 65 20 61 75 . Contact the au
00e0: 74 68 6f 72 20 69 66 20 79 6f 75 20 64 6f 6e 27 thor if you don'
00f0: 74 20 68 61 76 65 20 74 68 69 73 0a 20 2a 20 6f t have this. * o
0100: 72 20 63 61 6e 27 74 20 6c 69 76 65 20 77 69 74 r can't live wit
0110: 68 20 69 74 2e 20 54 68 65 72 65 20 69 73 20 41 h it. There is A
0120: 42 53 4f 4c 55 54 45 4c 59 20 4e 4f 20 57 41 52 BSOLUTELY NO WAR
0130: 52 41 4e 54 59 2c 20 65 78 70 6c 69 63 69 74 20 RANTY, explicit
0140: 6f 72 20 69 6d 70 6c 69 65 64 2c 0a 20 2a 20 6f or implied,. * o
0150: 6e 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 2e n this software.
0160: 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 . */..#include "
0170: 76 61 63 61 6c 6c 5f 72 2e 68 22 0a 23 69 6e 63 vacall_r.h".#inc
0180: 6c 75 64 65 20 22 74 72 61 6d 70 6f 6c 69 6e 65 lude "trampoline
0190: 5f 72 2e 68 22 0a 0a 23 69 66 20 64 65 66 69 6e _r.h"..#if defin
01a0: 65 64 28 5f 5f 53 54 44 43 5f 5f 29 20 7c 7c 20 ed(__STDC__) ||
01b0: 64 65 66 69 6e 65 64 28 5f 5f 47 4e 55 43 5f 5f defined(__GNUC__
01c0: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f 63 ) || defined(__c
01d0: 70 6c 75 73 70 6c 75 73 29 0a 74 79 70 65 64 65 plusplus).typede
01e0: 66 20 76 6f 69 64 20 28 2a 5f 5f 56 41 5f 66 75 f void (*__VA_fu
01f0: 6e 63 74 69 6f 6e 29 20 28 76 6f 69 64 2a 2c 20 nction) (void*,
0200: 76 61 5f 61 6c 69 73 74 29 3b 0a 23 65 6c 73 65 va_alist);.#else
0210: 0a 74 79 70 65 64 65 66 20 76 6f 69 64 20 28 2a .typedef void (*
0220: 5f 5f 56 41 5f 66 75 6e 63 74 69 6f 6e 29 20 28 __VA_function) (
0230: 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 20 30 );.#endif..#if 0
0240: 0a 65 78 74 65 72 6e 20 5f 5f 54 52 5f 66 75 6e .extern __TR_fun
0250: 63 74 69 6f 6e 20 61 6c 6c 6f 63 5f 63 61 6c 6c ction alloc_call
0260: 62 61 63 6b 20 28 5f 5f 56 41 5f 66 75 6e 63 74 back (__VA_funct
0270: 69 6f 6e 2c 20 76 6f 69 64 2a 29 3b 0a 65 78 74 ion, void*);.ext
0280: 65 72 6e 20 76 6f 69 64 20 66 72 65 65 5f 63 61 ern void free_ca
0290: 6c 6c 62 61 63 6b 20 28 5f 5f 54 52 5f 66 75 6e llback (__TR_fun
02a0: 63 74 69 6f 6e 29 3b 0a 65 78 74 65 72 6e 20 69 ction);.extern i
02b0: 6e 74 20 69 73 5f 63 61 6c 6c 62 61 63 6b 20 28 nt is_callback (
02c0: 76 6f 69 64 2a 29 3b 0a 65 78 74 65 72 6e 20 5f void*);.extern _
02d0: 5f 56 41 5f 66 75 6e 63 74 69 6f 6e 20 63 61 6c _VA_function cal
02e0: 6c 62 61 63 6b 5f 61 64 64 72 65 73 73 20 28 76 lback_address (v
02f0: 6f 69 64 2a 29 3b 0a 65 78 74 65 72 6e 20 76 6f oid*);.extern vo
0300: 69 64 2a 20 63 61 6c 6c 62 61 63 6b 5f 64 61 74 id* callback_dat
0310: 61 20 28 76 6f 69 64 2a 29 3b 0a 23 65 6c 73 65 a (void*);.#else
0320: 0a 23 64 65 66 69 6e 65 20 61 6c 6c 6f 63 5f 63 .#define alloc_c
0330: 61 6c 6c 62 61 63 6b 28 61 64 64 72 65 73 73 2c allback(address,
0340: 64 61 74 61 29 20 20 5c 0a 20 20 61 6c 6c 6f 63 data) \. alloc
0350: 5f 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 28 28 5f _trampoline_r((_
0360: 5f 54 52 5f 66 75 6e 63 74 69 6f 6e 29 26 5f 5f _TR_function)&__
0370: 76 61 63 61 6c 6c 5f 72 2c 28 76 6f 69 64 2a 29 vacall_r,(void*)
0380: 28 5f 5f 56 41 5f 66 75 6e 63 74 69 6f 6e 29 28 (__VA_function)(
0390: 61 64 64 72 65 73 73 29 2c 28 76 6f 69 64 2a 29 address),(void*)
03a0: 28 64 61 74 61 29 29 0a 23 64 65 66 69 6e 65 20 (data)).#define
03b0: 66 72 65 65 5f 63 61 6c 6c 62 61 63 6b 28 66 75 free_callback(fu
03c0: 6e 63 74 69 6f 6e 29 20 20 5c 0a 20 20 66 72 65 nction) \. fre
03d0: 65 5f 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 28 66 e_trampoline_r(f
03e0: 75 6e 63 74 69 6f 6e 29 0a 23 64 65 66 69 6e 65 unction).#define
03f0: 20 69 73 5f 63 61 6c 6c 62 61 63 6b 28 66 75 6e is_callback(fun
0400: 63 74 69 6f 6e 29 20 20 5c 0a 20 20 28 69 73 5f ction) \. (is_
0410: 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 28 66 75 6e trampoline_r(fun
0420: 63 74 69 6f 6e 29 20 20 20 20 20 20 20 20 20 20 ction)
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0440: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 \.
0450: 20 20 26 26 20 74 72 61 6d 70 6f 6c 69 6e 65 5f && trampoline_
0460: 72 5f 61 64 64 72 65 73 73 28 66 75 6e 63 74 69 r_address(functi
0470: 6f 6e 29 20 3d 3d 20 28 5f 5f 54 52 5f 66 75 6e on) == (__TR_fun
0480: 63 74 69 6f 6e 29 26 5f 5f 76 61 63 61 6c 6c 5f ction)&__vacall_
0490: 72 20 5c 0a 20 20 29 0a 23 64 65 66 69 6e 65 20 r \. ).#define
04a0: 63 61 6c 6c 62 61 63 6b 5f 61 64 64 72 65 73 73 callback_address
04b0: 28 66 75 6e 63 74 69 6f 6e 29 20 20 5c 0a 20 20 (function) \.
04c0: 28 5f 5f 56 41 5f 66 75 6e 63 74 69 6f 6e 29 74 (__VA_function)t
04d0: 72 61 6d 70 6f 6c 69 6e 65 5f 72 5f 64 61 74 61 rampoline_r_data
04e0: 30 28 66 75 6e 63 74 69 6f 6e 29 0a 23 64 65 66 0(function).#def
04f0: 69 6e 65 20 63 61 6c 6c 62 61 63 6b 5f 64 61 74 ine callback_dat
0500: 61 28 66 75 6e 63 74 69 6f 6e 29 20 20 5c 0a 20 a(function) \.
0510: 20 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 5f 64 61 trampoline_r_da
0520: 74 61 31 28 66 75 6e 63 74 69 6f 6e 29 0a 23 65 ta1(function).#e
0530: 6e 64 69 66 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 ndif..#endif /*
0540: 5f 43 41 4c 4c 42 41 43 4b 5f 48 20 2a 2f 0a _CALLBACK_H */.