diff options
Diffstat (limited to 'Mac/Python/macgetargv.c')
| -rw-r--r-- | Mac/Python/macgetargv.c | 325 |
1 files changed, 325 insertions, 0 deletions
diff --git a/Mac/Python/macgetargv.c b/Mac/Python/macgetargv.c new file mode 100644 index 0000000..aaf644c --- /dev/null +++ b/Mac/Python/macgetargv.c @@ -0,0 +1,325 @@ +/*********************************************************** +Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, +The Netherlands. + + All Rights Reserved + +Permission to use, copy, modify, and distribute this software and its +documentation for any purpose and without fee is hereby granted, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the names of Stichting Mathematisch +Centrum or CWI not be used in advertising or publicity pertaining to +distribution of the software without specific, written prior permission. + +STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO +THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND +FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE +FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES +WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN +ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT +OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +******************************************************************/ + +/* Construct argc and argv for main() by using Apple Events */ +/* From Jack's implementation for STDWIN */ + +#include <stdlib.h> + +#ifndef SystemSevenOrLater +#define SystemSevenOrLater 1 +#endif + +#include <Types.h> +#include <Files.h> +#include <Events.h> +#include <Memory.h> +#include <Processes.h> +#include <Errors.h> +#include <AppleEvents.h> +#include <AEObjects.h> +#include <Desk.h> +#include <Fonts.h> + +#ifdef GENERATINGCFM /* Defined to 0 or 1 in Universal headers */ +#define HAVE_UNIVERSAL_HEADERS +#endif + +#ifdef __CFM68K__ +#pragma lib_export on +#endif + +#ifndef HAVE_UNIVERSAL_HEADERS +#define NewAEEventHandlerProc(x) (x) +#define AEEventHandlerUPP EventHandlerProcPtr +#endif + +static int arg_count; +static char *arg_vector[256]; + +/* Duplicate a string to the heap */ + +static char * +strdup(char *src) +{ + char *dst = malloc(strlen(src) + 1); + if (dst) + strcpy(dst, src); + return dst; +} + +/* Return FSSpec of current application */ + +static OSErr +current_process_location(FSSpec *applicationSpec) +{ + ProcessSerialNumber currentPSN; + ProcessInfoRec info; + + currentPSN.highLongOfPSN = 0; + currentPSN.lowLongOfPSN = kCurrentProcess; + info.processInfoLength = sizeof(ProcessInfoRec); + info.processName = NULL; + info.processAppSpec = applicationSpec; + return GetProcessInformation(¤tPSN, &info); +} + +/* Given an FSSpec, return the FSSpec of the parent folder */ + +static OSErr +get_folder_parent (FSSpec * fss, FSSpec * parent) +{ + CInfoPBRec rec; + short err; + + * parent = * fss; + rec.hFileInfo.ioNamePtr = parent->name; + rec.hFileInfo.ioVRefNum = parent->vRefNum; + rec.hFileInfo.ioDirID = parent->parID; + rec.hFileInfo.ioFDirIndex = -1; + rec.hFileInfo.ioFVersNum = 0; + if (err = PBGetCatInfoSync (& rec)) + return err; + parent->parID = rec.dirInfo.ioDrParID; +/* parent->name[0] = 0; */ + return 0; +} + +/* Given an FSSpec return a full, colon-separated pathname */ + +static OSErr +get_full_path (FSSpec *fss, char *buf) +{ + short err; + FSSpec fss_parent, fss_current; + char tmpbuf[256]; + int plen; + + fss_current = *fss; + plen = fss_current.name[0]; + memcpy(buf, &fss_current.name[1], plen); + buf[plen] = 0; + while (fss_current.parID > 1) { + /* Get parent folder name */ + if (err = get_folder_parent(&fss_current, &fss_parent)) + return err; + fss_current = fss_parent; + /* Prepend path component just found to buf */ + plen = fss_current.name[0]; + if (strlen(buf) + plen + 1 > 256) { + /* Oops... Not enough space (shouldn't happen) */ + *buf = 0; + return -1; + } + memcpy(tmpbuf, &fss_current.name[1], plen); + tmpbuf[plen] = ':'; + strcpy(&tmpbuf[plen+1], buf); + strcpy(buf, tmpbuf); + } + return 0; +} + +/* Return the full program name */ + +static char * +get_application_name() +{ + static char appname[256]; + FSSpec appspec; + long size; + + if (current_process_location(&appspec)) + return NULL; + if (get_full_path(&appspec, appname)) + return NULL; + return appname; +} + +/* Check that there aren't any args remaining in the event */ + +static OSErr +get_missing_params(AppleEvent *theAppleEvent) +{ + DescType theType; + Size actualSize; + OSErr err; + + err = AEGetAttributePtr(theAppleEvent, keyMissedKeywordAttr, typeWildCard, + &theType, nil, 0, &actualSize); + if (err == errAEDescNotFound) + return noErr; + else + return errAEEventNotHandled; +} + +static int got_one; /* Flag that we can stop getting events */ + +/* Handle the Print or Quit events (by failing) */ + +static pascal OSErr +handle_not(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) +{ + #pragma unused (reply, refCon) + got_one = 1; + return errAEEventNotHandled; +} + +/* Handle the Open Application event (by ignoring it) */ + +static pascal OSErr +handle_open_app(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) +{ + #pragma unused (reply, refCon) + got_one = 1; + return get_missing_params(theAppleEvent); +} + +/* Handle the Open Document event, by adding an argument */ + +static pascal OSErr +handle_open_doc(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) +{ + #pragma unused (reply, refCon) + OSErr err; + AEDescList doclist; + AEKeyword keywd; + DescType rttype; + long i, ndocs, size; + FSSpec fss; + char path[256]; + + got_one = 1; + if (err = AEGetParamDesc(theAppleEvent, + keyDirectObject, typeAEList, &doclist)) + return err; + if (err = get_missing_params(theAppleEvent)) + return err; + if (err = AECountItems(&doclist, &ndocs)) + return err; + for(i = 1; i <= ndocs; i++) { + err = AEGetNthPtr(&doclist, i, typeFSS, + &keywd, &rttype, &fss, sizeof(fss), &size); + if (err) + break; + get_full_path(&fss, path); + arg_vector[arg_count++] = strdup(path); + } + return err; +} + +/* Install standard core event handlers */ + +static void +set_ae_handlers() +{ + AEInstallEventHandler(kCoreEventClass, kAEOpenApplication, + NewAEEventHandlerProc(handle_open_app), 0L, false); + AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments, + NewAEEventHandlerProc(handle_open_doc), 0L, false); + AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments, + NewAEEventHandlerProc(handle_not), 0L, false); + AEInstallEventHandler(kCoreEventClass, kAEQuitApplication, + NewAEEventHandlerProc(handle_not), 0L, false); +} + +/* Uninstall standard core event handlers */ + +static void +reset_ae_handlers() +{ + AERemoveEventHandler(kCoreEventClass, kAEOpenApplication, + NewAEEventHandlerProc(handle_open_app), false); + AERemoveEventHandler(kCoreEventClass, kAEOpenDocuments, + NewAEEventHandlerProc(handle_open_doc), false); + AERemoveEventHandler(kCoreEventClass, kAEPrintDocuments, + NewAEEventHandlerProc(handle_not), false); + AERemoveEventHandler(kCoreEventClass, kAEQuitApplication, + NewAEEventHandlerProc(handle_not), false); +} + +/* Wait for events until a core event has been handled */ + +static void +event_loop() +{ + EventRecord event; + int n; + int ok; + + got_one = 0; + for (n = 0; n < 100 && !got_one; n++) { + SystemTask(); + ok = GetNextEvent(everyEvent, &event); + if (ok && event.what == kHighLevelEvent) { + AEProcessAppleEvent(&event); + } + } +} + +/* Initialize the Mac toolbox world */ + +static void +init_mac_world() +{ + MaxApplZone(); + InitGraf(&qd.thePort); + InitFonts(); + InitWindows(); + TEInit(); + InitDialogs((long)0); + InitMenus(); + InitCursor(); +} +/* Get the argv vector, return argc */ + +int +PyMac_GetArgv(pargv) + char ***pargv; +{ + init_mac_world(); + + arg_count = 0; + arg_vector[arg_count++] = strdup(get_application_name()); + + set_ae_handlers(); + event_loop(); + reset_ae_handlers(); + + arg_vector[arg_count] = NULL; + + *pargv = arg_vector; + return arg_count; +} + +/* Initialization sequence for normal application */ + +void +main() +{ + int argc; + char **argv; + + argc = PyMac_GetArgv(&argv); + Py_Main(argc, argv); +} |