tcp_vmsn.c
上传用户:ycwykj01
上传日期:2007-01-04
资源大小:1819k
文件大小:5k
源码类别:

网络编程

开发平台:

Unix_Linux

  1. /*
  2.  * Program: Dummy VMS TCP/IP routines for non-TCP/IP systems
  3.  *
  4.  * Author: Mark Crispin
  5.  * Networks and Distributed Computing
  6.  * Computing & Communications
  7.  * University of Washington
  8.  * Administration Building, AG-44
  9.  * Seattle, WA  98195
  10.  * Internet: MRC@CAC.Washington.EDU
  11.  *
  12.  * Date: 2 August 1994
  13.  * Last Edited: 28 September 1998
  14.  *
  15.  * Copyright 1998 by the University of Washington
  16.  *
  17.  *  Permission to use, copy, modify, and distribute this software and its
  18.  * documentation for any purpose and without fee is hereby granted, provided
  19.  * that the above copyright notice appears in all copies and that both the
  20.  * above copyright notice and this permission notice appear in supporting
  21.  * documentation, and that the name of the University of Washington not be
  22.  * used in advertising or publicity pertaining to distribution of the software
  23.  * without specific, written prior permission. This software is made available
  24.  * "as is", and
  25.  * THE UNIVERSITY OF WASHINGTON DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED,
  26.  * WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED
  27.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN
  28.  * NO EVENT SHALL THE UNIVERSITY OF WASHINGTON BE LIABLE FOR ANY SPECIAL,
  29.  * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  30.  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, TORT
  31.  * (INCLUDING NEGLIGENCE) OR STRICT LIABILITY, ARISING OUT OF OR IN CONNECTION
  32.  * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  33.  *
  34.  */
  35.  
  36. /* TCP/IP manipulate parameters
  37.  * Accepts: function code
  38.  *     function-dependent value
  39.  * Returns: function-dependent return value
  40.  */
  41. void *tcp_parameters (long function,void *value)
  42. {
  43.   return NIL;
  44. }
  45. /* TCP/IP open
  46.  * Accepts: host name
  47.  *     contact service name
  48.  *     contact port number
  49.  * Returns: TCP/IP stream if success else NIL
  50.  */
  51. TCPSTREAM *tcp_open (char *host,char *service,unsigned long port)
  52. {
  53.   char tmp[MAILTMPLEN];
  54.   if (port) sprintf (tmp,"Can't connect to %.80s,%d: no TCP",host,port);
  55.   else sprintf (tmp,"Can't connect to %.80s,%s: no TCP",host,service);
  56.   mm_log (tmp,ERROR);
  57.   return NIL;
  58. }
  59. /* TCP/IP authenticated open
  60.  * Accepts: NETMBX specifier
  61.  *     service name
  62.  *     returned user name buffer
  63.  * Returns: TCP/IP stream if success else NIL
  64.  */
  65. TCPSTREAM *tcp_aopen (NETMBX *mb,char *service,char *usrbuf)
  66. {
  67.   return NIL;
  68. }
  69. /* TCP/IP receive line
  70.  * Accepts: TCP/IP stream
  71.  * Returns: text line string or NIL if failure
  72.  */
  73. char *tcp_getline (TCPSTREAM *stream)
  74. {
  75.   return NIL;
  76. }
  77. /* TCP/IP receive buffer
  78.  * Accepts: TCP/IP stream
  79.  *     size in bytes
  80.  *     buffer to read into
  81.  * Returns: T if success, NIL otherwise
  82.  */
  83. long tcp_getbuffer (TCPSTREAM *stream,unsigned long size,char *buffer)
  84. {
  85.   return NIL;
  86. }
  87. /* TCP/IP receive data
  88.  * Accepts: TCP/IP stream
  89.  * Returns: T if success, NIL otherwise
  90.  */
  91. long tcp_getdata (TCPSTREAM *stream)
  92. {
  93.   return NIL;
  94. }
  95. /* TCP/IP send string as record
  96.  * Accepts: TCP/IP stream
  97.  *     string pointer
  98.  * Returns: T if success else NIL
  99.  */
  100. long tcp_soutr (TCPSTREAM *stream,char *string)
  101. {
  102.   return NIL;
  103. }
  104. /* TCP/IP send string
  105.  * Accepts: TCP/IP stream
  106.  *     string pointer
  107.  *     byte count
  108.  * Returns: T if success else NIL
  109.  */
  110. long tcp_sout (TCPSTREAM *stream,char *string,unsigned long size)
  111. {
  112.   return NIL;
  113. }
  114. /* TCP/IP close
  115.  * Accepts: TCP/IP stream
  116.  */
  117. void tcp_close (TCPSTREAM *stream)
  118. {
  119. }
  120. /* TCP/IP abort stream
  121.  * Accepts: TCP/IP stream
  122.  * Returns: NIL always
  123.  */
  124. long tcp_abort (TCPSTREAM *stream)
  125. {
  126.   return NIL;
  127. }
  128. /* TCP/IP get host name
  129.  * Accepts: TCP/IP stream
  130.  * Returns: host name for this stream
  131.  */
  132. char *tcp_host (TCPSTREAM *stream)
  133. {
  134.   return NIL;
  135. }
  136. /* TCP/IP get remote host name
  137.  * Accepts: TCP/IP stream
  138.  * Returns: host name for this stream
  139.  */
  140. char *tcp_remotehost (TCPSTREAM *stream)
  141. {
  142.   return NIL;
  143. }
  144. /* TCP/IP get local host name
  145.  * Accepts: TCP/IP stream
  146.  * Returns: local host name
  147.  */
  148. char *tcp_localhost (TCPSTREAM *stream)
  149. {
  150.   return NIL;
  151. }
  152. /* TCP/IP return port for this stream
  153.  * Accepts: TCP/IP stream
  154.  * Returns: port number for this stream
  155.  */
  156. unsigned long tcp_port (TCPSTREAM *stream)
  157. {
  158.   return 0xffffffff; /* return port number */
  159. }
  160. /* Return my local host name
  161.  * Returns: my local host name
  162.  */
  163. char *mylocalhost ()
  164. {
  165. /* have local host yet? */
  166.   if (!myLocalHost) myLocalHost = cpystr (getenv ("SYS$NODE"));
  167.   return myLocalHost;
  168. }
  169. /* TCP/IP return canonical form of host name
  170.  * Accepts: host name
  171.  * Returns: canonical form of host name
  172.  */
  173. char *tcp_canonical (char *name)
  174. {
  175.   return name;
  176. }
  177. /* TCP/IP get client host name (server calls only)
  178.  * Returns: client host name
  179.  */
  180. char *tcp_clienthost ()
  181. {
  182.   return "UNKNOWN";
  183. }