PenTest/nmap
1
0
Fork 0
mirror of https://github.com/nmap/nmap.git synced 2025-12-31 03:49:01 +00:00
Code Issues Projects Releases Wiki Activity

Upgrade libssh2 to 1.11.0

Browse Source
This commit is contained in:
dmiller
2024-02-28 17:39:06 +00:00
parent f64e2fab07
commit 1fc984bc73
114 changed files with 24809 additions and 19351 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
libssh2/vms/libssh2_config.h
View File

@@ -8,28 +8,28 @@
#define ssize_t SSIZE_T
typedef unsigned int uint32_t ;
typedef unsigned int uint32_t;
typedef unsigned int socklen_t; /* missing in headers on VMS */
/* Have's */
#define HAVE_UNISTD_H
#define HAVE_STDLIB_H
#define HAVE_INTTYPES_H
#define HAVE_SYS_TIME_H
#define HAVE_SELECT
#define HAVE_UIO
#define HAVE_SYS_SOCKET.H
#define HAVE_SYS_SOCKET_H
#define HAVE_NETINET_IN_H
#define HAVE_ARPA_INET_H
#define HAVE_GETTIMEOFDAY 1
#define HAVE_SNPRINTF 1
#define POSIX_C_SOURCE
/* Enable the possibility of using tracing */
#define LIBSSH2DEBUG 1
/* For selection of proper block/unblock function in session.c */
@@ -38,23 +38,23 @@ typedef unsigned int socklen_t; /* missing in headers on VMS */
#include <stropts.h>
/* In VMS TCP/IP Services and some BSD variants SO_STATE retrieves
* a bitmask revealing amongst others the blocking state of the
/* In VMS TCP/IP Services and some BSD variants SO_STATE retrieves
* a bitmask revealing amongst others the blocking state of the
* socket. On VMS the bits are undocumented, but SS_NBIO
* works, I did not test the other bits. Below bitdefs are
* from Berkely source socketvar.h at
* works, I did not test the other bits. Below bitdefs are
* from Berkely source socketvar.h at
* http://ftp.fibranet.cat/UnixArchive/PDP-11/Trees/2.11BSD/sys/h/socketvar.h
* Socket state bits.
* #define SS_NOFDREF 0x001 no file table ref any more
* #define SS_ISCONNECTED 0x002 socket connected to a peer
* #define SS_ISCONNECTING 0x004 in process of connecting to peer
* #define SS_ISDISCONNECTING 0x008 in process of disconnecting
* #define SS_CANTSENDMORE 0x010 can't send more data to peer
* #define SS_CANTRCVMORE 0x020 can't receive more data from peer
* #define SS_RCVATMARK 0x040 at mark on input
* #define SS_PRIV 0x080 privileged for broadcast, raw...
* #define SS_NBIO 0x100 non-blocking ops
* #define SS_ASYNC 0x200 async i/o notify
* #define SS_NOFDREF 0x001 no file table ref any more
* #define SS_ISCONNECTED 0x002 socket connected to a peer
* #define SS_ISCONNECTING 0x004 in process of connecting to peer
* #define SS_ISDISCONNECTING 0x008 in process of disconnecting
* #define SS_CANTSENDMORE 0x010 can't send more data to peer
* #define SS_CANTRCVMORE 0x020 can't receive more data from peer
* #define SS_RCVATMARK 0x040 at mark on input
* #define SS_PRIV 0x080 privileged for broadcast, raw...
* #define SS_NBIO 0x100 non-blocking ops
* #define SS_ASYNC 0x200 async i/o notify
*
*/
@@ -64,10 +64,10 @@ typedef unsigned int socklen_t; /* missing in headers on VMS */
* When running on Multinet, SO_STATE renders a protocol
* not started error. Functionally this has no impact,
* apart from libssh2 not being able to restore the socket
* to the proper blocking/non-blocking state.
* to the proper blocking/non-blocking state.
*/
#define SS_NBIO 0x100
#define SS_NBIO 0x100
#endif
@@ -80,9 +80,5 @@ typedef unsigned int socklen_t; /* missing in headers on VMS */
#define LIBSSH2_HAVE_ZLIB
/* Enable newer diffie-hellman-group-exchange-sha1 syntax */
#define LIBSSH2_DH_GEX_NEW 1
#endif /* __VMS */
#endif /* LIBSSH2_CONFIG_H */
#endif /* LIBSSH2_CONFIG_H */

70
libssh2/vms/libssh2_make_example.dcl
View File

@@ -8,9 +8,9 @@ $ if .not. init_status then goto YExit
$!
$ if what .eqs. "ALL"
$ then
$ call MakeAll
$ call MakeAll
$ else
$ call Make
$ call Make
$endif
$!
$YExit:
@@ -19,7 +19,7 @@ $! deassign exadir
$! deassign objdir
$ delete 'link_opts';*
$ set default 'olddir'
$exit
$exit
$MakeAll: subroutine
$!
@@ -45,14 +45,14 @@ $ set noon
$!
$ cc 'cc_include' 'cc_flags'/object=objdir:'what' exadir:'what'
$ sev = $severity
$ if sev .and. 2
$ if sev .and. 2
$ then
$ say "Error compiling ''what', not linked."
$ say "Error compiling ''what', not linked."
$ else
$ if .not. (sev .and. 1)
$ then
$ say "Compile warnings in ''what'"
$ endif
$ if .not. (sev .and. 1)
$ then
$ say "Compile warnings in ''what'"
$ endif
$ link/exe='what'.exe objdir:'what'.obj, 'link_opts'/opt
$ endif
$!
@@ -60,15 +60,15 @@ $!
$End:
$ delete objdir:'what'.obj;*
$exit
$endsubroutine
$endsubroutine
$Init:
$Init:
$!
$!
$ init_status = 1
$ thisid = f$integer( %x'f$getjpi(0,"pid")') + "''f$cvtime(,,"second")'"
$ mdir = f$environment("procedure")
$ mdir = f$environment("procedure")
$ mdir = mdir - f$parse(mdir,,,"name") - f$parse(mdir,,,"type") - f$parse(mdir,,,"version")
$ set default 'mdir'
$!
@@ -78,7 +78,7 @@ $!
$ objdirfile = objdir - "[." - "]" + ".dir"
$ if f$search( objdirfile ) .eqs. ""
$ then
$ create/directory 'objdir'
$ create/directory 'objdir'
$ endif
$!
$ define objdir 'objdir'
@@ -89,17 +89,17 @@ $ cc_flags = "/name=shortened/show=all/define=(_USE_STD_STAT=1)"
$ link_opts = "objdir:libssh2_''thisid'.opt"
$!
$!
$ what = "''p1'"
$ if what .eqs. "" .or. f$edit(p1,"trim,collapse,upcase") .eqs. "ALL"
$ then
$ what = "ALL"
$ what = "''p1'"
$ if what .eqs. "" .or. f$edit(p1,"trim,collapse,upcase") .eqs. "ALL"
$ then
$ what = "ALL"
$ else
$ what = f$parse(what,,,"name")
$ if f$search("exadir:''what'.c") .eqs. ""
$ then
$ write sys$output "Can't make ''what'"
$ init_status = 0
$ endif
$ what = f$parse(what,,,"name")
$ if f$search("exadir:''what'.c") .eqs. ""
$ then
$ write sys$output "Can't make ''what'"
$ init_status = 0
$ endif
$ endif
$!
$ currentlib = f$search("libssh2*.exe")
@@ -107,19 +107,19 @@ $!
$ define libssh2 'currentlib'
$!
$ how = "''p2'"
$ if how .eqs. "" .or. f$edit(p2,"trim,collapse,upcase") .eqs. "STATIC"
$ if how .eqs. "" .or. f$edit(p2,"trim,collapse,upcase") .eqs. "STATIC"
$ then
$ open/write lout 'link_opts'
$ write lout "libssh2.olb/lib"
$ write lout "sys$share:ssl$libcrypto_shr32.exe/share"
$ write lout "sys$share:ssl$libssl_shr32.exe/share"
$ write lout "gnv$libzshr/share"
$ close lout
$ open/write lout 'link_opts'
$ write lout "libssh2.olb/lib"
$ write lout "sys$share:ssl$libcrypto_shr32.exe/share"
$ write lout "sys$share:ssl$libssl_shr32.exe/share"
$ write lout "gnv$libzshr/share"
$ close lout
$ else
$ how = "SHARED"
$ open/write lout 'link_opts'
$ write lout "libssh2/share"
$ close lout
$ endif
$ how = "SHARED"
$ open/write lout 'link_opts'
$ write lout "libssh2/share"
$ close lout
$ endif
$!
$return

4
libssh2/vms/libssh2_make_help.dcl
View File

@@ -26,8 +26,8 @@ $ man2help -a [-]COPYING.; libssh2.hlp -b 2
$ man2help -a [-]NEWS.; libssh2.hlp -b 2
$ man2help -a [-]RELEASE-NOTES.; libssh2.hlp -b 2
$ man2help -a [-.docs]AUTHORS.; libssh2.hlp -b 2
$ man2help -a [-.docs]BINDINGS.; libssh2.hlp -b 2
$ man2help -a [-.docs]HACKING.; libssh2.hlp -b 2
$ copy [-.docs]BINDINGS.md; []BINDINGS.md
$ copy [-.docs]HACKING.md; []HACKING.md
$ if f$search("[]HACKING_CRYPTO.") .nes. "" then delete []HACKING_CRYPTO.;*
$ copy [-.docs]HACKING-CRYPTO; []HACKING_CRYPTO.
$ man2help -a []HACKING_CRYPTO.; libssh2.hlp -b 2

35
libssh2/vms/libssh2_make_kit.dcl
View File

@@ -22,24 +22,24 @@ $!
$ set default [-]
$!
$ defdir = f$environment( "default" )
$ thisdev = f$parse(defdir,,,"device","no_conceal")
$ thisdev = f$parse(defdir,,,"device","no_conceal")
$ thisdir = f$parse(defdir,,,"directory","no_conceal") - "][" - "][" - "][" - "]["
$!
$ libssh2_kf = thisdev + thisdir
$ libssh2_kf = thisdev + thisdir
$ libssh2_kf = libssh2_kf - "]" + ".]"
$!
$ set default 'mdir'
$!
$ define/translation_attributes=concealed libssh2_kf 'libssh2_kf'
$!
$ product package libssh2 -
/base='arch' -
$ product package libssh2 -
/base='arch' -
/producer=jcb -
/source=[] - ! where to find PDF and PTF
/destination=[] - ! where to put .PCSI file
/material=libssh2_kf:[000000...] - ! where to find product material
/source=[] - ! where to find PDF and PTF
/destination=[] - ! where to put .PCSI file
/material=libssh2_kf:[000000...] - ! where to find product material
/version="''vms_majorv'.''minorv'-''patchv'''datename'" -
/format=sequential
/format=sequential
$!
$End:
$!
@@ -52,7 +52,7 @@ $!
$ if f$trnlnm("libssh2_kf") .nes. "" then deassign libssh2_kf
$ set default 'olddir'
$!
$exit
$exit
$!
$!--------------------------------------------------------------------------------
$!
@@ -61,20 +61,20 @@ $ set process/parse=extended
$!
$ say = "write sys$output"
$!
$ mdir = f$environment("procedure")
$ mdir = f$environment("procedure")
$ mdir = mdir - f$parse(mdir,,,"name") - f$parse(mdir,,,"type") - f$parse(mdir,,,"version")
$!
$ set default 'mdir'
$!
$ pipe search [-.include]*.h libssh2_version_major/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
$ pipe search [-.include]*.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]*.h libssh2_version_minor/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
$ pipe search [-.include]*.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]*.h libssh2_version_patch/nohead | (read sys$input l ; l = f$element(2," ",f$edit(l,"trim,compress")) ; -
$ pipe search [-.include]*.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"))
$!
$ deassign/job majorv
@@ -106,10 +106,10 @@ $ then
$ daily = "FALSE"
$ datename = "Final"
$ else
$ datename = "D" + f$extract(seconddash+1,8,restdir)
$ datename = "D" + f$extract(seconddash+1,8,restdir)
$ endif
$!
$ if daily
$ if daily
$ then
$ productname = "JCB ''arch' LIBSSH2 V''vms_majorv'.''minorv'-''patchv'''datename'"
$ else
@@ -176,7 +176,7 @@ $ write pd " file ""[gnv.usr.share.doc.libssh2]libssh2-''versionname'.release
$ write pd " file ""[gnv.usr.lib]gnv$libssh2_''versionname'.exe"" source ""[vms]libssh2_''versionname'.exe"";"
$ write pd "end product ;"
$ close pd
$exit
$exit
$endsubroutine
$!
$!--------------------------------------------------------------------------------
@@ -219,4 +219,3 @@ $ write pt "[gnv.common_src]libssh2_''versionname'''datename'_src.bck"
$close pt
$exit
$ endsubroutine

74
libssh2/vms/libssh2_make_lib.dcl
View File

@@ -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"

82
libssh2/vms/man2help.c
View File

@@ -14,12 +14,12 @@ typedef struct manl{
struct manl *next;
char *filename;
}man, *manPtr;
typedef struct pf_fabnam{
struct FAB dfab;
struct RAB drab;
struct namldef dnam;
char expanded_filename[NAM$C_MAXRSS + 1];
char expanded_filename[NAM$C_MAXRSS + 1];
} pfn, *pfnPtr;
/*----------------------------------------------------------*/
@@ -37,13 +37,13 @@ if ( len ){
}else{
output[0] = 0;
}
}
}
/*----------------------------------------------------------*/
/* give part of ilename in partname. See code for proper
value of i ( 0 = node, 1 = dev, 2 = dir,3 = name etc.
*/
*/
int fnamepart( char *inputfile, char *part, int whatpart )
{
@@ -59,8 +59,8 @@ pf->dnam = cc$rms_naml;
pf->dfab.fab$l_naml = &pf->dnam;
pf->dfab.fab$l_fna = (char *) -1;
pf->dfab.fab$l_dna = (char *) -1;
pf->dfab.fab$l_fna = (char *) -1;
pf->dfab.fab$l_dna = (char *) -1;
pf->dfab.fab$b_fns = 0;
pf->dfab.fab$w_ifi = 0;
@@ -68,14 +68,14 @@ pf->dnam.naml$l_long_defname = NULL; //inputfile;
pf->dnam.naml$l_long_defname_size = 0;//strlen( inputfile );
pf->dnam.naml$l_long_filename = inputfile;
pf->dnam.naml$l_long_filename_size = strlen( inputfile);
pf->dnam.naml$l_long_filename_size = strlen( inputfile );
pf->dnam.naml$l_long_expand = pf->expanded_filename;
pf->dnam.naml$l_long_expand_alloc = NAM$C_MAXRSS ;
pf->dnam.naml$b_nop |= NAML$M_SYNCHK | NAML$M_PWD;
status = sys$parse( &pf->dfab, 0,0);
status = sys$parse( &pf->dfab, 0, 0 );
if ( !(status&1) ){
free( pf );
return( status );
@@ -85,7 +85,7 @@ fpcopy ( ipart[0], pf->dnam.naml$l_long_node , pf->dnam.naml$l_long_node_size);
fpcopy ( ipart[1], pf->dnam.naml$l_long_dev , pf->dnam.naml$l_long_dev_size);
fpcopy ( ipart[2], pf->dnam.naml$l_long_dir , pf->dnam.naml$l_long_dir_size);
fpcopy ( ipart[3], pf->dnam.naml$l_long_name , pf->dnam.naml$l_long_name_size);
fpcopy ( ipart[4], pf->dnam.naml$l_long_type , pf->dnam.naml$l_long_type_size);
fpcopy ( ipart[4], pf->dnam.naml$l_long_type , pf->dnam.naml$l_long_type_size);
fpcopy ( ipart[5], pf->dnam.naml$l_long_ver , pf->dnam.naml$l_long_ver_size);
for( i = ipart[ whatpart ], p = part; *i; ++i, ++p){
@@ -93,7 +93,7 @@ for( i = ipart[ whatpart ], p = part; *i; ++i, ++p){
*p = toupper( *i );
}else{
*p = tolower( *i );
}
}
}
*p = 0;
@@ -111,16 +111,16 @@ char gevonden_file[NAM$C_MAXRSS + 1];
filespec.dsc$w_length = strlen(filename);
filespec.dsc$b_dtype = DSC$K_DTYPE_T;
filespec.dsc$b_class = DSC$K_CLASS_S;
filespec.dsc$b_class = DSC$K_CLASS_S;
filespec.dsc$a_pointer = filename;
gevondend.dsc$w_length = NAM$C_MAXRSS;
gevondend.dsc$b_dtype = DSC$K_DTYPE_T;
gevondend.dsc$b_class = DSC$K_CLASS_S;
gevondend.dsc$b_class = DSC$K_CLASS_S;
gevondend.dsc$a_pointer = gevonden_file;
status=lib$find_file(&filespec,&gevondend,findex,0,0,0,0);
if ( (status & 1) == 1 ){
strcpy(gevonden,strtok(gevonden_file," "));
}else{
@@ -137,13 +137,13 @@ manPtr addman( manPtr *manroot,char *filename )
{
manPtr m,f;
m = calloc( 1, sizeof( man) );
m = calloc( 1, sizeof( man ) );
if ( !m ) return( NULL );
m->filename = strdup( filename );
if ( *manroot == NULL ){
*manroot = m;
*manroot = m;
}else{
for( f = *manroot; f->next ; f = f->next );
f->next = m;
@@ -159,7 +159,7 @@ manPtr m,n;
for( m = *manroot; m ; m = n ){
free( m->filename );
n = m->next;
free ( m );
free( m );
}
*manroot = NULL;
}
@@ -180,11 +180,11 @@ while(1){
r = addman( manroot, gevonden );
if ( r == NULL ) return(2);
}else{
if ( !( status&1)) break;
if ( !( status&1 ) ) break;
}
}
lib$find_file_end( &ffindex);
lib$find_file_end( &ffindex );
if ( status == RMS$_NMF) status = 1;
@@ -207,14 +207,14 @@ uit = calloc( 1, maxlen + 1 );
if ( in == NULL || uit == NULL ) return(2);
man = fopen( filespec, "r");
man = fopen( filespec, "r" );
if ( man == NULL ) return(vaxc$errno);
for( len = 0; !feof( man ) && len < maxlen ; len += thislen ){
thislen = fread( in + len, 1, maxlen - len, man );
}
fclose (man);
fclose(man);
m = in;
h = uit;
@@ -259,10 +259,10 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
mode = 0;
break;
case 'B':
++m;
++m;
*h = ' ';++h;
mode = 0;
break;
break;
case 'I':
/* remove preceding eol */
if ( *(m+1) != 'P' ){
@@ -272,7 +272,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
}
/* skip .Ix */
for(;*m != ' ' && *m != '\n' && *m != '\r'; ++m);
for(;*m != ' ' && *m != '\n' && *m != '\r'; ++m);
/* copy line up to EOL */
@@ -281,7 +281,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
/* if line ends in ., this is an EOL */
if ( *(h-1) == '.'){
--h;
--h;
--m;
}else{
/* if line does not end in ., skip EOL in source */
@@ -293,7 +293,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
case 'S':
if ( *(m+1) == 'H' ){
*h = '\n';++h;
if ( strncmp( m+3 ,"NAME",4) == 0 ||
if ( strncmp( m+3 ,"NAME",4) == 0 ||
strncmp( m+3 ,"SYNOPSIS",8) == 0 ||
strncmp( m+3 ,"DESCRIPTION",11) == 0 ){
while( *m != '\n' && *m != '\r')++m;
@@ -306,7 +306,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
*h = '0' + base_level + 1;++h;
return_status |= 2;
*h = ' ';++h;
*h = ' ';++h;
/* skip H (or whatever after S) and blank */
++m;++m;
@@ -318,11 +318,11 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
if ( *m != '\"' ){
*h = tolower( *m );
if (*h == ' ') *h = '_';
if (*h == ' ') *h = '_';
}else{
--h;
}
}
}
}
/* Add a linefeed or two */
@@ -330,7 +330,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
*h = *m;++h;
mode = 0;
}
}
}
break;
case 'T':
@@ -341,10 +341,10 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
for ( m = m + 3; *m != ' ' && *m ; ++m, ++h ){
*h = *m;
}
if ( add_parentheses ){
*h = '(';++h;
*h = ')';++h;
}
if ( add_parentheses ){
*h = '(';++h;
*h = ')';++h;
}
while( *m != '\n' && *m != '\r' && *m )++m;
mode = 0;
}
@@ -355,7 +355,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
break;
}
break;
case 2: /* after \ skip two characters or print the backslash */
case 2: /* after \ skip two characters or print the backslash */
switch(*m){
case '\\':
*h = *m;
@@ -367,7 +367,7 @@ for ( mode = 0, bol = 1 ; *m; ++m ){
mode = 0;
break;
}
break;
break;
} /*end switch mode */
bol = 0;
@@ -401,10 +401,10 @@ if ( (return_status&2) ){
len, filespec, strlen(uit), return_status );
*/
free( m );
free( h );
free( m );
free( h );
return ( 1);
return ( 1 );
}
/*--------------------------------------------*/
@@ -474,7 +474,7 @@ for ( i = 1; i < argc; ++i){
case 'a':
append = 1;
break;
case 'b':
case 'b':
if ( (i+1) < argc ){
base_level = atoi( argv[ i + 1 ] );
basechange = 1;
@@ -512,5 +512,3 @@ free( helpfile );
return( status );
}

113
libssh2/vms/readme.vms
View File

@@ -1,13 +1,13 @@
*These are the porting notes to OpenVMS, as of 7 April 2010
by Jose Baars. This file will be installed as
by Jose Baars. This file will be installed as
libssh2*.release_notes by the product install kit.
LIBSSH2
LIBSSH2
-------
LIBSSH2 is a client-side library written in C that aims to
implement the SSH2 protocol. It is an open source project,
LIBSSH2 is a client-side library written in C that aims to
implement the SSH2 protocol. It is an open source project,
to be found at https://libssh2.org.
GNV
@@ -19,44 +19,44 @@ of the GNV project, John Malmberg.
Installing the PCSI kit
=======================
Prerequisites
Prerequisites
-------------
- VMS version 8.3 minimal.
- VMS version 8.3 minimal.
See the remarks at prerequisites for building the kit
- TCP/IP stack, both TCP/IP services and Multinet should work.
- TCP/IP stack, both TCP/IP services and Multinet should work.
See the remarks at prerequisites for building the kit
- HP OPENSSL V1.3 minimal.
- HP OPENSSL V1.3 minimal.
See the remarks at prerequisites for building the kit
- JEM ZLIB V1.2-3E1 minimal.
- JEM ZLIB V1.2-3E1 minimal.
See the remarks at prerequisites for building the kit
The first three dependencies are tested at installation time, and
The first three dependencies are tested at installation time, and
installation will fail if any these products are not installed.
The ZLIB dependency is not tested by the product installation
procedure, as libssh2 will probably be installed as part of
procedure, as libssh2 will probably be installed as part of
multiple libraries including zlib.
Install
-------
The kit will install gnv$libssh2.exe in a directory tree that might
already be available on your system if you have installed other gnv*
libraries or utilities.
The kit will install gnv$libssh2.exe in a directory tree that might
already be available on your system if you have installed other gnv*
libraries or utilities.
The directory tree for gnv$libssh2.exe will be like this:
[gnv] -- [usr] -- [include] -- [libssh2] include files for libssh2
[lib] gnv$libssh2_x_y_z.exe
[share] -- [doc] -- [libssh2] libssh2.hlb,
release notes (this file),
libssh2 release notes
[share] -- [doc] -- [libssh2] libssh2.hlb,
release notes (this file),
libssh2 release notes
optional:
[example] libssh2_examples-x_y_z.bck
[example] libssh2_examples-x_y_z.bck
[common_src] libssh2-x_y_z_src.bck
By default, it will install the shared image and include files to
By default, it will install the shared image and include files to
SYS$COMMON:[GNV...].
You can override this destination by specifying the destination
@@ -71,9 +71,9 @@ Please ignore the following warnings, as the kit is not signed :
Optionally, you can install a backup saveset with some programming examples,
or a backupo saveset with the complete libssh2 source tree.
you will need to answer 'NO' to the question
'Do you want the default for all options'.
you will need to answer 'NO' to the question
'Do you want the default for all options'.
and 'YES' to either or both the following questions:
@@ -95,38 +95,38 @@ define this logical in your systartup like so:
$ define/system/executive gnv$libssh2 dev:[dir..]gnv$libssh2_x_y_z.exe
Optionally, you can install the executbale like so:
Optionally, you can install the executable like so:
$ mc sysgen install dev:[dir..]gnv$libssh2_x_y_z.exe/open/share/header
Link your programs against gnv$libssh2, and when upgrading libssh2
Link your programs against gnv$libssh2, and when upgrading libssh2
test thoroughly.
If you want to be extra cautious define a system logical like this:
$ define/system/executive gnv$libssh2_x_y_z dev:[dir..]gnv$libssh2_x_y_z.exe
Link programs against gnv$libssh2_x_y_z, and when upgrading libssh2
link against new versions.
Link programs against gnv$libssh2_x_y_z, and when upgrading libssh2
link against new versions.
It is probably more convenient in the last case to link against the object
It is probably more convenient in the last case to link against the object
library provided in the source backup saveset. Both an uppercase and a
mixed case object library, called libssh2.olb and libssh2_asis.olb
mixed case object library, called libssh2.olb and libssh2_asis.olb
are provided.
Compiling and linking against libssh2
-------------------------------------
The shared image library has a vector table with both uppercase and
mixed case entry points, allowing to link directly against the shared
image wether you need the /NAMES=AS_IS or not.
The shared image library has a vector table with both uppercase and
mixed case entry points, allowing to link directly against the shared
image whether you need the /NAMES=AS_IS or not.
To link successfully, you MUST use /NAMES=shortened, as some function
names in libssh2 are longer than the VMS maximum of 32 characters.
If you chose to install the examples, you can unpack the backup
saveset by
saveset by
backup/sel=*.c device:[gnv.usr.share.doc.libssh2.examples]libssh2_examples-x_y_z.bck -
[]
@@ -147,7 +147,7 @@ Building gnv$libssh2
You can build gnv$libssh2 yourself, which may have advantages, as the library is
in full development, very regularly new features are added.
For production use, it is probably advisable to use a stable version, and
For production use, it is probably advisable to use a stable version, and
link against that. To check out new features, statically linking against
the object library is probably more practical, to avoid compatibility
issues.
@@ -161,21 +161,21 @@ You will need to have the following available:
- An Alpha or Itanium VMS system. Due to dependencies on zlib, ssl and ODS-5,
support on VAXen would be cumbersome at least.
- VMS version 8.3 minimal. This is a requirement of gnv$zlibshr.exe against
- VMS version 8.3 minimal. This is a requirement of gnv$zlibshr.exe against
which shared image library libssh2 is linked. If you use another zlib
to link against, you can make it work under lower versions of VMS.
I have made it work on VMS 7.3-2 with not a lot of difficulty.
Also, if you are not interested in compression, you can choose not
to link against zlib at all; in that case comment out the
to link against zlib at all; in that case comment out the
#define LIBSSH2_HAVE_ZLIB in libssh2_config.h.
- TCP/IP services or Multinet for OpenVMS.
TCPWare has not been tested.
- The HP OpenSSL product. Of course, with tweaking, you can probably link
- The HP OpenSSL product. Of course, with tweaking, you can probably link
it against the OpenSSL library, but that is not what I have used.
- A C compiler. I don't know any other working C compilers than
- A C compiler. I don't know any other working C compilers than
the DEC/Compac/HP-C compiler on VMS.
- An ODS-5 disk. With tweaking you'll get it to work on an ODS-2
@@ -199,7 +199,7 @@ Downloading libssh2
-------------------
At the website of libssh2, you can find stable and daily gzipped
tarballs. if you have a computer connected to internet you can
tarballs. if you have a computer connected to internet you can
download a daily build yourself by a procedure that looks a lot like
this ( fill out your own proxy user/password, set up right symbols to
gunzip, vmstar and curl and set up the libssh2 build version):
@@ -212,8 +212,8 @@ $ currentday = f$cvtime(,,"date") - "-" - "-"
$!
$ set def mydev:[mydir.libssh2]
$!
$ if f$search("libssh2-''libssh2_version'-''currentday'.tar.gz") .nes. ""
$ then
$ if f$search("libssh2-''libssh2_version'-''currentday'.tar.gz") .nes. ""
$ then
$ delete libssh2-'libssh2_version'-'currentday'.tar.gz;*
$ endif
$!
@@ -221,15 +221,15 @@ $ curl 'proxy_line' "https://libssh2.org/snapshots/libssh2-''libssh2_version'-''
-o libssh2-'libssh2_version'-'currentday'.tar.gz
$!
$!
$ if f$search("libssh2-''libssh2_version'-''currentday'.tar.;") .nes. ""
$ then
$ if f$search("libssh2-''libssh2_version'-''currentday'.tar.;") .nes. ""
$ then
$ delete libssh2-'libssh2_version'-'currentday'.tar.;*
$ endif
$!
$ gunzip libssh2-'libssh2_version'-'currentday'.tar.gz
$!
$ tarfile = f$search("libssh2-''libssh2_version'-''currentday'.tar.;")
$ vmstar xf 'tarfile'
$ vmstar xf 'tarfile'
Downloading a stable build will need you to get rid of the currentday.
@@ -241,8 +241,8 @@ Getting the libssh2 sources from the source backup in the binary kit
--------------------------------------------------------------------
During installation of the binary kit, you are given the option
of installing the sources. If chosen, a backup saveset with
the complete libssh2 directory is made available in
of installing the sources. If chosen, a backup saveset with
the complete libssh2 directory is made available in
[gnv.common_src].
By restoring this backup saveset, you end up with the same
@@ -262,7 +262,7 @@ command:
@libssh2_make_lib.dcl
This should produce libssh2_x_y_z.exe in this same vms directory.
Building the examples
@@ -274,16 +274,16 @@ produced when building the shared image, or against the shared image
produced in the step before.
You can compile only one of the examples by giving only the
name part of the filename of the example as p1 to the
name part of the filename of the example as p1 to the
build procedure:
@libssh2_make_example.dcl
@libssh2_make_example.dcl
or for instance
@libssh2_make_example.dcl sftp
@libssh2_make_example.dcl sftp
By default, libssh2_make_example.dcl links to the object libraries
By default, libssh2_make_example.dcl links to the object libraries
produced by the libssh2_make_lib.dcl procedure. If you want to link
against the shared image library made in the same procedure, invoke
the procedure like so:
@@ -291,7 +291,7 @@ the procedure like so:
@libssh2_make_example.dcl sftp "SHARED"
The procdure defines a process logical gnv$libssh2 pointing to the shared
image library in the directory, which obviously will not survive a logout.
image library in the directory, which obviously will not survive a logout.
Building the help library
@@ -309,11 +309,6 @@ Building a PCSI kit
-------------------
When you have built the shared library and the help library,
you can build a PCSI kit by issueing this command:
you can build a PCSI kit by issuing this command:
@libssh2_make_kit.dcl