github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-30 05:45:43 +00:00
Code Issues Projects Releases Wiki Activity

Remove FUJI compile flag. (#38)

Browse Source 
This was only used for a keyboard warning that doesn't seem
relevant any longer.
This commit is contained in:
Bruce Mitchener
2020-12-14 08:21:54 +07:00
committed by GitHub
parent 074dce0e90
commit 7313de4274
2 changed files with 1 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
bin/compile-flags
View File

@@ -143,9 +143,6 @@ RECLAIMINC If true, then the RECLAIMCELL opcode calls gcreclaimcell in
and is not in any system. Probably fairly easy to debug?? and is not in any system. Probably fairly easy to debug??
KB_SUN4 The kbd type for the Type-4 keyboard. Defined only because KB_SUN4 The kbd type for the Type-4 keyboard. Defined only because
older OS versions of the compiler don't define it automatically. older OS versions of the compiler don't define it automatically.
FUJI If true, and you don't set the LDEKBDTYPE environment variable,
you'll get a nasty message asking you to set it before
running lisp. Otherwise, you'll default to a type-3 kbd.
FLTINT If true, use the floating-point exception interrupts to detect FLTINT If true, use the floating-point exception interrupts to detect
errors and overflows on FP operations. The interrupt sets a errors and overflows on FP operations. The interrupt sets a
global error flag. Otherwise, calls library routines to see global error flag. Otherwise, calls library routines to see

21
src/initkbd.c
View File

@@ -574,19 +574,9 @@ void keyboardtype(int fd)
/* Get keytype from LDEKBDTYPE */ /* Get keytype from LDEKBDTYPE */
if ((key = getenv("LDEKBDTYPE")) == 0) { if ((key = getenv("LDEKBDTYPE")) == 0) {
#ifdef FUJI
/* obnoxious behavior */
mess_reset();
printf("!!CAUTION: LDEKBDTYPE is not set.\n");
printf("Please retry after setting LDEKBDTYPE correctly.\n");
printf("Usage: setenv LDEKBDTYPE <kbdtype>\n");
printf(" (one of type2, type3, type4, jle, or as3000j)");
exit(0); /* exit to shell */
#else
#ifdef RS6000 #ifdef RS6000
type = KB_RS6000; type = KB_RS6000;
#else #elif XWINDOW
#ifdef XWINDOW
type = KB_X; type = KB_X;
#elif DOS #elif DOS
type = KB_DOS; type = KB_DOS;
@@ -596,15 +586,6 @@ void keyboardtype(int fd)
type = KB_SUN3; type = KB_SUN3;
} /* otherwise, type is set */ } /* otherwise, type is set */
#endif /* XWINDOW */ #endif /* XWINDOW */
#endif /* RS6000 */
#endif /* FUJI */
#ifdef XWINDOW
#undef FUJI
#endif /* XWINDOW */
} /* if end */ } /* if end */
else { else {
if (strcmp("as3000j", key) == 0) if (strcmp("as3000j", key) == 0)