![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to uae-control.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [UNIX Amiga Emulator] / uae / amiga / source|
Return to uae-control.c CVS log | Up to [UNIX Amiga Emulator] / uae / amiga / source |
1.1 root 1: /***********************************************************
2: * UAE - The U*nix Amiga Emulator *
3: * *
4: * UAE-Control -- Emulator Control from Inside Emulation *
5: * (c) 1996 Tauno Taipaleenmaki <[email protected]> *
6: * *
7: * Version 0.1 *
8: * *
9: * Requires V36 or higher. Compiled with SAS/C 6.5 *
10: * *
11: * People with KS1.3 or lower should use the command line *
12: * version "uaectrl" *
13: ***********************************************************/
14: #include <proto/exec.h>
15: #include <proto/intuition.h>
16: #include <proto/gadtools.h>
17: #include <proto/graphics.h>
18: #include <proto/reqtools.h>
19: #include <intuition/intuition.h>
20: #include <libraries/reqtools.h>
21: #include <stdio.h>
22: #include <string.h>
23: #include "uae-control.h"
24: #include "uae_pragmas.h"
25:
26: #define MAX_DRV_NAME 20
27:
28: struct Library *ReqBase;
29: struct Library *UaeBase;
30: struct Window *window;
31: struct Screen *scr;
32: struct Gadget *glist;
33: APTR VisInfo;
34:
35: struct UAE_CONFIG config;
36:
37: struct TextAttr topaz8 = {
38: ( STRPTR )"topaz.font", 8, 0x00, 0x01 };
39:
40: struct NewWindow newwindow = {
41: 20,20, 400,160, 0,1,
42: IDCMP_CLOSEWINDOW | BUTTONIDCMP | CYCLEIDCMP | INTEGERIDCMP,
43: WFLG_DRAGBAR | WFLG_CLOSEGADGET | WFLG_ACTIVATE | WFLG_DEPTHGADGET,
44: NULL,NULL,(UBYTE *)"UAE-Control v0.1",NULL,NULL,
45: 0,0,0,0, CUSTOMSCREEN
46: };
47:
48: int setup_window(void);
49: void quit_program(int error, char *text);
50: void print_drive_status(void);
51:
52: /************************************
53: * Main program *
54: ************************************/
55: int main()
56: {
57: int quit = 0,i;
58: struct IntuiMessage *msg;
59: struct Gadget *button;
60: struct StringInfo *strinfo;
61: char buf[257];
62: UWORD koodi, msgID;
63: ULONG classi, number;
64: APTR address;
65: ULONG CycleTags[3];
66:
67: CycleTags[0] = GTCY_Active;
68: CycleTags[1] = (ULONG)&number;
69: CycleTags[2] = TAG_DONE;
70:
71: ReqBase = OpenLibrary("reqtools.library",0);
72: if (!ReqBase) {
73: quit_program(1, "Reqtools.library needed!");
74: return(1);
75: }
76: UaeBase = OpenLibrary("uae.library",0);
77: if (!UaeBase) {
78: UaeBase = OpenLibrary("uae.library",0);
79: if (!UaeBase) {
80: quit_program(1, "Emulator not running or uae.library not installed.\n");
81: return(1);
82: }
83: }
84: /* Read UAE configuration */
85: i = GetUaeConfig( &config );
86:
87: i = setup_window();
88: if (i == 0) {
89: quit_program(1, "Cannot setup a window!");
90: return(1);
91: }
92: while( quit == 0 ) {
93: WaitPort(window->UserPort);
94: while( msg = (struct IntuiMessage *)GT_GetIMsg(window->UserPort))
95: {
96: classi = msg->Class;
97: koodi = msg->Code;
98: address = msg->IAddress;
99: if (classi == IDCMP_GADGETUP) {
100: msgID = ((struct Gadget *)msg->IAddress)->GadgetID;
101: button = (struct Gadget *)msg->IAddress;
102: if (button->SpecialInfo) {
103: strinfo = (struct StringInfo *)button->SpecialInfo;
104: }
105: } else
106: msgID = msg->Code;
107:
108: GT_ReplyIMsg((struct IntuiMessage *)msg);
109:
110: switch( classi ) {
111: case IDCMP_CLOSEWINDOW:
112: quit = 1;
113: break;
114: case IDCMP_GADGETUP:
115: switch( msgID ) {
116: case GAD_EXITEMU:
117: ExitEmu();
118: break;
119: case GAD_EJECT_DF0:
120: EjectDisk(0);
121: GetUaeConfig( &config );
122: print_drive_status();
123: break;
124: case GAD_EJECT_DF1:
125: EjectDisk(1);
126: GetUaeConfig( &config );
127: print_drive_status();
128: break;
129: case GAD_EJECT_DF2:
130: EjectDisk(2);
131: GetUaeConfig( &config );
132: print_drive_status();
133: break;
134: case GAD_EJECT_DF3:
135: EjectDisk(3);
136: GetUaeConfig( &config );
137: print_drive_status();
138: break;
139: case GAD_SOUND:
140: if (config.do_output_sound) {
141: DisableSound();
142: } else {
143: EnableSound();
144: }
145: GetUaeConfig( &config );
146: break;
147: case GAD_JOYSTICK:
148: if (config.do_fake_joystick) {
149: DisableJoystick();
150: } else {
151: EnableJoystick();
152: }
153: GetUaeConfig( &config );
154: break;
155: case GAD_FRAMERATE:
156: SetFrameRate( strinfo->LongInt );
157: GetUaeConfig( &config );
158: break;
159: case GAD_INSERT_DF0:
160: i = rtGetStringA( (UBYTE *)&buf, 255,
161: (UBYTE *)"Disk-file name:",
162: NULL, TAG_DONE);
163: if (i) {
164: InsertDisk((UBYTE *)&buf, 0);
165: GetUaeConfig( &config );
166: print_drive_status();
167: }
168: break;
169: case GAD_INSERT_DF1:
170: i = rtGetStringA( (UBYTE *)&buf, 255,
171: (UBYTE *)"Disk-file name:",
172: NULL, TAG_DONE);
173: if (i) {
174: InsertDisk((UBYTE *)&buf, 1);
175: GetUaeConfig( &config );
176: print_drive_status();
177: }
178: break;
179: case GAD_INSERT_DF2:
180: i = rtGetStringA( (UBYTE *)&buf, 255,
181: (UBYTE *)"Disk-file name:",
182: NULL, TAG_DONE);
183: if (i) {
184: InsertDisk((UBYTE *)&buf, 2);
185: GetUaeConfig( &config );
186: print_drive_status();
187: }
188: break;
189: case GAD_INSERT_DF3:
190: i = rtGetStringA( (UBYTE *)&buf, 255,
191: (UBYTE *)"Disk-file name:",
192: NULL, TAG_DONE);
193: if (i) {
194: InsertDisk((UBYTE *)&buf, 3);
195: GetUaeConfig( &config );
196: print_drive_status();
197: }
198: break;
199: case GAD_LANGUAGE:
200: number = config.keyboard;
201: number++;
202: if (number == 5)
203: number = 0;
204: ChangeLanguage( number );
205: GetUaeConfig( &config );
206: break;
207: case GAD_RESET:
208: ColdReboot();
209: break;
210: case GAD_DEBUG:
211: DebugFunc();
212: break;
213: default:
214: break;
215: }
216: break;
217: default:
218: break;
219: }
220: }
221: }
222: quit_program(0, "");
223: return(0);
224: }
225:
226: /******************************************
227: * Quits the program *
228: ******************************************/
229: void quit_program(int error, char *text)
230: {
231: if (error > 0) {
232: printf(" UAE-Control v0.1\n");
233: printf(" (c)1996 Tauno Taipaleenmaki\n\n");
234: printf(" ERROR: %s\n", text);
235: }
236: if (scr)
237: UnlockPubScreen(NULL, scr);
238: if (window)
239: CloseWindow( window );
240: if (VisInfo)
241: FreeVisualInfo( VisInfo );
242: if (glist)
243: FreeGadgets( glist );
244: if (ReqBase)
245: CloseLibrary( ReqBase );
246: if (UaeBase)
247: CloseLibrary( UaeBase );
248: }
249:
250:
251: /******************************************
252: * Opens up the window & sets the gadgets *
253: ******************************************/
254: int setup_window(void)
255: {
256: struct Gadget *g;
257: struct NewGadget ng;
258: UWORD offy;
259: ULONG drawtags[20];
260:
261: static const char *keyb_langs[] =
262: {
263: "US",
264: "DE",
265: "SE",
266: "FR",
267: "IT",
268: NULL
269: };
270:
271: scr = LockPubScreen(NULL);
272: if (!scr)
273: return(0);
274:
275: VisInfo = GetVisualInfo( scr, TAG_DONE );
276: if (!VisInfo)
277: return(0);
278:
279: offy = scr->WBorTop + scr->RastPort.TxHeight + 1;
280:
281: /* Create buttons */
282: g = CreateContext( &glist );
283: if (!g)
284: return(0);
285:
286: ng.ng_TextAttr = &topaz8;
287: ng.ng_VisualInfo = VisInfo;
288: ng.ng_Flags = PLACETEXT_IN;
289: ng.ng_LeftEdge = 10; ng.ng_TopEdge = offy + 10;
290: ng.ng_Width = 90; ng.ng_Height = 15;
291: ng.ng_GadgetText = (UBYTE *)"Hard reset";
292: ng.ng_GadgetID = GAD_RESET;
293: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
294:
295: ng.ng_LeftEdge = 102; ng.ng_Width = 50;
296: ng.ng_GadgetText = (UBYTE *)"Debug";
297: ng.ng_GadgetID = GAD_DEBUG;
298: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
299:
300: ng.ng_LeftEdge = 153; ng.ng_Width = 50;
301: ng.ng_GadgetText = (UBYTE *)"Exit";
302: ng.ng_GadgetID = GAD_EXITEMU;
303: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
304:
305: /* Eject buttons */
306: ng.ng_LeftEdge = 250; ng.ng_Width = 70;
307: ng.ng_TopEdge = offy + 35;
308: ng.ng_GadgetID = GAD_EJECT_DF0;
309: ng.ng_GadgetText = (UBYTE *)"Eject";
310: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
311: ng.ng_TopEdge = offy + 53;
312: ng.ng_GadgetID = GAD_EJECT_DF1;
313: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
314: ng.ng_TopEdge = offy + 70;
315: ng.ng_GadgetID = GAD_EJECT_DF2;
316: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
317: ng.ng_TopEdge = offy + 87;
318: ng.ng_GadgetID = GAD_EJECT_DF3;
319: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
320:
321: /* Insert buttons */
322: ng.ng_LeftEdge = 321; ng.ng_TopEdge = offy + 35;
323: ng.ng_GadgetID = GAD_INSERT_DF0;
324: ng.ng_GadgetText = (UBYTE *)"Insert";
325: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
326: ng.ng_TopEdge = offy + 53;
327: ng.ng_GadgetID = GAD_INSERT_DF1;
328: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
329: ng.ng_TopEdge = offy + 70;
330: ng.ng_GadgetID = GAD_INSERT_DF2;
331: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
332: ng.ng_TopEdge = offy + 87;
333: ng.ng_GadgetID = GAD_INSERT_DF3;
334: g = CreateGadgetA(BUTTON_KIND, g, &ng, TAG_DONE);
335:
336: /* Sound & Joystick buttons */
337:
338: ng.ng_LeftEdge = 120;
339: ng.ng_TopEdge = 120;
340: ng.ng_GadgetID = GAD_SOUND;
341: ng.ng_GadgetText = (UBYTE *)"Sound";
342: ng.ng_Flags = PLACETEXT_LEFT;
343: if (config.do_output_sound) {
344: drawtags[0] = GTCB_Checked;
345: drawtags[1] = 1;
346: drawtags[2] = TAG_DONE;
347: } else {
348: drawtags[0] = TAG_DONE;
349: }
350: g = CreateGadgetA(CHECKBOX_KIND, g, &ng,(struct TagItem *)&drawtags);
351:
352: ng.ng_TopEdge = 135;
353: ng.ng_GadgetID = GAD_JOYSTICK;
354: ng.ng_GadgetText = (UBYTE *)"Fake Joystick";
355: if (config.do_fake_joystick) {
356: drawtags[0] = GTCB_Checked;
357: drawtags[1] = 1;
358: drawtags[2] = TAG_DONE;
359: } else {
360: drawtags[0] = TAG_DONE;
361: }
362: g = CreateGadgetA(CHECKBOX_KIND, g, &ng, (struct TagItem *)&drawtags);
363:
364: ng.ng_TopEdge = 130;
365: ng.ng_LeftEdge = 160;
366: ng.ng_GadgetID = GAD_LANGUAGE;
367: ng.ng_GadgetText = (UBYTE *)"Language";
368: ng.ng_Flags = PLACETEXT_ABOVE;
369: drawtags[0] = GTCY_Labels;
370: drawtags[1] = (ULONG)keyb_langs;
371: drawtags[2] = GTCY_Active;
372: drawtags[3] = config.keyboard;
373: drawtags[4] = TAG_DONE;
374: g = CreateGadgetA(CYCLE_KIND, g, &ng, (struct TagItem *)&drawtags);
375:
376: ng.ng_TopEdge = 130;
377: ng.ng_LeftEdge = 250;
378: ng.ng_GadgetID = GAD_FRAMERATE;
379: ng.ng_GadgetText = (UBYTE *)"Framerate";
380: ng.ng_Flags = PLACETEXT_ABOVE;
381: drawtags[0] = GTIN_Number;
382: drawtags[1] = config.framerate;
383: drawtags[2] = TAG_DONE;
384: g = CreateGadgetA(INTEGER_KIND, g, &ng, (struct TagItem *)&drawtags);
385:
386: newwindow.FirstGadget = glist;
387: newwindow.Screen = scr; /* Store screen ptr */
388: window = OpenWindow( &newwindow );
389: if (!window)
390: return(0);
391:
392: /* Draw texts etc... */
393: Move(window->RPort, 10, offy + 35 + 10);
394: Text(window->RPort, (UBYTE *)"DF0:", 4);
395: Move(window->RPort, 10, offy + 53 + 10);
396: Text(window->RPort, (UBYTE *)"DF1:", 4);
397: Move(window->RPort, 10, offy + 70 + 10);
398: Text(window->RPort, (UBYTE *)"DF2:", 4);
399: Move(window->RPort, 10, offy + 87 + 10);
400: Text(window->RPort, (UBYTE *)"DF3:", 4);
401:
402: drawtags[0] = (GT_VisualInfo);
403: drawtags[1] = (ULONG)VisInfo;
404: drawtags[2] = GTBB_Recessed;
405: drawtags[3] = 1;
406: drawtags[4] = TAG_DONE;
407:
408: DrawBevelBoxA(window->RPort, 5, offy + 34,
409: 390, 17, (struct TagItem *)&drawtags);
410: DrawBevelBoxA(window->RPort, 5, offy + 52,
411: 390, 17, (struct TagItem *)&drawtags);
412: DrawBevelBoxA(window->RPort, 5, offy + 69,
413: 390, 17, (struct TagItem *)&drawtags);
414: DrawBevelBoxA(window->RPort, 5, offy + 86,
415: 390, 17, (struct TagItem *)&drawtags);
416:
417: print_drive_status();
418:
419: UnlockPubScreen(NULL, scr);
420: return(1);
421: }
422:
423: void print_drive_status(void)
424: {
425: char empty[80];
426: int len;
427: UWORD offy = scr->WBorTop + scr->RastPort.TxHeight + 1;
428:
429: for(len=0;len<80;len++)
430: empty[len] = ' ';
431: empty[79] = '\0';
432:
433: Move(window->RPort, 42, offy + 45);
434: if (config.disk_in_df0) {
435: len = strlen( config.df0_name );
436: if (len > MAX_DRV_NAME)
437: len = MAX_DRV_NAME;
438: Text(window->RPort, (UBYTE *)config.df0_name, len);
439: } else {
440: Text(window->RPort, (UBYTE *)empty, MAX_DRV_NAME);
441: }
442:
443: Move(window->RPort, 42, offy + 63);
444: if (config.disk_in_df1) {
445: len = strlen( config.df1_name );
446: if (len > MAX_DRV_NAME)
447: len = MAX_DRV_NAME;
448: Text(window->RPort, (UBYTE *)config.df1_name, len);
449: } else {
450: Text(window->RPort, (UBYTE *)empty, MAX_DRV_NAME);
451: }
452:
453: Move(window->RPort, 42, offy + 80);
454: if (config.disk_in_df2) {
455: len = strlen( config.df2_name );
456: if (len > MAX_DRV_NAME)
457: len = MAX_DRV_NAME;
458: Text(window->RPort, (UBYTE *)config.df2_name, len);
459: } else {
460: Text(window->RPort, (UBYTE *)empty, MAX_DRV_NAME);
461: }
462:
463: Move(window->RPort, 42, offy + 97);
464: if (config.disk_in_df3) {
465: len = strlen( config.df3_name );
466: if (len > MAX_DRV_NAME)
467: len = MAX_DRV_NAME;
468: Text(window->RPort, (UBYTE *)config.df3_name, len);
469: } else {
470: Text(window->RPort, (UBYTE *)empty, MAX_DRV_NAME);
471: }
472: }
473:
474:
475:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.