Mac/Python/macgetargv.c

   1 /***********************************************************
   2 Copyright 1991-1997 by Stichting Mathematisch Centrum, Amsterdam,
   3 The Netherlands.
   4
   5                         All Rights Reserved
   6
   7 Permission to use, copy, modify, and distribute this software and its
   8 documentation for any purpose and without fee is hereby granted,
   9 provided that the above copyright notice appear in all copies and that
  10 both that copyright notice and this permission notice appear in
  11 supporting documentation, and that the names of Stichting Mathematisch
  12 Centrum or CWI not be used in advertising or publicity pertaining to
  13 distribution of the software without specific, written prior permission.
  14
  15 STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
  16 THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
  17 FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
  18 FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  21 OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  22
  23 ******************************************************************/
  24
  25 /* Construct argc and argv for main() by using Apple Events */
  26 /* From Jack's implementation for STDWIN */
  27
  28 #include <stdlib.h>
  29
  30 #ifdef WITHOUT_FRAMEWORKS
  31 #include <Types.h>
  32 #include <Files.h>
  33 #include <Events.h>
  34 #include <Memory.h>
  35 #include <Processes.h>
  36 #include <Errors.h>
  37 #include <AppleEvents.h>
  38 #include <AEObjects.h>
  39 #include <Fonts.h>
  40 #include <TextEdit.h>
  41 #include <Menus.h>
  42 #include <Dialogs.h>
  43 #include <Windows.h>
  44 #else
  45 #include <Carbon/Carbon.h>
  46 #endif /* WITHOUT_FRAMEWORKS */
  47
  48 typedef long refcontype;
  49
  50 #include "Python.h"
  51 #include "macglue.h"
  52
  53 #define PATHNAMELEN 256
  54
  55 static int arg_count;
  56 static char *arg_vector[256];
  57 FSSpec PyMac_ApplicationFSSpec;
  58 char PyMac_ApplicationPath[PATHNAMELEN];
  59
  60 /* Duplicate a string to the heap. We also export this since it isn't standard
  61 ** and others use it
  62 */
  63 #ifndef HAVE_STRDUP
  64 char *
  65 strdup(const char *src)
  66 {
  67         char *dst = malloc(strlen(src) + 1);
  68         if (dst)
  69                 strcpy(dst, src);
  70         return dst;
  71 }
  72 #endif
  73
  74 /* Initialize FSSpec and full name of current application */
  75
  76 OSErr
  77 PyMac_init_process_location(void)
  78 {
  79         ProcessSerialNumber currentPSN;
  80         ProcessInfoRec info;
  81         OSErr err;
  82         static int applocation_inited;
  83
  84         if ( applocation_inited ) return 0;
  85         currentPSN.highLongOfPSN = 0;
  86         currentPSN.lowLongOfPSN = kCurrentProcess;
  87         info.processInfoLength = sizeof(ProcessInfoRec);
  88         info.processName = NULL;
  89         info.processAppSpec = &PyMac_ApplicationFSSpec;
  90         if ( err=GetProcessInformation(&currentPSN, &info))
  91                 return err;
  92         if ( err=PyMac_GetFullPathname(&PyMac_ApplicationFSSpec, PyMac_ApplicationPath, PATHNAMELEN) )
  93                 return err;
  94         applocation_inited = 1;
  95         return 0;
  96 }
  97
  98 /* Check that there aren't any args remaining in the event */
  99
 100 static OSErr
 101 get_missing_params(const AppleEvent *theAppleEvent)
 102 {
 103         DescType theType;
 104         Size actualSize;
 105         OSErr err;
 106
 107         err = AEGetAttributePtr(theAppleEvent, keyMissedKeywordAttr, typeWildCard,
 108                                 &theType, nil, 0, &actualSize);
 109         if (err == errAEDescNotFound)
 110                 return noErr;
 111         else
 112                 return errAEEventNotHandled;
 113 }
 114
 115 static int got_one; /* Flag that we can stop getting events */
 116
 117 /* Handle the Print or Quit events (by failing) */
 118
 119 static pascal OSErr
 120 handle_not(const AppleEvent *theAppleEvent, AppleEvent *reply, refcontype refCon)
 121 {
 122         #pragma unused (reply, refCon)
 123         got_one = 1;
 124         return errAEEventNotHandled;
 125 }
 126
 127 /* Handle the Open Application event (by ignoring it) */
 128
 129 static pascal OSErr
 130 handle_open_app(const AppleEvent *theAppleEvent, AppleEvent *reply, refcontype refCon)
 131 {
 132         #pragma unused (reply, refCon)
 133 #if 0
 134         /* Test by Jack: would removing this facilitate debugging? */
 135         got_one = 1;
 136 #endif
 137         return get_missing_params(theAppleEvent);
 138 }
 139
 140 /* Handle the Open Document event, by adding an argument */
 141
 142 static pascal OSErr
 143 handle_open_doc(const AppleEvent *theAppleEvent, AppleEvent *reply, refcontype refCon)
 144 {
 145         #pragma unused (reply, refCon)
 146         OSErr err;
 147         AEDescList doclist;
 148         AEKeyword keywd;
 149         DescType rttype;
 150         long i, ndocs, size;
 151         FSSpec fss;
 152         char path[PATHNAMELEN];
 153
 154         got_one = 1;
 155         if ((err = AEGetParamDesc(theAppleEvent,
 156                                  keyDirectObject, typeAEList, &doclist)))
 157                 return err;
 158         if ((err = get_missing_params(theAppleEvent)))
 159                 return err;
 160         if ((err = AECountItems(&doclist, &ndocs)))
 161                 return err;
 162         for(i = 1; i <= ndocs; i++) {
 163                 err = AEGetNthPtr(&doclist, i, typeFSS,
 164                                   &keywd, &rttype, &fss, sizeof(fss), &size);
 165                 if (err)
 166                         break;
 167                 PyMac_GetFullPathname(&fss, path, PATHNAMELEN);
 168                 arg_vector[arg_count++] = strdup(path);
 169         }
 170         return err;
 171 }
 172
 173 /* Install standard core event handlers */
 174 AEEventHandlerUPP open_doc_upp;
 175 AEEventHandlerUPP open_app_upp;
 176 AEEventHandlerUPP not_upp;
 177
 178 static void
 179 set_ae_handlers(void)
 180 {
 181         open_doc_upp = NewAEEventHandlerUPP(&handle_open_doc);
 182         open_app_upp = NewAEEventHandlerUPP(&handle_open_app);
 183         not_upp = NewAEEventHandlerUPP(&handle_not);
 184
 185         AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,
 186                               open_app_upp, 0L, false);
 187         AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments,
 188                               open_doc_upp, 0L, false);
 189         AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments,
 190                               not_upp, 0L, false);
 191         AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,
 192                               not_upp, 0L, false);
 193 }
 194
 195 /* Uninstall standard core event handlers */
 196
 197 static void
 198 reset_ae_handlers(void)
 199 {
 200         AERemoveEventHandler(kCoreEventClass, kAEOpenApplication,
 201                              open_app_upp, false);
 202         AERemoveEventHandler(kCoreEventClass, kAEOpenDocuments,
 203                              open_doc_upp, false);
 204         AERemoveEventHandler(kCoreEventClass, kAEPrintDocuments,
 205                              not_upp, false);
 206         AERemoveEventHandler(kCoreEventClass, kAEQuitApplication,
 207                              not_upp, false);
 208 }
 209
 210 /* Wait for events until a core event has been handled */
 211
 212 static void
 213 event_loop(void)
 214 {
 215         EventRecord event;
 216         int n;
 217         int ok;
 218
 219         got_one = 0;
 220         for (n = 0; n < 100 && !got_one; n++) {
 221                 ok = GetNextEvent(everyEvent, &event);
 222                 if (ok && event.what == kHighLevelEvent) {
 223                         AEProcessAppleEvent(&event);
 224                 }
 225         }
 226 }
 227
 228 /* Get the argv vector, return argc */
 229
 230 int
 231 PyMac_GetArgv(char ***pargv, int noevents)
 232 {
 233         arg_count = 0;
 234         (void)PyMac_init_process_location();
 235         arg_vector[arg_count++] = strdup(PyMac_ApplicationPath);
 236
 237         if( !noevents ) {
 238                 set_ae_handlers();
 239                 event_loop();
 240                 reset_ae_handlers();
 241         }
 242
 243         arg_vector[arg_count] = NULL;
 244
 245         *pargv = arg_vector;
 246         return arg_count;
 247 }