This is compbas2.h in view mode; [Download] [Up]
/* if already mp.h has been included skip */
typedef plong *GEN1;
/* if genpari.h not loaded */
#ifndef MAXBLOC
typedef plong *GEN;
GEN1 addii(),mulii(),mulsi(),powerii(),shifti(),stoi(),dvmdii(),subii();
int cmpii();
plong itos();
#define signe(x) (((GEN1)(x))[1]>>24)
#define lg(x) (((GEN1)(x))[0]&0xffff)
#define setlg(x,s) (((GEN1)(x))[0]=(((GEN1)(x))[0]&0xffff0000)+s)
#define lgef(x) (((GEN1)(x))[1]&0xffff)
#define setlgef(x,s) (((GEN1)(x))[1]=(((GEN1)(x))[1]&0xffff0000)+s)
#define our_ulong unsigned plong
#endif /* end MAXBLOC */
EXTER int in_saved_avma ;
EXTER unsigned plong avma;
EXTER GEN1 gzero;
EXTER GEN1 icopy_x;
/* #define DEBUG_AVMA */
#ifdef DEBUG_AVMA
#define save_avma long lvma = (in_saved_avma = 1, avma)
#define restore_avma avma = (in_saved_avma = 0, lvma)
#else
#define save_avma long lvma = avma
#define restore_avma avma = lvma
#endif
/* copy x to y, increasing space by factor of 2 */
object make_integer();
#define Mcar(x) (x)->c.c_car
#define Mcdr(x) (x)->c.c_cdr
#define Mcaar(x) (x)->c.c_car->c.c_car
#define Mcadr(x) (x)->c.c_cdr->c.c_car
#define Mcdar(x) (x)->c.c_car->c.c_cdr
#define Mcddr(x) (x)->c.c_cdr->c.c_cdr
#define Mcaaar(x) (x)->c.c_car->c.c_car->c.c_car
#define Mcaadr(x) (x)->c.c_cdr->c.c_car->c.c_car
#define Mcadar(x) (x)->c.c_car->c.c_cdr->c.c_car
#define Mcaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car
#define Mcdaar(x) (x)->c.c_car->c.c_car->c.c_cdr
#define Mcdadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr
#define Mcddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr
#define Mcdddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr
#define Mcaaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_car
#define Mcaaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_car
#define Mcaadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_car
#define Mcaaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_car
#define Mcadaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_car
#define Mcadadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_car
#define Mcaddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_car
#define Mcadddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car
#define Mcdaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_cdr
#define Mcdaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_cdr
#define Mcdadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_cdr
#define Mcdaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr
#define Mcddaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_cdr
#define Mcddadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr
#define Mcdddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_cdr
#define Mcddddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr
/* for cmp */
#define CMPcar(x) (x)->c.c_car
#define CMPcdr(x) (x)->c.c_cdr
#define CMPcaar(x) (x)->c.c_car->c.c_car
#define CMPcadr(x) (x)->c.c_cdr->c.c_car
#define CMPcdar(x) (x)->c.c_car->c.c_cdr
#define CMPcddr(x) (x)->c.c_cdr->c.c_cdr
#define CMPcaaar(x) (x)->c.c_car->c.c_car->c.c_car
#define CMPcaadr(x) (x)->c.c_cdr->c.c_car->c.c_car
#define CMPcadar(x) (x)->c.c_car->c.c_cdr->c.c_car
#define CMPcaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car
#define CMPcdaar(x) (x)->c.c_car->c.c_car->c.c_cdr
#define CMPcdadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr
#define CMPcddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr
#define CMPcdddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr
#define CMPcaaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_car
#define CMPcaaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_car
#define CMPcaadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_car
#define CMPcaaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_car
#define CMPcadaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_car
#define CMPcadadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_car
#define CMPcaddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_car
#define CMPcadddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car
#define CMPcdaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_cdr
#define CMPcdaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_cdr
#define CMPcdadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_cdr
#define CMPcdaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr
#define CMPcddaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_cdr
#define CMPcddadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr
#define CMPcdddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_cdr
#define CMPcddddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr
#define CMPfuncall funcall
#define Creturn(v) return((vs_top=vs,(v)))
/* end for cmp*/
/* 2^6 is the limit on the number of args */
#define F_NARG_WIDTH 6
#define F_START_TYPES_POS (2* F_NARG_WIDTH + F_end )
enum F_arg_flags
{ F_requires_nargs, /* if set, then caller must store VFUN_NARGS with number
of args passed. F_ARGD is used to set up the argd,
and it sets this if minargs < maxargs. */
F_caller_sets_one_val, /* If set, then the CALLER will look after setting the
fcall.nvalues to 1, if necessary (eg the call is at the
end of a function, or if multiple-values-list invokes
the function.) If foo is proclaimed to return exactly
one value, then the CALLER might set this flag in the
link argd, or it might do it in the case we have (setq
x (foo)) or (values (foo)).
If this flag is not set, then the CALLED function is
responsible for setting the number of values in
fcall.nvalues, and also for always returning as C value
Cnil, in the case that it sets fcall.nvalues == 0. */
F_requires_fun_passed, /* if set, the caller must set VFUN_FUN to the
calling function. This is used by closures, but
could be used by other things i suppose. */
F_end /* 1 bigger than the largest flag */
};
enum F_arg_types
{ F_object,
F_int,
F_double_ptr,
F_shortfloat
};
/* Make a mask for bits i < j, masking j-i bits */
#define MASK_RANGE(i,j) ((~(~0 << (j-i)))<< i)
#define F_PLAIN(x) (((x) & MASK_RANGE( F_START_TYPES_POS,31)) == 0)
#define ARG_LIMIT 63
EXTER object MVloc[10];
#define TYPEP(x,t) (type_of(x) == (t))
#ifdef HAVE_ALLOCA
#ifndef alloca
char *alloca();
#endif
EXTER char *alloca_val;
#define OUR_ALLOCA(n) alloca(n)
#define ALLOCA_FREE(n)
#define ALLOCA_CONS(n) (alloca_val=alloca((n)*sizeof(struct cons)))
#define ON_STACK_CONS(x,y) (alloca_val=alloca(sizeof(struct cons)), on_stack_cons(x,y))
#define ON_STACK_LIST on_stack_list
#define ON_STACK_LIST_VECTOR on_stack_list_vector
#define ON_STACK_MAKE_LIST on_stack_make_list
object on_stack_cons();
object on_stack_list();
object on_stack_list_vector();
object on_stack_make_list();
#else /* no HAVE_ALLOCA */
#define OUR_ALLOCA(n) malloc(n)
#define ALLOCA_FREE(n) free(n)
#define ALLOCA_CONS(n) 0
#define ON_STACK_CONS(x,y) MMcons(x,y)
#define ON_STACK_LIST list
#define ON_STACK_LIST_VECTOR list_vector
#define ON_STACK_MAKE_LIST make_list
#endif
#ifndef KEYTYPE
#define KEYTYPE void *
#endif
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.