Frodo4/Src/main_Be.h

/*
 *  main_Be.h - Main program, BeOS specific stuff
 *
 *  Frodo (C) 1994-1997,2002 Christian Bauer
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include <AppKit.h>
#include <StorageKit.h>
#include <Path.h>
#include <InterfaceKit.h>

#include "Version.h"


// Global variables
bool FromShell;
BEntry AppDirectory;    
BBitmap *AboutBitmap;
const BRect AboutFrame = BRect(0, 0, 383, 99);


/*
 *  Create application object and start it
 */

int main(int argc, char **argv)
{       
        Frodo *the_app;

        srand(real_time_clock());
        FromShell = (argc != 0);        // !! This doesn't work...

        the_app = new Frodo();
        if (the_app != NULL) {
                the_app->Run();
                delete the_app;
        }
        return 0;
}


/*
 *  Constructor: Initialize member variables
 */

Frodo::Frodo() : BApplication(APP_SIGNATURE), this_messenger(this)
{
        TheC64 = NULL;
        AboutBitmap = NULL;
        strcpy(prefs_path, "/boot/home/config/settings/Frodo_settings");
        prefs_showing = false;

        // Create file panels
        open_panel = new BFilePanel(B_OPEN_PANEL, &this_messenger, NULL, 0, false, new BMessage(MSG_OPEN_SNAPSHOT_RETURNED));
        open_panel->Window()->SetTitle("Frodo: Load snapshot");
        save_panel = new BFilePanel(B_SAVE_PANEL, &this_messenger, NULL, 0, false, new BMessage(MSG_SAVE_SNAPSHOT_RETURNED));
        save_panel->Window()->SetTitle("Frodo: Save snapshot");
}


/*
 *  Process command line arguments
 */

void Frodo::ArgvReceived(int32 argc, char **argv)
{
        if (argc == 2) {
                strncpy(prefs_path, argv[1], 1023);
                prefs_path[1023] = 0;
        }
}


/*
 *  Process Browser arguments
 */

void Frodo::RefsReceived(BMessage *message)
{
        // Set preferences path unless prefs editor is open or C64 is running
        if (!prefs_showing && !TheC64) {
                entry_ref the_ref;
                BEntry the_entry;

                if (message->FindRef("refs", &the_ref) == B_NO_ERROR)
                        if (the_entry.SetTo(&the_ref) == B_NO_ERROR)
                                if (the_entry.IsFile()) {
                                        BPath the_path;
                                        the_entry.GetPath(&the_path);
                                        strncpy(prefs_path, the_path.Path(), 1023);
                                        prefs_path[1023] = 0;
                                }
        }
}


/*
 *  Arguments processed, prepare emulation and show preferences editor window
 */

void Frodo::ReadyToRun(void)
{
        // Find application directory and cwd to it
        app_info the_info;
        GetAppInfo(&the_info);
        BEntry the_file(&the_info.ref);
        the_file.GetParent(&AppDirectory);
        BPath the_path;
        AppDirectory.GetPath(&the_path);
        strncpy(AppDirPath, the_path.Path(), 1023);
        AppDirPath[1023] = 0;
        chdir(AppDirPath);

        // Set up "about" window bitmap
        AboutBitmap = new BBitmap(AboutFrame, B_COLOR_8_BIT);
        FILE *logofile = fopen("Frodo Logo", "rb");
        if (logofile != NULL) {
                fread(AboutBitmap->Bits(), 384*100, 1, logofile);
                fclose(logofile);
        }

        // Load preferences
        ThePrefs.Load(prefs_path);

        // Show preferences editor (sends MSG_STARTUP on close)
        prefs_showing = true;
        ThePrefs.ShowEditor(true, prefs_path);
}


/*
 *  Handle incoming messages
 */

void Frodo::MessageReceived(BMessage *msg)
{
        switch (msg->what) {
                case MSG_STARTUP: // Start the emulation

                        // Preferences editor is not longer on screen
                        prefs_showing = false;

                        // Create everything
                        TheC64 = new C64;

                        // Load ROMs
                        if (!load_rom_files()) {
                                PostMessage(B_QUIT_REQUESTED);
                                return;
                        }

                        // Run the 6510
                        TheC64->Run();
                        break;

                case MSG_PREFS: // Show preferences editor
                        if (TheC64 != NULL && !prefs_showing) {
                                TheC64->Pause();
                                TheC64->TheDisplay->Pause();

                                Prefs *prefs = new Prefs(ThePrefs);
                                prefs_showing = true;
                                prefs->ShowEditor(false, prefs_path);   // Sends MSG_PREFS_DONE on close
                        }
                        break;

                case MSG_PREFS_DONE: // Preferences editor closed
                        Prefs *prefs;
                        msg->FindPointer("prefs", &prefs);
                        if (!msg->FindBool("canceled")) {
                                TheC64->NewPrefs(prefs);
                                ThePrefs = *prefs;
                        }
                        delete prefs;
                        prefs_showing = false;

                        TheC64->TheDisplay->Resume();
                        TheC64->Resume();
                        break;

                case MSG_RESET: // Reset C64
                        if (TheC64 != NULL)
                                TheC64->Reset();
                        break;

                case MSG_NMI:   // NMI
                        if (TheC64 != NULL)
                                TheC64->NMI();
                        break;

                case MSG_SAM:   // Invoke SAM
                        if (TheC64 != NULL && !prefs_showing && FromShell) {
                                TheC64->Pause();
                                TheC64->TheDisplay->Pause();
                                SAM(TheC64);
                                TheC64->TheDisplay->Resume();
                                TheC64->Resume();
                        }
                        break;

                case MSG_NEXTDISK:      // Insert next disk in drive 8
                        if (TheC64 != NULL && !prefs_showing && strlen(ThePrefs.DrivePath[0]) > 4) {
                                char str[256];
                                strcpy(str, ThePrefs.DrivePath[0]);
                                char *p = str + strlen(str) - 5;

                                // If path matches "*.?64", increment character before the '.'
                                if (p[1] == '.' && p[3] == '6' && p[4] == '4') {
                                        p[0]++;

                                        // If no such file exists, set character before the '.' to '1', 'a' or 'A'
                                        FILE *file;
                                        if ((file = fopen(str, "rb")) == NULL) {
                                                if (isdigit(p[0]))
                                                        p[0] = '1';
                                                else if (isupper(p[0]))
                                                        p[0] = 'A';
                                                else
                                                        p[0] = 'a';
                                        } else
                                                fclose(file);

                                        // Set new prefs
                                        TheC64->Pause();
                                        Prefs *prefs = new Prefs(ThePrefs);
                                        strcpy(prefs->DrivePath[0], str);
                                        TheC64->NewPrefs(prefs);
                                        ThePrefs = *prefs;
                                        delete prefs;
                                        TheC64->Resume();
                                }
                        }
                        break;

                case MSG_TOGGLE_1541:   // Toggle processor-level 1541 emulation
                        if (TheC64 != NULL && !prefs_showing) {
                                TheC64->Pause();
                                Prefs *prefs = new Prefs(ThePrefs);
                                prefs->Emul1541Proc = !prefs->Emul1541Proc;
                                TheC64->NewPrefs(prefs);
                                ThePrefs = *prefs;
                                delete prefs;
                                TheC64->Resume();
                        }
                        break;

                case MSG_OPEN_SNAPSHOT:
                        if (TheC64 != NULL && !prefs_showing)
                                open_panel->Show();
                        break;

                case MSG_SAVE_SNAPSHOT:
                        if (TheC64 != NULL && !prefs_showing)
                                save_panel->Show();
                        break;

                case MSG_OPEN_SNAPSHOT_RETURNED:
                        if (TheC64 != NULL && !prefs_showing) {
                                entry_ref the_ref;
                                BEntry the_entry;
                                if (msg->FindRef("refs", &the_ref) == B_NO_ERROR)
                                        if (the_entry.SetTo(&the_ref) == B_NO_ERROR)
                                                if (the_entry.IsFile()) {
                                                        char path[1024];
                                                        BPath the_path;
                                                        the_entry.GetPath(&the_path);
                                                        strncpy(path, the_path.Path(), 1023);
                                                        path[1023] = 0;
                                                        TheC64->Pause();
                                                        TheC64->LoadSnapshot(path);
                                                        TheC64->Resume();
                                                }
                        }
                        break;

                case MSG_SAVE_SNAPSHOT_RETURNED:
                        if (TheC64 != NULL && !prefs_showing) {
                                entry_ref the_ref;
                                BEntry the_entry;
                                if (msg->FindRef("directory", &the_ref) == B_NO_ERROR)
                                        if (the_entry.SetTo(&the_ref) == B_NO_ERROR) {
                                                char path[1024];
                                                BPath the_path;
                                                the_entry.GetPath(&the_path);
                                                strncpy(path, the_path.Path(), 1023);
                                                strncat(path, "/", 1023);
                                                strncat(path, msg->FindString("name"), 1023);
                                                path[1023] = 0;
                                                TheC64->Pause();
                                                TheC64->SaveSnapshot(path);
                                                TheC64->Resume();
                                        }
                        }
                        break;

                default:
                        BApplication::MessageReceived(msg);
        }
}


/*
 *  Quit requested (either by menu or by closing the C64 display window)
 */

bool Frodo::QuitRequested(void)
{
        // Stop emulation
        if (TheC64) {
                TheC64->Quit();
                delete TheC64;
        }

        delete AboutBitmap;
        delete open_panel;
        delete save_panel;

        return BApplication::QuitRequested();
}


/*
 *  Display "about" window
 */

class AboutView : public BView {
public:
        AboutView() : BView(AboutFrame, "", B_FOLLOW_NONE, B_WILL_DRAW) {}

        virtual void AttachedToWindow(void)
        {
                SetHighColor(0, 0, 0);
        }

        virtual void Draw(BRect update)
        {
                DrawBitmap(AboutBitmap, update, update);

                SetFont(be_bold_font);
                SetDrawingMode(B_OP_OVER);
                MovePenTo(204, 20);
                DrawString(VERSION_STRING);

                SetFont(be_plain_font);
                MovePenTo(204, 40);
                DrawString("by Christian Bauer");
                MovePenTo(204, 52);
                DrawString("<cbauer@iphcip1.physik.uni-mainz.de>");
                MovePenTo(204, 75);
                DrawString(B_UTF8_COPYRIGHT " Copyright 1994-1997");
                MovePenTo(204, 87);
                DrawString("Freely distributable.");
        }

        virtual void MouseDown(BPoint point)
        {
                Window()->PostMessage(B_QUIT_REQUESTED);
        }
};

class AboutWindow : public BWindow {
public:
        AboutWindow() : BWindow(AboutFrame, NULL, B_BORDERED_WINDOW, B_NOT_RESIZABLE | B_NOT_ZOOMABLE | B_WILL_ACCEPT_FIRST_CLICK)
        {
                Lock();
                MoveTo(100, 100);
                AboutView *view = new AboutView;
                AddChild(view);
                view->MakeFocus();
                Unlock();
                Show();
        }
};

void Frodo::AboutRequested(void)
{
        new AboutWindow();
}
Revision:	1.1
Committed:	2003-07-01T17:33:50Z (21 years, 4 months ago) by cebix
Content type:	text/plain
Branch:	MAIN
Log Message:	imported files
#	User	Rev	Content
1	cebix	1.1	/*
2			* main_Be.h - Main program, BeOS specific stuff
3			*
4			* Frodo (C) 1994-1997,2002 Christian Bauer
5			*
6			* This program is free software; you can redistribute it and/or modify
7			* it under the terms of the GNU General Public License as published by
8			* the Free Software Foundation; either version 2 of the License, or
9			* (at your option) any later version.
10			*
11			* This program is distributed in the hope that it will be useful,
12			* but WITHOUT ANY WARRANTY; without even the implied warranty of
13			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			* GNU General Public License for more details.
15			*
16			* You should have received a copy of the GNU General Public License
17			* along with this program; if not, write to the Free Software
18			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19			*/
20
21			#include <AppKit.h>
22			#include <StorageKit.h>
23			#include <Path.h>
24			#include <InterfaceKit.h>
25
26			#include "Version.h"
27
28
29			// Global variables
30			bool FromShell;
31			BEntry AppDirectory;
32			BBitmap *AboutBitmap;
33			const BRect AboutFrame = BRect(0, 0, 383, 99);
34
35
36			/*
37			* Create application object and start it
38			*/
39
40			int main(int argc, char **argv)
41			{
42			Frodo *the_app;
43
44			srand(real_time_clock());
45			FromShell = (argc != 0); // !! This doesn't work...
46
47			the_app = new Frodo();
48			if (the_app != NULL) {
49			the_app->Run();
50			delete the_app;
51			}
52			return 0;
53			}
54
55
56			/*
57			* Constructor: Initialize member variables
58			*/
59
60			Frodo::Frodo() : BApplication(APP_SIGNATURE), this_messenger(this)
61			{
62			TheC64 = NULL;
63			AboutBitmap = NULL;
64			strcpy(prefs_path, "/boot/home/config/settings/Frodo_settings");
65			prefs_showing = false;
66
67			// Create file panels
68			open_panel = new BFilePanel(B_OPEN_PANEL, &this_messenger, NULL, 0, false, new BMessage(MSG_OPEN_SNAPSHOT_RETURNED));
69			open_panel->Window()->SetTitle("Frodo: Load snapshot");
70			save_panel = new BFilePanel(B_SAVE_PANEL, &this_messenger, NULL, 0, false, new BMessage(MSG_SAVE_SNAPSHOT_RETURNED));
71			save_panel->Window()->SetTitle("Frodo: Save snapshot");
72			}
73
74
75			/*
76			* Process command line arguments
77			*/
78
79			void Frodo::ArgvReceived(int32 argc, char **argv)
80			{
81			if (argc == 2) {
82			strncpy(prefs_path, argv[1], 1023);
83			prefs_path[1023] = 0;
84			}
85			}
86
87
88			/*
89			* Process Browser arguments
90			*/
91
92			void Frodo::RefsReceived(BMessage *message)
93			{
94			// Set preferences path unless prefs editor is open or C64 is running
95			if (!prefs_showing && !TheC64) {
96			entry_ref the_ref;
97			BEntry the_entry;
98
99			if (message->FindRef("refs", &the_ref) == B_NO_ERROR)
100			if (the_entry.SetTo(&the_ref) == B_NO_ERROR)
101			if (the_entry.IsFile()) {
102			BPath the_path;
103			the_entry.GetPath(&the_path);
104			strncpy(prefs_path, the_path.Path(), 1023);
105			prefs_path[1023] = 0;
106			}
107			}
108			}
109
110
111			/*
112			* Arguments processed, prepare emulation and show preferences editor window
113			*/
114
115			void Frodo::ReadyToRun(void)
116			{
117			// Find application directory and cwd to it
118			app_info the_info;
119			GetAppInfo(&the_info);
120			BEntry the_file(&the_info.ref);
121			the_file.GetParent(&AppDirectory);
122			BPath the_path;
123			AppDirectory.GetPath(&the_path);
124			strncpy(AppDirPath, the_path.Path(), 1023);
125			AppDirPath[1023] = 0;
126			chdir(AppDirPath);
127
128			// Set up "about" window bitmap
129			AboutBitmap = new BBitmap(AboutFrame, B_COLOR_8_BIT);
130			FILE *logofile = fopen("Frodo Logo", "rb");
131			if (logofile != NULL) {
132			fread(AboutBitmap->Bits(), 384*100, 1, logofile);
133			fclose(logofile);
134			}
135
136			// Load preferences
137			ThePrefs.Load(prefs_path);
138
139			// Show preferences editor (sends MSG_STARTUP on close)
140			prefs_showing = true;
141			ThePrefs.ShowEditor(true, prefs_path);
142			}
143
144
145			/*
146			* Handle incoming messages
147			*/
148
149			void Frodo::MessageReceived(BMessage *msg)
150			{
151			switch (msg->what) {
152			case MSG_STARTUP: // Start the emulation
153
154			// Preferences editor is not longer on screen
155			prefs_showing = false;
156
157			// Create everything
158			TheC64 = new C64;
159
160			// Load ROMs
161			if (!load_rom_files()) {
162			PostMessage(B_QUIT_REQUESTED);
163			return;
164			}
165
166			// Run the 6510
167			TheC64->Run();
168			break;
169
170			case MSG_PREFS: // Show preferences editor
171			if (TheC64 != NULL && !prefs_showing) {
172			TheC64->Pause();
173			TheC64->TheDisplay->Pause();
174
175			Prefs *prefs = new Prefs(ThePrefs);
176			prefs_showing = true;
177			prefs->ShowEditor(false, prefs_path); // Sends MSG_PREFS_DONE on close
178			}
179			break;
180
181			case MSG_PREFS_DONE: // Preferences editor closed
182			Prefs *prefs;
183			msg->FindPointer("prefs", &prefs);
184			if (!msg->FindBool("canceled")) {
185			TheC64->NewPrefs(prefs);
186			ThePrefs = *prefs;
187			}
188			delete prefs;
189			prefs_showing = false;
190
191			TheC64->TheDisplay->Resume();
192			TheC64->Resume();
193			break;
194
195			case MSG_RESET: // Reset C64
196			if (TheC64 != NULL)
197			TheC64->Reset();
198			break;
199
200			case MSG_NMI: // NMI
201			if (TheC64 != NULL)
202			TheC64->NMI();
203			break;
204
205			case MSG_SAM: // Invoke SAM
206			if (TheC64 != NULL && !prefs_showing && FromShell) {
207			TheC64->Pause();
208			TheC64->TheDisplay->Pause();
209			SAM(TheC64);
210			TheC64->TheDisplay->Resume();
211			TheC64->Resume();
212			}
213			break;
214
215			case MSG_NEXTDISK: // Insert next disk in drive 8
216			if (TheC64 != NULL && !prefs_showing && strlen(ThePrefs.DrivePath[0]) > 4) {
217			char str[256];
218			strcpy(str, ThePrefs.DrivePath[0]);
219			char *p = str + strlen(str) - 5;
220
221			// If path matches "*.?64", increment character before the '.'
222			if (p[1] == '.' && p[3] == '6' && p[4] == '4') {
223			p[0]++;
224
225			// If no such file exists, set character before the '.' to '1', 'a' or 'A'
226			FILE *file;
227			if ((file = fopen(str, "rb")) == NULL) {
228			if (isdigit(p[0]))
229			p[0] = '1';
230			else if (isupper(p[0]))
231			p[0] = 'A';
232			else
233			p[0] = 'a';
234			} else
235			fclose(file);
236
237			// Set new prefs
238			TheC64->Pause();
239			Prefs *prefs = new Prefs(ThePrefs);
240			strcpy(prefs->DrivePath[0], str);
241			TheC64->NewPrefs(prefs);
242			ThePrefs = *prefs;
243			delete prefs;
244			TheC64->Resume();
245			}
246			}
247			break;
248
249			case MSG_TOGGLE_1541: // Toggle processor-level 1541 emulation
250			if (TheC64 != NULL && !prefs_showing) {
251			TheC64->Pause();
252			Prefs *prefs = new Prefs(ThePrefs);
253			prefs->Emul1541Proc = !prefs->Emul1541Proc;
254			TheC64->NewPrefs(prefs);
255			ThePrefs = *prefs;
256			delete prefs;
257			TheC64->Resume();
258			}
259			break;
260
261			case MSG_OPEN_SNAPSHOT:
262			if (TheC64 != NULL && !prefs_showing)
263			open_panel->Show();
264			break;
265
266			case MSG_SAVE_SNAPSHOT:
267			if (TheC64 != NULL && !prefs_showing)
268			save_panel->Show();
269			break;
270
271			case MSG_OPEN_SNAPSHOT_RETURNED:
272			if (TheC64 != NULL && !prefs_showing) {
273			entry_ref the_ref;
274			BEntry the_entry;
275			if (msg->FindRef("refs", &the_ref) == B_NO_ERROR)
276			if (the_entry.SetTo(&the_ref) == B_NO_ERROR)
277			if (the_entry.IsFile()) {
278			char path[1024];
279			BPath the_path;
280			the_entry.GetPath(&the_path);
281			strncpy(path, the_path.Path(), 1023);
282			path[1023] = 0;
283			TheC64->Pause();
284			TheC64->LoadSnapshot(path);
285			TheC64->Resume();
286			}
287			}
288			break;
289
290			case MSG_SAVE_SNAPSHOT_RETURNED:
291			if (TheC64 != NULL && !prefs_showing) {
292			entry_ref the_ref;
293			BEntry the_entry;
294			if (msg->FindRef("directory", &the_ref) == B_NO_ERROR)
295			if (the_entry.SetTo(&the_ref) == B_NO_ERROR) {
296			char path[1024];
297			BPath the_path;
298			the_entry.GetPath(&the_path);
299			strncpy(path, the_path.Path(), 1023);
300			strncat(path, "/", 1023);
301			strncat(path, msg->FindString("name"), 1023);
302			path[1023] = 0;
303			TheC64->Pause();
304			TheC64->SaveSnapshot(path);
305			TheC64->Resume();
306			}
307			}
308			break;
309
310			default:
311			BApplication::MessageReceived(msg);
312			}
313			}
314
315
316			/*
317			* Quit requested (either by menu or by closing the C64 display window)
318			*/
319
320			bool Frodo::QuitRequested(void)
321			{
322			// Stop emulation
323			if (TheC64) {
324			TheC64->Quit();
325			delete TheC64;
326			}
327
328			delete AboutBitmap;
329			delete open_panel;
330			delete save_panel;
331
332			return BApplication::QuitRequested();
333			}
334
335
336			/*
337			* Display "about" window
338			*/
339
340			class AboutView : public BView {
341			public:
342			AboutView() : BView(AboutFrame, "", B_FOLLOW_NONE, B_WILL_DRAW) {}
343
344			virtual void AttachedToWindow(void)
345			{
346			SetHighColor(0, 0, 0);
347			}
348
349			virtual void Draw(BRect update)
350			{
351			DrawBitmap(AboutBitmap, update, update);
352
353			SetFont(be_bold_font);
354			SetDrawingMode(B_OP_OVER);
355			MovePenTo(204, 20);
356			DrawString(VERSION_STRING);
357
358			SetFont(be_plain_font);
359			MovePenTo(204, 40);
360			DrawString("by Christian Bauer");
361			MovePenTo(204, 52);
362			DrawString("<cbauer@iphcip1.physik.uni-mainz.de>");
363			MovePenTo(204, 75);
364			DrawString(B_UTF8_COPYRIGHT " Copyright 1994-1997");
365			MovePenTo(204, 87);
366			DrawString("Freely distributable.");
367			}
368
369			virtual void MouseDown(BPoint point)
370			{
371			Window()->PostMessage(B_QUIT_REQUESTED);
372			}
373			};
374
375			class AboutWindow : public BWindow {
376			public:
377			AboutWindow() : BWindow(AboutFrame, NULL, B_BORDERED_WINDOW, B_NOT_RESIZABLE \| B_NOT_ZOOMABLE \| B_WILL_ACCEPT_FIRST_CLICK)
378			{
379			Lock();
380			MoveTo(100, 100);
381			AboutView *view = new AboutView;
382			AddChild(view);
383			view->MakeFocus();
384			Unlock();
385			Show();
386			}
387			};
388
389			void Frodo::AboutRequested(void)
390			{
391			new AboutWindow();
392			}