get argc/argv from AppleEvents

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(&currentPSN, &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);
+}