diff options
Diffstat (limited to 'lisp/tcp.el')
-rw-r--r-- | lisp/tcp.el | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/lisp/tcp.el b/lisp/tcp.el deleted file mode 100644 index 094a886e4de..00000000000 --- a/lisp/tcp.el +++ /dev/null @@ -1,73 +0,0 @@ -;;; 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, 675 Mass Ave, Cambridge, MA 02139, 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 |