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

Side by Side Diff: openssl/test/tverify.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/test/tsid.com ('k') | openssl/test/tx509.com » ('j') | no next file with comments »
Toggle Intra-line Diffs ('i') | Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
OLDNEW
1 $! TVERIFY.COM 1 $! TVERIFY.COM
2 $ 2 $
3 $» __arch := VAX 3 $» __arch = "VAX"
4 $ if f$getsyi("cpu") .ge. 128 then - 4 $ if f$getsyi("cpu") .ge. 128 then -
5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") 5 __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
6 $» if __arch .eqs. "" then __arch := UNK 6 $» if __arch .eqs. "" then __arch = "UNK"
7 $!
8 $» if (p1 .eqs. "64") then __arch = __arch+ "_64"
7 $! 9 $!
8 $ line_max = 255 ! Could be longer on modern non-VAX. 10 $ line_max = 255 ! Could be longer on modern non-VAX.
9 $ temp_file_name = "certs_"+ f$getjpi( "", "PID")+ ".tmp" 11 $ temp_file_name = "certs_"+ f$getjpi( "", "PID")+ ".tmp"
10 $» exe_dir := sys$disk:[-.'__arch'.exe.apps] 12 $» exe_dir = "sys$disk:[-.''__arch'.exe.apps]"
11 $ cmd = "mcr ''exe_dir'openssl verify ""-CAfile"" ''temp_file_name'" 13 $ cmd = "mcr ''exe_dir'openssl verify ""-CAfile"" ''temp_file_name'"
12 $ cmd_len = f$length( cmd) 14 $ cmd_len = f$length( cmd)
13 $ pems = "[-.certs...]*.pem" 15 $ pems = "[-.certs...]*.pem"
14 $! 16 $!
15 $! Concatenate all the certificate files. 17 $! Concatenate all the certificate files.
16 $! 18 $!
17 $ copy /concatenate 'pems' 'temp_file_name' 19 $ copy /concatenate 'pems' 'temp_file_name'
18 $! 20 $!
19 $! Loop through all the certificate files. 21 $! Loop through all the certificate files.
20 $! 22 $!
21 $ args = "" 23 $ args = ""
22 $» old_f := 24 $» old_f = ""
23 $ loop_file: 25 $ loop_file:
24 $ f = f$search( pems) 26 $ f = f$search( pems)
25 $ if ((f .nes. "") .and. (f .nes. old_f)) 27 $ if ((f .nes. "") .and. (f .nes. old_f))
26 $ then 28 $ then
27 $ old_f = f 29 $ old_f = f
28 $! 30 $!
29 $! If this file name would over-extend the command line, then 31 $! If this file name would over-extend the command line, then
30 $! run the command now. 32 $! run the command now.
31 $! 33 $!
32 $ if (cmd_len+ f$length( args)+ 1+ f$length( f) .gt. line_max) 34 $ if (cmd_len+ f$length( args)+ 1+ f$length( f) .gt. line_max)
(...skipping 21 matching lines...) Expand all
54 $! Delete the temporary file. 56 $! Delete the temporary file.
55 $! 57 $!
56 $ if (f$search( "''temp_file_name';*") .nes. "") then - 58 $ if (f$search( "''temp_file_name';*") .nes. "") then -
57 delete 'temp_file_name';* 59 delete 'temp_file_name';*
58 $! 60 $!
59 $ exit 61 $ exit
60 $! 62 $!
61 $ disaster: 63 $ disaster:
62 $ write sys$output " Command line too long. Doomed." 64 $ write sys$output " Command line too long. Doomed."
63 $! 65 $!
OLDNEW
« no previous file with comments | « openssl/test/tsid.com ('k') | openssl/test/tx509.com » ('j') | no next file with comments »

Powered by Google App Engine
This is Rietveld 408576698