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:
5
inc/allocmdsdefs.h
Normal file
5
inc/allocmdsdefs.h
Normal 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
14
inc/arith2defs.h
Normal 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
6
inc/arith3defs.h
Normal 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
8
inc/arith4defs.h
Normal 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
5
inc/array2defs.h
Normal 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
4
inc/array3defs.h
Normal 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
4
inc/array4defs.h
Normal 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
4
inc/array5defs.h
Normal 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
4
inc/array6defs.h
Normal 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
4
inc/arraydefs.h
Normal 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
16
inc/bbtsubdefs.h
Normal 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
4
inc/bindefs.h
Normal 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
6
inc/bindsdefs.h
Normal 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
6
inc/bitbltdefs.h
Normal 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
5
inc/bltdefs.h
Normal 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
11
inc/byteswapdefs.h
Normal 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
13
inc/car-cdrdefs.h
Normal 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
10
inc/chardevdefs.h
Normal 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
8
inc/commondefs.h
Normal 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
7
inc/conspagedefs.h
Normal 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
17
inc/dbgtooldefs.h
Normal 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
13
inc/dirdefs.h
Normal 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
4
inc/drawdefs.h
Normal 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
24
inc/dskdefs.h
Normal 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
8
inc/dspifdefs.h
Normal 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
11
inc/dspsubrsdefs.h
Normal 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
7
inc/eqfdefs.h
Normal 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
16
inc/etherdefs.h
Normal 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
4
inc/findkeydefs.h
Normal 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
8
inc/fpdefs.h
Normal 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
9
inc/fvardefs.h
Normal 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
5
inc/gc2defs.h
Normal 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
7
inc/gcarraydefs.h
Normal 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
7
inc/gccodedefs.h
Normal 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
4
inc/gcdefs.h
Normal file
@@ -0,0 +1,4 @@
|
||||
#ifndef GCDEFS_H
|
||||
#define GCDEFS_H 1
|
||||
void OP_gcref(void);
|
||||
#endif
|
||||
18
inc/gcfinaldefs.h
Normal file
18
inc/gcfinaldefs.h
Normal 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
6
inc/gchtfinddefs.h
Normal 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
7
inc/gcmain3defs.h
Normal 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
5
inc/gcoflowdefs.h
Normal 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
6
inc/gcrcelldefs.h
Normal 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
7
inc/gcrdefs.h
Normal 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
5
inc/gcscandefs.h
Normal 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
5
inc/gvar2defs.h
Normal 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
7
inc/hacksdefs.h
Normal 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
5
inc/hardrtndefs.h
Normal 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
4
inc/inetdefs.h
Normal 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
13
inc/initdspdefs.h
Normal 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
9
inc/initkbddefs.h
Normal 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
10
inc/initsoutdefs.h
Normal 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
|
||||
@@ -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
4
inc/intcalldefs.h
Normal 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
7
inc/kbdsubrsdefs.h
Normal 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
8
inc/keyeventdefs.h
Normal 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
12
inc/keylibdefs.h
Normal 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
9
inc/kprintdefs.h
Normal 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
4
inc/ldsoutdefs.h
Normal 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
5
inc/lineblt8defs.h
Normal 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
8
inc/lisp2cdefs.h
Normal 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
|
||||
@@ -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
6
inc/llcolordefs.h
Normal 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
15
inc/llstkdefs.h
Normal 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
|
||||
@@ -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
11
inc/loopsopsdefs.h
Normal 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
7
inc/lowlev1defs.h
Normal 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
6
inc/lowlev2defs.h
Normal 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
6
inc/lsthandldefs.h
Normal 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
6
inc/maindefs.h
Normal 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
4
inc/misc7defs.h
Normal 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
4
inc/miscndefs.h
Normal 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
11
inc/mkatomdefs.h
Normal 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
6
inc/mkcelldefs.h
Normal 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
8
inc/mvsdefs.h
Normal 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
8
inc/osmsgdefs.h
Normal 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
5
inc/perrnodefs.h
Normal 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
5
inc/returndefs.h
Normal 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
4
inc/rpcdefs.h
Normal file
@@ -0,0 +1,4 @@
|
||||
#ifndef RPCDEFS_H
|
||||
#define RPCDEFS_H 1
|
||||
LispPTR rpc(LispPTR *args);
|
||||
#endif
|
||||
4
inc/rplconsdefs.h
Normal file
4
inc/rplconsdefs.h
Normal 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
8
inc/shiftdefs.h
Normal 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
7
inc/storagedefs.h
Normal 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
4
inc/subr0374defs.h
Normal 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
5
inc/subrdefs.h
Normal 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
7
inc/sxhashdefs.h
Normal 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
39
inc/testtooldefs.h
Normal 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
18
inc/timerdefs.h
Normal 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
5
inc/typeofdefs.h
Normal 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
4
inc/ubf1defs.h
Normal 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
4
inc/ubf2defs.h
Normal 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
4
inc/ubf3defs.h
Normal 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
16
inc/ufsdefs.h
Normal 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
12
inc/unixcommdefs.h
Normal 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
4
inc/unwinddefs.h
Normal 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
9
inc/uraiddefs.h
Normal 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
4
inc/usrsubrdefs.h
Normal 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
11
inc/uutilsdefs.h
Normal 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
6
inc/vars3defs.h
Normal 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
9
inc/vmemsavedefs.h
Normal 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
4
inc/xbbtdefs.h
Normal 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
6
inc/xcdefs.h
Normal 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
9
inc/xcursordefs.h
Normal 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
9
inc/xinitdefs.h
Normal 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
Reference in New Issue
Block a user