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