procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

This file was deleted since the TCP emulation is no longer in use

Browse source 
on any platform.
This commit is contained in:
Eli Zaretskii 2002-05-05 18:44:05 +00:00
parent 6b529d78be
commit 9975de28cd
2 changed files with 0 additions and 317 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

242
lib-src/tcp.c
View file

@ -1,242 +0,0 @@
/*
* TCP/IP stream emulation for GNU Emacs.
* Copyright (C) 1988, 1989, 1992, 1993 Free Software Foundation, Inc.
* Author: Masanobu Umeda
* Maintainer: umerin@mse.kyutech.ac.jp
This file is part of GNU Emacs.
GNU Emacs 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.
GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.
*
* Yasunari, Itoh at PFU limited contributed for Fujitsu UTS and SX/A.
*
* Thu Apr 6 13:47:37 JST 1989
* USG fixes by Sakaeda <saka@mickey.trad.pf.fujitsu.junet>
*
* For Fujitsu UTS compile with:
* cc -O -o tcp tcp.c -DFUJITSU_UTS -lu -lsocket
*/
#include <stdio.h>
#include <fcntl.h>
#include <ctype.h>
#include <sys/types.h>
#ifdef FUJITSU_UTS
#define USG
#include <sys/ucbtypes.h>
#include <sys/tisp/socket.h>
#include <netdb.h>
#include <sys/tisp/in.h>
#else
#include <sys/socket.h>
#include <netdb.h>
#include <netinet/in.h>
#endif
#ifdef USG
#include <sys/stat.h>
#include <signal.h>
#endif
#ifdef FUJITSU_UTS
#define bcopy(f, t, n) memcpy (t, f, n)
#define bcmp(b1, b2, n) (memcmp (b1, b2, n)!=0)
#define bzero(b, n) memset (b, 0, n)
#endif
#ifdef USG
int selectable = 1;
sigout ()
{
fcntl (fileno (stdin), F_SETFL, 0);
exit (-1);
}
#endif
main (argc, argv)
int argc;
char *argv[];
{
struct hostent *host;
struct sockaddr_in sockin, sockme;
struct servent *serv;
char *hostname = NULL;
char *service = "nntp";
int port;
int readfds;
int writefds;
int server; /* NNTP Server */
int emacsIn = fileno (stdin); /* Emacs intput */
int emacsOut = fileno (stdout); /* Emacs output */
char buffer[1024];
int nbuffer; /* Number of bytes in buffer */
int wret;
char *retry; /* retry bufferp */
int false = 0; /* FALSE flag for setsockopt () */
if (argc < 2)
{
fprintf (stderr, "Usage: %s HOST [SERVICE]\n", argv[0]);
exit (1);
}
if (argc >= 2)
hostname = argv[1];
if (argc >= 3)
service = argv[2];
if ((host = gethostbyname (hostname)) == NULL)
{
perror ("gethostbyname");
exit (1);
}
if (isdigit (service[0]))
port = atoi (service);
else
{
serv = getservbyname (service, "tcp");
if (serv == NULL)
{
perror ("getservbyname");
exit (1);
}
port = serv->s_port;
}
bzero (&sockin, sizeof (sockin));
sockin.sin_family = host->h_addrtype;
bcopy (host->h_addr, &sockin.sin_addr, host->h_length);
sockin.sin_port = htons (port);
if ((server = socket (AF_INET, SOCK_STREAM, 0)) < 0)
{
perror ("socket");
exit (1);
}
if (setsockopt (server, SOL_SOCKET, SO_REUSEADDR, &false, sizeof (false)))
{
perror ("setsockopt");
exit (1);
}
bzero (&sockme, sizeof (sockme));
sockme.sin_family = sockin.sin_family;
sockme.sin_addr.s_addr = INADDR_ANY;
if (bind (server, &sockme, sizeof (sockme)) < 0)
{
perror ("bind");
exit (1);
}
if (connect (server, &sockin, sizeof (sockin)) < 0)
{
perror ("connect");
close (server);
exit (1);
}
#ifdef O_NDELAY
fcntl (server, F_SETFL, O_NDELAY);
#ifdef USG
/* USG pipe cannot not select emacsIn */
{
struct stat statbuf;
fstat (emacsIn, &statbuf);
if (statbuf.st_mode & 010000)
selectable = 0;
if (!selectable)
{
signal (SIGINT, sigout);
fcntl (emacsIn, F_SETFL, O_NDELAY);
}
}
#endif
#endif
/* Connection established. */
while (1)
{
readfds = (1 << server) | (1 << emacsIn);
if (select (32, &readfds, NULL, NULL, (struct timeval *)NULL) == -1)
{
perror ("select");
exit (1);
}
if (readfds & (1 << emacsIn))
{
/* From Emacs */
nbuffer = read (emacsIn, buffer, sizeof buffer -1);
#ifdef USG
if (selectable && nbuffer == 0)
{
goto finish;
}
else if (!(readfds & (1 << server)) && nbuffer == 0)
{
sleep (1);
}
else
#else
if (nbuffer == 0)
goto finish;
#endif
for (retry = buffer; nbuffer > 0; nbuffer -= wret, retry += wret)
{
writefds = 1 << server;
if (select (server+1, NULL, &writefds, NULL, (struct timeval*)NULL) == -1)
{
perror ("select");
exit (1);
}
wret = write (server, retry, nbuffer);
if (wret < 0) goto finish;
}
}
if (readfds & (1 << server))
{
/* From NNTP server */
nbuffer = read (server, buffer, sizeof buffer -1);
if (nbuffer == 0)
goto finish;
for (retry = buffer; nbuffer > 0; nbuffer -= wret, retry += wret)
{
writefds = 1 << emacsOut;
#ifdef USG
if (selectable)
#endif
if (select (emacsOut+1, NULL, &writefds, NULL, (struct timeval*)NULL) == -1)
{
perror ("select");
exit (1);
}
wret = write (emacsOut, retry, nbuffer);
if (wret < 0) goto finish;
}
}
}
/* End of communication. */
finish:
close (server);
#ifdef USG
if (!selectable) fcntl (emacsIn, F_SETFL, 0);
#endif
close (emacsIn);
close (emacsOut);
exit (0);
}

75
lisp/tcp.el
View file

@ -1,75 +0,0 @@
;;; tcp.el --- TCP/IP stream emulation for GNU Emacs
;; Copyright (C) 1988, 1989, 1993 Free Software Foundation, Inc.
;; Author: Masanobu Umeda
;; Maintainer: umerin@mse.kyutech.ac.jp
;; This file is part of GNU Emacs.
;; GNU Emacs 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.
;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; Notes on TCP package:
;;
;; This package provides a TCP/IP stream emulation for GNU Emacs. If
;; the function `open-network-stream' is not defined in Emacs, but
;; your operating system has a capability of network stream
;; connection, this tcp package can be used for communicating with
;; NNTP server.
;;
;; The tcp package runs inferior process which actually does the role
;; of `open-network-stream'. The program `tcp' provided with this
;; package can be used for such purpose. Before loading the package,
;; compile `tcp.c' and install it as `tcp' in a directory in the emacs
;; search path. If you modify `tcp.c', please send diffs to the author
;; of GNUS. I'll include some of them in the next releases.
;;; Code:
(provide 'tcp)
(defvar tcp-program-name "tcp"
"*The name of the program emulating open-network-stream function.")
(defun open-network-stream (name buffer host service)
"Open a TCP connection for a service to a host.
Returns a subprocess-object to represent the connection.
Input and output work as for subprocesses; `delete-process' closes it.
Args are NAME BUFFER HOST SERVICE.
NAME is name for process. It is modified if necessary to make it unique.
BUFFER is the buffer (or buffer-name) to associate with the process.
Process output goes at end of that buffer, unless you specify
an output stream or filter function to handle the output.
BUFFER may be also nil, meaning that this process is not associated
with any buffer
Third arg is name of the host to connect to.
Fourth arg SERVICE is name of the service desired, or an integer
specifying a port number to connect to."
(let ((proc (start-process name buffer
tcp-program-name
host
(if (stringp service)
service
(int-to-string service))
)))
(process-kill-without-query proc)
;; Return process
proc
))
;;; tcp.el ends here