初始提交：terminalX 可运行态（M0/M1/M1.5 已真机验证）
- M0: libghostty SSH 终端（渲染/输入/连接）+ 白屏修复(OutputGate) + 会话状态机/自动重连 - M1: tsnet 用户态组网 + SSH-over-tsnet(fd 桥)，shell 级真机验证；R5(Go+gvisor+C+++Swift 同进程) retire - M1.5: tmux -CC 原生 tab（MVP） - 结构: packages/(TXCore·TXTransport), apps/TerminalX, vendor/(libghostty-spm/libssh2/mbedtls/tsnet-bridge), artifacts/ - 文档: CLAUDE.md + docs/HANDOFF.md（新会话入口） - 环境: 认证代理→依赖 vendor 本地化；Go 在 ~/.local/go；仅模拟器/未签名 - 待续: M2 mosh, tmux 多 pane, M4 安全(host key/SE) Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
kid
89
vendor/libssh2/vms/libssh2_config.h
vendored
Normal file
89
vendor/libssh2/vms/libssh2_config.h
vendored
Normal file
@@ -0,0 +1,89 @@
|
||||
/* Copyright (C) The libssh2 project and its contributors.
|
||||
*
|
||||
* SPDX-License-Identifier: BSD-3-Clause
|
||||
*/
|
||||
|
||||
#ifndef LIBSSH2_CONFIG_H
|
||||
#ifdef __VMS
|
||||
|
||||
#define LIBSSH2_CONFIG_H
|
||||
|
||||
/* VMS specific libssh2_config.h
|
||||
*/
|
||||
|
||||
#define ssize_t SSIZE_T
|
||||
|
||||
typedef unsigned int uint32_t;
|
||||
typedef unsigned int socklen_t; /* missing in headers on VMS */
|
||||
|
||||
/* Have's */
|
||||
|
||||
#define HAVE_UNISTD_H
|
||||
#define HAVE_INTTYPES_H
|
||||
#define HAVE_SYS_TIME_H
|
||||
#define HAVE_SELECT
|
||||
#define HAVE_UIO
|
||||
|
||||
#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 */
|
||||
|
||||
#define HAVE_FIONBIO
|
||||
|
||||
#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
|
||||
* 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
|
||||
* 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
|
||||
*
|
||||
*/
|
||||
|
||||
#ifdef SO_STATE
|
||||
|
||||
/* SO_STATE is defined in stropts.h by DECC
|
||||
* 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.
|
||||
*/
|
||||
|
||||
#define SS_NBIO 0x100
|
||||
|
||||
#endif
|
||||
|
||||
/* Use OpenSSL */
|
||||
#define LIBSSH2_OPENSSL 1
|
||||
|
||||
/* Compile in zlib support. We link against gnv$libzshr, as available
|
||||
* from https://sourceforge.net/projects/vms-ports/files/.
|
||||
*/
|
||||
|
||||
#define LIBSSH2_HAVE_ZLIB
|
||||
|
||||
#endif /* __VMS */
|
||||
#endif /* LIBSSH2_CONFIG_H */
|
||||
125
vendor/libssh2/vms/libssh2_make_example.dcl
vendored
Normal file
125
vendor/libssh2/vms/libssh2_make_example.dcl
vendored
Normal file
@@ -0,0 +1,125 @@
|
||||
$!
|
||||
$!
|
||||
$ olddir = f$environment("default")
|
||||
$ on control_y then goto YExit
|
||||
$!
|
||||
$ gosub Init
|
||||
$ if .not. init_status then goto YExit
|
||||
$!
|
||||
$ if what .eqs. "ALL"
|
||||
$ then
|
||||
$ call MakeAll
|
||||
$ else
|
||||
$ call Make
|
||||
$endif
|
||||
$!
|
||||
$YExit:
|
||||
$ set noon
|
||||
$! deassign exadir
|
||||
$! deassign objdir
|
||||
$ delete 'link_opts';*
|
||||
$ set default 'olddir'
|
||||
$exit
|
||||
|
||||
$MakeAll: subroutine
|
||||
$!
|
||||
$ set noon
|
||||
$Loop:
|
||||
$ this = f$search("exadir:*.c;0")
|
||||
$ if this .eqs. "" then goto EndLoop
|
||||
$!
|
||||
$ what = f$parse( this,,,"name")
|
||||
$ if what .eqs. "x11" then goto loop ! not portable yet
|
||||
$ call Make
|
||||
$!
|
||||
$ goto Loop
|
||||
$EndLoop:
|
||||
$!
|
||||
$exit
|
||||
$endsubroutine
|
||||
|
||||
|
||||
$Make: subroutine
|
||||
$!
|
||||
$ set noon
|
||||
$!
|
||||
$ cc 'cc_include' 'cc_flags'/object=objdir:'what' exadir:'what'
|
||||
$ sev = $severity
|
||||
$ if sev .and. 2
|
||||
$ then
|
||||
$ say "Error compiling ''what', not linked."
|
||||
$ else
|
||||
$ if .not. (sev .and. 1)
|
||||
$ then
|
||||
$ say "Compile warnings in ''what'"
|
||||
$ endif
|
||||
$ link/exe='what'.exe objdir:'what'.obj, 'link_opts'/opt
|
||||
$ endif
|
||||
$!
|
||||
$!
|
||||
$End:
|
||||
$ delete objdir:'what'.obj;*
|
||||
$exit
|
||||
$endsubroutine
|
||||
|
||||
|
||||
$Init:
|
||||
$!
|
||||
$!
|
||||
$ init_status = 1
|
||||
$ thisid = f$integer( %x'f$getjpi(0,"pid")') + "''f$cvtime(,,"second")'"
|
||||
$ mdir = f$environment("procedure")
|
||||
$ mdir = mdir - f$parse(mdir,,,"name") - f$parse(mdir,,,"type") - f$parse(mdir,,,"version")
|
||||
$ set default 'mdir'
|
||||
$!
|
||||
$ objdir = "[.example_objects]"
|
||||
$ exadir = "[-.example]"
|
||||
$!
|
||||
$ objdirfile = objdir - "[." - "]" + ".dir"
|
||||
$ if f$search( objdirfile ) .eqs. ""
|
||||
$ then
|
||||
$ create/directory 'objdir'
|
||||
$ endif
|
||||
$!
|
||||
$ define objdir 'objdir'
|
||||
$ define exadir 'exadir'
|
||||
$!
|
||||
$ cc_include = "/include=([],[-.include])"
|
||||
$ 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"
|
||||
$ 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
|
||||
$ endif
|
||||
$!
|
||||
$ currentlib = f$search("libssh2*.exe")
|
||||
$!
|
||||
$ define libssh2 'currentlib'
|
||||
$!
|
||||
$ how = "''p2'"
|
||||
$ 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
|
||||
$ else
|
||||
$ how = "SHARED"
|
||||
$ open/write lout 'link_opts'
|
||||
$ write lout "libssh2/share"
|
||||
$ close lout
|
||||
$ endif
|
||||
$!
|
||||
$return
|
||||
95
vendor/libssh2/vms/libssh2_make_help.dcl
vendored
Normal file
95
vendor/libssh2/vms/libssh2_make_help.dcl
vendored
Normal file
@@ -0,0 +1,95 @@
|
||||
$!
|
||||
$!
|
||||
$!
|
||||
$ 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
|
||||
$ 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
|
||||
$ 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
|
||||
221
vendor/libssh2/vms/libssh2_make_kit.dcl
vendored
Normal file
221
vendor/libssh2/vms/libssh2_make_kit.dcl
vendored
Normal file
@@ -0,0 +1,221 @@
|
||||
$!
|
||||
$ olddir = f$environment("default")
|
||||
$ on error then goto End
|
||||
$!
|
||||
$ gosub Init
|
||||
$!
|
||||
$ call WriteProductDescriptionFile
|
||||
$ call WriteProductTextFile
|
||||
$!
|
||||
$! backup tree
|
||||
$!
|
||||
$ backup [-...]*.*;0/excl=([]*.exe,*.obj,*.opt,*.hlp,*.hlb,*.bck,*.com,*.pcsi*) -
|
||||
libssh2-'versionname''datename'_src.bck/save
|
||||
$ purge libssh2-'versionname''datename'_src.bck
|
||||
$!
|
||||
$! backup examples
|
||||
$!
|
||||
$ backup [-.example]*.c;0 libssh2_examples-'versionname''datename'.bck/save
|
||||
$ dire libssh2_examples-'versionname''datename'.bck
|
||||
$ purge libssh2_examples-'versionname''datename'.bck
|
||||
$!
|
||||
$ set default [-]
|
||||
$!
|
||||
$ defdir = f$environment( "default" )
|
||||
$ thisdev = f$parse(defdir,,,"device","no_conceal")
|
||||
$ thisdir = f$parse(defdir,,,"directory","no_conceal") - "][" - "][" - "][" - "]["
|
||||
$!
|
||||
$ libssh2_kf = thisdev + thisdir
|
||||
$ libssh2_kf = libssh2_kf - "]" + ".]"
|
||||
$!
|
||||
$ set default 'mdir'
|
||||
$!
|
||||
$ define/translation_attributes=concealed libssh2_kf 'libssh2_kf'
|
||||
$!
|
||||
$ 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
|
||||
/version="''vms_majorv'.''minorv'-''patchv'''datename'" -
|
||||
/format=sequential
|
||||
$!
|
||||
$End:
|
||||
$!
|
||||
$ set noon
|
||||
$ if f$search("*.pcsi$desc;*") .nes. "" then delete *.pcsi$desc;*
|
||||
$ if f$search("*.pcsi$text;*") .nes. "" then delete *.pcsi$text;*
|
||||
$ if f$search("libssh2-''versionname'''datename'_src.bck;*") .nes. "" then delete libssh2-'versionname''datename'_src.bck;*
|
||||
$ if f$search("libssh2_examples-''versionname'''datename'.bck;*") .nes. "" then delete libssh2_examples-'versionname''datename'.bck;*
|
||||
$!
|
||||
$ if f$trnlnm("libssh2_kf") .nes. "" then deassign libssh2_kf
|
||||
$ set default 'olddir'
|
||||
$!
|
||||
$exit
|
||||
$!
|
||||
$!--------------------------------------------------------------------------------
|
||||
$!
|
||||
$Init:
|
||||
$ set process/parse=extended
|
||||
$!
|
||||
$ say = "write sys$output"
|
||||
$!
|
||||
$ 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")) ; -
|
||||
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"))
|
||||
$!
|
||||
$ deassign/job majorv
|
||||
$ deassign/job minorv
|
||||
$ deassign/job patchv
|
||||
$!
|
||||
$ vms_majorv = f$trnlnm("vms_majorv")
|
||||
$ if vms_majorv .eqs. "" then vms_majorv = majorv
|
||||
$!
|
||||
$ arch = "UNKNOWN"
|
||||
$ if f$getsyi("arch_type") .eq. 2 then arch = "AXPVMS"
|
||||
$ if f$getsyi("arch_type") .eq. 3 then arch = "I64VMS"
|
||||
$!
|
||||
$ if arch .eqs. "UNKNOWN"
|
||||
$ then
|
||||
$ say "Unsupported or unknown architecture, only works on Alpha and Itanium"
|
||||
$ exit 2
|
||||
$ endif
|
||||
$!
|
||||
$! is this a proper release or a daily snapshot?
|
||||
$! crummy, but should work.
|
||||
$!
|
||||
$ daily = "TRUE"
|
||||
$ firstdash = f$locate("-",mdir)
|
||||
$ restdir = f$extract( firstdash + 1, 80, mdir)
|
||||
$ seconddash = f$locate("-", restdir)
|
||||
$ if seconddash .ge. f$length( restdir )
|
||||
$ then
|
||||
$ daily = "FALSE"
|
||||
$ datename = "Final"
|
||||
$ else
|
||||
$ datename = "D" + f$extract(seconddash+1,8,restdir)
|
||||
$ endif
|
||||
$!
|
||||
$ if daily
|
||||
$ then
|
||||
$ productname = "JCB ''arch' LIBSSH2 V''vms_majorv'.''minorv'-''patchv'''datename'"
|
||||
$ else
|
||||
$ productname = "JCB ''arch' LIBSSH2 V''vms_majorv'.''minorv'-''patchv'''datename'"
|
||||
$ endif
|
||||
$!
|
||||
$ productfilename = "JCB-''arch'-LIBSSH2-" + f$fao("V!2ZL!2ZL-!2ZL!AS-1", f$integer(vms_majorv),minorv,patchv,datename)
|
||||
$!
|
||||
$ versionname = "''vms_majorv'_''minorv'_''patchv'"
|
||||
$!
|
||||
$return
|
||||
$!
|
||||
$!--------------------------------------------------------------------------------
|
||||
$!
|
||||
$WriteProductDescriptionFile: subroutine
|
||||
$!
|
||||
$ open/write pd 'productfilename'.PCSI$DESC
|
||||
$!
|
||||
$ write pd "product ''productname' full ;"
|
||||
$ write pd " software DEC ''arch' VMS ;"
|
||||
$ write pd " if (not <software DEC ''arch' VMS version minimum V8.3>) ;
|
||||
$ write pd " error NEED_VMS83 ;"
|
||||
$ write pd " end if ;"
|
||||
$ write pd " software HP ''arch' SSL version minimum V1.3;"
|
||||
$ write pd " if (not <software HP ''arch' SSL version minimum V1.3>) ;
|
||||
$ write pd " error NEED_SSL ;"
|
||||
$ write pd " end if ;"
|
||||
$ write pd " execute preconfigure (""set process/parse_type=extended"");"
|
||||
$ write pd " execute postinstall (""set process/parse_type=extended"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv]usr.dir usr.DIR"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr]include.dir include.DIR"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.include]libssh2.dir libssh2.DIR"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.include.libssh2]libssh2.h libssh2.h"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.include.libssh2]libssh2_publickey.h libssh2_publickey.h"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.include.libssh2]libssh2_sftp.h libssh2_sftp.h"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.include.libssh2]libssh2_config.h libssh2_config.h"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr]lib.dir lib.DIR"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.lib]gnv$libssh2_''versionname'.exe gnv$libssh2_''versionname'.exe"","
|
||||
$ write pd " ""rename pcsi$destination:[gnv.usr.share.doc.libssh2]libssh2.hlb libssh2.hlb"");"
|
||||
$ write pd " information RELEASE_NOTES phase after ;"
|
||||
$ write pd " option EXAMPLE default 0 ;"
|
||||
$ write pd " directory ""[gnv.usr.share.doc.libssh2.examples]"" ;"
|
||||
$ write pd " file ""[gnv.usr.share.doc.libssh2.examples]libssh2_examples-''versionname'''datename'.bck"";"
|
||||
$ write pd " end option ;"
|
||||
$ write pd " option SOURCE default 0 ;"
|
||||
$ write pd " directory ""[gnv.common_src]"" ;"
|
||||
$ write pd " file ""[gnv.common_src]libssh2-''versionname'''datename'_src.bck"";"
|
||||
$ write pd " end option ;"
|
||||
$ write pd " directory ""[gnv]"" ;"
|
||||
$ write pd " directory ""[gnv.usr]"" ;"
|
||||
$ write pd " directory ""[gnv.usr.lib]"" ;"
|
||||
$ write pd " directory ""[gnv.usr.include]"" ;"
|
||||
$ write pd " directory ""[gnv.usr.include.libssh2]"" ;"
|
||||
$ write pd " directory ""[gnv.usr.share]"" ;"
|
||||
$ write pd " directory ""[gnv.usr.share.doc]"" ;"
|
||||
$ write pd " directory ""[gnv.usr.share.doc.libssh2]"" ;"
|
||||
$ write pd " file ""[gnv.usr.include.libssh2]libssh2.h"" source ""[include]libssh2.h"";"
|
||||
$ write pd " file ""[gnv.usr.include.libssh2]libssh2_publickey.h"" source ""[include]libssh2_publickey.h"";"
|
||||
$ write pd " file ""[gnv.usr.include.libssh2]libssh2_sftp.h"" source ""[include]libssh2_sftp.h"";"
|
||||
$ write pd " file ""[gnv.usr.include.libssh2]libssh2_config.h"" source ""[vms]libssh2_config.h"";"
|
||||
$ write pd " file ""[gnv.usr.share.doc.libssh2]libssh2.hlb"" source ""[vms]libssh2.hlb"";"
|
||||
$ write pd " file ""[gnv.usr.share.doc.libssh2]libssh2-''versionname'.news"" source ""[000000]NEWS."";"
|
||||
$ write pd " file ""[gnv.usr.share.doc.libssh2]libssh2-''versionname'.release_notes"" source ""[vms]readme.vms"";"
|
||||
$ write pd " file ""[gnv.usr.lib]gnv$libssh2_''versionname'.exe"" source ""[vms]libssh2_''versionname'.exe"";"
|
||||
$ write pd "end product ;"
|
||||
$ close pd
|
||||
$exit
|
||||
$endsubroutine
|
||||
$!
|
||||
$!--------------------------------------------------------------------------------
|
||||
$!
|
||||
$WriteProductTextFile: subroutine
|
||||
$!
|
||||
$ open/write pt 'productfilename'.PCSI$TEXT
|
||||
$ write pt "=PRODUCT ''productname' Full"
|
||||
$ write pt "1 'PRODUCER"
|
||||
$ write pt "=prompt libssh2 is an open source product ported to VMS by Jose Baars"
|
||||
$ write pt "This software product is provided with no warranty."
|
||||
$ write pt "For license information see the LIBSSH2 help library."
|
||||
$ write pt "1 'PRODUCT"
|
||||
$ write pt "=prompt JCB LIBSSH2 for OpenVMS"
|
||||
$ write pt ""
|
||||
$ write pt "libssh2 is an open source client side library that aims to implement"
|
||||
$ write pt "the SSH protocol. This is the OpenVMS port of that library."
|
||||
$ write pt "Further information at https://libssh2.org/."
|
||||
$ write pt ""
|
||||
$ write pt "1 NEED_VMS83"
|
||||
$ write pt "=prompt OpenVMS 8.3 or later is not installed on your system."
|
||||
$ write pt "This product requires OpenVMS 8.3 or later to function."
|
||||
$ write pt ""
|
||||
$ write pt "1 NEED_SSL"
|
||||
$ write pt "=prompt HP SSL 1.3 or later is not installed on your system."
|
||||
$ write pt "This product requires HP SSL 1.3 or later to function."
|
||||
$ write pt ""
|
||||
$ write pt "1 RELEASE_NOTES"
|
||||
$ write pt "=prompt Release notes and the libssh2 help library are available in [gnv.usr.share.doc.libssh2] directory."
|
||||
$ write pt ""
|
||||
$ write pt "1 EXAMPLE"
|
||||
$ write pt "=prompt Do you want the libssh2 C programming examples ? "
|
||||
$ write pt "The libssh2 coding examples will be available in backup saveset "
|
||||
$ write pt "[gnv.usr.share.doc.libssh2.examples]libssh2_examples_''versionname'.bck"
|
||||
$ write pt ""
|
||||
$ write pt "1 SOURCE"
|
||||
$ write pt "=prompt Do you want the complete libssh2 source tree ? "
|
||||
$ write pt "The libssh2 source tree will be available in backup saveset "
|
||||
$ write pt "[gnv.common_src]libssh2_''versionname'''datename'_src.bck"
|
||||
$close pt
|
||||
$exit
|
||||
$ endsubroutine
|
||||
345
vendor/libssh2/vms/libssh2_make_lib.dcl
vendored
Normal file
345
vendor/libssh2/vms/libssh2_make_lib.dcl
vendored
Normal file
@@ -0,0 +1,345 @@
|
||||
$!
|
||||
$!
|
||||
$ olddir = f$environment("default")
|
||||
$ on control_y then goto YExit
|
||||
$!
|
||||
$ gosub Init
|
||||
$ if .not. init_status then goto YExit
|
||||
$!
|
||||
$ call CompileAll
|
||||
$ call BuildTransferVectors
|
||||
$ call LinkShared
|
||||
$!
|
||||
$ call Cleanup
|
||||
$!
|
||||
$YExit:
|
||||
$ set noon
|
||||
$!
|
||||
$ deassign srcdir
|
||||
$ if f$search("objdir:*.*;*") .nes. "" then delete objdir:*.*;*
|
||||
$ deassign objdir
|
||||
$ delete library_objects.dir;*
|
||||
$!
|
||||
$ set default 'olddir'
|
||||
$exit
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$Init:
|
||||
$!
|
||||
$!
|
||||
$ init_status = 1
|
||||
$ 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'
|
||||
$!
|
||||
$ objdir = "[.library_objects]"
|
||||
$ srcdir = "[-.src]"
|
||||
$!
|
||||
$ objdirfile = objdir - "[." - "]" + ".dir"
|
||||
$ if f$search( objdirfile ) .eqs. ""
|
||||
$ then
|
||||
$ create/directory 'objdir'
|
||||
$ endif
|
||||
$!
|
||||
$ define objdir 'objdir'
|
||||
$ define srcdir 'srcdir'
|
||||
$!
|
||||
$ 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")) ; -
|
||||
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")) ; -
|
||||
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")) ; -
|
||||
define/job patchv &l )
|
||||
$!
|
||||
$ majorv = f$trnlnm("majorv")
|
||||
$ minorv = f$integer(f$trnlnm("minorv"))
|
||||
$ patchv = f$integer( f$trnlnm("patchv"))
|
||||
$!
|
||||
$ OLBONLY = "FALSE"
|
||||
$ if p1 .eqs. "OLBONLY"
|
||||
$ then
|
||||
$ OLBONLY = "TRUE"
|
||||
$ endif
|
||||
$!
|
||||
$ deassign/job majorv
|
||||
$ deassign/job minorv
|
||||
$ deassign/job patchv
|
||||
$!
|
||||
$return
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$Cleanup: subroutine
|
||||
$!
|
||||
$ set noon
|
||||
$ purge *.opt
|
||||
$ purge *.olb
|
||||
$ purge *.exe
|
||||
$!
|
||||
$exit 1
|
||||
$endsubroutine
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$LinkShared: subroutine
|
||||
$!
|
||||
$!
|
||||
$!
|
||||
$ cversion = f$fao("!3ZL",minorv) + f$fao("!3ZL",patchv)
|
||||
$!
|
||||
$! General linking options in link_libssh2_version...opt
|
||||
$! Vectors in link_libssh2_vectors...opt
|
||||
$!
|
||||
$ open/write uitv link_libssh2_version_'majorv'_'minorv'_'patchv'.opt
|
||||
$ write uitv "GSMATCH=LEQUAL,''majorv',''cversion'"
|
||||
$ write uitv "IDENTIFICATION=""LIBSSH2 ''majorv'.''minorv'.''patchv'"""
|
||||
$ 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, -
|
||||
link_libssh2_vectors_'majorv'_'minorv'_'patchv'.opt/opt
|
||||
$!
|
||||
$exit
|
||||
$endsubroutine
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$CompileAll: subroutine
|
||||
$!
|
||||
$ set noon
|
||||
$!
|
||||
$ if f$search("objdir:*.obj;*") .nes ""
|
||||
$ then
|
||||
$ delete objdir:*.obj;*
|
||||
$ endif
|
||||
$ if f$search("[.cxx_repository]cxx$demangler_db.;") .nes ""
|
||||
$ then
|
||||
$ delete [.cxx_repository]cxx$demangler_db.;*
|
||||
$ endif
|
||||
$!
|
||||
$! Compile all .c files in [-.src], first as_is
|
||||
$! and then as default all uppercase names
|
||||
$! and add the resulting object to object libraries
|
||||
$! libssh2_up.olb and libssh2_as_is.olb.
|
||||
$!
|
||||
$ case = 0
|
||||
$ if OLBONLY then case = 1
|
||||
$CaseLoop:
|
||||
$!
|
||||
$ 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
|
||||
$ rename [.cxx_repository]cxx$demangler_db.; *.lowercase
|
||||
$ purge [.cxx_repository]cxx$demangler_db.lowercase
|
||||
$ endif
|
||||
$!
|
||||
$ cc_flags = "/names=(shortened)''cc_define'"
|
||||
$ objlib = "libssh2_up.olb"
|
||||
$ endif
|
||||
$!
|
||||
$ if f$search("''objlib';*") .nes. "" then delete 'objlib';*
|
||||
$ library/create 'objlib'
|
||||
$!
|
||||
$Loop:
|
||||
$ this = f$search("srcdir:*.c;0")
|
||||
$ if this .eqs. "" then goto EndLoop
|
||||
$!
|
||||
$ what = f$parse( this,,,"name")
|
||||
$!
|
||||
$ call CompileAndAdd
|
||||
$!
|
||||
$ goto Loop
|
||||
$EndLoop:
|
||||
$ case = case + 1
|
||||
$ 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
|
||||
$ rename [.cxx_repository]cxx$demangler_db.; *.uppercase
|
||||
$ purge [.cxx_repository]cxx$demangler_db.uppercase
|
||||
$ endif
|
||||
$!
|
||||
$ 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
|
||||
$! for the shared image.
|
||||
$! 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"
|
||||
$ gosub GetShortened
|
||||
$!
|
||||
$ inputfile = "[.cxx_repository]cxx$demangler_db.uppercase"
|
||||
$ gosub GetShortened
|
||||
$!
|
||||
$exit
|
||||
$!
|
||||
$GetShortened:
|
||||
$!
|
||||
$ open/read s 'inputfile'
|
||||
$ namecount = 0
|
||||
$ReadLoop:
|
||||
$!
|
||||
$ read/end=endreadloop s regel
|
||||
$!
|
||||
$ shortname = f$element(0,"$",regel) + "$"
|
||||
$ longname = f$element(1,"$",regel)
|
||||
$!
|
||||
$ symvalue = ""
|
||||
$!
|
||||
$ if shortname .eqs. f$edit(shortname,"upcase")
|
||||
$ then
|
||||
$! this is an uppercase shortname, add it
|
||||
$ symname = "u$''longname'"
|
||||
$ symvalue = "''shortname'"
|
||||
$ low$'shortname' == l$'longname'
|
||||
$!
|
||||
$ delete/symbol l$'longname'
|
||||
$!
|
||||
$ else
|
||||
$! this is an lowercase shortname
|
||||
$ symname = "l$''longname'"
|
||||
$ symvalue = "''shortname'"
|
||||
$ 'symname' = "''symvalue'"
|
||||
$ endif
|
||||
$!
|
||||
$ namecount = namecount + 1
|
||||
$!
|
||||
$ goto ReadLoop
|
||||
$EndReadLoop:
|
||||
$!
|
||||
$close s
|
||||
$return
|
||||
$!
|
||||
$endsubroutine
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$CompileAndAdd: subroutine
|
||||
$!
|
||||
$ on error then goto End
|
||||
$!
|
||||
$ cc /warn=disable=longextern/lis=objdir:/show=all 'cc_include' 'cc_flags'/object=objdir:'what'.obj srcdir:'what'.c
|
||||
$ library/insert 'objlib' objdir:'what'.obj
|
||||
$!
|
||||
$End:
|
||||
$exit
|
||||
$endsubroutine
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
$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
|
||||
$! with an alternative in mixed case.
|
||||
$! For shortened names, use the low$* symbols
|
||||
$! to avoid being fooled by the sort.
|
||||
$!
|
||||
$ thislib = "libssh2.olb"
|
||||
$ library/lis=libu.'thisid'/names libssh2.olb
|
||||
$ library/lis=lib_asisu.'thisid'/names libssh2_asis.olb
|
||||
$!
|
||||
$! 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)
|
||||
$ sort lib_asisu.'thisid' lib_asis.'thisid'/spec=sys$input
|
||||
/COLLATING_SEQUENCE=(SEQUENCE= ("A" - "Z","0"-"9","_"), FOLD)
|
||||
$!
|
||||
$ open/read in lib.'thisid'
|
||||
$ open/read inasis lib_asis.'thisid'
|
||||
$ open/write uit link_libssh2_vectors_'majorv'_'minorv'_'patchv'.opt
|
||||
$!
|
||||
$ write uit "CASE_SENSITIVE=YES"
|
||||
$ write uit "SYMBOL_VECTOR= ( -"
|
||||
$!
|
||||
$ mode = 0
|
||||
$ uitregel = ""
|
||||
$!
|
||||
$ReadLoop:
|
||||
$!
|
||||
$ read/end=ReadAsis in regel
|
||||
$ReadAsis:
|
||||
$ read/end=EndReadLoop inasis asisregel
|
||||
$!
|
||||
$ regel = f$edit( regel, "trim,compress" )
|
||||
$ asisregel = f$edit( asisregel, "trim,compress" )
|
||||
$!
|
||||
$ if f$element(0," ",regel) .eqs. "Module" .or. -
|
||||
f$extract(0,1,regel) .eqs. "_" .or. -
|
||||
f$element(1," ",regel) .nes. " " .or. -
|
||||
regel .eqs. ""
|
||||
$ then
|
||||
$ goto ReadLoop
|
||||
$ endif
|
||||
$!
|
||||
$ if uitregel .nes. "" .and. mode .eq. 1
|
||||
$ then
|
||||
$ write uit "''uitregel'=PROCEDURE, -"
|
||||
$ write uit "''uitasis'/''uitregel'=PROCEDURE, -"
|
||||
$!
|
||||
$ uitregel = ""
|
||||
$ uitasis = ""
|
||||
$ endif
|
||||
$!
|
||||
$ uitregel = regel
|
||||
$ if f$type( low$'uitregel' ) .nes. ""
|
||||
$ then
|
||||
$ uitasis = low$'uitregel'
|
||||
$ delete/symbol/global low$'uitregel'
|
||||
$ else
|
||||
$ uitasis = asisregel
|
||||
$ endif
|
||||
$!
|
||||
$ 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)"
|
||||
$ endif
|
||||
$!
|
||||
$ write uit "CASE_SENSITIVE=NO"
|
||||
$!
|
||||
$ close in
|
||||
$ close inasis
|
||||
$ close uit
|
||||
$!
|
||||
$ delete lib*.'thisid';*
|
||||
$!
|
||||
$exit
|
||||
$endsubroutine
|
||||
$!
|
||||
$!---------------------------------------------------------------------
|
||||
$!
|
||||
564
vendor/libssh2/vms/man2help.c
vendored
Normal file
564
vendor/libssh2/vms/man2help.c
vendored
Normal file
@@ -0,0 +1,564 @@
|
||||
/* Copyright (C) The libssh2 project and its contributors.
|
||||
*
|
||||
* SPDX-License-Identifier: BSD-3-Clause
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
#include <errno.h>
|
||||
|
||||
#include <starlet.h>
|
||||
#include <lib$routines.h>
|
||||
#include <ssdef.h>
|
||||
#include <descrip.h>
|
||||
#include <rms.h>
|
||||
|
||||
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];
|
||||
} pfn, *pfnPtr;
|
||||
|
||||
/*----------------------------------------------------------*/
|
||||
|
||||
fpcopy(char *output, char *input, int len)
|
||||
{
|
||||
char *is, *os;
|
||||
int i;
|
||||
|
||||
if(len) {
|
||||
for(is = input, os = output, i = 0; i < len; ++i, ++is, ++os) {
|
||||
*os = *is;
|
||||
}
|
||||
*os = 0;
|
||||
}
|
||||
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)
|
||||
{
|
||||
pfnPtr pf;
|
||||
int status;
|
||||
char ipart[6][256], *i, *p;
|
||||
|
||||
pf = calloc(1, sizeof(pfn));
|
||||
|
||||
pf->dfab = cc$rms_fab;
|
||||
pf->drab = cc$rms_rab;
|
||||
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$b_fns = 0;
|
||||
pf->dfab.fab$w_ifi = 0;
|
||||
|
||||
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_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);
|
||||
if(!(status&1)) {
|
||||
free(pf);
|
||||
return status;
|
||||
}
|
||||
|
||||
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[5], pf->dnam.naml$l_long_ver,
|
||||
pf->dnam.naml$l_long_ver_size);
|
||||
|
||||
for(i = ipart[whatpart], p = part; *i; ++i, ++p) {
|
||||
if(p == part) {
|
||||
*p = toupper(*i);
|
||||
}
|
||||
else {
|
||||
*p = tolower(*i);
|
||||
}
|
||||
}
|
||||
*p = 0;
|
||||
|
||||
free(pf);
|
||||
return 1;
|
||||
}
|
||||
/*----------------------------------------------------------*/
|
||||
|
||||
int find_file(char *filename, char *gevonden, int *findex)
|
||||
{
|
||||
int status;
|
||||
struct dsc$descriptor gevondend;
|
||||
struct dsc$descriptor filespec;
|
||||
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$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$a_pointer = gevonden_file;
|
||||
|
||||
status = lib$find_file(&filespec, &gevondend, findex, 0, 0, 0, 0);
|
||||
|
||||
if((status & 1) == 1) {
|
||||
/* !checksrc! disable BANNEDFUNC 1 */ /* FIXME */
|
||||
strcpy(gevonden, strtok(gevonden_file, " "));
|
||||
}
|
||||
else {
|
||||
gevonden[0] = 0;
|
||||
}
|
||||
|
||||
return status;
|
||||
}
|
||||
|
||||
|
||||
/*--------------------------------------------*/
|
||||
|
||||
manPtr addman(manPtr *manroot, char *filename)
|
||||
{
|
||||
manPtr m, f;
|
||||
|
||||
m = calloc(1, sizeof(man));
|
||||
if(!m)
|
||||
return NULL;
|
||||
|
||||
m->filename = strdup(filename);
|
||||
|
||||
if(!*manroot) {
|
||||
*manroot = m;
|
||||
}
|
||||
else {
|
||||
for(f = *manroot; f->next; f = f->next)
|
||||
;
|
||||
f->next = m;
|
||||
}
|
||||
return m;
|
||||
}
|
||||
|
||||
/*--------------------------------------------*/
|
||||
void freeman(manPtr *manroot)
|
||||
{
|
||||
manPtr m, n;
|
||||
|
||||
for(m = *manroot; m; m = n) {
|
||||
free(m->filename);
|
||||
n = m->next;
|
||||
free(m);
|
||||
}
|
||||
*manroot = NULL;
|
||||
}
|
||||
|
||||
/*--------------------------------------------*/
|
||||
|
||||
int listofmans(char *filespec, manPtr *manroot)
|
||||
{
|
||||
manPtr r;
|
||||
int status;
|
||||
int ffindex = 0;
|
||||
char gevonden[NAM$C_MAXRSS + 1];
|
||||
|
||||
for(;;) {
|
||||
status = find_file(filespec, gevonden, &ffindex);
|
||||
|
||||
if((status&1)) {
|
||||
r = addman(manroot, gevonden);
|
||||
if(!r)
|
||||
return 2;
|
||||
}
|
||||
else {
|
||||
if(!(status&1))
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
lib$find_file_end(&ffindex);
|
||||
if(status == RMS$_NMF)
|
||||
status = 1;
|
||||
|
||||
return status;
|
||||
}
|
||||
|
||||
/*--------------------------------------------*/
|
||||
|
||||
int convertman(char *filespec, FILE *hlp, int base_level, int add_parentheses)
|
||||
{
|
||||
FILE *man;
|
||||
char *in, *uit;
|
||||
char *m, *h;
|
||||
size_t len, thislen, maxlen = 50000;
|
||||
int bol, mode, return_status = 1;
|
||||
char subjectname[NAM$C_MAXRSS + 1];
|
||||
|
||||
in = calloc(1, maxlen + 1);
|
||||
uit = calloc(1, maxlen + 1);
|
||||
|
||||
if(!in || !uit)
|
||||
return 2;
|
||||
|
||||
man = fopen(filespec, "r");
|
||||
if(!man)
|
||||
return vaxc$errno;
|
||||
|
||||
for(len = 0; !feof(man) && len < maxlen; len += thislen) {
|
||||
thislen = fread(in + len, 1, maxlen - len, man);
|
||||
}
|
||||
|
||||
fclose(man);
|
||||
|
||||
m = in;
|
||||
h = uit;
|
||||
|
||||
*(m + len) = 0;
|
||||
|
||||
for(mode = 0, bol = 1; *m; ++m) {
|
||||
|
||||
switch(mode) {
|
||||
case 0:
|
||||
switch(*m) {
|
||||
case '.':
|
||||
if(bol) {
|
||||
mode = 1;
|
||||
}
|
||||
else {
|
||||
*h = *m;
|
||||
++h;
|
||||
}
|
||||
break;
|
||||
case '\\':
|
||||
if(bol) {
|
||||
*h = ' '; ++h;
|
||||
*h = ' '; ++h;
|
||||
}
|
||||
mode = 2;
|
||||
break;
|
||||
default:
|
||||
if(bol) {
|
||||
*h = ' '; ++h;
|
||||
*h = ' '; ++h;
|
||||
}
|
||||
*h = *m;
|
||||
++h;
|
||||
break;
|
||||
}
|
||||
break;
|
||||
|
||||
case 1: /* after . at bol */
|
||||
switch(*m) {
|
||||
case '\\':
|
||||
while(*m != '\n' && *m != '\r' && *m)
|
||||
++m;
|
||||
mode = 0;
|
||||
break;
|
||||
case 'B':
|
||||
++m;
|
||||
*h = ' '; ++h;
|
||||
mode = 0;
|
||||
break;
|
||||
case 'I':
|
||||
/* remove preceding eol */
|
||||
if(*(m + 1) != 'P') {
|
||||
--h;
|
||||
while((*h == '\n' || *h == '\r') && h > uit)
|
||||
--h;
|
||||
++h;
|
||||
}
|
||||
|
||||
/* skip .Ix */
|
||||
for(; *m != ' ' && *m != '\n' && *m != '\r'; ++m)
|
||||
;
|
||||
|
||||
/* copy line up to EOL */
|
||||
|
||||
for(; *m != '\n' && *m != '\r' && *m; ++m, ++h)
|
||||
*h = *m;
|
||||
|
||||
/* if line ends in ., this is an EOL */
|
||||
|
||||
if(*(h-1) == '.') {
|
||||
--h;
|
||||
--m;
|
||||
}
|
||||
else {
|
||||
/* if line does not end in ., skip EOL in source */
|
||||
|
||||
if(*(m + 1) == '\n' || *(m + 1) == '\r')
|
||||
++m;
|
||||
}
|
||||
mode = 0;
|
||||
break;
|
||||
case 'S':
|
||||
if(*(m + 1) == 'H') {
|
||||
*h = '\n';++h;
|
||||
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;
|
||||
mode = 0;
|
||||
}
|
||||
else {
|
||||
++m;
|
||||
|
||||
/* write help level, and flag it */
|
||||
|
||||
*h = '0' + base_level + 1; ++h;
|
||||
return_status |= 2;
|
||||
|
||||
*h = ' '; ++h;
|
||||
|
||||
/* skip H (or whatever after S) and blank */
|
||||
++m; ++m;
|
||||
|
||||
for(; *m != '\n' && *m != '\r' && *m; ++m, ++h) {
|
||||
|
||||
/* write help label in lowercase, skip quotes */
|
||||
/* fill blanks with underscores */
|
||||
|
||||
if(*m != '\"') {
|
||||
*h = tolower(*m);
|
||||
if(*h == ' ')
|
||||
*h = '_';
|
||||
}
|
||||
else {
|
||||
--h;
|
||||
}
|
||||
}
|
||||
|
||||
/* Add a linefeed or two */
|
||||
|
||||
*h = *m; ++h;
|
||||
*h = *m; ++h;
|
||||
|
||||
mode = 0;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case 'T':
|
||||
if(*(m + 1) == 'H') {
|
||||
*h = '0' + base_level; ++h;
|
||||
return_status |= 2;
|
||||
*h = ' '; ++h;
|
||||
for(m = m + 3; *m != ' ' && *m; ++m, ++h) {
|
||||
*h = *m;
|
||||
}
|
||||
if(add_parentheses) {
|
||||
*h = '('; ++h;
|
||||
*h = ')'; ++h;
|
||||
}
|
||||
while(*m != '\n' && *m != '\r' && *m)
|
||||
++m;
|
||||
mode = 0;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
++m;
|
||||
mode = 0;
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case 2: /* after \ skip two characters or print the backslash */
|
||||
switch(*m) {
|
||||
case '\\':
|
||||
*h = *m;
|
||||
++h;
|
||||
mode = 0;
|
||||
break;
|
||||
default:
|
||||
++m;
|
||||
mode = 0;
|
||||
break;
|
||||
}
|
||||
break;
|
||||
} /* end switch mode */
|
||||
|
||||
bol = 0;
|
||||
if(*m == '\n' || *m == '\r')
|
||||
bol = 1;
|
||||
|
||||
} /* end for mode */
|
||||
|
||||
*h = 0;
|
||||
|
||||
|
||||
if(return_status & 2) {
|
||||
fprintf(hlp, "%s\n\n", uit);
|
||||
}
|
||||
else {
|
||||
fnamepart(filespec, subjectname, 3);
|
||||
if(*subjectname) {
|
||||
fprintf(hlp, "%d %s\n\n%s\n\n", base_level, subjectname, uit);
|
||||
}
|
||||
else {
|
||||
/* No filename (as is the case with a logical),
|
||||
use first word as subject name */
|
||||
char *n, *s;
|
||||
|
||||
for(n = in; isspace(*n); ++n)
|
||||
;
|
||||
for(s = subjectname; !(isspace(*n)); ++n, ++s)
|
||||
*s = *n;
|
||||
*s = 0;
|
||||
|
||||
fprintf(hlp, "%d %s\n\n%s\n\n", base_level, subjectname, uit);
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
printf("read %d from %s, written %d to helpfile, return_status = %d\n",
|
||||
len, filespec, strlen(uit), return_status);
|
||||
*/
|
||||
|
||||
free(m);
|
||||
free(h);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
/*--------------------------------------------*/
|
||||
|
||||
int convertmans(char *filespec, char *hlpfilename, int base_level, int append,
|
||||
int add_parentheses)
|
||||
{
|
||||
int status = 1;
|
||||
manPtr manroot = NULL, m;
|
||||
FILE *hlp;
|
||||
|
||||
if(append) {
|
||||
hlp = fopen(hlpfilename, "a+");
|
||||
}
|
||||
else {
|
||||
hlp = fopen(hlpfilename, "w");
|
||||
}
|
||||
|
||||
if(!hlp)
|
||||
return vaxc$errno;
|
||||
|
||||
status = listofmans(filespec, &manroot);
|
||||
if(!(status&1))
|
||||
return status;
|
||||
|
||||
for(m = manroot; m; m = m->next) {
|
||||
status = convertman(m->filename, hlp, base_level, add_parentheses);
|
||||
if(!(status&1)) {
|
||||
fprintf(stderr, "Convertman of %s went wrong\n", m->filename);
|
||||
break;
|
||||
}
|
||||
}
|
||||
freeman(&manroot);
|
||||
return status;
|
||||
}
|
||||
|
||||
/*--------------------------------------------*/
|
||||
void print_help(void)
|
||||
{
|
||||
fprintf(stderr,
|
||||
"Usage: [-a] [-b x] convertman <manfilespec> <helptextfile>\n"
|
||||
" -a append <manfilespec> to <helptextfile>\n"
|
||||
" -b <baselevel> if no headers found create one "
|
||||
"with level <baselevel>\n"
|
||||
" and the filename as title.\n"
|
||||
" -p add parentheses() to baselevel help items.\n");
|
||||
}
|
||||
/*--------------------------------------------*/
|
||||
|
||||
main(int argc, char **argv)
|
||||
{
|
||||
int status;
|
||||
int i, j;
|
||||
int append, base_level, basechange, add_parentheses;
|
||||
char *manfile = NULL;
|
||||
char *helpfile = NULL;
|
||||
|
||||
if(argc < 3) {
|
||||
print_help();
|
||||
return 1;
|
||||
}
|
||||
|
||||
append = 0;
|
||||
base_level = 1;
|
||||
basechange = 0;
|
||||
add_parentheses = 0;
|
||||
|
||||
for(i = 1; i < argc; ++i) {
|
||||
if(argv[i][0] == '-') {
|
||||
for(j = 1; argv[i][j]; ++j) {
|
||||
switch(argv[i][j]) {
|
||||
case 'a':
|
||||
append = 1;
|
||||
break;
|
||||
case 'b':
|
||||
if((i + 1) < argc) {
|
||||
base_level = atoi(argv[i + 1]);
|
||||
basechange = 1;
|
||||
}
|
||||
break;
|
||||
case 'p':
|
||||
add_parentheses = 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
if(basechange) {
|
||||
basechange = 0;
|
||||
i = i + 1;
|
||||
}
|
||||
}
|
||||
else {
|
||||
if(!manfile) {
|
||||
manfile = strdup(argv[i]);
|
||||
}
|
||||
else if(!helpfile) {
|
||||
helpfile = strdup(argv[i]);
|
||||
}
|
||||
else {
|
||||
fprintf(stderr, "Unrecognized parameter : %s\n", argv[i]);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/*
|
||||
fprintf(stderr,"manfile: %s, helpfile: %s, append: %d, base_level : %d\n",
|
||||
manfile, helpfile, append, base_level);
|
||||
*/
|
||||
|
||||
status = convertmans(manfile, helpfile, base_level, append,
|
||||
add_parentheses);
|
||||
|
||||
free(manfile);
|
||||
free(helpfile);
|
||||
|
||||
return status;
|
||||
}
|
||||
314
vendor/libssh2/vms/readme.vms
vendored
Normal file
314
vendor/libssh2/vms/readme.vms
vendored
Normal file
@@ -0,0 +1,314 @@
|
||||
*These are the porting notes to OpenVMS, as of 7 April 2010
|
||||
by Jose Baars. This file will be installed as
|
||||
libssh2*.release_notes by the product install kit.
|
||||
|
||||
|
||||
LIBSSH2
|
||||
-------
|
||||
|
||||
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
|
||||
---
|
||||
|
||||
The library uses the GNV prefix, on advise of the kind supporter
|
||||
of the GNV project, John Malmberg.
|
||||
|
||||
Installing the PCSI kit
|
||||
=======================
|
||||
|
||||
Prerequisites
|
||||
-------------
|
||||
- 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.
|
||||
See the remarks at prerequisites for building the kit
|
||||
- HP OPENSSL V1.3 minimal.
|
||||
See the remarks at prerequisites for building the kit
|
||||
- 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
|
||||
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
|
||||
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 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
|
||||
|
||||
optional:
|
||||
[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
|
||||
SYS$COMMON:[GNV...].
|
||||
|
||||
You can override this destination by specifying the destination
|
||||
directory after /DESTINATION= on the product install command line.
|
||||
This is particularly of use when installing the library on a cluster
|
||||
without a common system disk.
|
||||
|
||||
Please ignore the following warnings, as the kit is not signed :
|
||||
|
||||
%PCSI-I-CANNOTVAL, cannot validate dev:[dir]JCB-AXPVMS-LIBSSH2-V0102-05D20100402-1.PCSI
|
||||
-PCSI-I-NOTSIGNED, product kit is not signed and therefore has no manifest file
|
||||
|
||||
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'.
|
||||
|
||||
and 'YES' to either or both the following questions:
|
||||
|
||||
Do you want the libssh2 C programming examples ? [NO]
|
||||
|
||||
Do you want the complete libssh2 source tree ? [NO]
|
||||
|
||||
|
||||
Post installation tasks
|
||||
-----------------------
|
||||
|
||||
Although we will try to maintain upward compatibility of libssh2,
|
||||
this can not be guaranteed by the libssh2 project itself for OpenVMS,
|
||||
nor eternally by us.
|
||||
|
||||
To use libssh2 effectively, you will have to define a system logical
|
||||
to point to the shared image. If you are willing to take the gamble,
|
||||
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 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
|
||||
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.
|
||||
|
||||
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
|
||||
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 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
|
||||
|
||||
backup/sel=*.c device:[gnv.usr.share.doc.libssh2.examples]libssh2_examples-x_y_z.bck -
|
||||
[]
|
||||
|
||||
They can by compiled and linked by these commands ( provided you have defined
|
||||
the gnv$libssh2 logical) :
|
||||
|
||||
$ cc/include=dev:[gnv.usr.include.libssh2] xxx.c/names=shortened
|
||||
$ link/opt=sys$input: xxx.obj
|
||||
gnv$libssh2/share
|
||||
|
||||
|
||||
|
||||
|
||||
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
|
||||
link against that. To check out new features, statically linking against
|
||||
the object library is probably more practical, to avoid compatibility
|
||||
issues.
|
||||
|
||||
|
||||
Prerequisites
|
||||
-------------
|
||||
|
||||
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
|
||||
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
|
||||
#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
|
||||
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
|
||||
the DEC/Compac/HP-C compiler on VMS.
|
||||
|
||||
- An ODS-5 disk. With tweaking you'll get it to work on an ODS-2
|
||||
disk, but it is unpractical to do so.
|
||||
|
||||
- A version of VMSTAR that understands ODS-5 disks and extended
|
||||
filenames. Look here:
|
||||
http://ftp.process.com/ftp/vms-freeware/fileserv/vmstar.zip
|
||||
|
||||
- gunzip, available for instance at Steven M Schweda's website:
|
||||
http://antinode.info/ftp/gzip/gzip-1_3_12b_vms/gzip-1_3_12b_vms.zip
|
||||
|
||||
Optional:
|
||||
|
||||
- curl, to be found at https://curl.haxx.se
|
||||
You might want to use curl to download the libssh2 kit directly
|
||||
to you VMS machine. Interestingly, sftp in curl is implemented using
|
||||
libssh2, soon to be expected on VMS as well, hopefully.
|
||||
|
||||
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
|
||||
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):
|
||||
|
||||
$ libssh2_version = "1.2.6"
|
||||
$!
|
||||
$ proxy_line = " ""-U"" ""''proxy_userpass'"" ""-x"" ""''proxy_hostport'"" "
|
||||
$!
|
||||
$ currentday = f$cvtime(,,"date") - "-" - "-"
|
||||
$!
|
||||
$ set def mydev:[mydir.libssh2]
|
||||
$!
|
||||
$ if f$search("libssh2-''libssh2_version'-''currentday'.tar.gz") .nes. ""
|
||||
$ then
|
||||
$ delete libssh2-'libssh2_version'-'currentday'.tar.gz;*
|
||||
$ endif
|
||||
$!
|
||||
$ curl 'proxy_line' "https://libssh2.org/snapshots/libssh2-''libssh2_version'-''currentday'.tar.gz" -
|
||||
-o libssh2-'libssh2_version'-'currentday'.tar.gz
|
||||
$!
|
||||
$!
|
||||
$ 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'
|
||||
|
||||
Downloading a stable build will need you to get rid of the currentday.
|
||||
|
||||
After the download, you should have a directory tree with a toplevel
|
||||
directory called [libssh2-x.y.z-yyyymmdd].
|
||||
One of the subdirectories is called vms.
|
||||
|
||||
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
|
||||
[gnv.common_src].
|
||||
|
||||
By restoring this backup saveset, you end up with the same
|
||||
set of files as by the direct download from libssh2.org.
|
||||
|
||||
|
||||
Building the library
|
||||
--------------------
|
||||
|
||||
To avoid all kinds of misunderstandings caused by firewalls thinking that
|
||||
a .com file must be an MS-DOS executable, all command procedures are called
|
||||
.dcl.
|
||||
|
||||
Go to the vms subdirectory in the download tree, and issue the following
|
||||
command:
|
||||
|
||||
@libssh2_make_lib.dcl
|
||||
|
||||
This should produce libssh2_x_y_z.exe in this same vms directory.
|
||||
|
||||
|
||||
|
||||
Building the examples
|
||||
---------------------
|
||||
|
||||
A number of examples are also part of the full libssh2 delivery.
|
||||
You can compile and link them either against the object library
|
||||
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
|
||||
build procedure:
|
||||
|
||||
@libssh2_make_example.dcl
|
||||
|
||||
or for instance
|
||||
|
||||
@libssh2_make_example.dcl sftp
|
||||
|
||||
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:
|
||||
|
||||
@libssh2_make_example.dcl sftp "SHARED"
|
||||
|
||||
The procedure defines a process logical gnv$libssh2 pointing to the shared
|
||||
image library in the directory, which obviously will not survive a logout.
|
||||
|
||||
|
||||
Building the help library
|
||||
-------------------------
|
||||
|
||||
The man pages can be converted to a VMS help library by issuing
|
||||
this command :
|
||||
|
||||
@libssh2_make_help.dcl
|
||||
|
||||
It uses a simple but fairly effective c program man2help.c
|
||||
to achieve this.
|
||||
|
||||
Building a PCSI kit
|
||||
-------------------
|
||||
|
||||
When you have built the shared library and the help library,
|
||||
you can build a PCSI kit by issuing this command:
|
||||
|
||||
@libssh2_make_kit.dcl
|
||||
Reference in New Issue
Block a user