mirror of
https://github.com/cookiengineer/audacity
synced 2025-12-08 09:36:24 +01:00
Move library tree where it belongs
This commit is contained in:
ra
215
lib-src/libnyquist/nyquist/xlisp/xldmem.h
Normal file
215
lib-src/libnyquist/nyquist/xlisp/xldmem.h
Normal file
@@ -0,0 +1,215 @@
|
||||
/* xldmem.h - dynamic memory definitions */
|
||||
/* Copyright (c) 1987, by David Michael Betz
|
||||
All Rights Reserved
|
||||
Permission is granted for unrestricted non-commercial use */
|
||||
|
||||
/* small fixnum range */
|
||||
#define SFIXMIN (-128)
|
||||
#define SFIXMAX 255
|
||||
#define SFIXSIZE 384
|
||||
|
||||
/* character range */
|
||||
#define CHARMIN 0
|
||||
#define CHARMAX 255
|
||||
#define CHARSIZE 256
|
||||
|
||||
/* new node access macros */
|
||||
#define ntype(x) ((x)->n_type)
|
||||
|
||||
/* cons access macros */
|
||||
#define car(x) ((x)->n_car)
|
||||
#define cdr(x) ((x)->n_cdr)
|
||||
#define rplaca(x,y) ((x)->n_car = (y))
|
||||
#define rplacd(x,y) ((x)->n_cdr = (y))
|
||||
|
||||
/* symbol access macros */
|
||||
#define getvalue(x) ((x)->n_vdata[0])
|
||||
#define setvalue(x,v) ((x)->n_vdata[0] = (v))
|
||||
#define getfunction(x) ((x)->n_vdata[1])
|
||||
#define setfunction(x,v) ((x)->n_vdata[1] = (v))
|
||||
#define getplist(x) ((x)->n_vdata[2])
|
||||
#define setplist(x,v) ((x)->n_vdata[2] = (v))
|
||||
#define getpname(x) ((x)->n_vdata[3])
|
||||
#define setpname(x,v) ((x)->n_vdata[3] = (v))
|
||||
#define SYMSIZE 4
|
||||
|
||||
/* closure access macros */
|
||||
#define getname(x) ((x)->n_vdata[0])
|
||||
#define setname(x,v) ((x)->n_vdata[0] = (v))
|
||||
#define gettype(x) ((x)->n_vdata[1])
|
||||
#define settype(x,v) ((x)->n_vdata[1] = (v))
|
||||
#define getargs(x) ((x)->n_vdata[2])
|
||||
#define setargs(x,v) ((x)->n_vdata[2] = (v))
|
||||
#define getoargs(x) ((x)->n_vdata[3])
|
||||
#define setoargs(x,v) ((x)->n_vdata[3] = (v))
|
||||
#define getrest(x) ((x)->n_vdata[4])
|
||||
#define setrest(x,v) ((x)->n_vdata[4] = (v))
|
||||
#define getkargs(x) ((x)->n_vdata[5])
|
||||
#define setkargs(x,v) ((x)->n_vdata[5] = (v))
|
||||
#define getaargs(x) ((x)->n_vdata[6])
|
||||
#define setaargs(x,v) ((x)->n_vdata[6] = (v))
|
||||
#define getbody(x) ((x)->n_vdata[7])
|
||||
#define setbody(x,v) ((x)->n_vdata[7] = (v))
|
||||
/* use closure_getenv to avoid Unix getenv conflict */
|
||||
#define closure_getenv(x) ((x)->n_vdata[8])
|
||||
#define setenv(x,v) ((x)->n_vdata[8] = (v))
|
||||
#define getfenv(x) ((x)->n_vdata[9])
|
||||
#define setfenv(x,v) ((x)->n_vdata[9] = (v))
|
||||
#define getlambda(x) ((x)->n_vdata[10])
|
||||
#define setlambda(x,v) ((x)->n_vdata[10] = (v))
|
||||
#define CLOSIZE 11
|
||||
|
||||
/* vector access macros */
|
||||
#define getsize(x) ((x)->n_vsize)
|
||||
#define getelement(x,i) ((x)->n_vdata[i])
|
||||
#define setelement(x,i,v) ((x)->n_vdata[i] = (v))
|
||||
|
||||
/* object access macros */
|
||||
#define getclass(x) ((x)->n_vdata[0])
|
||||
#define getivar(x,i) ((x)->n_vdata[i+1])
|
||||
#define setivar(x,i,v) ((x)->n_vdata[i+1] = (v))
|
||||
|
||||
/* subr/fsubr access macros */
|
||||
#define getsubr(x) ((x)->n_subr)
|
||||
#define getoffset(x) ((x)->n_offset)
|
||||
|
||||
/* fixnum/flonum/char access macros */
|
||||
#define getfixnum(x) ((x)->n_fixnum)
|
||||
#define getflonum(x) ((x)->n_flonum)
|
||||
#define getchcode(x) ((x)->n_chcode)
|
||||
|
||||
/* string access macros */
|
||||
#define getstring(x) ((x)->n_string)
|
||||
#define getslength(x) ((x)->n_strlen)
|
||||
|
||||
/* file stream access macros */
|
||||
#define getfile(x) ((x)->n_fp)
|
||||
#define setfile(x,v) ((x)->n_fp = (v))
|
||||
#define getsavech(x) ((x)->n_savech)
|
||||
#define setsavech(x,v) ((x)->n_savech = (v))
|
||||
|
||||
/* unnamed stream access macros */
|
||||
#define gethead(x) ((x)->n_car)
|
||||
#define sethead(x,v) ((x)->n_car = (v))
|
||||
#define gettail(x) ((x)->n_cdr)
|
||||
#define settail(x,v) ((x)->n_cdr = (v))
|
||||
|
||||
/* extern access macros */
|
||||
#define getdesc(x) ((x)->n_desc)
|
||||
#define setdesc(x,d) ((x)->n_desc = (d))
|
||||
#define getinst(x) ((x)->n_inst)
|
||||
#define setinst(x,i) ((x)->n_inst = (i))
|
||||
|
||||
/* node types */
|
||||
#define FREE_NODE 0
|
||||
#define SUBR 1
|
||||
#define FSUBR 2
|
||||
#define CONS 3
|
||||
#define SYMBOL 4
|
||||
#define FIXNUM 5
|
||||
#define FLONUM 6
|
||||
#define STRING 7
|
||||
#define OBJECT 8
|
||||
#define STREAM 9
|
||||
#define VECTOR 10
|
||||
#define CLOSURE 11
|
||||
#define CHAR 12
|
||||
#define USTREAM 13
|
||||
#define EXTERN 14
|
||||
|
||||
/* node flags */
|
||||
#define WATCH 4
|
||||
|
||||
/* subr/fsubr node */
|
||||
#define n_subr n_info.n_xsubr.xs_subr
|
||||
#define n_offset n_info.n_xsubr.xs_offset
|
||||
|
||||
/* cons node */
|
||||
#define n_car n_info.n_xcons.xc_car
|
||||
#define n_cdr n_info.n_xcons.xc_cdr
|
||||
|
||||
/* fixnum node */
|
||||
#define n_fixnum n_info.n_xfixnum.xf_fixnum
|
||||
|
||||
/* flonum node */
|
||||
#define n_flonum n_info.n_xflonum.xf_flonum
|
||||
/* character node */
|
||||
#define n_chcode n_info.n_xchar.xc_chcode
|
||||
|
||||
/* string node */
|
||||
#define n_string n_info.n_xstring.xs_string
|
||||
#define n_strlen n_info.n_xstring.xs_length
|
||||
|
||||
/* stream node */
|
||||
#define n_fp n_info.n_xstream.xs_fp
|
||||
#define n_savech n_info.n_xstream.xs_savech
|
||||
|
||||
/* vector/object node */
|
||||
#define n_vsize n_info.n_xvector.xv_size
|
||||
#define n_vdata n_info.n_xvector.xv_data
|
||||
|
||||
/* extern node */
|
||||
#define n_desc n_info.n_xextern.xe_desc
|
||||
#define n_inst n_info.n_xextern.xe_inst
|
||||
|
||||
/* xtype_desc structure */
|
||||
typedef struct xtype_desc_struct {
|
||||
char *type_name;
|
||||
struct node *type_symbol;
|
||||
void (*free_meth)();
|
||||
void (*print_meth)();
|
||||
void (*save_meth)();
|
||||
unsigned char * (*restore_meth)();
|
||||
void (*mark_meth)();
|
||||
} *xtype_desc;
|
||||
|
||||
/* node structure */
|
||||
typedef struct node {
|
||||
char n_type; /* type of node */
|
||||
char n_flags; /* flag bits */
|
||||
union ninfo { /* value */
|
||||
struct xsubr { /* subr/fsubr node */
|
||||
struct node *(*xs_subr)(void); /* function pointer */
|
||||
int xs_offset; /* offset into funtab */
|
||||
} n_xsubr;
|
||||
struct xcons { /* cons node */
|
||||
struct node *xc_car; /* the car pointer */
|
||||
struct node *xc_cdr; /* the cdr pointer */
|
||||
} n_xcons;
|
||||
struct xfixnum { /* fixnum node */
|
||||
FIXTYPE xf_fixnum; /* fixnum value */
|
||||
} n_xfixnum;
|
||||
struct xflonum { /* flonum node */
|
||||
FLOTYPE xf_flonum; /* flonum value */
|
||||
} n_xflonum;
|
||||
struct xchar { /* character node */
|
||||
int xc_chcode; /* character code */
|
||||
} n_xchar;
|
||||
struct xstring { /* string node */
|
||||
int xs_length; /* string length */
|
||||
unsigned char *xs_string; /* string pointer */
|
||||
} n_xstring;
|
||||
struct xstream { /* stream node */
|
||||
FILE *xs_fp; /* the file pointer */
|
||||
int xs_savech; /* lookahead character */
|
||||
} n_xstream;
|
||||
struct xvector { /* vector/object/symbol/structure node */
|
||||
int xv_size; /* vector size */
|
||||
struct node **xv_data; /* vector data */
|
||||
} n_xvector;
|
||||
struct xextern { /* external data type */
|
||||
struct xtype_desc_struct *xe_desc; /* ptr to type descriptor */
|
||||
unsigned char *xe_inst; /* pointer to external data */
|
||||
} n_xextern;
|
||||
} n_info;
|
||||
} *LVAL;
|
||||
|
||||
/* memory segment structure definition */
|
||||
typedef struct segment {
|
||||
int sg_size;
|
||||
struct segment *sg_next;
|
||||
struct node sg_nodes[1];
|
||||
} SEGMENT;
|
||||
|
||||
extern xtype_desc create_desc(); /* initialize a type descriptor */
|
||||
|
||||
Reference in New Issue
Block a user