| 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 |