Chromium Code Reviews
chromiumcodereview-hr@appspot.gserviceaccount.com (chromiumcodereview-hr) | Please choose your nickname with Settings | Help | Chromium Project | Gerrit Changes | Sign out
(637)

Side by Side Diff: openssl/VMS/openssl_startup.com

Issue 9254031: Upgrade chrome's OpenSSL to same version Android ships with. (Closed) Base URL: http://src.chromium.org/svn/trunk/deps/third_party/openssl/
Patch Set: '' Created 8 years, 11 months ago
Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.
Jump to:
View unified diff | Download patch | Annotate | Revision Log
« no previous file with comments | « openssl/VMS/mkshared.com ('k') | openssl/VMS/openssl_undo.com » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
(Empty)
1 $!
2 $! Startup file for OpenSSL 1.x.
3 $!
4 $! 2011-03-05 SMS.
5 $!
6 $! This procedure must reside in the OpenSSL installation directory.
7 $! It will fail if it is copied to a different location.
8 $!
9 $! P1 qualifier(s) for DEFINE. For example, "/SYSTEM" to get the
10 $! logical names defined in the system logical name table.
11 $!
12 $! P2 "64", to use executables which were built with 64-bit pointers.
13 $!
14 $! Good (default) and bad status values.
15 $!
16 $ status = %x00010001 ! RMS$_NORMAL, normal successful completion.
17 $ rms_e_fnf = %x00018292 ! RMS$_FNF, file not found.
18 $!
19 $! Prepare for problems.
20 $!
21 $ orig_dev_dir = f$environment( "DEFAULT")
22 $ on control_y then goto clean_up
23 $ on error then goto clean_up
24 $!
25 $! Determine hardware architecture.
26 $!
27 $ if (f$getsyi( "cpu") .lt. 128)
28 $ then
29 $ arch_name = "VAX"
30 $ else
31 $ arch_name = f$edit( f$getsyi( "arch_name"), "upcase")
32 $ if (arch_name .eqs. "") then arch_name = "UNK"
33 $ endif
34 $!
35 $ if (p2 .eqs. "64")
36 $ then
37 $ arch_name_exe = arch_name+ "_64"
38 $ else
39 $ arch_name_exe = arch_name
40 $ endif
41 $!
42 $! Derive the OpenSSL installation device:[directory] from the location
43 $! of this command procedure.
44 $!
45 $ proc = f$environment( "procedure")
46 $ proc_dev_dir = f$parse( "A.;", proc, , , "no_conceal") - "A.;"
47 $ proc_dev = f$parse( proc_dev_dir, , , "device", "syntax_only")
48 $ proc_dir = f$parse( proc_dev_dir, , , "directory", "syntax_only") - -
49 ".][000000"- "[000000."- "]["- "["- "]"
50 $ proc_dev_dir = proc_dev+ "["+ proc_dir+ "]"
51 $ set default 'proc_dev_dir'
52 $ set default [-]
53 $ ossl_dev_dir = f$environment( "default")
54 $!
55 $! Check existence of expected directories (to see if this procedure has
56 $! been moved away from its proper place).
57 $!
58 $ if ((f$search( "certs.dir;1") .eqs. "") .or. -
59 (f$search( "include.dir;1") .eqs. "") .or. -
60 (f$search( "private.dir;1") .eqs. "") .or. -
61 (f$search( "vms.dir;1") .eqs. ""))
62 $ then
63 $ write sys$output -
64 " Can't find expected common OpenSSL directories in:"
65 $ write sys$output " ''ossl_dev_dir'"
66 $ status = rms_e_fnf
67 $ goto clean_up
68 $ endif
69 $!
70 $ if ((f$search( "''arch_name_exe'_exe.dir;1") .eqs. "") .or. -
71 (f$search( "''arch_name'_lib.dir;1") .eqs. ""))
72 $ then
73 $ write sys$output -
74 " Can't find expected architecture-specific OpenSSL directories in:"
75 $ write sys$output " ''ossl_dev_dir'"
76 $ status = rms_e_fnf
77 $ goto clean_up
78 $ endif
79 $!
80 $! All seems well (enough). Define the OpenSSL logical names.
81 $!
82 $ ossl_root = ossl_dev_dir- "]"+ ".]"
83 $ define /translation_attributes = concealed /nolog'p1 SSLROOT 'ossl_root'
84 $ define /nolog 'p1' SSLCERTS sslroot:[certs]
85 $ define /nolog 'p1' SSLINCLUDE sslroot:[include]
86 $ define /nolog 'p1' SSLPRIVATE sslroot:[private]
87 $ define /nolog 'p1' SSLEXE sslroot:['arch_name_exe'_exe]
88 $ define /nolog 'p1' SSLLIB sslroot:['arch_name'_lib]
89 $!
90 $! Defining OPENSSL lets a C program use "#include <openssl/{foo}.h>":
91 $ define /nolog 'p1' OPENSSL SSLINCLUDE:
92 $!
93 $! Run a site-specific procedure, if it exists.
94 $!
95 $ if f$search( "sslroot:[vms]openssl_systartup.com") .nes."" then -
96 @ sslroot:[vms]openssl_systartup.com
97 $!
98 $! Restore the original default dev:[dir] (if known).
99 $!
100 $ clean_up:
101 $!
102 $ if (f$type( orig_dev_dir) .nes. "")
103 $ then
104 $ set default 'orig_dev_dir'
105 $ endif
106 $!
107 $ EXIT 'status'
108 $!
OLDNEW
« no previous file with comments | « openssl/VMS/mkshared.com ('k') | openssl/VMS/openssl_undo.com » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698