Mercurial > sdl-ios-xcode
annotate src/main/macos/SDL_main.c @ 252:e8157fcb3114
Updated the source with the correct e-mail address
author | Sam Lantinga <slouken@libsdl.org> |
---|---|
date | Fri, 14 Dec 2001 12:38:15 +0000 |
parents | 74212992fb08 |
children | f6ffac90895c |
rev | line source |
---|---|
0 | 1 /* |
2 SDL - Simple DirectMedia Layer | |
3 Copyright (C) 1997, 1998, 1999, 2000, 2001 Sam Lantinga | |
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 } |