3
;; Copyright (C) 2004 Brailcom, o.p.s.
5
;; Author: Milan Zamazal <pdm@brailcom.org>
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.
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
19
;; You should have received a copy of the GNU General Public License
20
;; along with this program; if not, write to the Free Software
21
;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
24
(load-extension "%%path%%/gssip" "init_gssip")
27
(define (ssip-open host port user client component)
28
(%ssip-open user client component))
30
(define (ssip-close connection)
31
(%ssip-close connection))
33
(define (ssip-say-text connection text priority)
34
(%ssip-say-text connection text priority))
36
(define (ssip-say-character connection character priority)
37
(%ssip-say-character connection character priority))
39
(define (ssip-say-key connection key priority)
40
(%ssip-say-key connection key priority))
42
(define (ssip-say-icon connection sound priority)
43
(%ssip-say-icon connection sound priority))
45
(define (ssip-stop connection id)
46
(%ssip-stop connection id))
48
(define (ssip-cancel connection id)
49
(%ssip-cancel connection id))
51
(define (ssip-pause connection id)
52
(%ssip-pause connection id))
54
(define (ssip-resume connection id)
55
(%ssip-resume connection id))
57
(define (ssip-set-language connection language)
58
(%ssip-set-language connection language))
60
(define (ssip-set-output-module connection output-module)
61
(%ssip-set-output-module connection output-module))
63
(define (ssip-set-rate connection rate)
64
(%ssip-set-rate connection rate))
66
(define (ssip-set-pitch connection pitch)
67
(%ssip-set-pitch connection pitch))
69
(define (ssip-set-volume connection volume)
70
(%ssip-set-volume connection volume))
72
(define (ssip-set-voice connection voice)
73
(%ssip-set-voice connection voice))
75
(define (ssip-set-punctuation-mode connection mode)
76
(%ssip-set-punctuation-mode connection mode))
78
(define (ssip-set-spelling-mode connection mode)
79
(%ssip-set-spelling-mode connection mode))
81
(define (ssip-block connection priority function)
82
(%ssip-say-text connection "" priority)
83
(%ssip-raw-command connection "BLOCK BEGIN")
84
(catch #t (function) (lambda (key . args)))
85
(%ssip-raw-command connection "BLOCK END"))