1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
;;; version.scm -- Get information about versions.
;; Copyright (C) 2013-2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;
;; This file is a part of Guile-SSH.
;;
;; Guile-SSH is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; Guile-SSH is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with Guile-SSH. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This module provides functions that is used for getting information
;; about current versions.
;;
;; These methods are exported:
;;
;; get-libssh-version
;; get-library-version
;;
;; `get-libssh-version' returns libssh version as a string in the
;; follwing format:
;;
;; <version> ::= <major> "." <minor> "." <micro>
;;
;; For example, "0.5.2".
;;
;; `get-library-version' returns version of the Guile-SSH library
;; as a string.
;;; Code:
(define-module (ssh version)
#:use-module (ssh log)
#:export (get-libssh-version
get-library-version
get-crypto-library
zlib-support?
dsa-support?
;; Low-level procedures
%get-libssh-version))
(unless (getenv "GUILE_SSH_CROSS_COMPILING")
(load-extension "libguile-ssh" "init_version"))
(define (get-libssh-version)
"Get version of the libssh."
(car (string-split (%get-libssh-version) #\/)))
(define (get-crypto-library)
"Get cryptographic library name with which libssh was compiled. Possible
values are: 'openssl, 'gnutls"
(string->symbol (cadr (string-split (%get-libssh-version) #\/))))
(define (zlib-support?)
"Return #t if libssh was compiled wit zlib support, #f otherwise."
(let ((version (string-split (%get-libssh-version) #\/)))
(and (not (null? (cddr version)))
(string=? "zlib" (caddr version)))))
;;; version.scm ends here
|
