mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-29 21:21:08 +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:
Nick Briggs
23
src/inet.c
23
src/inet.c
@@ -45,6 +45,11 @@ static char *id = "$Id: inet.c,v 1.3 2001/12/24 01:09:03 sybalsky Exp $ Copyrigh
|
||||
#include "dbprint.h"
|
||||
#include "locfile.h"
|
||||
|
||||
#include "inetdefs.h"
|
||||
#include "byteswapdefs.h"
|
||||
#include "commondefs.h"
|
||||
#include "mkcelldefs.h"
|
||||
|
||||
#ifdef HPUX
|
||||
#define FASYNC O_NONBLOCK
|
||||
#endif /* NPUX */
|
||||
@@ -98,7 +103,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
|
||||
struct servent *service;
|
||||
struct sockaddr_in farend;
|
||||
int addr_class, protocol;
|
||||
char *buffer;
|
||||
DLword *buffer;
|
||||
int result;
|
||||
#ifdef RS6000
|
||||
static int one = 1; /* Used in TCPconnect */
|
||||
@@ -187,7 +192,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
|
||||
|
||||
case TCPsend: /* args: conn, buffer, len */
|
||||
sock = LispNumToCInt(nameConn);
|
||||
buffer = (char *)Addr68k_from_LADDR(proto);
|
||||
buffer = Addr68k_from_LADDR(proto);
|
||||
len = LispNumToCInt(length);
|
||||
DBPRINT(("sock: %d, len %d.\n", sock, len));
|
||||
|
||||
@@ -210,7 +215,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
|
||||
|
||||
case TCPrecv: /* args: conn, buffer, maxlen */
|
||||
sock = LispNumToCInt(nameConn);
|
||||
buffer = (char *)Addr68k_from_LADDR(proto);
|
||||
buffer = Addr68k_from_LADDR(proto);
|
||||
len = LispNumToCInt(length);
|
||||
result = read(sock, buffer, len);
|
||||
if (result < 0) {
|
||||
@@ -319,22 +324,22 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
|
||||
|
||||
case INETpeername: /* socket#, buffer for name string */
|
||||
sock = LispNumToCInt(nameConn);
|
||||
buffer = (char *)Addr68k_from_LADDR(proto);
|
||||
buffer = Addr68k_from_LADDR(proto);
|
||||
ures = sizeof(addr);
|
||||
getpeername(sock, (struct sockaddr *)&addr, &ures);
|
||||
host = gethostbyaddr((const char *)&addr, ures, AF_INET);
|
||||
strcpy(buffer, host->h_name);
|
||||
strcpy((char *)buffer, host->h_name);
|
||||
return (GetSmallp(strlen(host->h_name)));
|
||||
break;
|
||||
|
||||
case INETgetname: /* host addr, buffer for name string */
|
||||
sock = LispNumToCInt(nameConn);
|
||||
buffer = (char *)Addr68k_from_LADDR(proto);
|
||||
buffer = Addr68k_from_LADDR(proto);
|
||||
ures = sizeof(addr);
|
||||
addr.sin_addr.s_addr = htonl(sock);
|
||||
host = gethostbyaddr((const char *)&addr, ures, 0);
|
||||
if (!host) return (GetSmallp(0));
|
||||
strcpy(buffer, host->h_name);
|
||||
strcpy((char *)buffer, host->h_name);
|
||||
return (GetSmallp(strlen(host->h_name)));
|
||||
break;
|
||||
|
||||
@@ -376,7 +381,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
|
||||
farend.sin_family = AF_INET;
|
||||
farend.sin_port = htons(LispNumToCInt(length));
|
||||
farend.sin_addr.s_addr = htonl(LispNumToCInt(proto));
|
||||
buffer = (char *)Addr68k_from_LADDR(bufaddr);
|
||||
buffer = Addr68k_from_LADDR(bufaddr);
|
||||
buflen = LispNumToCInt(maxlen);
|
||||
|
||||
DBPRINT(("UDP send: socket = %d, remote-port = %d.\n", sock, farend.sin_port));
|
||||
@@ -399,7 +404,7 @@ LispPTR subr_TCP_ops(int op, LispPTR nameConn, LispPTR proto, LispPTR length, Li
|
||||
|
||||
case UDPRecvfrom: /* fd-socket# buffer len addr-cell port-cell*/
|
||||
sock = LispNumToCInt(nameConn);
|
||||
buffer = (char *)Addr68k_from_LADDR(proto);
|
||||
buffer = Addr68k_from_LADDR(proto);
|
||||
buflen = LispNumToCInt(length);
|
||||
ures = sizeof farend;
|
||||
if ((result = recvfrom(sock, buffer, buflen, 0, (struct sockaddr *)&farend, &ures)) < 0) {
|
||||
|
||||
Reference in New Issue
Block a user