imap/src/osdep/vms/tcp_vmsn.c

   1 /* ========================================================================
   2  * Copyright 2008-2010 Mark Crispin
   3  * ========================================================================
   4  */
   5
   6 /*
   7  * Program:     Dummy VMS TCP/IP routines for non-TCP/IP systems
   8  *
   9  * Author:      Mark Crispin
  10  *
  11  * Date:        2 August 1994
  12  * Last Edited: 3 April 2010
  13  *
  14  * Previous versions of this file were:
  15  *
  16  * Copyright 1988-2008 University of Washington
  17  *
  18  * Licensed under the Apache License, Version 2.0 (the "License");
  19  * you may not use this file except in compliance with the License.
  20  * You may obtain a copy of the License at
  21  *
  22  *     http://www.apache.org/licenses/LICENSE-2.0
  23  */
  24 \f
  25 /* TCP/IP manipulate parameters
  26  * Accepts: function code
  27  *          function-dependent value
  28  * Returns: function-dependent return value
  29  */
  30
  31 void *tcp_parameters (long function,void *value)
  32 {
  33   return NIL;
  34 }
  35
  36
  37 /* TCP/IP open
  38  * Accepts: host name
  39  *          contact service name
  40  *          contact port number
  41  * Returns: TCP/IP stream if success else NIL
  42  */
  43
  44 TCPSTREAM *tcp_open (char *host,char *service,unsigned long port)
  45 {
  46   char tmp[MAILTMPLEN];
  47   port &= 0xffff;               /* erase flags */
  48   if (port) sprintf (tmp,"Can't connect to %.80s,%d: no TCP",host,port);
  49   else sprintf (tmp,"Can't connect to %.80s,%s: no TCP",host,service);
  50   mm_log (tmp,ERROR);
  51   return NIL;
  52 }
  53
  54
  55 /* TCP/IP authenticated open
  56  * Accepts: NETMBX specifier
  57  *          service name
  58  *          returned user name buffer
  59  * Returns: TCP/IP stream if success else NIL
  60  */
  61
  62 TCPSTREAM *tcp_aopen (NETMBX *mb,char *service,char *usrbuf)
  63 {
  64   return NIL;
  65 }
  66 \f
  67 /* TCP/IP receive line
  68  * Accepts: TCP/IP stream
  69  * Returns: text line string or NIL if failure
  70  */
  71
  72 char *tcp_getline (TCPSTREAM *stream)
  73 {
  74   return NIL;
  75 }
  76
  77
  78 /* TCP/IP receive buffer
  79  * Accepts: TCP/IP stream
  80  *          size in bytes
  81  *          buffer to read into
  82  * Returns: T if success, NIL otherwise
  83  */
  84
  85 long tcp_getbuffer (TCPSTREAM *stream,unsigned long size,char *buffer)
  86 {
  87   return NIL;
  88 }
  89
  90
  91 /* TCP/IP receive data
  92  * Accepts: TCP/IP stream
  93  * Returns: T if success, NIL otherwise
  94  */
  95
  96 long tcp_getdata (TCPSTREAM *stream)
  97 {
  98   return NIL;
  99 }
 100 \f
 101 /* TCP/IP send string as record
 102  * Accepts: TCP/IP stream
 103  *          string pointer
 104  * Returns: T if success else NIL
 105  */
 106
 107 long tcp_soutr (TCPSTREAM *stream,char *string)
 108 {
 109   return NIL;
 110 }
 111
 112
 113 /* TCP/IP send string
 114  * Accepts: TCP/IP stream
 115  *          string pointer
 116  *          byte count
 117  * Returns: T if success else NIL
 118  */
 119
 120 long tcp_sout (TCPSTREAM *stream,char *string,unsigned long size)
 121 {
 122   return NIL;
 123 }
 124
 125
 126 /* TCP/IP close
 127  * Accepts: TCP/IP stream
 128  */
 129
 130 void tcp_close (TCPSTREAM *stream)
 131 {
 132 }
 133
 134
 135 /* TCP/IP abort stream
 136  * Accepts: TCP/IP stream
 137  * Returns: NIL always
 138  */
 139
 140 long tcp_abort (TCPSTREAM *stream)
 141 {
 142   return NIL;
 143 }
 144 \f
 145 /* TCP/IP get host name
 146  * Accepts: TCP/IP stream
 147  * Returns: host name for this stream
 148  */
 149
 150 char *tcp_host (TCPSTREAM *stream)
 151 {
 152   return NIL;
 153 }
 154
 155
 156 /* TCP/IP get remote host name
 157  * Accepts: TCP/IP stream
 158  * Returns: host name for this stream
 159  */
 160
 161 char *tcp_remotehost (TCPSTREAM *stream)
 162 {
 163   return NIL;
 164 }
 165
 166
 167 /* TCP/IP get local host name
 168  * Accepts: TCP/IP stream
 169  * Returns: local host name
 170  */
 171
 172 char *tcp_localhost (TCPSTREAM *stream)
 173 {
 174   return NIL;
 175 }
 176
 177
 178 /* TCP/IP return port for this stream
 179  * Accepts: TCP/IP stream
 180  * Returns: port number for this stream
 181  */
 182
 183 unsigned long tcp_port (TCPSTREAM *stream)
 184 {
 185   return 0xffffffff;            /* return port number */
 186 }
 187
 188
 189 /* Return my local host name
 190  * Returns: my local host name
 191  */
 192
 193 char *mylocalhost ()
 194 {
 195                                 /* have local host yet? */
 196   if (!myLocalHost) myLocalHost = cpystr (getenv ("SYS$NODE"));
 197   return myLocalHost;
 198 }
 199 \f
 200 /* TCP/IP return canonical form of host name
 201  * Accepts: host name
 202  * Returns: canonical form of host name
 203  */
 204
 205 char *tcp_canonical (char *name)
 206 {
 207   return cpystr (name);
 208 }
 209
 210
 211 /* TCP/IP get client host name (server calls only)
 212  * Returns: client host name
 213  */
 214
 215 char *tcp_clienthost ()
 216 {
 217   return "UNKNOWN";
 218 }