92 lines
2.3 KiB
Plaintext
92 lines
2.3 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 public domain libssh2 library, which
|
|
provides an API to implement client SSH communciation.
|
|
|
|
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 [-]authors.; 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 [-]hacking.; libssh2.hlp -b 2
|
|
$ man2help -a [-]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
|
|
$!
|
|
$ 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
|