Changed build system to Automake. Split Glk code off into a GTK widget.

[rodin/chimara.git] / src / model.c

diff --git a/src/model.c b/src/model.c
index 10bafb7b0cb0dec37b732a9652a0bab4b0124a89..8aaa20bba7f7268ce015024abe8007288c2ead13 100644 (file)
--- a/src/model.c
+++ b/src/model.c
@@ -2,6 +2,11 @@
 
 static winid_t mainwin = NULL;
 
+void sayit(void)
+{
+       fprintf(stderr, "I'm the interrupt handler!\n");
+}
+
 void glk_main(void)
 {
     /* Open the main window. */
@@ -12,17 +17,63 @@ void glk_main(void)
         return; 
     }
     
-    /* Set the current output stream to print to it. */
-    glk_set_window(mainwin);
-    
-    unsigned char buffer[255];
+       
+/*    char buffer[256];
     int i;
-    for(i = 0; i < 255; i++)
-       buffer[i] = glk_char_to_upper(i + 1);
+    for(i = 0; i < 256; i++)
+       buffer[i] = (char)glk_char_to_upper(i);
     
-    glk_put_string("Philip en Marijn zijn vet goed.\n");
-    glk_put_string(buffer);
+    frefid_t f = glk_fileref_create_temp(fileusage_BinaryMode, 0);
+    if(f) 
+    {
+    
+       strid_t s = glk_stream_open_file(f, 
+               filemode_ReadWrite, 0);
+       glk_stream_set_current(s);
+       
+       glk_put_char('X');
+       glk_put_string("Philip en Marijn zijn vet goed.\n");
+       glk_put_buffer(buffer, 256);
+
+       glk_stream_set_position(s, 0, seekmode_Start);
+       glk_set_window(mainwin);
+       glk_put_char( glk_get_char_stream(s) );
+       glk_put_char('\n');
+       g_printerr("Line read: %d\n", glk_get_line_stream(s, buffer, 256));
+       glk_put_string(buffer);
+       int count = glk_get_buffer_stream(s, buffer, 256);
+       g_printerr("Buffer read: %d\n", count);
+       glk_put_buffer(buffer, count);          
+       
+       stream_result_t result;
+       glk_stream_close(s, &result);
+       
+       g_printerr("Read count: %d\nWrite count: %d\n", result.readcount,
+               result.writecount);
+               glk_fileref_destroy(f);
+       }
+       */
+
+       glk_set_window(mainwin);
+
+       glk_set_interrupt_handler(&sayit);
 
+       gchar buffer[256];
+       event_t ev;
+       while(1) {
+               glk_put_string("prompt> ");
+               glk_request_line_event(mainwin, buffer, 256, 0);
+               glk_select(&ev);
+               switch(ev.type) {
+                       default:
+                               printf("Received event:\n");
+                               printf("Type: %d\n", ev.type);
+                               printf("Win: %d\n", glk_window_get_rock(ev.win));
+                               printf("Var1: %d\n", ev.val1);
+                               printf("Var2: %d\n", ev.val2);
+               }
+       }
+       
        /* Bye bye */
        glk_exit();
 }