Initial IOKit bindings. NSFastEnumeration interface

extra/cocoa/cocoa.factor

@@ -62,6 +62,7 @@ SYMBOL: super-sent-messages
         "NSResponder"
         "NSSavePanel"
         "NSScreen"
+        "NSString"
         "NSView"
         "NSWindow"
         "NSWorkspace"

extra/cocoa/enumeration/enumeration.factor

@@ -0,0 +1,26 @@
+USING: kernel cocoa cocoa.types alien.c-types locals math sequences
+vectors fry ;
+IN: cocoa.enumeration
+
+: NS-EACH-BUFFER-SIZE 16 ; inline
+
+: (allocate-enumeration-buffers) ( -- state stackbuf count )
+    "NSFastEnumerationState" <c-object>
+    NS-EACH-BUFFER-SIZE "id" <c-array>
+    NS-EACH-BUFFER-SIZE ;
+
+:: (NSFastEnumeration-each) ( object quot state stackbuf count -- )
+    object state stackbuf count -> countByEnumeratingWithState:objects:count:
+    dup zero? [ drop ] [
+        [ stackbuf void*-nth quot call ] each
+        object quot state stackbuf count (NSFastEnumeration-each)
+    ] if ; inline
+
+: NSFastEnumeration-each ( object quot -- )
+    (allocate-enumeration-buffers) (NSFastEnumeration-each) ; inline
+
+: NSFastEnumeration-map ( object quot -- vector )
+    NS-EACH-BUFFER-SIZE <vector> [ '[ @ , push ] NSFastEnumeration-each ] keep ; inline
+
+: NSFastEnumeration>vector ( object -- vector )
+    [ ] NSFastEnumeration-map ;

extra/cocoa/types/types.factor

@@ -64,3 +64,9 @@ C-STRUCT: CGAffineTransform
     { "float" "d" }
     { "float" "tx" }
     { "float" "ty" } ;
+
+C-STRUCT: NSFastEnumerationState
+    { "ulong" "state" }
+    { "id*" "itemsPtr" }
+    { "ulong*" "mutationsPtr" }
+    { "ulong[5]" "extra" } ;

extra/core-foundation/core-foundation.factor

@@ -24,7 +24,8 @@ FUNCTION: void CFArraySetValueAtIndex ( CFArrayRef array, CFIndex index, void* v
 
 FUNCTION: CFIndex CFArrayGetCount ( CFArrayRef array ) ;
 
-: kCFURLPOSIXPathStyle 0 ;
+: kCFURLPOSIXPathStyle 0 ; inline
+: kCFAllocatorDefault f ; inline
 
 FUNCTION: CFURLRef CFURLCreateWithFileSystemPath ( CFAllocatorRef allocator, CFStringRef filePath, int pathStyle, Boolean isDirectory ) ;
 

extra/iokit/authors.txt

@@ -0,0 +1 @@
+Joe Groff

extra/iokit/hid/hid.factor

@@ -0,0 +1,114 @@
+USING: iokit alien.syntax alien.c-types kernel system ;
+IN: iokit.hid
+
+: kIOHIDDeviceKey "IOHIDDevice" ; inline
+
+: kIOHIDTransportKey                  "Transport" ; inline
+: kIOHIDVendorIDKey                   "VendorID" ; inline
+: kIOHIDVendorIDSourceKey             "VendorIDSource" ; inline
+: kIOHIDProductIDKey                  "ProductID" ; inline
+: kIOHIDVersionNumberKey              "VersionNumber" ; inline
+: kIOHIDManufacturerKey               "Manufacturer" ; inline
+: kIOHIDProductKey                    "Product" ; inline
+: kIOHIDSerialNumberKey               "SerialNumber" ; inline
+: kIOHIDCountryCodeKey                "CountryCode" ; inline
+: kIOHIDLocationIDKey                 "LocationID" ; inline
+: kIOHIDDeviceUsageKey                "DeviceUsage" ; inline
+: kIOHIDDeviceUsagePageKey            "DeviceUsagePage" ; inline
+: kIOHIDDeviceUsagePairsKey           "DeviceUsagePairs" ; inline
+: kIOHIDPrimaryUsageKey               "PrimaryUsage" ; inline
+: kIOHIDPrimaryUsagePageKey           "PrimaryUsagePage" ; inline
+: kIOHIDMaxInputReportSizeKey         "MaxInputReportSize" ; inline
+: kIOHIDMaxOutputReportSizeKey	      "MaxOutputReportSize" ; inline
+: kIOHIDMaxFeatureReportSizeKey	      "MaxFeatureReportSize" ; inline
+: kIOHIDReportIntervalKey             "ReportInterval" ; inline
+
+: kIOHIDElementKey                    "Elements" ; inline
+
+: kIOHIDElementCookieKey                      "ElementCookie" ; inline
+: kIOHIDElementTypeKey                        "Type" ; inline
+: kIOHIDElementCollectionTypeKey              "CollectionType" ; inline
+: kIOHIDElementUsageKey                       "Usage" ; inline
+: kIOHIDElementUsagePageKey                   "UsagePage" ; inline
+: kIOHIDElementMinKey                         "Min" ; inline
+: kIOHIDElementMaxKey                         "Max" ; inline
+: kIOHIDElementScaledMinKey                   "ScaledMin" ; inline
+: kIOHIDElementScaledMaxKey                   "ScaledMax" ; inline
+: kIOHIDElementSizeKey                        "Size" ; inline
+: kIOHIDElementReportSizeKey                  "ReportSize" ; inline
+: kIOHIDElementReportCountKey                 "ReportCount" ; inline
+: kIOHIDElementReportIDKey                    "ReportID" ; inline
+: kIOHIDElementIsArrayKey                     "IsArray" ; inline
+: kIOHIDElementIsRelativeKey                  "IsRelative" ; inline
+: kIOHIDElementIsWrappingKey                  "IsWrapping" ; inline
+: kIOHIDElementIsNonLinearKey                 "IsNonLinear" ; inline
+: kIOHIDElementHasPreferredStateKey           "HasPreferredState" ; inline
+: kIOHIDElementHasNullStateKey                "HasNullState" ; inline
+: kIOHIDElementFlagsKey                       "Flags" ; inline
+: kIOHIDElementUnitKey                        "Unit" ; inline
+: kIOHIDElementUnitExponentKey                "UnitExponent" ; inline
+: kIOHIDElementNameKey                        "Name" ; inline
+: kIOHIDElementValueLocationKey               "ValueLocation" ; inline
+: kIOHIDElementDuplicateIndexKey              "DuplicateIndex" ; inline
+: kIOHIDElementParentCollectionKey            "ParentCollection" ; inline
+
+: kIOHIDElementVendorSpecificKey
+    cpu ppc? "VendorSpecifc" "VendorSpecific" ? ; inline
+
+: kIOHIDElementCookieMinKey           "ElementCookieMin" ; inline
+: kIOHIDElementCookieMaxKey           "ElementCookieMax" ; inline
+: kIOHIDElementUsageMinKey            "UsageMin" ; inline
+: kIOHIDElementUsageMaxKey            "UsageMax" ; inline
+
+: kIOHIDElementCalibrationMinKey              "CalibrationMin" ; inline
+: kIOHIDElementCalibrationMaxKey              "CalibrationMax" ; inline
+: kIOHIDElementCalibrationSaturationMinKey    "CalibrationSaturationMin" ; inline
+: kIOHIDElementCalibrationSaturationMaxKey    "CalibrationSaturationMax" ; inline
+: kIOHIDElementCalibrationDeadZoneMinKey      "CalibrationDeadZoneMin" ; inline
+: kIOHIDElementCalibrationDeadZoneMaxKey      "CalibrationDeadZoneMax" ; inline
+: kIOHIDElementCalibrationGranularityKey      "CalibrationGranularity" ; inline
+
+TYPEDEF: ptrdiff_t IOHIDElementCookie
+TYPEDEF: int IOHIDElementType
+TYPEDEF: int IOHIDElementCollectionType
+TYPEDEF: int IOHIDReportType
+TYPEDEF: uint IOHIDOptionsType
+TYPEDEF: uint IOHIDQueueOptionsType
+TYPEDEF: uint IOHIDElementFlags
+
+: kIOHIDElementTypeInput_Misc        1 ; inline
+: kIOHIDElementTypeInput_Button      2 ; inline
+: kIOHIDElementTypeInput_Axis        3 ; inline
+: kIOHIDElementTypeInput_ScanCodes   4 ; inline
+: kIOHIDElementTypeOutput            129 ; inline
+: kIOHIDElementTypeFeature           257 ; inline
+: kIOHIDElementTypeCollection        513 ; inline
+
+: kIOHIDElementCollectionTypePhysical	    HEX: 00 ; inline
+: kIOHIDElementCollectionTypeApplication    HEX: 01 ; inline
+: kIOHIDElementCollectionTypeLogical        HEX: 02 ; inline
+: kIOHIDElementCollectionTypeReport         HEX: 03 ; inline
+: kIOHIDElementCollectionTypeNamedArray     HEX: 04 ; inline
+: kIOHIDElementCollectionTypeUsageSwitch    HEX: 05 ; inline
+: kIOHIDElementCollectionTypeUsageModifier  HEX: 06 ; inline
+
+: kIOHIDReportTypeInput    0 ; inline
+: kIOHIDReportTypeOutput   1 ; inline
+: kIOHIDReportTypeFeature  2 ; inline
+: kIOHIDReportTypeCount    3 ; inline
+
+: kIOHIDOptionsTypeNone	       HEX: 00 ; inline
+: kIOHIDOptionsTypeSeizeDevice HEX: 01 ; inline
+
+: kIOHIDQueueOptionsTypeNone	   HEX: 00 ; inline
+: kIOHIDQueueOptionsTypeEnqueueAll HEX: 01 ; inline
+
+: kIOHIDElementFlagsConstantMask        HEX: 0001 ; inline
+: kIOHIDElementFlagsVariableMask        HEX: 0002 ; inline
+: kIOHIDElementFlagsRelativeMask        HEX: 0004 ; inline
+: kIOHIDElementFlagsWrapMask            HEX: 0008 ; inline
+: kIOHIDElementFlagsNonLinearMask       HEX: 0010 ; inline
+: kIOHIDElementFlagsNoPreferredMask     HEX: 0020 ; inline
+: kIOHIDElementFlagsNullStateMask       HEX: 0040 ; inline
+: kIOHIDElementFlagsVolativeMask        HEX: 0080 ; inline
+: kIOHIDElementFlagsBufferedByteMask    HEX: 0100 ; inline

extra/iokit/iokit.factor

@@ -0,0 +1,178 @@
+USING: alien.syntax alien.c-types cocoa core-foundation system
+combinators kernel sequences debugger io accessors ;
+IN: iokit
+
+<< {
+    { [ os macosx? ] [ "/System/Library/Frameworks/IOKit.framework" load-framework ] }
+    [ "IOKit only supported on Mac OS X" ]
+} cond >>
+
+: kIOKitBuildVersionKey   "IOKitBuildVersion" ; inline
+: kIOKitDiagnosticsKey   "IOKitDiagnostics" ; inline
+ 
+: kIORegistryPlanesKey   "IORegistryPlanes" ; inline
+: kIOCatalogueKey    "IOCatalogue" ; inline
+
+: kIOServicePlane    "IOService" ; inline
+: kIOPowerPlane    "IOPower" ; inline
+: kIODeviceTreePlane   "IODeviceTree" ; inline
+: kIOAudioPlane    "IOAudio" ; inline
+: kIOFireWirePlane   "IOFireWire" ; inline
+: kIOUSBPlane    "IOUSB" ; inline
+
+: kIOServiceClass    "IOService" ; inline
+
+: kIOResourcesClass   "IOResources" ; inline
+
+: kIOClassKey    "IOClass" ; inline
+: kIOProbeScoreKey   "IOProbeScore" ; inline
+: kIOKitDebugKey    "IOKitDebug" ; inline
+
+: kIOProviderClassKey   "IOProviderClass" ; inline
+: kIONameMatchKey    "IONameMatch" ; inline
+: kIOPropertyMatchKey   "IOPropertyMatch" ; inline
+: kIOPathMatchKey    "IOPathMatch" ; inline
+: kIOLocationMatchKey   "IOLocationMatch" ; inline
+: kIOParentMatchKey   "IOParentMatch" ; inline
+: kIOResourceMatchKey   "IOResourceMatch" ; inline
+: kIOMatchedServiceCountKey  "IOMatchedServiceCountMatch" ; inline
+
+: kIONameMatchedKey   "IONameMatched" ; inline
+
+: kIOMatchCategoryKey   "IOMatchCategory" ; inline
+: kIODefaultMatchCategoryKey  "IODefaultMatchCategory" ; inline
+
+: kIOUserClientClassKey   "IOUserClientClass" ; inline
+
+: kIOUserClientCrossEndianKey   "IOUserClientCrossEndian" ; inline
+: kIOUserClientCrossEndianCompatibleKey  "IOUserClientCrossEndianCompatible" ; inline
+: kIOUserClientSharedInstanceKey   "IOUserClientSharedInstance" ; inline
+
+: kIOPublishNotification   "IOServicePublish" ; inline
+: kIOFirstPublishNotification  "IOServiceFirstPublish" ; inline
+: kIOMatchedNotification   "IOServiceMatched" ; inline
+: kIOFirstMatchNotification  "IOServiceFirstMatch" ; inline
+: kIOTerminatedNotification  "IOServiceTerminate" ; inline
+
+: kIOGeneralInterest   "IOGeneralInterest" ; inline
+: kIOBusyInterest    "IOBusyInterest" ; inline
+: kIOAppPowerStateInterest  "IOAppPowerStateInterest" ; inline
+: kIOPriorityPowerStateInterest  "IOPriorityPowerStateInterest" ; inline
+
+: kIOPlatformDeviceMessageKey "IOPlatformDeviceMessage" ; inline
+
+: kIOCFPlugInTypesKey   "IOCFPlugInTypes" ; inline
+
+: kIOCommandPoolSizeKey         "IOCommandPoolSize" ; inline
+
+: kIOMaximumBlockCountReadKey "IOMaximumBlockCountRead" ; inline
+: kIOMaximumBlockCountWriteKey "IOMaximumBlockCountWrite" ; inline
+: kIOMaximumByteCountReadKey "IOMaximumByteCountRead" ; inline
+: kIOMaximumByteCountWriteKey "IOMaximumByteCountWrite" ; inline
+: kIOMaximumSegmentCountReadKey "IOMaximumSegmentCountRead" ; inline
+: kIOMaximumSegmentCountWriteKey "IOMaximumSegmentCountWrite" ; inline
+: kIOMaximumSegmentByteCountReadKey "IOMaximumSegmentByteCountRead" ; inline
+: kIOMaximumSegmentByteCountWriteKey "IOMaximumSegmentByteCountWrite" ; inline
+: kIOMinimumSegmentAlignmentByteCountKey "IOMinimumSegmentAlignmentByteCount" ; inline
+: kIOMaximumSegmentAddressableBitCountKey "IOMaximumSegmentAddressableBitCount" ; inline
+
+: kIOIconKey "IOIcon" ; inline
+: kIOBundleResourceFileKey "IOBundleResourceFile" ; inline
+
+: kIOBusBadgeKey "IOBusBadge" ; inline
+: kIODeviceIconKey "IODeviceIcon" ; inline
+
+: kIOPlatformSerialNumberKey  "IOPlatformSerialNumber"  ; inline
+
+: kIOPlatformUUIDKey  "IOPlatformUUID"  ; inline
+
+: kIONVRAMDeletePropertyKey  "IONVRAM-DELETE-PROPERTY" ; inline
+: kIODTNVRAMPanicInfoKey   "aapl,panic-info" ; inline
+
+: kIOBootDeviceKey "IOBootDevice"   ; inline
+: kIOBootDevicePathKey "IOBootDevicePath"  ; inline
+: kIOBootDeviceSizeKey "IOBootDeviceSize"  ; inline
+
+: kOSBuildVersionKey   "OS Build Version" ; inline
+
+: kNilOptions 0 ; inline
+
+TYPEDEF: uint mach_port_t
+TYPEDEF: int kern_return_t
+TYPEDEF: int boolean_t
+TYPEDEF: mach_port_t io_object_t
+TYPEDEF: io_object_t io_iterator_t
+TYPEDEF: io_object_t io_registry_entry_t
+TYPEDEF: char[128] io_name_t
+TYPEDEF: char[512] io_string_t
+
+TYPEDEF: uint IOOptionBits
+
+: MACH_PORT_NULL 0 ; inline
+: KERN_SUCCESS 0 ; inline
+
+FUNCTION: kern_return_t IOMasterPort ( mach_port_t bootstrap, mach_port_t* master ) ;
+
+FUNCTION: NSDictionary* IOServiceMatching ( char* name ) ;
+FUNCTION: NSDictionary* IOServiceNameMatching ( char* name ) ;
+FUNCTION: NSDictionary* IOBSDNameMatching ( char* name ) ;
+
+FUNCTION: kern_return_t IOObjectRetain ( io_object_t o ) ;
+FUNCTION: kern_return_t IOObjectRelease ( io_object_t o ) ;
+
+FUNCTION: kern_return_t IOServiceGetMatchingServices ( mach_port_t master, NSDictionary* matchingDict, io_iterator_t* iterator ) ;
+
+FUNCTION: io_object_t IOIteratorNext ( io_iterator_t i ) ;
+FUNCTION: void IOIteratorReset ( io_iterator_t i ) ;
+FUNCTION: boolean_t IOIteratorIsValid ( io_iterator_t i ) ;
+
+FUNCTION: kern_return_t IORegistryEntryGetPath ( io_registry_entry_t entry, io_name_t plane, io_string_t path ) ;
+
+FUNCTION: kern_return_t IORegistryEntryCreateCFProperties ( io_registry_entry_t entry, NSMutableDictionary** properties, CFAllocatorRef allocator, IOOptionBits options ) ;
+
+FUNCTION: char* mach_error_string ( kern_return_t error ) ;
+
+TUPLE: mach-error error-code ;
+C: <mach-error> mach-error
+
+M: mach-error error.
+    "IOKit call failed: " print error-code>> mach_error_string print ;
+
+: mach-error ( return -- )
+    dup KERN_SUCCESS = [ drop ] [ <mach-error> throw ] if ;
+
+: master-port ( -- port )
+    MACH_PORT_NULL 0 <uint> [ IOMasterPort mach-error ] keep *uint ;
+
+: io-services-matching-dictionary ( nsdictionary -- iterator )
+    master-port swap 0 <uint>
+    [ IOServiceGetMatchingServices mach-error ] keep
+    *uint ;
+
+: io-services-matching-service ( service -- iterator )
+    IOServiceMatching io-services-matching-dictionary ;
+: io-services-matching-service-name ( service-name -- iterator )
+    IOServiceNameMatching io-services-matching-dictionary ;
+: io-services-matching-bsd-name ( bsd-name -- iterator )
+    IOBSDNameMatching io-services-matching-dictionary ;
+
+: retain-io-object ( o -- o )
+    [ IOObjectRetain mach-error ] keep ;
+: release-io-object ( o -- )
+    IOObjectRelease mach-error ;
+
+: io-objects-from-iterator* ( i -- i array )
+    [ dup IOIteratorNext dup MACH_PORT_NULL = not ]
+    [ ]
+    [ drop ] produce ;
+
+: io-objects-from-iterator ( i -- array )
+    io-objects-from-iterator* [ release-io-object ] dip ;
+    
+: properties-from-io-object ( o -- o nsdictionary )
+    dup f <void*> [
+        kCFAllocatorDefault kNilOptions
+        IORegistryEntryCreateCFProperties mach-error
+    ]
+    keep *void* ;
+

extra/iokit/summary.txt

@@ -0,0 +1 @@
+Bindings to Apple IOKit device interface

extra/iokit/tags.txt

@@ -0,0 +1,3 @@
+mac
+bindings
+system