imapext-2007

annotate src/osdep/vms/tcp_vmsn.c @ 0:ada5e610ab86

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

UW-IMAP'd extensions by yuuji