mirror of
https://github.com/Interlisp/maiko.git
synced 2026-05-06 16:14:14 +00:00
Files should explicitly include the definitions they directly depend on (#355)
... start by fixing the include files and the fallout in C source from removing includes not directly needed by headers that previously included them.
This commit is contained in:
Nick Briggs
GitHub
@@ -1,5 +1,6 @@
|
||||
#ifndef ALLOCMDSDEFS_H
|
||||
#define ALLOCMDSDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
LispPTR initmdspage(register LispPTR *base, register DLword size, register LispPTR prev);
|
||||
LispPTR *alloc_mdspage(register short int type);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef ARITH2DEFS_H
|
||||
#define ARITH2DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_plus2(int tosm1, int tos);
|
||||
LispPTR N_OP_iplus2(int tosm1, int tos);
|
||||
LispPTR N_OP_difference(int tosm1, int tos);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef ARITH3DEFS_H
|
||||
#define ARITH3DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_makenumber(int tosm1, int tos);
|
||||
LispPTR N_OP_boxiplus(register int a, int tos);
|
||||
LispPTR N_OP_boxidiff(register int a, int tos);
|
||||
|
||||
@@ -2,9 +2,6 @@
|
||||
#define ARRAY_H 1
|
||||
/* $Id: array.h,v 1.2 1999/01/03 02:05:53 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
@@ -12,6 +9,9 @@
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "version.h" /* for BIGVM */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/********************************/
|
||||
/* Normal byte-order version */
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef ARRAY2DEFS_H
|
||||
#define ARRAY2DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_misc4(register LispPTR data, register LispPTR base, register LispPTR typenumber,
|
||||
register LispPTR inx, int alpha);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef ARRAY3DEFS_H
|
||||
#define ARRAY3DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef ARRAY4DEFS_H
|
||||
#define ARRAY4DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_aset1(register LispPTR data, LispPTR arrayarg, register int inx);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef ARRAY5DEFS_H
|
||||
#define ARRAY5DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_aref2(LispPTR arrayarg, LispPTR inx0, LispPTR inx1);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef ARRAY6DEFS_H
|
||||
#define ARRAY6DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_aset2(register LispPTR data, LispPTR arrayarg, LispPTR inx0, LispPTR inx1);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef ARRAYDEFS_H
|
||||
#define ARRAYDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha);
|
||||
#endif
|
||||
|
||||
@@ -12,6 +12,8 @@
|
||||
/* Don Charnley's bitblt code to do them. */
|
||||
/* */
|
||||
/********************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
|
||||
#if defined(SUNDISPLAY) && \
|
||||
!defined(NOPIXRECT) && \
|
||||
!defined(NEWBITBLT)
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef BINDEFS_H
|
||||
#define BINDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_bin(register int tos);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef BINDSDEFS_H
|
||||
#define BINDSDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR *N_OP_bind(register LispPTR *stack_pointer, register LispPTR tos, int byte1, int byte2);
|
||||
LispPTR *N_OP_unbind(register LispPTR *stack_pointer);
|
||||
LispPTR *N_OP_dunbind(register LispPTR *stack_pointer, register LispPTR tos);
|
||||
|
||||
@@ -10,8 +10,6 @@
|
||||
*
|
||||
*/
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* Copyright 1989, 1990 Venue, Fuji Xerox Co., Ltd, Xerox Corp. */
|
||||
@@ -20,8 +18,7 @@
|
||||
/* Agreement dated 18-August-1989 for support of Medley. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
#include "lispemul.h" /* for DLword */
|
||||
|
||||
#define REPLACE 0
|
||||
#define PAINT 2
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef BITBLTDEFS_H
|
||||
#define BITBLTDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos);
|
||||
int cursorin(DLword addrhi, DLword addrlo, int w, int h, int backward);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef BLTDEFS_H
|
||||
#define BLTDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_blt(LispPTR destptr, LispPTR sourceptr, register LispPTR wordcount);
|
||||
#endif
|
||||
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
#ifndef CAR_CDRDEFS_H
|
||||
#define CAR_CDRDEFS_H 1
|
||||
#include "cell.h"
|
||||
#include "cell.h" /* for ConsCell */
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR car(register LispPTR datum);
|
||||
LispPTR cdr(register LispPTR datum);
|
||||
LispPTR rplaca(register LispPTR x, register LispPTR y);
|
||||
|
||||
@@ -20,6 +20,8 @@
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "version.h" /* for BIGVM, NEWCDRCODING, BIGATOMS */
|
||||
|
||||
/* CONS CELL (LISTP) definitions moved to lispemulater.h */
|
||||
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef CHARDEVDEFS_H
|
||||
#define CHARDEVDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR CHAR_openfile(LispPTR *args);
|
||||
LispPTR CHAR_closefile(LispPTR *args);
|
||||
LispPTR CHAR_ioctl(LispPTR *args);
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
#ifndef CONSPAGEDEFS_H
|
||||
#define CONSPAGEDEFS_H 1
|
||||
#include "cell.h"
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
struct conspage *next_conspage(void);
|
||||
LispPTR N_OP_cons(register int cons_car, register int cons_cdr);
|
||||
LispPTR cons(LispPTR cons_car, LispPTR cons_cdr);
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
#ifndef DBGTOOLDEFS_H
|
||||
#define DBGTOOLDEFS_H 1
|
||||
#include "stack.h"
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "stack.h" /* frameex1, fnhead, FX */
|
||||
LispPTR get_ivar_name(struct frameex1 *fx_addr68k, DLword offset, int *localivar);
|
||||
LispPTR get_pvar_name(struct frameex1 *fx_addr68k, DLword offset);
|
||||
LispPTR get_fn_fvar_name(struct fnhead *fnobj, DLword offset);
|
||||
|
||||
@@ -2,16 +2,13 @@
|
||||
#define DEBUG_H 1
|
||||
/* $Id: debug.h,v 1.2 1999/01/03 02:05:56 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/************************************************/
|
||||
|
||||
@@ -2,8 +2,6 @@
|
||||
#define DEVIF_H 1
|
||||
/* $Id: devif.h,v 1.2 1999/01/03 02:05:57 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
||||
@@ -11,6 +9,7 @@
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
|
||||
typedef void (*PFV)(); /* Pointer to Function returning Void */
|
||||
typedef int (*PFI)(); /* Pointer to Function returning Int */
|
||||
@@ -23,7 +22,6 @@ typedef unsigned long (*PFUL)(); /* Pointer to Function returning an unsigned lo
|
||||
#include <X11/Xlib.h>
|
||||
#endif /* XWINDOW */
|
||||
|
||||
|
||||
typedef struct
|
||||
{
|
||||
short type; /* Type of event */
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef DIRDEFS_H
|
||||
#define DIRDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
#ifdef DOS
|
||||
int make_old_version(char *old, char *file);
|
||||
#endif
|
||||
|
||||
@@ -3,20 +3,17 @@
|
||||
|
||||
/* $Id: display.h,v 1.2 1999/01/03 02:05:57 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-94 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for DLword */
|
||||
#include "version.h" /* for UNSIGNED */
|
||||
|
||||
#define BCPLDISPLAY stdout
|
||||
|
||||
|
||||
#define CURSORWIDTH 16
|
||||
#define CURSORHEIGHT 16
|
||||
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef DLPIDEFS_H
|
||||
#define DLPIDEFS_H 1
|
||||
#include <sys/types.h> /* for u_char, u_long */
|
||||
int setup_dlpi_dev(char *device);
|
||||
void flush_dlpi(int fd);
|
||||
int dlpi_devtype(int fd);
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef DRAWDEFS_H
|
||||
#define DRAWDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
int N_OP_drawline(LispPTR ptr, int curbit, int xsize, int width, int ysize, int op, int delta, int numx, int numy);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef DSKDEFS_H
|
||||
#define DSKDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
#ifdef DOS
|
||||
void separate_host(char *lfname, char *host, char *drive);
|
||||
#else
|
||||
|
||||
@@ -2,19 +2,14 @@
|
||||
#define DSPDATA_H 1
|
||||
/* $Id: dspdata.h,v 1.2 1999/01/03 02:05:58 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "version.h" /* for BIGVM */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/******************************************************/
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef DSPSUBRSDEFS_H
|
||||
#define DSPSUBRSDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void DSP_dspbout(LispPTR *args);
|
||||
void DSP_showdisplay(LispPTR *args);
|
||||
LispPTR DSP_VideoColor(LispPTR *args);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef EQFDEFS_H
|
||||
#define EQFDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_clequal(register int arg1, register int arg2);
|
||||
LispPTR N_OP_eqlop(register int arg1, register int arg2);
|
||||
LispPTR N_OP_equal(register int arg1, register int arg2);
|
||||
|
||||
@@ -2,17 +2,13 @@
|
||||
#define ETHER_H 1
|
||||
/* $Id: ether.h,v 1.2 1999/01/03 02:05:59 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef ETHERDEFS_H
|
||||
#define ETHERDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR ether_suspend(LispPTR args[]);
|
||||
LispPTR ether_resume(LispPTR args[]);
|
||||
LispPTR ether_ctrlr(LispPTR args[]);
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef FINDKEYDEFS_H
|
||||
#define FINDKEYDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_findkey(register LispPTR tos, register int byte);
|
||||
#endif
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
#ifndef FOREIGNDEFS_H
|
||||
#define FOREIGNDEFS_H 1
|
||||
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR call_c_fn(LispPTR *args);
|
||||
LispPTR smashing_c_fn(LispPTR *args);
|
||||
int Mdld_link(LispPTR *args);
|
||||
@@ -14,5 +14,4 @@ int c_malloc(LispPTR *args);
|
||||
int c_free(LispPTR *args);
|
||||
int put_c_basebyte(LispPTR *args);
|
||||
int get_c_basebyte(LispPTR *args);
|
||||
|
||||
#endif /* FOREIGNDEFS_H */
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef FPDEFS_H
|
||||
#define FPDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2);
|
||||
LispPTR N_OP_fdifference(LispPTR parg1, LispPTR parg2);
|
||||
LispPTR N_OP_ftimes2(LispPTR parg1, LispPTR parg2);
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#ifndef FVARDEFS_H
|
||||
#define FVARDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "stack.h" /* for fnhead, frameex1 */
|
||||
LispPTR N_OP_fvarn(register int n);
|
||||
LispPTR N_OP_stkscan(LispPTR tos);
|
||||
LispPTR N_OP_fvar_(register LispPTR tos, register int n);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCARRAYDEFS_H
|
||||
#define GCARRAYDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
LispPTR aref1(LispPTR array, int index);
|
||||
LispPTR find_symbol(const char *char_base, DLword offset, DLword length, LispPTR hashtbl, DLword fatp, DLword lispp);
|
||||
LispPTR get_package_atom(const char *char_base, DLword charlen, const char *packname, DLword packlen, int externalp);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCCODEDEFS_H
|
||||
#define GCCODEDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR map_code_pointers(LispPTR codeblock, short int casep);
|
||||
LispPTR remimplicitkeyhash(LispPTR item, LispPTR ik_hash_table);
|
||||
LispPTR reclaimcodeblock(LispPTR codebase);
|
||||
|
||||
@@ -2,8 +2,6 @@
|
||||
#define GCDATA_H 1
|
||||
/* $Id: gc.h,v 1.3 2001/12/24 01:08:57 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-94 Venue. All Rights Reserved. */
|
||||
@@ -19,6 +17,9 @@
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "version.h" /* for USHORT */
|
||||
|
||||
#define ADDREF 0 /* for gclookup routine. */
|
||||
#define DELREF 1 /* for gclookup routine. */
|
||||
#define STKREF 2 /* for gclookup routine. */
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCFINALDEFS_H
|
||||
#define GCFINALDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
void printarrayblock(LispPTR base);
|
||||
int integerlength(unsigned int n);
|
||||
LispPTR findptrsbuffer(LispPTR ptr);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCHTFINDDEFS_H
|
||||
#define GCHTFINDDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
void enter_big_reference_count(LispPTR ptr);
|
||||
void modify_big_reference_count(LispPTR *entry, DLword casep, LispPTR ptr);
|
||||
LispPTR htfind(LispPTR ptr, int casep);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCMAIN3DEFS_H
|
||||
#define GCMAIN3DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR gcmapscan(void);
|
||||
LispPTR gcmapscan(void);
|
||||
LispPTR gcmapunscan(void);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCOFLOWDEFS_H
|
||||
#define GCOFLOWDEFS_H 1
|
||||
#include "lispemul.h" /* for DLword */
|
||||
DLword gc_handleoverflow(DLword arg);
|
||||
DLword gcmaptable(DLword arg);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCRCELLDEFS_H
|
||||
#define GCRCELLDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void freelistcell(LispPTR cell);
|
||||
LispPTR gcreccell(LispPTR cell);
|
||||
void freelistcell(LispPTR cell);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GCSCANDEFS_H
|
||||
#define GCSCANDEFS_H 1
|
||||
#include "lispemul.h" /* for DLword */
|
||||
DLword gcscan1(register int probe);
|
||||
DLword gcscan2(register int probe);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef GVAR2DEFS_H
|
||||
#define GVAR2DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_gvar_(register LispPTR tos, unsigned int atom_index);
|
||||
LispPTR N_OP_rplptr(register LispPTR tos_m_1, register LispPTR tos, unsigned int alpha);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef HARDRTNDEFS_H
|
||||
#define HARDRTNDEFS_H 1
|
||||
#include "stack.h" /* for FX */
|
||||
int slowreturn(void);
|
||||
void incusecount68k(FX *fx68k);
|
||||
#endif
|
||||
|
||||
@@ -2,17 +2,14 @@
|
||||
#define IFPAGE_H 1
|
||||
/* $Id: ifpage.h,v 1.2 1999/01/03 02:06:01 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "version.h" /* for BIGVM */
|
||||
|
||||
#define IFPAGE_KEYVAL 0x15e3
|
||||
#ifndef BYTESWAP
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef INETDEFS_H
|
||||
#define INETDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, LispPTR bufaddr, LispPTR maxlen);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#ifndef INITDSPDEFS_H
|
||||
#define INITDSPDEFS_H 1
|
||||
#include "lispemul.h" /* for DLword */
|
||||
#include "version.h" /* for UNSIGNED */
|
||||
void init_cursor(void);
|
||||
void set_cursor(void);
|
||||
void clear_display(void);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef INITSOUTDEFS_H
|
||||
#define INITSOUTDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR *fixp_value(LispPTR *ptr);
|
||||
void init_ifpage(int sysout_size);
|
||||
void init_iopage(void);
|
||||
|
||||
@@ -2,15 +2,14 @@
|
||||
#define IOPAGE_H 1
|
||||
/* $Id: iopage.h,v 1.2 1999/01/03 02:06:06 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for DLword */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/* Normal definition, for big-endian machines */
|
||||
typedef struct iopage {
|
||||
|
||||
@@ -2,10 +2,6 @@
|
||||
#define KBDIF_H 1
|
||||
/* $Id: kbdif.h,v 1.2 1999/01/03 02:06:06 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
||||
@@ -13,7 +9,7 @@
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include <sys/types.h> /* for u_char */
|
||||
|
||||
/* The Keyboard structure. */
|
||||
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef KBDSUBRSDEFS_H
|
||||
#define KBDSUBRSDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void KB_enable(LispPTR *args);
|
||||
void KB_beep(LispPTR *args);
|
||||
void KB_setmp(LispPTR *args);
|
||||
|
||||
@@ -2,18 +2,15 @@
|
||||
#define KEYBOARD_H 1
|
||||
/* $Id: keyboard.h,v 1.2 1999/01/03 02:06:06 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
/** Header File for K/B MOUSE */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h" /* for DLword */
|
||||
|
||||
#define MOUSE_LEFT 13
|
||||
#define MOUSE_MIDDLE 15
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef KEYEVENTDEFS_H
|
||||
#define KEYEVENTDEFS_H 1
|
||||
#include <sys/types.h>
|
||||
void getsignaldata(int sig);
|
||||
void kb_trans(u_short keycode, u_short upflg);
|
||||
void taking_mouse_down(void);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef KPRINTDEFS_H
|
||||
#define KPRINTDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void prindatum(LispPTR x);
|
||||
LispPTR print(LispPTR x);
|
||||
void print_NEWstring(LispPTR x);
|
||||
|
||||
@@ -5,8 +5,6 @@
|
||||
|
||||
/* * * * * X defs for all files in Medley * * * * */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
@@ -14,8 +12,6 @@
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
#include <signal.h>
|
||||
#ifdef LOCK_X_UPDATES
|
||||
#define XLOCK { XLocked++; /* printf("L"); fflush(stdout);*/}
|
||||
#define XUNLOCK \
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
#ifndef LINEBLT8DEFS_H
|
||||
#define LINEBLT8DEFS_H 1
|
||||
#include <sys/types.h> /* for u_char */
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
void lineBlt8(DLword *srcbase, register int offset, register u_char *destl, register int width,
|
||||
u_char color0, u_char color1, LispPTR sourcetype, LispPTR operation);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef LISP2CDEFS_H
|
||||
#define LISP2CDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
int LispStringP(LispPTR object);
|
||||
int LispStringLength(LispPTR lispstring);
|
||||
void LispStringToCStr(LispPTR lispstring, char *cstring);
|
||||
|
||||
@@ -9,6 +9,7 @@
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "version.h" /* for BIGVM, BIGATOMS, UNSIGNED, UNALIGNED_FETCH_OK */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/*** Normal byte-order type decls */
|
||||
@@ -329,15 +330,6 @@ extern struct state MachineState;
|
||||
#define Scratch_CSTK (MState->scratch_cstk)
|
||||
#define Error_Exit (MState->errorexit)
|
||||
|
||||
/* Typedef for IFPAGE */
|
||||
#include "ifpage.h"
|
||||
|
||||
/* Typedef for IOPAGE */
|
||||
#include "iopage.h"
|
||||
|
||||
/* Typedef for MISCSTAT */
|
||||
#include "miscstat.h"
|
||||
|
||||
/****************************************************
|
||||
MakeAddr:
|
||||
base: DLword*
|
||||
@@ -442,8 +434,6 @@ DOSTACKOVERFLOW(argnum,bytenum) if it needs hardreturn-cleanup
|
||||
/************************************************************************/
|
||||
/* All external functions defined in xxx.c now declared in xxxdefs.h */
|
||||
|
||||
#include <stdlib.h>
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* E R R O R & T I M E R P U N T C A S E S */
|
||||
@@ -519,8 +509,10 @@ DOSTACKOVERFLOW(argnum,bytenum) if it needs hardreturn-cleanup
|
||||
|
||||
#define MAXPNCHARS 255 /* Maximum length of PnChars */
|
||||
|
||||
#ifndef FALSE
|
||||
#define FALSE 0
|
||||
#define TRUE !FALSE
|
||||
#endif
|
||||
|
||||
typedef unsigned int boolean;
|
||||
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef LLCOLORDEFS_H
|
||||
#define LLCOLORDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR cgfour_init_color_display(LispPTR color_bitmapbase);
|
||||
LispPTR cgfour_change_screen_mode(LispPTR which_screen);
|
||||
LispPTR cgfour_set_colormap(LispPTR args[]);
|
||||
|
||||
@@ -2,8 +2,6 @@
|
||||
#define LLDSP_H 1
|
||||
/* $Id: lldsp.h,v 1.2 1999/01/03 02:06:09 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
@@ -11,7 +9,6 @@
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
/***************************************************************/
|
||||
/*
|
||||
lldsp.h
|
||||
@@ -22,6 +19,9 @@
|
||||
|
||||
*/
|
||||
/***************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "version.h" /* for BIGVM */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
#ifdef BIGVM
|
||||
typedef struct {
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
#ifndef LLSTKDEFS_H
|
||||
#define LLSTKDEFS_H 1
|
||||
#include "stack.h"
|
||||
#include "lispemul.h" /* for DLword */
|
||||
#include "stack.h" /* for FX, StackWord, Bframe */
|
||||
int do_stackoverflow(int incallp);
|
||||
DLword *freestackblock(DLword n, StackWord *start68k, int align);
|
||||
void decusecount68k(register FX *frame68k);
|
||||
|
||||
@@ -2,16 +2,13 @@
|
||||
#define LOCFILE_H 1
|
||||
/* $Id: locfile.h,v 1.2 1999/01/03 02:06:13 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-94 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "lispemul.h" /* for DLword */
|
||||
|
||||
#define FDEV_PAGE_SIZE 512 /* 1 page == 512 byte */
|
||||
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef LOOPSOPSDEFS_H
|
||||
#define LOOPSOPSDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR lcfuncall(register unsigned int atom_index, register int argnum, register int bytenum);
|
||||
LispPTR LCinit(void);
|
||||
LispPTR LCFetchMethod(register LispPTR class, register LispPTR selector);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef LOWLEV1DEFS_H
|
||||
#define LOWLEV1DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_putbitsnfd(register LispPTR base, register LispPTR data, int word_offset, register int beta);
|
||||
LispPTR N_OP_getbitsnfd(int base_addr, register int word_offset, int beta);
|
||||
LispPTR N_OP_putbasen(register LispPTR base, register LispPTR tos, int n);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef LOWLEV2DEFS_H
|
||||
#define LOWLEV2DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_addbase(register int base, register int offset);
|
||||
LispPTR N_OP_getbasebyte(register LispPTR base_addr, register int byteoffset);
|
||||
LispPTR N_OP_putbasebyte(register LispPTR base_addr, register int byteoffset, register int tos);
|
||||
|
||||
@@ -3,8 +3,6 @@
|
||||
|
||||
/* $Id: lspglob.h,v 1.2 1999/01/03 02:06:15 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
@@ -27,6 +25,11 @@
|
||||
Changed : Jul 02 1987 take
|
||||
*/
|
||||
/**********************************************************************/
|
||||
#include "version.h" /* for BIGVM */
|
||||
#include "ifpage.h" /* for IFPAGE */
|
||||
#include "iopage.h" /* for IOPAGE */
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "miscstat.h" /* for MISCSTAT */
|
||||
|
||||
extern DLword *Atomspace; /* ATOMSPACE */
|
||||
extern DLword *Stackspace; /* STACKSPACE*/
|
||||
|
||||
@@ -2,8 +2,6 @@
|
||||
#define LSPTYPES_H 1
|
||||
/* @(#) lsptypes.h Version 1.4 (12/29/94). copyright Venue */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
@@ -19,6 +17,8 @@
|
||||
|
||||
*/
|
||||
/**********************************************************************/
|
||||
#include "version.h" /* for BIGVM, BIGATOMS */
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef LSTHANDLDEFS_H
|
||||
#define LSTHANDLDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_fmemb(register LispPTR item, register LispPTR tos);
|
||||
LispPTR fmemb(register LispPTR item, register LispPTR list);
|
||||
LispPTR N_OP_listget(register LispPTR plist, register LispPTR tos);
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef MISC7DEFS_H
|
||||
#define MISC7DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_misc7(LispPTR arg1, LispPTR arg2, LispPTR arg3, LispPTR arg4, LispPTR arg5, LispPTR arg6, LispPTR arg7, int alpha);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef MKATOMDEFS_H
|
||||
#define MKATOMDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
DLword compute_hash(const char *char_base, DLword offset, DLword length);
|
||||
DLword compute_lisp_hash(const char *char_base, DLword offset, DLword length, DLword fatp);
|
||||
LispPTR compare_chars(register const char *char1, register const char *char2, register DLword length);
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef MKCELLDEFS_H
|
||||
#define MKCELLDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
LispPTR N_OP_createcell(register LispPTR tos);
|
||||
DLword *createcell68k(unsigned int type);
|
||||
LispPTR Create_n_Set_Cell(unsigned int type, LispPTR value);
|
||||
|
||||
@@ -2,10 +2,6 @@
|
||||
#define MNXDEFS_H 1
|
||||
/* $Id: mnxdefs.h,v 1.2 1999/01/03 02:06:17 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
||||
@@ -13,10 +9,10 @@
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
#include <X11/X.h> /* for Pixmap */
|
||||
#include <X11/Intrinsic.h> /* for Widget */
|
||||
#include <X11/Xlib.h> /* for */
|
||||
#ifdef XTK
|
||||
#include <X11/Intrinsic.h>
|
||||
#include <X11/StringDefs.h>
|
||||
#include <X11/Xaw/Form.h>
|
||||
#include <X11/Xaw/Box.h>
|
||||
@@ -26,6 +22,8 @@
|
||||
#include <X11/Xaw/Scrollbar.h>
|
||||
#endif /* XTK */
|
||||
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
|
||||
typedef void (*PFV)(); /* Pointer to Function returning Void */
|
||||
typedef int (*PFI)(); /* Pointer to Function returning Int */
|
||||
typedef char (*PFC)(); /* Pointer to Function returning Char */
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
#ifndef MVSDEFS_H
|
||||
#define MVSDEFS_H 1
|
||||
#include "stack.h"
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
#include "stack.h" /* for FX2 */
|
||||
LispPTR make_value_list(int argcount, LispPTR *argarray);
|
||||
void simulate_unbind(FX2 *frame, int unbind_count, FX2 *returner);
|
||||
LispPTR values(int arg_count, register LispPTR *args);
|
||||
|
||||
7
inc/my.h
7
inc/my.h
@@ -10,15 +10,16 @@
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "adr68k.h" /* for Addr68k_from_LADDR */
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
#include "lispmap.h" /* for S_NEGATIVE, S_POSITIVE */
|
||||
#include "lsptypes.h" /* for GETWORD */
|
||||
|
||||
#define S_CHARACTER 0x70000
|
||||
#ifdef BIGVM
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef OSMSGDEFS_H
|
||||
#define OSMSGDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void mess_init(void);
|
||||
void mess_reset(void);
|
||||
LispPTR mess_read(LispPTR *args);
|
||||
|
||||
@@ -2,14 +2,13 @@
|
||||
#define PICTURE_H 1
|
||||
/* $Id: picture.h,v 1.2 1999/01/03 02:06:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-98 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword */
|
||||
|
||||
typedef struct _picture{
|
||||
DLword width;
|
||||
|
||||
@@ -2,9 +2,6 @@
|
||||
#define PILOTBBT_H 1
|
||||
/* $Id: pilotbbt.h,v 1.2 1999/01/03 02:06:21 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
@@ -12,13 +9,12 @@
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
|
||||
/****************************************************************
|
||||
* *
|
||||
* pilotbbt.h July 6, 1987 by Osamu Nakamura *
|
||||
* *
|
||||
****************************************************************/
|
||||
#include "lispemul.h" /* for DLword */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/**********************************/
|
||||
|
||||
@@ -2,14 +2,13 @@
|
||||
#define RAWRS232C_H 1
|
||||
/* $Id: rawrs232c.h,v 1.2 1999/01/03 02:06:22 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-96 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
|
||||
typedef struct raw232cparam {
|
||||
LispPTR BauRate;
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef RETURNDEFS_H
|
||||
#define RETURNDEFS_H 1
|
||||
#include "lispemul.h" /* for DLword */
|
||||
void OP_contextsw(void);
|
||||
void contextsw(register DLword fxnum, register DLword bytenum, register DLword flags);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef RPCDEFS_H
|
||||
#define RPCDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR rpc(LispPTR *args);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef RPLCONSDEFS_H
|
||||
#define RPLCONSDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_rplcons(register LispPTR list, register LispPTR item);
|
||||
#endif
|
||||
|
||||
@@ -12,13 +12,7 @@
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include<stdio.h>
|
||||
#include<fcntl.h>
|
||||
#include<sgtty.h>
|
||||
|
||||
#include "lispemul.h"
|
||||
#include "adr68k.h"
|
||||
#include "lispmap.h"
|
||||
#include "lispemul.h" /* for LispPTR, DLword, DLbyte */
|
||||
|
||||
/*
|
||||
RS232C Buffer Status
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef SHIFTDEFS_H
|
||||
#define SHIFTDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_llsh1(int a);
|
||||
LispPTR N_OP_llsh8(int a);
|
||||
LispPTR N_OP_lrsh1(int a);
|
||||
|
||||
@@ -8,6 +8,8 @@
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for LispPTR, DLword, FRAMESIZE, DLWORDSPER_CELL */
|
||||
#include "version.h" /* for BIGVM, UNSIGNED */
|
||||
|
||||
/* ContextSW frame number */
|
||||
#define CurrentFXP 0
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef STORAGEDEFS_H
|
||||
#define STORAGEDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void checkfor_storagefull(register unsigned int npages);
|
||||
LispPTR newpage(LispPTR base);
|
||||
void init_storage(void);
|
||||
|
||||
@@ -2,15 +2,14 @@
|
||||
#define STREAM_H 1
|
||||
/* $Id: stream.h,v 1.2 1999/01/03 02:06:23 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "version.h" /* for BIGVM */
|
||||
#include "lispemul.h" /* for LispPTR, DLword, DLbyte */
|
||||
|
||||
#ifndef BYTESWAP
|
||||
/********************************/
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef SUBR0374DEFS_H
|
||||
#define SUBR0374DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR subr_k_trace(LispPTR *args);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef SUBRDEFS_H
|
||||
#define SUBRDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
char *atom_to_str(LispPTR atom_index);
|
||||
void OP_subrcall(int subr_no, int argnum);
|
||||
#endif
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef SXHASHDEFS_H
|
||||
#define SXHASHDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR SX_hash(LispPTR object);
|
||||
LispPTR STRING_EQUAL_HASHBITS(LispPTR object);
|
||||
LispPTR STRING_HASHBITS(LispPTR object);
|
||||
|
||||
@@ -1,7 +1,8 @@
|
||||
#ifndef TESTTOOLDEFS_H
|
||||
#define TESTTOOLDEFS_H 1
|
||||
#include "stack.h"
|
||||
#include "cell.h"
|
||||
#include "lispemul.h" /* for LispPTR, DLword, DLbyte */
|
||||
#include "cell.h" /* for conspage */
|
||||
#include "stack.h" /* for frameex1, FX, Bframe, fnhead */
|
||||
void print_package_name(int index);
|
||||
void print_atomname(LispPTR index);
|
||||
int find_package_from_name(const char *packname, int len);
|
||||
|
||||
@@ -2,26 +2,21 @@
|
||||
#define TIMEOUT_H 1
|
||||
/* $Id: timeout.h,v 1.2 1999/01/03 02:06:27 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-98 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "setjmp.h" /* for jmp_buf */
|
||||
|
||||
extern jmp_buf jmpbuf;
|
||||
|
||||
|
||||
|
||||
|
||||
/*** TIMEOUT_TIME is changeable by UNIX env var LDEFILETIMEOUT.
|
||||
#define TIMEOUT_TIME 10 **/
|
||||
|
||||
extern int TIMEOUT_TIME;
|
||||
|
||||
|
||||
#define SETJMP(x) \
|
||||
{ \
|
||||
if(setjmp(jmpbuf) != 0) return(x); \
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef TIMERDEFS_H
|
||||
#define TIMERDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
void update_miscstats(void);
|
||||
void init_miscstats(void);
|
||||
LispPTR subr_gettime(LispPTR args[]);
|
||||
|
||||
@@ -2,14 +2,13 @@
|
||||
#define TTY_H 1
|
||||
/* $Id: tty.h,v 1.2 1999/01/03 02:06:29 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-96 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#include "lispemul.h" /* for DLword */
|
||||
|
||||
/*
|
||||
TTY Command
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
#ifndef TYPEOFDEFS_H
|
||||
#define TYPEOFDEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_dtest(register LispPTR tos, register int atom_index);
|
||||
LispPTR N_OP_instancep(register LispPTR tos, register int atom_index);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef UBF1DEFS_H
|
||||
#define UBF1DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_ubfloat1(int arg, int alpha);
|
||||
#endif
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
#ifndef UBF2DEFS_H
|
||||
#define UBF2DEFS_H 1
|
||||
#include "lispemul.h" /* for LispPTR */
|
||||
LispPTR N_OP_ubfloat2(int a2, int a1, int alpha);
|
||||
#endif
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user