/[gcl]/gcl/h/notcomp.h
ViewVC logotype

Diff of /gcl/h/notcomp.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.13 by camm, Sun Feb 9 22:35:15 2003 UTC
# Line 76  void old(void) \ Line 76  void old(void) \
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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26