OLD | NEW |
1 $! TESTENC.COM -- Test encoding and decoding | 1 $! TESTENC.COM -- Test encoding and decoding |
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 $» testsrc := makefile. | 10 $» exe_dir = "sys$disk:[-.''__arch'.exe.apps]" |
9 $» test := p.txt | 11 $» testsrc = "makefile." |
10 $» cmd := mcr 'exe_dir'openssl | 12 $» test = "p.txt" |
| 13 $» cmd = "mcr ''exe_dir'openssl" |
11 $ | 14 $ |
12 $ if f$search(test) .nes. "" then delete 'test';* | 15 $ if f$search(test) .nes. "" then delete 'test';* |
13 $ convert/fdl=sys$input: 'testsrc' 'test' | 16 $ convert/fdl=sys$input: 'testsrc' 'test' |
14 RECORD | 17 RECORD |
15 FORMAT STREAM_LF | 18 FORMAT STREAM_LF |
16 $ | 19 $ |
17 $ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;* | 20 $ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;* |
18 $ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;* | 21 $ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;* |
19 $ | 22 $ |
20 $ write sys$output "cat" | 23 $ write sys$output "cat" |
(...skipping 33 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
54 $ 'cmd' 'i' -bufsize 157 -a -d -k test -in 'test'-'i'-cipher -out 'test'-'
i'-clear | 57 $ 'cmd' 'i' -bufsize 157 -a -d -k test -in 'test'-'i'-cipher -out 'test'-'
i'-clear |
55 $ backup/compare 'test' 'test'-'i'-clear | 58 $ backup/compare 'test' 'test'-'i'-clear |
56 $ if $severity .ne. 1 then exit 3 | 59 $ if $severity .ne. 1 then exit 3 |
57 $ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* | 60 $ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* |
58 $ | 61 $ |
59 $ goto loop_cipher_commands | 62 $ goto loop_cipher_commands |
60 $ loop_cipher_commands_end: | 63 $ loop_cipher_commands_end: |
61 $ close f | 64 $ close f |
62 $ delete 'test'-cipher-commands;* | 65 $ delete 'test'-cipher-commands;* |
63 $ delete 'test';* | 66 $ delete 'test';* |
OLD | NEW |