#pragma mark Includes

#include <Carbon/Carbon.h>

#include <CoreFoundation/CoreFoundation.h>

#include <Security/Authorization.h>

#include <Security/AuthorizationTags.h>

#include <string.h>

#include <unistd.h>

#include <sys/wait.h>

#include <pthread.h>

#include <stdio.h>

#pragma mark Definitions

#define kMaxPathLength 1024

#define kScriptFileName "script"

#define kOpenDocFileName "openDoc"

#define kEventClassRedFatalAlert 911

#define kEventKindX11Failed 911

#define kEventKindFCCacheFailed 912

#define kMaxArgumentsToScript 252

#pragma mark Prototypes

static void *Execute(void *arg);

static void *OpenDoc(void *arg);

static OSErr ExecuteScript(char *script, pid_t *pid);

static void GetParameters(void);

static char* GetScript(void);

static char* GetOpenDoc(void);

OSErr LoadMenuBar(char *appName);

static OSStatus FSMakePath(FSSpec file, char *path, long maxPathSize);

static void RedFatalAlert(Str255 errorString, Str255 expStr);

static short DoesFileExist(char *path);

static OSStatus FixFCCache(void);

static OSErr AppQuitAEHandler(const AppleEvent *theAppleEvent,

AppleEvent *reply, long refCon);

static OSErr AppOpenDocAEHandler(const AppleEvent *theAppleEvent,

AppleEvent *reply, long refCon);

static OSErr AppOpenAppAEHandler(const AppleEvent *theAppleEvent,

AppleEvent *reply, long refCon);

static OSStatus X11FailedHandler(EventHandlerCallRef theHandlerCall,

EventRef theEvent, void *userData);

static OSStatus FCCacheFailedHandler(EventHandlerCallRef theHandlerCall,

EventRef theEvent, void *userData);

#pragma mark Globals

pid_t pid = 0;

pthread_t odtid = 0, tid = 0;

short taskDone = true;

char scriptPath[kMaxPathLength];

char openDocPath[kMaxPathLength];

char *arguments[kMaxArgumentsToScript+3];

char *fileArgs[kMaxArgumentsToScript];

short numArgs = 0;

extern char **environ;

#pragma mark -

int main(int argc, char* argv[])

{

OSErr err = noErr;

EventTypeSpec X11events = { kEventClassRedFatalAlert, kEventKindX11Failed };

EventTypeSpec FCCacheEvents = { kEventClassRedFatalAlert, kEventKindFCCacheFailed };

InitCursor();

//install Apple Event handlers

err += AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,

NewAEEventHandlerUPP(AppQuitAEHandler),

0, false);

err += AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments,

NewAEEventHandlerUPP(AppOpenDocAEHandler),

0, false);

err += AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,

NewAEEventHandlerUPP(AppOpenAppAEHandler),

0, false);

err += InstallEventHandler(GetApplicationEventTarget(),

NewEventHandlerUPP(X11FailedHandler), 1,

&X11events, NULL, NULL);

err += InstallEventHandler(GetApplicationEventTarget(),

NewEventHandlerUPP(FCCacheFailedHandler), 1,

&FCCacheEvents, NULL, NULL);

if (err) RedFatalAlert("\pInitialization Error",

"\pError initing Apple Event handlers.");

//create the menu bar

if (err = LoadMenuBar(NULL)) RedFatalAlert("\pInitialization Error",

"\pError loading MenuBar.nib.");

GetParameters(); //load data from files containing exec settings

RunApplicationEventLoop(); //Run the event loop

return 0;

}

#pragma mark -

static void RequestUserAttention(void)

{

NMRecPtr notificationRequest = (NMRecPtr) NewPtr(sizeof(NMRec));

memset(notificationRequest, 0, sizeof(*notificationRequest));

notificationRequest->qType = nmType;

notificationRequest->nmMark = 1;

notificationRequest->nmIcon = 0;

notificationRequest->nmSound = 0;

notificationRequest->nmStr = NULL;

notificationRequest->nmResp = NULL;

verify_noerr(NMInstall(notificationRequest));

}

static void ShowFirstStartWarningDialog(void)

{

SInt16 itemHit;

AlertStdAlertParamRec params;

params.movable = true;

params.helpButton = false;

params.filterProc = NULL;

params.defaultText = (void *) kAlertDefaultOKText;

params.cancelText = NULL;

params.otherText = NULL;

params.defaultButton = kAlertStdAlertOKButton;

params.cancelButton = kAlertStdAlertCancelButton;

params.position = kWindowDefaultPosition;

StandardAlert(kAlertNoteAlert, "\pInkscape on Mac OS X",

"\pWhile Inkscape is open, its windows can be displayed or hidden by displaying or hiding the X11 application.\n\nThe first time this version of Inkscape is run it may take several minutes before the main window is displayed while font caches are built.",

&params, &itemHit);

}

static OSStatus FCCacheFailedHandler(EventHandlerCallRef theHandlerCall,

EventRef theEvent, void *userData)

{

pthread_join(tid, NULL);

if (odtid) pthread_join(odtid, NULL);

// Bounce Inkscape Dock icon

RequestUserAttention();

// Need to show warning to the user, then carry on.

ShowFirstStartWarningDialog();

// Note that we've seen the warning.

system("test -d \"$HOME/.inkscape\" || mkdir \"$HOME/.inkscape\"; "

"touch \"$HOME/.inkscape/.fccache-new\"");

// Rerun now.

OSErr err = ExecuteScript(scriptPath, &pid);

ExitToShell();

return noErr;

}

static size_t safeRead(int d, void *buf, size_t nbytes)

{

ssize_t bytesToRead = nbytes;

ssize_t bytesRead = 0;

char *offset = (char *) buf;

while ((bytesToRead > 0))

{

bytesRead = read(d, offset, bytesToRead);

if (bytesRead > 0)

{

offset += bytesRead;

bytesToRead -= bytesRead;

}

else if (bytesRead == 0)

{

// Reached EOF.

break;

}

else if (bytesRead == -1)

{

if ((errno == EINTR) || (errno == EAGAIN))

{

// Try again.

continue;

}

return 0;

}

}

return bytesRead;

}

static OSStatus FixFCCache (void)

{

FILE *fileConnToChild = NULL;

int fdConnToChild = 0;

pid_t childPID = WAIT_ANY;

size_t bytesChildPID;

size_t bytesRead;

int status;

char commandStr[] = "/usr/X11R6/bin/fc-cache";

char *commandArgs[] = { "-f", NULL };

// Run fc-cache

AuthorizationItem authItems[] =

{

{

kAuthorizationRightExecute,

strlen(commandStr),

commandStr,

0

}

};

AuthorizationItemSet authItemSet =

{

1,

authItems

};

AuthorizationRef authRef = NULL;

OSStatus err = AuthorizationCreate (NULL, &authItemSet,

kAuthorizationFlagInteractionAllowed |

kAuthorizationFlagExtendRights, &authRef);

if (err == errAuthorizationSuccess)

{

err = AuthorizationExecuteWithPrivileges(authRef, commandStr,

kAuthorizationFlagDefaults, commandArgs,

&fileConnToChild);

if (err == errAuthorizationSuccess)

{

// Unfortunately, AuthorizationExecuteWithPrivileges

// does not return the process ID associated with the

// process it runs. The best solution we have it to

// try and get the process ID from the file descriptor.

// This is based on example code from Apple's

// MoreAuthSample.

fdConnToChild = fileno(fileConnToChild);

// Try an get the process ID of the fc-cache command

bytesChildPID = sizeof(childPID);

bytesRead = safeRead(fdConnToChild, &childPID,

bytesChildPID);

if (bytesRead != bytesChildPID)

{

// If we can't get it the best alternative

// is to wait for any child to finish.

childPID = WAIT_ANY;

}

if (fileConnToChild != NULL) {

fclose(fileConnToChild);

}

// Wait for child process to finish.

waitpid(childPID, &status, 0);

}

}

AuthorizationFree(authRef, kAuthorizationFlagDestroyRights);

return err;

}

static void *Execute (void *arg)

{

EventRef event;

taskDone = false;

OSErr err = ExecuteScript(scriptPath, &pid);

if (err == (OSErr)11) {

CreateEvent(NULL, kEventClassRedFatalAlert, kEventKindX11Failed, 0,

kEventAttributeNone, &event);

PostEventToQueue(GetMainEventQueue(), event, kEventPriorityStandard);

}

else if (err == (OSErr)12) {

CreateEvent(NULL, kEventClassRedFatalAlert, kEventKindFCCacheFailed, 0,

kEventAttributeNone, &event);

PostEventToQueue(GetMainEventQueue(), event, kEventPriorityHigh);

}

else ExitToShell();

return 0;

}

static void *OpenDoc (void *arg)

{

ExecuteScript(openDocPath, NULL);

return 0;

}

static OSErr ExecuteScript (char *script, pid_t *pid)

{

pid_t wpid = 0, p = 0;

int status, i;

if (! pid) pid = &p;

// Generate the array of argument strings before we do any executing

arguments[0] = script;

for (i = 0; i < numArgs; i++) arguments[i + 1] = fileArgs[i];

arguments[i + 1] = NULL;

*pid = fork(); //open fork

if (*pid == (pid_t)-1) exit(13); //error

else if (*pid == 0) { //child process started

execve(arguments[0], arguments, environ);

exit(13); //if we reach this point, there's an error

}

wpid = waitpid(*pid, &status, 0); //wait while child process finishes

if (wpid == (pid_t)-1) return wpid;

return (OSErr)WEXITSTATUS(status);

}

#pragma mark -

static void GetParameters (void)

{

char *str;

if (! (str = (char *)GetScript())) //get path to script to be executed

RedFatalAlert("\pInitialization Error",

"\pError getting script from application bundle.");

strcpy((char *)&scriptPath, str);

if (! (str = (char *)GetOpenDoc())) //get path to openDoc

RedFatalAlert("\pInitialization Error",

"\pError getting openDoc from application bundle.");

strcpy((char *)&openDocPath, str);

}

static char* GetScript (void)

{

CFStringRef fileName;

CFBundleRef appBundle;

CFURLRef scriptFileURL;

FSRef fileRef;

FSSpec fileSpec;

char *path;

//get CF URL for script

if (! (appBundle = CFBundleGetMainBundle())) return NULL;

if (! (fileName = CFStringCreateWithCString(NULL, kScriptFileName,

kCFStringEncodingASCII)))

return NULL;

if (! (scriptFileURL = CFBundleCopyResourceURL(appBundle, fileName, NULL,

NULL))) return NULL;

//Get file reference from Core Foundation URL

if (! CFURLGetFSRef(scriptFileURL, &fileRef)) return NULL;

//dispose of the CF variables

CFRelease(scriptFileURL);

CFRelease(fileName);

//convert FSRef to FSSpec

if (FSGetCatalogInfo(&fileRef, kFSCatInfoNone, NULL, NULL, &fileSpec,

NULL)) return NULL;

//create path string

if (! (path = malloc(kMaxPathLength))) return NULL;

if (FSMakePath(fileSpec, path, kMaxPathLength)) return NULL;

if (! DoesFileExist(path)) return NULL;

return path;

}

static char* GetOpenDoc (void)

{

CFStringRef fileName;

CFBundleRef appBundle;

CFURLRef openDocFileURL;

FSRef fileRef;

FSSpec fileSpec;

char *path;

//get CF URL for openDoc

if (! (appBundle = CFBundleGetMainBundle())) return NULL;

if (! (fileName = CFStringCreateWithCString(NULL, kOpenDocFileName,

kCFStringEncodingASCII)))

return NULL;

if (! (openDocFileURL = CFBundleCopyResourceURL(appBundle, fileName, NULL,

NULL))) return NULL;

//Get file reference from Core Foundation URL

if (! CFURLGetFSRef( openDocFileURL, &fileRef )) return NULL;

//dispose of the CF variables

CFRelease(openDocFileURL);

CFRelease(fileName);

//convert FSRef to FSSpec

if (FSGetCatalogInfo(&fileRef, kFSCatInfoNone, NULL, NULL, &fileSpec,

NULL)) return NULL;

//create path string

if (! (path = malloc(kMaxPathLength))) return NULL;

if (FSMakePath(fileSpec, path, kMaxPathLength)) return NULL;

if (! DoesFileExist(path)) return NULL;

return path;

}

#pragma mark -

OSErr LoadMenuBar (char *appName)

{

OSErr err;

IBNibRef nibRef;

if (err = CreateNibReference(CFSTR("MenuBar"), &nibRef)) return err;

if (err = SetMenuBarFromNib(nibRef, CFSTR("MenuBar"))) return err;

DisposeNibReference(nibRef);

return noErr;

}

#pragma mark -

static OSStatus FSMakePath(FSSpec file, char *path, long maxPathSize)

{

OSErr err = noErr;

FSRef fileRef;

//create file reference from file spec

if (err = FSpMakeFSRef(&file, &fileRef)) return err;

// and then convert the FSRef to a path

return FSRefMakePath(&fileRef, path, maxPathSize);

}

static void RedFatalAlert (Str255 errorString, Str255 expStr)

{

StandardAlert(kAlertStopAlert, errorString, expStr, NULL, NULL);

ExitToShell();

}

static short DoesFileExist (char *path)

{

if (access(path, F_OK) == -1) return false;

return true;

}

#pragma mark -

static OSErr AppQuitAEHandler(const AppleEvent *theAppleEvent,

AppleEvent *reply, long refCon)

{

#pragma unused (reply, refCon, theAppleEvent)

while (numArgs > 0) free(fileArgs[numArgs--]);

if (! taskDone && pid) { //kill the script process brutally

kill(pid, 9);

printf("Platypus App: PID %d killed brutally\n", pid);

}

pthread_cancel(tid);

if (odtid) pthread_cancel(odtid);

ExitToShell();

return noErr;

}

static OSErr AppOpenDocAEHandler(const AppleEvent *theAppleEvent,

AppleEvent *reply, long refCon)

{

#pragma unused (reply, refCon)

OSErr err = noErr;

AEDescList fileSpecList;

AEKeyword keyword;

DescType type;

short i;

long count, actualSize;

FSSpec fileSpec;

char path[kMaxPathLength];

while (numArgs > 0) free(fileArgs[numArgs--]);

//Read the AppleEvent

err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeAEList,

&fileSpecList);

err = AECountItems(&fileSpecList, &count); //Count number of files

for (i = 1; i <= count; i++) { //iteratively process each file

//get fsspec from apple event

if (! (err = AEGetNthPtr(&fileSpecList, i, typeFSS, &keyword, &type,

(Ptr)&fileSpec, sizeof(FSSpec), &actualSize)))

{

//get path from file spec

if ((err = FSMakePath(fileSpec, (unsigned char *)&path,

kMaxPathLength))) return err;

if (numArgs == kMaxArgumentsToScript) break;

if (! (fileArgs[numArgs] = malloc(kMaxPathLength))) return true;

strcpy(fileArgs[numArgs++], (char *)&path);

}

else return err;

}

if (! taskDone) pthread_create(&odtid, NULL, OpenDoc, NULL);

else pthread_create(&tid, NULL, Execute, NULL);

return err;

}

static OSErr AppOpenAppAEHandler(const AppleEvent *theAppleEvent,

AppleEvent *reply, long refCon)

{

#pragma unused (reply, refCon, theAppleEvent)

// the app has been opened without any items dragged on to it

pthread_create(&tid, NULL, Execute, NULL);

return noErr;

}

static void OpenURL(Str255 url)

{

// Use Internet Config to hand the URL to the appropriate application, as

// set by the user in the Internet Preferences pane.

ICInstance icInstance;

// Applications creator code:

OSType signature = 'Inks';

OSStatus error = ICStart( &icInstance, signature );

if ( error == noErr )

{

ConstStr255Param hint = 0x0;

const char* data = url;

long length = strlen(url);

long start = 0;

long end = length;

// Don't bother testing return value (error); launched application will

// report problems.

ICLaunchURL( icInstance, hint, data, length, &start, &end );

ICStop( icInstance );

}

}

static OSStatus X11FailedHandler(EventHandlerCallRef theHandlerCall,

EventRef theEvent, void *userData)

{

#pragma unused(theHanderCall, theEvent, userData)

pthread_join(tid, NULL);

if (odtid) pthread_join(odtid, NULL);

SInt16 itemHit;

const char *getX11 = "\pGet X11 for Panther";

AlertStdAlertParamRec params;

params.movable = true;

params.helpButton = false;

params.filterProc = NULL;

params.defaultText = (StringPtr) kAlertDefaultOKText;

params.cancelText = getX11;

params.otherText = NULL;

params.defaultButton = kAlertStdAlertOKButton;

params.cancelButton = kAlertStdAlertCancelButton;

params.position = kWindowDefaultPosition;

StandardAlert(kAlertStopAlert, "\pFailed to start X11",

"\pInkscape.app requires Apple's X11, which is freely downloadable from Apple's website for Panther (10.3.x) users and available as an optional install from the installation DVD for Tiger (10.4.x) users.\n\nPlease install X11 and restart Inkscape.",

&params, &itemHit);

if (itemHit == kAlertStdAlertCancelButton)

{

OpenURL("http://www.apple.com/downloads/macosx/apple/x11formacosx.html");

}

ExitToShell();

return noErr;

}