ftp.nice.ch/pub/next/developer/languages/lisp/AKCL.1.599.s.tar.gz#/akcl-1-599/h/fasl_global.h

This is fasl_global.h in view mode; [Download] [Up]

/*
(C) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
*/

/*
	fasl global variables
*/

char	fas_io_buff[FAS_BUFF_LEN];	/* io buffer */
char	fas_table_buff[FAS_BUFF_LEN];	/* partition table */
char	fas_addr_buff[FAS_BUFF_LEN];	/* partition addr buffer */

char	*fas_buffp;			/* io buff ptr */
char	*fas_temp_buff;			/* temp buff ptr */
char	*fas_name_p, *fas_name_end;	/* symbol name */
int	fas_temp_curr, fas_temp_last;	/* temp record no */

int	fas_addr_rec_first;
int	fas_addr_rec_curr;
int	vs_base_no, vs_top_no;		/* partition no */
short	datab_rev;			/* data block rev */

int	fas_relocation_by_table;
short	max_part_no;			/* max part. number */
PART_TABLE_P	part_table_p;		/* patition table ptr */
short	*fas_rstart;			/* memory start addr */

int	(*fas_routine_addr)();		/* object init routine addr */
char	fas_routine_name[] = "init";	/* object init routine name */

#ifdef	AOSVS
short	fas_stchan = -1;		/* .st file channel */
char	fas_temp_name[] = "?000.LOADER.TMP";
#endif

#ifdef	DGUX
char	fasltemporg[] = "fasltmp.XXXXXX";
char	fasltempname[128];

FILE	*faslin;
FILE	*fasltemp;

char	*faslbuff;
char	*faslbuff1;

char	faslsymbuff[SYMBOL_TABLE_MAX][BUFSIZ];		/* symbol table */

#endif

int	fas_temp_flush;		/* flush when read in temp file */

int	fas_short_nrel;		/* short nrel area addr */
int	fas_short_end;		/* short nrel area end addr */
int	fas_short_no;		/* short nrel partition no */

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