1
0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-02 17:54:38 +00:00

Remove a few leftover defined(DOS) that remained in logical expressions, update endif comments

This commit is contained in:
Nick Briggs
2021-02-15 18:36:52 -08:00
parent fde861edc7
commit b10c48af8e
15 changed files with 50 additions and 52 deletions

View File

@@ -99,7 +99,7 @@ extern int MonoOrColor;
/* take care of cursor movement & hiding */
/* (during bitblts to screen) ourselves. */
/*******************************************/
#if defined(SUNDISPLAY) || defined(DOS)
#if defined(SUNDISPLAY)
#define REALCURSOR
#else
#undef REALCURSOR

View File

@@ -66,7 +66,7 @@ LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos)
{
PILOTBBT *pbt;
DLword *srcbase, *dstbase;
#if defined(SUNDISPLAY) || defined(DOS)
#if defined(SUNDISPLAY)
int displayflg;
#endif
int sx, dx, w, h, srcbpl, dstbpl, backwardflg;
@@ -100,7 +100,7 @@ LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos)
/* if displayflg != 0 then source or destination is DisplayBitMap */
ScreenLocked = T;
#if SUNDISPLAY || DOS
#if SUNDISPLAY
displayflg = cursorin(pbt->pbtdesthi, (pbt->pbtdestlo + (dx >> 4)), w, h, backwardflg) ||
cursorin(pbt->pbtsourcehi, (pbt->pbtsourcelo + (sx >> 4)), w, h, backwardflg);
#endif /* SUNDISPLAY */
@@ -118,7 +118,7 @@ LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos)
#ifdef SUNDISPLAY
if (displayflg) HideCursor;
#endif /* SUNDISPLAY / DOS */
#endif /* SUNDISPLAY */
new_bitblt_code
@@ -131,7 +131,7 @@ LispPTR N_OP_pilotbitblt(LispPTR pilot_bt_tbl,int tos)
if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
#endif
if (displayflg) ShowCursor;
#endif /* SUNDISPLAY / DOS */
#endif /* SUNDISPLAY */
#ifdef XWINDOW
flush_display_lineregion(dx, dstbase, w, h);

View File

@@ -2493,8 +2493,7 @@ static int make_directory(register char *dir)
/* Read thru DIR and gather all files that match FILE into */
/* VARRAY. DIR's case must match existing directory's, but */
/* FILE name matching is case-insensitive. For UNIX, the */
/* versionless file is marked with a version# of 0; for DOS, */
/* version 0 is the back-up copy of the file. */
/* versionless file is marked with a version# of 0 */
/* */
/************************************************************************/

View File

@@ -40,7 +40,7 @@ void make_dsp_instance(DspInterface dsp, char *lispbitmap, int width_hint, int h
fprintf(stderr, "Can't open display.");
exit(-1);
}
#endif /* DOS | XWINDOW */
#endif /* XWINDOW */
} /* Now we know the maximum capabilities of the hardware. */
/*********************************************************************/

View File

@@ -58,7 +58,7 @@
#include <sys/mbuf.h>
#endif
#include <nlist.h>
#endif /* DOS */
#endif
#include "commondefs.h"
#include "lispemul.h"

View File

@@ -60,11 +60,12 @@
#include "xcursordefs.h"
#endif
#if defined(XWINDOW) || defined(DOS)
#if defined(XWINDOW)
#include "devif.h"
DLword *DisplayRegion68k_end_addr;
extern DspInterface currentdsp;
#endif /* DOS */
int DisplayWidth8;
#endif /* XWINDOW */
/* from /usr/include/sun/fbio.h some machines don't have following def. */
#ifndef FBTYPE_SUNROP_COLOR
@@ -329,7 +330,7 @@ void init_display2(DLword *display_addr, int display_max)
displayheight = my_screen.fb_height;
#endif /* SUNDISPLAY */
#if (defined(XWINDOW) || defined(DOS))
#if defined(XWINDOW)
(currentdsp->device.enter)(currentdsp);
displaywidth = currentdsp->Display.width;
displayheight = currentdsp->Display.height;
@@ -576,12 +577,12 @@ void display_before_exit() {
#endif /* SUNDISPLAY */
#if defined(XWINDOW) || defined(DOS)
#if defined(XWINDOW)
(currentdsp->device.exit)(currentdsp);
#endif /* DOS */
#endif /* XWINDOW */
}
#if defined(DISPLAYBUFFER) || defined(DOS)
#if defined(DISPLAYBUFFER)
/************************************************************************/
/* */
/* i n _ d i s p l a y _ s e g m e n t */
@@ -623,7 +624,7 @@ void flush_display_buffer() {
(currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, currentdsp->Visible.x,
currentdsp->Visible.y, currentdsp->Visible.width,
currentdsp->Visible.height);
#endif /* DOS */
#endif /* XWINDOW */
}
/************************************************************************/
@@ -652,11 +653,11 @@ void flush_display_region(int x, int y, int w, int h)
#endif /* SUNDISPLAY */
#if (defined(XWINDOW) || defined(DOS))
#if defined(XWINDOW)
TPRINT(("Enter flush_display_region x=%d, y=%d, w=%d, h=%d\n", x, y, w, h));
(currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, x, y, w, h);
TPRINT(("Exit flush_display_region\n"));
#endif /* DOS */
#endif /* XWINDOW */
}
#ifdef BYTESWAP
void byte_swapped_displayregion(int x, int y, int w, int h)
@@ -702,11 +703,11 @@ void flush_display_lineregion(UNSIGNED x, DLword *ybase, UNSIGNED w, UNSIGNED h)
#endif /* SUNDISPLAY */
#if (defined(XWINDOW) || defined(DOS))
#if defined(XWINDOW)
TPRINT(("Enter flush_display_lineregion x=%d, y=%d, w=%d, h=%d\n", x, y, w, h));
(currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, x, y, w, h);
TPRINT(("Exit flush_display_lineregion\n"));
#endif /* DOS */
#endif /* XWINDOW */
}
/************************************************************************/
@@ -735,9 +736,9 @@ void flush_display_ptrregion(DLword *ybase, UNSIGNED bitoffset, UNSIGNED w, UNSI
#if (defined(SUNDISPLAY) && defined(DISPLAYBUFFER))
pr_rop(ColorDisplayPixrect, x, y, w, h, COPY_PIXRECT_TO_COLOR, DisplayRegionPixrect, x, y);
#elif (defined(XWINDOW) || defined(DOS))
#elif defined(XWINDOW)
TPRINT(("Enter flush_display_ptrregion\n x=%d, y=%d, w=%d, h=%d\n", x, y, w, h));
(currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, x, y, w, h);
TPRINT(("Exit flush_display_ptrregion\n"));
#endif /* DOS */
#endif /* SUNDISPLAY & DISPLAYBUFFER, XWINDOW */
}

View File

@@ -226,7 +226,7 @@ void init_keyboard(int flg) /* if 0 init else re-init */
#elif XWINDOW
init_Xevent(currentdsp);
#endif /* XWINDOW DOS */
#endif /* SUNDISPLAY, XWINDOW */
}
/* ----------------------------------------------------------------*/
@@ -247,7 +247,7 @@ void device_before_exit() {
}
close(LispKbdFd);
#endif /* SUNDISPLAY DOS*/
#endif /* SUNDISPLAY */
display_before_exit();
}
@@ -307,7 +307,7 @@ void seteventmask(struct inputmask *eventmask)
#define KB_DEC3100 (9 + MIN_KEYTYPE) /* TODO: Can we remove this? */
#define KB_HP9000 (10 + MIN_KEYTYPE) /* TODO: Can we remove this? */
#define KB_X (11 + MIN_KEYTYPE)
#define KB_DOS (12 + MIN_KEYTYPE)
#define KB_DOS (12 + MIN_KEYTYPE) /* TODO: Can we remove this? */
/* KB_SUN4 not defined in older OS versions */
#ifndef KB_SUN4

View File

@@ -36,7 +36,7 @@
#include "devif.h"
extern KbdInterface currentkbd;
extern DspInterface currentdsp;
#endif /* DOS */
#endif /* XWINDOW */
/****************************************************
*
@@ -66,13 +66,13 @@ void KB_enable(LispPTR *args) /* args[0] : ON/OFF flag
FD_SET(LispWindowFd, &LispReadFds);
#elif XWINDOW
enable_Xkeyboard(currentdsp);
#endif /* DOS */
#endif /* SUNDISPLAY, XWINDOW */
} else if (args[0] == NIL) {
#ifdef SUNDISPLAY
FD_CLR(LispWindowFd, &LispReadFds);
#elif XWINDOW
disable_Xkeyboard(currentdsp);
#endif /* DOS */
#endif /* SUNDISPLAY, XWINDOW */
} else {
error("KB_enable: illegal arg \n");
printf("KB_enable: arg = %d\n", args[0]);
@@ -121,7 +121,7 @@ void KB_beep(LispPTR *args) /* args[0] : ON/OFF flag
#elif XWINDOW
if (args[0] == ATOM_T) beep_Xkeyboard(currentdsp);
#endif /* SUNDISPLAY, XWINDOW, DOS */
#endif /* SUNDISPLAY, XWINDOW */
}
/****************************************************

View File

@@ -30,7 +30,7 @@
#include <suntool/window.h>
#include <ctype.h>
#include <sundev/kbio.h>
#endif /* DOS */
#endif /* SUNDISPLAY */
#include "lispemul.h"
#include "lspglob.h"
@@ -57,11 +57,11 @@
#endif /* MAIKO_ENABLE_ETHERNET */
#include "dbprint.h"
#if (defined(DOS) || defined(XWINDOW))
#if defined(XWINDOW)
#include "devif.h"
extern DspInterface currentdsp;
extern IOPAGE *IOPage68K;
#endif /* DOS */
#endif /* XWINDOW */
/* for contextsw */
#define AS_OPCODE 1

View File

@@ -50,10 +50,10 @@ int Storage_expanded; /* T or NIL */
/* Load the sysout file into memory. */
/* */
/************************************************************************/
#if defined(DOS) || defined(XWINDOW)
#if defined(XWINDOW)
#include "devif.h"
extern DspInterface currentdsp;
#endif /* DOS || XWINDOW */
#endif /* XWINDOW */
/* sys_size is sysout size in megabytes */
int sysout_loader(const char *sysout_file_name, int sys_size) {
@@ -299,11 +299,11 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
free(fptovp);
DBPRINT(("sysout file is read completely.\n"));
#if (defined(DISPLAYBUFFER) || defined(XWINDOW) || defined(DOS))
#if defined(DISPLAYBUFFER) || defined(XWINDOW)
TPRINT(("Flushing display buffer...\n"));
flush_display_buffer();
TPRINT(("After Flushing display buffer\n"));
#endif /* DISPLAYBUFFER || XWINDOW || DOS */
#endif /* DISPLAYBUFFER || XWINDOW */
close(sysout);
return (sys_size);

View File

@@ -242,10 +242,10 @@ int sysout_size = 0; /* ditto */
int flushing = FALSE; /* see dbprint.h if set, all debug/trace printing will call fflush(stdout) after each printf */
#if defined(DOS) || defined(XWINDOW)
#if defined(XWINDOW)
#include "devif.h"
extern DspInterface currentdsp;
#endif /* DOS || XWINDOW */
#endif /* XWINDOW */
extern time_t MDate;
extern int nokbdflag;
@@ -261,14 +261,14 @@ const char *helpstring =
-bw <pixels> The Medley screen borderwidth\n\
-g[eometry] <geom>] The Medley screen geometry\n\
-sc[reen] <w>x<h>] The Medley screen geometry\n";
#else /* not DOS, not XWINDOW */
#else /* not XWINDOW */
const char *helpstring =
"\n\
either setenv LDESRCESYSOUT or do:\n\
lde[ether] [sysout-name] [<options>]\n\
-info Print general info about the system\n\
-help Print this message\n";
#endif /* DOS */
#endif /* XWINDOW */
/************************************************************************/
/* */
@@ -427,9 +427,9 @@ int main(int argc, char *argv[])
if (please_fork) fprintf(stderr, "Failed to find UNIXCOMM file handles; no processes\n");
}
#if defined(DOS) || defined(XWINDOW)
#if defined(XWINDOW)
make_dsp_instance(currentdsp, 0, 0, 0, 1); /* All defaults the first time */
#endif /* DOS || XWINDOW */
#endif /* XWINDOW */
/* Load sysout to VM space and returns real sysout_size(not 0) */
sysout_size = sysout_loader(sysout_name, sysout_size);

View File

@@ -6,8 +6,6 @@ Unix Interface Communications
*/
/* Don't compile this at all under DOS. */
#ifndef _GNU_SOURCE
#define _GNU_SOURCE /* Needed for ptsname on glibc systems. */
#endif

View File

@@ -87,10 +87,10 @@ extern int Win_security_p;
#include "etherdefs.h"
#endif
#if defined(DOS) || defined(XWINDOW)
#if defined(XWINDOW)
#include "devif.h"
extern DspInterface currentdsp;
#endif /* DOS || XWINDOW */
#endif /* XWINDOW */
#ifdef COLOR
extern int MonoOrColor;
@@ -126,7 +126,7 @@ x Xaddress [xnum] Hex-Dump xnum word(16-bits) starting at Xaddress
@ litatom val Sets TOPVAL of litatom to Decimal-val
< Xaddress val Sets the word(16-bits) at the address to val
<<Return or Exit>>
e Exit to UNIX / DOS
e Exit to UNIX
h Context switch to HARDRESET
q Returns from URAID with NO-change
<<Misc>>
@@ -928,10 +928,10 @@ int device_before_raid() {
#endif /* SUNDISPLAY */
#if defined(XWINDOW) || defined(DOS)
#if defined(XWINDOW)
(currentdsp->cleardisplay)(currentdsp);
(currentdsp->device.before_raid)(currentdsp);
#endif /* XWINDOW || DOS */
#endif /* XWINDOW */
return (0);
}
@@ -1045,7 +1045,7 @@ int device_after_raid() {
(currentdsp->device.after_raid)(currentdsp);
FD_SET(ConnectionNumber(currentdsp->display_id), &LispReadFds);
flush_display_buffer();
#endif /* XWINDOW | DOS */
#endif /* XWINDOW */
int_unblock();
*EmKbdAd068K = *EmRealUtilin68K = *EmKbdAd168K = *EmKbdAd268K = *EmKbdAd368K = *EmKbdAd468K =

View File

@@ -308,7 +308,7 @@ LispPTR vmem_save(char *sysout_file_name)
EmCursorBitMap68K= NullCursor;*/
#endif /* OLD_CURSOR */
#endif /* SUNDISPLAY || DOS */
#endif /* SUNDISPLAY */
/* set FPTOVP */
fptovp = FPtoVP + 1;

View File

@@ -102,7 +102,7 @@ register InstPtr pccache asm("si");
register LispPTR *cspcache asm("di");
register LispPTR tscache asm("bx");
#include "inlnPS2.h"
#endif /* DOS */
#endif /* GCC386 */
/* This used to be here for including optimized dispatch
* for SPARC, but it has some other things in it, so we