Index: openssl/test/testca.com |
=================================================================== |
--- openssl/test/testca.com (revision 105093) |
+++ openssl/test/testca.com (working copy) |
@@ -1,18 +1,20 @@ |
$! TESTCA.COM |
$ |
-$ __arch := VAX |
+$ __arch = "VAX" |
$ if f$getsyi("cpu") .ge. 128 then - |
__arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") |
-$ if __arch .eqs. "" then __arch := UNK |
+$ if __arch .eqs. "" then __arch = "UNK" |
+$! |
+$ if (p1 .eqs. "64") then __arch = __arch+ "_64" |
$ |
-$ openssl := mcr 'exe_dir'openssl |
+$ openssl = "mcr ''exe_dir'openssl" |
$ |
$ SSLEAY_CONFIG="-config ""CAss.cnf""" |
$ |
$ set noon |
$ if f$search("demoCA.dir") .nes. "" |
$ then |
-$ call deltree [.demoCA]*.* |
+$ @[-.util]deltree [.demoCA]*.* |
$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;* |
$ delete demoCA.dir;* |
$ endif |
@@ -39,7 +41,7 @@ |
$ if $severity .ne. 1 then exit 3 |
$ |
$ set noon |
-$ call deltree [.demoCA]*.* |
+$ @[-.util]deltree [.demoCA]*.* |
$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) demoCA.dir;* |
$ delete demoCA.dir;* |
$ if f$search("newcert.pem") .nes. "" then delete newcert.pem;* |
@@ -48,32 +50,3 @@ |
$! #usage: CA -newcert|-newreq|-newca|-sign|-verify |
$ |
$ exit |
-$ |
-$ deltree: subroutine ! P1 is a name of a directory |
-$ on control_y then goto dt_STOP |
-$ on warning then goto dt_exit |
-$ _dt_def = f$trnlnm("SYS$DISK")+f$directory() |
-$ if f$parse(p1) .eqs. "" then exit |
-$ set default 'f$parse(p1,,,"DEVICE")''f$parse(p1,,,"DIRECTORY")' |
-$ p1 = f$parse(p1,,,"NAME") + f$parse(p1,,,"TYPE") |
-$ _fp = f$parse(".DIR",p1) |
-$ dt_loop: |
-$ _f = f$search(_fp) |
-$ if _f .eqs. "" then goto dt_loopend |
-$ call deltree [.'f$parse(_f,,,"NAME")']*.* |
-$ goto dt_loop |
-$ dt_loopend: |
-$ _fp = f$parse(p1,".;*") |
-$ if f$search(_fp) .eqs. "" then goto dt_exit |
-$ set noon |
-$ set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) '_fp' |
-$ set on |
-$ delete/nolog '_fp' |
-$ dt_exit: |
-$ set default '_dt_def' |
-$ exit |
-$ dt_STOP: |
-$ set default '_dt_def' |
-$ stop/id="" |
-$ exit |
-$ endsubroutine |