lyx_mirror/src/support/AppleScript.m
2017-07-03 14:46:27 -04:00

53 lines
1.2 KiB
Objective-C

/**
* \file AppleScript.m
* This file is part of LyX, the document processor.
* Licence details can be found in the file COPYING.
*
* \author Benjamin Piwowarski
*
* Full author contact details are available in file CREDITS.
*/
#import <Cocoa/Cocoa.h>
#include "AppleScript.h"
@interface LyxCommand : NSScriptCommand {
}
- (id)performDefaultImplementation;
@end
@implementation LyxCommand
- (id)performDefaultImplementation {
// Get the command and argument
NSDictionary * theArguments = [self evaluatedArguments];
NSString * directParameter = [self directParameter];
NSString *arg = [theArguments objectForKey: @"arg"];
// Execute the command
LyXFunctionResult result = applescript_execute_command([directParameter UTF8String], [arg UTF8String]);
// Construct the result record
NSString *message = [NSString stringWithCString:result.message encoding:NSUTF8StringEncoding];
free(result.message);
if (result.code != 0) {
NSScriptCommand* c = [NSScriptCommand currentCommand];
[c setScriptErrorNumber:result.code];
[c setScriptErrorString:message];
return NULL;
}
return message;
}
@end
/// Needed by AppleScript in order to discover LyxCommand
void setupApplescript() {
}