Re-generate Vision bindings.

dboris · Sep 3, 2024 · d322f8d · d322f8d
1 parent 18acca1
commit d322f8d
Show file tree

Hide file tree

Showing 760 changed files with 2,179 additions and 6,992 deletions.
diff --git a/Vision/VNANEProcessingDevice.ml b/Vision/VNANEProcessingDevice.ml
@@ -5,9 +5,11 @@ open Objc
 
 [@@@ocaml.warning "-33"]
 open Foundation
+open CoreVideo
 
-let _class_ = get_class "VNANEProcessingDevice"
+(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnaneprocessingdevice?language=objc}VNANEProcessingDevice} *)
 
-let computeDevice self = msg_send ~self ~cmd:(selector "computeDevice") ~typ:(returning (id))
-let espressoStorageType self = msg_send ~self ~cmd:(selector "espressoStorageType") ~typ:(returning (int))
-let targetsANE self = msg_send ~self ~cmd:(selector "targetsANE") ~typ:(returning (bool))
+let self = get_class "VNANEProcessingDevice"
+
+let espressoStorageType self = msg_send ~self ~cmd:(selector "espressoStorageType") ~typ:(returning int)
+let targetsANE self = msg_send ~self ~cmd:(selector "targetsANE") ~typ:(returning bool)
diff --git a/Vision/VNANFDDetectorCompoundRequest.ml b/Vision/VNANFDDetectorCompoundRequest.ml
@@ -4,15 +4,13 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfddetectorcompoundrequest?language=objc}VNANFDDetectorCompoundRequest} *)
 
+let self = get_class "VNANFDDetectorCompoundRequest"
+
 let assignOriginalRequestsResultsFromObservations x ~obtainedInPerformingContext self = msg_send ~self ~cmd:(selector "assignOriginalRequestsResultsFromObservations:obtainedInPerformingContext:") ~typ:(id @-> id @-> returning void) x obtainedInPerformingContext
 let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong)
 let initWithDetectorType x ~configuration self = msg_send ~self ~cmd:(selector "initWithDetectorType:configuration:") ~typ:(id @-> id @-> returning id) x configuration

diff --git a/Vision/VNANFDDetectorCompoundRequestClass.ml b/Vision/VNANFDDetectorCompoundRequestClass.ml
@@ -4,17 +4,11 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfddetectorcompoundrequest?language=objc}VNANFDDetectorCompoundRequest} *)
 
-let self = get_class "VNANFDDetectorCompoundRequest"
-
 let compoundRequestRevisionForRequest x self = msg_send ~self ~cmd:(selector "compoundRequestRevisionForRequest:") ~typ:(id @-> returning llong) x
 let compoundRequestsForOriginalRequests x ~withPerformingContext ~error self = msg_send ~self ~cmd:(selector "compoundRequestsForOriginalRequests:withPerformingContext:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x withPerformingContext error
 let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class)

diff --git a/Vision/VNANFDDetectorCompoundRequestConfiguration.ml b/Vision/VNANFDDetectorCompoundRequestConfiguration.ml
@@ -4,15 +4,13 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfddetectorcompoundrequestconfiguration?language=objc}VNANFDDetectorCompoundRequestConfiguration} *)
 
+let self = get_class "VNANFDDetectorCompoundRequestConfiguration"
+
 let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x
 let detectorConfigurationOptions self = msg_send ~self ~cmd:(selector "detectorConfigurationOptions") ~typ:(returning id)
 let detectorType self = msg_send ~self ~cmd:(selector "detectorType") ~typ:(returning id)

diff --git a/Vision/VNANFDDetectorCompoundRequestConfigurationClass.ml b/Vision/VNANFDDetectorCompoundRequestConfigurationClass.ml
diff --git a/Vision/VNANFDDetectorCompoundRequestConfigurationGroups.ml b/Vision/VNANFDDetectorCompoundRequestConfigurationGroups.ml
@@ -4,15 +4,13 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfddetectorcompoundrequestconfigurationgroups?language=objc}VNANFDDetectorCompoundRequestConfigurationGroups} *)
 
+let self = get_class "VNANFDDetectorCompoundRequestConfigurationGroups"
+
 let allConfigurations self = msg_send ~self ~cmd:(selector "allConfigurations") ~typ:(returning id)
 let configurationForRequest x self = msg_send ~self ~cmd:(selector "configurationForRequest:") ~typ:(id @-> returning id) x
 let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning ullong)

diff --git a/Vision/VNANFDDetectorCompoundRequestConfigurationGroupsClass.ml b/Vision/VNANFDDetectorCompoundRequestConfigurationGroupsClass.ml
@@ -4,15 +4,9 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfddetectorcompoundrequestconfigurationgroups?language=objc}VNANFDDetectorCompoundRequestConfigurationGroups} *)
 
-let self = get_class "VNANFDDetectorCompoundRequestConfigurationGroups"
-
 let createCompoundConfigurationHashKeyForRequest x ~compoundRequestRevision self = msg_send ~self ~cmd:(selector "createCompoundConfigurationHashKeyForRequest:compoundRequestRevision:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int compoundRequestRevision)
diff --git a/Vision/VNANFDMultiDetector.ml b/Vision/VNANFDMultiDetector.ml
@@ -4,15 +4,13 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetector?language=objc}VNANFDMultiDetector} *)
 
+let self = get_class "VNANFDMultiDetector"
+
 let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error
 let processDetectedObject x ~originatingRequestSpecifier ~objectBoundingBox ~imageBuffer ~warningRecorder ~detectedObjectResults ~error self = msg_send ~self ~cmd:(selector "processDetectedObject:originatingRequestSpecifier:objectBoundingBox:imageBuffer:warningRecorder:detectedObjectResults:error:") ~typ:(id @-> id @-> CGRect.t @-> id @-> id @-> id @-> (ptr id) @-> returning bool) x originatingRequestSpecifier objectBoundingBox imageBuffer warningRecorder detectedObjectResults error
 let processRecognizedObjectWithIdentifier x ~originatingRequestSpecifier ~objectBoundingBox ~objectConfidence ~detectedObjectResults self = msg_send ~self ~cmd:(selector "processRecognizedObjectWithIdentifier:originatingRequestSpecifier:objectBoundingBox:objectConfidence:detectedObjectResults:") ~typ:(id @-> id @-> CGRect.t @-> float @-> id @-> returning void) x originatingRequestSpecifier objectBoundingBox objectConfidence detectedObjectResults

diff --git a/Vision/VNANFDMultiDetectorANODv3.ml b/Vision/VNANFDMultiDetectorANODv3.ml
@@ -5,18 +5,11 @@ open Objc
 
 [@@@ocaml.warning "-33"]
 open Foundation
+open CoreVideo
 
-let _class_ = get_class "VNANFDMultiDetectorANODv3"
+(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetectoranodv3?language=objc}VNANFDMultiDetectorANODv3} *)
 
-module C = struct
-  let detectedObjectClassToRequestKey self = msg_send ~self ~cmd:(selector "detectedObjectClassToRequestKey") ~typ:(returning (id))
-  let detectedObjectRequestKeyToRequestInfo self = msg_send ~self ~cmd:(selector "detectedObjectRequestKeyToRequestInfo") ~typ:(returning (id))
-  let detectorClass self = msg_send ~self ~cmd:(selector "detectorClass") ~typ:(returning (_Class))
-  let knownFoodAndDrinkIdentifiers self = msg_send ~self ~cmd:(selector "knownFoodAndDrinkIdentifiers") ~typ:(returning (id))
-  let recognizedFoodAndDrinkObjectClassToFoodAndDrinkCategoryName self = msg_send ~self ~cmd:(selector "recognizedFoodAndDrinkObjectClassToFoodAndDrinkCategoryName") ~typ:(returning (id))
-  let shouldAlignFacesForRequestWithSpecifier x self = msg_send ~self ~cmd:(selector "shouldAlignFacesForRequestWithSpecifier:") ~typ:(id @-> returning (bool)) x
-end
+let self = get_class "VNANFDMultiDetectorANODv3"
 
-let processDetectedObject x ~originatingRequestSpecifier ~objectBoundingBox ~objectGroupId ~imageBuffer ~qosClass ~session ~warningRecorder ~detectedObjectResults ~error self = msg_send ~self ~cmd:(selector "processDetectedObject:originatingRequestSpecifier:objectBoundingBox:objectGroupId:imageBuffer:qosClass:session:warningRecorder:detectedObjectResults:error:") ~typ:(id @-> id @-> CGRect.t @-> id @-> id @-> uint @-> id @-> id @-> id @-> ptr (id) @-> returning (bool)) x originatingRequestSpecifier objectBoundingBox objectGroupId imageBuffer qosClass session warningRecorder detectedObjectResults error
-let splitDetectedClassResultsIntoSubclasses x self = msg_send ~self ~cmd:(selector "splitDetectedClassResultsIntoSubclasses:") ~typ:(id @-> returning (id)) x
-let updateRuntimeParametersFromOptions x ~error self = msg_send ~self ~cmd:(selector "updateRuntimeParametersFromOptions:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error
+let processDetectedObject x ~originatingRequestSpecifier ~objectBoundingBox ~imageBuffer ~warningRecorder ~detectedObjectResults ~error self = msg_send ~self ~cmd:(selector "processDetectedObject:originatingRequestSpecifier:objectBoundingBox:imageBuffer:warningRecorder:detectedObjectResults:error:") ~typ:(id @-> id @-> CGRect.t @-> id @-> id @-> id @-> (ptr id) @-> returning bool) x originatingRequestSpecifier objectBoundingBox imageBuffer warningRecorder detectedObjectResults error
+let updateRuntimeParametersFromOptions x ~error self = msg_send ~self ~cmd:(selector "updateRuntimeParametersFromOptions:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error
diff --git a/Vision/VNANFDMultiDetectorANODv3Class.ml b/Vision/VNANFDMultiDetectorANODv3Class.ml
@@ -0,0 +1,16 @@
+(* auto-generated, do not modify *)
+
+open Runtime
+open Objc
+
+[@@@ocaml.warning "-33"]
+open Foundation
+open CoreVideo
+
+(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetectoranodv3?language=objc}VNANFDMultiDetectorANODv3} *)
+
+let detectedObjectClassToRequestKey self = msg_send ~self ~cmd:(selector "detectedObjectClassToRequestKey") ~typ:(returning id)
+let detectedObjectRequestKeyToRequestInfo self = msg_send ~self ~cmd:(selector "detectedObjectRequestKeyToRequestInfo") ~typ:(returning id)
+let detectorClass self = msg_send ~self ~cmd:(selector "detectorClass") ~typ:(returning _Class)
+let knownFoodAndDrinkIdentifiers self = msg_send ~self ~cmd:(selector "knownFoodAndDrinkIdentifiers") ~typ:(returning id)
+let recognizedFoodAndDrinkObjectClassToFoodAndDrinkCategoryName self = msg_send ~self ~cmd:(selector "recognizedFoodAndDrinkObjectClassToFoodAndDrinkCategoryName") ~typ:(returning id)
diff --git a/Vision/VNANFDMultiDetectorANODv4.ml b/Vision/VNANFDMultiDetectorANODv4.ml
@@ -5,20 +5,11 @@ open Objc
 
 [@@@ocaml.warning "-33"]
 open Foundation
+open CoreVideo
 
-let _class_ = get_class "VNANFDMultiDetectorANODv4"
+(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetectoranodv4?language=objc}VNANFDMultiDetectorANODv4} *)
 
-module C = struct
-  let detectedObjectClassToRequestKey self = msg_send ~self ~cmd:(selector "detectedObjectClassToRequestKey") ~typ:(returning (id))
-  let detectedObjectRequestKeyToRequestInfo self = msg_send ~self ~cmd:(selector "detectedObjectRequestKeyToRequestInfo") ~typ:(returning (id))
-  let detectorClass self = msg_send ~self ~cmd:(selector "detectorClass") ~typ:(returning (_Class))
-  let knownAnimalHeadIdentifiers self = msg_send ~self ~cmd:(selector "knownAnimalHeadIdentifiers") ~typ:(returning (id))
-  let knownSportBallIdentifiers self = msg_send ~self ~cmd:(selector "knownSportBallIdentifiers") ~typ:(returning (id))
-  let recognizedAnimalHeadObjectClassToAnimalHeadCategoryName self = msg_send ~self ~cmd:(selector "recognizedAnimalHeadObjectClassToAnimalHeadCategoryName") ~typ:(returning (id))
-  let recognizedSportBallObjectClassToSportBallCategoryName self = msg_send ~self ~cmd:(selector "recognizedSportBallObjectClassToSportBallCategoryName") ~typ:(returning (id))
-  let shouldAlignFacesForRequestWithSpecifier x self = msg_send ~self ~cmd:(selector "shouldAlignFacesForRequestWithSpecifier:") ~typ:(id @-> returning (bool)) x
-end
+let self = get_class "VNANFDMultiDetectorANODv4"
 
-let processDetectedObject x ~originatingRequestSpecifier ~objectBoundingBox ~objectGroupId ~imageBuffer ~qosClass ~session ~warningRecorder ~detectedObjectResults ~error self = msg_send ~self ~cmd:(selector "processDetectedObject:originatingRequestSpecifier:objectBoundingBox:objectGroupId:imageBuffer:qosClass:session:warningRecorder:detectedObjectResults:error:") ~typ:(id @-> id @-> CGRect.t @-> id @-> id @-> uint @-> id @-> id @-> id @-> ptr (id) @-> returning (bool)) x originatingRequestSpecifier objectBoundingBox objectGroupId imageBuffer qosClass session warningRecorder detectedObjectResults error
-let splitDetectedClassResultsIntoSubclasses x self = msg_send ~self ~cmd:(selector "splitDetectedClassResultsIntoSubclasses:") ~typ:(id @-> returning (id)) x
-let updateRuntimeParametersFromOptions x ~error self = msg_send ~self ~cmd:(selector "updateRuntimeParametersFromOptions:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error
+let processDetectedObject x ~originatingRequestSpecifier ~objectBoundingBox ~imageBuffer ~warningRecorder ~detectedObjectResults ~error self = msg_send ~self ~cmd:(selector "processDetectedObject:originatingRequestSpecifier:objectBoundingBox:imageBuffer:warningRecorder:detectedObjectResults:error:") ~typ:(id @-> id @-> CGRect.t @-> id @-> id @-> id @-> (ptr id) @-> returning bool) x originatingRequestSpecifier objectBoundingBox imageBuffer warningRecorder detectedObjectResults error
+let updateRuntimeParametersFromOptions x ~error self = msg_send ~self ~cmd:(selector "updateRuntimeParametersFromOptions:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error
diff --git a/Vision/VNANFDMultiDetectorANODv4Class.ml b/Vision/VNANFDMultiDetectorANODv4Class.ml
@@ -0,0 +1,18 @@
+(* auto-generated, do not modify *)
+
+open Runtime
+open Objc
+
+[@@@ocaml.warning "-33"]
+open Foundation
+open CoreVideo
+
+(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetectoranodv4?language=objc}VNANFDMultiDetectorANODv4} *)
+
+let detectedObjectClassToRequestKey self = msg_send ~self ~cmd:(selector "detectedObjectClassToRequestKey") ~typ:(returning id)
+let detectedObjectRequestKeyToRequestInfo self = msg_send ~self ~cmd:(selector "detectedObjectRequestKeyToRequestInfo") ~typ:(returning id)
+let detectorClass self = msg_send ~self ~cmd:(selector "detectorClass") ~typ:(returning _Class)
+let knownAnimalHeadIdentifiers self = msg_send ~self ~cmd:(selector "knownAnimalHeadIdentifiers") ~typ:(returning id)
+let knownSportBallIdentifiers self = msg_send ~self ~cmd:(selector "knownSportBallIdentifiers") ~typ:(returning id)
+let recognizedAnimalHeadObjectClassToAnimalHeadCategoryName self = msg_send ~self ~cmd:(selector "recognizedAnimalHeadObjectClassToAnimalHeadCategoryName") ~typ:(returning id)
+let recognizedSportBallObjectClassToSportBallCategoryName self = msg_send ~self ~cmd:(selector "recognizedSportBallObjectClassToSportBallCategoryName") ~typ:(returning id)
diff --git a/Vision/VNANFDMultiDetectorANODv5.ml b/Vision/VNANFDMultiDetectorANODv5.ml
diff --git a/Vision/VNANFDMultiDetectorClass.ml b/Vision/VNANFDMultiDetectorClass.ml
@@ -4,17 +4,11 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetector?language=objc}VNANFDMultiDetector} *)
 
-let self = get_class "VNANFDMultiDetector"
-
 let anfdMultiDetectorClassToProcessRequest x self = msg_send ~self ~cmd:(selector "anfdMultiDetectorClassToProcessRequest:") ~typ:(id @-> returning _Class) x
 let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id)
 let detectedObjectClassToRequestKey self = msg_send ~self ~cmd:(selector "detectedObjectClassToRequestKey") ~typ:(returning id)

diff --git a/Vision/VNANFDMultiDetectorOriginalRequestInfo.ml b/Vision/VNANFDMultiDetectorOriginalRequestInfo.ml
@@ -4,15 +4,13 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetectororiginalrequestinfo?language=objc}VNANFDMultiDetectorOriginalRequestInfo} *)
 
+let self = get_class "VNANFDMultiDetectorOriginalRequestInfo"
+
 let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id)
 let initWithOriginatingRequestSpecifierProcessingOptionKey x ~originalRequestResultsIndex self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifierProcessingOptionKey:originalRequestResultsIndex:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int originalRequestResultsIndex)
 let originalRequestResultsIndex self = msg_send ~self ~cmd:(selector "originalRequestResultsIndex") ~typ:(returning ullong)

diff --git a/Vision/VNANFDMultiDetectorOriginalRequestInfoClass.ml b/Vision/VNANFDMultiDetectorOriginalRequestInfoClass.ml
@@ -4,17 +4,11 @@ open Runtime
 open Objc
 
 [@@@ocaml.warning "-33"]
-open CoreFoundation
-open CoreFoundation_globals
-open CoreGraphics
-open CoreGraphics_globals
+open Foundation
 open CoreVideo
-open CoreVideo_globals
 
 (** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfdmultidetectororiginalrequestinfo?language=objc}VNANFDMultiDetectorOriginalRequestInfo} *)
 
-let self = get_class "VNANFDMultiDetectorOriginalRequestInfo"
-
 let originatingRequestSpecifierToDetectorClassMap self = msg_send ~self ~cmd:(selector "originatingRequestSpecifierToDetectorClassMap") ~typ:(returning id)
 let requestClassNameFromRequestKey x self = msg_send ~self ~cmd:(selector "requestClassNameFromRequestKey:") ~typ:(id @-> returning id) x
 let requestKeyFromRequest x self = msg_send ~self ~cmd:(selector "requestKeyFromRequest:") ~typ:(id @-> returning id) x