| 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 $! Program: Portable c-client build for VMS
|
|
yuuji@0
|
14 $!
|
|
yuuji@0
|
15 $! Author: Mark Crispin
|
|
yuuji@0
|
16 $! Networks and Distributed Computing
|
|
yuuji@0
|
17 $! Computing & Communications
|
|
yuuji@0
|
18 $! University of Washington
|
|
yuuji@0
|
19 $! Administration Building, AG-44
|
|
yuuji@0
|
20 $! Seattle, WA 98195
|
|
yuuji@0
|
21 $! Internet: MRC@CAC.Washington.EDU
|
|
yuuji@0
|
22 $!
|
|
yuuji@0
|
23 $! Date: 2 August 1994
|
|
yuuji@0
|
24 $! Last Edited: 30 August 2006
|
|
yuuji@0
|
25 $!
|
|
yuuji@0
|
26 $! Change this to your local timezone. This value is the number of minutes
|
|
yuuji@0
|
27 $! east of UTC (formerly known as GMT). Sample values: -300 (US east coast),
|
|
yuuji@0
|
28 $! -480 (US west coast), 540 (Japan), 60 (western Europe).
|
|
yuuji@0
|
29 $! VAX C's HELP information says that you should be able to use gmtime(), but
|
|
yuuji@0
|
30 $! it returns 0 for the struct. ftime(), you ask? It, too, returns 0 for a
|
|
yuuji@0
|
31 $! timezone. Nothing sucks like a VAX!
|
|
yuuji@0
|
32 $!
|
|
yuuji@0
|
33 $ CC_TIMEZONE=-480
|
|
yuuji@0
|
34 $!
|
|
yuuji@0
|
35 $! CC options
|
|
yuuji@0
|
36 $!
|
|
yuuji@0
|
37 $ CC_PREF = "/OPTIMIZE/INCLUDE=[]"
|
|
yuuji@0
|
38 $ CC_PREF = CC_PREF + "/DEFINE=net_getbuffer=NET_GETBUF"
|
|
yuuji@0
|
39 $ CC_PREF = CC_PREF + "/DEFINE=LOCALTIMEZONE='CC_TIMEZONE'"
|
|
yuuji@0
|
40 $!
|
|
yuuji@0
|
41 $! Determine TCP type
|
|
yuuji@0
|
42 $!
|
|
yuuji@0
|
43 $ TCP_TYPE = "VMSN" ! default to none
|
|
yuuji@0
|
44 $ IF F$LOCATE("MULTINET", P1) .LT. F$LENGTH(P1)
|
|
yuuji@0
|
45 $ THEN
|
|
yuuji@0
|
46 $ DEFINE SYS MULTINET_ROOT:[MULTINET.INCLUDE.SYS],sys$library
|
|
yuuji@0
|
47 $ DEFINE NETINET MULTINET_ROOT:[MULTINET.INCLUDE.NETINET]
|
|
yuuji@0
|
48 $ DEFINE ARPA MULTINET_ROOT:[MULTINET.INCLUDE.ARPA]
|
|
yuuji@0
|
49 $ TCP_TYPE = "VMSM" ! Multinet
|
|
yuuji@0
|
50 $ LINK_OPT = ",LINK_MNT/OPTION"
|
|
yuuji@0
|
51 $ ENDIF
|
|
yuuji@0
|
52 $ IF F$LOCATE("NETLIB", P1) .LT. F$LENGTH(P1)
|
|
yuuji@0
|
53 $ THEN
|
|
yuuji@0
|
54 $ DEFINE SYS SYS$LIBRARY: ! normal .H location
|
|
yuuji@0
|
55 $ DEFINE NETINET SYS$LIBRARY:
|
|
yuuji@0
|
56 $ DEFINE ARPA SYS$LIBRARY:
|
|
yuuji@0
|
57 $ LINK_OPT = ",LINK_NLB/OPTION"
|
|
yuuji@0
|
58 $ TCP_TYPE = "VMSL" ! NETLIB
|
|
yuuji@0
|
59 $ ENDIF
|
|
yuuji@0
|
60 $ IF TCP_TYPE .EQS. "VMSN"
|
|
yuuji@0
|
61 $ THEN
|
|
yuuji@0
|
62 $ DEFINE SYS SYS$LIBRARY: ! normal .H location
|
|
yuuji@0
|
63 $ DEFINE NETINET SYS$LIBRARY:
|
|
yuuji@0
|
64 $ DEFINE ARPA SYS$LIBRARY:
|
|
yuuji@0
|
65 $ LINK_OPT = ""
|
|
yuuji@0
|
66 $ ENDIF
|
|
yuuji@0
|
67 $!
|
|
yuuji@0
|
68 $ COPY TCP_'TCP_TYPE'.C TCP_VMS.C;
|
|
yuuji@0
|
69 $!
|
|
yuuji@0
|
70 $ COPY OS_VMS.H OSDEP.H;
|
|
yuuji@0
|
71 $ SET VERIFY
|
|
yuuji@0
|
72 $ CC'CC_PREF' MAIL
|
|
yuuji@0
|
73 $ CC'CC_PREF' IMAP4R1
|
|
yuuji@0
|
74 $ CC'CC_PREF' SMTP
|
|
yuuji@0
|
75 $ CC'CC_PREF' NNTP
|
|
yuuji@0
|
76 $ CC'CC_PREF' POP3
|
|
yuuji@0
|
77 $ CC'CC_PREF' DUMMYVMS
|
|
yuuji@0
|
78 $ CC'CC_PREF' RFC822
|
|
yuuji@0
|
79 $ CC'CC_PREF' MISC
|
|
yuuji@0
|
80 $ CC'CC_PREF' OS_VMS
|
|
yuuji@0
|
81 $ CC'CC_PREF' SMANAGER
|
|
yuuji@0
|
82 $ CC'CC_PREF' FLSTRING
|
|
yuuji@0
|
83 $ CC'CC_PREF' NEWSRC
|
|
yuuji@0
|
84 $ CC'CC_PREF' NETMSG
|
|
yuuji@0
|
85 $ CC'CC_PREF' UTF8
|
|
yuuji@0
|
86 $ CC'CC_PREF' UTF8AUX
|
|
yuuji@0
|
87 $ CC'CC_PREF' MTEST
|
|
yuuji@0
|
88 $ CC'CC_PREF' MAILUTIL
|
|
yuuji@0
|
89 $!
|
|
yuuji@0
|
90 $ LINK MTEST,OS_VMS,MAIL,IMAP4R1,SMTP,NNTP,POP3,DUMMYVMS,RFC822,MISC,UTF8,-
|
|
yuuji@0
|
91 UTF8AUX,SMANAGER,FLSTRING,NEWSRC,NETMSG,-
|
|
yuuji@0
|
92 SYS$INPUT:/OPTION'LINK_OPT',LINK/OPTION
|
|
yuuji@0
|
93 PSECT=_CTYPE_,NOWRT
|
|
yuuji@0
|
94 $ LINK MAILUTIL,OS_VMS,MAIL,IMAP4R1,SMTP,NNTP,POP3,DUMMYVMS,RFC822,MISC,UTF8,-
|
|
yuuji@0
|
95 UTF8AUX,SMANAGER,FLSTRING,NEWSRC,NETMSG,-
|
|
yuuji@0
|
96 SYS$INPUT:/OPTION'LINK_OPT',LINK/OPTION
|
|
yuuji@0
|
97 PSECT=_CTYPE_,NOWRT
|
|
yuuji@0
|
98 $ SET NOVERIFY
|
|
yuuji@0
|
99 $ EXIT
|
