github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-03 06:49:22 +00:00
Code Issues Projects Releases Wiki Activity

Begin to remove ISC platform support. (#40)

Browse Source 
We don't want to modify emulation code yet as ISC support included
a number of other things, including some i386 code that isn't used
on other platforms, but is still useful as a reference.
This commit is contained in:
Bruce Mitchener
2020-12-14 13:31:58 +07:00
committed by GitHub
parent 7119613aee
commit 2dba7492af
23 changed files with 11 additions and 1511 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/inet.c
View File

@@ -18,10 +18,6 @@ static char *id = "$Id: inet.c,v 1.3 2001/12/24 01:09:03 sybalsky Exp $ Copyrigh
#include <sys/file.h>
#include <signal.h>
#include <sys/select.h> /* for FD_ fns */
#ifdef ISC
#include <sys/fcntl.h>
#include <sys/bsdtypes.h>
#endif /* ISC */
#ifdef OS5
#include <sys/fcntl.h>
@@ -51,11 +47,6 @@ static char *id = "$Id: inet.c,v 1.3 2001/12/24 01:09:03 sybalsky Exp $ Copyrigh
#include "commondefs.h"
#include "mkcelldefs.h"
#ifdef ISC
#define FASYNC O_NONBLOCK
#define SIGIO SIGPOLL
#endif /* ISC */
#ifdef GCC386
#include "inlnPS2.h"
#endif
@@ -132,10 +123,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
fcntl(result, F_SETOWN, getpid());
#else
fcntl(result, F_SETFL, fcntl(result, F_GETFL, 0) | FNDELAY | FASYNC);
#ifndef ISC
fcntl(result, F_SETOWN, getpid());
#endif /* ISC */
#endif /* RS6000 */
return (GetSmallp(result));
@@ -166,10 +154,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
fcntl(result, F_SETOWN, getpid());
#else
fcntl(result, F_SETFL, fcntl(result, F_GETFL, 0) | FNDELAY);
#ifndef ISC
fcntl(result, F_SETOWN, getpid());
#endif /* ISC */
#endif /* RS6000 */
return (GetSmallp(result));
@@ -247,10 +232,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
fcntl(result, F_SETOWN, getpid());
#else
fcntl(result, F_SETFL, fcntl(result, F_GETFL, 0) | FNDELAY | FASYNC);
#ifndef ISC
fcntl(result, F_SETOWN, getpid());
#endif /* ISC */
#endif /* RS6000 */
if (listen(result, 5) == -1) {
@@ -288,10 +270,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
fcntl(result, F_SETOWN, getpid());
#else
fcntl(result, F_SETFL, fcntl(result, F_GETFL, 0) | FNDELAY);
#ifndef ISC
fcntl(result, F_SETOWN, getpid());
#endif /* ISC */
#endif /* RS6000 */
return (GetSmallp(result));
@@ -334,10 +313,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
fcntl(result, F_SETOWN, getpid());
#else
fcntl(result, F_SETFL, fcntl(result, F_GETFL, 0) | FNDELAY | FASYNC);
#ifndef ISC
fcntl(result, F_SETOWN, getpid());
#endif /* ISC */
#endif /* RS6000 */
FD_SET(result, &LispIOFds); /* so we get interrupts */