mirror of
https://github.com/nmap/nmap.git
synced 2025-12-09 22:21:29 +00:00
Upgrade libssh2 to 1.11.0
This commit is contained in:
dmiller
@@ -21,16 +21,16 @@ $ deassign objdir
|
||||
$ delete library_objects.dir;*
|
||||
$!
|
||||
$ set default 'olddir'
|
||||
$exit
|
||||
$exit
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$Init:
|
||||
$Init:
|
||||
$!
|
||||
$!
|
||||
$ init_status = 1
|
||||
$ thisid = f$integer( %x'f$getjpi(0,"pid")')
|
||||
$ mdir = f$environment("procedure")
|
||||
$ thisid = f$integer( %x'f$getjpi(0,"pid")')
|
||||
$ mdir = f$environment("procedure")
|
||||
$ mdir = mdir - f$parse(mdir,,,"name") - f$parse(mdir,,,"type") - f$parse(mdir,,,"version")
|
||||
$ set default 'mdir'
|
||||
$!
|
||||
@@ -50,15 +50,15 @@ $ cc_include = "/include=([],[-.include],""/gnv$zlib_include"")"
|
||||
$ cc_define = "/DEFINE=(_USE_STD_STAT=1)"
|
||||
$ link_opts = "objdir:libssh2_''thisid'.opt"
|
||||
$!
|
||||
$ pipe search [-.include]libssh2.h libssh2_version_major/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
|
||||
$ pipe search [-.include]libssh2.h libssh2_version_major/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
|
||||
define/job majorv &l )
|
||||
$ pipe search [-.include]libssh2.h libssh2_version_minor/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
|
||||
$ pipe search [-.include]libssh2.h libssh2_version_minor/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
|
||||
define/job minorv &l )
|
||||
$ pipe search [-.include]libssh2.h libssh2_version_patch/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
|
||||
$ pipe search [-.include]libssh2.h libssh2_version_patch/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
|
||||
define/job patchv &l )
|
||||
$!
|
||||
$ majorv = f$trnlnm("majorv")
|
||||
$ minorv = f$integer(f$trnlnm("minorv"))
|
||||
$ minorv = f$integer(f$trnlnm("minorv"))
|
||||
$ patchv = f$integer( f$trnlnm("patchv"))
|
||||
$!
|
||||
$ OLBONLY = "FALSE"
|
||||
@@ -81,7 +81,7 @@ $ set noon
|
||||
$ purge *.opt
|
||||
$ purge *.olb
|
||||
$ purge *.exe
|
||||
$!
|
||||
$!
|
||||
$exit 1
|
||||
$endsubroutine
|
||||
$!
|
||||
@@ -103,7 +103,7 @@ $ write uitv "sys$share:ssl$libcrypto_shr32.exe/share"
|
||||
$ write uitv "sys$share:ssl$libssl_shr32.exe/share"
|
||||
$ write uitv "gnv$libzshr/share"
|
||||
$ close uitv
|
||||
$!
|
||||
$!
|
||||
$ link/shared/exe=libssh2_'majorv'_'minorv'_'patchv'.exe -
|
||||
libssh2.olb/lib, -
|
||||
link_libssh2_version_'majorv'_'minorv'_'patchv'.opt/opt, -
|
||||
@@ -118,12 +118,12 @@ $CompileAll: subroutine
|
||||
$!
|
||||
$ set noon
|
||||
$!
|
||||
$ if f$search("objdir:*.obj;*") .nes ""
|
||||
$ then
|
||||
$ if f$search("objdir:*.obj;*") .nes ""
|
||||
$ then
|
||||
$ delete objdir:*.obj;*
|
||||
$ endif
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ delete [.cxx_repository]cxx$demangler_db.;*
|
||||
$ endif
|
||||
$!
|
||||
@@ -136,16 +136,16 @@ $ case = 0
|
||||
$ if OLBONLY then case = 1
|
||||
$CaseLoop:
|
||||
$!
|
||||
$ if case .eq. 0
|
||||
$ then!camel case names
|
||||
$ if case .eq. 0
|
||||
$ then!camel case names
|
||||
$ cc_flags = "/names=(shortened,as_is)''cc_define'"
|
||||
$ objlib = "libssh2_asis.olb"
|
||||
$ endif
|
||||
$!
|
||||
$ if case .eq. 1
|
||||
$ then!uppercase names
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ if case .eq. 1
|
||||
$ then!uppercase names
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ rename [.cxx_repository]cxx$demangler_db.; *.lowercase
|
||||
$ purge [.cxx_repository]cxx$demangler_db.lowercase
|
||||
$ endif
|
||||
@@ -172,8 +172,8 @@ $ delete objdir:*.obj;*
|
||||
$ if case .lt 2 then goto CaseLoop
|
||||
$!
|
||||
$ rename libssh2_up.olb libssh2.olb
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ rename [.cxx_repository]cxx$demangler_db.; *.uppercase
|
||||
$ purge [.cxx_repository]cxx$demangler_db.uppercase
|
||||
$ endif
|
||||
@@ -182,10 +182,10 @@ $ if OLBONLY then exit 4
|
||||
$!
|
||||
$! For each function that is too long, create a global symbol
|
||||
$! low$'shortened-uppercase-name' with as value lowercase shortened
|
||||
$! name in it, so we can add the proper lower or mixed case
|
||||
$! shortened name later when building the transfer vectors
|
||||
$! name in it, so we can add the proper lower or mixed case
|
||||
$! shortened name later when building the transfer vectors
|
||||
$! for the shared image.
|
||||
$! This is to prevent two very long similar function names
|
||||
$! This is to prevent two very long similar function names
|
||||
$! that are shortened getting mixed up when sorted alphabetically.
|
||||
$!
|
||||
$ inputfile = "[.cxx_repository]cxx$demangler_db.lowercase"
|
||||
@@ -211,7 +211,7 @@ $ symvalue = ""
|
||||
$!
|
||||
$ if shortname .eqs. f$edit(shortname,"upcase")
|
||||
$ then
|
||||
$! this is an uppercase shortname, add it
|
||||
$! this is an uppercase shortname, add it
|
||||
$ symname = "u$''longname'"
|
||||
$ symvalue = "''shortname'"
|
||||
$ low$'shortname' == l$'longname'
|
||||
@@ -246,7 +246,7 @@ $ library/insert 'objlib' objdir:'what'.obj
|
||||
$!
|
||||
$End:
|
||||
$exit
|
||||
$endsubroutine
|
||||
$endsubroutine
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
@@ -254,7 +254,7 @@ $BuildTransferVectors: subroutine
|
||||
$!
|
||||
$! Do a balanced read of the uppercase library names
|
||||
$! and the mixed case library names, and build the
|
||||
$! transfer vectors with uppercase entry points
|
||||
$! transfer vectors with uppercase entry points
|
||||
$! with an alternative in mixed case.
|
||||
$! For shortened names, use the low$* symbols
|
||||
$! to avoid being fooled by the sort.
|
||||
@@ -267,9 +267,9 @@ $! case blind sort of all modules in both the uppercase
|
||||
$! as the case sensitive object library.
|
||||
$!
|
||||
$ sort libu.'thisid' lib.'thisid'/spec=sys$input
|
||||
/COLLATING_SEQUENCE=(SEQUENCE= ("A" - "Z","0"-"9","_"), FOLD)
|
||||
/COLLATING_SEQUENCE=(SEQUENCE= ("A" - "Z","0"-"9","_"), FOLD)
|
||||
$ sort lib_asisu.'thisid' lib_asis.'thisid'/spec=sys$input
|
||||
/COLLATING_SEQUENCE=(SEQUENCE= ("A" - "Z","0"-"9","_"), FOLD)
|
||||
/COLLATING_SEQUENCE=(SEQUENCE= ("A" - "Z","0"-"9","_"), FOLD)
|
||||
$!
|
||||
$ open/read in lib.'thisid'
|
||||
$ open/read inasis lib_asis.'thisid'
|
||||
@@ -300,12 +300,12 @@ $ endif
|
||||
$!
|
||||
$ if uitregel .nes. "" .and. mode .eq. 1
|
||||
$ then
|
||||
$ write uit "''uitregel'=PROCEDURE, -"
|
||||
$ write uit "''uitasis'/''uitregel'=PROCEDURE, -"
|
||||
$ write uit "''uitregel'=PROCEDURE, -"
|
||||
$ write uit "''uitasis'/''uitregel'=PROCEDURE, -"
|
||||
$!
|
||||
$ uitregel = ""
|
||||
$ uitasis = ""
|
||||
$ endif
|
||||
$ endif
|
||||
$!
|
||||
$ uitregel = regel
|
||||
$ if f$type( low$'uitregel' ) .nes. ""
|
||||
@@ -320,14 +320,14 @@ $ mode = 1
|
||||
$!
|
||||
$ goto ReadLoop
|
||||
$EndreadLoop:
|
||||
$!
|
||||
$!
|
||||
$! To get the closing brace after the last procedure
|
||||
$! keyword.
|
||||
$!
|
||||
$ if uitregel .nes. ""
|
||||
$ then
|
||||
$ write uit "''uitregel'=PROCEDURE, -"
|
||||
$ write uit "''uitasis'/''uitregel'=PROCEDURE)"
|
||||
$ then
|
||||
$ write uit "''uitregel'=PROCEDURE, -"
|
||||
$ write uit "''uitasis'/''uitregel'=PROCEDURE)"
|
||||
$ endif
|
||||
$!
|
||||
$ write uit "CASE_SENSITIVE=NO"
|
||||
|
||||
Reference in New Issue
Block a user