![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xui.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [UNIX Amiga Emulator] / uae / src|
Return to xui.c CVS log | Up to [UNIX Amiga Emulator] / uae / src |
1.1 root 1: /*
2: * UAE - The Un*x Amiga Emulator
3: *
4: * Interface to the Tcl/Tk GUI
5: *
6: * Copyright 1996 Bernd Schmidt
7: */
8:
9: #include "sysconfig.h"
10: #include "sysdeps.h"
11: #include <signal.h>
12:
13: #include "config.h"
14: #include "options.h"
15: #include "memory.h"
16: #include "custom.h"
17: #include "newcpu.h"
18: #include "disk.h"
19: #include "gui.h"
20:
21: static int inpipe, outpipe;
22: static char *child_argv[4];
23: static char filename1[80];
24: static char filename2[80];
25: static int made_file = 0;
26: static struct stat stbuf;
27: static pid_t child_pid;
28: static int child_died = 0;
29:
30: int quit_program;
31:
32: static void sigchldhandler(int foo)
33: {
34: child_died = 1;
35: }
36:
37: int gui_init(void)
38: {
39: struct timeval tv;
40: int result;
41:
42: quit_program = 0;
43:
44: gettimeofday(&tv, NULL);
45: sprintf(filename1, "/tmp/uaea%d", tv.tv_sec * 1000 + tv.tv_usec / 1000);
46: result = mknod (filename1, 0600 | S_IFIFO, 0);
47: if (result < 0)
48: return result;
49: made_file = 1;
50:
51: sprintf(filename2, "/tmp/uaeb%d", tv.tv_sec * 1000 + tv.tv_usec / 1000);
52: result = mknod (filename2, 0600 | S_IFIFO, 0);
53: if (result < 0)
54: return result;
55: made_file = 2;
56:
57: inpipe = open (filename1, O_RDONLY|O_NONBLOCK);
58: if (inpipe < 0)
59: return inpipe;
60:
61: /* Why doesn't O_WRONLY work? */
62: outpipe = open (filename2, O_RDWR);
63: if (outpipe < 0)
64: return outpipe;
65:
66: fstat (inpipe, &stbuf);
67: child_pid = fork();
68: if (child_pid < 0)
69: return child_pid;
70: if (child_pid > 0) {
71: fd_set fs;
72: printf("Waiting for GUI process to start...\n");
73: FD_ZERO(&fs);
74: FD_SET(inpipe, &fs);
75: signal(SIGCHLD, sigchldhandler);
76: result = select(inpipe+1, &fs, NULL, NULL, NULL);
77: if (result < 0) {
78: kill(child_pid, SIGTERM);
79: return -1;
80: } else {
81: char buffer[20];
82: fstat (inpipe, &stbuf);
83: if (stbuf.st_size != strlen("Startup")+1) {
84: kill(child_pid, SIGTERM);
85: return -1;
86: }
87: read (inpipe, buffer, 8);
88: if (strncmp("Startup\n", buffer, 8) != 0) {
89: kill(child_pid, SIGTERM);
90: return -1;
91: }
92: }
93: if (made_file > 0)
94: unlink(filename1);
95: if (made_file > 1)
96: unlink(filename2);
97: made_file = 0;
98: printf("OK.\n");
99: return 0;
100: }
101: /* FIXME: how can I prevent that the child exits when I hit ^C in the
102: * shell window? */
103: child_argv[0] = "uae-ui.tk";
104: child_argv[1] = my_strdup(filename1);
105: child_argv[2] = my_strdup(filename2);
106: child_argv[3] = NULL;
107: execvp("uae-ui", child_argv);
108: /* Shouldn't get here */
109: exit(0);
110:
111: }
112:
113: void gui_exit(void)
114: {
115: if (made_file > 0)
116: unlink(filename1);
117: if (made_file > 1)
118: unlink(filename2);
119: if (inpipe >= 0)
120: close(inpipe);
121: if (outpipe >= 0)
122: close(outpipe);
123: if (child_pid)
124: kill(child_pid, SIGTERM);
125: }
126:
127: void gui_led(int led, int on)
128: {
129: char line[80];
130:
131: if (child_died || no_gui)
132: return;
133:
134: sprintf(line, "%s %d\n", led == 0 ? "power" : "driveled", on);
135: write(outpipe, line, strlen(line));
136: if (led > 0) {
137: sprintf(line, "%d\n", led-1);
138: write(outpipe, line, strlen (line));
139: }
140: }
141:
142: void gui_filename(int num, char *name)
143: {
144: char line[80];
145:
146: if (child_died || no_gui)
147: return;
148:
149: sprintf(line, "drivename\n");
150: write(outpipe, line, strlen(line));
151: sprintf(line, "%d\n", num);
152: write(outpipe, line, strlen(line));
153: sprintf(line, "%s\n", name);
154: write(outpipe, line, strlen(line));
155: }
156:
157: static void getline(char *p)
158: {
159: int cnt = 80;
160: char buf;
161: do {
162: read(inpipe, &buf, 1);
163: *p++ = buf;
164: } while (--cnt && buf != '\n');
165: *(p-1) = 0;
166: }
167:
168: void gui_handle_events(void)
169: {
170: char command[100];
171: off_t oldsize = stbuf.st_size;
172:
173: if (child_died || no_gui)
174: return;
175:
176: fstat (inpipe, &stbuf);
177: if (stbuf.st_size > oldsize) {
178: getline(command);
179: if (strcmp (command, "eject") == 0) {
180: int drive;
181: getline(command);
182: drive = atoi(command);
183: disk_eject (drive);
184: } else if (strcmp (command, "insert") == 0) {
185: int drive;
186: getline(command);
187: drive = atoi(command);
188: if (disk_empty(drive)) {
189: fd_set fs;
190: FD_ZERO(&fs);
191: FD_SET(inpipe, &fs);
192: write(outpipe, "ok\n", 3);
193: select(inpipe+1, &fs, NULL, NULL, NULL);
194: getline(command);
195: disk_insert (drive, command);
196: } else
197: write(outpipe, "no\n", 3);
198: } else if (strcmp (command, "debug") == 0) {
199: activate_debugger();
200: } else if (strcmp (command, "bye") == 0) {
201: broken_in = 1;
202: regs.spcflags |= SPCFLAG_BRK;
203: quit_program = 1;
204: } else if (strcmp (command, "reset") == 0) {
205: m68k_reset();
206: }
207:
208: }
209: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.