Add Glulxe and Git. They compile but don't work yet.
[rodin/chimara.git] / interpreters / git / git_unix.c
1 // $Id: git_unix.c,v 1.5 2004/01/25 18:44:51 iain Exp $
2
3 // unixstrt.c: Unix-specific code for Glulxe.
4 // Designed by Andrew Plotkin <erkyrath@eblong.com>
5 // http://www.eblong.com/zarf/glulx/index.html
6
7 #include "git.h"
8 #include <glk.h>
9 #include <glkstart.h> // This comes with the Glk library.
10
11 #ifdef USE_MMAP
12 #include <fcntl.h>
13 #include <sys/mman.h>
14 #include <sys/stat.h>
15 #include <errno.h>
16 #endif
17
18 // The only command-line argument is the filename.
19 glkunix_argumentlist_t glkunix_arguments[] =
20 {
21     { "", glkunix_arg_ValueFollows, "filename: The game file to load." },
22     { NULL, glkunix_arg_End, NULL }
23 };
24
25 #define CACHE_SIZE (256 * 1024L)
26 #define UNDO_SIZE (512 * 1024L)
27
28 void fatalError (const char * s)
29 {
30     fprintf (stderr, "*** fatal error: %s ***\n", s);
31     exit (1);
32 }
33
34 #ifdef USE_MMAP
35 // Fast loader that uses some fancy Unix features.
36
37 const char * gFilename = 0;
38
39 int glkunix_startup_code(glkunix_startup_t *data)
40 {
41     if (data->argc <= 1)
42     {
43         printf ("usage: git gamefile.ulx\n");
44         return 0;
45     }
46     gFilename = data->argv[1];
47     return 1;
48 }
49
50 void glk_main ()
51 {
52     int          file;
53     struct stat  info;
54     const char * ptr;
55     
56     file = open (gFilename, O_RDONLY);
57     if (file < 0)
58         goto error;
59
60     if (fstat (file, &info) != 0)
61         goto error;
62     
63     if (info.st_size < 256)
64     {
65         fprintf (stderr, "This is too small to be a glulx file.\n");
66         exit (1);
67     }
68
69     ptr = mmap (NULL, info.st_size, PROT_READ, MAP_PRIVATE, file, 0);
70     if (ptr == MAP_FAILED)
71         goto error;
72         
73     git (ptr, info.st_size, CACHE_SIZE, UNDO_SIZE);
74     munmap ((void*) ptr, info.st_size);
75     return;
76     
77 error:
78     perror ("git");
79     exit (errno);
80 }
81
82 #else
83 // Generic loader that should work anywhere.
84
85 strid_t gStream = 0;
86
87 int glkunix_startup_code(glkunix_startup_t *data)
88 {
89     if (data->argc <= 1)
90     {
91         printf ("usage: git gamefile.ulx\n");
92         return 0;
93     }
94     gStream = glkunix_stream_open_pathname ((char*) data->argv[1], 0, 0);
95     return 1;
96 }
97
98 void glk_main ()
99 {
100     if (gStream == NULL)
101         fatalError ("could not open game file");
102
103     gitWithStream (gStream, CACHE_SIZE, UNDO_SIZE);
104 }
105
106 #endif // USE_MMAP