imapext-2007
annotate src/osdep/dos/os_dwa.c @ 0:ada5e610ab86
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: Operating-system dependent routines -- DOS (Waterloo) version |
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: 11 April 1989 |
yuuji@0 | 26 * Last Edited: 30 August 2006 |
yuuji@0 | 27 */ |
yuuji@0 | 28 |
yuuji@0 | 29 #include <tcp.h> /* must be before TCPSTREAM definition */ |
yuuji@0 | 30 #include "tcp_dwa.h" /* must be before osdep include our tcp.h */ |
yuuji@0 | 31 #include "mail.h" |
yuuji@0 | 32 #include "osdep.h" |
yuuji@0 | 33 #include <time.h> |
yuuji@0 | 34 #include <errno.h> |
yuuji@0 | 35 #include <fcntl.h> |
yuuji@0 | 36 #include <sys\stat.h> |
yuuji@0 | 37 #include <sys\timeb.h> |
yuuji@0 | 38 #include "misc.h" |
yuuji@0 | 39 |
yuuji@0 | 40 /* Undo compatibility definition */ |
yuuji@0 | 41 |
yuuji@0 | 42 #undef tcp_open |
yuuji@0 | 43 |
yuuji@0 | 44 #include "fs_dos.c" |
yuuji@0 | 45 #include "ftl_dos.c" |
yuuji@0 | 46 #include "nl_dos.c" |
yuuji@0 | 47 #include "env_dos.c" |
yuuji@0 | 48 #include "tcp_dwa.c" |
yuuji@0 | 49 |
yuuji@0 | 50 |
yuuji@0 | 51 /* Return my local host name |
yuuji@0 | 52 * Returns: my local host name |
yuuji@0 | 53 */ |
yuuji@0 | 54 |
yuuji@0 | 55 char *mylocalhost (void) |
yuuji@0 | 56 { |
yuuji@0 | 57 if (!myLocalHost) { |
yuuji@0 | 58 char *s,hname[32],tmp[MAILTMPLEN]; |
yuuji@0 | 59 long myip; |
yuuji@0 | 60 |
yuuji@0 | 61 if (!sock_initted++) sock_init(); |
yuuji@0 | 62 tcp_cbrk (0x01); /* turn off ctrl-break catching */ |
yuuji@0 | 63 /* |
yuuji@0 | 64 * haven't discovered a way to find out the local host's |
yuuji@0 | 65 * name with wattcp yet. |
yuuji@0 | 66 */ |
yuuji@0 | 67 if (myip = gethostid ()) sprintf (s = tmp,"[%s]",inet_ntoa (hname,myip)); |
yuuji@0 | 68 else s = "random-pc"; |
yuuji@0 | 69 myLocalHost = cpystr (s); |
yuuji@0 | 70 } |
yuuji@0 | 71 return myLocalHost; |
yuuji@0 | 72 } |