github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-27 02:14:15 +00:00
Code Issues Projects Releases Wiki Activity

Cleanup of includes and related changes based on include-what-you-use diagnostics (#436)

Browse Source 
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h
Move structures for dir.c to dirdefs.h where they are used
Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines
Fix  = vs == bug in FSDEBUG code in dir.c
Eliminate duplicate/unused constant definitions in gcr.c
Declare static internal function bytecmp in mkatom.c
Update many source and include files to include headers for what they use
This commit is contained in:
Nick Briggs
2022-08-10 11:07:57 -07:00
committed by GitHub
parent 4bd1f4b49a
commit 3d9f090e70
102 changed files with 876 additions and 1207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/allocmds.c
View File

@@ -25,21 +25,15 @@
*/
/**********************************************************************/
#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "cell.h"
#include "lispmap.h"
#include "initatms.h"
#include "lspglob.h"
#include "allocmdsdefs.h"
#include "commondefs.h"
#include "gcrdefs.h"
#include "perrnodefs.h"
#include "storagedefs.h"
#include "timerdefs.h"
#include "address.h" // for LOLOC
#include "adr68k.h" // for LADDR_from_68k, LPAGE_from_68k, Addr68k_fr...
#include "allocmdsdefs.h" // for alloc_mdspage, initmdspage
#include "commondefs.h" // for error
#include "lispemul.h" // for DLword, LispPTR, DLWORDSPER_PAGE, MDSINCRE...
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h" // for MDStypetbl
#include "lsptypes.h" // for GETWORD, GetTypeNumber, TYPE_SMALLP
#include "storagedefs.h" // for newpage, checkfor_storagefull
/************************************************************************/
/* */

15
src/arith2.c
View File

@@ -9,19 +9,12 @@
/************************************************************************/
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "arith.h" // for N_IGETNUMBER, N_ARITH_SWITCH, N_GETNUMBER
#include "arith2defs.h" // for N_OP_difference, N_OP_greaterp, N_OP_idiffer...
#include "fpdefs.h" // for N_OP_fdifference, N_OP_fgreaterp, N_OP_fplus2
#include "lispemul.h" // for state, ERROR_EXIT, LispPTR, ATOM_T, NIL_PTR
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "medleyfp.h"
#include "arith.h"
#include "arith2defs.h"
#include "fpdefs.h"
#include "mkcelldefs.h"
/************************************************************
N_OP_plus2

18
src/arith3.c
View File

@@ -8,7 +8,6 @@
/* */
/************************************************************************/
#include "version.h"
/************************************************************************/
/* */
@@ -21,17 +20,14 @@
/* */
/************************************************************************/
#include "lispemul.h"
#include "lispmap.h"
#include "version.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "arith.h" // for N_GETNUMBER, N_ARITH_SWITCH
#include "arith3defs.h" // for N_OP_boxidiff, N_OP_boxiplus, N_OP_makenumber
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "arith.h"
#include "arith3defs.h"
#include "mkcelldefs.h"
#include "lsptypes.h" // for GetTypeNumber, TYPE_FIXP
/************************************************************************/
/* */

19
src/arith4.c
View File

@@ -8,8 +8,6 @@
/* */
/************************************************************************/
#include "version.h"
/***********************************************************************/
/*
File Name : arith4.c
@@ -21,20 +19,13 @@
*/
/**********************************************************************/
#include "lispemul.h"
#include "lispmap.h"
#include "version.h"
#include "arith.h" // for N_IGETNUMBER, N_ARITH_SWITCH, N_GETNUMBER
#include "arith4defs.h" // for N_OP_iquot, N_OP_iremainder, N_OP_itimes2
#include "fpdefs.h" // for N_OP_fquotient, N_OP_ftimes2
#include "lispemul.h" // for state, ERROR_EXIT, LispPTR
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "medleyfp.h"
#include "arith.h"
#include "arith4defs.h"
#include "fpdefs.h"
#include "mkcelldefs.h"
/**********************************************************************/
/*

16
src/array.c
View File

@@ -8,19 +8,11 @@
/************************************************************************/
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "arraydefs.h" // for N_OP_misc3
#include "emlglob.h"
#include "arraydefs.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lspglob.h"
#include "my.h" // for aref_switch, N_GetPos
/************************************************************

22
src/array2.c
View File

@@ -7,8 +7,6 @@
/* */
/************************************************************************/
#include "version.h"
/************************************************************************/
/* */
/* A R R A Y 2 . C */
@@ -16,21 +14,13 @@
/* Contains N_OP_misc4, the ASET opcode. */
/* */
/************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "version.h"
#include "array2defs.h" // for N_OP_misc4
#include "emlglob.h"
#include "gcdata.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "array2defs.h"
#include "gchtfinddefs.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lspglob.h"
#include "lsptypes.h"
#include "my.h" // for N_GetPos, aset_switch
/************************************************************************/
/* */

18
src/array3.c
View File

@@ -17,18 +17,14 @@
/* */
/************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "version.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "array3defs.h" // for N_OP_aref1
#include "emlglob.h"
#include "array3defs.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lspglob.h"
#include "lsptypes.h" // for OneDArray, GetTypeNumber, TYPE_ONED_ARRAY
#include "my.h" // for aref_switch, N_GetPos
/*** N_OP_aref1 -- op 266 (array index) ***/
LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx) {

18
src/array4.c
View File

@@ -17,19 +17,13 @@
/* */
/************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "version.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "array4defs.h" // for N_OP_aset1
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "gcdata.h"
#include "my.h"
#include "array4defs.h"
#include "gchtfinddefs.h"
#include "lsptypes.h" // for OneDArray, GetTypeNumber, TYPE_ONED_ARRAY
#include "my.h" // for N_GetPos, aset_switch
/*** N_OP_aset1 -- op 267 (new-value array index) ***/

21
src/array5.c
View File

@@ -7,8 +7,6 @@
/* */
/************************************************************************/
#include "version.h"
/************************************************************************/
/* */
/* A R R A Y 5 . C */
@@ -17,18 +15,14 @@
/* */
/************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "version.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "array5defs.h" // for N_OP_aref2
#include "emlglob.h"
#include "array5defs.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lspglob.h"
#include "lsptypes.h" // for LispArray, GetTypeNumber, TYPE_TWOD_ARRAY
#include "my.h" // for aref_switch, N_GetPos
/************************************************************************/
/* */
@@ -39,7 +33,6 @@
/************************************************************************/
LispPTR N_OP_aref2(LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {
#define REG
LispPTR baseL;
int arindex, temp;
LispArray *arrayblk;

20
src/array6.c
View File

@@ -8,21 +8,13 @@
/************************************************************************/
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "array6defs.h" // for N_OP_aset2
#include "emlglob.h"
#include "gcdata.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "array6defs.h"
#include "gchtfinddefs.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT
#include "lspglob.h"
#include "lsptypes.h" // for LispArray, GetTypeNumber, TYPE_TWOD_ARRAY
#include "my.h" // for N_GetPos, aset_switch
/*** N_OP_aset2 -- op 357 (new-value array index0 index1) ***/
LispPTR N_OP_aset2(register LispPTR data, LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {

18
src/bin.c
View File

@@ -7,8 +7,6 @@
/* */
/************************************************************************/
#include "version.h"
/***********************************************************************/
/*
File Name : bin.c
@@ -24,18 +22,14 @@
*/
/**********************************************************************/
#include "lispemul.h"
#include "lispmap.h"
#include "version.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "bindefs.h" // for N_OP_bin
#include "emlglob.h"
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "stream.h"
#include "bindefs.h"
#include "lsptypes.h" // for state, ERROR_EXIT, GetTypeNumber, Get_BYTE
#include "stream.h" // for Stream
LispPTR N_OP_bin(register int tos) {
register Stream *stream68k; /* stream instance on TOS */

7
src/byteswap.c
View File

@@ -19,13 +19,8 @@
/* */
/***************************************************************************/
#include "hdw_conf.h"
#include "lispemul.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "stack.h"
#include "byteswapdefs.h"
#include "lsptypes.h"
/****************************************************************/
/* */

22
src/car-cdr.c
View File

@@ -30,19 +30,17 @@
*/
/**********************************************************************/
#include "lispemul.h"
#include "address.h" // for POINTER_PAGEBASE
#include "adr68k.h" // for Addr68k_from_LADDR, Addr68k_from_LPAGE
#include "car-cdrdefs.h" // for N_OP_car, N_OP_cdr, N_OP_rplaca, N_OP_rplacd
#include "cell.h" // for freecons, conspage, FREECONS, CDR_INDIRECT
#include "commondefs.h" // for error
#include "conspagedefs.h" // for next_conspage
#include "emlglob.h"
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "gcdata.h"
#include "cell.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "conspagedefs.h"
#include "gchtfinddefs.h"
#include "gcdata.h" // for GCLOOKUP, ADDREF, DELREF
#include "lispemul.h" // for ConsCell, LispPTR, DLword, NIL_PTR, state
#include "lspglob.h" // for ListpDTD
#include "lsptypes.h" // for Listp, dtd
/************************************************************************/
/* */

30
src/common.c
View File

@@ -11,24 +11,20 @@
#include "version.h"
#include <stdio.h>
#include <stdlib.h>
#include <setjmp.h>
#include <fcntl.h>
#include <string.h> /* for memset */
#include <sys/select.h> /* for fd_set */
#include "lispemul.h"
#include "lispmap.h"
#include "adr68k.h"
#include "lspglob.h"
#include <fcntl.h> // for fcntl, F_GETFL, O_RDONLY, O_RDWR
#include <setjmp.h> // for setjmp, jmp_buf
#include <stdio.h> // for fflush, fprintf, printf, getchar, stderr
#include <stdlib.h> // for exit
#include <string.h> // for memset
#include <sys/select.h> // for fd_set
#include "commondefs.h" // for error, stab, warn
#include "dbprint.h" // for DBPRINT
#include "emlglob.h"
#include "stack.h"
#include "dbprint.h"
#include "commondefs.h"
#include "kprintdefs.h"
#include "uraiddefs.h"
#include "uraidextdefs.h"
#include "kprintdefs.h" // for print
#include "lispemul.h" // for NIL, DLword, LispPTR
#include "lspglob.h"
#include "uraiddefs.h" // for device_after_raid, device_before_raid, ura...
#include "uraidextdefs.h" // for URMAXFXNUM, URaid_inputstring, URaid_FXarray
void stab() { DBPRINT(("Now in stab\n")); }

25
src/conspage.c
View File

@@ -14,21 +14,18 @@
* @file conspage.c
*/
#include <stddef.h>
#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "cell.h"
#include "lispmap.h"
#include <stddef.h> // for NULL
#include "address.h" // for POINTER_PAGE
#include "adr68k.h" // for Addr68k_from_LPAGE, LPAGE_from_68k, LADDR_...
#include "allocmdsdefs.h" // for alloc_mdspage
#include "car-cdrdefs.h" // for find_close_prior_cell
#include "cell.h" // for conspage, freecons, FREECONS, CDR_NIL, CON...
#include "commondefs.h" // for error
#include "conspagedefs.h" // for N_OP_cons, cons, next_conspage
#include "gcdata.h" // for GCLOOKUP, ADDREF, DELREF
#include "lispemul.h" // for ConsCell, DLword, LispPTR, NIL_PTR, DLWORD...
#include "lspglob.h"
#include "gcdata.h"
#include "conspagedefs.h"
#include "allocmdsdefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "gchtfinddefs.h"
#include "lsptypes.h" // for dtd, Listp, TYPE_LISTP
/**
* Initializes a page of CONS cells, sets up the free count and

101
src/dir.c
View File

@@ -9,34 +9,32 @@
#include "version.h"
#include <errno.h>
#include <setjmp.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
#ifndef DOS
#include <dirent.h>
#include <pwd.h>
#include <sys/param.h>
#include <dirent.h> // for closedir, MAXNAMLEN, dirent, readdir, ope...
#include <pwd.h> // for getpwuid, passwd
#include <sys/param.h> // for MAXPATHLEN
#else /* DOS, now */
#include <dos.h>
#define MAXPATHLEN _MAX_PATH
#define MAXNAMLEN _MAX_PATH
#define alarm(x) 1
#endif /* DOS */
#include "lispemul.h"
#include "lispmap.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "arith.h"
#include <errno.h> // for errno, EINTR, ENOENT
#include <stdio.h> // for NULL, sprintf, size_t
#include <stdlib.h> // for calloc, free, strtoul, malloc, qsort
#include <string.h> // for strcpy, strcmp, strlen, strrchr, strcat
#include <sys/stat.h> // for stat, S_ISDIR, st_atime, st_mtime
#include <sys/time.h> // for timespec_t
#include "adr68k.h" // for Addr68k_from_LADDR
#include "arith.h" // for GetSmallp
#include "dirdefs.h" // for COM_finish_finfo, COM_gen_files, COM_next...
#include "dskdefs.h" // for separate_version, separate_host, true_name
#include "lispemul.h" // for LispPTR, NIL, ATOM_T
#include "locfile.h" // for VERSIONLEN, DOWNCASE, ToLispTime, STRING_...
#include "lspglob.h"
#include "timeout.h"
#include "locfile.h"
#include "lsptypes.h"
#include "timeout.h" // for S_TOUT, TIMEOUT0, TIMEOUT, ERRSETJMP
#include "ufsdefs.h" // for quote_dname, quote_fname, quote_fname_ufs
extern int *Lisp_errno;
extern int Dummy_errno;
@@ -222,62 +220,6 @@ int make_old_version(char *old, char *file)
/************ B E G I N O F F I L E - I N F O C O D E **************/
/************************************************************************/
/*
* FINFO and FPROP are used to store the information of the enumerated files
* and directories. They are arranged in a form of linked list. Each list is
* corresponding to the each directory enumeration. All of the informations
* Lisp needs are stored in the list. This list is in the emulator's address space
* and can be specified by "ID" which is the interface between the emulator and Lisp
* code. In this implementation, ID is represented as an integer and is actually
* an index of the array of the lists.
*
* To avoid the overhead of the FINFO and FPROP structure dynamic allocation and
* deallocation, some number of their instances are pre-allocated when the emulator
* starts and managed in a free list. If all of the pre-allocated instances are in
* use, new instances are allocated. The new instances are linked to the free list
* when it is freed.
*
* As described above, the linked list result of the enumeration is stored in a
* array for the subsequent request from Lisp. Lisp code requests the emulator to
* release the list when it enumerated all of the entries in the list or the
* enumerating operation is aborted.
*/
typedef struct fprop {
unsigned length; /* Byte length of this file. */
unsigned wdate; /* Written (Creation) date in Lisp sense. */
unsigned rdate; /* Read date in Lisp sense. */
unsigned protect; /* Protect mode of this file. */
char author[256]; /* Author in Lisp sense. */
u_short au_len; /* Byte length of author. */
unsigned long nil; /* padding to 8-byte multiple */
} FPROP;
/* This structure has a pointer at each end to force alignment to
be correct when a pointer is 8 bytes long. */
typedef struct finfo {
FPROP *prop; /* File properties Lisp needs. */
char lname[MAXNAMLEN]; /* Name in Lisp Format. */
u_short lname_len; /* Byte length of lname. */
char no_ver_name[MAXNAMLEN];
/*
* Name in UNIX Format. Does not
* include Version field.
* All lower case.
*/
ino_t ino; /* I-node number of this file. */
unsigned version; /* Version in Lisp sense. */
u_short dirp; /* If 1, this file is a directory. */
struct finfo *next; /*
* Link to a next entry. Last entry is
* indicated by NULL pointer.
*/
} FINFO;
typedef struct dfinfo {
FINFO *head; /* Head of the linked FINFO structures. */
FINFO *next; /* FINFO structure generated next time. */
} DFINFO;
FINFO *FreeFinfoList;
#define INITFINFONUM 1024
@@ -310,11 +252,6 @@ int MAXFINFO;
FreeFinfoList = fp; \
}
/* XXX: the datatypes need to go into dirdefs.h so that one could include it elsewhere */
#include "dirdefs.h"
#include "commondefs.h"
#include "dskdefs.h"
#include "ufsdefs.h"
/*
* For debug aid.
@@ -333,7 +270,7 @@ void print_finfo(FINFO *fp)
fp = fp->next;
} while (fp != (FINFO *)NULL && fp != sp);
if (fp = sp) printf("Circular detected!\n");
if (fp == sp) printf("Circular detected!\n");
}
}
#endif /* FSDEBUG */

25
src/draw.c
View File

@@ -17,22 +17,17 @@
#include "version.h"
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include "lispemul.h"
#include "lspglob.h"
#include "lispmap.h"
#include "lsptypes.h"
#include <stddef.h> // for ptrdiff_t
#include <stdlib.h> // for abs
#include "adr68k.h" // for Addr68k_from_LADDR
#include "display.h" // for DISPLAYBUFFER, DisplayRegion68k, in_display...
#include "drawdefs.h" // for N_OP_drawline
#include "emlglob.h"
#include "adr68k.h"
#include "bitblt.h"
#include "display.h"
#include "drawdefs.h"
#include "bbtsubdefs.h"
#include "initdspdefs.h"
#include "initdspdefs.h" // for flush_display_region
#include "lispemul.h" // for DLword, BITSPER_DLWORD, SEGMASK, state, ERR...
#include "lispmap.h" // for S_NEGATIVE, S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h" // for GETWORD
#ifdef DISPLAYBUFFER
extern struct pixrect *ColorDisplayPixrect, *DisplayRegionPixrect;

64
src/dsk.c
View File

@@ -9,23 +9,36 @@
#include "version.h"
#include <errno.h>
#include <fcntl.h>
#include <setjmp.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
#include <errno.h> // for errno, EINTR, ENOENT, ENFILE, EPERM
#include <fcntl.h> // for O_RDWR, O_CREAT, open, O_RDONLY, O_TRUNC
#include <stdio.h> // for NULL, sprintf, size_t, rename, SEEK_SET
#include <stdlib.h> // for strtoul
#include <string.h> // for strcpy, strcmp, strlen, strncpy, strchr
#include <sys/stat.h> // for stat, fstat, mkdir, S_ISREG, st_atime, chmod
#include <sys/types.h> // for ino_t, time_t, off_t
#include <unistd.h> // for unlink, close, link, lseek, access, chdir
#include "adr68k.h" // for Addr68k_from_LADDR
#include "arith.h" // for GetSmallp
#ifdef BYTESWAP
#include "byteswapdefs.h" // for word_swap_page
#endif
#include "car-cdrdefs.h" // for cdr, car
#include "dskdefs.h" // for COM_changedir, COM_closefile, COM_getfile...
#include "lispemul.h" // for NIL, LispPTR, ATOM_T
#include "locfile.h" // for ConcDirAndName, LASTVERSIONARRAY, ConcNam...
#include "lspglob.h"
#include "lsptypes.h"
#include "timeout.h" // for TIMEOUT, ERRSETJMP, S_TOUT, TIMEOUT0
#include "ufsdefs.h" // for unixpathname, lisppathname
#ifndef DOS
#include <dirent.h>
#include <pwd.h>
#include <sys/param.h>
#include <sys/statvfs.h>
#include <sys/time.h>
#else /* DOS */
#include <dirent.h> // for MAXNAMLEN, readdir, closedir, opendir
#include <pwd.h> // for getpwuid, passwd
#include <sys/param.h> // for MAXPATHLEN
#include <sys/statvfs.h> // for statvfs
#include <sys/time.h> // for timeval, utimes
#else
#include <direct.h>
#include <dos.h>
#include <time.h>
@@ -33,26 +46,7 @@
#define MAXPATHLEN _MAX_PATH
#define MAXNAMLEM _MAX_PATH
#define alarm(x) 0
#endif /* DOS */
#include "lispemul.h"
#include "lispmap.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lspglob.h"
#include "arith.h"
#include "stream.h"
#include "timeout.h"
#include "locfile.h"
#include "osmsg.h"
#include "dbprint.h"
#include "dskdefs.h"
#include "byteswapdefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "ufsdefs.h"
#endif
extern int *Lisp_errno;
extern int Dummy_errno;

21
src/dspsubrs.c
View File

@@ -11,19 +11,16 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "display.h"
#include "arith.h"
#include "dspsubrsdefs.h"
#include "commondefs.h"
#include <stdio.h> // for putc
#include "arith.h" // for GetSmalldata
#include "display.h" // for BCPLDISPLAY, CURSORHEIGHT
#include "dspsubrsdefs.h" // for DSP_Cursor, DSP_ScreenHight, DSP_ScreenWidth
#include "lispemul.h" // for LispPTR, DLword, ATOM_T, NIL
#include "lispmap.h" // for S_POSITIVE
#include "lsptypes.h" // for GETWORD
#ifdef XWINDOW
#include "xcursordefs.h"
#include "xlspwindefs.h"
#include "xcursordefs.h" // for Set_XCursor
#include "xlspwindefs.h" // for lisp_Xvideocolor, set_Xmouseposition
#endif
extern int DebugDSP;

17
src/eqf.c
View File

@@ -17,18 +17,13 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "arith.h" // for FIXP_VALUE, FLOATP_VALUE
#include "eqfdefs.h" // for N_OP_clequal, N_OP_eqlop, N_OP_eqq, N_OP_equal
#include "lispemul.h" // for NIL, state, ATOM_T, ERROR_EXIT, SEGMASK, LispPTR
#include "lispmap.h" // for ATOM_OFFSET, S_CHARACTER, S_NEGATIVE, S_POSITIVE
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "medleyfp.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "eqfdefs.h"
#include "lsptypes.h" // for TYPE_FLOATP, GetTypeNumber, TYPE_FIXP, TYPE_SM...
#include "my.h" // for IsNumber, N_MakeFloat
/************************************************************
op 072 N_OP_eqlop EQL

2
src/ether.c
View File

@@ -72,6 +72,8 @@
#include "ether.h"
#include "dbprint.h"
#include "etherdefs.h"
#include "ifpage.h"
#include "iopage.h"
#if defined(USE_DLPI)
#define NIOCSETF PFIOCSETF

4
src/foreign.c
View File

@@ -337,7 +337,7 @@ LispPTR call_c_fn(LispPTR *args) {
intarg[18], intarg[19], intarg[20], intarg[21], intarg[22], intarg[23],
intarg[24], intarg[25], intarg[26], intarg[27], intarg[28], intarg[29],
intarg[30], intarg[31]);
return (S_CHAR | tmp);
return (S_CHARACTER | tmp);
}; break;
case TYPE_FLOATP:
fresult = ((PFF)fnaddr)(intarg[0], intarg[1], intarg[2], intarg[3], intarg[4], intarg[5],
@@ -598,7 +598,7 @@ LispPTR smashing_c_fn(LispPTR *args) {
return (NIL);
}; break;
case TYPE_CHARACTERP:
return (S_CHAR |
return (S_CHARACTER |
(((PFC)fnaddr)(intarg[0], intarg[1], intarg[2], intarg[3], intarg[4], intarg[5],
intarg[6], intarg[7], intarg[8], intarg[9], intarg[10], intarg[11],
intarg[12], intarg[13], intarg[14], intarg[15], intarg[16], intarg[17],

22
src/fp.c
View File

@@ -16,20 +16,16 @@
/* Floating-point arithmetic code. */
/* */
/************************************************************************/
#include <stdio.h>
#include <math.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "emlglob.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "medleyfp.h"
#include "fpdefs.h"
#include "adr68k.h" // for LADDR_from_68k
#include "emlglob.h"
#include "fpdefs.h" // for N_OP_fdifference, N_OP_fgreaterp, N_OP_fplus2
#include "lispemul.h" // for state, LispPTR, DLword, ERROR_EXIT, ATOM_T
#include "lspglob.h"
#include "lsptypes.h" // for TYPE_FLOATP
#include "medleyfp.h" // for FPCLEAR, FPTEST
#include "mkcelldefs.h" // for createcell68k
#include "my.h" // for N_MakeFloat
/************************************************************
N_OP_fplus2 -- op 350

23
src/fvar.c
View File

@@ -9,21 +9,16 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "stack.h"
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
#include "byteswapdefs.h" // for swapx
#include "commondefs.h" // for error
#include "emlglob.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "gcdata.h"
#include "fvardefs.h"
#include "byteswapdefs.h"
#include "commondefs.h"
#include "gchtfinddefs.h"
#include "fvardefs.h" // for N_OP_fvar_, N_OP_fvarn, N_OP_stkscan, nati...
#include "gcdata.h" // for GCLOOKUP, ADDREF, DELREF
#include "lispmap.h" // for ATOMS_HI, STK_HI
#include "lspglob.h" // for Stackspace
#include "lsptypes.h" // for DLword, LispPTR, GETBASEWORD, state, FRAME...
#include "stack.h" // for fnhead, frameex1, GETNAMETABLE, frameex2
#define MaskShift(x) (((x) << 16) & SEGMASK)

14
src/gc.c
View File

@@ -9,15 +9,13 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "lsptypes.h"
#include <stdio.h> // for printf
#include "emlglob.h"
#include "gcdata.h"
#include "testtooldefs.h"
#include "gcdefs.h"
#include "gchtfinddefs.h"
#include "gcdata.h" // for GCLOOKUPV
#include "gcdefs.h" // for OP_gcref
#include "lspglob.h"
#include "lsptypes.h" // for state, ByteCode, PC, TopOfStack, Get_code_...
#include "testtooldefs.h" // for printPC
/************************************************************

20
src/gc2.c
View File

@@ -22,18 +22,16 @@
*/
/**********************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "lspglob.h"
#include <stdio.h> // for printf
#include "address.h" // for LOLOC
#include "emlglob.h"
#include "address.h"
#include "adr68k.h"
#include "testtooldefs.h"
#include "gc2defs.h"
#include "gcscandefs.h"
#include "gc2defs.h" // for OP_gcscan1, OP_gcscan2
#include "gcscandefs.h" // for gcscan1, gcscan2
#include "lispemul.h" // for state, TopOfStack, NIL, PC, SEGMASK
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h"
#include "testtooldefs.h" // for printPC
/**********************************************************************/
/*

36
src/gcarray.c
View File

@@ -42,27 +42,21 @@
/* \Tomtom */
/*************************************************************************/
#include <stdio.h>
#include <string.h>
#include "lispemul.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "stack.h"
#include "cell.h"
#include "ifpage.h"
#include "gcdata.h"
#include "array.h"
#include "debug.h"
#include "lispmap.h"
#include "gcarraydefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "mkatomdefs.h"
#include "testtooldefs.h"
#include <stdio.h> // for printf
#include <string.h> // for strncmp
#include "adr68k.h" // for Addr68k_from_LADDR
#include "array.h" // for arrayheader
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for PNCell, PLCell, GetPnameCell, GetPropCell
#include "commondefs.h" // for error
#include "debug.h" // for PACKAGE
#include "gcarraydefs.h" // for aref1, find_symbol, get_package_atom, with...
#include "lispemul.h" // for LispPTR, DLword, NIL, SEGMASK, T
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h" // for Package_from_Index_word
#include "lsptypes.h" // for GETBYTE, GETWORD
#include "mkatomdefs.h" // for compare_chars, compare_lisp_chars, compute...
#include "testtooldefs.h" // for find_package_from_name
/*** not currently used -FS
#define min(a,b) ((a > b)?b:a)

25
src/gccode.c
View File

@@ -29,22 +29,15 @@
/* \Tomtom */
/************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "lispmap.h"
#include "stack.h"
#include "cell.h"
#include "ifpage.h"
#include "gcdata.h"
#include "array.h"
#include "gccodedefs.h"
#include "commondefs.h"
#include "gchtfinddefs.h"
#include <stdio.h> // for sprintf
#include "address.h" // for LOLOC, HILOC
#include "adr68k.h" // for Addr68k_from_LADDR
#include "commondefs.h" // for error
#include "gccodedefs.h" // for code_block_size, map_code_pointers, reclaimc...
#include "gcdata.h" // for REC_GCLOOKUP, DELREF, ADDREF
#include "lspglob.h" // for Deleted_Implicit_Hash_Slot_word, UFNTable
#include "lsptypes.h" // for LispPTR, NIL, UFN, Get_code_BYTE, POINTERMASK
#include "stack.h" // for fnhead
#define min(a, b) (((a) > (b)) ? (b) : (a))

30
src/gcfinal.c
View File

@@ -42,23 +42,19 @@
/* \Tomtom */
/*************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "stack.h"
#include "cell.h"
#include "ifpage.h"
#include "gcdata.h"
#include "array.h"
#include "gcfinaldefs.h"
#include "commondefs.h"
#include "gccodedefs.h"
#include "gchtfinddefs.h"
#include "llstkdefs.h"
#include <stdio.h> // for printf
#include "address.h" // for HILOC
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k, Addr68k...
#include "array.h" // for arrayblock, ARRAYBLOCKTRAILERCELLS, MAXBUCK...
#include "commondefs.h" // for error
#include "gccodedefs.h" // for reclaimcodeblock
#include "gcdata.h" // for DELREF, REC_GCLOOKUP
#include "gcfinaldefs.h" // for arrayblockmerger, checkarrayblock, deleteblock
#include "lispemul.h" // for LispPTR, NIL, T, POINTERMASK, DLword, ATOM_T
#include "llstkdefs.h" // for decusecount68k
#include "lspglob.h" // for FreeBlockBuckets_word, ArrayMerging_word
#include "lsptypes.h" // for WORDPTR
#include "stack.h" // for STACKP, FX
#ifdef NEVER
#define GetSegnuminColl(entry1) ((entry1 & 0x01fe) >> 1) /* segnum field */

24
src/gchtfind.c
View File

@@ -10,19 +10,17 @@
#include "version.h"
#include "lispemul.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "gcdata.h"
#include "lispmap.h"
#include "cell.h"
#include "gchtfinddefs.h"
#include "commondefs.h"
#include "gcrdefs.h"
#include "storagedefs.h"
#include "address.h" // for LOLOC
#include "adr68k.h" // for LADDR_from_68k
#include "commondefs.h" // for error
#include "gcdata.h" // for GETGC, GCENTRY, ADDREF, DELREF, gc_ovfl
#include "gchtfinddefs.h" // for enter_big_reference_count, htfind, modify_...
#include "gcrdefs.h" // for disablegc1
#include "lispemul.h" // for LispPTR, NIL, state, DLWORDSPER_CELL, ATOM_T
#include "lispmap.h" // for HTCOLL_SIZE
#include "lspglob.h" // for HTcoll, HTbigcount, HTmain
#include "lsptypes.h" // for WORDPTR
#include "storagedefs.h" // for newpage
#define Evenp(num, prim) (((num) % (prim)) == 0)
#ifdef BIGVM

32
src/gcmain3.c
View File

@@ -33,25 +33,21 @@
/* \Tomtom */
/*************************************************************************/
#include <stdio.h> /* for sprintf */
#include "lispemul.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include <stdio.h> // for sprintf
#include "address.h" // for VAG2
#include "adr68k.h" // for Addr68k_from_LADDR, Addr68k_from_StkOffset
#include "commondefs.h" // for error
#include "emlglob.h"
#include "stack.h"
#include "cell.h"
#include "ifpage.h"
#include "gcdata.h"
#include "gcmain3defs.h"
#include "commondefs.h"
#include "gchtfinddefs.h"
#include "gcrcelldefs.h"
#include "gcscandefs.h"
#include "gcdata.h" // for GCENTRY, REC_GCLOOKUP, STKREF, hashentry
#include "gcmain3defs.h" // for gcmapscan, gcmapunscan, gcscanstack
#include "gcrcelldefs.h" // for gcreccell
#include "gcscandefs.h" // for gcscan1, gcscan2
#include "ifpage.h" // for IFPAGE
#include "lispemul.h" // for LispPTR, DLword, NIL, FRAMESIZE, POINTERMASK
#include "lispmap.h" // for HTMAIN_SIZE, STK_HI
#include "lspglob.h" // for HTcoll, HTmain, InterfacePage
#include "lsptypes.h"
#include "stack.h" // for Bframe, fnhead, frameex1, STK_BF, STK_FSB
#define WORDSPERCELL 2
#define MAXHTCNT 63

22
src/gcoflow.c
View File

@@ -29,23 +29,13 @@
#include "version.h"
#include "lispemul.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "gcdata.h"
#include "gcdata.h" // for htoverflow, REC_GCLOOKUP
#include "gcoflowdefs.h" // for gc_handleoverflow, gcmaptable
#include "gcrdefs.h" // for doreclaim
#include "lispemul.h" // for NIL, DLword, LispPTR
#include "lspglob.h" // for Reclaim_cnt_word, HToverflow, MaxTypeNumber...
#include "lsptypes.h" // for dtd, GetDTD, TYPE_LISTP
#include "gcoflowdefs.h"
#include "gchtfinddefs.h"
#include "gcrdefs.h"
#define MAXSMALLP 65535
#define HTBIGENTRYSIZE 4
#define WORDSPERPAGE 256
#define MAXTYPENUMBER INIT_TYPENUM
#define Oddp(num) ((((num) % 2) != 0) ? 1 : 0)
#define Evenp(num, prim) ((((num) % (prim)) == 0) ? 1 : 0)
#define Increment_Allocation_Count(n) \
if (*Reclaim_cnt_word != NIL) { \
if (*Reclaim_cnt_word > (n)) \

35
src/gcr.c
View File

@@ -52,28 +52,19 @@
#include "version.h"
#include "lispemul.h"
#include "lispmap.h"
#include "address.h" // for LOLOC
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
#include "commondefs.h" // for error
#include "dspsubrsdefs.h" // for flip_cursor
#include "emlglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "stack.h"
#include "gcdata.h"
#include "gcrdefs.h"
#include "commondefs.h"
#include "dspsubrsdefs.h"
#include "gcmain3defs.h"
#include "timerdefs.h"
#define MAXSMALLP 65535
#define HTBIGENTRYSIZE 4
#define WORDSPERPAGE 256
#define WORDSPERCELL 2
#define MAXTYPENUMBER INIT_TYPENUM
#define STK_HI 1
#include "gcmain3defs.h" // for gcmapscan, gcmapunscan, gcscanstack
#include "gcrdefs.h" // for disablegc1, dogc01, doreclaim, gcarrangeme...
#include "lispemul.h" // for state, NIL, DLword, CurrentStackPTR, ATOM_T
#include "lspglob.h" // for MiscStats, GcDisabled_word, Reclaim_cnt_word
#include "lsptypes.h" // for GETWORD, TT_NOREF
#include "miscstat.h" // for MISCSTATS
#include "stack.h" // for STK_FSB_WORD, frameex1
#include "timerdefs.h" // for update_miscstats
#ifndef BYTESWAP
struct interruptstate {
@@ -102,7 +93,7 @@ struct interruptstate {
void gcarrangementstack(void) {
LispPTR tmpnextblock;
PushCStack;
tmpnextblock = LADDR_from_68k(CurrentStackPTR += WORDSPERCELL);
tmpnextblock = LADDR_from_68k(CurrentStackPTR += DLWORDSPER_CELL);
CURRENTFX->nextblock = LOLOC(tmpnextblock);
if ((UNSIGNED)EndSTKP == (UNSIGNED)CurrentStackPTR) error("creating 0-long stack block.");
GETWORD(CurrentStackPTR) = STK_FSB_WORD;

31
src/gcrcell.c
View File

@@ -63,24 +63,19 @@
/* \Tomtom */
/*************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "stack.h"
#include "cell.h"
#include "ifpage.h"
#include "gcdata.h"
#include "dbprint.h"
#include "gcrcelldefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "gccodedefs.h"
#include "gcfinaldefs.h"
#include "gchtfinddefs.h"
#include <stdio.h> // for printf
#include "address.h" // for POINTER_PAGE
#include "adr68k.h" // for Addr68k_from_LADDR, Addr68k_from_LPAGE
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for conspage, freecons, FREECONS, CDR_INDIRECT
#include "commondefs.h" // for error
#include "gccodedefs.h" // for reclaimcodeblock
#include "gcdata.h" // for DELREF, REC_GCLOOKUPV, ADDREF, REC_GCLOOKUP
#include "gcfinaldefs.h" // for reclaimarrayblock, reclaimstackp, releasing...
#include "gcrcelldefs.h" // for freelistcell, gcreccell
#include "lispemul.h" // for LispPTR, ConsCell, NIL, POINTERMASK, DLword
#include "lspglob.h" // for ListpDTD
#include "lsptypes.h" // for dtd, GetDTD, GetTypeNumber, TYPE_ARRAYBLOCK
#ifdef NEWCDRCODING
#undef CONSPAGE_LAST

20
src/gvar2.c
View File

@@ -9,18 +9,16 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lsptypes.h"
#include "lspglob.h"
#include "adr68k.h"
#include "gcdata.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "cell.h" // for xpointer
#include "commondefs.h" // for error
#include "dbprint.h" // for DEBUGGER
#include "emlglob.h"
#include "cell.h"
#include "dbprint.h"
#include "commondefs.h"
#include "gvar2defs.h"
#include "gchtfinddefs.h"
#include "gcdata.h" // for FRPLPTR
#include "gvar2defs.h" // for N_OP_gvar_, N_OP_rplptr
#include "lispemul.h" // for LispPTR, DLword, NEWATOM_VALUE_OFFSET, NEWAT...
#include "lspglob.h" // for AtomSpace
#include "lsptypes.h"
/************************************************************************/
/* */

25
src/hardrtn.c
View File

@@ -22,21 +22,18 @@
*/
/********************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "adr68k.h"
#include "address.h"
#include "lspglob.h"
#include <stdio.h> // for printf
#include "adr68k.h" // for Addr68k_from_StkOffset, StkOffset_from_68K
#include "commondefs.h" // for error
#include "emlglob.h"
#include "cell.h"
#include "stack.h"
#include "return.h"
#include "hardrtndefs.h"
#include "commondefs.h"
#include "llstkdefs.h"
#include "hardrtndefs.h" // for incusecount68k, slowreturn
#include "lispemul.h" // for state, DLword, CURRENTFX, DLWORDSPER_CELL
#include "lispmap.h" // for STK_HI
#include "llstkdefs.h" // for decusecount68k, freestackblock, blt, stack_...
#include "lspglob.h"
#include "lsptypes.h" // for GETWORD
#include "return.h" // for AFTER_CONTEXTSW, BEFORE_CONTEXTSW, FastRetCALL
#include "stack.h" // for FX, frameex1, Bframe, CHECK_FX, StackWord
#define MAKE_FXCOPY(fx68k) \
{ \

43
src/initdsp.c
View File

@@ -15,43 +15,34 @@
* Author : Osamu Nakamura
*/
#include <stdio.h>
#include <unistd.h>
#include <unistd.h> // for getpagesize
#ifdef BYTESWAP
#include "byteswapdefs.h"
#endif
#include "dbprint.h" // for DBPRINT, TPRINT
#include "devconf.h" // for SUN2BW
#include "devif.h" // for (anonymous), MRegion, DevRec, DspInterface
#include "display.h" // for DLWORD_PERLINE, DISPLAYBUFFER
#include "emlglob.h"
#include "ifpage.h" // for IFPAGE
#include "initdspdefs.h" // for clear_display, display_before_exit, flush_d...
#include "lispemul.h" // for DLword, BITSPER_DLWORD, T
#include "lspglob.h"
#include "lsptypes.h"
#ifdef XWINDOW
#include "xcursordefs.h" // for Init_XCursor
#endif
#ifdef OS4
#include <vfork.h>
#endif /* OS4 */
#include "lispemul.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "lspglob.h"
#include "emlglob.h"
#include "display.h"
#include "devconf.h"
#include "bb.h"
#include "bitblt.h"
#include "pilotbbt.h"
#include "dbprint.h"
#include "initdspdefs.h"
#ifdef BYTESWAP
#include "byteswapdefs.h"
#endif
#ifdef XWINDOW
#include "xcursordefs.h"
#endif
#ifdef DOS
#define getpagesize() 512
#endif /* DOS */
#if defined(XWINDOW) || defined(DOS)
#include "devif.h"
DLword *DisplayRegion68k_end_addr;
extern DspInterface currentdsp;
#endif /* DOS */

1
src/initkbd.c
View File

@@ -33,6 +33,7 @@
#ifdef XWINDOW
#include <X11/X.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/keysym.h>

54
src/initsout.c
View File

@@ -17,36 +17,34 @@
#include "version.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#ifndef DOS
#include <pwd.h>
#include <pwd.h> // for getpwuid, passwd
#endif
#include "hdw_conf.h"
#include "lispemul.h"
#include "lspglob.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "adr68k.h"
#include "ifpage.h"
#include "iopage.h"
#include "cell.h"
#include "devconf.h"
#include "dbprint.h"
#include "lldsp.h"
#include "gcdata.h" /* for ADDREF & GCLOOKUP */
#include "initsoutdefs.h"
#include "byteswapdefs.h"
#include "gcarraydefs.h"
#include "gchtfinddefs.h"
#include "mkcelldefs.h"
#include "testtooldefs.h"
#include <stdio.h> // for fprintf, NULL, stderr
#include <stdlib.h> // for malloc, exit
#include <string.h> // for strlen, strncpy
#include <time.h> // for time_t
#include <unistd.h> // for gethostid, getuid
#include "adr68k.h" // for Addr68k_from_LADDR
#ifdef BYTESWAP
#include "byteswapdefs.h" // for word_swap_page
#endif
#include "cell.h" // for GetVALCELL68k
#include "dbprint.h" // for DBPRINT
#include "etherdefs.h" // for init_ifpage_ether
#include "gcarraydefs.h" // for get_package_atom
#include "gcdata.h" // for ADDREF, GCLOOKUP
#include "hdw_conf.h" // for KATANA
#include "ifpage.h" // for IFPAGE
#include "initsoutdefs.h" // for build_lisp_map, fixp_value, init_for_bitblt
#include "iopage.h" // for IOPAGE
#include "lispemul.h" // for LispPTR, DLword, NIL, BYTESPER_DLWORD
#include "lispmap.h" // for ATMHT_OFFSET, ATOMS_OFFSET, DEFS_OFFSET
#include "lspglob.h" // for InterfacePage, IOPage, AtomHT, Closure_Cac...
#include "lsptypes.h" // for GetDTD, TYPE_FIXP, TYPE_LISTP
#include "miscstat.h" // for MISCSTATS
#include "mkcelldefs.h" // for N_OP_createcell
#include "testtooldefs.h" // for MakeAtom68k, MAKEATOM
#ifdef MAIKO_ENABLE_ETHERNET
#include "etherdefs.h"

23
src/intcall.c
View File

@@ -10,23 +10,16 @@
#include "version.h"
#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "stack.h"
#include "return.h"
#include "adr68k.h" // for StkOffset_from_68K, Addr68k_from_LADDR, Add...
#include "cell.h" // for definition_cell, GetDEFCELL68k
#include "emlglob.h"
#include "intcalldefs.h" // for cause_interruptcall
#include "llstkdefs.h" // for do_stackoverflow
#include "lspglob.h"
#include "initatms.h"
#include "cell.h"
#include "tosfns.h"
#include "intcalldefs.h"
#include "commondefs.h"
#include "llstkdefs.h"
#include "returndefs.h"
#include "lsptypes.h" // for GETWORD
#include "returndefs.h" // for contextsw
#include "stack.h" // for state, CurrentStackPTR, DLword, FX, FuncObj
#include "tosfns.h" // for SWAPPED_FN_CHECK
void cause_interruptcall(register unsigned int atom_index)
/* Atomindex for Function you want to invoke */

1
src/keyevent.c
View File

@@ -51,6 +51,7 @@ void Mouse_hndlr(void); /* Fields mouse events from driver */
#include "iopage.h"
#include "ifpage.h"
#include "miscstat.h"
#include "bb.h"
#include "bitblt.h"

25
src/kprint.c
View File

@@ -10,21 +10,18 @@
#include "version.h"
#include <stdio.h>
#include "print.h"
#include "address.h"
#include "lispemul.h"
#include "lsptypes.h"
#include "lspglob.h"
#include "initatms.h"
#include "cell.h"
#include <stdio.h> // for printf
#include "address.h" // for LOLOC
#include "adr68k.h" // for Addr68k_from_LADDR
#include "car-cdrdefs.h" // for cdr, car
#include "emlglob.h"
#include "lispmap.h"
#include "adr68k.h"
#include "kprintdefs.h"
#include "car-cdrdefs.h"
#include "testtooldefs.h"
#include "kprintdefs.h" // for prindatum, print, print_NEWstring, print_fixp
#include "lispemul.h" // for LispPTR, DLbyte, DLword, POINTERMASK, NIL
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h" // for NEWSTRINGP, GETBYTE, GetTypeNumber, TYPE_L...
#include "print.h" // for DOUBLEQUOTE, RIGHT_PAREN, LEFT_PAREN, SPACE
#include "testtooldefs.h" // for print_atomname
int PrintMaxLevel = 3;
int Printdepth = 0;

36
src/ldsout.c
View File

@@ -11,25 +11,25 @@
#include "version.h"
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <unistd.h>
#include "adr68k.h"
#include "lispemul.h"
#include <fcntl.h> // for open, O_RDONLY
#include <stdio.h> // for perror, fprintf, printf, stderr, sprintf
#include <stdlib.h> // for exit, free, malloc, posix_memalign
#include <string.h> // for memset
#include <sys/stat.h> // for stat, fstat
#include <unistd.h> // for lseek, read, close, getpagesize
#include "adr68k.h" // for Addr68k_from_LADDR
#ifdef BYTESWAP
#include "byteswapdefs.h" // for word_swap_page
#endif
#include "dbprint.h" // for DBPRINT, TPRINT
#include "devif.h" // for DspInterface
#include "ifpage.h" // for IFPAGE, IFPAGE_KEYVAL
#include "initdspdefs.h" // for flush_display_buffer, init_display2
#include "ldsoutdefs.h" // for sysout_loader
#include "lispemul.h" // for BYTESPER_PAGE, GETFPTOVP, DLword, GETPAGEOK
#include "lispmap.h" // for DISPLAY_OFFSET
#include "lspglob.h" // for Lisp_world, native_load_address
#include "lsptypes.h"
#include "lispmap.h"
#include "lspglob.h"
#include "ifpage.h"
#include "dbprint.h"
#include "ldsoutdefs.h"
#include "byteswapdefs.h"
#include "initdspdefs.h"
#define IFPAGE_ADDRESS 512
#define DEFAULT_MAX_SYSOUTSIZE 64 /* in Mbyte */

24
src/lisp2c.c
View File

@@ -12,21 +12,17 @@
#include "version.h"
#include <stdio.h> /* for sprintf */
#include <stdlib.h>
#include "lispemul.h"
#include "lspglob.h"
#include <stdio.h> // for sprintf
#include <stdlib.h> // for abs
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
#include "commondefs.h" // for error
#include "emlglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "medleyfp.h"
#include "arith.h"
#include "lisp2cdefs.h"
#include "commondefs.h"
#include "mkcelldefs.h"
#include "lisp2cdefs.h" // for CIntToLispInt, LispIntToCInt, LispStringLength
#include "lispemul.h" // for LispPTR
#include "lispmap.h" // for S_NEGATIVE, S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h" // for OneDArray, FAT_CHAR_TYPENUMBER, THIN_CHAR_TY...
#include "mkcelldefs.h" // for createcell68k
int LispStringP(LispPTR object) {
int type;

1
src/llcolor.c
View File

@@ -16,7 +16,6 @@
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/file.h>
#include <unistd.h>
#include "lispemul.h"
#include "lispmap.h"

39
src/llstk.c
View File

@@ -19,29 +19,24 @@
*/
/******************************************************************/
#include <stdio.h> /* for printf */
#ifdef FSBCHECK
#include <string.h> /* for memset */
#endif
#include "lispemul.h"
#include "lispmap.h"
#include "adr68k.h"
#include "address.h"
#include "lsptypes.h"
#include "initatms.h"
#include "lspglob.h"
#include <stdio.h> // for printf, putchar
#include <string.h> // for memset
#include "address.h" // for LOLOC
#include "adr68k.h" // for Addr68k_from_StkOffset, StkOffset_from_68K
#include "commondefs.h" // for error, warn
#include "dbgtooldefs.h" // for sff
#include "emlglob.h"
#include "cell.h"
#include "stack.h"
#include "return.h"
#include "llstkdefs.h"
#include "commondefs.h"
#include "dbgtooldefs.h"
#include "testtooldefs.h"
#include "kprintdefs.h"
#include "storagedefs.h"
#include "ifpage.h" // for IFPAGE
#include "kprintdefs.h" // for print
#include "lispemul.h" // for DLword, state, CurrentStackPTR, CURRENTFX
#include "lispmap.h" // for STK_HI, STK_OFFSET, S_POSITIVE
#include "llstkdefs.h" // for blt, check_BF, check_FX, check_stack_rooms
#include "lspglob.h" // for InterfacePage, Stackspace, STACKOVERFLOW_word
#include "lsptypes.h" // for GETWORD
#include "return.h" // for AFTER_CONTEXTSW, BEFORE_CONTEXTSW
#include "stack.h" // for StackWord, Bframe, FX, frameex1, STKWORD
#include "storagedefs.h" // for newpage
// #include "testtooldefs.h" // for print_atomname
extern int extended_frame;
/******************************************************************/

27
src/loopsops.c
View File

@@ -19,20 +19,21 @@
PutValue(object, iv, val)
*/
#include "lispemul.h"
#include "lsptypes.h"
#include "cell.h"
#include "lispmap.h"
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for GetVALCELL68k, definition_cell, GetDEFCELL68k
#include "commondefs.h" // for error
#include "gcarraydefs.h" // for get_package_atom
#include "gcdata.h" // for FRPLPTR
#include "lispemul.h" // for LispPTR, state, CurrentStackPTR, NIL_PTR, NIL
#include "lispmap.h" // for S_POSITIVE, STK_OFFSET
#include "loopsopsdefs.h" // for lcfuncall, LCFetchMethod, LCFetchMethodOrHelp
#include "lspglob.h"
#include "adr68k.h"
#include "stack.h"
#include "gcdata.h"
#include "loopsopsdefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "gcarraydefs.h"
#include "gchtfinddefs.h"
#include "lsptypes.h" // for GetDTD, GetTypeNumber, dtd, Listp, GETWORD
#include "stack.h" // for frameex1, fnhead, BF_MARK, FX_MARK, STK_SAFE
#include "version.h" // for UNSIGNED, BIGVM
struct LCIVCacheEntry;
struct LCInstance;
static const char il_string[] = "INTERLISP";
#define GET_IL_ATOM(string) get_package_atom((string), (sizeof(string) - 1), il_string, 9, NIL)

14
src/lowlev1.c
View File

@@ -10,15 +10,13 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "emlglob.h"
#include "lowlev1defs.h"
#include "lispemul.h" // for LispPTR, state, DLword, POINTERMASK, ERROR_...
#include "lispmap.h" // for S_POSITIVE
#include "lowlev1defs.h" // for N_OP_getbitsnfd, N_OP_putbasen, N_OP_putbas...
#include "lspglob.h"
#include "lsptypes.h" // for GETWORD
static const int mask_array[16] = {
1, 3, 7, 0xf, 0x1f, 0x3f, 0x7f, 0xff,

14
src/lowlev2.c
View File

@@ -10,15 +10,13 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "emlglob.h"
#include "lowlev2defs.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT, SEGMASK, POINTE...
#include "lispmap.h" // for S_POSITIVE, S_NEGATIVE
#include "lowlev2defs.h" // for N_OP_addbase, N_OP_getbasebyte, N_OP_putbas...
#include "lspglob.h"
#include "lsptypes.h" // for GETBYTE, GetTypeNumber, TYPE_FIXP
/*** NOTE: these routines likely not called (see inlinedefsC.h) ***/

15
src/lsthandl.c
View File

@@ -18,17 +18,14 @@
#include "version.h"
#include "lispemul.h"
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for cadr_cell
#include "emlglob.h"
#include "lispemul.h" // for state, LispPTR, ERROR_EXIT, NIL_PTR, Scrat...
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "lsthandldefs.h"
#include "car-cdrdefs.h"
#include "vars3defs.h"
#include "lsptypes.h" // for Listp, GetTypeNumber, TYPE_LISTP
#include "lsthandldefs.h" // for N_OP_fmemb, N_OP_listget, fmemb
#include "vars3defs.h" // for cadr
/***********************************************************************/
/* N_OP_fmemb */

13
src/main.c
View File

@@ -14,19 +14,15 @@
* This file includes main()
*/
#include "lispemul.h"
#include "dbprint.h"
#include <errno.h>
#include <setjmp.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/select.h>
#include <sys/types.h>
#include <time.h>
#ifndef DOS
#include <pwd.h>
#include <sys/param.h>
#include <unistd.h>
#else /* DOS */
@@ -42,21 +38,17 @@
#endif /* MAIKO_ENABLE_ETHERNET */
#include "emlglob.h"
#include "address.h"
#include "adr68k.h"
#include "stack.h"
#include "return.h"
#include "lispemul.h"
#include "lspglob.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "ifpage.h"
#include "iopage.h"
#include "debug.h"
#include "timeout.h"
#include "maindefs.h"
#include "commondefs.h"
#include "dirdefs.h"
@@ -66,6 +58,7 @@
#include "initkbddefs.h"
#include "initsoutdefs.h"
#include "ldsoutdefs.h"
#include "miscstat.h"
#include "storagedefs.h"
#include "timerdefs.h"
#include "unixcommdefs.h"

29
src/misc7.c
View File

@@ -11,26 +11,17 @@
/* misc7.c
*/
#include <stdio.h>
#ifndef DOS
#include <sys/ioctl.h>
#endif /* DOS */
#include "lispemul.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "arith.h" // for N_GETNUMBER
#include "bbtsubdefs.h" // for n_new_cursorin
#include "dbprint.h" // for DBPRINT
#include "display.h" // for in_display_segment
#include "initdspdefs.h" // for flush_display_ptrregion
#include "lispemul.h" // for LispPTR, DLword, state, BITSPER_DLWORD, ERR...
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "arith.h"
#include "dbprint.h"
/* osamu '90/02/08
* add display.h, because in_display_segment() is changed as
* macro. definition is in display.h
*/
#include "display.h"
#include "misc7defs.h"
#include "bbtsubdefs.h"
#include "initdspdefs.h"
#include "lsptypes.h" // for GETWORDBASEWORD
#include "misc7defs.h" // for N_OP_misc7
/*************************************************/

24
src/miscn.c
View File

@@ -16,22 +16,18 @@
*/
/***********************************************************/
#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "arith.h" // for N_GETNUMBER
#include "commondefs.h" // for error
#include "emlglob.h"
#include "lispemul.h" // for LispPTR, state, CurrentStackPTR, TopOfStack
#include "loopsopsdefs.h" // for LCFetchMethod, LCFetchMethodOrHelp, LCFind...
#include "lspglob.h"
#include "arith.h"
#include "subrs.h"
#include "miscndefs.h"
#include "commondefs.h"
#include "loopsopsdefs.h"
#include "mvsdefs.h"
#include "sxhashdefs.h"
#include "usrsubrdefs.h"
#include "lsptypes.h"
#include "miscndefs.h" // for OP_miscn
#include "mvsdefs.h" // for values, values_list
#include "subrs.h" // for miscn_LCFetchMethod, miscn_LCFetchMethodOr...
#include "sxhashdefs.h" // for STRING_EQUAL_HASHBITS, STRING_HASHBITS
#include "usrsubrdefs.h" // for UserSubr
/***********************************************************/
/*

22
src/mkatom.c
View File

@@ -31,19 +31,15 @@
/**********************************************************************/
#ifndef BYTESWAP
#include <string.h>
#include <string.h> // for memcmp
#endif
#include <stdint.h>
#include "lispemul.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "cell.h"
#include "dbprint.h"
#include "mkatomdefs.h"
#include "commondefs.h"
#include "mkcelldefs.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "cell.h" // for PNCell, GetPnameCell
#include "dbprint.h" // for DBPRINT
#include "lispemul.h" // for DLword, LispPTR, T, NIL, POINTERMASK
#include "lispmap.h" // for S_POSITIVE
#include "lsptypes.h" // for GETBYTE, GETWORD
#include "mkatomdefs.h" // for compare_chars, compare_lisp_chars, compute_hash
#define ATOMoffset 2 /* NIL NOBIND */
#define MAX_ATOMINDEX 0xffff /* max number of atoms */
@@ -132,7 +128,7 @@ DLword compute_lisp_hash(const char *char_base, DLword offset, DLword length, DL
} /* end compute_lisp_hash */
#ifdef BYTESWAP
int bytecmp(const char *char1, const char *char2, int len)
static int bytecmp(const char *char1, const char *char2, int len)
{
int index;
for (index = 0; index < len; index++) {

20
src/mkcell.c
View File

@@ -27,20 +27,16 @@
*/
/**********************************************************************/
#include "lispemul.h"
#include "lispmap.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "allocmdsdefs.h" // for alloc_mdspage, initmdspage
#include "commondefs.h" // for error
#include "emlglob.h"
#include "gcdata.h" // for DELREF, GCLOOKUP
#include "lispemul.h" // for LispPTR, DLword, NIL, POINTERMASK, state
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "gcdata.h"
#include "mkcelldefs.h"
#include "allocmdsdefs.h"
#include "commondefs.h"
#include "gchtfinddefs.h"
#include "lsptypes.h" // for dtd, GETWORD, GetDTD
#include "mkcelldefs.h" // for N_OP_createcell, createcell68k
#ifdef DTDDEBUG
#include "testtooldefs.h"
#endif

5
src/mouseif.c
View File

@@ -13,15 +13,14 @@
#include "version.h"
#include "lispemul.h"
#include "dbprint.h"
#include "devif.h"
#include "devif.h" // for MouseInterface, MouseInterfaceRec
MouseInterfaceRec curmouse;
MouseInterface currentmouse = &curmouse;
#ifdef DOS
#include <dos.h>
#include "lispemul.h"
int nomouseflag = FALSE;
extern DLword *Lisp_world;

26
src/mvs.c
View File

@@ -18,22 +18,18 @@
/* */
/************************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lispmap.h"
#include "lspglob.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#ifdef RESWAPPEDCODESTREAM
#include "byteswapdefs.h" // for byte_swap_code_block
#endif
#include "car-cdrdefs.h" // for car
#include "conspagedefs.h" // for cons
#include "emlglob.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "opcodes.h"
#include "cell.h"
#include "byteswapdefs.h"
#include "mvsdefs.h"
#include "car-cdrdefs.h"
#include "conspagedefs.h"
#include "lspglob.h" // for Stackspace
#include "lsptypes.h" // for ByteCode, LispPTR, state, DLword, FN_OPCOD...
#include "mvsdefs.h" // for make_value_list, simulate_unbind, values
#include "opcodes.h" // for opc_JUMP, opc_FJUMP, opc_FN1, opc_JUMPX
#include "stack.h" // for FX2, GETCLINK
/* to optionally swap the fnhead field of a frame */
#ifdef BIGVM

13
src/perrno.c
View File

@@ -10,14 +10,11 @@
#include "version.h"
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include "lispemul.h"
#include "osmsg.h"
#include "perrnodefs.h"
#include "osmsgdefs.h"
#include <errno.h> // for errno
#include <stdio.h> // for fprintf, perror, stderr, NULL
#include <string.h> // for strerror
#include "osmsg.h" // for OSMESSAGE_PRINT
#include "perrnodefs.h" // for err_mess, perrorn
/************************************************************************/
/* */

15
src/rplcons.c
View File

@@ -22,18 +22,13 @@
*/
/**********************************************************************/
#include "lispemul.h"
#include "car-cdrdefs.h" // for N_OP_rplacd
#include "conspagedefs.h" // for cons
#include "emlglob.h"
#include "lispemul.h" // for LispPTR, state, ERROR_EXIT, NIL_PTR
#include "lspglob.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "gcdata.h"
#include "cell.h"
#include "rplconsdefs.h"
#include "car-cdrdefs.h"
#include "conspagedefs.h"
#include "lsptypes.h" // for Listp
#include "rplconsdefs.h" // for N_OP_rplcons
/***************************************************/

27
src/setsout.c
View File

@@ -20,24 +20,17 @@
/* */
/************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/file.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include <fcntl.h>
#include "adr68k.h"
#include "lispemul.h"
#include "lsptypes.h"
#include "lispmap.h"
#include <errno.h> // for errno
#include <fcntl.h> // for open, O_RDWR
#include <stdio.h> // for perror, printf, sprintf, SEEK_SET, NULL
#include <stdlib.h> // for exit, strtol
#include <unistd.h> // for lseek, close, read, write
#ifdef BYTESWAP
#include "byteswapdefs.h" // for word_swap_page
#endif
#include "ifpage.h" // for IFPAGE
#include "lspglob.h"
#include "ifpage.h"
#include "dbprint.h"
#include "byteswapdefs.h"
#include "lsptypes.h"
#define IFPAGE_ADDRESS 512
#define MBYTE 0x100000 /* 1 Mbyte */

13
src/shift.c
View File

@@ -9,17 +9,12 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "arith.h" // for N_GETNUMBER, N_ARITH_SWITCH
#include "emlglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "lispemul.h" // for state, ERROR_EXIT, LispPTR
#include "lspglob.h"
#include "lsptypes.h"
#include "arith.h"
#include "shiftdefs.h"
#include "mkcelldefs.h"
#include "shiftdefs.h" // for N_OP_llsh1, N_OP_llsh8, N_OP_lrsh1, N_OP_lrsh8
/*
* XXX: it feels as though something is not clean here, looks like the

36
src/storage.c
View File

@@ -16,26 +16,22 @@
*/
/*****************************************************************/
#include <stdio.h> /* for printf */
#include "hdw_conf.h"
#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lispmap.h"
#include "stack.h"
#include "lspglob.h"
#include "cell.h"
#include "lsptypes.h"
#include "ifpage.h"
#include "gcdata.h"
#include "storagedefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "conspagedefs.h"
#include "gcfinaldefs.h"
#include "gchtfinddefs.h"
#include "testtooldefs.h"
#include <stdio.h> // for printf
#include "address.h" // for POINTER_PAGE
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
#include "car-cdrdefs.h" // for cdr, car, rplacd, rplaca
#include "commondefs.h" // for error
#include "conspagedefs.h" // for cons
#include "gcdata.h" // for ADDREF, GCLOOKUP
#include "gcfinaldefs.h" // for makefreearrayblock, mergebackward
#include "hdw_conf.h" // for KATANA
#include "ifpage.h" // for IFPAGE
#include "lispemul.h" // for LispPTR, NIL, GETFPTOVP, INTSTAT, ATOM_T
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h" // for InterfacePage, FPtoVP, SYSTEMCACHEVARS_word
#include "lsptypes.h" // for Listp
#include "storagedefs.h" // for checkfor_storagefull, init_storage, newpage
#include "testtooldefs.h" // for MAKEATOM
#define MINARRAYBLOCKSIZE 4
#define GUARDVMEMFULL 500

69
src/subr.c
View File

@@ -28,45 +28,42 @@
*/
/***********************************************************/
#include <stdio.h>
#include <time.h>
#include "lispemul.h"
#include "address.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "lspglob.h"
#include "cell.h"
#include "stack.h"
#include "arith.h"
#include "subrs.h"
#include "dbprint.h"
#include "subrdefs.h"
#include "bbtsubdefs.h"
#include "chardevdefs.h"
#include "commondefs.h"
#include "dirdefs.h"
#include "dskdefs.h"
#include "dspsubrsdefs.h"
#include "etherdefs.h"
#include "gcarraydefs.h"
#include "gcrdefs.h"
#include "inetdefs.h"
#include "kbdsubrsdefs.h"
#include "mkcelldefs.h"
#include "osmsgdefs.h"
#include "rpcdefs.h"
#include "storagedefs.h"
#include "timerdefs.h"
#include "ufsdefs.h"
#include "unixcommdefs.h"
#include "uutilsdefs.h"
#include "uraidextdefs.h"
#include "vmemsavedefs.h"
#include <stdio.h> // for printf, sprintf, NULL
#include <time.h> // for nanosleep, timespec
#include "adr68k.h" // for Addr68k_from_LADDR
#include "arith.h" // for N_GETNUMBER, ARITH_SWITCH
#include "bbtsubdefs.h" // for bitblt_bitmap, bitbltsub, bitshade_bitmap
#include "cell.h" // for PNCell, GetPnameCell
#include "chardevdefs.h" // for CHAR_bin, CHAR_bins, CHAR_bout, CHAR_bouts
#include "commondefs.h" // for error
#include "dbprint.h" // for DBPRINT
#include "dirdefs.h" // for COM_finish_finfo, COM_gen_files, COM_next_...
#include "dskdefs.h" // for COM_changedir, COM_closefile, COM_getfileinfo
#include "dspsubrsdefs.h" // for DSP_Cursor, DSP_ScreenHight, DSP_ScreenWidth
#include "etherdefs.h" // for check_ether, check_sum, ether_ctrlr, ether...
#ifdef MAIKO_ENABLE_FOREIGN_FUNCTION_INTERFACE
#include "foreigndefs.h"
#endif
#include "gcarraydefs.h" // for with_symbol
#include "gcrdefs.h" // for disablegc1, doreclaim
#include "inetdefs.h" // for subr_TCP_ops
#include "kbdsubrsdefs.h" // for KB_beep, KB_enable, KB_setmp
#include "lispemul.h" // for state, LispPTR, NIL_PTR, PopStackTo, TopOf...
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "lsptypes.h"
#include "osmsgdefs.h" // for mess_read, mess_readp
#include "rpcdefs.h" // for rpc
#include "storagedefs.h" // for newpage
#include "subrdefs.h" // for OP_subrcall, atom_to_str
#include "subrs.h" // for sb_BITBLTSUB, sb_BITBLT_BITMAP, sb_BLTCHAR
#include "timerdefs.h" // for subr_copytimestats, subr_gettime, subr_set...
#include "ufsdefs.h" // for UFS_deletefile, UFS_directorynamep, UFS_ge...
#include "unixcommdefs.h" // for Unix_handlecomm
#include "uraidextdefs.h" // for Uraid_mess
#include "uutilsdefs.h" // for suspend_lisp, check_unix_password, unix_fu...
#include "version.h" // for UNSIGNED
#include "vmemsavedefs.h" // for lisp_finish, vmem_save0
extern LispPTR *PENDINGINTERRUPT68k;

26
src/sxhash.c
View File

@@ -10,23 +10,17 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "arith.h" // for FIXP_VALUE
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for PLCell, PNCell, GetPnameCell, GetPropCell
#include "commondefs.h" // for error
#include "emlglob.h"
#include "adr68k.h"
#include "address.h"
#include "stack.h"
#include "cell.h"
#include "array.h"
#include "arith.h"
#include "sxhashdefs.h"
#include "car-cdrdefs.h"
#include "commondefs.h"
#include "lispemul.h" // for LispPTR, DLword, POINTERMASK, SEGMASK
#include "lispmap.h" // for S_POSITIVE, S_NEGATIVE
#include "lspglob.h"
#include "lsptypes.h" // for OneDArray, PATHNAME, GETBYTE, GETWORD, COMPLEX
#include "sxhashdefs.h" // for STRING_EQUAL_HASHBITS, STRING_HASHBITS, SX_...
/** Follows definition in LLARRAYELT: **/
#define EQHASHINGBITS(item) \

49
src/testtool.c
View File

@@ -41,33 +41,30 @@
*/
#include <stdint.h>
#include <inttypes.h>
#include <stdio.h>
#include <stdlib.h>
#include <setjmp.h>
#include <string.h>
#include "lispemul.h"
#include "lispmap.h"
#include "adr68k.h"
#include "lsptypes.h"
#include "lspglob.h"
#include <inttypes.h> // for PRIoPTR, PRIuPTR
#include <setjmp.h> // for longjmp, jmp_buf
#include <stdint.h> // for int8_t, uint8_t, uintptr_t
#include <stdio.h> // for printf, putchar, fflush, getchar, stdin
#include <stdlib.h> // for exit
#include <string.h> // for strlen
#include "adr68k.h" // for LADDR_from_68k, Addr68k_from_LADDR, Addr68...
#include "array.h" // for arrayheader
#include "cell.h" // for conspage, PNCell, GetDEFCELL68k, GetPnameCell
#include "commondefs.h" // for error
#include "dbgtooldefs.h" // for get_fn_fvar_name
#include "debug.h" // for PACKAGE
#include "emlglob.h"
#include "cell.h"
#include "ifpage.h"
#include "debug.h"
#include "dbprint.h"
#include "tosfns.h"
#include "array.h"
#include "commondefs.h"
#include "testtooldefs.h"
#include "dbgtooldefs.h"
#include "gcarraydefs.h"
#include "kprintdefs.h"
#include "mkatomdefs.h"
#include "uraidextdefs.h"
#include "gcarraydefs.h" // for aref1
#include "ifpage.h" // for IFPAGE
#include "kprintdefs.h" // for print, prindatum
#include "lispemul.h" // for DLword, LispPTR, DLbyte, state, T, ConsCell
#include "lispmap.h" // for STK_OFFSET, ATOMS_HI
#include "lspglob.h" // for Package_from_Index_word, Stackspace
#include "lsptypes.h" // for GETWORD, dtd, GETBYTE, NEWSTRINGP, GetType...
#include "mkatomdefs.h" // for compare_chars, make_atom
#include "stack.h" // for Bframe, FX, fnhead, frameex1, BFRAMEPTR
#include "testtooldefs.h" // for print_package_name, GETTOPVAL, MAKEATOM
#include "uraidextdefs.h" // for URaid_scanlink
#define URSCAN_ALINK 0
#define URSCAN_CLINK 1

1
src/timer.c
View File

@@ -60,6 +60,7 @@ extern int ether_fd;
#include "lispmap.h"
#include "stack.h"
#include "dbprint.h"
#include "miscstat.h"
#include "timerdefs.h"
#include "commondefs.h"

24
src/tstsout.c
View File

@@ -13,23 +13,15 @@
#include "version.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <sys/file.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <fcntl.h> // for open
#include <stdio.h> // for printf, perror, fprintf, sprintf, SEEK_SET
#include <stdlib.h> // for exit
#include <string.h> // for strncmp
#include <fcntl.h> // for O_RDONLY
#include <unistd.h> // for close, lseek, read
#include "adr68k.h"
#include "lispemul.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "lspglob.h"
#include "ifpage.h"
#include "dbprint.h"
#include "byteswapdefs.h"
#include "byteswapdefs.h" // for word_swap_page
#include "ifpage.h" // for IFPAGE
#define IFPAGE_ADDRESS 512
#define MBYTE 0x100000 /* 1 Mbyte */

9
src/typeof.c
View File

@@ -20,13 +20,10 @@
*/
#include "lispemul.h"
#include "lsptypes.h"
#include "cell.h"
#include "lispmap.h"
#include "lispemul.h" // for LispPTR, ATOM_T, NIL_PTR
#include "lspglob.h"
#include "typeofdefs.h"
#include "lsptypes.h" // for dtd, GetDTD, GetTypeNumber
#include "typeofdefs.h" // for N_OP_instancep
/************************************************************************/
/* */

18
src/ubf1.c
View File

@@ -9,18 +9,14 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "adr68k.h"
#include "adr68k.h" // for LADDR_from_68k
#include "arith.h" // for N_ARITH_SWITCH
#include "lispemul.h" // for state, ERROR_EXIT, DLword, LispPTR
#include "lspglob.h"
#include "lsptypes.h"
#include "lispmap.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "medleyfp.h"
#include "my.h"
#include "ubf1defs.h"
#include "lsptypes.h" // for TYPE_FLOATP
#include "mkcelldefs.h" // for createcell68k
#include "my.h" // for N_MakeFloat
#include "ubf1defs.h" // for N_OP_ubfloat1
/************************************************************
OP_ubfloat1 -- op 355 == UBFLOAT1

10
src/ubf2.c
View File

@@ -11,12 +11,10 @@
#include "version.h"
#include <stdio.h>
#include <math.h>
#include "lispemul.h"
#include "medleyfp.h"
#include "ubf2defs.h"
#include <math.h> // for fmodf
#include "lispemul.h" // for state, ERROR_EXIT, ATOM_T, LispPTR, NIL_PTR
#include "medleyfp.h" // for FPCLEAR, FPTEST
#include "ubf2defs.h" // for N_OP_ubfloat2
/************************************************************
OP_ub2 -- op 354 == UBFLOAT2

12
src/ubf3.c
View File

@@ -11,14 +11,12 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "lispemul.h" // for state, ERROR_EXIT, LispPTR, SEGMASK
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h"
#include "adr68k.h"
#include "lispmap.h"
#include "medleyfp.h"
#include "ubf3defs.h"
#include "medleyfp.h" // for FPCLEAR, FPTEST
#include "ubf3defs.h" // for N_OP_ubfloat3
/************************************************************
N_OP_ubfloat3 -- op 062

6
src/unwind.c
View File

@@ -21,12 +21,10 @@
*/
/******************************************************************/
#include "lispemul.h"
#include "emlglob.h"
#include "stack.h"
#include "lispemul.h" // for LispPTR, state, DLword, PVar, CurrentStackPTR
#include "lspglob.h"
#include "unwinddefs.h"
#include "unwinddefs.h" // for N_OP_unwind
LispPTR *N_OP_unwind(register LispPTR *cstkptr, register LispPTR tos, int n, int keep) {
register int num; /* number of UNBOUND slot */

4
src/uraid.c
View File

@@ -36,6 +36,9 @@
#include <sys/select.h>
#endif /* DOS */
#ifdef XWINDOW
#include <X11/Xlib.h> // for ConnectionNumber
#endif
#ifdef OS5
#include <stropts.h>
@@ -56,6 +59,7 @@
#include "ifpage.h"
#include "debug.h"
#include "devconf.h"
#include "stack.h"
#include "display.h"
#include "bitblt.h"

31
src/uutils.c
View File

@@ -18,27 +18,22 @@
/* */
/************************************************************************/
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#ifndef DOS
#include <pwd.h>
#include <pwd.h> // for getpwuid, passwd
#endif
#include "lispemul.h"
#include "adr68k.h"
#include "lsptypes.h"
#include <signal.h> // for killpg, SIGTSTP
#include <stdio.h> // for printf, NULL, snprintf, size_t
#include <stdlib.h> // for getenv
#include <string.h> // for strcmp, strcpy, strlen, strncpy
#include <unistd.h> // for getuid, gethostid, gethostname, getpgrp
#include "adr68k.h" // for Addr68k_from_LADDR
#include "keyboard.h" // for KBEVENT, KB_ALLUP, RING, KEYEVENTSIZE, MAXKE...
#include "lispemul.h" // for LispPTR, DLword, NIL, ATOM_T
#include "lspglob.h"
#include "osmsg.h"
#include "keyboard.h"
#include "uutilsdefs.h"
#include "osmsgdefs.h"
#include "uraiddefs.h"
#include "lsptypes.h" // for GETWORD, OneDArray, GetTypeNumber, THIN_CHAR...
#include "osmsg.h" // for OSMESSAGE_PRINT
#include "uraiddefs.h" // for device_after_raid, device_before_raid
#include "uutilsdefs.h" // for c_string_to_lisp_string, check_unix_password
/************************************************************************/
/* */

20
src/vars3.c
View File

@@ -9,18 +9,16 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
#include "lispmap.h"
#include "adr68k.h"
#include "adr68k.h" // for Addr68k_from_LADDR
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for cadr_cell, CDR_NIL, CDR_INDIRECT, S_N_CHECK...
#include "emlglob.h"
#include "cell.h"
#include "lsptypes.h"
#include "stack.h"
#include "vars3defs.h"
#include "car-cdrdefs.h"
#include "lispemul.h" // for state, ConsCell, LispPTR, NIL_PTR, DLword
#include "lispmap.h" // for S_POSITIVE
#include "lspglob.h" // for Stackspace
#include "lsptypes.h" // for Listp
#include "stack.h" // for frameex1
#include "vars3defs.h" // for N_OP_arg0, N_OP_assoc, cadr
/*******************************************
cadr

15
src/xbbt.c
View File

@@ -10,15 +10,12 @@
#include "version.h"
#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "lispemul.h"
#include "xdefs.h"
#include "devif.h"
#include "xbbtdefs.h"
#include <X11/Xlib.h> // for XFlush, XPutImage
#include "devif.h" // for (anonymous), MRegion, DspInterface
#include "lispemul.h" // for DLword
#include "version.h"
#include "xbbtdefs.h" // for clipping_Xbitblt
#include "xdefs.h" // for XLOCK, XUNLOCK
/************************************************************************/
/* */

2
src/xc.c
View File

@@ -74,6 +74,7 @@
#include "conspagedefs.h"
#include "drawdefs.h"
#include "eqfdefs.h"
#include "devif.h"
#include "findkeydefs.h"
#include "fpdefs.h"
#include "fvardefs.h"
@@ -81,6 +82,7 @@
#include "gcscandefs.h"
#include "gvar2defs.h"
#include "hardrtndefs.h"
#include "ifpage.h"
#include "intcalldefs.h"
#include "keyeventdefs.h"
#include "llstkdefs.h"

26
src/xcursor.c
View File

@@ -11,20 +11,18 @@
#include "version.h"
#include <stdio.h>
#include <stdlib.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "xdefs.h"
#include "lispemul.h"
#include "iopage.h"
#include "display.h"
#include "dbprint.h"
#include "devif.h"
#include "xcursordefs.h"
#include <X11/X.h> // for Cursor, Pixmap, Colormap
#include <X11/Xlib.h> // for XAllocNamedColor, XCreatePixmapFromBitmapData
#include <stdint.h> // for uint8_t
#include <stdio.h> // for NULL
#include <stdlib.h> // for malloc
#include "dbprint.h" // for TPRINT
#include "devif.h" // for (anonymous), DspInterface, DefineCursor
#include "display.h" // for CURSORHEIGHT
#include "iopage.h" // for IOPAGE
#include "lispemul.h" // for DLword
#include "xcursordefs.h" // for Init_XCursor, Set_XCursor, init_Xcursor
#include "xdefs.h" // for XLOCK, XUNLOCK
extern IOPAGE *IOPage;

50
src/xinit.c
View File

@@ -10,41 +10,23 @@
#include "version.h"
#include <assert.h>
#include <signal.h>
#include <stdbool.h>
#include <stdio.h>
#include <unistd.h>
#include <X11/X.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <sys/types.h>
#include <sys/file.h>
#include <X11/X.h> // for NoEventMask, MSBFirst, StructureNotifyMask
#include <X11/Xlib.h> // for XSelectInput, XImage, XFlush, DefaultScreen
#include <assert.h> // for assert
#include <signal.h> // for sig_atomic_t
#include <stdbool.h> // for false, bool, true
#include <stdio.h> // for NULL
#include "adr68k.h" // for Addr68k_from_LADDR
#include "dbprint.h" // for TPRINT
#include "devif.h" // for (anonymous), MRegion, DspInterface, OUTER_S...
#include "dspifdefs.h" // for GenericReturnT
#include "lispemul.h" // for BITSPER_DLWORD, DLword, LispPTR
#include "xbbtdefs.h" // for clipping_Xbitblt
#include "xdefs.h" // for XLOCK, XUNLOCK, DEF_BDRWIDE, DEF_WIN_HEIGHT
#include "xinitdefs.h" // for Open_Display, X_init, Xevent_after_raid
#include "xlspwindefs.h" // for Create_LispWindow
#include "xwinmandefs.h" // for bound
#include "lispemul.h"
#include "dbprint.h"
#include "xdefs.h"
#include "devif.h"
#include "adr68k.h"
#include "xinitdefs.h"
#include "dspifdefs.h"
#include "timerdefs.h"
#include "xbbtdefs.h"
#include "xlspwindefs.h"
#include "xwinmandefs.h"
#include <fcntl.h>
#include <sys/select.h>
#ifdef OS5
#include <sys/ioctl.h>
#include <stropts.h>
#endif /* OS5 */
#define PERCENT_OF_SCREEN 95
/* DISPLAY_MAX same magic number is in ldsout.c */
#define DISPLAY_MAX (65536 * 16 * 2)

33
src/xlspwin.c
View File

@@ -13,24 +13,21 @@
#include "version.h"
#include <stdio.h>
#include <sys/time.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "lispemul.h"
#include "xdefs.h"
#include "xbitmaps.h"
#include "keyboard.h"
#include "devif.h"
#include "dbprint.h"
#include "xlspwindefs.h"
#include "commondefs.h"
#include "xcursordefs.h"
#include "xmkicondefs.h"
#include <X11/X.h> // for Cursor, CWOverrideRedirect, GCBackground
#include <X11/Xlib.h> // for XCreateSimpleWindow, XMapWindow, XChangeWin...
#include <X11/Xutil.h> // for XSizeHints, XStringListToTextProperty, XWMH...
#include <stdio.h> // for NULL
#include "commondefs.h" // for error
#include "dbprint.h" // for TPRINT
#include "devif.h" // for (anonymous), MRegion, OUTER_SB_WIDTH, Defin...
#include "keyboard.h" // for RING, KBEVENT, KB_ALLUP, KEYEVENTSIZE, MAXK...
#include "lispemul.h" // for DLword, ATOM_T, LispPTR, NIL, T
#include "version.h"
#include "xbitmaps.h" // for LISP_CURSOR, default_cursor, horizscroll_cu...
#include "xcursordefs.h" // for set_Xcursor, init_Xcursor
#include "xdefs.h" // for XLOCK, XUNLOCK
#include "xlspwindefs.h" // for Create_LispWindow, DoRing, lisp_Xvideocolor
#include "xmkicondefs.h" // for make_Xicon
extern DLword *EmKbdAd068K, *EmKbdAd168K, *EmKbdAd268K, *EmKbdAd368K, *EmKbdAd468K, *EmKbdAd568K,
*EmRealUtilin68K;

19
src/xmkicon.c
View File

@@ -11,18 +11,13 @@
#include "version.h"
#include <stdio.h>
#include <stdint.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "lispemul.h"
#include "dbprint.h"
#include "xdefs.h"
#include "devif.h"
#include "xmkicondefs.h"
#include <X11/X.h> // for MSBFirst, Pixmap, XYBitmap
#include <X11/Xlib.h> // for XImage, XCreatePixmap, XPutImage, XReadBitm...
#include <X11/Xutil.h> // for BitmapFileInvalid, BitmapNoMemory, BitmapOp...
#include <stdint.h> // for uint8_t
#include <stdio.h> // for fprintf, printf, stderr
#include "devif.h" // for (anonymous), DspInterface
#include "xmkicondefs.h" // for make_Xicon
XImage IconImage;

29
src/xrdopt.c
View File

@@ -11,27 +11,24 @@
#include "version.h"
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/file.h>
#include <sys/time.h>
#include <unistd.h>
#include <limits.h>
#include <X11/Xlib.h> // for XPointer, True, XParseGeometry, XResource...
#include <X11/Xresource.h> // for XrmoptionSepArg, XrmGetResource, Xrmoptio...
#include <errno.h> // for errno
#include <limits.h> // for PATH_MAX
#include <stdio.h> // for fprintf, NULL, stderr, sscanf
#include <stdlib.h> // for getenv, exit, strtol
#include <string.h> // for strncpy, strcat, strcpy, strcmp
#include <sys/types.h> // for u_char
#include <unistd.h> // for access, R_OK
#include "version.h" // for MAIKO_ENABLE_ETHERNET
#include "xdefs.h" // for WINDOW_NAME
#include "xrdoptdefs.h" // for print_Xusage, read_Xoption
#ifdef MAIKO_ENABLE_ETHERNET
#if defined(USE_NIT)
#include <net/nit.h> /* needed for Ethernet stuff below */
#endif /* USE_NIT */
#endif /* MAIKO_ENABLE_ETHERNET */
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xresource.h>
#include "xdefs.h"
#include "dbprint.h"
#include "xrdoptdefs.h"
extern int LispWindowRequestedX, LispWindowRequestedY;
extern unsigned LispWindowRequestedWidth, LispWindowRequestedHeight;

16
src/xscroll.c
View File

@@ -11,17 +11,11 @@
#include "version.h"
#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "lispemul.h"
#include "xdefs.h"
#include "devif.h"
#include "xscrolldefs.h"
#include "xwinmandefs.h"
#include <X11/Xlib.h> // for XMoveWindow
#include "devif.h" // for (anonymous), MRegion, DspInterface
#include "xdefs.h" // for SCROLL_PITCH
#include "xscrolldefs.h" // for JumpScrollHor, JumpScrollVer, Scroll, Scrol...
#include "xwinmandefs.h" // for bound
int ScrollPitch = SCROLL_PITCH;

27
src/xwinman.c
View File

@@ -11,20 +11,19 @@
#include "version.h"
#include <stdio.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include "lispemul.h"
#include "miscstat.h"
#include "devif.h"
#include "xdefs.h"
#include "xscroll.h"
#include "xwinmandefs.h"
#include "keyeventdefs.h"
#include "xlspwindefs.h"
#include "xscrolldefs.h"
#include <X11/X.h> // for Button1, Cursor, ButtonPress, Button2, But...
#include <X11/Xlib.h> // for XEvent, XMoveResizeWindow, XAnyEvent, XBut...
#include <stdio.h> // for printf
#include <sys/types.h> // for u_char
#include "devif.h" // for (anonymous), MRegion, DefineCursor, OUTER_...
#include "keyeventdefs.h" // for kb_trans
#include "lispemul.h" // for PUTBASEBIT68K, FALSE, TRUE, DLword, state
#include "miscstat.h" // for MISCSTATS
#include "version.h"
#include "xdefs.h" // for XLOCK, XUNLOCK
#include "xlspwindefs.h" // for DoRing
#include "xscrolldefs.h" // for JumpScrollHor, JumpScrollVer, Scroll, Scro...
#include "xwinmandefs.h" // for Set_BitGravity, beep_Xkeyboard, bound, dis...
int Mouse_Included = FALSE;

26
src/z2.c
View File

@@ -23,25 +23,17 @@
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "car-cdrdefs.h" // for car, cdr
#include "cell.h" // for cadr_cell, S_N_CHECKANDCADR
#include "conspagedefs.h" // for cons
#include "emlglob.h"
#include "lispemul.h" // for state, LispPTR, NIL_PTR, ERROR_EXIT, Irq_S...
#include "lispmap.h" // for ATOM_OFFSET, S_CHARACTER, S_NEGATIVE, S_PO...
#include "lspglob.h"
#include "lispmap.h"
#include "lsptypes.h"
#include "address.h"
#include "adr68k.h"
#include "cell.h"
#include "stack.h"
#include "gcdata.h"
#include "mkcelldefs.h"
#include "arith.h"
#include "my.h"
#include "z2defs.h"
#include "car-cdrdefs.h"
#include "conspagedefs.h"
#include "vars3defs.h"
#include "lsptypes.h" // for Listp, GetTypeNumber, TYPE_LISTP
#include "vars3defs.h" // for cadr
#include "version.h"
#include "z2defs.h" // for N_OP_classoc, N_OP_clfmemb, N_OP_restlist
/* N_OP_classoc() OP 33Q */
LispPTR N_OP_classoc(LispPTR key, LispPTR list) {