github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-28 17:19:20 +00:00
Code Issues Projects Releases Wiki Activity

Remove platform support for Apollo/Domain. (#30)

Browse Source
This commit is contained in:
Bruce Mitchener
2020-12-13 09:07:08 +07:00
committed by GitHub
parent 69e66470a0
commit 292809694e
15 changed files with 5 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
bin/compile-flags
View File

@@ -26,7 +26,6 @@ NOPIXRECT Used to suppress pixrect/pixwin options when they're not
AIX True if compiling for AIX
AIXPS2 True if compiling for PS/2 under AIX (our flag)
APOLLO True if compiling for the Apollo
sparc True if we're compiling on a SPARC machine.
mc68020 True if we're compiling on a Motorola 680x0 machine.
sun3 We're compiling for a Sun-3.

74
bin/makefile-domain.mc68020-x
View File

@@ -1,74 +0,0 @@
# Options for Domain/OS, APOLLO Workstation 680x0, and X-Window
CLXFLAGS = -DCLX -DTCP_NODELAY
CLXFILES = $(OBJECTDIR)socket.o \
$(OBJECTDIR)socdvr.o
XFILES = $(OBJECTDIR)XClose.o \
$(OBJECTDIR)Cursor.o \
$(OBJECTDIR)XWindow.o \
$(OBJECTDIR)DoRing.o \
$(OBJECTDIR)DoScroll.o \
$(OBJECTDIR)XEvent.o \
$(OBJECTDIR)XGravity.o \
$(OBJECTDIR)XInit.o \
$(OBJECTDIR)Xinit.o \
$(OBJECTDIR)Xkbdmus.o \
$(OBJECTDIR)Xlspwin.o \
$(OBJECTDIR)Xbbt.o \
$(OBJECTDIR)Xkbd.o \
$(OBJECTDIR)Xmkicon.o \
$(OBJECTDIR)Xopendsp.o \
$(OBJECTDIR)Xrdopt.o \
$(OBJECTDIR)Xreconf.o \
$(OBJECTDIR)XScroll.o \
$(OBJECTDIR)Xscrolb.o \
$(OBJECTDIR)XCursor.o \
$(OBJECTDIR)XMouse.o \
$(OBJECTDIR)Xsubwin.o \
$(OBJECTDIR)Xcolor.o \
$(OBJECTDIR)Xwinman.o \
$(CLXFILES)
XVERSION = XV11R4
XFLAGS = -DXWINDOW -DNOPIXRECT -D$(XVERSION) $(CLXFLAGS)
# This is to make the %$#@! Apollo cc happy
OEXT = .o
# OPTFLAGS is normally -O2.
OPTFLAGS = -g -O -W0,-natural
DISPOPTFLAGS = -g -O -W0,-natural
FPFLAGS =
DFLAGS = -DAPOLLO -DFSERROR -DNEW_STORAGE -DNOFORN \
-DFORKCOMM -DLOGINT -DBIGATOMS $(XFLAGS) \
-DNOETHER -DNOASM -DNOEUROKBD
LDFLAGS = -lX11 -lc -lm
LDELDFLAGS = -lX11 -lc -lm
MAIN = main
INLINE = # $(SRCDIR)dsp68K.il
BITBLTFILE = # $(OBJECTDIR)bbt68k.o
BYTESWAPFILES = $(OBJECTDIR)byteswap.o
OBJECTDIR = ../$(RELEASENAME)/
default : ../$(OSARCHNAME)/lde # ../$(OSARCHNAME)/ldeether
# Special rules to create xc.c on Apollo
#run cpp to expand macros
$(OBJECTDIR)xc.o: $(SRCDIR)xc.c $(INCDIR)lispemul.h $(INCDIR)emlglob.h $(INCDIR)address.h \
$(INCDIR)adr68k.h $(INCDIR)stack.h $(INCDIR)lspglob.h \
$(INCDIR)lsptypes.h $(INCDIR)lispmap.h $(INCDIR)cell.h \
$(INCDIR)initatms.h $(INCDIR)gcdata.h \
$(INCDIR)arith.h $(INCDIR)stream.h \
$(INCDIR)tos1defs.h $(INCDIR)tosret.h \
$(INCDIR)tosfns.h $(INCDIR)inlineC.h
$(CC) -c $(DISPOPTFLAGS) $(DFLAGS) -I$(INCDIR) $(SRCDIR)xc.c -o $(OBJECTDIR)xc.o
#$(OBJECTDIR)xc.o: $(OBJECTDIR)xc.i $(INCDIR)lispemul.h
# $(CC) -c $(DISPOPTFLAGS) $(DFLAGS) -I$(INCDIR) $(SRCDIR)xc.c -o $(OBJECTDIR)xc.o

4
inc/lpglob.h
View File

@@ -64,8 +64,8 @@ extern int Lin_term_count;
extern int Sign;
extern constraint_name *First_constraint_name;
/* I hate #ifdefs, but there seems to be no "standard" way to do this */
#if defined(__hpux) || defined(__apollo) || defined(_AIX)
/* for HP and Apollo (and possibly others) */
#if defined(__hpux) || defined(_AIX)
/* for HP, AIX, and possibly others */
extern unsigned char yytext[];
#else
/* For other computers */

4
inc/lpglobl.h
View File

@@ -57,8 +57,8 @@ extern int Sign;
/* I hate #ifdefs, but there seems to be no "standard" way to do this */
#if defined(__hpux) || defined(__apollo)
/* for HP and Apollo (and possibly others) */
#if defined(__hpux)
/* for HP (and possibly others) */
extern unsigned char yytext[];
#else
/* For other computers */

14
inc/medleyfp.h
View File

@@ -71,20 +71,6 @@ volatile extern int FP_error;
#define FPCLEAR
#define FPTEST(result) (isinf(result) || isnan(result))
#elif defined(APOLLO)
/**********************************************************/
/* Need values.h & nan.h, so we all parts of IsNANorINF */
/* are defined. IsNANorINF uses structure aliasing to */
/* get at pieces of the float to test it, so the item */
/* being tested can't be a register variable. Sigh. */
/**********************************************************/
#include </sys5/usr/include/values.h>
#include </sys5/usr/include/nan.h>
#define FPCLEAR
#define FPTEST(result) (IsNANorINF(result))
#undef REGISTER
#define REGISTER
#elif defined(OSF1)
#include <fp.h>
#define FPCLEAR

10
inc/version.h
View File

@@ -328,16 +328,6 @@ typedef signed char s_char;
/********************************************************/
/* */
/********************************************************/
#ifdef APOLLO
typedef signed char s_char;
#endif /* APOLLO */
/********************************************************/
/* */
/********************************************************/

9
src/dsk.c
View File

@@ -134,12 +134,6 @@ static char *id = "$Id: dsk.c,v 1.4 2001/12/24 01:09:01 sybalsky Exp $ Copyright
#endif /* ULTRIX */
#ifdef APOLLO
#include <sys/statfs.h>
#define d_fileno d_ino
#define f_bavail f_bfree
#endif /* APOLLO */
#ifdef GCC386
#include "inlnPS2.h"
#endif /* GCC386 */
@@ -2450,9 +2444,6 @@ LispPTR COM_getfreeblock(register LispPTR *args)
#elif defined(ISC)
TIMEOUT(rval = statfs(dir, &sfsbuf, sizeof(struct statfs), 0));
if (rval != 0) {
#elif APOLLO
TIMEOUT(rval = statfs(dir, &sfsbuf, sizeof(struct statfs), 0));
if (rval != 0) {
#elif defined(LINUX)
TIMEOUT(rval = statfs(dir, &sfsbuf));
if (rval != 0) {

9
src/gcarray.c
View File

@@ -127,16 +127,7 @@ LispPTR aref1(LispPTR array, int index) {
base = actarray->base;
switch (typenumber) {
case 3: /* unsigned 8bits */
/* the following code confuses the Apollo compiler; */
/* its equivalent doesn't */
#ifndef APOLLO
retval = (GETBYTE(((char *)Addr68k_from_LADDR(base)) + index)) & 0x0ff;
#else
{
register char *eightbitbase = (char *)Addr68k_from_LADDR(base);
retval = GETBYTE(eightbitbase + index) & 0xff;
}
#endif
retval |= S_POSITIVE;
break;
case 4: /* unsigned 16bits */

2
src/keyevent.c
View File

@@ -322,7 +322,7 @@ void getsignaldata(int sig, int code, void *scp)
#endif
#ifdef XWINDOW
#if (defined(APOLLO) || defined(sun))
#if defined(sun)
if (Event_Req) {
if (!XLocked++)
getXsignaldata(currentdsp);

2
src/keytst.c
View File

@@ -110,8 +110,6 @@ int read_hex(char *s1, long unsigned int *array) {
/* convert key to numeric format*/
#ifdef HPUX
*(array + i) = strtoul(ptr, NULL, 16); /* On HP, must convert to unsigned */
#elif defined(APOLLO)
*(array + i) = strtoul(ptr, NULL, 16); /* On APOLLO, must convert to unsigned */
#elif defined(INDIGO)
*(array + i) = strtoul(ptr, NULL, 16); /* On Indigo, must convert to unsigned */
#elif defined(RS6000)

2
src/osmsg.c
View File

@@ -36,13 +36,11 @@ static char *id = "$Id: osmsg.c,v 1.2 1999/01/03 02:07:29 sybalsky Exp $ Copyrig
#endif /* AIX */
#include <sys/time.h>
#ifndef AIX
#ifndef APOLLO
#ifndef MACOSX
#ifndef FREEBSD
#include <sys/vfs.h>
#endif /* FREEBSD */
#endif /* MACOSX */
#endif /* APOLLO */
#endif /* AIX */
#ifndef SYSVONLY
#include <strings.h>

5
src/timer.c
View File

@@ -82,11 +82,6 @@ extern int ether_fd;
#include <sys/fpcontrol.h>
#endif /* AIXPS2 */
/* Apollo and Sun have different ideas about the name of this field */
#ifdef APOLLO
#define sv_flags sv_onstack
#endif
#ifdef OSF1
/* This is where FPE_FLTOVF & friends are defined */
#include <siginfo.h>

2
src/ufs.c
View File

@@ -34,13 +34,11 @@ static char *id = "$Id: ufs.c,v 1.2 1999/01/03 02:07:41 sybalsky Exp $ Copyright
#include <sys/stat.h>
#include <sys/time.h>
#ifndef AIX
#ifndef APOLLO
#ifndef MACOSX
#ifndef FREEBSD
#include <sys/vfs.h>
#endif /* FREEBSD */
#endif /* MACOSX */
#endif /* APOLLO */
#endif /* AIX */
#if defined(SYSVONLY) || defined(FREEBSD) || defined(OS5)

2
src/unixcomm.c
View File

@@ -34,8 +34,6 @@ Unix Interface Communications
#include <string.h> /* for strcpy etc. */
#ifdef OS4
#include <sys/termios.h>
#elif APOLLO
#include </sys5/usr/include/termios.h>
#elif LINUX
#include <termios.h>
/* this was called termio in the past, but no longer

2
src/xinit.c
View File

@@ -41,7 +41,6 @@ static char *id = "$Id: xinit.c,v 1.5 2001/12/26 22:17:06 sybalsky Exp $ Copyrig
#include <sys/ioctl.h>
#include <sys/select.h>
#ifndef APOLLO
#ifndef HPUX
#ifndef ULTRIX
#ifndef LINUX
@@ -53,7 +52,6 @@ static char *id = "$Id: xinit.c,v 1.5 2001/12/26 22:17:06 sybalsky Exp $ Copyrig
#endif /* LINUX */
#endif /* ULTRIX */
#endif /* HPUX */
#endif /* APOLLO */
#ifdef ISC
#define FASYNC O_NONBLOCK