install.com 1.6 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. $! INSTALL.COM -- Installs the files in a given directory tree
  2. $!
  3. $! Author: Richard Levitte <richard@levitte.org>
  4. $! Time of creation: 22-MAY-1998 10:13
  5. $!
  6. $! P1 root of the directory tree
  7. $!
  8. $
  9. $ IF P1 .EQS. ""
  10. $ THEN
  11. $ WRITE SYS$OUTPUT "First argument missing."
  12. $ WRITE SYS$OUTPUT -
  13. "Should be the directory where you want things installed."
  14. $ EXIT
  15. $ ENDIF
  16. $
  17. $ IF (F$GETSYI("CPU").LT.128)
  18. $ THEN
  19. $ ARCH := VAX
  20. $ ELSE
  21. $ ARCH = F$EDIT( F$GETSYI( "ARCH_NAME"), "UPCASE")
  22. $ IF (ARCH .EQS. "") THEN ARCH = "UNK"
  23. $ ENDIF
  24. $
  25. $ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0"
  26. $ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
  27. $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -
  28. - "[000000." - "][" - "[" - "]"
  29. $ ROOT = ROOT_DEV + "[" + ROOT_DIR
  30. $
  31. $ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC
  32. $ DEFINE/NOLOG WRK_SSLEXE WRK_SSLROOT:['ARCH'_EXE]
  33. $
  34. $ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN -
  35. CREATE/DIR/LOG WRK_SSLROOT:[000000]
  36. $ IF F$PARSE("WRK_SSLEXE:") .EQS. "" THEN -
  37. CREATE/DIR/LOG WRK_SSLEXE:
  38. $
  39. $ EXE := openssl
  40. $
  41. $ EXE_DIR := [-.'ARCH'.EXE.APPS]
  42. $
  43. $ I = 0
  44. $ LOOP_EXE:
  45. $ E = F$EDIT(F$ELEMENT(I, ",", EXE),"TRIM")
  46. $ I = I + 1
  47. $ IF E .EQS. "," THEN GOTO LOOP_EXE_END
  48. $ SET NOON
  49. $ IF F$SEARCH(EXE_DIR+E+".EXE") .NES. ""
  50. $ THEN
  51. $ COPY 'EXE_DIR''E'.EXE WRK_SSLEXE:'E'.EXE/log
  52. $ SET FILE/PROT=W:RE WRK_SSLEXE:'E'.EXE
  53. $ ENDIF
  54. $ SET ON
  55. $ GOTO LOOP_EXE
  56. $ LOOP_EXE_END:
  57. $
  58. $ SET NOON
  59. $ COPY CA.COM WRK_SSLEXE:CA.COM/LOG
  60. $ SET FILE/PROT=W:RE WRK_SSLVEXE:CA.COM
  61. $ COPY OPENSSL-VMS.CNF WRK_SSLROOT:[000000]OPENSSL.CNF/LOG
  62. $ SET FILE/PROT=W:R WRK_SSLROOT:[000000]OPENSSL.CNF
  63. $ SET ON
  64. $
  65. $ EXIT