ftp.nice.ch/pub/next/developer/languages/lisp/gcl.2.2-LISP.I.bs.tar.gz#/gcl-2.2/o/before_init.c

This is before_init.c in view mode; [Download] [Up]

#include "all.h"
#include "funlink.h"
#define SI 0
#define LISP 1
#define KEYWORD 2

#define NONE 0

void SI_makefun(),LISP_makefun(),error();

#define MAKEFUN(pack,string,fname,argd) \
  (pack == SI ? SI_makefun : pack == LISP ? LISP_makefun : error)(string,fname,argd)

#undef DEFUN
#define DEFUN(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56) \
  {extern ret fname(); \
     MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}

#undef DEFUNO
#define DEFUNO(string,ret,fname,pack,min,max, flags, ret0a0,a12,a34,a56,old) \
  {extern ret fname(); \
     MAKEFUN(pack,string,fname,F_ARGD(min,max,flags,ARGTYPES(ret0a0,a12,a34,a56)));}

#undef DEFCOMP
#define DEFCOMP(type, fun) Ineed_in_image(fun);


#undef DEFVAR
#define DEFVAR(name,cname,pack,val) \
 { extern obj cname; \
   cname = (pack == LISP ? make_special(name,val) : \
	   pack == SI ?  make_si_special(name,val): \
	   (error(name,val),(obj)0));}

#undef DEFCONST
#define DEFCONST(name,cname,pack,val) \
 { extern obj cname; \
   cname = (pack == LISP ? make_constant(name,val) : \
	   pack == SI ?  make_si_constant(name,val): \
	   (error(name,val),(obj)0));}


#undef DEF_ORDINARY
#define DEF_ORDINARY(name,cname,pack) \
   { extern obj cname ; cname = (pack == LISP ? make_ordinary(name) : \
	   pack == SI ?  make_si_ordinary(name): \
	   pack == KEYWORD ?  make_keyword(name): \
				 (error(name),(obj)0));} 


#undef DEF_INIT
#define DEF_INIT(x) x

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.