mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-27 07:37:33 +00:00
74 lines
2.7 KiB
EmacsLisp
74 lines
2.7 KiB
EmacsLisp
;;; 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
|