76 |
return;} \ |
return;} \ |
77 |
ret fname |
ret fname |
78 |
|
|
79 |
|
#define DEFUN_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,args,doc) ret fname args |
80 |
|
/* eg. |
81 |
|
A function taking from 2 to 8 args |
82 |
|
returning object the first args is object, the next 6 int, and last defaults to object. |
83 |
|
note the return type must also be put in the signature. |
84 |
|
DEFUN("AREF",object,fSaref,SI,2,8,NONE,oo,ii,ii,ii) |
85 |
|
*/ |
86 |
|
|
87 |
|
/* for defining old style */ |
88 |
|
#define DEFUNO_NEW(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,old,args,doc) \ |
89 |
|
ret fname args; \ |
90 |
|
void old(void) \ |
91 |
|
{ Iinvoke_c_function_from_value_stack((ret (*)())fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56))); \ |
92 |
|
return;} \ |
93 |
|
ret fname args |
94 |
|
|
95 |
/* these will come later */ |
/* these will come later */ |
96 |
#define DEFUNL DEFUN |
#define DEFUNL DEFUN |
97 |
/* these are needed to be linked in to be called by incrementally |
/* these are needed to be linked in to be called by incrementally |