Return to VMS_Create_Optfile.com CVS log | Up to [Pegasus] / pegasus / src / Platforms / Vms |
File: [Pegasus] / pegasus / src / Platforms / Vms / VMS_Create_Optfile.com
(download)
Revision: 1.10, Tue May 29 10:33:15 2007 UTC (17 years, 1 month ago) by carson.hovey Branch: MAIN CVS Tags: TASK-PEP305_VXWORKS-root, TASK-PEP305_VXWORKS-branch-pre-solaris-port, TASK-PEP305_VXWORKS-branch-post-solaris-port, TASK-PEP305_VXWORKS-branch-beta2, TASK-PEP305_VXWORKS-branch, TASK-PEP305_VXWORKS-2008-10-23, TASK-PEP291_IPV6-root, TASK-PEP291_IPV6-branch, TASK-PEP274_dacim-root, TASK-PEP274_dacim-merged_out_to_branch, TASK-PEP274_dacim-merged_out_from_trunk, TASK-PEP274_dacim-merged_in_to_trunk, TASK-PEP274_dacim-merged_in_from_branch, TASK-PEP274_dacim-branch, TASK-Bug2102Final-root, TASK-Bug2102Final-merged_out_to_branch, TASK-Bug2102Final-merged_out_from_trunk, TASK-Bug2102Final-merged_in_to_trunk, TASK-Bug2102Final-merged_in_from_branch, TASK-Bug2102Final-branch, TASK-BUG7146_SqlRepositoryPrototype-root, TASK-BUG7146_SqlRepositoryPrototype-merged_out_to_branch, TASK-BUG7146_SqlRepositoryPrototype-merged_out_from_trunk, TASK-BUG7146_SqlRepositoryPrototype-merged_in_to_trunk, TASK-BUG7146_SqlRepositoryPrototype-merged_in_from_branch, TASK-BUG7146_SqlRepositoryPrototype-branch, RELEASE_2_7_0-RC1, RELEASE_2_7_0-BETA, RELEASE_2_7_0, RELEASE_2_7-root Branch point for: RELEASE_2_7-branch Changes since 1.9: +1 -19 lines BUG#: 6432 TITLE: OpenVMS: OpenSSL, use shareable images rather than compiled in code. DESCRIPTION: Remove not approved change from main branch... |
$ ! VMS_Create_Optfile.com $ env = f$parse(f$environment("PROCEDURE"),,,"NAME") $ v=f$verify(0+f$integer(f$trnlnm("''env'"+"_VERIFY"))) $ Goto Run_Begin $ ! $ ! Use the above "env" symbol to enable "set verify" - $ ! $define VMS_CREATE_OPTFILE_VERIFY 1 $ ! $ ! $ ! $ ! Create an option file for the executable or sharable image $ ! $ ! P1 = Makefile Directory $ ! P2 = Default directory $ ! P3 = Options filename $ ! P4 = Value of LIBRARIES $ ! P5 = Value of SHARE_COPY $ ! P6 = Value of VMS_VECTOR $ ! P7 = Objects directory $ ! P8 = Value of SOURCES when OBJECTS_IN_OPTIONFILE set $ ! $Run_Begin: $ First_lib = "yes" $ First_obj = "yes" $ ! $ MyOut :== "!" $ ! MyOut :== "Write Sys$output" $ ! $ 'MyOut "%VMSCROPT - P1 = ''P1'" $ 'MyOut "%VMSCROPT - P2 = ''P2'" $ 'MyOut "%VMSCROPT - P3 = ''P3'" $ 'MyOut "%VMSCROPT - P4 = ''P4'" $ 'MyOut "%VMSCROPT - P5 = ''P5'" $ 'MyOut "%VMSCROPT - P6 = ''P6'" $ 'MyOut "%VMSCROPT - P7 = ''P7'" $ 'MyOut "%VMSCROPT - P8 = ''P8'" $ ! $ ! $ ! Use the program name to open a new .opt file $ ! $ if P3 .eqs. "" $ Then $ Goto run_error1 $ Endif $ ! $ optname = "''P1'" + "''P3'" + ".opt" $ ! $ 'MyOut "%VMSCROPT - Optname = ''Optname'" $ ! $ Open/write/error=optfile_openerror optfile 'Optname $ ! $ ! Look for "OBJECTS_IN_OPTIONFILE". $ ! $ if P8 .eqs. "" $ Then $ Goto Get_libraries $ Endif $ 'MyOut "%VMSCROPT - OBJECTS_IN_OPTIONFILE is defined!" $ Write sys$output "%VMSCROPT - OBJECTS_IN_OPTIONFILE is defined!" $ ! $ ! Write the object filename list to the option file. $ ! $ Objnum = 0 $ ! $Get_objects_loop: $ ! $ ! Make the list of sources/objects $ ! $ PegObj = f$element(Objnum, " ", "''P8'") $ ! $ if ((PegObj .eqs. " ") .or. (PegObj .eqs. "")) $ then $ Goto Get_objects_loop_exit $ endif $ ! $ ! Create the object file entry $ ! $ if (first_obj .eqs. "yes") $ then $ objnam = "''P7'" + "''PegObj'" + ".obj" $ first_obj = "no" $ else $ objnam = "''PegObj'" + ".obj" $ endif $ ! $ Objnum = Objnum + 1 $ ! $ ! Write it too the option file $ ! $ write/error=optfile_writeerror optfile "''objnam'" $ ! $ ! Try again $ ! $ Goto Get_objects_loop $ ! $Get_objects_loop_exit: $ ! $Get_libraries: $ ! $ ! Every option file starts with the following $ ! $ libnam = f$trnlnm("PEGASUS_VMSHOMEA") + "obj.platforms.vms]vms_crtl_init.obj" $ ! $ ! Write it to the option file $ ! $ write/error=optfile_writeerror optfile "''libnam'" $ ! $ Libnum = 0 $ ! $makefile_loop3: $ ! $ ! Make the list of libraries $ ! $ PegLib = f$element(Libnum, " ", "''P4'") $ ! $ if ((PegLib .eqs. " ") .or. (PegLib .eqs. "")) $ then $ Goto makefile_loop3_exit $ endif $ ! $ ! Create the library file entry $ ! $ if (first_lib .eqs. "yes") $ then $ libnam = f$trnlnm("PEGASUS_VMSHOMEA") + "lib]" + "lib" + "''PegLib'" + "/lib" $ first_lib = "no" $ else $ libnam = "lib" + "''PegLib'" + "/lib" $ endif $ ! $ Libnum = Libnum + 1 $ ! $ ! Write it too the option file $ ! $ write/error=optfile_writeerror optfile "''libnam'" $ ! $ ! Try again $ ! $ Goto makefile_loop3 $ ! $makefile_loop3_exit: $ ! $ ! Add the SSL libraries $ ! $ ssllibdir = f$trnlnm("PEGASUS_OPENSSLLIB") $ if (ssllibdir .EQS. "") then goto No_ssl $ ! $ ssllib1 = "pegasus_openssllib:ssl$libssl_shr32/share" $ ssllib2 = "ssl$libcrypto_shr32/share" $ write/error=optfile_writeerror optfile "''ssllib1'" $ write/error=optfile_writeerror optfile "''ssllib2'" $No_ssl: $ ! $ zlibdir = f$trnlnm("libz") $ if (zlibdir .EQS. "") then goto No_zlib $ ! $ zlib1 = "libz:libz/lib" $ write/error=optfile_writeerror optfile "''zlib1'" $No_zlib: $ ! $ ! Looking for "SHARE_COPY" $ ! $ if P5 .eqs. "" $ Then $ Goto run_exit $ Endif $ ! $ 'MyOut "%VMSCROPT - SHARE_COPY defined" $ tmp_vecsym = "PegasusCreateProvider" $ ! $VmsVec: $ ! $ ! Looking for "VMS_VECTOR" $ ! $ if P6 .eqs. "" $ Then $ vecsym = "SYMBOL_VECTOR=(" + "''tmp_vecsym'" + "=PROCEDURE)" $ Goto Write_vmsvec $ Endif $ ! $ 'MyOut "%VMSCROPT - VMS_VECTOR defined" $ ! $ vecsym = "SYMBOL_VECTOR=(" + "''P6'" + "=PROCEDURE)" $ ! $Write_vmsvec: $ ! $ 'MyOut "%VMSCROPT - vecsym = ''vecsym'" $ ! $ ! Write it too the option file $ ! $ write/error=optfile_writeerror optfile "''vecsym'" $ ! $ ! Close the options file. $ ! $ Close optfile $makefile_loop9_exit3: $ ! $ Goto run_exit $ ! $optfile_eof: $ Goto run_exit $ ! $makefile_openerror1: $ Write sys$output "%VMSCROPT - Can't find makefile! 1 - ''mfile'" $ ! $ Goto run_exit $ ! $makefile_openerror2: $ Write sys$output "%VMSCROPT - Can't find makefile! 2 - ''mfile'" $ ! $ Goto run_exit $ ! $makefile_openerror3: $ Write sys$output "%VMSCROPT - Can't find makefile! 3 - ''mfile'" $ ! $ Goto run_exit $ ! $makefile_openerror4: $ Write sys$output "%VMSCROPT - Can't find makefile! 4 - ''mfile'" $ ! $ Goto run_exit $ ! $makefile_readerror: $ Write sys$output "%VMSCROPT - Error reading makefile! - ''mfile'" $ ! $ Goto run_exit $ ! $makefile2_openerror: $ Write sys$output "%VMSCROPT - Can't find makefile! - ''mfile1'" $ Show Default $ ! $ Goto run_exit $ ! $makefile_readerror1: $ Write sys$output "%VMSCROPT - Error reading makefile! - ''mfile1'" $ ! $ Goto run_exit $ ! $optfile_openerror: $ Write sys$output "%VMSCROPT - Can't open options file! - ''Optname'" $ ! $ Goto run_exit $ ! $optfile_writeerror: $ Write sys$output "%VMSCROPT - Error writing options file! - ''Optname'" $ ! $ Goto run_exit $ ! $run_error1: $ ! $ Write sys$output "%VMSCROPT - Can't find option filename!" $ Goto run_exit $ ! $run_error2: $ ! $ Write Sys$output "%VMSCROPT - Makefile.; libraries.mak line is not right!" $ Close 'mfile $ Close 'Optname $ Goto run_exit $ ! $run_error1: $ ! $ Goto run_exit $ ! $run_error1: $ ! $ Goto run_exit $ ! $run_error3: $ ! $ Goto run_exit $ ! $run_error0: $ ! $ Goto run_exit $ ! $ ! $ ! $run_exit: $ Exit 1+0*f$verify(v)
No CVS admin address has been configured |
Powered by ViewCVS 0.9.2 |