Implement border/noborder window flags
[projects/chimara/chimara.git] / tests / soundtest.c
1 #include <libchimara/glk.h>
2 #include <stdio.h>
3 #include <unistd.h>
4 #include <string.h>
5
6 void
7 glk_main(void)
8 {
9         if(!glk_gestalt(gestalt_Sound, 0)) {
10                 fprintf(stderr, "Sound not supported.\n");
11                 return;
12         }
13         if(!glk_gestalt(gestalt_SoundVolume, 0)) {
14                 fprintf(stderr, "Sound volume not supported.\n");
15                 return;
16         }
17         if(!glk_gestalt(gestalt_SoundNotify, 0)) {
18                 fprintf(stderr, "Sound notification not supported.\n");
19                 return;
20         }
21         
22         schanid_t sc = glk_schannel_create(0);
23         if(!sc) {
24                 fprintf(stderr, "Could not create sound channel.\n");
25                 return;
26         }
27
28         /* Open the main window. */
29     winid_t mainwin = glk_window_open(0, 0, 0, wintype_TextBuffer, 1);
30     if (!mainwin) {
31         /* It's possible that the main window failed to open. There's
32             nothing we can do without it, so exit. */
33         return;
34     }
35         glk_set_window(mainwin);
36         glk_put_string("Copy a sound file to the current directory and rename it "
37             "to SND3. Supported formats: AIFF, OGG, MOD, S3M, IT, XM. Type 'play' "
38             "to play it.\n");
39
40         char buffer[1024];
41         int len;
42         int finish = 0;
43         int repeat = 1;
44
45         event_t ev;
46         while(!finish) {
47                 glk_put_string("\nprompt> ");
48                 glk_request_line_event(mainwin, buffer, 1024, 0);
49                 glk_select(&ev);
50                 printf("Received event:\n");
51                 printf("Type: %d\n", ev.type);
52                 printf("Win: ");
53                 if(ev.win)
54                         printf( "%d\n", glk_window_get_rock(ev.win) );
55                 else
56                         printf("NULL\n");
57                 printf("Var1: %d\n", ev.val1);
58                 printf("Var2: %d\n", ev.val2);
59                 switch(ev.type) {
60                         case evtype_LineInput:
61                                 // Null-terminate string
62                                 len = ev.val1;
63                                 buffer[len] = '\0';
64
65                                 if(strcmp(buffer, "quit") == 0) {
66                                         glk_put_string("That's all, folks.\n");
67                                         finish = 1;
68                                 } else if(strcmp(buffer, "play") == 0) {
69                                         glk_put_string("Playing sound.\n");
70                                         if(!glk_schannel_play_ext(sc, 3, repeat, 1)) {
71                                                 fprintf(stderr, "Could not start sound channel.\n");
72                                                 finish = 1;
73                                         }
74                                 } else if(strcmp(buffer, "stop") == 0) {
75                                         glk_put_string("Stopping sound.\n");
76                                         glk_schannel_stop(sc);
77                                 } else if(strcmp(buffer, "repeat") == 0) {
78                                         glk_put_string("Setting repeat to ");
79                                         if(repeat == 1) {
80                                                 glk_put_string("TWICE.\n");
81                                                 repeat = 2;
82                                         } else if(repeat == 2) {
83                                                 glk_put_string("INFINITE.\n");
84                                                 repeat = -1;
85                                         } else if(repeat == -1) {
86                                                 glk_put_string("DON'T PLAY.\n");
87                                                 repeat = 0;
88                                         } else if(repeat == 0) {
89                                                 glk_put_string("ONCE.\n");
90                                                 repeat = 1;
91                                         }
92                                 } else if(strcmp(buffer, "help") == 0) {
93                                         glk_put_string("Type PLAY or REPEAT or STOP or QUIT.\n");
94                                 }
95                                 break;
96                         case evtype_SoundNotify:
97                                 glk_cancel_line_event(mainwin, NULL);
98                                 glk_put_string("\nGot sound notify event!\n");
99                                 break;
100                         default:
101                                 ;
102                 }
103         }
104
105         glk_schannel_stop(sc);
106         glk_schannel_destroy(sc);
107 }