仿真平台内核初版 -tlib库 包含<sparc arm riscv powerPC>

lib/termsharp/xwt/Xwt.Gtk.Mac/Carbon.cs

@@ -0,0 +1,555 @@
+// 
+// Carbon.cs
+//  
+// Author:
+//       Michael Hutchinson <mhutchinson@novell.com>
+//       Geoff Norton  <gnorton@novell.com>
+// 
+// Copyright (c) 2009 Novell, Inc. (http://www.novell.com)
+// 
+// Permission is hereby granted, free of charge, to any person obtaining a copy
+// of this software and associated documentation files (the "Software"), to deal
+// in the Software without restriction, including without limitation the rights
+// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+// copies of the Software, and to permit persons to whom the Software is
+// furnished to do so, subject to the following conditions:
+// 
+// The above copyright notice and this permission notice shall be included in
+// all copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+// THE SOFTWARE.
+
+using System;
+using System.Runtime.InteropServices;
+using System.Collections.Generic;
+using System.Diagnostics;
+
+namespace Xwt.Gtk.Mac
+{
+	internal delegate CarbonEventHandlerStatus EventDelegate (IntPtr callRef, IntPtr eventRef, IntPtr userData);
+	internal delegate CarbonEventHandlerStatus AEHandlerDelegate (IntPtr inEvnt, IntPtr outEvt, uint refConst);
+	
+	internal static class Carbon
+	{
+		public const string CarbonLib = "/System/Library/Frameworks/Carbon.framework/Versions/Current/Carbon";
+		
+		[DllImport (CarbonLib)]
+		public static extern IntPtr GetApplicationEventTarget ();
+		
+		[DllImport (CarbonLib)]
+		public static extern IntPtr GetControlEventTarget (IntPtr control);
+		
+		[DllImport (CarbonLib)]
+		public static extern IntPtr GetWindowEventTarget (IntPtr window);
+		
+		[DllImport (CarbonLib)]
+		public static extern IntPtr GetMenuEventTarget (IntPtr menu);
+
+		[DllImport (CarbonLib)]
+		public static extern CarbonEventClass GetEventClass (IntPtr eventref);
+		
+		[DllImport (CarbonLib)]
+		public static extern uint GetEventKind (IntPtr eventref);
+		
+		#region Event handler installation
+		
+		[DllImport (CarbonLib)]
+		static extern EventStatus InstallEventHandler (IntPtr target, EventDelegate handler, uint count,
+		                                               CarbonEventTypeSpec [] types, IntPtr user_data, out IntPtr handlerRef);
+		
+		[DllImport (CarbonLib)]
+		public static extern EventStatus RemoveEventHandler (IntPtr handlerRef);
+		
+		public static IntPtr InstallEventHandler (IntPtr target, EventDelegate handler, CarbonEventTypeSpec [] types)
+		{
+			IntPtr handlerRef;
+			CheckReturn (InstallEventHandler (target, handler, (uint)types.Length, types, IntPtr.Zero, out handlerRef));
+			return handlerRef;
+		}
+		
+		public static IntPtr InstallEventHandler (IntPtr target, EventDelegate handler, CarbonEventTypeSpec type)
+		{
+			return InstallEventHandler (target, handler, new CarbonEventTypeSpec[] { type });
+		}
+		
+		public static IntPtr InstallApplicationEventHandler (EventDelegate handler, CarbonEventTypeSpec [] types)
+		{
+			return InstallEventHandler (GetApplicationEventTarget (), handler, types);
+		}
+		
+		public static IntPtr InstallApplicationEventHandler (EventDelegate handler, CarbonEventTypeSpec type)
+		{
+			return InstallEventHandler (GetApplicationEventTarget (), handler, new CarbonEventTypeSpec[] { type });
+		}
+		
+		#endregion
+		
+		#region Event parameter extraction
+		
+		[DllImport (CarbonLib)]
+		public static extern EventStatus GetEventParameter (IntPtr eventRef, CarbonEventParameterName name, CarbonEventParameterType desiredType,
+		                                                    out CarbonEventParameterType actualType, uint size, ref uint outSize, ref IntPtr outPtr);
+		
+		public static IntPtr GetEventParameter (IntPtr eventRef, CarbonEventParameterName name, CarbonEventParameterType desiredType)
+		{
+			CarbonEventParameterType actualType;
+			uint outSize = 0;
+			IntPtr val = IntPtr.Zero;
+			CheckReturn (GetEventParameter (eventRef, name, desiredType, out actualType, (uint)IntPtr.Size, ref outSize, ref val));
+			return val;
+		} 
+		
+		[DllImport (CarbonLib)]
+		static extern EventStatus GetEventParameter (IntPtr eventRef, CarbonEventParameterName name, CarbonEventParameterType desiredType,	
+		                                             out CarbonEventParameterType actualType, uint size, ref uint outSize, IntPtr dataBuffer);
+		  
+		[DllImport (CarbonLib)]
+		static extern EventStatus GetEventParameter (IntPtr eventRef, CarbonEventParameterName name, CarbonEventParameterType desiredType,	
+		                                             uint zero, uint size, uint zero2, IntPtr dataBuffer);
+		
+		public static T GetEventParameter<T> (IntPtr eventRef, CarbonEventParameterName name, CarbonEventParameterType desiredType) where T : struct
+		{
+			int len = Marshal.SizeOf (typeof (T));
+			IntPtr bufferPtr = Marshal.AllocHGlobal (len);
+			CheckReturn (GetEventParameter (eventRef, name, desiredType, 0, (uint)len, 0, bufferPtr));
+			T val = (T)Marshal.PtrToStructure (bufferPtr, typeof (T));
+			Marshal.FreeHGlobal (bufferPtr);
+			return val;
+		}
+		
+		#endregion
+		
+		#region Sending events
+		
+		[DllImport (CarbonLib)]
+		static extern EventStatus SendEventToEventTarget (IntPtr eventRef, IntPtr eventTarget);
+		
+		[DllImport (CarbonLib)]
+		static extern EventStatus CreateEvent (IntPtr allocator, CarbonEventClass classID, uint kind, double eventTime,
+		                                       CarbonEventAttributes flags, out IntPtr eventHandle);
+		
+		[DllImport (CarbonLib)]
+		static extern void ReleaseEvent (IntPtr eventHandle);
+		
+		static EventStatus SendApplicationEvent (CarbonEventClass classID, uint kind, CarbonEventAttributes flags)
+		{
+			IntPtr eventHandle;
+			EventStatus s = CreateEvent (IntPtr.Zero, classID, kind, 0, flags, out eventHandle);
+			if (s != EventStatus.Ok)
+				return s;
+			s = SendEventToEventTarget (eventHandle, GetApplicationEventTarget ());
+			ReleaseEvent (eventHandle);
+			return s;
+		}
+		
+		[DllImport (CarbonLib)]
+		public static extern CarbonEventHandlerStatus ProcessHICommand (ref CarbonHICommand command);
+		
+		#endregion
+		
+		#region Error checking
+		
+		public static void CheckReturn (EventStatus status)
+		{
+			int intStatus = (int) status;
+			if (intStatus < 0)
+				throw new EventStatusException (status);
+		}
+		
+		public static void CheckReturn (int osErr)
+		{
+			if (osErr != 0) {
+				string s = GetMacOSStatusCommentString (osErr);
+				throw new SystemException ("Unexpected OS error code " + osErr + ": " + s);
+			}
+		}
+		
+		[DllImport (CarbonLib)]
+		static extern string GetMacOSStatusCommentString (int osErr);
+		
+		#endregion
+		
+		#region Char code conversion
+		
+		internal static int ConvertCharCode (string fourcc)
+		{
+			Debug.Assert (fourcc != null);
+			Debug.Assert (fourcc.Length == 4);
+			return (fourcc[3]) | (fourcc[2] << 8) | (fourcc[1] << 16) | (fourcc[0] << 24);
+		}
+		
+		internal static string UnConvertCharCode (int i)
+		{
+			return new string (new char[] {
+				(char)(i >> 24),
+				(char)(0xFF & (i >> 16)),
+				(char)(0xFF & (i >> 8)),
+				(char)(0xFF & i),
+			});
+		}
+		
+		#endregion
+		
+		#region Internal Mac API for setting process name
+		
+		[DllImport (CarbonLib)]
+		static extern int GetCurrentProcess (out ProcessSerialNumber psn);
+		
+		[DllImport (CarbonLib)]
+		static extern int CPSSetProcessName (ref ProcessSerialNumber psn, string name);
+		
+		public static void SetProcessName (string name)
+		{
+			try {
+				ProcessSerialNumber psn;
+				if (GetCurrentProcess (out psn) == 0)
+					CPSSetProcessName (ref psn, name);
+			} catch {} //EntryPointNotFoundException?
+		}
+		
+		struct ProcessSerialNumber {
+#pragma warning disable 0169
+			ulong highLongOfPSN;
+			ulong lowLongOfPSN;
+#pragma warning restore 0169
+		}
+		
+		#endregion
+	}
+	
+	[StructLayout(LayoutKind.Sequential, Pack = 2, Size = 80)]
+	struct FSRef
+	{
+		//this is an 80-char opaque byte array
+		#pragma warning disable 0169
+		private byte hidden;
+		#pragma warning restore 0169
+	}
+	
+	[StructLayout(LayoutKind.Sequential)]
+	struct SelectionRange
+	{
+		public short unused1; // 0 (not used)
+		public short lineNum; // line to select (<0 to specify range)
+		public int startRange; // start of selection range (if line < 0)
+		public int endRange; // end of selection range (if line < 0)
+		public int unused2; // 0 (not used)
+		public int theDate; // modification date/time
+	}
+	
+	internal enum CarbonEventHandlerStatus //this is an OSStatus
+	{
+		Handled = 0,
+		NotHandled = -9874,
+		UserCancelled = -128,
+	}
+	
+	internal enum CarbonEventParameterName : uint
+	{
+		DirectObject = 757935405, // '----'
+		AEPosition = 1802530675, // 'kpos'
+	}
+	
+	internal enum CarbonEventParameterType : uint
+	{
+		HICommand = 1751346532, // 'hcmd'
+		MenuRef = 1835363957, // 'menu'
+		WindowRef = 2003398244, // 'wind'
+		Char = 1413830740, // 'TEXT'
+		UInt32 = 1835100014, // 'magn'
+		UTF8Text = 1970562616, // 'utf8'
+		UnicodeText = 1970567284, // 'utxt'
+		AEList = 1818850164, // 'list'
+		WildCard = 707406378, // '****'
+		FSRef = 1718841958, // 'fsrf' 
+	}
+	
+	internal enum CarbonEventClass : uint
+	{
+		Mouse = 1836021107, // 'mous'
+		Keyboard = 1801812322, // 'keyb'
+		TextInput = 1952807028, // 'text'
+		Application = 1634758764, // 'appl'
+		RemoteAppleEvent = 1701867619,  //'eppc' //remote apple event?
+		Menu = 1835363957, // 'menu'
+		Window = 2003398244, // 'wind'
+		Control = 1668183148, // 'cntl'
+		Command = 1668113523, // 'cmds'
+		Tablet = 1952607348, // 'tblt'
+		Volume = 1987013664, // 'vol '
+		Appearance = 1634758765, // 'appm'
+		Service = 1936028278, // 'serv'
+		Toolbar = 1952604530, // 'tbar'
+		ToolbarItem = 1952606580, // 'tbit'
+		Accessibility = 1633903461, // 'acce'
+		HIObject = 1751740258, // 'hiob'
+		AppleEvent = 1634039412, // 'aevt'
+		Internet = 1196773964, // 'GURL'
+	}
+	
+	public enum CarbonCommandID : uint
+	{
+		OK = 1869291552, // 'ok  '
+		Cancel = 1852797985, // 'not!'
+		Quit = 1903520116, // 'quit'
+		Undo = 1970168943, // 'undo'
+		Redo = 1919247471, // 'redo'
+		Cut = 1668641824, // 'cut '
+		Copy = 1668247673, // 'copy'
+		Paste = 1885434740, // 'past'
+		Clear = 1668048225, // 'clea',
+		SelectAll = 1935764588, // 'sall',
+		Preferences = 1886545254, //'pref'
+		About = 1633841013, // 'abou'
+		New = 1852143392, // 'new ',
+		Open = 1869636974, // 'open'
+		Close = 1668050803, // 'clos'
+		Save = 1935767141, // 'save',
+		SaveAs = 1937138035, // 'svas'
+		Revert = 1920365172, // 'rvrt'
+		Print = 1886547572, // 'prnt'
+		PageSetup = 1885431653, // 'page',
+		AppHelp = 1634233456, //'ahlp'
+		
+		//menu manager handles these automatically
+		
+		Hide = 1751737445, // 'hide'
+		HideOthers = 1751737455, // 'hido'
+		ShowAll = 1936220524, // 'shal'
+		ZoomWindow = 2054123373, // 'zoom'
+		MinimizeWindow = 1835626089, // 'mini'
+		MinimizeAll = 1835626081, // 'mina'
+		MaximizeAll = 1835104353, // 'maxa'
+		ArrangeInFront = 1718775412, // 'frnt'
+		BringAllToFront = 1650881140, // 'bfrt'
+		SelectWindow = 1937205614, // 'swin'
+		RotateWindowsForward = 1919906935, // 'rotw'
+		RotateWindowsBackward = 1919906914, // 'rotb'
+		RotateFloatingWindowsForward = 1920231031, // 'rtfw'
+		RotateFloatingWindowsBackward = 1920231010, // 'rtfb'
+		QuitAndCloseAllWindows = 1903520631, // 'qukw'
+		
+		//created automatically -- used for inserting before/after the default window list
+		WindowListSeparator = 2003592310, // 'wldv'
+		WindowListTerminator = 2003596148, // 'wlst'
+	}
+	
+	internal enum CarbonEventCommand : uint
+	{
+		Process = 1,
+		UpdateStatus = 2,
+	}
+	
+	internal enum CarbonEventMenu : uint
+	{
+		BeginTracking = 1,
+		EndTracking = 2,
+		ChangeTrackingMode = 3,
+		Opening = 4,
+		Closed = 5,
+		TargetItem = 6,
+		MatchKey = 7,
+	}
+	
+	internal enum CarbonEventAttributes : uint
+	{
+		None = 0,
+		UserEvent = (1 << 0),
+		Monitored= 1 << 3,
+	}
+	
+	internal enum CarbonEventApple
+	{
+		OpenApplication = 1868656752, // 'oapp'
+		ReopenApplication = 1918988400, //'rapp'
+		OpenDocuments = 1868853091, // 'odoc'
+		PrintDocuments = 188563030, // 'pdoc'
+		OpenContents = 1868787566, // 'ocon'
+		QuitApplication =  1903520116, // 'quit'
+		ShowPreferences = 1886545254, // 'pref'
+		ApplicationDied = 1868720500, // 'obit'
+		GetUrl = 1196773964, // 'GURL'
+	}
+	
+	[StructLayout(LayoutKind.Sequential, Pack = 2)]
+	struct CarbonEventTypeSpec
+	{
+		public CarbonEventClass EventClass;
+		public uint EventKind;
+
+		public CarbonEventTypeSpec (CarbonEventClass eventClass, UInt32 eventKind)
+		{
+			this.EventClass = eventClass;
+			this.EventKind = eventKind;
+		}
+		
+		public CarbonEventTypeSpec (CarbonEventMenu kind) : this (CarbonEventClass.Menu, (uint) kind)
+		{
+		}
+		
+		public CarbonEventTypeSpec (CarbonEventCommand kind) : this (CarbonEventClass.Command, (uint) kind)
+		{
+		}
+		
+		
+		public CarbonEventTypeSpec (CarbonEventApple kind) : this (CarbonEventClass.AppleEvent, (uint) kind)
+		{
+		}
+		
+		public static implicit operator CarbonEventTypeSpec (CarbonEventMenu kind)
+		{
+			return new CarbonEventTypeSpec (kind);
+		}
+		
+		public static implicit operator CarbonEventTypeSpec (CarbonEventCommand kind)
+		{
+			return new CarbonEventTypeSpec (kind);
+		}
+		
+		public static implicit operator CarbonEventTypeSpec (CarbonEventApple kind)
+		{
+			return new CarbonEventTypeSpec (kind);
+		}
+	}
+	
+	class EventStatusException : SystemException
+	{
+		public EventStatusException (EventStatus status)
+		{
+			StatusCode = status;
+		}
+		
+		public EventStatus StatusCode {
+			get; private set;
+		}
+	}
+	
+	enum EventStatus // this is an OSStatus
+	{
+		Ok = 0,
+		
+		//event manager
+		EventAlreadyPostedErr = -9860,
+		EventTargetBusyErr = -9861,
+		EventClassInvalidErr = -9862,
+		EventClassIncorrectErr = -9864,
+		EventHandlerAlreadyInstalledErr = -9866,
+		EventInternalErr = -9868,
+		EventKindIncorrectErr = -9869,
+		EventParameterNotFoundErr = -9870,
+		EventNotHandledErr = -9874,
+		EventLoopTimedOutErr = -9875,
+		EventLoopQuitErr = -9876,
+		EventNotInQueueErr = -9877,
+		EventHotKeyExistsErr = -9878,
+		EventHotKeyInvalidErr = -9879,
+	}
+	
+	[StructLayout(LayoutKind.Explicit)]
+	struct CarbonHICommand //technically HICommandExtended, but they're compatible
+	{
+		[FieldOffset(0)]
+		CarbonHICommandAttributes attributes;
+		
+		[FieldOffset(4)]
+		uint commandID;
+		
+		[FieldOffset(8)]
+		IntPtr controlRef;
+		
+		[FieldOffset(8)]
+		IntPtr windowRef;
+		
+		[FieldOffset(8)]
+		HIMenuItem menuItem;
+		
+		public CarbonHICommand (uint commandID, HIMenuItem item)
+		{
+			windowRef = controlRef = IntPtr.Zero;
+			this.commandID = commandID;
+			this.menuItem = item;
+			this.attributes = CarbonHICommandAttributes.FromMenu;
+		}
+		
+		public CarbonHICommandAttributes Attributes { get { return attributes; } }
+		public uint CommandID { get { return commandID; } }
+		public IntPtr ControlRef { get { return controlRef; } }
+		public IntPtr WindowRef { get { return windowRef; } }
+		public HIMenuItem MenuItem { get { return menuItem; } }
+		
+		public bool IsFromMenu {
+			get { return attributes == CarbonHICommandAttributes.FromMenu; }
+		}
+		
+		public bool IsFromControl {
+			get { return attributes == CarbonHICommandAttributes.FromControl; }
+		}
+		
+		public bool IsFromWindow {
+			get { return attributes == CarbonHICommandAttributes.FromWindow; }
+		}
+	}
+	
+	[StructLayout(LayoutKind.Sequential, Pack = 2)]
+	struct HIMenuItem
+	{
+		IntPtr menuRef;
+		ushort index;
+		
+		public HIMenuItem (IntPtr menuRef, ushort index)
+		{
+			this.index = index;
+			this.menuRef = menuRef;
+		}
+		
+		public IntPtr MenuRef { get { return menuRef; } }
+		public ushort Index { get { return index; } }
+	}
+	
+	//*NOT* flags
+	enum CarbonHICommandAttributes : uint
+	{
+		FromMenu = 1,
+		FromControl = 1 << 1,
+		FromWindow  = 1 << 2,
+	}
+	
+	struct OSType {
+		int value;
+		
+		public int Value {
+			get { return value; }
+		}
+		
+		public OSType (int value)
+		{
+			this.value = value;
+		}
+		
+		public OSType (string fourcc)
+		{
+			value = Carbon.ConvertCharCode (fourcc);
+		}
+		
+		public static explicit operator OSType (string fourcc)
+		{
+			return new OSType (fourcc); 
+		}
+		
+		public static implicit operator int (OSType o)
+		{
+			return o.value;
+		}
+		
+		public static implicit operator OSType (int i)
+		{
+			return new OSType (i);
+		}
+	}
+}