summaryrefslogtreecommitdiffstats
path: root/socket.c
diff options
context:
space:
mode:
authorJames LewisMoss <dres@debian.org>2000-03-12 09:04:17 -0500
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:26 -0800
commit8cfce36c6a4fc2e0a0ab6ef2db66a23cbe462693 (patch)
tree17427e4f777ca85990a449fe939fbae29770b346 /socket.c
parenta47af30d2f0e96afcd1f14b1984575c359faa3d6 (diff)
parent3278b75942bdbe706f7a0fba87729bb1e935b68b (diff)
downloadscm-8cfce36c6a4fc2e0a0ab6ef2db66a23cbe462693.tar.gz
scm-8cfce36c6a4fc2e0a0ab6ef2db66a23cbe462693.zip
Import Debian changes 5d2-3debian/5d2-3
scm (5d2-3) unstable frozen; urgency=low * Fix libncurses4-dev -> libncurses5-dev build depend (Closes: #58435) * Fix libreadline2-dev -> libreadline4-dev build depend. * Fix license location in copyright file (lintian warning) * Add tetex-bin as a build depend (needs makeinfo) (Closes: #53197) * Add -isp option to dpkg-gencontrol (lintian error) * Move scm to section interpreters. scm (5d2-2) unstable; urgency=low * Apply patch from upstream for bug in eval.c. (Picked up from comp.lang.scheme) * Add Build-Depends on slib, librx1g-dev, libncurses4-dev, libreadlineg2-dev. * Up standards version. * Correct description: this is an R5RS implementation now * Make sure no optimizations are done on m68k. (Closes: #52434) scm (5d2-1) unstable; urgency=low * New upstream. scm (5d1-2) unstable; urgency=low * Remove TAGS on clean (cut the diff back down to reasonable size). scm (5d1-1) unstable; urgency=low * New upstream. * move stuff to /usr/share. scm (5d0-3) unstable; urgency=low * Change scmlit call to ./scmlit call (missed one) (Fixes bugs #37455 and #35545) * Change man file permissions to 644 (fixes lintian warning) scm (5d0-2) unstable; urgency=low * Removed call to add_final in init_crs. lendwin doesn't do anything and scm was crashing when quit everytime in final_scm. * Changed copyright to reflect new source. scm (5d0-1) unstable; urgency=low * New upstream. * Changed (terms) to access "/usr/doc/copyright/GPL". * Changed regex to use -lrx scm (5c3-6) unstable; urgency=low * New maintainer.
Diffstat (limited to 'socket.c')
-rw-r--r--socket.c43
1 files changed, 24 insertions, 19 deletions
diff --git a/socket.c b/socket.c
index 6296b38..68e0195 100644
--- a/socket.c
+++ b/socket.c
@@ -1,18 +1,18 @@
/* Copyright (C) 1994, 1995 Free Software Foundation, Inc.
- *
+ *
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
- *
+ *
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
- *
+ *
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
- * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+ * the Free Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111, USA.
*
* As a special exception, the Free Software Foundation gives permission
* for additional uses of the text contained in its release of GUILE.
@@ -36,7 +36,7 @@
*
* If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications.
- * If you do not wish that, delete this exception notice.
+ * If you do not wish that, delete this exception notice.
*/
/* "socket.c" internet stream socket support for client/server in SCM
@@ -308,11 +308,13 @@ SCM l_socket(fam, proto)
SYSCALL(sd = socket(tp, SOCK_STREAM, INUM(proto)););
if (-1==sd) wta(UNDEFINED, (char *)NALLOC, s_socket);
SYSCALL(f = fdopen(sd, "r+"););
+ /* SCM_OPENCALL(f = fdopen(sd, "r+")); */
if (!f) {
close(sd);
wta(MAKINUM(sd), (char *)NALLOC, s_port_type);
}
- CAR(port) = tc_socket | (tp<<24) | BUF0;
+ CAR(port) = scm_port_entry(tc_socket, BUF0);
+ SCM_PORTDATA(port) = fam;
SETSTREAM(port, f);
i_setbuf0(port);
ALLOW_INTS;
@@ -341,18 +343,19 @@ SCM l_socketpair(fam, proto)
DEFER_INTS;
SYSCALL(sts = socketpair(tp, SOCK_STREAM, INUM(proto), sv););
if (-1==sts) wta(UNDEFINED, (char *)NALLOC, s_socketpair);
- SYSCALL(f[0] = fdopen(sv[0], "r+"););
+ SCM_OPENCALL(f[0] = fdopen(sv[0], "r+"));
if (!f[0]) {
close(sv[0]);
wta(MAKINUM(sv[0]), (char *)NALLOC, s_port_type);
}
- SYSCALL(f[1] = fdopen(sv[1], "r+"););
+ SCM_OPENCALL(f[1] = fdopen(sv[1], "r+"));
if (!f[1]) {
fclose(f[0]);
close(sv[1]);
wta(MAKINUM(sv[1]), (char *)NALLOC, s_port_type);
}
- CAR(port[0]) = CAR(port[1]) = tc16_fport | mode_bits("r+0");
+ CAR(port[0]) = scm_port_entry(tc16_fport, mode_bits("r+0", (char *)0));
+ CAR(port[1]) = scm_port_entry(tc16_fport, mode_bits("r+0", (char *)0));
SETSTREAM(port[0], f[0]); SETSTREAM(port[1], f[1]);
i_setbuf0(port[0]); i_setbuf0(port[1]);
ALLOW_INTS;
@@ -364,7 +367,7 @@ SCM l_shutdown(port, how)
SCM port, how;
{
int sts;
- ASSERT(NIMP(port) && OPPORTP(port), port, ARG1, s_shutdown);
+ ASSERT(NIMP(port) && OPFPORTP(port), port, ARG1, s_shutdown);
ASSERT(INUMP(how) && 0 <= INUM(how) && 2 >= INUM(how),
how, ARG2, s_shutdown);
SYSCALL(sts = shutdown(fileno(STREAM(port)), INUM(how)););
@@ -416,7 +419,8 @@ SCM l_connect (sockpt, address, arg)
break;
}
if (sts) return BOOL_F;
- CAR(sockpt) = tc16_fport | mode_bits("r+0");
+ CAR(sockpt) = scm_port_entry(tc16_fport, mode_bits("r+0", (char *)0));
+ SCM_PORTDATA(sockpt) = cons(address, arg);
return sockpt;
}
@@ -465,7 +469,9 @@ SCM l_listen(port, backlog)
ASSERT(INUMP(backlog), backlog, ARG2, s_listen);
SYSCALL(sts = listen(fileno(STREAM(port)), INUM(backlog)););
if (sts) return BOOL_F;
- CAR(port) = tc16_fport | mode_bits("r0");
+ DEFER_INTS;
+ CAR(port) = scm_port_entry(tc16_fport, mode_bits("r0", (char *)0));
+ ALLOW_INTS;
return port;
}
@@ -489,12 +495,12 @@ SCM l_accept(sockpt)
wta(sockpt, "couldn't", s_accept);
}
DEFER_INTS;
- SYSCALL(newfd = fdopen(newsd, "r+"););
+ SCM_OPENCALL(newfd = fdopen(newsd, "r+"));
if (!newfd) {
close(newsd);
wta(MAKINUM(newsd), (char *)NALLOC, s_port_type);
}
- CAR(newpt) = tc16_fport | mode_bits("r+0");
+ CAR(newpt) = scm_port_entry(tc16_fport, mode_bits("r+0", (char *)0));
SETSTREAM(newpt, newfd);
i_setbuf0(newpt);
ALLOW_INTS;
@@ -527,7 +533,7 @@ sizet sknm_free(p)
CELLPTR p;
{
must_free(CHARS((SCM)p), sizeof(struct sockaddr));
- return sizeof(struct sockaddr);
+ return 0;
}
long tc16_sknm;
static smobfuns sknm_smob = {mark0, sknm_free, sknm_print, 0};
@@ -574,10 +580,9 @@ SCM maksknm(sad)
SCM sknm;
struct sockaddr *msknm;
DEFER_INTS;
- sknm = must_malloc_cell(0L+sizeof(struct sockaddr), "sknm");
+ sknm = must_malloc_cell(0L+sizeof(struct sockaddr), (SCM)tc16_sknm, "sknm");
msknm = (struct sockaddr *)CDR(sknm);
*msknm = *sad;
- CAR(sknm) = tc16_sknm;
ALLOW_INTS;
return sknm;
}
@@ -589,7 +594,7 @@ SCM l_getpeername(sockpt)
struct sockaddr_in sad;
int sts, sadlen = sizeof(sad);
bzero((char *) &sad, sizeof(sad));
- ASSERT(NIMP(sockpt) && OPPORTP(sockpt), sockpt, ARG1, s_getpeername);
+ ASSERT(NIMP(sockpt) && OPFPORTP(sockpt), sockpt, ARG1, s_getpeername);
SYSCALL(sts = getpeername(fileno(STREAM(sockpt)),
(struct sockaddr*)&sad, &sadlen););
if (sts || sizeof(sad) != sadlen) return BOOL_F;
@@ -603,7 +608,7 @@ SCM l_getsockname(sockpt)
struct sockaddr_in sad;
int sts, sadlen = sizeof(sad);
bzero((char *) &sad, sizeof(sad));
- ASSERT(NIMP(sockpt) && OPPORTP(sockpt), sockpt, ARG1, s_getsockname);
+ ASSERT(NIMP(sockpt) && OPFPORTP(sockpt), sockpt, ARG1, s_getsockname);
SYSCALL(sts = getsockname(fileno(STREAM(sockpt)),
(struct sockaddr*)&sad, &sadlen););
if (sts || sizeof(sad) != sadlen) return BOOL_F;