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

网络编程

开发平台:

Unix_Linux

  1. /*
  2.  * Program: Operating-system dependent routines -- TOPS-20 version
  3.  *
  4.  * Author: Mark Crispin
  5.  * 6158 Lariat Loop NE
  6.  * Bainbridge Island, WA  98110-2098
  7.  * Internet: MRC@Panda.COM
  8.  *
  9.  * Date: 1 August 1988
  10.  * Last Edited: 15 December 1998
  11.  *
  12.  * Copyright 1998 by Mark Crispin
  13.  *
  14.  *  Permission to use, copy, modify, and distribute this software and its
  15.  * documentation for any purpose and without fee is hereby granted, provided
  16.  * that the above copyright notices appear in all copies and that both the
  17.  * above copyright notices and this permission notice appear in supporting
  18.  * documentation, and that the name of Mark Crispin not be used in advertising
  19.  * or publicity pertaining to distribution of the software without specific,
  20.  * written prior permission.  This software is made available "as is", and
  21.  * MARK CRISPIN DISCLAIMS ALL WARRANTIES, EXPRESS OR IMPLIED, WITH REGARD TO
  22.  * THIS SOFTWARE, INCLUDING WITHOUT LIMITATION ALL IMPLIED WARRANTIES OF
  23.  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, AND IN NO EVENT SHALL
  24.  * MARK CRISPIN BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES
  25.  * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  26.  * WHETHER IN AN ACTION OF CONTRACT, TORT (INCLUDING NEGLIGENCE) OR STRICT
  27.  * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
  28.  * THIS SOFTWARE.
  29.  *
  30.  */
  31. /* Dedication:
  32.  * This file is dedicated with affection to the TOPS-20 operating system, which
  33.  * set standards for user and programmer friendliness that have still not been
  34.  * equaled by more `modern' operating systems.
  35.  * Wasureru mon ka!!!!
  36.  */
  37. #include <jsys.h> /* must be before tcp_t20.h */
  38. #include "tcp_t20.h" /* must be before osdep include tcp.h */
  39. #include "mail.h"
  40. #include <time.h>
  41. #include "osdep.h"
  42. #include <sys/time.h>
  43. #include "misc.h"
  44. #include <stdio.h>
  45. #include <fcntl.h>
  46. #include <sys/stat.h>
  47. #include "fs_t20.c"
  48. #include "ftl_t20.c"
  49. #include "nl_t20.c"
  50. #include "env_t20.c"
  51. #include "tcp_t20.c"
  52. #include "log_t20.c"
  53. #define MD5ENABLE "PS:<SYSTEM>CRAM-MD5.PWD"
  54. #include "auth_md5.c"
  55. #include "auth_log.c"
  56. /* Emulator for UNIX gethostid() call
  57.  * Returns: host id
  58.  */
  59. long gethostid ()
  60. {
  61.   int argblk[5];
  62. #ifndef _APRID
  63. #define _APRID 28
  64. #endif
  65.   argblk[1] = _APRID;
  66.   jsys (GETAB,argblk);
  67.   return (long) argblk[1];
  68. }