mirror of
				https://github.com/libssh2/libssh2.git
				synced 2025-11-03 22:13:11 +03:00 
			
		
		
		
	
		
			
				
	
	
		
			96 lines
		
	
	
		
			2.5 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			96 lines
		
	
	
		
			2.5 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
$!
 | 
						|
$!
 | 
						|
$!
 | 
						|
$ olddir = f$environment( "default" )
 | 
						|
$ on control_y then goto End
 | 
						|
$ on error then goto End
 | 
						|
$!
 | 
						|
$ gosub Init
 | 
						|
$!
 | 
						|
$ man2help sys$input: libssh2.hlp -b 1
 | 
						|
 | 
						|
LIBSSH2
 | 
						|
 | 
						|
OpenVMS port of the libssh2 library, which provides an
 | 
						|
API to implement client SSH communication.
 | 
						|
 | 
						|
License information is available at the Copying subtopic.
 | 
						|
 | 
						|
$!
 | 
						|
$ open/append mh libssh2.hlp
 | 
						|
$ write mh helpversion
 | 
						|
$ close mh
 | 
						|
$!
 | 
						|
$ man2help -a [-]README.; libssh2.hlp        -b 2
 | 
						|
$ 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
 | 
						|
$ if f$search("[]HACKING_CRYPTO.") .nes. "" then delete []HACKING_CRYPTO.;*
 | 
						|
$ copy [-.docs]HACKING-CRYPTO; []HACKING_CRYPTO.
 | 
						|
$ man2help -a []HACKING_CRYPTO.; libssh2.hlp -b 2
 | 
						|
$ man2help -a [-.docs]TODO.; libssh2.hlp     -b 2
 | 
						|
$!
 | 
						|
$ man2help -a sys$input: libssh2.hlp         -b 2
 | 
						|
 | 
						|
API_Reference
 | 
						|
 | 
						|
Reference of all implemented API calls in
 | 
						|
libssh2.
 | 
						|
 | 
						|
$!
 | 
						|
$ man2help -a [-.docs]*.3 libssh2.hlp -b 3 -p
 | 
						|
$!
 | 
						|
$ library/help/create libssh2.hlb libssh2.hlp
 | 
						|
$!
 | 
						|
$End:
 | 
						|
$ set default 'olddir'
 | 
						|
$exit
 | 
						|
$!
 | 
						|
$!-------------------------------------------------------
 | 
						|
$!
 | 
						|
$Init:
 | 
						|
$!
 | 
						|
$ thisdir = f$environment( "procedure" )
 | 
						|
$ thisdir = f$parse(thisdir,,,"device") + f$parse(thisdir,,,"directory")
 | 
						|
$ set default 'thisdir'
 | 
						|
$!
 | 
						|
$ say = "write sys$output"
 | 
						|
$!
 | 
						|
$ 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")) ; -
 | 
						|
       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")) ; -
 | 
						|
       define/job patchv &l )
 | 
						|
$!
 | 
						|
$ majorv   = f$trnlnm("majorv")
 | 
						|
$ minorv   = f$integer(f$trnlnm("minorv"))
 | 
						|
$ patchv   = f$integer( f$trnlnm("patchv"))
 | 
						|
$!
 | 
						|
$ helpversion = "This help library is based on build version ''majorv'.''minorv'.''patchv' of libssh2."
 | 
						|
$!
 | 
						|
$ deassign/job majorv
 | 
						|
$ deassign/job minorv
 | 
						|
$ deassign/job patchv
 | 
						|
$!
 | 
						|
$ if f$search( "man2help.exe" ) .eqs. ""
 | 
						|
$ then
 | 
						|
$   cc man2help
 | 
						|
$   link man2help
 | 
						|
$ endif
 | 
						|
$!
 | 
						|
$ man2help := $'thisdir'man2help.exe
 | 
						|
$!
 | 
						|
$ if f$search("libssh2.hlp") .nes. ""
 | 
						|
$ then
 | 
						|
$   delete libssh2.hlp;*
 | 
						|
$ endif
 | 
						|
$ if f$search("libssh2.hlb") .nes. ""
 | 
						|
$ then
 | 
						|
$   delete libssh2.hlb;*
 | 
						|
$ endif
 | 
						|
$return
 |