$ IF F$PARSE("WRK_SSLROOT:[VMS]") .EQS. "" THEN -
CREATE/DIR/LOG WRK_SSLROOT:[VMS]
$
-$ SDIRS := CRYPTO,SSL,RSAREF,APPS,VMS!,TEST,TOOLS
+$ DIRS := CRYPTO,FIPS,SSL,APPS,VMS!,RSAREF,TEST,TOOLS
$ EXHEADER := e_os2.h
$
$ COPY 'EXHEADER' WRK_SSLINCLUDE: /LOG
$ SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'EXHEADER'
$
$ I = 0
-$ LOOP_SDIRS:
-$ D = F$ELEMENT(I, ",", SDIRS)
+$ LOOP_DIRS:
+$ D = F$ELEMENT(I, ",", DIRS)
$ I = I + 1
-$ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
+$ IF D .EQS. "," THEN GOTO LOOP_DIRS_END
$ WRITE SYS$OUTPUT "Installing ",D," files."
$ SET DEFAULT [.'D']
$ @INSTALL 'ROOT']
$ SET DEFAULT [-]
-$ GOTO LOOP_SDIRS
-$ LOOP_SDIRS_END:
+$ GOTO LOOP_DIRS
+$ LOOP_DIRS_END:
$
$ DEASSIGN WRK_SSLROOT
$ DEASSIGN WRK_SSLVLIB