tcp_vmsn.c
上传用户:ycwykj01
上传日期:2007-01-04
资源大小:1819k
文件大小:5k
- /*
- * Program: Dummy VMS TCP/IP routines for non-TCP/IP systems
- *
- * Author: Mark Crispin
- * Networks and Distributed Computing
- * Computing & Communications
- * University of Washington
- * Administration Building, AG-44
- * Seattle, WA 98195
- * Internet: MRC@CAC.Washington.EDU
- *
- * Date: 2 August 1994
- * Last Edited: 28 September 1998
- *
- * Copyright 1998 by the University of Washington
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appears in all copies and that both the
- * above copyright notice and this permission notice appear in supporting
- * documentation, and that the name of the University of Washington not be
- * used in advertising or publicity pertaining to distribution of the software
- * without specific, written prior permission. This software is made available
- * "as is", and
- * THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
- * WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
- * NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
- * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
- * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
- * (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
- * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- */
-
- /* TCP/IP manipulate parameters
- * Accepts: function code
- * function-dependent value
- * Returns: function-dependent return value
- */
- void *tcp_parameters (long function,void *value)
- {
- return NIL;
- }
- /* TCP/IP open
- * Accepts: host name
- * contact service name
- * contact port number
- * Returns: TCP/IP stream if success else NIL
- */
- TCPSTREAM *tcp_open (char *host,char *service,unsigned long port)
- {
- char tmp[MAILTMPLEN];
- if (port) sprintf (tmp,"Can't connect to %.80s,%d: no TCP",host,port);
- else sprintf (tmp,"Can't connect to %.80s,%s: no TCP",host,service);
- mm_log (tmp,ERROR);
- return NIL;
- }
- /* TCP/IP authenticated open
- * Accepts: NETMBX specifier
- * service name
- * returned user name buffer
- * Returns: TCP/IP stream if success else NIL
- */
- TCPSTREAM *tcp_aopen (NETMBX *mb,char *service,char *usrbuf)
- {
- return NIL;
- }
- /* TCP/IP receive line
- * Accepts: TCP/IP stream
- * Returns: text line string or NIL if failure
- */
- char *tcp_getline (TCPSTREAM *stream)
- {
- return NIL;
- }
- /* TCP/IP receive buffer
- * Accepts: TCP/IP stream
- * size in bytes
- * buffer to read into
- * Returns: T if success, NIL otherwise
- */
- long tcp_getbuffer (TCPSTREAM *stream,unsigned long size,char *buffer)
- {
- return NIL;
- }
- /* TCP/IP receive data
- * Accepts: TCP/IP stream
- * Returns: T if success, NIL otherwise
- */
- long tcp_getdata (TCPSTREAM *stream)
- {
- return NIL;
- }
- /* TCP/IP send string as record
- * Accepts: TCP/IP stream
- * string pointer
- * Returns: T if success else NIL
- */
- long tcp_soutr (TCPSTREAM *stream,char *string)
- {
- return NIL;
- }
- /* TCP/IP send string
- * Accepts: TCP/IP stream
- * string pointer
- * byte count
- * Returns: T if success else NIL
- */
- long tcp_sout (TCPSTREAM *stream,char *string,unsigned long size)
- {
- return NIL;
- }
- /* TCP/IP close
- * Accepts: TCP/IP stream
- */
- void tcp_close (TCPSTREAM *stream)
- {
- }
- /* TCP/IP abort stream
- * Accepts: TCP/IP stream
- * Returns: NIL always
- */
- long tcp_abort (TCPSTREAM *stream)
- {
- return NIL;
- }
- /* TCP/IP get host name
- * Accepts: TCP/IP stream
- * Returns: host name for this stream
- */
- char *tcp_host (TCPSTREAM *stream)
- {
- return NIL;
- }
- /* TCP/IP get remote host name
- * Accepts: TCP/IP stream
- * Returns: host name for this stream
- */
- char *tcp_remotehost (TCPSTREAM *stream)
- {
- return NIL;
- }
- /* TCP/IP get local host name
- * Accepts: TCP/IP stream
- * Returns: local host name
- */
- char *tcp_localhost (TCPSTREAM *stream)
- {
- return NIL;
- }
- /* TCP/IP return port for this stream
- * Accepts: TCP/IP stream
- * Returns: port number for this stream
- */
- unsigned long tcp_port (TCPSTREAM *stream)
- {
- return 0xffffffff; /* return port number */
- }
- /* Return my local host name
- * Returns: my local host name
- */
- char *mylocalhost ()
- {
- /* have local host yet? */
- if (!myLocalHost) myLocalHost = cpystr (getenv ("SYS$NODE"));
- return myLocalHost;
- }
- /* TCP/IP return canonical form of host name
- * Accepts: host name
- * Returns: canonical form of host name
- */
- char *tcp_canonical (char *name)
- {
- return name;
- }
- /* TCP/IP get client host name (server calls only)
- * Returns: client host name
- */
- char *tcp_clienthost ()
- {
- return "UNKNOWN";
- }