public static IList <string> GetUrlListFromEventRef(IntPtr eventRef)
{
AEDesc list = GetEventParameter <AEDesc> (eventRef, CarbonEventParameterName.DirectObject, CarbonEventParameterType.AEList);
try {
return(AppleEvent.GetUtf8StringListFromAEDesc(ref list, true));
} finally {
Carbon.CheckReturn((int)AppleEvent.AEDisposeDesc(ref list));
}
}
public static string Run(byte[] compiledBytes)
{
AEDesc sourceData = new AEDesc();
try {
AppleEvent.AECreateDesc((OSType)(int)OsaType.OsaGenericStorage, compiledBytes, out sourceData);
return(Run(false, ref sourceData));
} finally {
AppleEvent.AEDisposeDesc(ref sourceData);
}
}
public static string Run(string scriptSource)
{
AEDesc sourceData = new AEDesc();
try {
//apparently UnicodeText doesn't work
AppleEvent.AECreateDescAscii(scriptSource, out sourceData);
return(Run(true, ref sourceData));
} finally {
AppleEvent.AEDisposeDesc(ref sourceData);
}
}
public static T AEGetNthPtr <T> (ref AEDesc descList, int index, OSType desiredType) where T : struct
{
int len = Marshal.SizeOf(typeof(T));
IntPtr bufferPtr = Marshal.AllocHGlobal(len);
try {
CheckReturn(AEGetNthPtr(ref descList, index, desiredType, 0, 0, bufferPtr, len, 0));
T val = (T)Marshal.PtrToStructure(bufferPtr, typeof(T));
return(val);
} finally{
Marshal.FreeHGlobal(bufferPtr);
}
}
public static T[] GetListFromAEDesc <T, TRef> (ref AEDesc list, AEDescValueSelector <TRef, T> sel, OSType type)
where TRef : struct
{
long count = AppleEvent.AECountItems(ref list);
T[] arr = new T[count];
for (int i = 1; i <= count; i++)
{
TRef r = AppleEvent.AEGetNthPtr <TRef> (ref list, i, type);
arr [i - 1] = sel(ref r);
}
return(arr);
}
static string Run(bool compile, ref AEDesc scriptData)
{
string value;
var ret = Run(compile, ref scriptData, out value);
if (ret == OsaError.Success)
{
return(value);
}
else
{
throw new Exception(string.Format("Error {0}: {1}", ret, value));
}
}
public static IList <string> GetUtf8StringListFromAEDesc(ref AEDesc list, bool skipEmpty)
{
long count = AppleEvent.AECountItems(ref list);
var items = new List <string> ();
for (int i = 1; i <= count; i++)
{
string str = AppleEvent.GetUtf8StringFromAEPtr(ref list, i);
if (!string.IsNullOrEmpty(str))
{
items.Add(str);
}
}
return(items);
}
static string Run(bool compile, ref AEDesc scriptData)
{
string value;
var ret = Run(compile, ref scriptData, out value);
switch (ret)
{
case OsaError.Success:
return(value);
case OsaError.Timeout:
throw new TimeoutException("The AppleScript command timed out.");
default:
throw new AppleScriptException(ret, value);
}
}
public static string Run(string scriptSource)
{
AEDesc sourceData = new AEDesc();
try {
AppleEvent.AECreateDescUtf8(scriptSource, out sourceData);
return(Run(true, ref sourceData));
} catch (AppleScriptException ex) {
MonoDevelop.Core.LoggingService.LogWarning(
"Applescript failure: {0}\n[[\n{1}\n]]",
ex.Message,
scriptSource);
throw;
} finally {
AppleEvent.AEDisposeDesc(ref sourceData);
}
}
public static string GetStringFromAEDesc(ref AEDesc desc)
{
int size = AEGetDescDataSize(ref desc);
if (size > 0)
{
IntPtr buffer = Marshal.AllocHGlobal(size);
try {
if (AEGetDescData(ref desc, buffer, size) == AEDescStatus.Ok)
{
return(Marshal.PtrToStringAuto(buffer, size));
}
} finally {
Marshal.FreeHGlobal(buffer);
}
}
return(null);
}
//FIXME: this might not work in some encodings. need to test more.
static string GetUtf8StringFromAEPtr(ref AEDesc descList, int index)
{
int size;
var type = (OSType)(int)CarbonEventParameterType.UnicodeText;
if (AESizeOfNthItem(ref descList, index, ref type, out size) == AEDescStatus.Ok)
{
IntPtr buffer = Marshal.AllocHGlobal(size);
try {
if (AEGetNthPtr(ref descList, index, type, 0, 0, buffer, size, 0) == AEDescStatus.Ok)
{
return(Marshal.PtrToStringAuto(buffer, size));
}
} finally {
Marshal.FreeHGlobal(buffer);
}
}
return(null);
}
static extern AEDescStatus AEGetDescData(ref AEDesc desc, IntPtr ptr, int maximumSize);
public static extern AEDescStatus AESizeOfNthItem(ref AEDesc descList, int index, ref OSType type, out int size);
public static extern AEDescStatus AEDisposeDesc(ref AEDesc desc);
static extern AEDescStatus AEGetNthPtr(ref AEDesc descList, int index, OSType desiredType, uint keyword,
uint zero, out IntPtr outPtr, int bufferSize, int zero2);
static extern AEDescStatus AECountItems(ref AEDesc descList, out int count); //return an OSErr
static extern OsaError OSALoadExecute(ComponentInstance scriptingComponent, ref AEDesc scriptData,
OsaId contextID, OsaMode modeFlags, ref OsaId resultingScriptValueID);
public static void AECreateDesc(OSType typeCode, byte[] data, out AEDesc result)
{
CheckReturn(AECreateDesc(typeCode, data, data.Length, out result));
}
static extern AEDescStatus AECreateDesc(OSType typeCode, IntPtr dataPtr, int dataSize, out AEDesc desc);
static OsaError Run(bool compile, ref AEDesc scriptData, out string value)
{
var component = ComponentManager.OpenDefaultComponent((OSType)(int)OsaType.OsaComponent, (OSType)(int)OsaType.AppleScript);
if (component.IsNull)
{
throw new Exception("Could not load component");
}
AEDesc resultData = new AEDesc();
OsaId contextId = new OsaId(), scriptId = new OsaId(), resultId = new OsaId();
try {
AppleEvent.AECreateDescNull(out resultData);
//apparently UnicodeText doesn't work
var resultType = new DescType()
{
Value = (OSType)"TEXT"
};
//var result = OSADoScript (component, ref sourceData, contextId, resultType, OsaMode.Default, ref resultData);
OsaError result;
if (compile)
{
result = OSACompile(component, ref scriptData, OsaMode.Default, ref scriptId);
}
else
{
result = OSALoad(component, ref scriptData, OsaMode.Default, ref scriptId);
}
if (result == OsaError.Success)
{
result = OSAExecute(component, scriptId, contextId, OsaMode.Default, out resultId);
if (result == OsaError.Success)
{
result = OSADisplay(component, resultId, resultType, OsaMode.Default, out resultData);
if (result == OsaError.Success)
{
value = AppleEvent.GetStringFromAEDesc(ref resultData);
return(result);
}
}
}
AEDesc errorDesc = new AEDesc();
try {
AppleEvent.AECreateDescNull(out resultData);
if (OsaError.Success == OSAScriptError(component, OsaErrorSelector.Message, resultType, out errorDesc))
{
value = AppleEvent.GetStringFromAEDesc(ref errorDesc);
return(result);
}
else
{
throw new InvalidOperationException(string.Format("Unexpected result: {0}", (long)result));
}
} finally {
AppleEvent.AEDisposeDesc(ref errorDesc);
}
} finally {
AppleEvent.AEDisposeDesc(ref scriptData);
AppleEvent.AEDisposeDesc(ref resultData);
if (!contextId.IsZero)
{
OSADispose(component, contextId);
}
if (!scriptId.IsZero)
{
OSADispose(component, scriptId);
}
if (!resultId.IsZero)
{
OSADispose(component, resultId);
}
if (!component.IsNull)
{
ComponentManager.CloseComponent(component);
}
}
}
static extern OsaError OSADoScript(ComponentInstance scriptingComponent, ref AEDesc sourceData,
OsaId contextID, DescType desiredType, OsaMode modeFlags,
ref AEDesc resultingText);
static extern OsaError OSADisplay(ComponentInstance scriptingComponent, OsaId scriptValueID,
DescType desiredType, OsaMode modeFlags, out AEDesc resultingText);
static extern OsaError OSALoad(ComponentInstance scriptingComponent, ref AEDesc sourceData,
OsaMode modeFlags, ref OsaId previousAndResultingScriptID);
static extern int AEGetDescDataSize(ref AEDesc desc);
static extern AEDescStatus AECreateDesc(OSType typeCode, byte[] data, int dataSize, out AEDesc desc);
static extern AEDescStatus AECoerceDesc(ref AEDesc theAEDesc, DescType toType, ref AEDesc result);
static extern AEDescStatus AEGetNthPtr(ref AEDesc descList, int index, OSType desiredType, uint keyword,
out CarbonEventParameterType actualType, IntPtr buffer, int bufferSize, out int actualSize);
public static void AECreateDescNull(out AEDesc desc)
{
CheckReturn(AECreateDesc((OSType)0, IntPtr.Zero, 0, out desc));
}
static extern OsaError OSAScriptError(ComponentInstance scriptingComponent, OsaErrorSelector selector,
DescType desiredType, out AEDesc resultingErrorDescription);