install.com 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  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. $ IF P1 .EQS. ""
  9. $ THEN
  10. $ WRITE SYS$OUTPUT "First argument missing."
  11. $ WRITE SYS$OUTPUT "Should be the directory where you want things installed."
  12. $ EXIT
  13. $ ENDIF
  14. $
  15. $ ROOT = F$PARSE(P1,"[]A.;0",,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0"
  16. $ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
  17. $ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -
  18. - "[000000." - "][" - "[" - "]"
  19. $ ROOT = ROOT_DEV + "[" + ROOT_DIR
  20. $
  21. $ DEFINE/NOLOG WRK_SSLROOT 'ROOT'.] /TRANS=CONC
  22. $ DEFINE/NOLOG WRK_SSLVLIB WRK_SSLROOT:[VAX_LIB]
  23. $ DEFINE/NOLOG WRK_SSLALIB WRK_SSLROOT:[ALPHA_LIB]
  24. $ DEFINE/NOLOG WRK_SSLINCLUDE WRK_SSLROOT:[INCLUDE]
  25. $
  26. $ IF F$PARSE("WRK_SSLROOT:[000000]") .EQS. "" THEN -
  27. CREATE/DIR/LOG WRK_SSLROOT:[000000]
  28. $ IF F$PARSE("WRK_SSLVLIB:") .EQS. "" THEN -
  29. CREATE/DIR/LOG WRK_SSLVLIB:
  30. $ IF F$PARSE("WRK_SSLALIB:") .EQS. "" THEN -
  31. CREATE/DIR/LOG WRK_SSLALIB:
  32. $ IF F$PARSE("WRK_SSLINCLUDE:") .EQS. "" THEN -
  33. CREATE/DIR/LOG WRK_SSLINCLUDE:
  34. $
  35. $ SDIRS := ,-
  36. OBJECTS,-
  37. MD2,MD4,MD5,SHA,MDC2,HMAC,RIPEMD,WHRLPOOL,-
  38. DES,RC2,RC4,RC5,IDEA,BF,CAST,-
  39. BN,EC,RSA,DSA,ECDSA,DH,ECDH,DSO,ENGINE,AES,-
  40. BUFFER,BIO,STACK,LHASH,RAND,ERR,-
  41. EVP,ASN1,PEM,X509,X509V3,CONF,TXT_DB,PKCS7,PKCS12,COMP,OCSP,-
  42. UI,KRB5,-
  43. STORE,PQUEUE,TS
  44. $ EXHEADER_ := crypto.h,tmdiff.h,opensslv.h,opensslconf.h,ebcdic.h,-
  45. symhacks.h,ossl_typ.h
  46. $ EXHEADER_OBJECTS := objects.h,obj_mac.h
  47. $ EXHEADER_MD2 := md2.h
  48. $ EXHEADER_MD4 := md4.h
  49. $ EXHEADER_MD5 := md5.h
  50. $ EXHEADER_SHA := sha.h
  51. $ EXHEADER_MDC2 := mdc2.h
  52. $ EXHEADER_HMAC := hmac.h
  53. $ EXHEADER_RIPEMD := ripemd.h
  54. $ EXHEADER_WHRLPOOL := whrlpool.h
  55. $ EXHEADER_DES := des.h,des_old.h
  56. $ EXHEADER_RC2 := rc2.h
  57. $ EXHEADER_RC4 := rc4.h
  58. $ EXHEADER_RC5 := rc5.h
  59. $ EXHEADER_IDEA := idea.h
  60. $ EXHEADER_BF := blowfish.h
  61. $ EXHEADER_CAST := cast.h
  62. $ EXHEADER_BN := bn.h
  63. $ EXHEADER_EC := ec.h
  64. $ EXHEADER_RSA := rsa.h
  65. $ EXHEADER_DSA := dsa.h
  66. $ EXHEADER_ECDSA := ecdsa.h
  67. $ EXHEADER_DH := dh.h
  68. $ EXHEADER_ECDH := ecdh.h
  69. $ EXHEADER_DSO := dso.h
  70. $ EXHEADER_ENGINE := engine.h
  71. $ EXHEADER_AES := aes.h
  72. $ EXHEADER_BUFFER := buffer.h
  73. $ EXHEADER_BIO := bio.h
  74. $ EXHEADER_STACK := stack.h,safestack.h
  75. $ EXHEADER_LHASH := lhash.h
  76. $ EXHEADER_RAND := rand.h
  77. $ EXHEADER_ERR := err.h
  78. $ EXHEADER_EVP := evp.h
  79. $ EXHEADER_ASN1 := asn1.h,asn1_mac.h,asn1t.h
  80. $ EXHEADER_PEM := pem.h,pem2.h
  81. $ EXHEADER_X509 := x509.h,x509_vfy.h
  82. $ EXHEADER_X509V3 := x509v3.h
  83. $ EXHEADER_CONF := conf.h,conf_api.h
  84. $ EXHEADER_TXT_DB := txt_db.h
  85. $ EXHEADER_PKCS7 := pkcs7.h
  86. $ EXHEADER_PKCS12 := pkcs12.h
  87. $ EXHEADER_COMP := comp.h
  88. $ EXHEADER_OCSP := ocsp.h
  89. $ EXHEADER_UI := ui.h,ui_compat.h
  90. $ EXHEADER_KRB5 := krb5_asn.h
  91. $! EXHEADER_STORE := store.h,str_compat.h
  92. $ EXHEADER_STORE := store.h
  93. $ EXHEADER_PQUEUE := pqueue.h,pq_compat.h
  94. $ EXHEADER_TS := ts.h
  95. $ LIBS := LIBCRYPTO
  96. $
  97. $ VEXE_DIR := [-.VAX.EXE.CRYPTO]
  98. $ AEXE_DIR := [-.AXP.EXE.CRYPTO]
  99. $
  100. $ I = 0
  101. $ LOOP_SDIRS:
  102. $ D = F$EDIT(F$ELEMENT(I, ",", SDIRS),"TRIM")
  103. $ I = I + 1
  104. $ IF D .EQS. "," THEN GOTO LOOP_SDIRS_END
  105. $ tmp = EXHEADER_'D'
  106. $ IF D .EQS. ""
  107. $ THEN
  108. $ COPY 'tmp' WRK_SSLINCLUDE: /LOG
  109. $ ELSE
  110. $ COPY [.'D']'tmp' WRK_SSLINCLUDE: /LOG
  111. $ ENDIF
  112. $ SET FILE/PROT=WORLD:RE WRK_SSLINCLUDE:'tmp'
  113. $ GOTO LOOP_SDIRS
  114. $ LOOP_SDIRS_END:
  115. $
  116. $ I = 0
  117. $ LOOP_LIB:
  118. $ E = F$EDIT(F$ELEMENT(I, ",", LIBS),"TRIM")
  119. $ I = I + 1
  120. $ IF E .EQS. "," THEN GOTO LOOP_LIB_END
  121. $ SET NOON
  122. $ IF F$SEARCH(VEXE_DIR+E+".OLB") .NES. ""
  123. $ THEN
  124. $ COPY 'VEXE_DIR''E'.OLB WRK_SSLVLIB:'E'.OLB/log
  125. $ SET FILE/PROT=W:RE WRK_SSLVLIB:'E'.OLB
  126. $ ENDIF
  127. $ ! Preparing for the time when we have shareable images
  128. $ IF F$SEARCH(VEXE_DIR+E+".EXE") .NES. ""
  129. $ THEN
  130. $ COPY 'VEXE_DIR''E'.EXE WRK_SSLVLIB:'E'.EXE/log
  131. $ SET FILE/PROT=W:RE WRK_SSLVLIB:'E'.EXE
  132. $ ENDIF
  133. $ IF F$SEARCH(AEXE_DIR+E+".OLB") .NES. ""
  134. $ THEN
  135. $ COPY 'AEXE_DIR''E'.OLB WRK_SSLALIB:'E'.OLB/log
  136. $ SET FILE/PROT=W:RE WRK_SSLALIB:'E'.OLB
  137. $ ENDIF
  138. $ ! Preparing for the time when we have shareable images
  139. $ IF F$SEARCH(AEXE_DIR+E+".EXE") .NES. ""
  140. $ THEN
  141. $ COPY 'AEXE_DIR''E'.EXE WRK_SSLALIB:'E'.EXE/log
  142. $ SET FILE/PROT=W:RE WRK_SSLALIB:'E'.EXE
  143. $ ENDIF
  144. $ SET ON
  145. $ GOTO LOOP_LIB
  146. $ LOOP_LIB_END:
  147. $
  148. $ EXIT