;;; compiled by tmo@laphroaig.cs.hut.fi on Sun Jul 19 17:01:40 1992
;;; from file /m/hutcs/p/common_lib/emacs-18.58/lisp/hut/gnus-3.14.1/tcp.el
;;; emacs version 18.58.4.
;;; bytecomp version 2.05; 9-mar-92.
;;; optimization is on; compiled with emacs18 compatibility.

(provide (quote tcp))
(defvar tcp-program-name "tcp" "\
A 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." (byte-code "À	\nÄÆ;ƒ ‚ È!&	Ê	!ˆ	)‡" [start-process name buffer tcp-program-name "-h" host "-s" service int-to-string proc process-kill-without-query] 9))