2001-11-13 Michael Meeks <michael@ximian.com>
[platform/upstream/at-spi2-core.git] / test / simple-at.c
1 /*
2  * AT-SPI - Assistive Technology Service Provider Interface
3  * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
4  *
5  * Copyright 2001 Sun Microsystems Inc.
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Library General Public
9  * License as published by the Free Software Foundation; either
10  * version 2 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Library General Public License for more details.
16  *
17  * You should have received a copy of the GNU Library General Public
18  * License along with this library; if not, write to the
19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20  * Boston, MA 02111-1307, USA.
21  */
22
23 #include <stdlib.h>
24 #include <sys/socket.h>
25 #include <sys/un.h>
26 #include "spi.h"
27
28 static void report_focus_event (void *fp);
29 static void report_button_press (void *fp);
30 static boolean report_key_event (void *fp);
31 static void check_property_change (void *fp);
32 static void get_environment_vars (void);
33
34 static int _festival_init ();
35 static void _festival_say (const char *text, const char *voice, boolean shutup);
36 static void _festival_write (const char *buff, int fd);
37
38 static boolean use_magnifier = FALSE;
39 static boolean use_festival = FALSE;
40 static boolean festival_chatty = FALSE;
41
42 static SpiAccessibleEventListener *focus_listener;
43 static SpiAccessibleEventListener *property_listener;
44 static SpiAccessibleEventListener *button_listener;
45 static KeystrokeListener *key_listener;
46
47 int
48 main(int argc, char **argv)
49 {
50   int i, j;
51   int n_desktops;
52   int n_apps;
53   SpiAccessible *desktop;
54   SpiAccessible *application;
55
56   if ((argc > 1) && (!strncmp(argv[1],"-h",2)))
57   {
58     printf ("Usage: simple-at\n");
59     printf ("\tEnvironment variables used:\n\t\tFESTIVAL\n\t\tMAGNIFIER\n\t\tFESTIVAL_CHATTY\n");
60     exit(0);
61   }
62
63   SPI_init();
64
65   focus_listener = createEventListener (report_focus_event);
66   property_listener = createEventListener (check_property_change); 
67   button_listener = createEventListener (report_button_press);
68   registerGlobalEventListener (focus_listener, "focus:");
69   registerGlobalEventListener (property_listener, "object:property-change:accessible-selection"); 
70   registerGlobalEventListener (button_listener, "Gtk:GtkWidget:button-press-event");
71   n_desktops = getDesktopCount ();
72
73   for (i=0; i<n_desktops; ++i)
74     {
75       desktop = getDesktop (i);
76       fprintf (stderr, "desktop %d name: %s\n", i, SpiAccessible_getName (desktop));
77       n_apps = SpiAccessible_getChildCount (desktop);
78       for (j=0; j<n_apps; ++j)
79         {
80           application = SpiAccessible_getChildAtIndex (desktop, j);
81           fprintf (stderr, "app %d name: %s\n", j, SpiAccessible_getName (application));
82           SpiAccessible_unref (application);
83         }
84     }
85
86   /* prepare the keyboard snoopers */
87   key_listener = createKeystrokeListener(report_key_event);
88   /* will listen only to Alt-key combinations */
89   registerKeystrokeListener(key_listener,
90                             (KeySet *) ALL_KEYS,
91                             KEYMASK_ALT,
92                             (unsigned long) ( KeyPress | KeyRelease),
93                             KEYSPI_LISTENER_CANCONSUME);
94
95   get_environment_vars();
96
97   SPI_event_main(TRUE);
98 }
99
100 static void
101 get_environment_vars()
102 {
103   if (getenv ("FESTIVAL"))
104   {
105     use_festival = TRUE;
106     if (getenv ("FESTIVAL_CHATTY"))
107     {
108       festival_chatty = TRUE;
109     }
110   }
111   if (getenv("MAGNIFIER"))
112   {
113     use_magnifier = TRUE;
114   }  
115 }
116
117 void
118 report_focussed_accessible (SpiAccessible *obj, boolean shutup_previous_speech)
119 {
120   if (use_festival)
121     {
122     if (festival_chatty)            
123       {
124         _festival_say (SpiAccessible_getRole (obj), "voice_don_diphone", shutup_previous_speech);
125       }
126       fprintf (stderr, "getting Name\n");
127       _festival_say (SpiAccessible_getName (obj), "voice_kal_diphone",
128                      shutup_previous_speech || festival_chatty);
129     }
130   
131   if (SpiAccessible_isSpiComponent (obj))
132     {
133       long x, y, width, height;
134       SpiAccessibleComponent *component = SpiAccessible_getComponent (obj);
135       SpiAccessibleComponent_getExtents (component, &x, &y, &width, &height,
136                                       COORD_TYPE_SCREEN);
137       fprintf (stderr, "Bounding box: (%ld, %ld) ; (%ld, %ld)\n",
138                x, y, x+width, y+height);
139       if (use_magnifier) {
140               magnifier_set_roi ((short) 0, x, y, width, height);
141       }
142     }
143   /* if this is a text object, speak the first sentence. */
144   if (SpiAccessible_isSpiText(obj))
145   {
146      SpiAccessibleText *spi_text_interface;
147      long start_offset, end_offset;
148      char *first_sentence = "empty";
149      spi_text_interface = SpiAccessible_getText (obj);
150      fprintf (stderr, "isSpiText...%p %p\n", spi_text_interface, (void *)*spi_text_interface);
151      first_sentence = SpiAccessibleText_getTextAtOffset (
152                spi_text_interface, (long) 0, SPI_TEXT_BOUNDARY_SENTENCE_START, &start_offset, &end_offset);
153      if (first_sentence) _festival_say(first_sentence, "voice_don_diphone", FALSE);
154      fprintf (stderr, "done reporting on focussed object\n");
155   }
156 }
157
158 void
159 report_focus_event (void *p)
160 {
161   SpiAccessibleEvent *ev = (SpiAccessibleEvent *) p;
162   fprintf (stderr, "%s event from %s\n", ev->type,
163            SpiAccessible_getName (&ev->source));
164   report_focussed_accessible (&ev->source, TRUE);
165 }
166
167 void
168 report_button_press (void *p)
169 {
170   SpiAccessibleEvent *ev = (SpiAccessibleEvent *) p;
171   fprintf (stderr, "%s event from %s\n", ev->type,
172            SpiAccessible_getName (&ev->source));
173 }
174
175
176 void
177 check_property_change (void *p)
178 {
179   SpiAccessibleEvent *ev = (SpiAccessibleEvent *) p;
180   SpiAccessibleSelection *selection = SpiAccessible_getSelection (&ev->source);
181   int n_selections;
182   int i;
183   if (selection)
184   {
185     n_selections = (int) SpiAccessibleSelection_getNSelectedChildren (selection);
186     fprintf (stderr, "(Property) %s event from %s, %d selected children\n", ev->type,
187            SpiAccessible_getName (&ev->source), n_selections);
188   /* for now, speak entire selection set */
189     for (i=0; i<n_selections; ++i)
190     {
191           SpiAccessible *obj = SpiAccessibleSelection_getSelectedChild (selection, (long) i);
192           g_return_if_fail (obj);
193           fprintf (stderr, "Child %d, name=%s\n", i, SpiAccessible_getName (obj));
194           report_focussed_accessible (obj, i==0);
195     }
196   }
197 }
198
199 static void
200 simple_at_exit()
201 {
202   deregisterGlobalEventListenerAll (focus_listener);
203   deregisterGlobalEventListenerAll (property_listener);
204   deregisterGlobalEventListenerAll (button_listener);
205   deregisterKeystrokeListener (key_listener, KEYMASK_ALT );
206   
207   SPI_exit ();
208 }
209
210 static boolean
211 is_command_key (KeyStroke *key)
212 {
213   switch (key->keyID)
214     {
215     case 'Q':
216     case 'q':
217             simple_at_exit(); 
218             return TRUE; /* not reached */
219     case 'M':
220     case 'm':
221             use_magnifier = ! use_magnifier;
222             return TRUE;
223     case 'F':
224     case 'f':
225             use_festival = ! use_festival;
226             return TRUE;
227     default:
228             return FALSE;
229     }
230 }
231
232 static boolean
233 report_key_event (void *p)
234 {
235   KeyStroke *key = (KeyStroke *) p;
236   fprintf(stderr, "KeyEvent %s%c (keycode %d)\n",
237           (key->modifiers & KEYMASK_ALT)?"Alt-":"",
238           ((key->modifiers & KEYMASK_SHIFT)^(key->modifiers & KEYMASK_SHIFTLOCK))?
239           (char) toupper((int) key->keyID) : (char) tolower((int) key->keyID),
240           (int) key->keycode);
241   return is_command_key (key);
242 }
243
244 static int _festival_init ()
245 {
246   int fd;
247   struct sockaddr_in name;
248   int tries = 2;
249
250   name.sin_family = AF_INET;
251   name.sin_port = htons (1314);
252   name.sin_addr.s_addr = htonl(INADDR_ANY);
253   fd = socket (PF_INET, SOCK_STREAM, 0);
254
255   while (connect(fd, (struct sockaddr *) &name, sizeof (name)) < 0) {
256     if (!tries--) {
257       perror ("connect");
258       return -1;
259     }
260   }
261
262   _festival_write ("(audio_mode'async)\n", fd);
263   _festival_write ("(Parameter.set 'Duration_Model 'Tree_ZScore)\n", fd);
264   _festival_write ("(Parameter.set 'Duration_Stretch 0.75)\n", fd);
265   return fd;
266 }
267
268 static void _festival_say (const char *text, const char *voice, boolean shutup)
269 {
270   static int fd = 0;
271   gchar *quoted;
272   gchar *p;
273   gchar prefix[50];
274   static gchar voice_spec[32];
275   
276   if (!fd)
277     {
278       fd = _festival_init ();
279     }
280
281   fprintf (stderr, "saying text: %s\n", text);
282   
283   quoted = g_malloc(64+strlen(text)*2);
284
285   sprintf (prefix, "(SaySpiText \"");
286
287   strncpy(quoted, prefix, 10);
288   p = quoted+strlen(prefix);
289   while (*text) {
290     if ( *text == '\\' || *text == '"' )
291       *p = '\\';
292     *p++ = *text++;
293   }
294   *p++ = '"';
295   *p++ = ')';
296   *p++ = '\n';
297   *p = 0;
298
299   if (shutup) _festival_write ("(audio_mode'shutup)\n", fd);
300   if (voice && (strncmp (voice, (char *) (voice_spec+1), strlen(voice))))
301     {
302       snprintf (voice_spec, 32, "(%s)\n", voice); 
303       _festival_write (voice_spec, fd);
304       _festival_write ("(Parameter.set 'Duration_Model 'Tree_ZScore)\n", fd);
305       _festival_write ("(Parameter.set 'Duration_Stretch 0.75)\n", fd);
306     }
307
308   _festival_write (quoted, fd);
309
310   g_free(quoted);
311 }
312
313 static void _festival_write (const gchar *command_string, int fd)
314 {
315   fprintf(stderr, command_string);
316   if (fd < 0) {
317     perror("socket");
318     return;
319   }
320   write(fd, command_string, strlen(command_string));
321 }
322