Return to curl_startup.com CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / curl / packages / vms

Annotation of embedaddon/curl/packages/vms/curl_startup.com, revision 1.1

1.1     ! misho       1: $! File: curl_Startup.com
        !             2: $!
        !             3: $! $Id$
        !             4: $!
        !             5: $! Procedure to setup the CURL libraries for use by programs from the
        !             6: $! VMS SYSTARTUP*.COM procedure.
        !             7: $!
        !             8: $! Copyright 2009 - 2020, John Malmberg
        !             9: $!
        !            10: $! Permission to use, copy, modify, and/or distribute this software for any
        !            11: $! purpose with or without fee is hereby granted, provided that the above
        !            12: $! copyright notice and this permission notice appear in all copies.
        !            13: $!
        !            14: $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
        !            15: $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
        !            16: $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
        !            17: $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
        !            18: $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
        !            19: $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
        !            20: $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        !            21: $!
        !            22: $! 15-Jun-2009 J. Malmberg
        !            23: $! 30-Jul-2013 J. Malmberg  Update for Curl 7.32
        !            24: $!========================================================================
        !            25: $!
        !            26: $!
        !            27: $! GNV$GNU if needed.
        !            28: $ if f$trnlnm("GNV$GNU") .eqs. ""
        !            29: $ then
        !            30: $   x = f$trnlnm("GNU","LNM$SYSTEM_TABLE")
        !            31: $   if x .eqs. ""
        !            32: $   then
        !            33: $       write sys$output "GNV must be started up before this procedure.
        !            34: $       exit 44
        !            35: $   endif
        !            36: $   define/system/exec/trans=conc GNV$GNU 'x'
        !            37: $ endif
        !            38: $!
        !            39: $!
        !            40: $ myproc = f$environment("procedure")
        !            41: $!
        !            42: $! ZLIB needed.
        !            43: $ if f$trnlnm("GNV$LIBZSHR32") .eqs. ""
        !            44: $ then
        !            45: $   zlib_startup = f$parse("gnv$zlib_startup.com;0", myproc,,,)
        !            46: $   if f$search(zlib_startup) .nes. ""
        !            47: $   then
        !            48: $       @'zlib_startup
        !            49: $   else
        !            50: $       write sys$output "ZLIB package not found and is required."
        !            51: $       exit 44
        !            52: $   endif
        !            53: $ endif
        !            54: $!
        !            55: $!
        !            56: $ curl_ssl_libcrypto32 = ""
        !            57: $ curl_ssl_libssl32 = ""
        !            58: $ gnv_ssl_libcrypto32 = "gnv$gnu:[lib]ssl$libcrypto_shr32.exe"
        !            59: $ gnv_ssl_libssl32 = "gnv$gnu:[lib]ssl$libssl_shr32.exe"
        !            60: $ if f$search(gnv_ssl_libcrypto32) .nes. ""
        !            61: $ then
        !            62: $   curl_ssl_libcrypto32 = gnv_ssl_libcrypto32
        !            63: $   curl_ssl_libssl32 = gnv_ssl_libssl32
        !            64: $ else
        !            65: $   hp_ssl_libcrypto32 = "sys$share:ssl$libcrypto_shr32.exe"
        !            66: $   hp_ssl_libssl32 = "sys$share:ssl$libssl_shr32.exe"
        !            67: $   if f$search(hp_ssl_libcrypto32) .nes. ""
        !            68: $   then
        !            69: $       curl_ssl_libcrypto32 = hp_ssl_libcrypto32
        !            70: $       curl_ssl_libssl32 = hp_ssl_libssl32
        !            71: $   else
        !            72: $       write sys$output "HP SSL package not found and is required."
        !            73: $   endif
        !            74: $ endif
        !            75: $!
        !            76: $ define/system/exec gnv$curl_ssl_libcryptoshr32 'curl_ssl_libcrypto32'
        !            77: $ define/system/exec gnv$curl_ssl_libsslshr32 'curl_ssl_libssl32'
        !            78: $!
        !            79: $!
        !            80: $! CURL setup
        !            81: $ define/system/exec gnv$libcurl gnv$gnu:[usr.lib]GNV$LIBCURL.EXE
        !            82: $ define/system/exec gnv$curl_include gnv$gnu:[usr.include.curl]
        !            83: $ if .not. f$file_attributes("gnv$libcurl", "known")
        !            84: $ then
        !            85: $   install ADD gnv$libcurl/OPEN/SHARE/HEADER
        !            86: $ else
        !            87: $   install REPLACE gnv$libcurl/OPEN/SHARE/HEADER
        !            88: $ endif
        !            89: $!
        !            90: $!
        !            91: $ curl_exe = "gnv$gnu:[usr.bin]gnv$curl.exe"
        !            92: $ if .not. f$file_attributes(curl_exe, "known")
        !            93: $ then
        !            94: $   install ADD 'curl_exe'/OPEN/SHARE/HEADER
        !            95: $ else
        !            96: $   install REPLACE 'curl_exe'/OPEN/SHARE/HEADER
        !            97: $ endif
        !            98: $!
        !            99: $all_exit:
        !           100: $ exit