| $! |
| $! |
| $! |
| $ 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 -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 |