source: trunk/Cocoa/F-Script Anywhere/Source/FSAApp.m @ 16

Last change on this file since 16 was 16, checked in by Nicholas Riley, 17 years ago

F-Script Anywhere 1.1.5

File size: 8.2 KB
Line 
1//
2//  FSAApp.m
3//  F-Script Anywhere
4//
5//  Created by Nicholas Riley on Fri Feb 01 2002.
6//  Copyright (c) 2002 Nicholas Riley. All rights reserved.
7//
8
9/*
10
11 F-Script Anywhere is free software; you can redistribute it and/or modify
12 it under the terms of the GNU General Public License as published by
13 the Free Software Foundation; either version 2 of the License, or
14 (at your option) any later version.
15
16 F-Script Anywhere is distributed in the hope that it will be useful,
17 but WITHOUT ANY WARRANTY; without even the implied warranty of
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19 GNU General Public License for more details.
20
21 You should have received a copy of the GNU General Public License
22 along with F-Script Anywhere; if not, write to the Free Software
23 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
24
25*/
26
27#import <PatchCocoa.h>
28#import "FSAApp.h"
29#import "FSAnywhere.h"
30
31NSString * const PatchBundleIdentifier = @"net.sabi.FScriptAnywhere";
32
33typedef struct {
34    OSStatus status;
35    NSString * const desc;
36} errRec, errList[];
37
38// These are just educated guesses based on the errors I've seen; I haven't seen these documented anywhere!
39static errList ERRS = {
40    { 5, @"F-Script Anywhere must be installed in a Cocoa application running as the current user.\n\nYou may be attempting to install in a setuid application, which is not supported" },
41    { 11, @"F-Script Anywhere cannot be installed in itself.\n\nIf you wish to install F-Script Anywhere in itself, make a copy of the F-Script Anywhere application and install one copy into the other" },
42    { smUnExBusErr, @"a bus error occurred.\n\nTry switching to the application first then using F-Script AnywhereÕs dock menu to install" },
43    { fnfErr, @"F-Script Anywhere was unable to locate its component to install in the application.  Please try reinstalling F-Script Anywhere" },
44    { cfragDupRegistrationErr, @"another running copy of F-Script Anywhere is already installed in the application"},
45    { 0, nil }
46};
47
48NSMutableDictionary *FSA_errors;
49
50NSString * FSA_descriptionForOSStatus(OSStatus status)
51{
52    NSString *desc = nil;
53   
54    if (FSA_errors != nil)
55        desc = [FSA_errors objectForKey: [NSNumber numberWithLong: status]];
56   
57    if (desc != nil)
58        return desc;
59   
60    return [NSString stringWithFormat: @"an error of type %ld occurred", status];
61}
62
63
64@implementation FSAApp
65
66+ (void)initialize;
67{
68    errRec *rec;
69
70    FSA_errors = [[NSMutableDictionary alloc] init];
71    for (rec = &(ERRS[0]) ; rec->status != 0 ; rec++)
72        [FSA_errors setObject: rec->desc forKey: [NSNumber numberWithLong: rec->status]];
73}
74
75- (void)finishLaunching
76{
77    // yes, someone could move the framework while the app is running, but they deserve what they get.
78    NSFileManager *fileMgr = [NSFileManager defaultManager];
79    NSArray *libraryDirectories =
80        NSSearchPathForDirectoriesInDomains(NSLibraryDirectory, NSAllDomainsMask, TRUE);
81    NSEnumerator *e = [libraryDirectories objectEnumerator];
82    NSString *libPath;
83    NSString *frameworkPath;
84    BOOL isDirectory;
85    BOOL found = NO;
86
87    while ( (libPath = [e nextObject]) != nil) {
88        frameworkPath = [libPath stringByAppendingPathComponent: @"Frameworks"];
89        if ([fileMgr fileExistsAtPath: [frameworkPath stringByAppendingPathComponent: @"FScript.framework"]
90                          isDirectory: &isDirectory] && isDirectory) {
91            found = YES;
92        }
93    }
94    [super finishLaunching];
95    if (!found) {
96        int result = NSRunInformationalAlertPanel(@"F-Script Framework Not Found", @"F-Script Anywhere requires the F-Script framework be installed in a Frameworks directory, such as ~/Library/Frameworks or /Library/Frameworks.\n\nTo download F-Script, please visit its Web site %@.\n\nIf you believe this message is in error, click ÒContinueÓ.", @"Quit", @"Get F-Script", @"Continue", FSA_FScriptURL);
97        switch (result) {
98            case NSAlertOtherReturn:
99                break;
100            case NSAlertAlternateReturn:
101                [[NSWorkspace sharedWorkspace] openURL: [NSURL URLWithString: FSA_FScriptURL]];
102            case NSAlertDefaultReturn:
103            default:
104                [self terminate: self];
105                return;
106        }
107    }
108    [[PatchController sharedPatchController] setDelegate: self];
109    // In Jaguar 6C115, libPatch no longer delivers process death notifications to the application unless it registers for NSWorkspaceDidTerminateApplicationNotification.  (Process launch notifications are still received.)
110    [[[NSWorkspace sharedWorkspace] notificationCenter]
111        addObserver: self
112           selector: @selector(applicationDidTerminate:)
113               name: NSWorkspaceDidTerminateApplicationNotification
114             object: nil];
115}
116
117// This method causes the selected applications to quit, because the Objective-C runtime in Mac OS X does not support unloading of classes.
118- (void)unloadBundles:(id)sender
119{
120    UInt32      index,count;
121    NSArray     *pids;
122
123   
124    pids = [[PatchController sharedPatchController] processPIDsForPatchWithIdentifier:PatchBundleIdentifier];
125    count = [pids count];
126    for (index = 0 ; index < count ; index ++)
127    {
128        [[PatchController sharedPatchController] messagePatchForProcessWithPID:[[pids objectAtIndex:index] longValue]
129                                                                    identifier:PatchBundleIdentifier message:'bye ' data:NULL length:0];
130
131        [[PatchController sharedPatchController] unloadPatchForProcessWithPID:[[pids objectAtIndex:index] longValue]
132                                                                   identifier:PatchBundleIdentifier];
133    }
134
135}
136
137- (void)installBundleInAppWithPID:(pid_t)pid;
138{
139    OSStatus err;
140
141    if (pid == -1) return;
142
143    // XXX Switch to application first, resolves crash in Project Builder.
144    // XXX Fix window closing problem.
145   
146    err = [[PatchController sharedPatchController] loadPatchForProcessWithPID:pid identifier:PatchBundleIdentifier
147                                                                         path:[NSString stringWithFormat:@"%@/F-Script Anywhere",
148                                                                             [[NSBundle mainBundle] resourcePath]]
149                                                                     detached:NO];
150    if (err == noErr) {
151        [[PatchController sharedPatchController] messagePatchForProcessWithPID:pid identifier:PatchBundleIdentifier
152                                                                       message:'helo' data:NULL length:0];
153        [appList didPatchProcessID: pid];
154    }
155    else {
156        NSBeginAlertSheet(@"Installation failed", @"OK", nil, nil, appListPanel, self, nil, nil, nil,
157                          @"F-Script Anywhere was unable to install itself in the selected application (process ID %d), because %@.\n\nThe application may have crashed; restart it if needed.", pid, FSA_descriptionForOSStatus(err));
158    }
159}
160
161- (IBAction)installBundleInSelectedApp:(id)sender;
162{
163    [self installBundleInAppWithPID: [appList selectedProcessID]];
164}
165
166// from dock menu only!
167- (IBAction)installBundleInFrontmostApp:(id)sender;
168{
169    NSAssert1([sender tag] > 0, @"Unable to determine frontmost application from %@", sender);
170    [self installBundleInAppWithPID: (pid_t)[sender tag]];
171}
172
173@end
174
175@implementation FSAApp (NSWorkspaceNotifications)
176
177- (void)applicationDidTerminate:(NSNotification *)notification;
178{
179    NSDictionary *userInfo = [notification userInfo];
180    FSALog(@"Process terminated (pid %6d): %@\n",
181           [[userInfo objectForKey: @"NSApplicationProcessIdentifier"] intValue],
182           [userInfo objectForKey: @"NSApplicationName"]);
183    // Don't do anything here, this is a dummy method triggered by a NSWorkspaceDidTerminateApplicationNotification
184}
185
186@end
187
188@implementation FSAApp (PatchControllerDelegate)
189
190- (void) notifyProcessLaunch:(pid_t)pid info:(NSDictionary*)info
191{
192    [appList applicationLaunchedWithProcessID: pid];
193}
194
195// this delegate method is never invoked in Mac OS X 10.2 unless I register for NSWorkspaceDidTerminateApplicationNotification
196- (void) notifyProcessDeath:(pid_t)pid info:(NSDictionary*)info
197{
198    FSALog(@"Process exited (pid %6d): %@\n", pid, [info objectForKey: PatchControllerNameKey]);
199    [appList applicationQuitWithProcessID: pid];
200}
201
202@end
Note: See TracBrowser for help on using the repository browser.