1;;; SSIP interface
2
3;; Copyright (C) 2004 Brailcom, o.p.s.
4
5;; Author: Milan Zamazal <pdm@brailcom.org>
6
7;; COPYRIGHT NOTICE
8
9;; This program is free software; you can redistribute it and/or modify
10;; it under the terms of the GNU General Public License as published by
11;; the Free Software Foundation; either version 2 of the License, or
12;; (at your option) any later version.
13
14;; This program is distributed in the hope that it will be useful, but
15;; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
16;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
17;; for more details.
18
19;; You should have received a copy of the GNU General Public License
20;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
21
22
23(load-extension "%%path%%/gssip" "init_gssip")
24
25
26(define (ssip-open host port user client component)
27  (%ssip-open user client component))
28
29(define (ssip-close connection)
30  (%ssip-close connection))
31
32(define (ssip-say-text connection text priority)
33  (%ssip-say-text connection text priority))
34
35(define (ssip-say-character connection character priority)
36  (%ssip-say-character connection character priority))
37
38(define (ssip-say-key connection key priority)
39  (%ssip-say-key connection key priority))
40
41(define (ssip-say-icon connection sound priority)
42  (%ssip-say-icon connection sound priority))
43
44(define (ssip-stop connection id)
45  (%ssip-stop connection id))
46
47(define (ssip-cancel connection id)
48  (%ssip-cancel connection id))
49
50(define (ssip-pause connection id)
51  (%ssip-pause connection id))
52
53(define (ssip-resume connection id)
54  (%ssip-resume connection id))
55
56(define (ssip-set-language connection language)
57  (%ssip-set-language connection language))
58
59(define (ssip-set-output-module connection output-module)
60  (%ssip-set-output-module connection output-module))
61
62(define (ssip-set-rate connection rate)
63  (%ssip-set-rate connection rate))
64
65(define (ssip-set-pitch connection pitch)
66  (%ssip-set-pitch connection pitch))
67
68(define (ssip-set-pitch-range connection pitch_range)
69  (%ssip-set-pitch-range connection pitch-range))
70
71(define (ssip-set-volume connection volume)
72  (%ssip-set-volume connection volume))
73
74(define (ssip-set-voice connection voice)
75  (%ssip-set-voice connection voice))
76
77(define (ssip-set-punctuation-mode connection mode)
78  (%ssip-set-punctuation-mode connection mode))
79
80(define (ssip-set-spelling-mode connection mode)
81  (%ssip-set-spelling-mode connection mode))
82
83(define (ssip-block connection priority function)
84  (%ssip-say-text connection "" priority)
85  (%ssip-raw-command connection "BLOCK BEGIN")
86  (catch #t (function) (lambda (key . args)))
87  (%ssip-raw-command connection "BLOCK END"))
88
89
90(provide 'gssip)
91