Mercurial > sdl-ios-xcode
annotate src/main/macos/SDL_main.c @ 1032:c1c2efca4548
Date: Mon, 24 Jan 2005 21:37:56 +0800
From: Chris Taylor
Subject: Patch to put back dynamic OpenGL loading for MPW
I sent a patch a while ago that removes dynamic OpenGL loading for
Macintosh Programmer's Workshop. Dynamic loading DOES actually work
when an SDL program is built with MPW, it just has to be set up for it.
(Whoops!!) This is the ideal way to get OpenGL extensions to work,
which D2X uses quite a few of.
This patch puts dynamic loading back in SDL for Mac OS 9. It applies to
current CVS. I noticed that two members need to be set when
DrawSprocket is used.
author | Sam Lantinga <slouken@libsdl.org> |
---|---|
date | Tue, 25 Jan 2005 16:57:11 +0000 |
parents | b8d311d90021 |
children | 609c060fd2a2 |
rev | line source |
---|---|
0 | 1 /* |
2 SDL - Simple DirectMedia Layer | |
769
b8d311d90021
Updated copyright information for 2004 (Happy New Year!)
Sam Lantinga <slouken@libsdl.org>
parents:
297
diff
changeset
|
3 Copyright (C) 1997-2004 Sam Lantinga |
0 | 4 |
5 This library is free software; you can redistribute it and/or | |
6 modify it under the terms of the GNU Library General Public | |
7 License as published by the Free Software Foundation; either | |
8 version 2 of the License, or (at your option) any later version. | |
9 | |
10 This library is distributed in the hope that it will be useful, | |
11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 Library General Public License for more details. | |
14 | |
15 You should have received a copy of the GNU Library General Public | |
16 License along with this library; if not, write to the Free | |
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
18 | |
19 Sam Lantinga | |
252
e8157fcb3114
Updated the source with the correct e-mail address
Sam Lantinga <slouken@libsdl.org>
parents:
0
diff
changeset
|
20 slouken@libsdl.org |
0 | 21 */ |
22 | |
23 #ifdef SAVE_RCSID | |
24 static char rcsid = | |
25 "@(#) $Id$"; | |
26 #endif | |
27 | |
28 /* This file takes care of command line argument parsing, and stdio redirection | |
29 in the MacOS environment. | |
30 */ | |
31 | |
32 #include <stdio.h> | |
33 #include <stdlib.h> | |
34 #include <string.h> | |
35 #include <ctype.h> | |
36 #if TARGET_API_MAC_CARBON | |
37 #include <Carbon.h> | |
38 #else | |
39 #include <Dialogs.h> | |
40 #include <Fonts.h> | |
41 #include <Events.h> | |
42 #include <Resources.h> | |
43 #include <Folders.h> | |
44 #endif | |
45 | |
46 /* Include the SDL main definition header */ | |
47 #include "SDL.h" | |
48 #include "SDL_main.h" | |
49 #ifdef main | |
50 #undef main | |
51 #endif | |
52 | |
53 /* The standard output files */ | |
54 #define STDOUT_FILE "stdout.txt" | |
55 #define STDERR_FILE "stderr.txt" | |
56 | |
57 #if !defined(__MWERKS__) && !TARGET_API_MAC_CARBON | |
58 /* In MPW, the qd global has been removed from the libraries */ | |
59 QDGlobals qd; | |
60 #endif | |
61 | |
62 /* Structure for keeping prefs in 1 variable */ | |
63 typedef struct { | |
64 Str255 command_line; | |
65 Str255 video_driver_name; | |
66 Boolean output_to_file; | |
67 } PrefsRecord; | |
68 | |
69 /* See if the command key is held down at startup */ | |
70 static Boolean CommandKeyIsDown(void) | |
71 { | |
72 KeyMap theKeyMap; | |
73 | |
74 GetKeys(theKeyMap); | |
75 | |
76 if (((unsigned char *) theKeyMap)[6] & 0x80) { | |
77 return(true); | |
78 } | |
79 return(false); | |
80 } | |
81 | |
82 /* Parse a command line buffer into arguments */ | |
83 static int ParseCommandLine(char *cmdline, char **argv) | |
84 { | |
85 char *bufp; | |
86 int argc; | |
87 | |
88 argc = 0; | |
89 for ( bufp = cmdline; *bufp; ) { | |
90 /* Skip leading whitespace */ | |
91 while ( isspace(*bufp) ) { | |
92 ++bufp; | |
93 } | |
94 /* Skip over argument */ | |
95 if ( *bufp == '"' ) { | |
96 ++bufp; | |
97 if ( *bufp ) { | |
98 if ( argv ) { | |
99 argv[argc] = bufp; | |
100 } | |
101 ++argc; | |
102 } | |
103 /* Skip over word */ | |
104 while ( *bufp && (*bufp != '"') ) { | |
105 ++bufp; | |
106 } | |
107 } else { | |
108 if ( *bufp ) { | |
109 if ( argv ) { | |
110 argv[argc] = bufp; | |
111 } | |
112 ++argc; | |
113 } | |
114 /* Skip over word */ | |
115 while ( *bufp && ! isspace(*bufp) ) { | |
116 ++bufp; | |
117 } | |
118 } | |
119 if ( *bufp ) { | |
120 if ( argv ) { | |
121 *bufp = '\0'; | |
122 } | |
123 ++bufp; | |
124 } | |
125 } | |
126 if ( argv ) { | |
127 argv[argc] = NULL; | |
128 } | |
129 return(argc); | |
130 } | |
131 | |
132 /* Remove the output files if there was no output written */ | |
133 static void cleanup_output(void) | |
134 { | |
135 FILE *file; | |
136 int empty; | |
137 | |
138 /* Flush the output in case anything is queued */ | |
139 fclose(stdout); | |
140 fclose(stderr); | |
141 | |
142 /* See if the files have any output in them */ | |
143 file = fopen(STDOUT_FILE, "rb"); | |
144 if ( file ) { | |
145 empty = (fgetc(file) == EOF) ? 1 : 0; | |
146 fclose(file); | |
147 if ( empty ) { | |
148 remove(STDOUT_FILE); | |
149 } | |
150 } | |
151 file = fopen(STDERR_FILE, "rb"); | |
152 if ( file ) { | |
153 empty = (fgetc(file) == EOF) ? 1 : 0; | |
154 fclose(file); | |
155 if ( empty ) { | |
156 remove(STDERR_FILE); | |
157 } | |
158 } | |
159 } | |
160 | |
161 static int getCurrentAppName (StrFileName name) { | |
162 | |
163 ProcessSerialNumber process; | |
164 ProcessInfoRec process_info; | |
165 FSSpec process_fsp; | |
166 | |
167 process.highLongOfPSN = 0; | |
168 process.lowLongOfPSN = kCurrentProcess; | |
169 process_info.processInfoLength = sizeof (process_info); | |
170 process_info.processName = NULL; | |
171 process_info.processAppSpec = &process_fsp; | |
172 | |
173 if ( noErr != GetProcessInformation (&process, &process_info) ) | |
174 return 0; | |
175 | |
176 memcpy (name, process_fsp.name, process_fsp.name[0] + 1); | |
177 return 1; | |
178 } | |
179 | |
180 static int getPrefsFile (FSSpec *prefs_fsp, int create) { | |
181 | |
182 /* The prefs file name is the application name, possibly truncated, */ | |
183 /* plus " Preferences */ | |
184 | |
185 #define SUFFIX " Preferences" | |
186 #define MAX_NAME 19 /* 31 - strlen (SUFFIX) */ | |
187 | |
188 short volume_ref_number; | |
189 long directory_id; | |
190 StrFileName prefs_name; | |
191 StrFileName app_name; | |
192 | |
193 /* Get Preferences folder - works with Multiple Users */ | |
194 if ( noErr != FindFolder ( kOnSystemDisk, kPreferencesFolderType, kDontCreateFolder, | |
195 &volume_ref_number, &directory_id) ) | |
196 exit (-1); | |
197 | |
198 if ( ! getCurrentAppName (app_name) ) | |
199 exit (-1); | |
200 | |
201 /* Truncate if name is too long */ | |
202 if (app_name[0] > MAX_NAME ) | |
203 app_name[0] = MAX_NAME; | |
204 | |
205 memcpy (prefs_name + 1, app_name + 1, app_name[0]); | |
206 memcpy (prefs_name + app_name[0] + 1, SUFFIX, strlen (SUFFIX)); | |
207 prefs_name[0] = app_name[0] + strlen (SUFFIX); | |
208 | |
209 /* Make the file spec for prefs file */ | |
210 if ( noErr != FSMakeFSSpec (volume_ref_number, directory_id, prefs_name, prefs_fsp) ) | |
211 if ( !create ) | |
212 return 0; | |
213 else { | |
214 /* Create the prefs file */ | |
215 memcpy (prefs_fsp->name, prefs_name, prefs_name[0] + 1); | |
216 prefs_fsp->parID = directory_id; | |
217 prefs_fsp->vRefNum = volume_ref_number; | |
218 | |
219 FSpCreateResFile (prefs_fsp, '????', 'pref', 0); | |
220 | |
221 if ( noErr != ResError () ) | |
222 return 0; | |
223 } | |
224 | |
225 return 1; | |
226 } | |
227 | |
228 static int readPrefsResource (PrefsRecord *prefs) { | |
229 | |
230 Handle prefs_handle; | |
231 | |
232 prefs_handle = Get1Resource( 'CLne', 128 ); | |
233 | |
234 if (prefs_handle != NULL) { | |
235 int offset = 0; | |
236 int j = 0; | |
237 | |
238 HLock(prefs_handle); | |
239 | |
240 /* Get command line string */ | |
241 memcpy (prefs->command_line, *prefs_handle, (*prefs_handle)[0]+1); | |
242 | |
243 /* Get video driver name */ | |
244 offset += (*prefs_handle)[0] + 1; | |
245 memcpy (prefs->video_driver_name, *prefs_handle + offset, (*prefs_handle)[offset] + 1); | |
246 | |
247 /* Get save-to-file option (1 or 0) */ | |
248 offset += (*prefs_handle)[offset] + 1; | |
249 prefs->output_to_file = (*prefs_handle)[offset]; | |
250 | |
251 ReleaseResource( prefs_handle ); | |
252 | |
253 return ResError() == noErr; | |
254 } | |
255 | |
256 return 0; | |
257 } | |
258 | |
259 static int writePrefsResource (PrefsRecord *prefs, short resource_file) { | |
260 | |
261 Handle prefs_handle; | |
262 | |
263 UseResFile (resource_file); | |
264 | |
265 prefs_handle = Get1Resource ( 'CLne', 128 ); | |
266 if (prefs_handle != NULL) | |
267 RemoveResource (prefs_handle); | |
268 | |
269 prefs_handle = NewHandle ( prefs->command_line[0] + prefs->video_driver_name[0] + 4 ); | |
270 if (prefs_handle != NULL) { | |
271 | |
272 int offset; | |
273 | |
274 HLock (prefs_handle); | |
275 | |
276 /* Command line text */ | |
277 offset = 0; | |
278 memcpy (*prefs_handle, prefs->command_line, prefs->command_line[0] + 1); | |
279 | |
280 /* Video driver name */ | |
281 offset += prefs->command_line[0] + 1; | |
282 memcpy (*prefs_handle + offset, prefs->video_driver_name, prefs->video_driver_name[0] + 1); | |
283 | |
284 /* Output-to-file option */ | |
285 offset += prefs->video_driver_name[0] + 1; | |
286 *( *((char**)prefs_handle) + offset) = (char)prefs->output_to_file; | |
287 *( *((char**)prefs_handle) + offset + 1) = 0; | |
288 | |
289 AddResource (prefs_handle, 'CLne', 128, "\pCommand Line"); | |
290 WriteResource (prefs_handle); | |
291 UpdateResFile (resource_file); | |
292 DisposeHandle (prefs_handle); | |
293 | |
294 return ResError() == noErr; | |
295 } | |
296 | |
297 return 0; | |
298 } | |
299 | |
300 static int readPreferences (PrefsRecord *prefs) { | |
301 | |
302 int no_error = 1; | |
303 FSSpec prefs_fsp; | |
304 | |
305 /* Check for prefs file first */ | |
306 if ( getPrefsFile (&prefs_fsp, 0) ) { | |
307 | |
308 short prefs_resource; | |
309 | |
310 prefs_resource = FSpOpenResFile (&prefs_fsp, fsRdPerm); | |
311 if ( prefs_resource == -1 ) /* this shouldn't happen, but... */ | |
312 return 0; | |
313 | |
314 UseResFile (prefs_resource); | |
315 no_error = readPrefsResource (prefs); | |
316 CloseResFile (prefs_resource); | |
317 } | |
318 | |
319 /* Fall back to application's resource fork (reading only, so this is safe) */ | |
320 else { | |
321 | |
322 no_error = readPrefsResource (prefs); | |
323 } | |
324 | |
325 return no_error; | |
326 } | |
327 | |
328 static int writePreferences (PrefsRecord *prefs) { | |
329 | |
330 int no_error = 1; | |
331 FSSpec prefs_fsp; | |
332 | |
333 /* Get prefs file, create if it doesn't exist */ | |
334 if ( getPrefsFile (&prefs_fsp, 1) ) { | |
335 | |
336 short prefs_resource; | |
337 | |
338 prefs_resource = FSpOpenResFile (&prefs_fsp, fsRdWrPerm); | |
339 if (prefs_resource == -1) | |
340 return 0; | |
341 no_error = writePrefsResource (prefs, prefs_resource); | |
342 CloseResFile (prefs_resource); | |
343 } | |
344 | |
345 return no_error; | |
346 } | |
347 | |
348 /* This is where execution begins */ | |
349 int main(int argc, char *argv[]) | |
350 { | |
351 | |
352 #pragma unused(argc, argv) | |
353 | |
354 #define DEFAULT_ARGS "\p" /* pascal string for default args */ | |
355 #define DEFAULT_VIDEO_DRIVER "\ptoolbox" /* pascal string for default video driver name */ | |
356 #define DEFAULT_OUTPUT_TO_FILE 1 /* 1 == output to file, 0 == no output */ | |
357 | |
358 #define VIDEO_ID_DRAWSPROCKET 1 /* these correspond to popup menu choices */ | |
359 #define VIDEO_ID_TOOLBOX 2 | |
360 | |
361 PrefsRecord prefs = { DEFAULT_ARGS, DEFAULT_VIDEO_DRIVER, DEFAULT_OUTPUT_TO_FILE }; | |
362 | |
363 int nargs; | |
364 char **args; | |
365 char *commandLine; | |
366 | |
367 StrFileName appNameText; | |
368 int videodriver = VIDEO_ID_TOOLBOX; | |
369 int settingsChanged = 0; | |
370 | |
371 long i; | |
372 | |
373 /* Kyle's SDL command-line dialog code ... */ | |
374 #if !TARGET_API_MAC_CARBON | |
375 InitGraf (&qd.thePort); | |
376 InitFonts (); | |
377 InitWindows (); | |
378 InitMenus (); | |
379 InitDialogs (nil); | |
380 #endif | |
381 InitCursor (); | |
382 FlushEvents(everyEvent,0); | |
383 #if !TARGET_API_MAC_CARBON | |
384 MaxApplZone (); | |
385 #endif | |
386 MoreMasters (); | |
387 MoreMasters (); | |
388 #if 0 | |
389 /* Intialize SDL, and put up a dialog if we fail */ | |
390 if ( SDL_Init (0) < 0 ) { | |
391 | |
392 #define kErr_OK 1 | |
393 #define kErr_Text 2 | |
394 | |
395 DialogPtr errorDialog; | |
396 short dummyType; | |
397 Rect dummyRect; | |
398 Handle dummyHandle; | |
399 short itemHit; | |
400 | |
401 errorDialog = GetNewDialog (1001, nil, (WindowPtr)-1); | |
402 DrawDialog (errorDialog); | |
403 | |
404 GetDialogItem (errorDialog, kErr_Text, &dummyType, &dummyHandle, &dummyRect); | |
405 SetDialogItemText (dummyHandle, "\pError Initializing SDL"); | |
406 | |
407 SetPort (errorDialog); | |
408 do { | |
409 ModalDialog (nil, &itemHit); | |
410 } while (itemHit != kErr_OK); | |
411 | |
412 DisposeDialog (errorDialog); | |
413 exit (-1); | |
414 } | |
415 atexit(cleanup_output); | |
416 atexit(SDL_Quit); | |
417 #endif | |
418 | |
419 /* Set up SDL's QuickDraw environment */ | |
420 #if !TARGET_API_MAC_CARBON | |
421 SDL_InitQuickDraw(&qd); | |
422 #endif | |
423 | |
424 if ( readPreferences (&prefs) ) { | |
425 | |
426 if (memcmp (prefs.video_driver_name+1, "DSp", 3) == 0) | |
427 videodriver = 1; | |
428 else if (memcmp (prefs.video_driver_name+1, "toolbox", 7) == 0) | |
429 videodriver = 2; | |
430 } | |
431 | |
432 if ( CommandKeyIsDown() ) { | |
433 | |
434 #define kCL_OK 1 | |
435 #define kCL_Cancel 2 | |
436 #define kCL_Text 3 | |
437 #define kCL_File 4 | |
438 #define kCL_Video 6 | |
439 | |
440 DialogPtr commandDialog; | |
441 short dummyType; | |
442 Rect dummyRect; | |
443 Handle dummyHandle; | |
444 short itemHit; | |
445 | |
446 /* Assume that they will change settings, rather than do exhaustive check */ | |
447 settingsChanged = 1; | |
448 | |
449 /* Create dialog and display it */ | |
450 commandDialog = GetNewDialog (1000, nil, (DialogPtr)-1); | |
451 SetPort (commandDialog); | |
452 | |
453 /* Setup controls */ | |
454 GetDialogItem (commandDialog, kCL_File, &dummyType, &dummyHandle, &dummyRect); /* MJS */ | |
455 SetControlValue ((ControlHandle)dummyHandle, prefs.output_to_file ); | |
456 | |
457 GetDialogItem (commandDialog, kCL_Text, &dummyType, &dummyHandle, &dummyRect); | |
458 SetDialogItemText (dummyHandle, prefs.command_line); | |
459 | |
460 GetDialogItem (commandDialog, kCL_Video, &dummyType, &dummyHandle, &dummyRect); | |
461 SetControlValue ((ControlRef)dummyHandle, videodriver); | |
462 | |
463 SetDialogDefaultItem (commandDialog, kCL_OK); | |
464 SetDialogCancelItem (commandDialog, kCL_Cancel); | |
465 | |
466 do { | |
467 | |
468 ModalDialog(nil, &itemHit); /* wait for user response */ | |
469 | |
470 /* Toggle command-line output checkbox */ | |
471 if ( itemHit == kCL_File ) { | |
472 GetDialogItem(commandDialog, kCL_File, &dummyType, &dummyHandle, &dummyRect); /* MJS */ | |
473 SetControlValue((ControlHandle)dummyHandle, !GetControlValue((ControlHandle)dummyHandle) ); | |
474 } | |
475 | |
476 } while (itemHit != kCL_OK && itemHit != kCL_Cancel); | |
477 | |
478 /* Get control values, even if they did not change */ | |
479 GetDialogItem (commandDialog, kCL_Text, &dummyType, &dummyHandle, &dummyRect); /* MJS */ | |
480 GetDialogItemText (dummyHandle, prefs.command_line); | |
481 | |
482 GetDialogItem (commandDialog, kCL_File, &dummyType, &dummyHandle, &dummyRect); /* MJS */ | |
483 prefs.output_to_file = GetControlValue ((ControlHandle)dummyHandle); | |
484 | |
485 GetDialogItem (commandDialog, kCL_Video, &dummyType, &dummyHandle, &dummyRect); | |
486 videodriver = GetControlValue ((ControlRef)dummyHandle); | |
487 | |
488 DisposeDialog (commandDialog); | |
489 | |
490 if (itemHit == kCL_Cancel ) { | |
491 exit (0); | |
492 } | |
493 } | |
494 | |
495 /* Set pseudo-environment variables for video driver, update prefs */ | |
496 switch ( videodriver ) { | |
497 case VIDEO_ID_DRAWSPROCKET: | |
498 putenv ("SDL_VIDEODRIVER=DSp"); | |
499 memcpy (prefs.video_driver_name, "\pDSp", 4); | |
500 break; | |
501 case VIDEO_ID_TOOLBOX: | |
502 putenv ("SDL_VIDEODRIVER=toolbox"); | |
503 memcpy (prefs.video_driver_name, "\ptoolbox", 8); | |
504 break; | |
505 } | |
506 | |
507 /* Redirect standard I/O to files */ | |
508 if ( prefs.output_to_file ) { | |
509 freopen (STDOUT_FILE, "w", stdout); | |
510 freopen (STDERR_FILE, "w", stderr); | |
511 } else { | |
512 fclose (stdout); | |
513 fclose (stderr); | |
514 } | |
515 | |
516 if (settingsChanged) { | |
517 /* Save the prefs, even if they might not have changed (but probably did) */ | |
518 if ( ! writePreferences (&prefs) ) | |
519 fprintf (stderr, "WARNING: Could not save preferences!\n"); | |
520 } | |
521 | |
522 getCurrentAppName (appNameText); /* check for error here ? */ | |
523 | |
524 commandLine = (char*) malloc (appNameText[0] + prefs.command_line[0] + 2); | |
525 if ( commandLine == NULL ) { | |
526 exit(-1); | |
527 } | |
528 | |
529 /* Rather than rewrite ParseCommandLine method, let's replace */ | |
530 /* any spaces in application name with underscores, */ | |
531 /* so that the app name is only 1 argument */ | |
532 for (i = 1; i < 1+appNameText[0]; i++) | |
533 if ( appNameText[i] == ' ' ) appNameText[i] = '_'; | |
534 | |
535 /* Copy app name & full command text to command-line C-string */ | |
536 memcpy (commandLine, appNameText + 1, appNameText[0]); | |
537 commandLine[appNameText[0]] = ' '; | |
538 memcpy (commandLine + appNameText[0] + 1, prefs.command_line + 1, prefs.command_line[0]); | |
539 commandLine[ appNameText[0] + 1 + prefs.command_line[0] ] = '\0'; | |
540 | |
541 /* Parse C-string into argv and argc */ | |
542 nargs = ParseCommandLine (commandLine, NULL); | |
543 args = (char **)malloc((nargs+1)*(sizeof *args)); | |
544 if ( args == NULL ) { | |
545 exit(-1); | |
546 } | |
547 ParseCommandLine (commandLine, args); | |
548 | |
549 /* Run the main application code */ | |
550 SDL_main(nargs, args); | |
551 free (args); | |
552 free (commandLine); | |
553 | |
554 /* Remove useless stdout.txt and stderr.txt */ | |
555 cleanup_output (); | |
556 | |
557 /* Exit cleanly, calling atexit() functions */ | |
558 exit (0); | |
559 | |
560 /* Never reached, but keeps the compiler quiet */ | |
561 return (0); | |
562 } |