1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-18 21:37:21 +00:00

Create a new inc/xxxdefs.h for each src/xxx.c containing appropriate function prototypes.

This also involves removing unnecessary forward declarations, inserting
       includes for all cross-file function references, making some definitions
       static if they are not otherwise used, correcting errors that were exposed
       by having correct prototypes.

	new file:   inc/allocmdsdefs.h
	new file:   inc/arith2defs.h
	new file:   inc/arith3defs.h
	new file:   inc/arith4defs.h
	new file:   inc/array2defs.h
	new file:   inc/array3defs.h
	new file:   inc/array4defs.h
	new file:   inc/array5defs.h
	new file:   inc/array6defs.h
	new file:   inc/arraydefs.h
	new file:   inc/bbtsubdefs.h
	new file:   inc/bindefs.h
	new file:   inc/bindsdefs.h
	new file:   inc/bitbltdefs.h
	new file:   inc/bltdefs.h
	new file:   inc/byteswapdefs.h
	new file:   inc/car-cdrdefs.h
	new file:   inc/chardevdefs.h
	new file:   inc/commondefs.h
	new file:   inc/conspagedefs.h
	new file:   inc/dbgtooldefs.h
	new file:   inc/dirdefs.h
	new file:   inc/drawdefs.h
	new file:   inc/dskdefs.h
	new file:   inc/dspifdefs.h
	new file:   inc/dspsubrsdefs.h
	new file:   inc/eqfdefs.h
	new file:   inc/etherdefs.h
	new file:   inc/findkeydefs.h
	new file:   inc/fpdefs.h
	new file:   inc/fvardefs.h
	new file:   inc/gc2defs.h
	new file:   inc/gcarraydefs.h
	new file:   inc/gccodedefs.h
	new file:   inc/gcdefs.h
	new file:   inc/gcfinaldefs.h
	new file:   inc/gchtfinddefs.h
	new file:   inc/gcmain3defs.h
	new file:   inc/gcoflowdefs.h
	new file:   inc/gcrcelldefs.h
	new file:   inc/gcrdefs.h
	new file:   inc/gcscandefs.h
	new file:   inc/gvar2defs.h
	new file:   inc/hacksdefs.h
	new file:   inc/hardrtndefs.h
	new file:   inc/inetdefs.h
	new file:   inc/initdspdefs.h
	new file:   inc/initkbddefs.h
	new file:   inc/initsoutdefs.h
	modified:   inc/inlineC.h
	new file:   inc/intcalldefs.h
	new file:   inc/kbdsubrsdefs.h
	new file:   inc/keyeventdefs.h
	new file:   inc/keylibdefs.h
	new file:   inc/kprintdefs.h
	new file:   inc/ldsoutdefs.h
	new file:   inc/lineblt8defs.h
	new file:   inc/lisp2cdefs.h
	modified:   inc/lispemul.h
	new file:   inc/llcolordefs.h
	new file:   inc/llstkdefs.h
	modified:   inc/lnk-inlineC.h
	new file:   inc/loopsopsdefs.h
	new file:   inc/lowlev1defs.h
	new file:   inc/lowlev2defs.h
	new file:   inc/lsthandldefs.h
	new file:   inc/maindefs.h
	new file:   inc/misc7defs.h
	new file:   inc/miscndefs.h
	new file:   inc/mkatomdefs.h
	new file:   inc/mkcelldefs.h
	new file:   inc/mvsdefs.h
	new file:   inc/osmsgdefs.h
	new file:   inc/perrnodefs.h
	new file:   inc/returndefs.h
	new file:   inc/rpcdefs.h
	new file:   inc/rplconsdefs.h
	new file:   inc/shiftdefs.h
	new file:   inc/storagedefs.h
	new file:   inc/subr0374defs.h
	new file:   inc/subrdefs.h
	new file:   inc/sxhashdefs.h
	new file:   inc/testtooldefs.h
	new file:   inc/timerdefs.h
	new file:   inc/typeofdefs.h
	new file:   inc/ubf1defs.h
	new file:   inc/ubf2defs.h
	new file:   inc/ubf3defs.h
	new file:   inc/ufsdefs.h
	new file:   inc/unixcommdefs.h
	new file:   inc/unwinddefs.h
	new file:   inc/uraiddefs.h
	new file:   inc/usrsubrdefs.h
	new file:   inc/uutilsdefs.h
	new file:   inc/vars3defs.h
	new file:   inc/vmemsavedefs.h
	new file:   inc/xbbtdefs.h
	new file:   inc/xcdefs.h
	new file:   inc/xcursordefs.h
	new file:   inc/xinitdefs.h
	new file:   inc/xlspwindefs.h
	new file:   inc/xmkicondefs.h
	new file:   inc/xrdoptdefs.h
	new file:   inc/xscrolldefs.h
	new file:   inc/xwinmandefs.h
	new file:   inc/z2defs.h
	modified:   src/allocmds.c
	modified:   src/arith2.c
	modified:   src/arith3.c
	modified:   src/arith4.c
	modified:   src/array.c
	modified:   src/array2.c
	modified:   src/array3.c
	modified:   src/array4.c
	modified:   src/array5.c
	modified:   src/array6.c
	modified:   src/bbtsub.c
	modified:   src/bin.c
	modified:   src/binds.c
	modified:   src/bitblt.c
	modified:   src/blt.c
	modified:   src/byteswap.c
	modified:   src/car-cdr.c
	modified:   src/chardev.c
	modified:   src/common.c
	modified:   src/conspage.c
	modified:   src/dbgtool.c
	modified:   src/dir.c
	modified:   src/draw.c
	modified:   src/dsk.c
	modified:   src/dspif.c
	modified:   src/dspsubrs.c
	modified:   src/eqf.c
	modified:   src/ether.c
	modified:   src/findkey.c
	modified:   src/foreign.c
	modified:   src/fp.c
	modified:   src/fvar.c
	modified:   src/gc.c
	modified:   src/gc2.c
	modified:   src/gcarray.c
	modified:   src/gccode.c
	modified:   src/gcfinal.c
	modified:   src/gchtfind.c
	modified:   src/gcmain3.c
	modified:   src/gcoflow.c
	modified:   src/gcr.c
	modified:   src/gcrcell.c
	modified:   src/gcscan.c
	modified:   src/gvar2.c
	modified:   src/hacks.c
	modified:   src/hardrtn.c
	modified:   src/inet.c
	modified:   src/initdsp.c
	modified:   src/initkbd.c
	modified:   src/initsout.c
	modified:   src/intcall.c
	modified:   src/kbdsubrs.c
	modified:   src/keyevent.c
	modified:   src/keylib.c
	modified:   src/kprint.c
	modified:   src/ldsout.c
	modified:   src/lineblt8.c
	modified:   src/lisp2c.c
	modified:   src/llcolor.c
	modified:   src/llstk.c
	modified:   src/loopsops.c
	modified:   src/lowlev1.c
	modified:   src/lowlev2.c
	modified:   src/lsthandl.c
	modified:   src/main.c
	modified:   src/misc7.c
	modified:   src/miscn.c
	modified:   src/mkatom.c
	modified:   src/mkcell.c
	modified:   src/mvs.c
	modified:   src/osmsg.c
	modified:   src/perrno.c
	modified:   src/return.c
	modified:   src/rpc.c
	modified:   src/rplcons.c
	modified:   src/setsout.c
	modified:   src/shift.c
	modified:   src/storage.c
	modified:   src/subr.c
	modified:   src/subr0374.c
	modified:   src/sxhash.c
	modified:   src/testtool.c
	modified:   src/timer.c
	modified:   src/truecolor.c
	modified:   src/tstsout.c
	modified:   src/typeof.c
	modified:   src/ubf1.c
	modified:   src/ubf2.c
	modified:   src/ubf3.c
	modified:   src/ufn.c
	modified:   src/ufs.c
	modified:   src/unixcomm.c
	modified:   src/unwind.c
	modified:   src/uraid.c
	modified:   src/usrsubr.c
	modified:   src/uutils.c
	modified:   src/vars3.c
	modified:   src/vmemsave.c
	modified:   src/xbbt.c
	modified:   src/xc.c
	modified:   src/xcursor.c
	modified:   src/xinit.c
	modified:   src/xlspwin.c
	modified:   src/xmkicon.c
	modified:   src/xrdopt.c
	modified:   src/xscroll.c
	modified:   src/xwinman.c
	modified:   src/z2.c
This commit is contained in:
Nick Briggs
2020-09-04 18:21:44 -07:00
parent 5fb5d93893
commit 0ad69fc6fe
214 changed files with 1608 additions and 381 deletions

5
inc/allocmdsdefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef ALLOCMDSDEFS_H
#define ALLOCMDSDEFS_H 1
LispPTR initmdspage(register LispPTR *base, register DLword size, register LispPTR prev);
LispPTR *alloc_mdspage(register short int type);
#endif

14
inc/arith2defs.h Normal file
View File

@@ -0,0 +1,14 @@
#ifndef ARITH2DEFS_H
#define ARITH2DEFS_H 1
LispPTR N_OP_plus2(int tosm1, int tos);
LispPTR N_OP_iplus2(int tosm1, int tos);
LispPTR N_OP_difference(int tosm1, int tos);
LispPTR N_OP_idifference(int tosm1, int tos);
LispPTR N_OP_logxor(int tosm1, int tos);
LispPTR N_OP_logand(int tosm1, int tos);
LispPTR N_OP_logor(int tosm1, int tos);
LispPTR N_OP_greaterp(int tosm1, int tos);
LispPTR N_OP_igreaterp(int tosm1, int tos);
LispPTR N_OP_iplusn(int tos, int n);
LispPTR N_OP_idifferencen(int tos, int n);
#endif

6
inc/arith3defs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef ARITH3DEFS_H
#define ARITH3DEFS_H 1
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);
#endif

8
inc/arith4defs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef ARITH4DEFS_H
#define ARITH4DEFS_H 1
int N_OP_times2(int tosm1, int tos);
int N_OP_itimes2(int tosm1, int tos);
int N_OP_quot(int tosm1, int tos);
int N_OP_iquot(int tosm1, int tos);
int N_OP_iremainder(int tosm1, int tos);
#endif

5
inc/array2defs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef ARRAY2DEFS_H
#define ARRAY2DEFS_H 1
LispPTR N_OP_misc4(register LispPTR data, register LispPTR base, register LispPTR typenumber,
register LispPTR inx, int alpha);
#endif

4
inc/array3defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef ARRAY3DEFS_H
#define ARRAY3DEFS_H 1
LispPTR N_OP_aref1(register LispPTR arrayarg, register LispPTR inx);
#endif

4
inc/array4defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef ARRAY4DEFS_H
#define ARRAY4DEFS_H 1
LispPTR N_OP_aset1(register LispPTR data, LispPTR arrayarg, register int inx);
#endif

4
inc/array5defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef ARRAY5DEFS_H
#define ARRAY5DEFS_H 1
LispPTR N_OP_aref2(LispPTR arrayarg, LispPTR inx0, LispPTR inx1);
#endif

4
inc/array6defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef ARRAY6DEFS_H
#define ARRAY6DEFS_H 1
LispPTR N_OP_aset2(register LispPTR data, LispPTR arrayarg, LispPTR inx0, LispPTR inx1);
#endif

4
inc/arraydefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef ARRAYDEFS_H
#define ARRAYDEFS_H 1
LispPTR N_OP_misc3(LispPTR baseL, LispPTR typenumber, LispPTR inx, int alpha);
#endif

16
inc/bbtsubdefs.h Normal file
View File

@@ -0,0 +1,16 @@
#ifndef BBTSUBDEFS_H
#define BBTSUBDEFS_H 1
void bitbltsub(LispPTR *argv);
LispPTR n_new_cursorin(DLword *baseaddr, int dx, int dy, int w, int h);
LispPTR bitblt_bitmap(LispPTR *args);
LispPTR bitshade_bitmap(LispPTR *args);
#ifndef prropstyle
void bltchar(LispPTR *args);
void newbltchar(LispPTR *args);
#else
LispPTR bltchar(LispPTR *args);
LispPTR newbltchar(LispPTR *args);
#endif
void ccfuncall(register unsigned int atom_index, register int argnum, register int bytenum);
void tedit_bltchar(LispPTR *args);
#endif

4
inc/bindefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef BINDEFS_H
#define BINDEFS_H 1
LispPTR N_OP_bin(register int tos);
#endif

6
inc/bindsdefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef BINDSDEFS_H
#define BINDSDEFS_H 1
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);
#endif

6
inc/bitbltdefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef BITBLTDEFS_H
#define BITBLTDEFS_H 1
LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos);
int cursorin(DLword addrhi, DLword addrlo, int w, int h, int backward);
#endif

5
inc/bltdefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef BLTDEFS_H
#define BLTDEFS_H 1
LispPTR N_OP_blt(LispPTR destptr, LispPTR sourceptr, register LispPTR wordcount);
#endif

11
inc/byteswapdefs.h Normal file
View File

@@ -0,0 +1,11 @@
#ifndef BYTESWAPDEFS_H
#define BYTESWAPDEFS_H 1
unsigned int swapx(unsigned int word);
unsigned short byte_swap_word(unsigned short word);
void byte_swap_page(unsigned short *page, int wordcount);
void word_swap_page(unsigned short *page, int longwordcount);
void bit_reverse_region(unsigned short *top, int width, int height, int rasterwidth);
#ifdef RESWAPPEDDCODESTREAM
unsigned int byte_swap_code_block(unsigned int *base);
#endif
#endif

13
inc/car-cdrdefs.h Normal file
View File

@@ -0,0 +1,13 @@
#ifndef CAR_CDRDEFS_H
#define CAR_CDRDEFS_H 1
#include "cell.h"
LispPTR car(register LispPTR datum);
LispPTR cdr(register LispPTR datum);
LispPTR rplaca(register LispPTR x, register LispPTR y);
LispPTR rplacd(LispPTR x, register LispPTR y);
LispPTR N_OP_car(register LispPTR tos);
LispPTR N_OP_cdr(register LispPTR tos);
LispPTR N_OP_rplaca(register LispPTR tosm1, register LispPTR tos);
LispPTR N_OP_rplacd(register LispPTR tosm1, register LispPTR tos);
ConsCell *find_close_prior_cell(struct conspage *page, LispPTR oldcell);
#endif

10
inc/chardevdefs.h Normal file
View File

@@ -0,0 +1,10 @@
#ifndef CHARDEVDEFS_H
#define CHARDEVDEFS_H 1
LispPTR CHAR_openfile(LispPTR *args);
LispPTR CHAR_closefile(LispPTR *args);
LispPTR CHAR_ioctl(LispPTR *args);
LispPTR CHAR_bin(int id, LispPTR errn);
LispPTR CHAR_bout(int id, LispPTR ch, LispPTR errn);
LispPTR CHAR_bins(LispPTR *args);
LispPTR CHAR_bouts(LispPTR *args);
#endif

8
inc/commondefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef COMMONDEFS_H
#define COMMONDEFS_H 1
void stab();
void warn(char *s);
int error(char *s);
int stackcheck();
void stackoverflow();
#endif

7
inc/conspagedefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef CONSPAGEDEFS_H
#define CONSPAGEDEFS_H 1
#include "cell.h"
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);
#endif

17
inc/dbgtooldefs.h Normal file
View File

@@ -0,0 +1,17 @@
#ifndef DBGTOOLDEFS_H
#define DBGTOOLDEFS_H 1
#include "stack.h"
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);
LispPTR get_fvar_name(struct frameex1 *fx_addr68k, DLword offset);
void bt(void);
void bt1(FX *startFX);
void btvv(void);
int sf(struct frameex1 *fx_addr68k);
void sff(LispPTR laddr);
void nt(LispPTR index);
void nt1(LispPTR *start, int size, char *str);
void ntheader(struct fnhead *fnobj);
void nts(struct frameex1 *fxp);
#endif

13
inc/dirdefs.h Normal file
View File

@@ -0,0 +1,13 @@
#ifndef DIRDEFS_H
#define DIRDEFS_H 1
#ifdef DOS
int make_old_version(char *old, char *file);
#endif
#ifdef FSDEBUG
void print_finfo(FINFO *fp);
#endif
int init_finfo();
LispPTR COM_gen_files(register LispPTR *args);
LispPTR COM_next_file(register LispPTR *args);
LispPTR COM_finish_finfo(register LispPTR *args);
#endif

4
inc/drawdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef DRAWDEFS_H
#define DRAWDEFS_H 1
int N_OP_drawline(LispPTR ptr, int curbit, int xsize, int width, int ysize, int op, int delta, int numx, int numy);
#endif

24
inc/dskdefs.h Normal file
View File

@@ -0,0 +1,24 @@
#ifndef DSKDEFS_H
#define DSKDEFS_H 1
#ifdef DOS
void separate_host(char *lfname, char *host, char *drive);
#else
void separate_host(char *lfname, char *host);
#endif
LispPTR COM_openfile(register LispPTR *args);
LispPTR COM_closefile(register LispPTR *args);
LispPTR DSK_getfilename(register LispPTR *args);
LispPTR DSK_deletefile(register LispPTR *args);
LispPTR DSK_renamefile(register LispPTR *args);
LispPTR DSK_directorynamep(register LispPTR *args);
LispPTR COM_getfileinfo(register LispPTR *args);
LispPTR COM_setfileinfo(register LispPTR *args);
LispPTR COM_readpage(register LispPTR *args);
LispPTR COM_writepage(register LispPTR *args);
LispPTR COM_truncatefile(register LispPTR *args);
LispPTR COM_changedir(register LispPTR *args);
LispPTR COM_getfreeblock(register LispPTR *args);
void separate_version(char *name, char *ver, int checkp);
int unpack_filename(char *file, char *dir, char *name, char *ver, int checkp);
int true_name(register char *path);
#endif

8
inc/dspifdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef DSPIFDEFS_H
#define DSPIFDEFS_H 1
#include "devif.h"
void make_dsp_instance(DspInterface dsp, char *lispbitmap, int width_hint, int height_hint, int depth_hint);
unsigned long GenericReturnT(void);
void GenericPanic(DspInterface dsp);
LispPTR SwitchDisplay(LispPTR display);
#endif

11
inc/dspsubrsdefs.h Normal file
View File

@@ -0,0 +1,11 @@
#ifndef DSPSUBRSDEFS_H
#define DSPSUBRSDEFS_H 1
void DSP_dspbout(LispPTR *args);
void DSP_showdisplay(LispPTR *args);
LispPTR DSP_VideoColor(LispPTR *args);
void DSP_Cursor(LispPTR *args, int argnum);
void DSP_SetMousePos(register LispPTR *args);
LispPTR DSP_ScreenWidth(LispPTR *args);
LispPTR DSP_ScreenHight(LispPTR *args);
void flip_cursor();
#endif

7
inc/eqfdefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef EQFDEFS_H
#define EQFDEFS_H 1
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);
LispPTR N_OP_eqq(register int arg1, register int arg2);
#endif

16
inc/etherdefs.h Normal file
View File

@@ -0,0 +1,16 @@
#ifndef ETHERDEFS_H
#define ETHERDEFS_H 1
LispPTR ether_suspend(LispPTR args[]);
LispPTR ether_resume(LispPTR args[]);
LispPTR ether_ctrlr(LispPTR args[]);
LispPTR ether_reset(LispPTR args[]);
LispPTR get_packet();
LispPTR ether_get(LispPTR args[]);
LispPTR ether_send(LispPTR args[]);
LispPTR ether_setfilter(LispPTR args[]);
int *ether_debug();
LispPTR check_ether();
void init_ifpage_ether();
void init_ether();
LispPTR check_sum(register LispPTR *args);
#endif

4
inc/findkeydefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef FINDKEYDEFS_H
#define FINDKEYDEFS_H 1
LispPTR N_OP_findkey(register LispPTR tos, register int byte);
#endif

8
inc/fpdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef FPDEFS_H
#define FPDEFS_H 1
LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2);
LispPTR N_OP_fdifference(LispPTR parg1, LispPTR parg2);
LispPTR N_OP_ftimes2(LispPTR parg1, LispPTR parg2);
LispPTR N_OP_fquotient(LispPTR parg1, LispPTR parg2);
LispPTR N_OP_fgreaterp(LispPTR parg1, LispPTR parg2);
#endif

9
inc/fvardefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef FVARDEFS_H
#define FVARDEFS_H 1
LispPTR N_OP_fvarn(register int n);
LispPTR N_OP_stkscan(LispPTR tos);
LispPTR N_OP_fvar_(register LispPTR tos, register int n);
void nnewframe(register struct frameex1 *newpfra2, register DLword *achain, register int name);
void nfvlookup(struct frameex1 *apframe1, register DLword *achain, register struct fnhead *apfnhead1);
LispPTR native_newframe(int slot);
#endif

5
inc/gc2defs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef GC2DEFS_H
#define GC2DEFS_H 1
void OP_gcscan1(void);
void OP_gcscan2(void);
#endif

7
inc/gcarraydefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef GCARRAYDEFS_H
#define GCARRAYDEFS_H 1
LispPTR aref1(LispPTR array, int index);
LispPTR find_symbol(char *char_base, DLword offset, DLword length, LispPTR hashtbl, DLword fatp, DLword lispp);
LispPTR get_package_atom(char *char_base, DLword charlen, char *packname, DLword packlen, int externalp);
LispPTR with_symbol(LispPTR char_base, LispPTR offset, LispPTR charlen, LispPTR fatp, LispPTR hashtbl, LispPTR result);
#endif

7
inc/gccodedefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef GCCODEDEFS_H
#define GCCODEDEFS_H 1
LispPTR map_code_pointers(LispPTR codeblock, short int casep);
LispPTR remimplicitkeyhash(LispPTR item, LispPTR ik_hash_table);
LispPTR reclaimcodeblock(LispPTR codebase);
int code_block_size(long unsigned int codeblock68k);
#endif

4
inc/gcdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef GCDEFS_H
#define GCDEFS_H 1
void OP_gcref(void);
#endif

18
inc/gcfinaldefs.h Normal file
View File

@@ -0,0 +1,18 @@
#ifndef GCFINALDEFS_H
#define GCFINALDEFS_H 1
void printarrayblock(LispPTR base);
int integerlength(unsigned int n);
LispPTR findptrsbuffer(LispPTR ptr);
LispPTR releasingvmempage(LispPTR ptr);
LispPTR checkarrayblock(LispPTR base, LispPTR free, LispPTR onfreelist);
LispPTR deleteblock(LispPTR base);
LispPTR linkblock(LispPTR base);
LispPTR makefreearrayblock(LispPTR block, DLword length);
LispPTR arrayblockmerger(LispPTR base, LispPTR nbase);
LispPTR mergebackward(LispPTR base);
LispPTR mergeforward(LispPTR base);
LispPTR reclaimarrayblock(LispPTR ptr);
LispPTR reclaimstackp(LispPTR ptr);
#endif

6
inc/gchtfinddefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef GCHTFINDDEFS_H
#define GCHTFINDDEFS_H 1
void enter_big_reference_count(LispPTR ptr);
void modify_big_reference_count(LispPTR *entry, DLword casep, LispPTR ptr);
LispPTR htfind(LispPTR ptr, int casep);
#endif

7
inc/gcmain3defs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef GCMAIN3DEFS_H
#define GCMAIN3DEFS_H 1
LispPTR gcmapscan();
LispPTR gcmapscan(void);
LispPTR gcmapunscan(void);
LispPTR gcscanstack(void);
#endif

5
inc/gcoflowdefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef GCOFLOWDEFS_H
#define GCOFLOWDEFS_H 1
DLword gc_handleoverflow(DLword arg);
DLword gcmaptable(DLword arg);
#endif

6
inc/gcrcelldefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef GCRCELLDEFS_H
#define GCRCELLDEFS_H 1
void freelistcell(LispPTR cell);
LispPTR gcreccell(LispPTR cell);
void freelistcell(LispPTR cell);
#endif

7
inc/gcrdefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef GCRDEFS_H
#define GCRDEFS_H 1
void gcarrangementstack(void);
void dogc01(void);
void doreclaim(void);
void disablegc1(int noerror);
#endif

5
inc/gcscandefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef GCSCANDEFS_H
#define GCSCANDEFS_H 1
DLword gcscan1(register int probe);
DLword gcscan2(register int probe);
#endif

5
inc/gvar2defs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef GVAR2DEFS_H
#define GVAR2DEFS_H 1
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

7
inc/hacksdefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef HACKSDEFS_H
#define HACKSDEFS_H 1
int pickapart1(int i1, int i2, int i3, int i4);
int pickapart2(int i1, int i2, int i3, int i4);
int pickapart3(int i1, int i2, int i3, int i4);
int pickapart4(int i1, int i2, int i3, int i4);
#endif

5
inc/hardrtndefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef HARDRTNDEFS_H
#define HARDRTNDEFS_H 1
int slowreturn(void);
void incusecount68k(FX *fx68k);
#endif

4
inc/inetdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef INETDEFS_H
#define INETDEFS_H 1
LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, LispPTR bufaddr, LispPTR maxlen);
#endif

13
inc/initdspdefs.h Normal file
View File

@@ -0,0 +1,13 @@
#ifndef INITDSPDEFS_H
#define INITDSPDEFS_H 1
void init_cursor();
void set_cursor();
void clear_display();
void init_display2(DLword *display_addr, int display_max);
void display_before_exit();
void flush_display_buffer();
void flush_display_region(int x, int y, int w, int h);
void byte_swapped_displayregion(int x, int y, int w, int h);
void flush_display_lineregion(UNSIGNED x, DLword *ybase, UNSIGNED w, UNSIGNED h);
void flush_display_ptrregion(DLword *ybase, UNSIGNED bitoffset, UNSIGNED w, UNSIGNED h);
#endif

9
inc/initkbddefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef INITKBDDEFS_H
#define INITKBDDEFS_H 1
void set_kbd_iopointers();
void keyboardtype(int fd);
void init_keyboard(int flg);
void device_before_exit();
void set_kbd_iopointers();
void keyboardtype(int fd);
#endif

10
inc/initsoutdefs.h Normal file
View File

@@ -0,0 +1,10 @@
#ifndef INITSOUTDEFS_H
#define INITSOUTDEFS_H 1
LispPTR *fixp_value(LispPTR *ptr);
void init_ifpage(int sysout_size);
void init_iopage(void);
void build_lisp_map(void);
void init_for_keyhandle(void);
void init_for_bltchar(void);
void init_for_bitblt(void);
#endif

View File

@@ -585,7 +585,6 @@ LispPTR arrayarg; \
register LispPTR baseL; \
register int index; \
register OneDArray *arrayblk; \
DLword *createcell68k(); \
SV; arrayarg = POP_TOS_1; \
if (GetTypeNumber(arrayarg) != TYPE_ONED_ARRAY) goto aref_ufn; \
arrayblk = (OneDArray *)Addr68k_from_LADDR(arrayarg); \

4
inc/intcalldefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef INTCALLDEFS_H
#define INTCALLDEFS_H 1
void cause_interruptcall(register unsigned int atom_index);
#endif

7
inc/kbdsubrsdefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef KBDSUBRSDEFS_H
#define KBDSUBRSDEFS_H 1
void KB_enable(LispPTR *args);
void KB_beep(LispPTR *args);
void KB_setmp(LispPTR *args);
void KB_setled(LispPTR *args);
#endif

8
inc/keyeventdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef KEYEVENTDEFS_H
#define KEYEVENTDEFS_H 1
void getsignaldata(int sig, int code, void *scp);
void kb_trans(u_short keycode, u_short upflg);
void taking_mouse_down();
void copy_cursor(int newx, int newy);
void cursor_hidden_bitmap(int x, int y);
#endif

12
inc/keylibdefs.h Normal file
View File

@@ -0,0 +1,12 @@
#ifndef KEYLIBDEFS_H
#define KEYLIBDEFS_H 1
unsigned long make_verification(unsigned long x, unsigned long y);
unsigned long date_integer16(const char *date);
unsigned long idate(const char *str);
unsigned long modify(unsigned long hostid);
int imod64bit(unsigned long x1, unsigned long x0, unsigned long y);
unsigned long make_verification(long unsigned int x, long unsigned int y);
unsigned long date_integer16(const char *date);
unsigned long idate(const char *str);
unsigned long modify(unsigned long hostid);
#endif

9
inc/kprintdefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef KPRINTDEFS_H
#define KPRINTDEFS_H 1
void prindatum(LispPTR x);
LispPTR print(LispPTR x);
void print_NEWstring(LispPTR x);
void print_fixp(LispPTR x);
void print_floatp(LispPTR x);
void print_string(LispPTR x);
#endif

4
inc/ldsoutdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef LDSOUTDEFS_H
#define LDSOUTDEFS_H 1
int sysout_loader(char * sysout_file_name, int sys_size);
#endif

5
inc/lineblt8defs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef LINEBLT8DEFS_H
#define LINEBLT8DEFS_H 1
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

8
inc/lisp2cdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef LISP2CDEFS_H
#define LISP2CDEFS_H 1
int LispStringP(LispPTR object);
int LispStringLength(LispPTR lispstring);
void LispStringToCStr(LispPTR lispstring, char *cstring);
int LispIntToCInt(LispPTR lispint);
LispPTR CIntToLispInt(int cint);
#endif

View File

@@ -463,14 +463,9 @@ DOSTACKOVERFLOW(argnum,bytenum) if it needs hardreturn-cleanup
/* bytes--but the default fn decl is int, a 4-byte return. */
/* */
/************************************************************************/
/* All external functions defined in xxx.c now declared in xxxdefs.h */
#include <stdlib.h>
extern DLword *createcell68k(unsigned int type);
extern LispPTR *alloc_mdspage(register short int type);
extern UNSIGNED N_OP_unwind(register LispPTR *cstkptr, register LispPTR tos, int n, int keep);
extern int error(char *);
/************************************************************************/
/* */

6
inc/llcolordefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef LLCOLORDEFS_H
#define LLCOLORDEFS_H 1
LispPTR cgfour_init_color_display(LispPTR color_bitmapbase);
LispPTR cgfour_change_screen_mode(LispPTR which_screen);
LispPTR cgfour_set_colormap(LispPTR args[]);
#endif

15
inc/llstkdefs.h Normal file
View File

@@ -0,0 +1,15 @@
#ifndef LLSTKDEFS_H
#define LLSTKDEFS_H 1
#include "stack.h"
int do_stackoverflow(int incallp);
DLword *freestackblock(DLword n, StackWord *start68k, int align);
void decusecount68k(register FX *frame68k);
void flip_cursorbar(int n);
void blt(register DLword *dest68k, register DLword *source68k, int nw);
void stack_check(StackWord *start68k);
void walk_stack(StackWord *start68k);
void quick_stack_check(void);
void check_FX(FX *fx68k);
void check_BF(Bframe *bf68k);
int check_stack_rooms(FX *fx68k);
#endif

View File

@@ -577,7 +577,6 @@ LispPTR arrayarg; \
register LispPTR baseL; \
register int index; \
register OneDArray *arrayblk; \
DLword *createcell68k(); \
SV; arrayarg = POP_TOS_1; \
if (GetTypeNumber(arrayarg) != TYPE_ONED_ARRAY) goto aref_ufn; \
arrayblk = (OneDArray *)Addr68k_from_LADDR(arrayarg); \

11
inc/loopsopsdefs.h Normal file
View File

@@ -0,0 +1,11 @@
#ifndef LOOPSOPSDEFS_H
#define LOOPSOPSDEFS_H 1
LispPTR lcfuncall(register unsigned int atom_index, register int argnum, register int bytenum);
LispPTR LCinit(void);
LispPTR LCFetchMethod(register LispPTR class, register LispPTR selector);
LispPTR LCFetchMethodOrHelp(register LispPTR object, register LispPTR selector);
LispPTR LCFindVarIndex(register LispPTR iv, register LispPTR object);
LispPTR LCGetIVValue(register LispPTR object, register LispPTR iv);
LispPTR LCPutIVValue(register LispPTR object, register LispPTR iv, register LispPTR val);
LispPTR lcfuncall(register unsigned int atom_index, register int argnum, register int bytenum);
#endif

7
inc/lowlev1defs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef LOWLEV1DEFS_H
#define LOWLEV1DEFS_H 1
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);
LispPTR N_OP_putbaseptrn(register LispPTR base, register LispPTR tos, int n);
#endif

6
inc/lowlev2defs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef LOWLEV2DEFS_H
#define LOWLEV2DEFS_H 1
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);
#endif

6
inc/lsthandldefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef LSTHANDLDEFS_H
#define LSTHANDLDEFS_H 1
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);
#endif

6
inc/maindefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef MAINDEFS_H
#define MAINDEFS_H 1
int makepathname(char *src, char *dst);
void start_lisp();
void print_info_lines();
#endif

4
inc/misc7defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef MISC7DEFS_H
#define MISC7DEFS_H 1
LispPTR N_OP_misc7(LispPTR arg1, LispPTR arg2, LispPTR arg3, LispPTR arg4, LispPTR arg5, LispPTR arg6, LispPTR arg7, int alpha);
#endif

4
inc/miscndefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef MISCNDEFS_H
#define MISCNDEFS_H 1
int OP_miscn(int misc_index, int arg_count);
#endif

11
inc/mkatomdefs.h Normal file
View File

@@ -0,0 +1,11 @@
#ifndef MKATOMDEFS_H
#define MKATOMDEFS_H 1
DLword compute_hash(char *char_base, DLword offset, DLword length);
DLword compute_lisp_hash(char *char_base, DLword offset, DLword length, DLword fatp);
LispPTR compare_chars(register char *char1, register char *char2, register DLword length);
int bytecmp(char *char1, char *char2, int len);
LispPTR compare_lisp_chars(register char *char1, register char *char2, register DLword length, DLword fat1, DLword fat2);
int lispcmp(DLword *char1, unsigned char *char2, int len);
LispPTR make_atom(char *char_base, DLword offset, DLword length, short int non_numericp);
LispPTR parse_number(char *char_base, short int length);
#endif

6
inc/mkcelldefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef MKCELLDEFS_H
#define MKCELLDEFS_H 1
LispPTR N_OP_createcell(register LispPTR tos);
DLword *createcell68k(unsigned int type);
LispPTR Create_n_Set_Cell(unsigned int type, LispPTR value);
#endif

8
inc/mvsdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef MVSDEFS_H
#define MVSDEFS_H 1
#include "stack.h"
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);
LispPTR values_list(int arg_count, register LispPTR *args);
#endif

8
inc/osmsgdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef OSMSGDEFS_H
#define OSMSGDEFS_H 1
void mess_init();
void mess_reset();
LispPTR mess_read(LispPTR *args);
LispPTR mess_readp();
LispPTR flush_pty();
#endif

5
inc/perrnodefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef PERRNODEFS_H
#define PERRNODEFS_H 1
void perrorn(char *s, int n);
void err_mess(char *from, int no);
#endif

5
inc/returndefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef RETURNDEFS_H
#define RETURNDEFS_H 1
void OP_contextsw(void);
void contextsw(register DLword fxnum, register DLword bytenum, register DLword flags);
#endif

4
inc/rpcdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef RPCDEFS_H
#define RPCDEFS_H 1
LispPTR rpc(LispPTR *args);
#endif

4
inc/rplconsdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef RPLCONSDEFS_H
#define RPLCONSDEFS_H 1
LispPTR N_OP_rplcons(register LispPTR list, register LispPTR item);
#endif

8
inc/shiftdefs.h Normal file
View File

@@ -0,0 +1,8 @@
#ifndef SHIFTDEFS_H
#define SHIFTDEFS_H 1
LispPTR N_OP_llsh1(int a);
LispPTR N_OP_llsh8(int a);
LispPTR N_OP_lrsh1(int a);
LispPTR N_OP_lrsh8(int a);
LispPTR N_OP_lsh(int a, int b);
#endif

7
inc/storagedefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef STORAGEDEFS_H
#define STORAGEDEFS_H 1
void checkfor_storagefull(register unsigned int npages);
LispPTR dremove(LispPTR x, LispPTR l);
LispPTR newpage(LispPTR base);
void init_storage(void);
#endif

4
inc/subr0374defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef SUBR0374DEFS_H
#define SUBR0374DEFS_H 1
LispPTR subr_k_trace(LispPTR *args);
#endif

5
inc/subrdefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef SUBRDEFS_H
#define SUBRDEFS_H 1
char *atom_to_str(LispPTR atom_index);
void OP_subrcall(int subr_no, int argnum);
#endif

7
inc/sxhashdefs.h Normal file
View File

@@ -0,0 +1,7 @@
#ifndef SXHASHDEFS_H
#define SXHASHDEFS_H 1
typedef struct { LispPTR object; } SXHASHARG;
LispPTR SX_hash(register SXHASHARG *args);
LispPTR STRING_EQUAL_HASHBITS(SXHASHARG *args);
LispPTR STRING_HASHBITS(SXHASHARG *args);
#endif

39
inc/testtooldefs.h Normal file
View File

@@ -0,0 +1,39 @@
#ifndef TESTTOOLDEFS_H
#define TESTTOOLDEFS_H 1
#include "stack.h"
#include "cell.h"
void print_package_name(int index);
void print_atomname(LispPTR index);
int find_package_from_name(char *packname, int len);
void print_package_name(int index);
void dump_dtd(void);
void check_type_68k(int type, LispPTR *ptr);
int type_num(LispPTR lispptr);
void dump_conspage(struct conspage *base, int linking);
void trace_listpDTD(void);
void a68k(LispPTR lispptr);
void laddr(DLword *addr68k);
void dump_fnbody(LispPTR fnblockaddr);
void dump_fnobj(LispPTR index);
int print_opcode(int pc, DLbyte *addr, struct fnhead *fnobj);
void doko(void);
void dumpl(LispPTR laddr);
void dumps(LispPTR laddr);
void printPC(void);
int countchar(char *string);
void dump_bf(Bframe *bf);
void dump_fx(struct frameex1 *fx_addr68k);
void dump_stackframe(struct frameex1 *fx_addr68k);
void dump_CSTK(int before);
void btv(void);
int get_framename(struct frameex1 *fx_addr68k);
FX *get_nextFX(FX *fx);
int MAKEATOM(char *string);
LispPTR *MakeAtom68k(char *string);
void GETTOPVAL(char *string);
void S_TOPVAL(char *string);
void all_stack_dump(DLword start, DLword end, DLword silent);
void dtd_chain(DLword type);
void Trace_FNCall(int numargs, int atomindex, int arg1, LispPTR *tos);
void Trace_APPLY(int atomindex);
#endif

18
inc/timerdefs.h Normal file
View File

@@ -0,0 +1,18 @@
#ifndef TIMERDEFS_H
#define TIMERDEFS_H 1
void update_miscstats();
void init_miscstats();
LispPTR subr_gettime(LispPTR args[]);
void subr_settime(LispPTR args[]);
void subr_copytimestats(LispPTR args[]);
LispPTR N_OP_rclk(LispPTR tos);
void update_timer();
void int_io_open(int fd);
void int_io_close(int fd);
void int_block();
void int_unblock();
void int_timer_off();
void int_timer_on();
void panicuraid(int sig, int code, void *scp, void *addr);
void int_init();
#endif

5
inc/typeofdefs.h Normal file
View File

@@ -0,0 +1,5 @@
#ifndef TYPEOFDEFS_H
#define TYPEOFDEFS_H 1
LispPTR N_OP_dtest(register LispPTR tos, register int atom_index);
LispPTR N_OP_instancep(register LispPTR tos, register int atom_index);
#endif

4
inc/ubf1defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef UBF1DEFS_H
#define UBF1DEFS_H 1
LispPTR N_OP_ubfloat1(int arg, int alpha);
#endif

4
inc/ubf2defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef UBF2DEFS_H
#define UBF2DEFS_H 1
LispPTR N_OP_ubfloat2(int a2, int a1, int alpha);
#endif

4
inc/ubf3defs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef UBF3DEFS_H
#define UBF3DEFS_H 1
LispPTR N_OP_ubfloat3(int arg3, LispPTR arg2, LispPTR arg1, int alpha);
#endif

16
inc/ufsdefs.h Normal file
View File

@@ -0,0 +1,16 @@
#ifndef UFSDEFS_H
#define UFSDEFS_H 1
LispPTR UFS_getfilename(LispPTR *args);
LispPTR UFS_deletefile(LispPTR *args);
LispPTR UFS_renamefile(LispPTR *args);
LispPTR UFS_directorynamep(LispPTR *args);
#ifdef DOS
int unixpathname(char *src, char *dst, int versionp, int genp, char *drive, int *extlenptr, char *rawname);
#else
int unixpathname(char *src, char *dst, int versionp, int genp);
#endif
int lisppathname(char *fullname, char *lispname, int dirp, int versionp);
int quote_fname(char *file);
int quote_fname_ufs(char *file);
int quote_dname(char *dir);
#endif

12
inc/unixcommdefs.h Normal file
View File

@@ -0,0 +1,12 @@
#ifndef UNIXCOMMDEFS_H
#define UNIXCOMMDEFS_H 1
int find_process_slot(register int pid);
void wait_for_comm_processes(void);
char *build_socket_pathname(int desc);
void close_unix_descriptors(void);
int FindUnixPipes(void);
int FindAvailablePty(char *Master, char *Slave);
void WriteLispStringToPipe(LispPTR lispstr);
LispPTR Unix_handlecomm(LispPTR *args);
void WriteLispStringToPipe(LispPTR lispstr);
#endif

4
inc/unwinddefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef UNWINDDEFS_H
#define UNWINDDEFS_H 1
UNSIGNED N_OP_unwind(register LispPTR *cstkptr, register LispPTR tos, int n, int keep);
#endif

9
inc/uraiddefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef URAIDDEFS_H
#define URAIDDEFS_H 1
LispPTR parse_atomstring(char *string);
void uraid_commclear();
void copy_region(DLword *src, DLword *dst, int width, int h);
LispPTR uraid_commands();
int device_before_raid();
int device_after_raid();
#endif

4
inc/usrsubrdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef USRSUBRDEFS_H
#define USRSUBRDEFS_H 1
int UserSubr(int user_subr_index, int num_args, unsigned *args);
#endif

11
inc/uutilsdefs.h Normal file
View File

@@ -0,0 +1,11 @@
#ifndef UUTILSDEFS_H
#define UUTILSDEFS_H 1
int lisp_string_to_c_string(LispPTR Lisp, char *C, int length);
int c_string_to_lisp_string(char *C, LispPTR Lisp);
LispPTR check_unix_password(LispPTR *args);
LispPTR unix_username(LispPTR *args);
LispPTR unix_getparm(LispPTR *args);
LispPTR unix_getenv(LispPTR *args);
LispPTR unix_fullname(LispPTR *args);
LispPTR suspend_lisp(LispPTR *args);
#endif

6
inc/vars3defs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef VARS3DEFS_H
#define VARS3DEFS_H 1
struct cadr_cell cadr(LispPTR cell_adr);
LispPTR N_OP_arg0(register LispPTR tos);
LispPTR N_OP_assoc(register LispPTR key, register LispPTR list);
#endif

9
inc/vmemsavedefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef VMEMSAVEDEFS_H
#define VMEMSAVEDEFS_H 1
int lispstringP(LispPTR Lisp);
LispPTR vmem_save(char *sysout_file_name);
LispPTR vmem_save0(LispPTR *args);
int twowords(const void *i, const void *j);
void sort_fptovp(DLword *fptovp, int size);
void lisp_finish();
#endif

4
inc/xbbtdefs.h Normal file
View File

@@ -0,0 +1,4 @@
#ifndef XBBTDEFS_H
#define XBBTDEFS_H 1
unsigned long clipping_Xbitblt(DspInterface dsp, int dummy, int x, int y, int w, int h);
#endif

6
inc/xcdefs.h Normal file
View File

@@ -0,0 +1,6 @@
#ifndef XCDEFS_H
#define XCDEFS_H 1
void dispatch(void);
int retfun(void);
void do_brk(void);
#endif

9
inc/xcursordefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef XCURSORDEFS_H
#define XCURSORDEFS_H 1
#include <X11/Xlib.h>
#include "devif.h"
void Init_XCursor();
void Set_XCursor(int x, int y);
void init_Xcursor(Display *display, int window);
void set_Xcursor(DspInterface dsp, unsigned char *bitmap, int hotspot_x, int hotspot_y, Cursor *return_cursor, int from_lisp);
#endif

9
inc/xinitdefs.h Normal file
View File

@@ -0,0 +1,9 @@
#ifndef XINITDEFS_H
#define XINITDEFS_H 1
void init_Xevent(DspInterface dsp);
void lisp_Xexit(DspInterface dsp);
void Xevent_before_raid(DspInterface dsp);
void Xevent_after_raid(DspInterface dsp);
void Open_Display(DspInterface dsp);
DspInterface X_init(DspInterface dsp, char *lispbitmap, int width_hint, int height_hint, int depth_hint);
#endif

Some files were not shown because too many files have changed in this diff Show More