/
rmathffi.h.in
42 lines (29 loc) · 1.3 KB
/
rmathffi.h.in
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#include "urweb/urweb.h"
divert(`-1')dnl
define(`TYPE',`dnl
ifelse($1,int,uw_Basis_int,
$1,double,uw_Basis_float,
$1)')
define(`CONSTANT',`// constant $2 defined in urweb code')
define(`FUNCTION0',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context);')
define(`FUNCTION1',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context ctx, TYPE($3) $4);')
define(`FUNCTION2',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context ctx, TYPE($3) $4, TYPE($5) $6);')
define(`FUNCTION3',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context ctx, TYPE($3) $4, TYPE($5) $6, TYPE($7) $8);')
define(`FUNCTION4',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context ctx, TYPE($3) $4, TYPE($5) $6, TYPE($7) $8, TYPE($9) $10);')
define(`FUNCTION5',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context ctx, TYPE($3) $4, TYPE($5) $6, TYPE($7) $8, TYPE($9) $10, TYPE($11) $12);')
define(`FUNCTION6',`// $1
uw_Basis_float uw_Rmathffi_$2(uw_context ctx, TYPE($3) $4, TYPE($5) $6, TYPE($7) $8, TYPE($9) $10, TYPE($11) $12, TYPE($13) $14);')
divert(`1')dnl
include(`rmath-template.m4')dnl
// imax2(x,y)
uw_Basis_int uw_Rmathffi_imax2(uw_context ctx, uw_Basis_int x, uw_Basis_int y);
// imin2(x,y)
uw_Basis_int uw_Rmathffi_imin2(uw_context ctx, uw_Basis_int x, uw_Basis_int y);
// set_seed(x,y)
uw_Basis_unit uw_Rmathffi_set_seed(uw_context ctx, uw_Basis_int x, uw_Basis_int y);