diff --git a/Vision/VNANEProcessingDevice.ml b/Vision/VNANEProcessingDevice.ml index 0c204ed1..cda39693 100644 --- 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)) \ No newline at end of file +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) \ No newline at end of file diff --git a/Vision/VNANFDDetectorCompoundRequest.ml b/Vision/VNANFDDetectorCompoundRequest.ml index 2f98d50c..f5bd8ab3 100644 --- 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 index 21638847..e7007883 100644 --- 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 index 77de3db2..61562b7e 100644 --- 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 deleted file mode 100644 index 70793850..00000000 --- a/Vision/VNANFDDetectorCompoundRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanfddetectorcompoundrequestconfiguration?language=objc}VNANFDDetectorCompoundRequestConfiguration} *) - -let self = get_class "VNANFDDetectorCompoundRequestConfiguration" - diff --git a/Vision/VNANFDDetectorCompoundRequestConfigurationGroups.ml b/Vision/VNANFDDetectorCompoundRequestConfigurationGroups.ml index 742ccc7f..d01764de 100644 --- 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 index cc2a9c7e..850f1067 100644 --- 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) \ No newline at end of file diff --git a/Vision/VNANFDMultiDetector.ml b/Vision/VNANFDMultiDetector.ml index d90d6fa0..72960b6a 100644 --- 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 index 48515fbb..f675001c 100644 --- 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 \ No newline at end of file +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 \ No newline at end of file diff --git a/Vision/VNANFDMultiDetectorANODv3Class.ml b/Vision/VNANFDMultiDetectorANODv3Class.ml new file mode 100644 index 00000000..4abde221 --- /dev/null +++ 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) \ No newline at end of file diff --git a/Vision/VNANFDMultiDetectorANODv4.ml b/Vision/VNANFDMultiDetectorANODv4.ml index 0bbb6b3f..9bde8fd0 100644 --- 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 \ No newline at end of file +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 \ No newline at end of file diff --git a/Vision/VNANFDMultiDetectorANODv4Class.ml b/Vision/VNANFDMultiDetectorANODv4Class.ml new file mode 100644 index 00000000..a3b4f78d --- /dev/null +++ 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) \ No newline at end of file diff --git a/Vision/VNANFDMultiDetectorANODv5.ml b/Vision/VNANFDMultiDetectorANODv5.ml deleted file mode 100644 index 79e0a27d..00000000 --- a/Vision/VNANFDMultiDetectorANODv5.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNANFDMultiDetectorANODv5" - -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 knownAnimalFaceIdentifiers self = msg_send ~self ~cmd:(selector "knownAnimalFaceIdentifiers") ~typ:(returning (id)) - let recognizedAnimalFaceObjectClassToAnimalFaceCategoryName self = msg_send ~self ~cmd:(selector "recognizedAnimalFaceObjectClassToAnimalFaceCategoryName") ~typ:(returning (id)) - let shouldAlignFacesForRequestWithSpecifier x self = msg_send ~self ~cmd:(selector "shouldAlignFacesForRequestWithSpecifier:") ~typ:(id @-> returning (bool)) x -end - -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 \ No newline at end of file diff --git a/Vision/VNANFDMultiDetectorClass.ml b/Vision/VNANFDMultiDetectorClass.ml index 9c8e2975..69c14cf6 100644 --- 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 index 03c93205..75363281 100644 --- 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 index 466020cb..8c5ec488 100644 --- 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 diff --git a/Vision/VNAlignFaceRectangleRequest.ml b/Vision/VNAlignFaceRectangleRequest.ml index 749756dd..460e6c9c 100644 --- a/Vision/VNAlignFaceRectangleRequest.ml +++ b/Vision/VNAlignFaceRectangleRequest.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/vnalignfacerectanglerequest?language=objc}VNAlignFaceRectangleRequest} *) +let self = get_class "VNAlignFaceRectangleRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let initWithFaceObservations x self = msg_send ~self ~cmd:(selector "initWithFaceObservations:") ~typ:(id @-> returning id) x let initWithFaceObservations' x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithFaceObservations:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler diff --git a/Vision/VNAlignFaceRectangleRequestClass.ml b/Vision/VNAlignFaceRectangleRequestClass.ml index 472ef561..980e37d5 100644 --- a/Vision/VNAlignFaceRectangleRequestClass.ml +++ b/Vision/VNAlignFaceRectangleRequestClass.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/vnalignfacerectanglerequest?language=objc}VNAlignFaceRectangleRequest} *) -let self = get_class "VNAlignFaceRectangleRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNAlignFaceRectangleRequestConfiguration.ml b/Vision/VNAlignFaceRectangleRequestConfiguration.ml index 987e7c6e..37cc3587 100644 --- a/Vision/VNAlignFaceRectangleRequestConfiguration.ml +++ b/Vision/VNAlignFaceRectangleRequestConfiguration.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/vnalignfacerectanglerequestconfiguration?language=objc}VNAlignFaceRectangleRequestConfiguration} *) +let self = get_class "VNAlignFaceRectangleRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let inputFaceObservations self = msg_send ~self ~cmd:(selector "inputFaceObservations") ~typ:(returning id) let setInputFaceObservations x self = msg_send ~self ~cmd:(selector "setInputFaceObservations:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/Vision/VNAlignFaceRectangleRequestConfigurationClass.ml b/Vision/VNAlignFaceRectangleRequestConfigurationClass.ml deleted file mode 100644 index f5c4e9d3..00000000 --- a/Vision/VNAlignFaceRectangleRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnalignfacerectanglerequestconfiguration?language=objc}VNAlignFaceRectangleRequestConfiguration} *) - -let self = get_class "VNAlignFaceRectangleRequestConfiguration" - diff --git a/Vision/VNAnimalBodyPoseDetector.ml b/Vision/VNAnimalBodyPoseDetector.ml deleted file mode 100644 index 6f02669b..00000000 --- a/Vision/VNAnimalBodyPoseDetector.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNAnimalBodyPoseDetector" - -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNAnimalBodyPoseObservation.ml b/Vision/VNAnimalBodyPoseObservation.ml deleted file mode 100644 index 01898e83..00000000 --- a/Vision/VNAnimalBodyPoseObservation.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNAnimalBodyPoseObservation" - -let availableJointGroupNames self = msg_send ~self ~cmd:(selector "availableJointGroupNames") ~typ:(returning (id)) -let availableJointNames self = msg_send ~self ~cmd:(selector "availableJointNames") ~typ:(returning (id)) -let recognizedPointForJointName x ~error self = msg_send ~self ~cmd:(selector "recognizedPointForJointName:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let recognizedPointsForJointsGroupName x ~error self = msg_send ~self ~cmd:(selector "recognizedPointsForJointsGroupName:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file diff --git a/Vision/VNAnimalObservation.ml b/Vision/VNAnimalObservation.ml index 5b65db90..5ef07f12 100644 --- a/Vision/VNAnimalObservation.ml +++ b/Vision/VNAnimalObservation.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/vnanimalobservation?language=objc}VNAnimalObservation} *) +let self = get_class "VNAnimalObservation" + let _VNEntityIdentificationModelPrintWithOriginatingRequestSpecifier x ~error self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintWithOriginatingRequestSpecifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let animalprint self = msg_send ~self ~cmd:(selector "animalprint") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNAnimalObservationClass.ml b/Vision/VNAnimalObservationClass.ml index 22eb994d..90e7d23e 100644 --- a/Vision/VNAnimalObservationClass.ml +++ b/Vision/VNAnimalObservationClass.ml @@ -4,16 +4,10 @@ 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/vnanimalobservation?language=objc}VNAnimalObservation} *) -let self = get_class "VNAnimalObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNAnimalprint.ml b/Vision/VNAnimalprint.ml index c0e48548..643ea2e4 100644 --- a/Vision/VNAnimalprint.ml +++ b/Vision/VNAnimalprint.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/vnanimalprint?language=objc}VNAnimalprint} *) +let self = get_class "VNAnimalprint" + let _VNEntityIdentificationModelPrintByteLength self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintByteLength") ~typ:(returning ullong) let _VNEntityIdentificationModelPrintData self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintData") ~typ:(returning id) let _VNEntityIdentificationModelPrintElementCount self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintElementCount") ~typ:(returning ullong) diff --git a/Vision/VNAnimalprintClass.ml b/Vision/VNAnimalprintClass.ml index ab1c3ab5..f159b47d 100644 --- a/Vision/VNAnimalprintClass.ml +++ b/Vision/VNAnimalprintClass.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/vnanimalprint?language=objc}VNAnimalprint} *) -let self = get_class "VNAnimalprint" - let confidenceTypeForRevision x self = msg_send ~self ~cmd:(selector "confidenceTypeForRevision:") ~typ:(ullong @-> returning ullong) (ULLong.of_int x) let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning uint) let currentSerializationVersion self = msg_send ~self ~cmd:(selector "currentSerializationVersion") ~typ:(returning ullong) diff --git a/Vision/VNAnimalprintDetectorBase.ml b/Vision/VNAnimalprintDetectorBase.ml index 2ced3ab7..011cb2f5 100644 --- a/Vision/VNAnimalprintDetectorBase.ml +++ b/Vision/VNAnimalprintDetectorBase.ml @@ -5,15 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNAnimalprintDetectorBase" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanimalprintdetectorbase?language=objc}VNAnimalprintDetectorBase} *) -module C = struct - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let modelVersionForOptions x self = msg_send ~self ~cmd:(selector "modelVersionForOptions:") ~typ:(id @-> returning (ptr (void))) x -end +let self = get_class "VNAnimalprintDetectorBase" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNAnimalprintDetectorBaseClass.ml b/Vision/VNAnimalprintDetectorBaseClass.ml new file mode 100644 index 00000000..d1b8982f --- /dev/null +++ b/Vision/VNAnimalprintDetectorBaseClass.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnanimalprintdetectorbase?language=objc}VNAnimalprintDetectorBase} *) + +let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> (ptr id) @-> returning _Class) x error +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let modelVersionForOptions x self = msg_send ~self ~cmd:(selector "modelVersionForOptions:") ~typ:(id @-> returning (ptr void)) x \ No newline at end of file diff --git a/Vision/VNAsyncStatus.ml b/Vision/VNAsyncStatus.ml deleted file mode 100644 index 38f03f56..00000000 --- a/Vision/VNAsyncStatus.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNAsyncStatus" - -let completed self = msg_send ~self ~cmd:(selector "completed") ~typ:(returning (bool)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let error self = msg_send ~self ~cmd:(selector "error") ~typ:(returning (id)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithStatus x ~error self = msg_send ~self ~cmd:(selector "initWithStatus:error:") ~typ:(bool @-> id @-> returning (id)) x error \ No newline at end of file diff --git a/Vision/VNBarcodeObservation.ml b/Vision/VNBarcodeObservation.ml index e4c2b0e2..ba39bb29 100644 --- a/Vision/VNBarcodeObservation.ml +++ b/Vision/VNBarcodeObservation.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/vnbarcodeobservation?language=objc}VNBarcodeObservation} *) +let self = get_class "VNBarcodeObservation" + let acbsBarcodeInfo self = msg_send ~self ~cmd:(selector "acbsBarcodeInfo") ~typ:(returning id) let appClipCodeMetadataValue self = msg_send ~self ~cmd:(selector "appClipCodeMetadataValue") ~typ:(returning id) let barcodeDescriptor self = msg_send ~self ~cmd:(selector "barcodeDescriptor") ~typ:(returning id) diff --git a/Vision/VNBarcodeObservationClass.ml b/Vision/VNBarcodeObservationClass.ml index 1af63de9..3111d9a5 100644 --- a/Vision/VNBarcodeObservationClass.ml +++ b/Vision/VNBarcodeObservationClass.ml @@ -4,16 +4,10 @@ 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/vnbarcodeobservation?language=objc}VNBarcodeObservation} *) -let self = get_class "VNBarcodeObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNBlacklist.ml b/Vision/VNBlacklist.ml index 2b6e3b3d..31fa6f7c 100644 --- a/Vision/VNBlacklist.ml +++ b/Vision/VNBlacklist.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/vnblacklist?language=objc}VNBlacklist} *) +let self = get_class "VNBlacklist" + let allIdentifiers self = msg_send ~self ~cmd:(selector "allIdentifiers") ~typ:(returning id) let containsIdentifier x self = msg_send ~self ~cmd:(selector "containsIdentifier:") ~typ:(id @-> returning bool) x let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNBlacklistClass.ml b/Vision/VNBlacklistClass.ml index 5eb9cff9..63cf753e 100644 --- a/Vision/VNBlacklistClass.ml +++ b/Vision/VNBlacklistClass.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/vnblacklist?language=objc}VNBlacklist} *) -let self = get_class "VNBlacklist" - let blacklistFromUTF8StringArray x self = msg_send ~self ~cmd:(selector "blacklistFromUTF8StringArray:") ~typ:((ptr string) @-> returning id) x \ No newline at end of file diff --git a/Vision/VNBlurSignature.ml b/Vision/VNBlurSignature.ml index 134e6ee6..9061e1bd 100644 --- a/Vision/VNBlurSignature.ml +++ b/Vision/VNBlurSignature.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/vnblursignature?language=objc}VNBlurSignature} *) +let self = get_class "VNBlurSignature" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let getSignatureData self = msg_send ~self ~cmd:(selector "getSignatureData") ~typ:(returning (ptr void)) let initWithSignatureData x self = msg_send ~self ~cmd:(selector "initWithSignatureData:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNBlurSignatureClass.ml b/Vision/VNBlurSignatureClass.ml index 2cdf85f3..074f545c 100644 --- a/Vision/VNBlurSignatureClass.ml +++ b/Vision/VNBlurSignatureClass.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/vnblursignature?language=objc}VNBlurSignature} *) -let self = get_class "VNBlurSignature" - -let computeBlurSignatureForGrayscaleImage x ~error self = msg_send ~self ~cmd:(selector "computeBlurSignatureForGrayscaleImage:error:") ~typ:((ptr CVBuffer.t) @-> (ptr id) @-> returning id) x error \ No newline at end of file +let computeBlurSignatureForGrayscaleImage x ~error self = msg_send ~self ~cmd:(selector "computeBlurSignatureForGrayscaleImage:error:") ~typ:((ptr void) @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNCIContrastFromAverageColorFilter.ml b/Vision/VNCIContrastFromAverageColorFilter.ml index c5c7755b..f1b998fa 100644 --- a/Vision/VNCIContrastFromAverageColorFilter.ml +++ b/Vision/VNCIContrastFromAverageColorFilter.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/vncicontrastfromaveragecolorfilter?language=objc}VNCIContrastFromAverageColorFilter} *) +let self = get_class "VNCIContrastFromAverageColorFilter" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithInputParameters x self = msg_send ~self ~cmd:(selector "initWithInputParameters:") ~typ:(id @-> returning id) x let inputContrast self = msg_send ~self ~cmd:(selector "inputContrast") ~typ:(returning id) diff --git a/Vision/VNCIContrastFromAverageColorFilterClass.ml b/Vision/VNCIContrastFromAverageColorFilterClass.ml deleted file mode 100644 index cb17a56f..00000000 --- a/Vision/VNCIContrastFromAverageColorFilterClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncicontrastfromaveragecolorfilter?language=objc}VNCIContrastFromAverageColorFilter} *) - -let self = get_class "VNCIContrastFromAverageColorFilter" - diff --git a/Vision/VNCIContrastWithPivotColorFilter.ml b/Vision/VNCIContrastWithPivotColorFilter.ml index 3308fbfb..9ed6cc39 100644 --- a/Vision/VNCIContrastWithPivotColorFilter.ml +++ b/Vision/VNCIContrastWithPivotColorFilter.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/vncicontrastwithpivotcolorfilter?language=objc}VNCIContrastWithPivotColorFilter} *) +let self = get_class "VNCIContrastWithPivotColorFilter" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithInputParameters x self = msg_send ~self ~cmd:(selector "initWithInputParameters:") ~typ:(id @-> returning id) x let inputContrast self = msg_send ~self ~cmd:(selector "inputContrast") ~typ:(returning id) diff --git a/Vision/VNCIContrastWithPivotColorFilterClass.ml b/Vision/VNCIContrastWithPivotColorFilterClass.ml deleted file mode 100644 index 9e250123..00000000 --- a/Vision/VNCIContrastWithPivotColorFilterClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncicontrastwithpivotcolorfilter?language=objc}VNCIContrastWithPivotColorFilter} *) - -let self = get_class "VNCIContrastWithPivotColorFilter" - diff --git a/Vision/VNCIFilter.ml b/Vision/VNCIFilter.ml index 0f86a5f5..5a127997 100644 --- a/Vision/VNCIFilter.ml +++ b/Vision/VNCIFilter.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/vncifilter?language=objc}VNCIFilter} *) +let self = get_class "VNCIFilter" + let initWithKernelName x self = msg_send ~self ~cmd:(selector "initWithKernelName:") ~typ:(id @-> returning id) x let initWithKernelName' x ~inputParameters self = msg_send ~self ~cmd:(selector "initWithKernelName:inputParameters:") ~typ:(id @-> id @-> returning id) x inputParameters let inputImage self = msg_send ~self ~cmd:(selector "inputImage") ~typ:(returning id) diff --git a/Vision/VNCIFilterClass.ml b/Vision/VNCIFilterClass.ml deleted file mode 100644 index 9c23fa2c..00000000 --- a/Vision/VNCIFilterClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncifilter?language=objc}VNCIFilter} *) - -let self = get_class "VNCIFilter" - diff --git a/Vision/VNCIMultiplicationFilter.ml b/Vision/VNCIMultiplicationFilter.ml deleted file mode 100644 index 7721a4cd..00000000 --- a/Vision/VNCIMultiplicationFilter.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCIMultiplicationFilter" - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let inputFactor1 self = msg_send ~self ~cmd:(selector "inputFactor1") ~typ:(returning (id)) -let inputFactor2 self = msg_send ~self ~cmd:(selector "inputFactor2") ~typ:(returning (id)) -let inputFactor3 self = msg_send ~self ~cmd:(selector "inputFactor3") ~typ:(returning (id)) -let inputFactor4 self = msg_send ~self ~cmd:(selector "inputFactor4") ~typ:(returning (id)) -let outputImage self = msg_send ~self ~cmd:(selector "outputImage") ~typ:(returning (id)) -let setInputFactor1 x self = msg_send ~self ~cmd:(selector "setInputFactor1:") ~typ:(id @-> returning (void)) x -let setInputFactor2 x self = msg_send ~self ~cmd:(selector "setInputFactor2:") ~typ:(id @-> returning (void)) x -let setInputFactor3 x self = msg_send ~self ~cmd:(selector "setInputFactor3:") ~typ:(id @-> returning (void)) x -let setInputFactor4 x self = msg_send ~self ~cmd:(selector "setInputFactor4:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNCPUProcessingDevice.ml b/Vision/VNCPUProcessingDevice.ml index c6ea5d5a..52180c2f 100644 --- a/Vision/VNCPUProcessingDevice.ml +++ b/Vision/VNCPUProcessingDevice.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/vncpuprocessingdevice?language=objc}VNCPUProcessingDevice} *) +let self = get_class "VNCPUProcessingDevice" + let espressoEngine self = msg_send ~self ~cmd:(selector "espressoEngine") ~typ:(returning int) let espressoStorageType self = msg_send ~self ~cmd:(selector "espressoStorageType") ~typ:(returning int) let metalDevice self = msg_send ~self ~cmd:(selector "metalDevice") ~typ:(returning id) diff --git a/Vision/VNCPUProcessingDeviceClass.ml b/Vision/VNCPUProcessingDeviceClass.ml deleted file mode 100644 index 395aa048..00000000 --- a/Vision/VNCPUProcessingDeviceClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncpuprocessingdevice?language=objc}VNCPUProcessingDevice} *) - -let self = get_class "VNCPUProcessingDevice" - diff --git a/Vision/VNCRImageReaderDetector.ml b/Vision/VNCRImageReaderDetector.ml index 4360efd5..4ca59ffa 100644 --- a/Vision/VNCRImageReaderDetector.ml +++ b/Vision/VNCRImageReaderDetector.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/vncrimagereaderdetector?language=objc}VNCRImageReaderDetector} *) +let self = get_class "VNCRImageReaderDetector" + let cachedImageReader self = msg_send ~self ~cmd:(selector "cachedImageReader") ~typ:(returning id) let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let isCRImageReaderViableAfterError x self = msg_send ~self ~cmd:(selector "isCRImageReaderViableAfterError:") ~typ:(id @-> returning bool) x diff --git a/Vision/VNCRImageReaderDetectorClass.ml b/Vision/VNCRImageReaderDetectorClass.ml index 909c451a..3f46bb0c 100644 --- a/Vision/VNCRImageReaderDetectorClass.ml +++ b/Vision/VNCRImageReaderDetectorClass.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/vncrimagereaderdetector?language=objc}VNCRImageReaderDetector} *) -let self = get_class "VNCRImageReaderDetector" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let imageReaderRecognitionOptionsForProcessOptions x self = msg_send ~self ~cmd:(selector "imageReaderRecognitionOptionsForProcessOptions:") ~typ:(id @-> returning id) x let supportedLanguagesForProcessOptions x ~error self = msg_send ~self ~cmd:(selector "supportedLanguagesForProcessOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNCRImageReaderForDocumentsDetector.ml b/Vision/VNCRImageReaderForDocumentsDetector.ml index 6466bf72..f9e3f2b0 100644 --- a/Vision/VNCRImageReaderForDocumentsDetector.ml +++ b/Vision/VNCRImageReaderForDocumentsDetector.ml @@ -5,13 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNCRImageReaderForDocumentsDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncrimagereaderfordocumentsdetector?language=objc}VNCRImageReaderForDocumentsDetector} *) -module C = struct - let imageReaderRecognitionOptionsForProcessOptions x self = msg_send ~self ~cmd:(selector "imageReaderRecognitionOptionsForProcessOptions:") ~typ:(id @-> returning (id)) x -end +let self = get_class "VNCRImageReaderForDocumentsDetector" -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x withOptions error \ No newline at end of file +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler +let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x withOptions error \ No newline at end of file diff --git a/Vision/VNCRImageReaderForDocumentsDetectorClass.ml b/Vision/VNCRImageReaderForDocumentsDetectorClass.ml new file mode 100644 index 00000000..f6a0b123 --- /dev/null +++ b/Vision/VNCRImageReaderForDocumentsDetectorClass.ml @@ -0,0 +1,12 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncrimagereaderfordocumentsdetector?language=objc}VNCRImageReaderForDocumentsDetector} *) + +let imageReaderRecognitionOptionsForProcessOptions x self = msg_send ~self ~cmd:(selector "imageReaderRecognitionOptionsForProcessOptions:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/Vision/VNCSUDetectionprintGenerator.ml b/Vision/VNCSUDetectionprintGenerator.ml deleted file mode 100644 index 6d296c90..00000000 --- a/Vision/VNCSUDetectionprintGenerator.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCSUDetectionprintGenerator" - -module C = struct - let computeStagesToBindForConfigurationOptions x self = msg_send ~self ~cmd:(selector "computeStagesToBindForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let needsMetalContext self = msg_send ~self ~cmd:(selector "needsMetalContext") ~typ:(returning (bool)) -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x withOptions error \ No newline at end of file diff --git a/Vision/VNCanceller.ml b/Vision/VNCanceller.ml index af013898..0d85b1bd 100644 --- a/Vision/VNCanceller.ml +++ b/Vision/VNCanceller.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/vncanceller?language=objc}VNCanceller} *) +let self = get_class "VNCanceller" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let reset self = msg_send ~self ~cmd:(selector "reset") ~typ:(returning void) let signalCancellation self = msg_send ~self ~cmd:(selector "signalCancellation") ~typ:(returning void) diff --git a/Vision/VNCancellerClass.ml b/Vision/VNCancellerClass.ml deleted file mode 100644 index 949cf42e..00000000 --- a/Vision/VNCancellerClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncanceller?language=objc}VNCanceller} *) - -let self = get_class "VNCanceller" - diff --git a/Vision/VNCircle.ml b/Vision/VNCircle.ml index 7cbe8662..2c0fad46 100644 --- a/Vision/VNCircle.ml +++ b/Vision/VNCircle.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/vncircle?language=objc}VNCircle} *) +let self = get_class "VNCircle" + let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning id) let containsPoint x self = msg_send ~self ~cmd:(selector "containsPoint:") ~typ:(id @-> returning bool) x let containsPoint' x ~inCircumferentialRingOfWidth self = msg_send ~self ~cmd:(selector "containsPoint:inCircumferentialRingOfWidth:") ~typ:(id @-> double @-> returning bool) x inCircumferentialRingOfWidth diff --git a/Vision/VNCircleClass.ml b/Vision/VNCircleClass.ml index 02bd0149..0cba965f 100644 --- a/Vision/VNCircleClass.ml +++ b/Vision/VNCircleClass.ml @@ -4,16 +4,10 @@ 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/vncircle?language=objc}VNCircle} *) -let self = get_class "VNCircle" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) let zeroCircle self = msg_send ~self ~cmd:(selector "zeroCircle") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNClassificationCustomHierarchy.ml b/Vision/VNClassificationCustomHierarchy.ml index 1bf3fac8..3cc965e2 100644 --- a/Vision/VNClassificationCustomHierarchy.ml +++ b/Vision/VNClassificationCustomHierarchy.ml @@ -4,24 +4,24 @@ 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/vnclassificationcustomhierarchy?language=objc}VNClassificationCustomHierarchy} *) +let self = get_class "VNClassificationCustomHierarchy" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let customHierarchyWithAdditionalParent x ~children ~error self = msg_send ~self ~cmd:(selector "customHierarchyWithAdditionalParent:children:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x children error let customHierarchyWithAdditionalRelationships x ~error self = msg_send ~self ~cmd:(selector "customHierarchyWithAdditionalRelationships:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) +let hierarchicalModelAndReturnError x self = msg_send ~self ~cmd:(selector "hierarchicalModelAndReturnError:") ~typ:((ptr id) @-> returning id) x let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x let initWithOriginatingRequestSpecifier x ~detectionLevel self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:detectionLevel:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int detectionLevel) let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let newHierarchicalModelAndReturnError x self = msg_send ~self ~cmd:(selector "newHierarchicalModelAndReturnError:") ~typ:((ptr id) @-> returning id) x let originatingRequestSpecifier self = msg_send ~self ~cmd:(selector "originatingRequestSpecifier") ~typ:(returning id) let relationships self = msg_send ~self ~cmd:(selector "relationships") ~typ:(returning id) let requestClassAndReturnError x self = msg_send ~self ~cmd:(selector "requestClassAndReturnError:") ~typ:((ptr id) @-> returning _Class) x diff --git a/Vision/VNClassificationCustomHierarchyClass.ml b/Vision/VNClassificationCustomHierarchyClass.ml index d2cc445a..f6310e9b 100644 --- a/Vision/VNClassificationCustomHierarchyClass.ml +++ b/Vision/VNClassificationCustomHierarchyClass.ml @@ -4,16 +4,10 @@ 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/vnclassificationcustomhierarchy?language=objc}VNClassificationCustomHierarchy} *) -let self = get_class "VNClassificationCustomHierarchy" - let customHierarchyForRequest x ~error self = msg_send ~self ~cmd:(selector "customHierarchyForRequest:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNClassificationObservation.ml b/Vision/VNClassificationObservation.ml index 07563b6c..3db5b090 100644 --- a/Vision/VNClassificationObservation.ml +++ b/Vision/VNClassificationObservation.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/vnclassificationobservation?language=objc}VNClassificationObservation} *) +let self = get_class "VNClassificationObservation" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hasMinimumPrecision x ~forRecall self = msg_send ~self ~cmd:(selector "hasMinimumPrecision:forRecall:") ~typ:(float @-> float @-> returning bool) x forRecall diff --git a/Vision/VNClassificationObservationClass.ml b/Vision/VNClassificationObservationClass.ml index ff965c00..a37baa6b 100644 --- a/Vision/VNClassificationObservationClass.ml +++ b/Vision/VNClassificationObservationClass.ml @@ -4,16 +4,10 @@ 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/vnclassificationobservation?language=objc}VNClassificationObservation} *) -let self = get_class "VNClassificationObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNClassifyCityNatureImageRequest.ml b/Vision/VNClassifyCityNatureImageRequest.ml deleted file mode 100644 index 3d48d0ef..00000000 --- a/Vision/VNClassifyCityNatureImageRequest.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNClassifyCityNatureImageRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) - let revision x ~mayAcceptResultsProducedByRevision self = msg_send ~self ~cmd:(selector "revision:mayAcceptResultsProducedByRevision:") ~typ:(ullong @-> ullong @-> returning (bool)) (ULLong.of_int x) (ULLong.of_int mayAcceptResultsProducedByRevision) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning (ullong)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let setImageCropAndScaleOption x self = msg_send ~self ~cmd:(selector "setImageCropAndScaleOption:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNClassifyCityNatureImageRequestConfiguration.ml b/Vision/VNClassifyCityNatureImageRequestConfiguration.ml deleted file mode 100644 index bb266d8c..00000000 --- a/Vision/VNClassifyCityNatureImageRequestConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNClassifyCityNatureImageRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning (ullong)) -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let setImageCropAndScaleOption x self = msg_send ~self ~cmd:(selector "setImageCropAndScaleOption:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNClassifyFaceAttributesRequest.ml b/Vision/VNClassifyFaceAttributesRequest.ml index c3cb1d6a..aabeea9a 100644 --- a/Vision/VNClassifyFaceAttributesRequest.ml +++ b/Vision/VNClassifyFaceAttributesRequest.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/vnclassifyfaceattributesrequest?language=objc}VNClassifyFaceAttributesRequest} *) +let self = get_class "VNClassifyFaceAttributesRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNClassifyFaceAttributesRequestClass.ml b/Vision/VNClassifyFaceAttributesRequestClass.ml index 03382457..7534a60a 100644 --- a/Vision/VNClassifyFaceAttributesRequestClass.ml +++ b/Vision/VNClassifyFaceAttributesRequestClass.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/vnclassifyfaceattributesrequest?language=objc}VNClassifyFaceAttributesRequest} *) -let self = get_class "VNClassifyFaceAttributesRequest" - let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNClassifyImageAestheticsRequest.ml b/Vision/VNClassifyImageAestheticsRequest.ml index 27f3ecde..c083f093 100644 --- a/Vision/VNClassifyImageAestheticsRequest.ml +++ b/Vision/VNClassifyImageAestheticsRequest.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/vnclassifyimageaestheticsrequest?language=objc}VNClassifyImageAestheticsRequest} *) +let self = get_class "VNClassifyImageAestheticsRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning id) diff --git a/Vision/VNClassifyImageAestheticsRequestClass.ml b/Vision/VNClassifyImageAestheticsRequestClass.ml index 04e57c60..e774f39f 100644 --- a/Vision/VNClassifyImageAestheticsRequestClass.ml +++ b/Vision/VNClassifyImageAestheticsRequestClass.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/vnclassifyimageaestheticsrequest?language=objc}VNClassifyImageAestheticsRequest} *) -let self = get_class "VNClassifyImageAestheticsRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNClassifyImageRequest.ml b/Vision/VNClassifyImageRequest.ml index b8cac1dd..27d4b3a3 100644 --- a/Vision/VNClassifyImageRequest.ml +++ b/Vision/VNClassifyImageRequest.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/vnclassifyimagerequest?language=objc}VNClassifyImageRequest} *) +let self = get_class "VNClassifyImageRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let customHierarchy self = msg_send ~self ~cmd:(selector "customHierarchy") ~typ:(returning id) let defineCustomHierarchy x ~error self = msg_send ~self ~cmd:(selector "defineCustomHierarchy:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNClassifyImageRequestClass.ml b/Vision/VNClassifyImageRequestClass.ml index 5aea2c22..7a50647e 100644 --- a/Vision/VNClassifyImageRequestClass.ml +++ b/Vision/VNClassifyImageRequestClass.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/vnclassifyimagerequest?language=objc}VNClassifyImageRequest} *) -let self = get_class "VNClassifyImageRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let knownClassificationsForRevision x ~error self = msg_send ~self ~cmd:(selector "knownClassificationsForRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error diff --git a/Vision/VNClassifyImageRequestConfiguration.ml b/Vision/VNClassifyImageRequestConfiguration.ml index cc092e96..7b510e48 100644 --- a/Vision/VNClassifyImageRequestConfiguration.ml +++ b/Vision/VNClassifyImageRequestConfiguration.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/vnclassifyimagerequestconfiguration?language=objc}VNClassifyImageRequestConfiguration} *) +let self = get_class "VNClassifyImageRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let customHierarchy self = msg_send ~self ~cmd:(selector "customHierarchy") ~typ:(returning id) let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) diff --git a/Vision/VNClassifyImageRequestConfigurationClass.ml b/Vision/VNClassifyImageRequestConfigurationClass.ml deleted file mode 100644 index 8cd2b304..00000000 --- a/Vision/VNClassifyImageRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclassifyimagerequestconfiguration?language=objc}VNClassifyImageRequestConfiguration} *) - -let self = get_class "VNClassifyImageRequestConfiguration" - diff --git a/Vision/VNClassifyJunkImageRequest.ml b/Vision/VNClassifyJunkImageRequest.ml index f784ca42..8fcff99a 100644 --- a/Vision/VNClassifyJunkImageRequest.ml +++ b/Vision/VNClassifyJunkImageRequest.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/vnclassifyjunkimagerequest?language=objc}VNClassifyJunkImageRequest} *) +let self = get_class "VNClassifyJunkImageRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) diff --git a/Vision/VNClassifyJunkImageRequestClass.ml b/Vision/VNClassifyJunkImageRequestClass.ml index 44ee41f1..d5217c16 100644 --- a/Vision/VNClassifyJunkImageRequestClass.ml +++ b/Vision/VNClassifyJunkImageRequestClass.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/vnclassifyjunkimagerequest?language=objc}VNClassifyJunkImageRequest} *) -let self = get_class "VNClassifyJunkImageRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let knownClassificationsForRevision x ~error self = msg_send ~self ~cmd:(selector "knownClassificationsForRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error diff --git a/Vision/VNClassifyJunkImageRequestConfiguration.ml b/Vision/VNClassifyJunkImageRequestConfiguration.ml index 74976a9f..45baa9fc 100644 --- a/Vision/VNClassifyJunkImageRequestConfiguration.ml +++ b/Vision/VNClassifyJunkImageRequestConfiguration.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/vnclassifyjunkimagerequestconfiguration?language=objc}VNClassifyJunkImageRequestConfiguration} *) +let self = get_class "VNClassifyJunkImageRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNClassifyJunkImageRequestConfigurationClass.ml b/Vision/VNClassifyJunkImageRequestConfigurationClass.ml deleted file mode 100644 index 279451ef..00000000 --- a/Vision/VNClassifyJunkImageRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclassifyjunkimagerequestconfiguration?language=objc}VNClassifyJunkImageRequestConfiguration} *) - -let self = get_class "VNClassifyJunkImageRequestConfiguration" - diff --git a/Vision/VNClassifyMemeImageRequest.ml b/Vision/VNClassifyMemeImageRequest.ml index 3d87dd20..8353b165 100644 --- a/Vision/VNClassifyMemeImageRequest.ml +++ b/Vision/VNClassifyMemeImageRequest.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/vnclassifymemeimagerequest?language=objc}VNClassifyMemeImageRequest} *) +let self = get_class "VNClassifyMemeImageRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsSortingComparator self = msg_send ~self ~cmd:(selector "resultsSortingComparator") ~typ:(returning (ptr void)) let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNClassifyMemeImageRequestClass.ml b/Vision/VNClassifyMemeImageRequestClass.ml index 7bd5e2ca..ae01f393 100644 --- a/Vision/VNClassifyMemeImageRequestClass.ml +++ b/Vision/VNClassifyMemeImageRequestClass.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/vnclassifymemeimagerequest?language=objc}VNClassifyMemeImageRequest} *) -let self = get_class "VNClassifyMemeImageRequest" - let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNClassifyPotentialLandmarkRequest.ml b/Vision/VNClassifyPotentialLandmarkRequest.ml index 1f7a61e9..4a888e73 100644 --- a/Vision/VNClassifyPotentialLandmarkRequest.ml +++ b/Vision/VNClassifyPotentialLandmarkRequest.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/vnclassifypotentiallandmarkrequest?language=objc}VNClassifyPotentialLandmarkRequest} *) +let self = get_class "VNClassifyPotentialLandmarkRequest" + let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session diff --git a/Vision/VNClassifyPotentialLandmarkRequestClass.ml b/Vision/VNClassifyPotentialLandmarkRequestClass.ml index e236a807..06d3ffb2 100644 --- a/Vision/VNClassifyPotentialLandmarkRequestClass.ml +++ b/Vision/VNClassifyPotentialLandmarkRequestClass.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/vnclassifypotentiallandmarkrequest?language=objc}VNClassifyPotentialLandmarkRequest} *) -let self = get_class "VNClassifyPotentialLandmarkRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let knownClassificationsForRevision x ~error self = msg_send ~self ~cmd:(selector "knownClassificationsForRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error diff --git a/Vision/VNClassifyPotentialLandmarkRequestConfiguration.ml b/Vision/VNClassifyPotentialLandmarkRequestConfiguration.ml index e011bb0e..2959ba78 100644 --- a/Vision/VNClassifyPotentialLandmarkRequestConfiguration.ml +++ b/Vision/VNClassifyPotentialLandmarkRequestConfiguration.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/vnclassifypotentiallandmarkrequestconfiguration?language=objc}VNClassifyPotentialLandmarkRequestConfiguration} *) +let self = get_class "VNClassifyPotentialLandmarkRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNClassifyPotentialLandmarkRequestConfigurationClass.ml b/Vision/VNClassifyPotentialLandmarkRequestConfigurationClass.ml deleted file mode 100644 index 65b55369..00000000 --- a/Vision/VNClassifyPotentialLandmarkRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclassifypotentiallandmarkrequestconfiguration?language=objc}VNClassifyPotentialLandmarkRequestConfiguration} *) - -let self = get_class "VNClassifyPotentialLandmarkRequestConfiguration" - diff --git a/Vision/VNCluster.ml b/Vision/VNCluster.ml index 74ca2c4f..3eedfcc7 100644 --- a/Vision/VNCluster.ml +++ b/Vision/VNCluster.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/vncluster?language=objc}VNCluster} *) +let self = get_class "VNCluster" + let clusterId self = msg_send ~self ~cmd:(selector "clusterId") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNClusterClass.ml b/Vision/VNClusterClass.ml index 2cc4fb4b..08676ff1 100644 --- a/Vision/VNClusterClass.ml +++ b/Vision/VNClusterClass.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/vncluster?language=objc}VNCluster} *) -let self = get_class "VNCluster" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNClusterObservation.ml b/Vision/VNClusterObservation.ml index c2e72e1d..253771d7 100644 --- a/Vision/VNClusterObservation.ml +++ b/Vision/VNClusterObservation.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/vnclusterobservation?language=objc}VNClusterObservation} *) +let self = get_class "VNClusterObservation" + let clusterState self = msg_send ~self ~cmd:(selector "clusterState") ~typ:(returning id) let clusteredFaceIds self = msg_send ~self ~cmd:(selector "clusteredFaceIds") ~typ:(returning id) let clusters self = msg_send ~self ~cmd:(selector "clusters") ~typ:(returning id) diff --git a/Vision/VNClusterObservationClass.ml b/Vision/VNClusterObservationClass.ml index 915129c0..4a83e682 100644 --- a/Vision/VNClusterObservationClass.ml +++ b/Vision/VNClusterObservationClass.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/vnclusterobservation?language=objc}VNClusterObservation} *) -let self = get_class "VNClusterObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNClustererBuilder.ml b/Vision/VNClustererBuilder.ml index 814e0556..0e8f844b 100644 --- a/Vision/VNClustererBuilder.ml +++ b/Vision/VNClustererBuilder.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/vnclustererbuilder?language=objc}VNClustererBuilder} *) +let self = get_class "VNClustererBuilder" + let allClusteredFaceIdsAndReturnError x self = msg_send ~self ~cmd:(selector "allClusteredFaceIdsAndReturnError:") ~typ:((ptr id) @-> returning id) x let clusteredFaceIdsForClusterContainingFaceId x ~error self = msg_send ~self ~cmd:(selector "clusteredFaceIdsForClusterContainingFaceId:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let distanceBetweenClustersWithFaceId x ~andFaceId ~error self = msg_send ~self ~cmd:(selector "distanceBetweenClustersWithFaceId:andFaceId:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceId error diff --git a/Vision/VNClustererBuilderClass.ml b/Vision/VNClustererBuilderClass.ml index 2bb847c1..6608419e 100644 --- a/Vision/VNClustererBuilderClass.ml +++ b/Vision/VNClustererBuilderClass.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/vnclustererbuilder?language=objc}VNClustererBuilder} *) -let self = get_class "VNClustererBuilder" - let clustererBuilderWithOptions x ~error self = msg_send ~self ~cmd:(selector "clustererBuilderWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let clustererModelFileNamesFromState x ~storedInPath ~error self = msg_send ~self ~cmd:(selector "clustererModelFileNamesFromState:storedInPath:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x storedInPath error let distanceBetweenFacesWithFaceObservation x ~andFaceObservation ~error self = msg_send ~self ~cmd:(selector "distanceBetweenFacesWithFaceObservation:andFaceObservation:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceObservation error diff --git a/Vision/VNClustererBuilderOptions.ml b/Vision/VNClustererBuilderOptions.ml index acc17818..3ca07bf5 100644 --- a/Vision/VNClustererBuilderOptions.ml +++ b/Vision/VNClustererBuilderOptions.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/vnclustererbuilderoptions?language=objc}VNClustererBuilderOptions} *) +let self = get_class "VNClustererBuilderOptions" + let initWithType x ~cachePath ~state ~threshold self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:") ~typ:(id @-> id @-> id @-> float @-> returning id) x cachePath state threshold let initWithType1 x ~cachePath ~state ~threshold ~torsoThreshold self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:torsoThreshold:") ~typ:(id @-> id @-> id @-> float @-> float @-> returning id) x cachePath state threshold torsoThreshold let initWithType2 x ~cachePath ~state ~threshold ~torsoThreshold ~requestRevision self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:torsoThreshold:requestRevision:") ~typ:(id @-> id @-> id @-> float @-> float @-> ullong @-> returning id) x cachePath state threshold torsoThreshold (ULLong.of_int requestRevision) \ No newline at end of file diff --git a/Vision/VNClustererBuilderOptionsClass.ml b/Vision/VNClustererBuilderOptionsClass.ml deleted file mode 100644 index 1e876602..00000000 --- a/Vision/VNClustererBuilderOptionsClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclustererbuilderoptions?language=objc}VNClustererBuilderOptions} *) - -let self = get_class "VNClustererBuilderOptions" - diff --git a/Vision/VNClustererContextBase.ml b/Vision/VNClustererContextBase.ml index 576a4c5f..63ae9109 100644 --- a/Vision/VNClustererContextBase.ml +++ b/Vision/VNClustererContextBase.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/vnclusterercontextbase?language=objc}VNClustererContextBase} *) +let self = get_class "VNClustererContextBase" + let initWithType x ~cachePath ~state ~readOnly ~threshold ~requestRevision ~error self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:readOnly:threshold:requestRevision:error:") ~typ:(id @-> id @-> id @-> bool @-> float @-> ullong @-> (ptr id) @-> returning id) x cachePath state readOnly threshold (ULLong.of_int requestRevision) error let initWithType1 x ~cachePath ~state ~readOnly ~threshold ~requestRevision ~torsoprintRequestRevision ~error self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:readOnly:threshold:requestRevision:torsoprintRequestRevision:error:") ~typ:(id @-> id @-> id @-> bool @-> float @-> ullong @-> ullong @-> (ptr id) @-> returning id) x cachePath state readOnly threshold (ULLong.of_int requestRevision) (ULLong.of_int torsoprintRequestRevision) error let initWithType2 x ~cachePath ~state ~readOnly ~threshold ~torsoThreshold ~requestRevision ~error self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:readOnly:threshold:torsoThreshold:requestRevision:error:") ~typ:(id @-> id @-> id @-> bool @-> float @-> float @-> ullong @-> (ptr id) @-> returning id) x cachePath state readOnly threshold torsoThreshold (ULLong.of_int requestRevision) error diff --git a/Vision/VNClustererContextBaseClass.ml b/Vision/VNClustererContextBaseClass.ml deleted file mode 100644 index 50ec328f..00000000 --- a/Vision/VNClustererContextBaseClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclusterercontextbase?language=objc}VNClustererContextBase} *) - -let self = get_class "VNClustererContextBase" - diff --git a/Vision/VNClustererOptions.ml b/Vision/VNClustererOptions.ml index 1e4b0081..2768677d 100644 --- a/Vision/VNClustererOptions.ml +++ b/Vision/VNClustererOptions.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/vnclustereroptions?language=objc}VNClustererOptions} *) +let self = get_class "VNClustererOptions" + let cachePath self = msg_send ~self ~cmd:(selector "cachePath") ~typ:(returning id) let initWithType x ~cachePath ~state ~threshold self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:") ~typ:(id @-> id @-> id @-> float @-> returning id) x cachePath state threshold let initWithType1 x ~cachePath ~state ~threshold ~requestRevision self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:requestRevision:") ~typ:(id @-> id @-> id @-> float @-> ullong @-> returning id) x cachePath state threshold (ULLong.of_int requestRevision) diff --git a/Vision/VNClustererOptionsClass.ml b/Vision/VNClustererOptionsClass.ml deleted file mode 100644 index 20f8cf65..00000000 --- a/Vision/VNClustererOptionsClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclustereroptions?language=objc}VNClustererOptions} *) - -let self = get_class "VNClustererOptions" - diff --git a/Vision/VNClustererQuery.ml b/Vision/VNClustererQuery.ml index ed9f96a8..4e4c40a5 100644 --- a/Vision/VNClustererQuery.ml +++ b/Vision/VNClustererQuery.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/vnclustererquery?language=objc}VNClustererQuery} *) +let self = get_class "VNClustererQuery" + let allClusteredFaceIdsAndReturnError x self = msg_send ~self ~cmd:(selector "allClusteredFaceIdsAndReturnError:") ~typ:((ptr id) @-> returning id) x let clusteredFaceIdsForClusterContainingFaceId x ~error self = msg_send ~self ~cmd:(selector "clusteredFaceIdsForClusterContainingFaceId:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let distanceBetweenClustersWithFaceId x ~andFaceId ~error self = msg_send ~self ~cmd:(selector "distanceBetweenClustersWithFaceId:andFaceId:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceId error diff --git a/Vision/VNClustererQueryClass.ml b/Vision/VNClustererQueryClass.ml index 2a4fef84..8dddbde0 100644 --- a/Vision/VNClustererQueryClass.ml +++ b/Vision/VNClustererQueryClass.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/vnclustererquery?language=objc}VNClustererQuery} *) -let self = get_class "VNClustererQuery" - let clustererModelFileNamesFromState x ~storedInPath ~error self = msg_send ~self ~cmd:(selector "clustererModelFileNamesFromState:storedInPath:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x storedInPath error let clustererQueryWithOptions x ~error self = msg_send ~self ~cmd:(selector "clustererQueryWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let distanceBetweenFacesWithFaceObservation x ~andFaceObservation ~error self = msg_send ~self ~cmd:(selector "distanceBetweenFacesWithFaceObservation:andFaceObservation:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceObservation error diff --git a/Vision/VNClustererQueryOptions.ml b/Vision/VNClustererQueryOptions.ml index bf11fb28..5a80966f 100644 --- a/Vision/VNClustererQueryOptions.ml +++ b/Vision/VNClustererQueryOptions.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/vnclustererqueryoptions?language=objc}VNClustererQueryOptions} *) +let self = get_class "VNClustererQueryOptions" + let initWithType x ~cachePath ~state ~threshold self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:") ~typ:(id @-> id @-> id @-> float @-> returning id) x cachePath state threshold let initWithType1 x ~cachePath ~state ~threshold ~requestRevision self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:requestRevision:") ~typ:(id @-> id @-> id @-> float @-> ullong @-> returning id) x cachePath state threshold (ULLong.of_int requestRevision) let initWithType2 x ~cachePath ~state ~threshold ~torsoThreshold self = msg_send ~self ~cmd:(selector "initWithType:cachePath:state:threshold:torsoThreshold:") ~typ:(id @-> id @-> id @-> float @-> float @-> returning id) x cachePath state threshold torsoThreshold diff --git a/Vision/VNClustererQueryOptionsClass.ml b/Vision/VNClustererQueryOptionsClass.ml deleted file mode 100644 index 9a4d8422..00000000 --- a/Vision/VNClustererQueryOptionsClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnclustererqueryoptions?language=objc}VNClustererQueryOptions} *) - -let self = get_class "VNClustererQueryOptions" - diff --git a/Vision/VNClustererReadOnlyContext.ml b/Vision/VNClustererReadOnlyContext.ml index 743f40d5..dcd4d202 100644 --- a/Vision/VNClustererReadOnlyContext.ml +++ b/Vision/VNClustererReadOnlyContext.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/vnclustererreadonlycontext?language=objc}VNClustererReadOnlyContext} *) +let self = get_class "VNClustererReadOnlyContext" + let allClusteredFaceIdsAndReturnError x self = msg_send ~self ~cmd:(selector "allClusteredFaceIdsAndReturnError:") ~typ:((ptr id) @-> returning id) x let clusteredFaceIdsForClusterContainingFaceId x ~error self = msg_send ~self ~cmd:(selector "clusteredFaceIdsForClusterContainingFaceId:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let distanceBetweenClustersWithFaceId x ~andFaceId ~error self = msg_send ~self ~cmd:(selector "distanceBetweenClustersWithFaceId:andFaceId:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceId error diff --git a/Vision/VNClustererReadOnlyContextClass.ml b/Vision/VNClustererReadOnlyContextClass.ml index 4e16716e..fbc8f1d9 100644 --- a/Vision/VNClustererReadOnlyContextClass.ml +++ b/Vision/VNClustererReadOnlyContextClass.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/vnclustererreadonlycontext?language=objc}VNClustererReadOnlyContext} *) -let self = get_class "VNClustererReadOnlyContext" - let clustererModelFileNamesFromState x ~storedInPath ~error self = msg_send ~self ~cmd:(selector "clustererModelFileNamesFromState:storedInPath:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x storedInPath error let distanceBetweenFacesWithFaceObservation x ~andFaceObservation ~error self = msg_send ~self ~cmd:(selector "distanceBetweenFacesWithFaceObservation:andFaceObservation:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceObservation error let distanceBetweenFacesWithFaceprint x ~andFaceprint ~error self = msg_send ~self ~cmd:(selector "distanceBetweenFacesWithFaceprint:andFaceprint:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceprint error diff --git a/Vision/VNClustererReadWriteContext.ml b/Vision/VNClustererReadWriteContext.ml index 249caae5..28651f8b 100644 --- a/Vision/VNClustererReadWriteContext.ml +++ b/Vision/VNClustererReadWriteContext.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/vnclustererreadwritecontext?language=objc}VNClustererReadWriteContext} *) +let self = get_class "VNClustererReadWriteContext" + let allClusteredFaceIdsAndReturnError x self = msg_send ~self ~cmd:(selector "allClusteredFaceIdsAndReturnError:") ~typ:((ptr id) @-> returning id) x let cancelClustering x self = msg_send ~self ~cmd:(selector "cancelClustering:") ~typ:((ptr id) @-> returning bool) x let clusteredFaceIdsForClusterContainingFaceId x ~error self = msg_send ~self ~cmd:(selector "clusteredFaceIdsForClusterContainingFaceId:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNClustererReadWriteContextClass.ml b/Vision/VNClustererReadWriteContextClass.ml index c0d51b7e..6f82a6c2 100644 --- a/Vision/VNClustererReadWriteContextClass.ml +++ b/Vision/VNClustererReadWriteContextClass.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/vnclustererreadwritecontext?language=objc}VNClustererReadWriteContext} *) -let self = get_class "VNClustererReadWriteContext" - let clustererModelFileNamesFromState x ~storedInPath ~error self = msg_send ~self ~cmd:(selector "clustererModelFileNamesFromState:storedInPath:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x storedInPath error let distanceBetweenFacesWithFaceObservation x ~andFaceObservation ~error self = msg_send ~self ~cmd:(selector "distanceBetweenFacesWithFaceObservation:andFaceObservation:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceObservation error let distanceBetweenFacesWithFaceprint x ~andFaceprint ~error self = msg_send ~self ~cmd:(selector "distanceBetweenFacesWithFaceprint:andFaceprint:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x andFaceprint error diff --git a/Vision/VNClusteringLogger.ml b/Vision/VNClusteringLogger.ml index e4373bb3..80cab6d0 100644 --- a/Vision/VNClusteringLogger.ml +++ b/Vision/VNClusteringLogger.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/vnclusteringlogger?language=objc}VNClusteringLogger} *) +let self = get_class "VNClusteringLogger" + let fileNameBase self = msg_send ~self ~cmd:(selector "fileNameBase") ~typ:(returning id) let initWithOptions x ~logEnabled self = msg_send ~self ~cmd:(selector "initWithOptions:logEnabled:") ~typ:(id @-> bool @-> returning id) x logEnabled let initWithOptions' x ~logEnabled ~logFileNameBase self = msg_send ~self ~cmd:(selector "initWithOptions:logEnabled:logFileNameBase:") ~typ:(id @-> bool @-> id @-> returning id) x logEnabled logFileNameBase diff --git a/Vision/VNClusteringLoggerClass.ml b/Vision/VNClusteringLoggerClass.ml index 7d50c318..ed965a94 100644 --- a/Vision/VNClusteringLoggerClass.ml +++ b/Vision/VNClusteringLoggerClass.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/vnclusteringlogger?language=objc}VNClusteringLogger} *) -let self = get_class "VNClusteringLogger" - let appendString x ~toLogFile self = msg_send ~self ~cmd:(selector "appendString:toLogFile:") ~typ:(id @-> id @-> returning void) x toLogFile let currentDateTime self = msg_send ~self ~cmd:(selector "currentDateTime") ~typ:(returning id) let isLogEnabled self = msg_send ~self ~cmd:(selector "isLogEnabled") ~typ:(returning bool) diff --git a/Vision/VNCompoundRequest.ml b/Vision/VNCompoundRequest.ml index ad961c3b..986c49d8 100644 --- a/Vision/VNCompoundRequest.ml +++ b/Vision/VNCompoundRequest.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/vncompoundrequest?language=objc}VNCompoundRequest} *) +let self = get_class "VNCompoundRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let compoundResults self = msg_send ~self ~cmd:(selector "compoundResults") ~typ:(returning id) let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) diff --git a/Vision/VNCompoundRequestClass.ml b/Vision/VNCompoundRequestClass.ml index f57814e5..60acf0a5 100644 --- a/Vision/VNCompoundRequestClass.ml +++ b/Vision/VNCompoundRequestClass.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/vncompoundrequest?language=objc}VNCompoundRequest} *) -let self = get_class "VNCompoundRequest" - let compoundRequestProcessingDeviceFromOriginalRequestsProcessingDevice x self = msg_send ~self ~cmd:(selector "compoundRequestProcessingDeviceFromOriginalRequestsProcessingDevice:") ~typ:(id @-> returning id) 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 warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNContour.ml b/Vision/VNContour.ml index 8ed9e9b8..afd18d69 100644 --- a/Vision/VNContour.ml +++ b/Vision/VNContour.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/vncontour?language=objc}VNContour} *) +let self = get_class "VNContour" + let aspectRatio self = msg_send ~self ~cmd:(selector "aspectRatio") ~typ:(returning float) let childContourAtIndex x ~error self = msg_send ~self ~cmd:(selector "childContourAtIndex:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error let childContourCount self = msg_send ~self ~cmd:(selector "childContourCount") ~typ:(returning llong) diff --git a/Vision/VNContourClass.ml b/Vision/VNContourClass.ml deleted file mode 100644 index 895630d3..00000000 --- a/Vision/VNContourClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncontour?language=objc}VNContour} *) - -let self = get_class "VNContour" - diff --git a/Vision/VNContoursDetector.ml b/Vision/VNContoursDetector.ml index 8d14885a..7c531a21 100644 --- a/Vision/VNContoursDetector.ml +++ b/Vision/VNContoursDetector.ml @@ -5,14 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNContoursDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncontoursdetector?language=objc}VNContoursDetector} *) -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end +let self = get_class "VNContoursDetector" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNContoursDetectorClass.ml b/Vision/VNContoursDetectorClass.ml new file mode 100644 index 00000000..8e495d60 --- /dev/null +++ b/Vision/VNContoursDetectorClass.ml @@ -0,0 +1,12 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncontoursdetector?language=objc}VNContoursDetector} *) + +let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNContoursObservation.ml b/Vision/VNContoursObservation.ml index 569429cf..c5d54e51 100644 --- a/Vision/VNContoursObservation.ml +++ b/Vision/VNContoursObservation.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/vncontoursobservation?language=objc}VNContoursObservation} *) +let self = get_class "VNContoursObservation" + let childContourIndicesAtIndex x self = msg_send ~self ~cmd:(selector "childContourIndicesAtIndex:") ~typ:(llong @-> returning (ptr void)) (LLong.of_int x) let contourAtIndex x ~error self = msg_send ~self ~cmd:(selector "contourAtIndex:error:") ~typ:(llong @-> (ptr id) @-> returning id) (LLong.of_int x) error let contourAtIndexPath x ~error self = msg_send ~self ~cmd:(selector "contourAtIndexPath:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNContoursObservationClass.ml b/Vision/VNContoursObservationClass.ml index 06fd0e28..4ece3b14 100644 --- a/Vision/VNContoursObservationClass.ml +++ b/Vision/VNContoursObservationClass.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/vncontoursobservation?language=objc}VNContoursObservation} *) -let self = get_class "VNContoursObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNControlledCapacityTasksQueue.ml b/Vision/VNControlledCapacityTasksQueue.ml deleted file mode 100644 index d0aff30d..00000000 --- a/Vision/VNControlledCapacityTasksQueue.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNControlledCapacityTasksQueue" - -module C = struct - let setTasksTimeout x self = msg_send ~self ~cmd:(selector "setTasksTimeout:") ~typ:(llong @-> returning (void)) (LLong.of_int x) - let tasksTimeout self = msg_send ~self ~cmd:(selector "tasksTimeout") ~typ:(returning (llong)) -end - -let currentQueueIsSynchronizationQueue self = msg_send ~self ~cmd:(selector "currentQueueIsSynchronizationQueue") ~typ:(returning (bool)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let dispatchGroupAsyncByPreservingQueueCapacity x ~block self = msg_send ~self ~cmd:(selector "dispatchGroupAsyncByPreservingQueueCapacity:block:") ~typ:(id @-> ptr void @-> returning (void)) x block -let dispatchGroupWait x ~error self = msg_send ~self ~cmd:(selector "dispatchGroupWait:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let dispatchReportBlockCompletion self = msg_send ~self ~cmd:(selector "dispatchReportBlockCompletion") ~typ:(returning (void)) -let dispatchSyncByPreservingQueueCapacity x self = msg_send ~self ~cmd:(selector "dispatchSyncByPreservingQueueCapacity:") ~typ:(ptr void @-> returning (void)) x -let initWithDispatchQueueLabel x ~maximumTasksCount self = msg_send ~self ~cmd:(selector "initWithDispatchQueueLabel:maximumTasksCount:") ~typ:(id @-> llong @-> returning (id)) x (LLong.of_int maximumTasksCount) -let maximumTasksCount self = msg_send ~self ~cmd:(selector "maximumTasksCount") ~typ:(returning (llong)) -let setMaximumTasksCount x self = msg_send ~self ~cmd:(selector "setMaximumTasksCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/Vision/VNCoreMLFeatureValueObservation.ml b/Vision/VNCoreMLFeatureValueObservation.ml index a1e349f0..db753f33 100644 --- a/Vision/VNCoreMLFeatureValueObservation.ml +++ b/Vision/VNCoreMLFeatureValueObservation.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/vncoremlfeaturevalueobservation?language=objc}VNCoreMLFeatureValueObservation} *) +let self = get_class "VNCoreMLFeatureValueObservation" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let featureName self = msg_send ~self ~cmd:(selector "featureName") ~typ:(returning id) diff --git a/Vision/VNCoreMLFeatureValueObservationClass.ml b/Vision/VNCoreMLFeatureValueObservationClass.ml index 9fb0ade1..e13ac68f 100644 --- a/Vision/VNCoreMLFeatureValueObservationClass.ml +++ b/Vision/VNCoreMLFeatureValueObservationClass.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/vncoremlfeaturevalueobservation?language=objc}VNCoreMLFeatureValueObservation} *) -let self = get_class "VNCoreMLFeatureValueObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNCoreMLModel.ml b/Vision/VNCoreMLModel.ml index 8601089d..7f1fcb0f 100644 --- a/Vision/VNCoreMLModel.ml +++ b/Vision/VNCoreMLModel.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/vncoremlmodel?language=objc}VNCoreMLModel} *) +let self = get_class "VNCoreMLModel" + let boundingBoxOutputDescription self = msg_send ~self ~cmd:(selector "boundingBoxOutputDescription") ~typ:(returning id) let cachingIdentifier self = msg_send ~self ~cmd:(selector "cachingIdentifier") ~typ:(returning id) let featureProvider self = msg_send ~self ~cmd:(selector "featureProvider") ~typ:(returning id) @@ -26,7 +24,7 @@ let inputScenePrintKey self = msg_send ~self ~cmd:(selector "inputScenePrintKey" let inputScenePrintMLMultiArrayDataType self = msg_send ~self ~cmd:(selector "inputScenePrintMLMultiArrayDataType") ~typ:(returning llong) let model self = msg_send ~self ~cmd:(selector "model") ~typ:(returning id) let modelType self = msg_send ~self ~cmd:(selector "modelType") ~typ:(returning int) -let predictWithCVPixelBuffer x ~options ~error self = msg_send ~self ~cmd:(selector "predictWithCVPixelBuffer:options:error:") ~typ:((ptr CVBuffer.t) @-> id @-> (ptr id) @-> returning id) x options error +let predictWithCVPixelBuffer x ~options ~error self = msg_send ~self ~cmd:(selector "predictWithCVPixelBuffer:options:error:") ~typ:((ptr void) @-> id @-> (ptr id) @-> returning id) x options error let predictWithScenePrint x ~options ~error self = msg_send ~self ~cmd:(selector "predictWithScenePrint:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x options error let predictedFeatureKey self = msg_send ~self ~cmd:(selector "predictedFeatureKey") ~typ:(returning id) let predictedProbabilitiesKey self = msg_send ~self ~cmd:(selector "predictedProbabilitiesKey") ~typ:(returning id) diff --git a/Vision/VNCoreMLModelClass.ml b/Vision/VNCoreMLModelClass.ml index 794f3af9..33cbbbfc 100644 --- a/Vision/VNCoreMLModelClass.ml +++ b/Vision/VNCoreMLModelClass.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/vncoremlmodel?language=objc}VNCoreMLModel} *) -let self = get_class "VNCoreMLModel" - let modelForMLModel x ~error self = msg_send ~self ~cmd:(selector "modelForMLModel:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNCoreMLRequest.ml b/Vision/VNCoreMLRequest.ml index 25637a96..ad5ca82e 100644 --- a/Vision/VNCoreMLRequest.ml +++ b/Vision/VNCoreMLRequest.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/vncoremlrequest?language=objc}VNCoreMLRequest} *) +let self = get_class "VNCoreMLRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNCoreMLRequestClass.ml b/Vision/VNCoreMLRequestClass.ml index ca6e302f..0803a4e1 100644 --- a/Vision/VNCoreMLRequestClass.ml +++ b/Vision/VNCoreMLRequestClass.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/vncoremlrequest?language=objc}VNCoreMLRequest} *) -let self = get_class "VNCoreMLRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNCoreMLRequestConfiguration.ml b/Vision/VNCoreMLRequestConfiguration.ml index ef691a39..241cb61a 100644 --- a/Vision/VNCoreMLRequestConfiguration.ml +++ b/Vision/VNCoreMLRequestConfiguration.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/vncoremlrequestconfiguration?language=objc}VNCoreMLRequestConfiguration} *) +let self = get_class "VNCoreMLRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNCoreMLRequestConfigurationClass.ml b/Vision/VNCoreMLRequestConfigurationClass.ml deleted file mode 100644 index debc8476..00000000 --- a/Vision/VNCoreMLRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncoremlrequestconfiguration?language=objc}VNCoreMLRequestConfiguration} *) - -let self = get_class "VNCoreMLRequestConfiguration" - diff --git a/Vision/VNCoreMLTransformer.ml b/Vision/VNCoreMLTransformer.ml index c88564b5..27d2e6cb 100644 --- a/Vision/VNCoreMLTransformer.ml +++ b/Vision/VNCoreMLTransformer.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/vncoremltransformer?language=objc}VNCoreMLTransformer} *) +let self = get_class "VNCoreMLTransformer" + let initWithOptions x ~model ~error self = msg_send ~self ~cmd:(selector "initWithOptions:model:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x model error let model self = msg_send ~self ~cmd:(selector "model") ~typ:(returning id) let needsMetalContext self = msg_send ~self ~cmd:(selector "needsMetalContext") ~typ:(returning bool) diff --git a/Vision/VNCoreMLTransformerClass.ml b/Vision/VNCoreMLTransformerClass.ml deleted file mode 100644 index 4f4985cb..00000000 --- a/Vision/VNCoreMLTransformerClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncoremltransformer?language=objc}VNCoreMLTransformer} *) - -let self = get_class "VNCoreMLTransformer" - diff --git a/Vision/VNCoreSceneUnderstandingCompoundRequest.ml b/Vision/VNCoreSceneUnderstandingCompoundRequest.ml deleted file mode 100644 index 2528998b..00000000 --- a/Vision/VNCoreSceneUnderstandingCompoundRequest.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingCompoundRequest" - -module C = struct - 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)) -end - -let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning (bool)) -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let initWithDetectorType x ~configuration self = msg_send ~self ~cmd:(selector "initWithDetectorType:configuration:") ~typ:(id @-> id @-> returning (id)) x configuration -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingCompoundRequestConfiguration.ml b/Vision/VNCoreSceneUnderstandingCompoundRequestConfiguration.ml deleted file mode 100644 index 58014198..00000000 --- a/Vision/VNCoreSceneUnderstandingCompoundRequestConfiguration.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingCompoundRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> 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)) -let originalRequestConfigurations self = msg_send ~self ~cmd:(selector "originalRequestConfigurations") ~typ:(returning (id)) -let setDetectorConfigurationOptions x self = msg_send ~self ~cmd:(selector "setDetectorConfigurationOptions:") ~typ:(id @-> returning (void)) x -let setDetectorType x self = msg_send ~self ~cmd:(selector "setDetectorType:") ~typ:(id @-> returning (void)) x -let setOriginalRequestConfigurations x self = msg_send ~self ~cmd:(selector "setOriginalRequestConfigurations:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingCompoundRequestDetectorConfiguration.ml b/Vision/VNCoreSceneUnderstandingCompoundRequestDetectorConfiguration.ml deleted file mode 100644 index 0187b138..00000000 --- a/Vision/VNCoreSceneUnderstandingCompoundRequestDetectorConfiguration.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingCompoundRequestDetectorConfiguration" - -let addCityNatureConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addCityNatureConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addEntityNetClassificationConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addEntityNetClassificationConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addImageAestheticsConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addImageAestheticsConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addImageClassificationConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addImageClassificationConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addImageFingerprintsConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addImageFingerprintsConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addImageSaliencyAConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addImageSaliencyAConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addImageSaliencyOConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addImageSaliencyOConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addJunkConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addJunkConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addOriginalRequest x self = msg_send ~self ~cmd:(selector "addOriginalRequest:") ~typ:(id @-> returning (void)) x -let addRecognizeObjectsConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addRecognizeObjectsConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addSceneprintConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addSceneprintConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addSignificantEventConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addSignificantEventConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addVN5kJNH3eYuyaLxNpZr5Z7ziConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addVN5kJNH3eYuyaLxNpZr5Z7ziConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let cacheResultsInRequestPerformingContext x self = msg_send ~self ~cmd:(selector "cacheResultsInRequestPerformingContext:") ~typ:(id @-> returning (void)) x -let detectorConfigurationOptions self = msg_send ~self ~cmd:(selector "detectorConfigurationOptions") ~typ:(returning (id)) -let initWithMainStageComputeDevice x self = msg_send ~self ~cmd:(selector "initWithMainStageComputeDevice:") ~typ:(id @-> returning (id)) x -let mainStageComputeDevice self = msg_send ~self ~cmd:(selector "mainStageComputeDevice") ~typ:(returning (id)) -let originalRequests self = msg_send ~self ~cmd:(selector "originalRequests") ~typ:(returning (id)) -let setDetectorConfigurationOption x ~value self = msg_send ~self ~cmd:(selector "setDetectorConfigurationOption:value:") ~typ:(id @-> id @-> returning (void)) x value \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingCompoundRequestDetectorConfigurations.ml b/Vision/VNCoreSceneUnderstandingCompoundRequestDetectorConfigurations.ml deleted file mode 100644 index 3c04adcf..00000000 --- a/Vision/VNCoreSceneUnderstandingCompoundRequestDetectorConfigurations.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingCompoundRequestDetectorConfigurations" - -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 configurationsCount self = msg_send ~self ~cmd:(selector "configurationsCount") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingDetector.ml b/Vision/VNCoreSceneUnderstandingDetector.ml deleted file mode 100644 index 70b26f8e..00000000 --- a/Vision/VNCoreSceneUnderstandingDetector.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingDetector" - -module C = struct - let allCityNatureIdentifiersWithConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "allCityNatureIdentifiersWithConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let allClassificationIdentifiersWithConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "allClassificationIdentifiersWithConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let allRecognizedObjectIdentifiersWithConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "allRecognizedObjectIdentifiersWithConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let allSignificantEventIdentifiersWithConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "allSignificantEventIdentifiersWithConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let allVN5kJNH3eYuyaLxNpZr5Z7ziIdentifiersWithConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "allVN5kJNH3eYuyaLxNpZr5Z7ziIdentifiersWithConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let computeStagesToBindForConfigurationOptions x self = msg_send ~self ~cmd:(selector "computeStagesToBindForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let handlesRequestClass x ~revision self = msg_send ~self ~cmd:(selector "handlesRequestClass:revision:") ~typ:(_Class @-> ullong @-> returning (bool)) x (ULLong.of_int revision) - let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning (void)) x - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let internalProcessUsingQualityOfServiceClass x ~options ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "internalProcessUsingQualityOfServiceClass:options:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(uint @-> id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x options regionOfInterest warningRecorder error progressHandler -let needsMetalContext self = msg_send ~self ~cmd:(selector "needsMetalContext") ~typ:(returning (bool)) -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x withOptions error \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingDetectorEntityNetClassificationConfiguration.ml b/Vision/VNCoreSceneUnderstandingDetectorEntityNetClassificationConfiguration.ml deleted file mode 100644 index 97555539..00000000 --- a/Vision/VNCoreSceneUnderstandingDetectorEntityNetClassificationConfiguration.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingDetectorEntityNetClassificationConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disallowedList self = msg_send ~self ~cmd:(selector "disallowedList") ~typ:(returning (id)) -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let maximumClassifications self = msg_send ~self ~cmd:(selector "maximumClassifications") ~typ:(returning (ullong)) -let minimumConfidence self = msg_send ~self ~cmd:(selector "minimumConfidence") ~typ:(returning (float)) -let setDisallowedList x self = msg_send ~self ~cmd:(selector "setDisallowedList:") ~typ:(id @-> returning (void)) x -let setMaximumClassifications x self = msg_send ~self ~cmd:(selector "setMaximumClassifications:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumConfidence x self = msg_send ~self ~cmd:(selector "setMinimumConfidence:") ~typ:(float @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingDetectorFeatureConfiguration.ml b/Vision/VNCoreSceneUnderstandingDetectorFeatureConfiguration.ml deleted file mode 100644 index 2c0b4d8c..00000000 --- a/Vision/VNCoreSceneUnderstandingDetectorFeatureConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingDetectorFeatureConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let observationsRecipient self = msg_send ~self ~cmd:(selector "observationsRecipient") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingDetectorImageClassificationConfiguration.ml b/Vision/VNCoreSceneUnderstandingDetectorImageClassificationConfiguration.ml deleted file mode 100644 index 6bbccc09..00000000 --- a/Vision/VNCoreSceneUnderstandingDetectorImageClassificationConfiguration.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingDetectorImageClassificationConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disallowedList self = msg_send ~self ~cmd:(selector "disallowedList") ~typ:(returning (id)) -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let maximumHierarchicalClassifications self = msg_send ~self ~cmd:(selector "maximumHierarchicalClassifications") ~typ:(returning (ullong)) -let maximumLeafClassifications self = msg_send ~self ~cmd:(selector "maximumLeafClassifications") ~typ:(returning (ullong)) -let minimumConfidence self = msg_send ~self ~cmd:(selector "minimumConfidence") ~typ:(returning (float)) -let setDisallowedList x self = msg_send ~self ~cmd:(selector "setDisallowedList:") ~typ:(id @-> returning (void)) x -let setMaximumHierarchicalClassifications x self = msg_send ~self ~cmd:(selector "setMaximumHierarchicalClassifications:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMaximumLeafClassifications x self = msg_send ~self ~cmd:(selector "setMaximumLeafClassifications:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumConfidence x self = msg_send ~self ~cmd:(selector "setMinimumConfidence:") ~typ:(float @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNCoreSceneUnderstandingDetectorRecognizeObjectsConfiguration.ml b/Vision/VNCoreSceneUnderstandingDetectorRecognizeObjectsConfiguration.ml deleted file mode 100644 index 83bb9afc..00000000 --- a/Vision/VNCoreSceneUnderstandingDetectorRecognizeObjectsConfiguration.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCoreSceneUnderstandingDetectorRecognizeObjectsConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disallowedList self = msg_send ~self ~cmd:(selector "disallowedList") ~typ:(returning (id)) -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let minimumDetectionConfidence self = msg_send ~self ~cmd:(selector "minimumDetectionConfidence") ~typ:(returning (float)) -let nonMaximumSuppressionThreshold self = msg_send ~self ~cmd:(selector "nonMaximumSuppressionThreshold") ~typ:(returning (float)) -let setDisallowedList x self = msg_send ~self ~cmd:(selector "setDisallowedList:") ~typ:(id @-> returning (void)) x -let setMinimumDetectionConfidence x self = msg_send ~self ~cmd:(selector "setMinimumDetectionConfidence:") ~typ:(float @-> returning (void)) x -let setNonMaximumSuppressionThreshold x self = msg_send ~self ~cmd:(selector "setNonMaximumSuppressionThreshold:") ~typ:(float @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNCreateAnimalprintRequest.ml b/Vision/VNCreateAnimalprintRequest.ml index 558cc60c..bd10761f 100644 --- a/Vision/VNCreateAnimalprintRequest.ml +++ b/Vision/VNCreateAnimalprintRequest.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/vncreateanimalprintrequest?language=objc}VNCreateAnimalprintRequest} *) +let self = get_class "VNCreateAnimalprintRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNCreateAnimalprintRequestClass.ml b/Vision/VNCreateAnimalprintRequestClass.ml index 08f54811..91536bb9 100644 --- a/Vision/VNCreateAnimalprintRequestClass.ml +++ b/Vision/VNCreateAnimalprintRequestClass.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/vncreateanimalprintrequest?language=objc}VNCreateAnimalprintRequest} *) -let self = get_class "VNCreateAnimalprintRequest" - let compatibleRevisionForDependentRequestOfClass x ~beingPerformedByRevision self = msg_send ~self ~cmd:(selector "compatibleRevisionForDependentRequestOfClass:beingPerformedByRevision:") ~typ:(_Class @-> ullong @-> returning ullong) x (ULLong.of_int beingPerformedByRevision) let createVNEntityIdentificationModelEntryPrintForRevision x ~fromDescriptorData ~length ~elementCount ~error self = msg_send ~self ~cmd:(selector "createVNEntityIdentificationModelEntryPrintForRevision:fromDescriptorData:length:elementCount:error:") ~typ:(ullong @-> (ptr void) @-> ullong @-> ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) fromDescriptorData (ULLong.of_int length) (ULLong.of_int elementCount) error let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNCreateDetectionprintRequest.ml b/Vision/VNCreateDetectionprintRequest.ml index ef16e0de..26580b73 100644 --- a/Vision/VNCreateDetectionprintRequest.ml +++ b/Vision/VNCreateDetectionprintRequest.ml @@ -5,13 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNCreateDetectionprintRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncreatedetectionprintrequest?language=objc}VNCreateDetectionprintRequest} *) -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end +let self = get_class "VNCreateDetectionprintRequest" -let _VNImageProcessingSessionPrintKeyPath self = msg_send ~self ~cmd:(selector "VNImageProcessingSessionPrintKeyPath") ~typ:(returning (id)) -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error \ No newline at end of file +let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error +let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNCreateDetectionprintRequestClass.ml b/Vision/VNCreateDetectionprintRequestClass.ml new file mode 100644 index 00000000..fa74eee1 --- /dev/null +++ b/Vision/VNCreateDetectionprintRequestClass.ml @@ -0,0 +1,12 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncreatedetectionprintrequest?language=objc}VNCreateDetectionprintRequest} *) + +let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNCreateFaceRegionMapRequest.ml b/Vision/VNCreateFaceRegionMapRequest.ml index 948a6378..dae6c538 100644 --- a/Vision/VNCreateFaceRegionMapRequest.ml +++ b/Vision/VNCreateFaceRegionMapRequest.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/vncreatefaceregionmaprequest?language=objc}VNCreateFaceRegionMapRequest} *) +let self = get_class "VNCreateFaceRegionMapRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) diff --git a/Vision/VNCreateFaceRegionMapRequestClass.ml b/Vision/VNCreateFaceRegionMapRequestClass.ml index 252bbbce..752f096e 100644 --- a/Vision/VNCreateFaceRegionMapRequestClass.ml +++ b/Vision/VNCreateFaceRegionMapRequestClass.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/vncreatefaceregionmaprequest?language=objc}VNCreateFaceRegionMapRequest} *) -let self = get_class "VNCreateFaceRegionMapRequest" - let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNCreateFaceTorsoprintRequest.ml b/Vision/VNCreateFaceTorsoprintRequest.ml index 4047f557..0e63b369 100644 --- a/Vision/VNCreateFaceTorsoprintRequest.ml +++ b/Vision/VNCreateFaceTorsoprintRequest.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/vncreatefacetorsoprintrequest?language=objc}VNCreateFaceTorsoprintRequest} *) +let self = get_class "VNCreateFaceTorsoprintRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let forceFaceprintCreation self = msg_send ~self ~cmd:(selector "forceFaceprintCreation") ~typ:(returning bool) let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNCreateFaceTorsoprintRequestClass.ml b/Vision/VNCreateFaceTorsoprintRequestClass.ml index be7b6247..93bc1004 100644 --- a/Vision/VNCreateFaceTorsoprintRequestClass.ml +++ b/Vision/VNCreateFaceTorsoprintRequestClass.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/vncreatefacetorsoprintrequest?language=objc}VNCreateFaceTorsoprintRequest} *) -let self = get_class "VNCreateFaceTorsoprintRequest" - let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let faceprintRequestRevisionForFaceTorsoRequestRevision x ~error self = msg_send ~self ~cmd:(selector "faceprintRequestRevisionForFaceTorsoRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning ullong) (ULLong.of_int x) error diff --git a/Vision/VNCreateFaceprintRequest.ml b/Vision/VNCreateFaceprintRequest.ml index a89b318c..3c663e6a 100644 --- a/Vision/VNCreateFaceprintRequest.ml +++ b/Vision/VNCreateFaceprintRequest.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/vncreatefaceprintrequest?language=objc}VNCreateFaceprintRequest} *) +let self = get_class "VNCreateFaceprintRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let forceFaceprintCreation self = msg_send ~self ~cmd:(selector "forceFaceprintCreation") ~typ:(returning bool) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNCreateFaceprintRequestClass.ml b/Vision/VNCreateFaceprintRequestClass.ml index 6b32fc96..0b8df5ca 100644 --- a/Vision/VNCreateFaceprintRequestClass.ml +++ b/Vision/VNCreateFaceprintRequestClass.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/vncreatefaceprintrequest?language=objc}VNCreateFaceprintRequest} *) -let self = get_class "VNCreateFaceprintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let createVNEntityIdentificationModelEntryPrintForRevision x ~fromDescriptorData ~length ~elementCount ~error self = msg_send ~self ~cmd:(selector "createVNEntityIdentificationModelEntryPrintForRevision:fromDescriptorData:length:elementCount:error:") ~typ:(ullong @-> (ptr void) @-> ullong @-> ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) fromDescriptorData (ULLong.of_int length) (ULLong.of_int elementCount) error let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNCreateFaceprintRequestConfiguration.ml b/Vision/VNCreateFaceprintRequestConfiguration.ml index 9c7bbcd8..9950960d 100644 --- a/Vision/VNCreateFaceprintRequestConfiguration.ml +++ b/Vision/VNCreateFaceprintRequestConfiguration.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/vncreatefaceprintrequestconfiguration?language=objc}VNCreateFaceprintRequestConfiguration} *) +let self = get_class "VNCreateFaceprintRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let forceFaceprintCreation self = msg_send ~self ~cmd:(selector "forceFaceprintCreation") ~typ:(returning bool) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNCreateFaceprintRequestConfigurationClass.ml b/Vision/VNCreateFaceprintRequestConfigurationClass.ml deleted file mode 100644 index 4623e751..00000000 --- a/Vision/VNCreateFaceprintRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncreatefaceprintrequestconfiguration?language=objc}VNCreateFaceprintRequestConfiguration} *) - -let self = get_class "VNCreateFaceprintRequestConfiguration" - diff --git a/Vision/VNCreateImageFingerprintsRequest.ml b/Vision/VNCreateImageFingerprintsRequest.ml deleted file mode 100644 index 7f4b2d96..00000000 --- a/Vision/VNCreateImageFingerprintsRequest.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNCreateImageFingerprintsRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) - let revision x ~mayAcceptResultsProducedByRevision self = msg_send ~self ~cmd:(selector "revision:mayAcceptResultsProducedByRevision:") ~typ:(ullong @-> ullong @-> returning (bool)) (ULLong.of_int x) (ULLong.of_int mayAcceptResultsProducedByRevision) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session \ No newline at end of file diff --git a/Vision/VNCreateImageprintRequest.ml b/Vision/VNCreateImageprintRequest.ml index e7cac959..58b90d28 100644 --- a/Vision/VNCreateImageprintRequest.ml +++ b/Vision/VNCreateImageprintRequest.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/vncreateimageprintrequest?language=objc}VNCreateImageprintRequest} *) +let self = get_class "VNCreateImageprintRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let setTimeStamp x self = msg_send ~self ~cmd:(selector "setTimeStamp:") ~typ:(id @-> returning void) x diff --git a/Vision/VNCreateImageprintRequestClass.ml b/Vision/VNCreateImageprintRequestClass.ml index 55384910..a39a08a6 100644 --- a/Vision/VNCreateImageprintRequestClass.ml +++ b/Vision/VNCreateImageprintRequestClass.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/vncreateimageprintrequest?language=objc}VNCreateImageprintRequest} *) -let self = get_class "VNCreateImageprintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNCreateImageprintRequestConfiguration.ml b/Vision/VNCreateImageprintRequestConfiguration.ml index f7e7ca14..d104b70f 100644 --- a/Vision/VNCreateImageprintRequestConfiguration.ml +++ b/Vision/VNCreateImageprintRequestConfiguration.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/vncreateimageprintrequestconfiguration?language=objc}VNCreateImageprintRequestConfiguration} *) +let self = get_class "VNCreateImageprintRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let setTimeStamp x self = msg_send ~self ~cmd:(selector "setTimeStamp:") ~typ:(id @-> returning void) x diff --git a/Vision/VNCreateImageprintRequestConfigurationClass.ml b/Vision/VNCreateImageprintRequestConfigurationClass.ml deleted file mode 100644 index abb77885..00000000 --- a/Vision/VNCreateImageprintRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncreateimageprintrequestconfiguration?language=objc}VNCreateImageprintRequestConfiguration} *) - -let self = get_class "VNCreateImageprintRequestConfiguration" - diff --git a/Vision/VNCreateNeuralHashprintRequest.ml b/Vision/VNCreateNeuralHashprintRequest.ml index 753dfe14..6d231e57 100644 --- a/Vision/VNCreateNeuralHashprintRequest.ml +++ b/Vision/VNCreateNeuralHashprintRequest.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/vncreateneuralhashprintrequest?language=objc}VNCreateNeuralHashprintRequest} *) +let self = get_class "VNCreateNeuralHashprintRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning id) let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNCreateNeuralHashprintRequestClass.ml b/Vision/VNCreateNeuralHashprintRequestClass.ml index 01ee496a..72baafa3 100644 --- a/Vision/VNCreateNeuralHashprintRequestClass.ml +++ b/Vision/VNCreateNeuralHashprintRequestClass.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/vncreateneuralhashprintrequest?language=objc}VNCreateNeuralHashprintRequest} *) -let self = get_class "VNCreateNeuralHashprintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNCreateSceneprintRequest.ml b/Vision/VNCreateSceneprintRequest.ml index 3c697da1..24a8e89b 100644 --- a/Vision/VNCreateSceneprintRequest.ml +++ b/Vision/VNCreateSceneprintRequest.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/vncreatesceneprintrequest?language=objc}VNCreateSceneprintRequest} *) +let self = get_class "VNCreateSceneprintRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let hasCancellationHook self = msg_send ~self ~cmd:(selector "hasCancellationHook") ~typ:(returning bool) diff --git a/Vision/VNCreateSceneprintRequestClass.ml b/Vision/VNCreateSceneprintRequestClass.ml index 1a751d71..f403d5e1 100644 --- a/Vision/VNCreateSceneprintRequestClass.ml +++ b/Vision/VNCreateSceneprintRequestClass.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/vncreatesceneprintrequest?language=objc}VNCreateSceneprintRequest} *) -let self = get_class "VNCreateSceneprintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNCreateSceneprintRequestConfiguration.ml b/Vision/VNCreateSceneprintRequestConfiguration.ml index 0e4bdfef..34854b27 100644 --- a/Vision/VNCreateSceneprintRequestConfiguration.ml +++ b/Vision/VNCreateSceneprintRequestConfiguration.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/vncreatesceneprintrequestconfiguration?language=objc}VNCreateSceneprintRequestConfiguration} *) +let self = get_class "VNCreateSceneprintRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNCreateSceneprintRequestConfigurationClass.ml b/Vision/VNCreateSceneprintRequestConfigurationClass.ml deleted file mode 100644 index 2832faee..00000000 --- a/Vision/VNCreateSceneprintRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncreatesceneprintrequestconfiguration?language=objc}VNCreateSceneprintRequestConfiguration} *) - -let self = get_class "VNCreateSceneprintRequestConfiguration" - diff --git a/Vision/VNCreateSmartCamprintRequest.ml b/Vision/VNCreateSmartCamprintRequest.ml index 2016933b..cb08f67f 100644 --- a/Vision/VNCreateSmartCamprintRequest.ml +++ b/Vision/VNCreateSmartCamprintRequest.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/vncreatesmartcamprintrequest?language=objc}VNCreateSmartCamprintRequest} *) +let self = get_class "VNCreateSmartCamprintRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let returnAllResults self = msg_send ~self ~cmd:(selector "returnAllResults") ~typ:(returning bool) diff --git a/Vision/VNCreateSmartCamprintRequestClass.ml b/Vision/VNCreateSmartCamprintRequestClass.ml index 2b41de4d..7baebf87 100644 --- a/Vision/VNCreateSmartCamprintRequestClass.ml +++ b/Vision/VNCreateSmartCamprintRequestClass.ml @@ -4,16 +4,10 @@ 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/vncreatesmartcamprintrequest?language=objc}VNCreateSmartCamprintRequest} *) -let self = get_class "VNCreateSmartCamprintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNCreateSmartCamprintRequestConfiguration.ml b/Vision/VNCreateSmartCamprintRequestConfiguration.ml index d5109114..f2c82994 100644 --- a/Vision/VNCreateSmartCamprintRequestConfiguration.ml +++ b/Vision/VNCreateSmartCamprintRequestConfiguration.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/vncreatesmartcamprintrequestconfiguration?language=objc}VNCreateSmartCamprintRequestConfiguration} *) +let self = get_class "VNCreateSmartCamprintRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let returnAllResults self = msg_send ~self ~cmd:(selector "returnAllResults") ~typ:(returning bool) diff --git a/Vision/VNCreateSmartCamprintRequestConfigurationClass.ml b/Vision/VNCreateSmartCamprintRequestConfigurationClass.ml deleted file mode 100644 index fc0227c7..00000000 --- a/Vision/VNCreateSmartCamprintRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vncreatesmartcamprintrequestconfiguration?language=objc}VNCreateSmartCamprintRequestConfiguration} *) - -let self = get_class "VNCreateSmartCamprintRequestConfiguration" - diff --git a/Vision/VNCreateTorsoprintRequest.ml b/Vision/VNCreateTorsoprintRequest.ml index b3651291..ec7974e3 100644 --- a/Vision/VNCreateTorsoprintRequest.ml +++ b/Vision/VNCreateTorsoprintRequest.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/vncreatetorsoprintrequest?language=objc}VNCreateTorsoprintRequest} *) +let self = get_class "VNCreateTorsoprintRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) diff --git a/Vision/VNCreateTorsoprintRequestClass.ml b/Vision/VNCreateTorsoprintRequestClass.ml index 9d9167cd..2021c14b 100644 --- a/Vision/VNCreateTorsoprintRequestClass.ml +++ b/Vision/VNCreateTorsoprintRequestClass.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/vncreatetorsoprintrequest?language=objc}VNCreateTorsoprintRequest} *) -let self = get_class "VNCreateTorsoprintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNDataDetectorResult.ml b/Vision/VNDataDetectorResult.ml index f559a2e5..b24c9598 100644 --- a/Vision/VNDataDetectorResult.ml +++ b/Vision/VNDataDetectorResult.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/vndatadetectorresult?language=objc}VNDataDetectorResult} *) +let self = get_class "VNDataDetectorResult" + let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) let initWithDDScannerResult x ~observation self = msg_send ~self ~cmd:(selector "initWithDDScannerResult:observation:") ~typ:(id @-> id @-> returning id) x observation let originalObservation self = msg_send ~self ~cmd:(selector "originalObservation") ~typ:(returning id) diff --git a/Vision/VNDataDetectorResultClass.ml b/Vision/VNDataDetectorResultClass.ml deleted file mode 100644 index 02c6d7c4..00000000 --- a/Vision/VNDataDetectorResultClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndatadetectorresult?language=objc}VNDataDetectorResult} *) - -let self = get_class "VNDataDetectorResult" - diff --git a/Vision/VNDepthRepresentation.ml b/Vision/VNDepthRepresentation.ml deleted file mode 100644 index c65cc644..00000000 --- a/Vision/VNDepthRepresentation.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDepthRepresentation" - -module C = struct - let depthRepresentationForDepthData x ~orientation self = msg_send ~self ~cmd:(selector "depthRepresentationForDepthData:orientation:") ~typ:(id @-> uint @-> returning (id)) x orientation - let depthRepresentationForImageSource x ~orientation self = msg_send ~self ~cmd:(selector "depthRepresentationForImageSource:orientation:") ~typ:(ptr void @-> uint @-> returning (id)) x orientation -end - -let absoluteAccuracy self = msg_send ~self ~cmd:(selector "absoluteAccuracy") ~typ:(returning (bool)) -let depthBuffer self = msg_send ~self ~cmd:(selector "depthBuffer") ~typ:(returning (ptr void)) -let highQuality self = msg_send ~self ~cmd:(selector "highQuality") ~typ:(returning (bool)) -let lensDistortionData self = msg_send ~self ~cmd:(selector "lensDistortionData") ~typ:(returning (id)) -let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning (uint)) \ No newline at end of file diff --git a/Vision/VNDetectAnimalBodyPoseRequest.ml b/Vision/VNDetectAnimalBodyPoseRequest.ml deleted file mode 100644 index 6603d262..00000000 --- a/Vision/VNDetectAnimalBodyPoseRequest.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDetectAnimalBodyPoseRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let supportedJointNamesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedJointNamesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x -let supportedJointsGroupNamesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedJointsGroupNamesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNDetectBarcodesRequest.ml b/Vision/VNDetectBarcodesRequest.ml index 9a9cc68a..7caca991 100644 --- a/Vision/VNDetectBarcodesRequest.ml +++ b/Vision/VNDetectBarcodesRequest.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/vndetectbarcodesrequest?language=objc}VNDetectBarcodesRequest} *) +let self = get_class "VNDetectBarcodesRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let availableLocateModesAndReturnError x self = msg_send ~self ~cmd:(selector "availableLocateModesAndReturnError:") ~typ:((ptr id) @-> returning id) x let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNDetectBarcodesRequestClass.ml b/Vision/VNDetectBarcodesRequestClass.ml index f0daffd4..1115789f 100644 --- a/Vision/VNDetectBarcodesRequestClass.ml +++ b/Vision/VNDetectBarcodesRequestClass.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/vndetectbarcodesrequest?language=objc}VNDetectBarcodesRequest} *) -let self = get_class "VNDetectBarcodesRequest" - let _ACBSBarcodeTypeForBarcodeSymbology x self = msg_send ~self ~cmd:(selector "ACBSBarcodeTypeForBarcodeSymbology:") ~typ:(id @-> returning id) x let _MRCSymbologyForBarcodeSymbology x self = msg_send ~self ~cmd:(selector "MRCSymbologyForBarcodeSymbology:") ~typ:(id @-> returning (ptr CFString.t)) x let availableLocateModes self = msg_send ~self ~cmd:(selector "availableLocateModes") ~typ:(returning id) diff --git a/Vision/VNDetectBarcodesRequestConfiguration.ml b/Vision/VNDetectBarcodesRequestConfiguration.ml index 123f97c9..f89f3911 100644 --- a/Vision/VNDetectBarcodesRequestConfiguration.ml +++ b/Vision/VNDetectBarcodesRequestConfiguration.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/vndetectbarcodesrequestconfiguration?language=objc}VNDetectBarcodesRequestConfiguration} *) +let self = get_class "VNDetectBarcodesRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let locateMode self = msg_send ~self ~cmd:(selector "locateMode") ~typ:(returning id) diff --git a/Vision/VNDetectBarcodesRequestConfigurationClass.ml b/Vision/VNDetectBarcodesRequestConfigurationClass.ml deleted file mode 100644 index 5285c40c..00000000 --- a/Vision/VNDetectBarcodesRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectbarcodesrequestconfiguration?language=objc}VNDetectBarcodesRequestConfiguration} *) - -let self = get_class "VNDetectBarcodesRequestConfiguration" - diff --git a/Vision/VNDetectContoursRequest.ml b/Vision/VNDetectContoursRequest.ml index 57097cbb..d7430f9a 100644 --- a/Vision/VNDetectContoursRequest.ml +++ b/Vision/VNDetectContoursRequest.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/vndetectcontoursrequest?language=objc}VNDetectContoursRequest} *) +let self = get_class "VNDetectContoursRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let contrastAdjustment self = msg_send ~self ~cmd:(selector "contrastAdjustment") ~typ:(returning float) let contrastPivot self = msg_send ~self ~cmd:(selector "contrastPivot") ~typ:(returning id) diff --git a/Vision/VNDetectContoursRequestClass.ml b/Vision/VNDetectContoursRequestClass.ml index 30f4c87b..21035188 100644 --- a/Vision/VNDetectContoursRequestClass.ml +++ b/Vision/VNDetectContoursRequestClass.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/vndetectcontoursrequest?language=objc}VNDetectContoursRequest} *) -let self = get_class "VNDetectContoursRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNDetectContoursRequestConfiguration.ml b/Vision/VNDetectContoursRequestConfiguration.ml index 7ea575c2..346d9984 100644 --- a/Vision/VNDetectContoursRequestConfiguration.ml +++ b/Vision/VNDetectContoursRequestConfiguration.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/vndetectcontoursrequestconfiguration?language=objc}VNDetectContoursRequestConfiguration} *) +let self = get_class "VNDetectContoursRequestConfiguration" + let contrastAdjustment self = msg_send ~self ~cmd:(selector "contrastAdjustment") ~typ:(returning float) let contrastPivot self = msg_send ~self ~cmd:(selector "contrastPivot") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNDetectContoursRequestConfigurationClass.ml b/Vision/VNDetectContoursRequestConfigurationClass.ml deleted file mode 100644 index 2a797a13..00000000 --- a/Vision/VNDetectContoursRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectcontoursrequestconfiguration?language=objc}VNDetectContoursRequestConfiguration} *) - -let self = get_class "VNDetectContoursRequestConfiguration" - diff --git a/Vision/VNDetectDocumentSegmentationRequest.ml b/Vision/VNDetectDocumentSegmentationRequest.ml index ccf0fde7..1d8fc70a 100644 --- a/Vision/VNDetectDocumentSegmentationRequest.ml +++ b/Vision/VNDetectDocumentSegmentationRequest.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/vndetectdocumentsegmentationrequest?language=objc}VNDetectDocumentSegmentationRequest} *) +let self = get_class "VNDetectDocumentSegmentationRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning id) diff --git a/Vision/VNDetectDocumentSegmentationRequestClass.ml b/Vision/VNDetectDocumentSegmentationRequestClass.ml index 63da9cf0..1470c668 100644 --- a/Vision/VNDetectDocumentSegmentationRequestClass.ml +++ b/Vision/VNDetectDocumentSegmentationRequestClass.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/vndetectdocumentsegmentationrequest?language=objc}VNDetectDocumentSegmentationRequest} *) -let self = get_class "VNDetectDocumentSegmentationRequest" - let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectFace3DLandmarksRequest.ml b/Vision/VNDetectFace3DLandmarksRequest.ml index 95e0e3e9..4e650d61 100644 --- a/Vision/VNDetectFace3DLandmarksRequest.ml +++ b/Vision/VNDetectFace3DLandmarksRequest.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/vndetectface3dlandmarksrequest?language=objc}VNDetectFace3DLandmarksRequest} *) +let self = get_class "VNDetectFace3DLandmarksRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) diff --git a/Vision/VNDetectFace3DLandmarksRequestClass.ml b/Vision/VNDetectFace3DLandmarksRequestClass.ml index 7eaa10dd..eebb8fc0 100644 --- a/Vision/VNDetectFace3DLandmarksRequestClass.ml +++ b/Vision/VNDetectFace3DLandmarksRequestClass.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/vndetectface3dlandmarksrequest?language=objc}VNDetectFace3DLandmarksRequest} *) -let self = get_class "VNDetectFace3DLandmarksRequest" - let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectFaceCaptureQualityRequest.ml b/Vision/VNDetectFaceCaptureQualityRequest.ml index 1efb2862..a0ccd929 100644 --- a/Vision/VNDetectFaceCaptureQualityRequest.ml +++ b/Vision/VNDetectFaceCaptureQualityRequest.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/vndetectfacecapturequalityrequest?language=objc}VNDetectFaceCaptureQualityRequest} *) +let self = get_class "VNDetectFaceCaptureQualityRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) diff --git a/Vision/VNDetectFaceCaptureQualityRequestClass.ml b/Vision/VNDetectFaceCaptureQualityRequestClass.ml index c12672d0..a0a4e01e 100644 --- a/Vision/VNDetectFaceCaptureQualityRequestClass.ml +++ b/Vision/VNDetectFaceCaptureQualityRequestClass.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/vndetectfacecapturequalityrequest?language=objc}VNDetectFaceCaptureQualityRequest} *) -let self = get_class "VNDetectFaceCaptureQualityRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectFaceExpressionsRequest.ml b/Vision/VNDetectFaceExpressionsRequest.ml index 8db2efc0..911456af 100644 --- a/Vision/VNDetectFaceExpressionsRequest.ml +++ b/Vision/VNDetectFaceExpressionsRequest.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/vndetectfaceexpressionsrequest?language=objc}VNDetectFaceExpressionsRequest} *) +let self = get_class "VNDetectFaceExpressionsRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) diff --git a/Vision/VNDetectFaceExpressionsRequestClass.ml b/Vision/VNDetectFaceExpressionsRequestClass.ml index fa6dcd32..2d855a8d 100644 --- a/Vision/VNDetectFaceExpressionsRequestClass.ml +++ b/Vision/VNDetectFaceExpressionsRequestClass.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/vndetectfaceexpressionsrequest?language=objc}VNDetectFaceExpressionsRequest} *) -let self = get_class "VNDetectFaceExpressionsRequest" - let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectFaceGazeRequest.ml b/Vision/VNDetectFaceGazeRequest.ml index 7b08b50d..b801d26c 100644 --- a/Vision/VNDetectFaceGazeRequest.ml +++ b/Vision/VNDetectFaceGazeRequest.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/vndetectfacegazerequest?language=objc}VNDetectFaceGazeRequest} *) +let self = get_class "VNDetectFaceGazeRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let commonGazeLocationRadius self = msg_send ~self ~cmd:(selector "commonGazeLocationRadius") ~typ:(returning float) let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) diff --git a/Vision/VNDetectFaceGazeRequestClass.ml b/Vision/VNDetectFaceGazeRequestClass.ml index 1c36045a..fa45e737 100644 --- a/Vision/VNDetectFaceGazeRequestClass.ml +++ b/Vision/VNDetectFaceGazeRequestClass.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/vndetectfacegazerequest?language=objc}VNDetectFaceGazeRequest} *) -let self = get_class "VNDetectFaceGazeRequest" - let compatibleRevisionForDependentRequestOfClass x ~beingPerformedByRevision self = msg_send ~self ~cmd:(selector "compatibleRevisionForDependentRequestOfClass:beingPerformedByRevision:") ~typ:(_Class @-> ullong @-> returning ullong) x (ULLong.of_int beingPerformedByRevision) let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectFaceGazeRequestConfiguration.ml b/Vision/VNDetectFaceGazeRequestConfiguration.ml index 51091d57..0d82329b 100644 --- a/Vision/VNDetectFaceGazeRequestConfiguration.ml +++ b/Vision/VNDetectFaceGazeRequestConfiguration.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/vndetectfacegazerequestconfiguration?language=objc}VNDetectFaceGazeRequestConfiguration} *) +let self = get_class "VNDetectFaceGazeRequestConfiguration" + let commonGazeLocationRadius self = msg_send ~self ~cmd:(selector "commonGazeLocationRadius") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let gazeHeatMapThreshold self = msg_send ~self ~cmd:(selector "gazeHeatMapThreshold") ~typ:(returning float) diff --git a/Vision/VNDetectFaceGazeRequestConfigurationClass.ml b/Vision/VNDetectFaceGazeRequestConfigurationClass.ml deleted file mode 100644 index 182d1cd4..00000000 --- a/Vision/VNDetectFaceGazeRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectfacegazerequestconfiguration?language=objc}VNDetectFaceGazeRequestConfiguration} *) - -let self = get_class "VNDetectFaceGazeRequestConfiguration" - diff --git a/Vision/VNDetectFaceLandmarksRequest.ml b/Vision/VNDetectFaceLandmarksRequest.ml index aea0f25f..42b7a40a 100644 --- a/Vision/VNDetectFaceLandmarksRequest.ml +++ b/Vision/VNDetectFaceLandmarksRequest.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/vndetectfacelandmarksrequest?language=objc}VNDetectFaceLandmarksRequest} *) +let self = get_class "VNDetectFaceLandmarksRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let cascadeStepCount self = msg_send ~self ~cmd:(selector "cascadeStepCount") ~typ:(returning id) let constellation self = msg_send ~self ~cmd:(selector "constellation") ~typ:(returning ullong) diff --git a/Vision/VNDetectFaceLandmarksRequestClass.ml b/Vision/VNDetectFaceLandmarksRequestClass.ml index 80b65b80..6d493c4d 100644 --- a/Vision/VNDetectFaceLandmarksRequestClass.ml +++ b/Vision/VNDetectFaceLandmarksRequestClass.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/vndetectfacelandmarksrequest?language=objc}VNDetectFaceLandmarksRequest} *) -let self = get_class "VNDetectFaceLandmarksRequest" - let compatibleRevisionForDependentRequestOfClass x ~beingPerformedByRevision self = msg_send ~self ~cmd:(selector "compatibleRevisionForDependentRequestOfClass:beingPerformedByRevision:") ~typ:(_Class @-> ullong @-> returning ullong) x (ULLong.of_int beingPerformedByRevision) let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNDetectFaceLandmarksRequestConfiguration.ml b/Vision/VNDetectFaceLandmarksRequestConfiguration.ml index 999ef38b..1e49dd51 100644 --- a/Vision/VNDetectFaceLandmarksRequestConfiguration.ml +++ b/Vision/VNDetectFaceLandmarksRequestConfiguration.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/vndetectfacelandmarksrequestconfiguration?language=objc}VNDetectFaceLandmarksRequestConfiguration} *) +let self = get_class "VNDetectFaceLandmarksRequestConfiguration" + let cascadeStepCount self = msg_send ~self ~cmd:(selector "cascadeStepCount") ~typ:(returning id) let constellation self = msg_send ~self ~cmd:(selector "constellation") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNDetectFaceLandmarksRequestConfigurationClass.ml b/Vision/VNDetectFaceLandmarksRequestConfigurationClass.ml index a320ad43..e85f722b 100644 --- a/Vision/VNDetectFaceLandmarksRequestConfigurationClass.ml +++ b/Vision/VNDetectFaceLandmarksRequestConfigurationClass.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/vndetectfacelandmarksrequestconfiguration?language=objc}VNDetectFaceLandmarksRequestConfiguration} *) -let self = get_class "VNDetectFaceLandmarksRequestConfiguration" - let revision x ~supportsConstellation self = msg_send ~self ~cmd:(selector "revision:supportsConstellation:") ~typ:(ullong @-> ullong @-> returning bool) (ULLong.of_int x) (ULLong.of_int supportsConstellation) \ No newline at end of file diff --git a/Vision/VNDetectFacePoseRequest.ml b/Vision/VNDetectFacePoseRequest.ml index d031dac1..27dd840c 100644 --- a/Vision/VNDetectFacePoseRequest.ml +++ b/Vision/VNDetectFacePoseRequest.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/vndetectfaceposerequest?language=objc}VNDetectFacePoseRequest} *) +let self = get_class "VNDetectFacePoseRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let resultsAreAssignedWithOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "resultsAreAssignedWithOriginatingRequestSpecifier") ~typ:(returning bool) diff --git a/Vision/VNDetectFacePoseRequestClass.ml b/Vision/VNDetectFacePoseRequestClass.ml index b8ea5f29..ae3d79f9 100644 --- a/Vision/VNDetectFacePoseRequestClass.ml +++ b/Vision/VNDetectFacePoseRequestClass.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/vndetectfaceposerequest?language=objc}VNDetectFacePoseRequest} *) -let self = get_class "VNDetectFacePoseRequest" - let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectFaceRectanglesRequest.ml b/Vision/VNDetectFaceRectanglesRequest.ml index 9bb1459e..56e56df2 100644 --- a/Vision/VNDetectFaceRectanglesRequest.ml +++ b/Vision/VNDetectFaceRectanglesRequest.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/vndetectfacerectanglesrequest?language=objc}VNDetectFaceRectanglesRequest} *) +let self = get_class "VNDetectFaceRectanglesRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let faceCoreEnhanceEyesAndMouthLocalization self = msg_send ~self ~cmd:(selector "faceCoreEnhanceEyesAndMouthLocalization") ~typ:(returning bool) diff --git a/Vision/VNDetectFaceRectanglesRequestClass.ml b/Vision/VNDetectFaceRectanglesRequestClass.ml index 38566d30..a75fc934 100644 --- a/Vision/VNDetectFaceRectanglesRequestClass.ml +++ b/Vision/VNDetectFaceRectanglesRequestClass.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/vndetectfacerectanglesrequest?language=objc}VNDetectFaceRectanglesRequest} *) -let self = get_class "VNDetectFaceRectanglesRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNDetectFaceRectanglesRequestConfiguration.ml b/Vision/VNDetectFaceRectanglesRequestConfiguration.ml index 832b8744..6fad27fc 100644 --- a/Vision/VNDetectFaceRectanglesRequestConfiguration.ml +++ b/Vision/VNDetectFaceRectanglesRequestConfiguration.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/vndetectfacerectanglesrequestconfiguration?language=objc}VNDetectFaceRectanglesRequestConfiguration} *) +let self = get_class "VNDetectFaceRectanglesRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let faceCoreEnhanceEyesAndMouthLocalization self = msg_send ~self ~cmd:(selector "faceCoreEnhanceEyesAndMouthLocalization") ~typ:(returning bool) let faceCoreExtractBlink self = msg_send ~self ~cmd:(selector "faceCoreExtractBlink") ~typ:(returning bool) diff --git a/Vision/VNDetectFaceRectanglesRequestConfigurationClass.ml b/Vision/VNDetectFaceRectanglesRequestConfigurationClass.ml deleted file mode 100644 index b7755dd9..00000000 --- a/Vision/VNDetectFaceRectanglesRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectfacerectanglesrequestconfiguration?language=objc}VNDetectFaceRectanglesRequestConfiguration} *) - -let self = get_class "VNDetectFaceRectanglesRequestConfiguration" - diff --git a/Vision/VNDetectHorizonRequest.ml b/Vision/VNDetectHorizonRequest.ml deleted file mode 100644 index 191d16d2..00000000 --- a/Vision/VNDetectHorizonRequest.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDetectHorizonRequest" - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) x error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) x inContext error \ No newline at end of file diff --git a/Vision/VNDetectHumanBodyPose3DRequest.ml b/Vision/VNDetectHumanBodyPose3DRequest.ml deleted file mode 100644 index d2d4a5df..00000000 --- a/Vision/VNDetectHumanBodyPose3DRequest.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDetectHumanBodyPose3DRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:(ptr void @-> returning (id)) x -let initWithFrameAnalysisSpacing x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithFrameAnalysisSpacing:completionHandler:") ~typ:(ptr void @-> ptr void @-> returning (id)) x completionHandler -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let resolvedRevisionDidChangeFromRevision x self = msg_send ~self ~cmd:(selector "resolvedRevisionDidChangeFromRevision:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let supportedJointNamesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedJointNamesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x -let supportedJointsGroupNamesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedJointsGroupNamesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNDetectHumanBodyPoseRequest.ml b/Vision/VNDetectHumanBodyPoseRequest.ml index 091cd216..4edb116b 100644 --- a/Vision/VNDetectHumanBodyPoseRequest.ml +++ b/Vision/VNDetectHumanBodyPoseRequest.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/vndetecthumanbodyposerequest?language=objc}VNDetectHumanBodyPoseRequest} *) +let self = get_class "VNDetectHumanBodyPoseRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNDetectHumanBodyPoseRequestClass.ml b/Vision/VNDetectHumanBodyPoseRequestClass.ml index d3261697..4a755a06 100644 --- a/Vision/VNDetectHumanBodyPoseRequestClass.ml +++ b/Vision/VNDetectHumanBodyPoseRequestClass.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/vndetecthumanbodyposerequest?language=objc}VNDetectHumanBodyPoseRequest} *) -let self = get_class "VNDetectHumanBodyPoseRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) let supportedJointNamesForRevision x ~error self = msg_send ~self ~cmd:(selector "supportedJointNamesForRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error diff --git a/Vision/VNDetectHumanHandPoseRequest.ml b/Vision/VNDetectHumanHandPoseRequest.ml index e8946a0f..a808b8dc 100644 --- a/Vision/VNDetectHumanHandPoseRequest.ml +++ b/Vision/VNDetectHumanHandPoseRequest.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/vndetecthumanhandposerequest?language=objc}VNDetectHumanHandPoseRequest} *) +let self = get_class "VNDetectHumanHandPoseRequest" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNDetectHumanHandPoseRequestClass.ml b/Vision/VNDetectHumanHandPoseRequestClass.ml index 8e8f63e6..fc5aebde 100644 --- a/Vision/VNDetectHumanHandPoseRequestClass.ml +++ b/Vision/VNDetectHumanHandPoseRequestClass.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/vndetecthumanhandposerequest?language=objc}VNDetectHumanHandPoseRequest} *) -let self = get_class "VNDetectHumanHandPoseRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNDetectHumanHandPoseRequestConfiguration.ml b/Vision/VNDetectHumanHandPoseRequestConfiguration.ml index 3546fe73..e8906918 100644 --- a/Vision/VNDetectHumanHandPoseRequestConfiguration.ml +++ b/Vision/VNDetectHumanHandPoseRequestConfiguration.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/vndetecthumanhandposerequestconfiguration?language=objc}VNDetectHumanHandPoseRequestConfiguration} *) +let self = get_class "VNDetectHumanHandPoseRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let maximumHandCount self = msg_send ~self ~cmd:(selector "maximumHandCount") ~typ:(returning ullong) diff --git a/Vision/VNDetectHumanHandPoseRequestConfigurationClass.ml b/Vision/VNDetectHumanHandPoseRequestConfigurationClass.ml deleted file mode 100644 index 00689898..00000000 --- a/Vision/VNDetectHumanHandPoseRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetecthumanhandposerequestconfiguration?language=objc}VNDetectHumanHandPoseRequestConfiguration} *) - -let self = get_class "VNDetectHumanHandPoseRequestConfiguration" - diff --git a/Vision/VNDetectHumanHeadRectanglesRequest.ml b/Vision/VNDetectHumanHeadRectanglesRequest.ml index 6c696b24..adc0649f 100644 --- a/Vision/VNDetectHumanHeadRectanglesRequest.ml +++ b/Vision/VNDetectHumanHeadRectanglesRequest.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/vndetecthumanheadrectanglesrequest?language=objc}VNDetectHumanHeadRectanglesRequest} *) +let self = get_class "VNDetectHumanHeadRectanglesRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNDetectHumanHeadRectanglesRequestClass.ml b/Vision/VNDetectHumanHeadRectanglesRequestClass.ml index 529c71c6..696c6405 100644 --- a/Vision/VNDetectHumanHeadRectanglesRequestClass.ml +++ b/Vision/VNDetectHumanHeadRectanglesRequestClass.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/vndetecthumanheadrectanglesrequest?language=objc}VNDetectHumanHeadRectanglesRequest} *) -let self = get_class "VNDetectHumanHeadRectanglesRequest" - let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) let supportedPrivateRevisions self = msg_send ~self ~cmd:(selector "supportedPrivateRevisions") ~typ:(returning id) diff --git a/Vision/VNDetectHumanRectanglesRequest.ml b/Vision/VNDetectHumanRectanglesRequest.ml index cb96ad9f..64535d7a 100644 --- a/Vision/VNDetectHumanRectanglesRequest.ml +++ b/Vision/VNDetectHumanRectanglesRequest.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/vndetecthumanrectanglesrequest?language=objc}VNDetectHumanRectanglesRequest} *) +let self = get_class "VNDetectHumanRectanglesRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNDetectHumanRectanglesRequestClass.ml b/Vision/VNDetectHumanRectanglesRequestClass.ml index df9442c5..12be74fb 100644 --- a/Vision/VNDetectHumanRectanglesRequestClass.ml +++ b/Vision/VNDetectHumanRectanglesRequestClass.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/vndetecthumanrectanglesrequest?language=objc}VNDetectHumanRectanglesRequest} *) -let self = get_class "VNDetectHumanRectanglesRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNDetectHumanRectanglesRequestConfiguration.ml b/Vision/VNDetectHumanRectanglesRequestConfiguration.ml index 38bb0bf8..d9c9bfac 100644 --- a/Vision/VNDetectHumanRectanglesRequestConfiguration.ml +++ b/Vision/VNDetectHumanRectanglesRequestConfiguration.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/vndetecthumanrectanglesrequestconfiguration?language=objc}VNDetectHumanRectanglesRequestConfiguration} *) +let self = get_class "VNDetectHumanRectanglesRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let setUpperBodyOnly x self = msg_send ~self ~cmd:(selector "setUpperBodyOnly:") ~typ:(bool @-> returning void) x diff --git a/Vision/VNDetectHumanRectanglesRequestConfigurationClass.ml b/Vision/VNDetectHumanRectanglesRequestConfigurationClass.ml deleted file mode 100644 index ce40fd4b..00000000 --- a/Vision/VNDetectHumanRectanglesRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetecthumanrectanglesrequestconfiguration?language=objc}VNDetectHumanRectanglesRequestConfiguration} *) - -let self = get_class "VNDetectHumanRectanglesRequestConfiguration" - diff --git a/Vision/VNDetectObjectAtPointRequest.ml b/Vision/VNDetectObjectAtPointRequest.ml index 24393f8d..92c1809a 100644 --- a/Vision/VNDetectObjectAtPointRequest.ml +++ b/Vision/VNDetectObjectAtPointRequest.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/vndetectobjectatpointrequest?language=objc}VNDetectObjectAtPointRequest} *) +let self = get_class "VNDetectObjectAtPointRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let initWithPoint x self = msg_send ~self ~cmd:(selector "initWithPoint:") ~typ:(CGPoint.t @-> returning id) x diff --git a/Vision/VNDetectObjectAtPointRequestClass.ml b/Vision/VNDetectObjectAtPointRequestClass.ml index 87a0cdd1..c6b1d6a6 100644 --- a/Vision/VNDetectObjectAtPointRequestClass.ml +++ b/Vision/VNDetectObjectAtPointRequestClass.ml @@ -4,16 +4,10 @@ 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/vndetectobjectatpointrequest?language=objc}VNDetectObjectAtPointRequest} *) -let self = get_class "VNDetectObjectAtPointRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectObjectAtPointRequestConfiguration.ml b/Vision/VNDetectObjectAtPointRequestConfiguration.ml index fcf9509e..3670e0b2 100644 --- a/Vision/VNDetectObjectAtPointRequestConfiguration.ml +++ b/Vision/VNDetectObjectAtPointRequestConfiguration.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/vndetectobjectatpointrequestconfiguration?language=objc}VNDetectObjectAtPointRequestConfiguration} *) +let self = get_class "VNDetectObjectAtPointRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let inputPoint self = msg_send ~self ~cmd:(selector "inputPoint") ~typ:(returning CGPoint.t) diff --git a/Vision/VNDetectObjectAtPointRequestConfigurationClass.ml b/Vision/VNDetectObjectAtPointRequestConfigurationClass.ml deleted file mode 100644 index 4d8ade3d..00000000 --- a/Vision/VNDetectObjectAtPointRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectobjectatpointrequestconfiguration?language=objc}VNDetectObjectAtPointRequestConfiguration} *) - -let self = get_class "VNDetectObjectAtPointRequestConfiguration" - diff --git a/Vision/VNDetectRectanglesRequest.ml b/Vision/VNDetectRectanglesRequest.ml index 0fc0cb6c..0cb10a85 100644 --- a/Vision/VNDetectRectanglesRequest.ml +++ b/Vision/VNDetectRectanglesRequest.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/vndetectrectanglesrequest?language=objc}VNDetectRectanglesRequest} *) +let self = get_class "VNDetectRectanglesRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNDetectRectanglesRequestClass.ml b/Vision/VNDetectRectanglesRequestClass.ml index 07a887c1..bb8490bb 100644 --- a/Vision/VNDetectRectanglesRequestClass.ml +++ b/Vision/VNDetectRectanglesRequestClass.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/vndetectrectanglesrequest?language=objc}VNDetectRectanglesRequest} *) -let self = get_class "VNDetectRectanglesRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNDetectRectanglesRequestConfiguration.ml b/Vision/VNDetectRectanglesRequestConfiguration.ml index 242a8df6..6b68d62b 100644 --- a/Vision/VNDetectRectanglesRequestConfiguration.ml +++ b/Vision/VNDetectRectanglesRequestConfiguration.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/vndetectrectanglesrequestconfiguration?language=objc}VNDetectRectanglesRequestConfiguration} *) +let self = get_class "VNDetectRectanglesRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let maximumAspectRatio self = msg_send ~self ~cmd:(selector "maximumAspectRatio") ~typ:(returning float) diff --git a/Vision/VNDetectRectanglesRequestConfigurationClass.ml b/Vision/VNDetectRectanglesRequestConfigurationClass.ml deleted file mode 100644 index 0d2b609e..00000000 --- a/Vision/VNDetectRectanglesRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectrectanglesrequestconfiguration?language=objc}VNDetectRectanglesRequestConfiguration} *) - -let self = get_class "VNDetectRectanglesRequestConfiguration" - diff --git a/Vision/VNDetectScreenGazeRequest.ml b/Vision/VNDetectScreenGazeRequest.ml index a20a3fae..39a8385f 100644 --- a/Vision/VNDetectScreenGazeRequest.ml +++ b/Vision/VNDetectScreenGazeRequest.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/vndetectscreengazerequest?language=objc}VNDetectScreenGazeRequest} *) +let self = get_class "VNDetectScreenGazeRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNDetectScreenGazeRequestClass.ml b/Vision/VNDetectScreenGazeRequestClass.ml index a8097fec..b58ae8d1 100644 --- a/Vision/VNDetectScreenGazeRequestClass.ml +++ b/Vision/VNDetectScreenGazeRequestClass.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/vndetectscreengazerequest?language=objc}VNDetectScreenGazeRequest} *) -let self = get_class "VNDetectScreenGazeRequest" - let compatibleRevisionForDependentRequestOfClass x ~beingPerformedByRevision self = msg_send ~self ~cmd:(selector "compatibleRevisionForDependentRequestOfClass:beingPerformedByRevision:") ~typ:(_Class @-> ullong @-> returning ullong) x (ULLong.of_int beingPerformedByRevision) let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNDetectScreenGazeRequestConfiguration.ml b/Vision/VNDetectScreenGazeRequestConfiguration.ml index 82007671..4d9a3154 100644 --- a/Vision/VNDetectScreenGazeRequestConfiguration.ml +++ b/Vision/VNDetectScreenGazeRequestConfiguration.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/vndetectscreengazerequestconfiguration?language=objc}VNDetectScreenGazeRequestConfiguration} *) +let self = get_class "VNDetectScreenGazeRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let setTemporalSmoothingFrameCount x self = msg_send ~self ~cmd:(selector "setTemporalSmoothingFrameCount:") ~typ:(llong @-> returning void) (LLong.of_int x) diff --git a/Vision/VNDetectScreenGazeRequestConfigurationClass.ml b/Vision/VNDetectScreenGazeRequestConfigurationClass.ml deleted file mode 100644 index 86a6b284..00000000 --- a/Vision/VNDetectScreenGazeRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectscreengazerequestconfiguration?language=objc}VNDetectScreenGazeRequestConfiguration} *) - -let self = get_class "VNDetectScreenGazeRequestConfiguration" - diff --git a/Vision/VNDetectTextRectanglesRequest.ml b/Vision/VNDetectTextRectanglesRequest.ml index 648ce915..cbe25fd0 100644 --- a/Vision/VNDetectTextRectanglesRequest.ml +++ b/Vision/VNDetectTextRectanglesRequest.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/vndetecttextrectanglesrequest?language=objc}VNDetectTextRectanglesRequest} *) +let self = get_class "VNDetectTextRectanglesRequest" + let additionalCharacters self = msg_send ~self ~cmd:(selector "additionalCharacters") ~typ:(returning id) let algorithm self = msg_send ~self ~cmd:(selector "algorithm") ~typ:(returning ullong) let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x diff --git a/Vision/VNDetectTextRectanglesRequestClass.ml b/Vision/VNDetectTextRectanglesRequestClass.ml index bcd2e2c3..c0a50176 100644 --- a/Vision/VNDetectTextRectanglesRequestClass.ml +++ b/Vision/VNDetectTextRectanglesRequestClass.ml @@ -4,16 +4,10 @@ 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/vndetecttextrectanglesrequest?language=objc}VNDetectTextRectanglesRequest} *) -let self = get_class "VNDetectTextRectanglesRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let initialize self = msg_send ~self ~cmd:(selector "initialize") ~typ:(returning void) \ No newline at end of file diff --git a/Vision/VNDetectTextRectanglesRequestConfiguration.ml b/Vision/VNDetectTextRectanglesRequestConfiguration.ml index 74a2e438..8b210fb8 100644 --- a/Vision/VNDetectTextRectanglesRequestConfiguration.ml +++ b/Vision/VNDetectTextRectanglesRequestConfiguration.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/vndetecttextrectanglesrequestconfiguration?language=objc}VNDetectTextRectanglesRequestConfiguration} *) +let self = get_class "VNDetectTextRectanglesRequestConfiguration" + let additionalCharacters self = msg_send ~self ~cmd:(selector "additionalCharacters") ~typ:(returning id) let algorithm self = msg_send ~self ~cmd:(selector "algorithm") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNDetectTextRectanglesRequestConfigurationClass.ml b/Vision/VNDetectTextRectanglesRequestConfigurationClass.ml deleted file mode 100644 index 6b4d21ae..00000000 --- a/Vision/VNDetectTextRectanglesRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetecttextrectanglesrequestconfiguration?language=objc}VNDetectTextRectanglesRequestConfiguration} *) - -let self = get_class "VNDetectTextRectanglesRequestConfiguration" - diff --git a/Vision/VNDetectTrajectoriesRequest.ml b/Vision/VNDetectTrajectoriesRequest.ml index 38b43bd7..e75fb133 100644 --- a/Vision/VNDetectTrajectoriesRequest.ml +++ b/Vision/VNDetectTrajectoriesRequest.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/vndetecttrajectoriesrequest?language=objc}VNDetectTrajectoriesRequest} *) +let self = get_class "VNDetectTrajectoriesRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let initWithFrameAnalysisSpacing x ~trajectoryLength ~completionHandler self = msg_send ~self ~cmd:(selector "initWithFrameAnalysisSpacing:trajectoryLength:completionHandler:") ~typ:(void @-> llong @-> (ptr void) @-> returning id) x (LLong.of_int trajectoryLength) completionHandler let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNDetectTrajectoriesRequestClass.ml b/Vision/VNDetectTrajectoriesRequestClass.ml index b7e2a89c..2a8b10b8 100644 --- a/Vision/VNDetectTrajectoriesRequestClass.ml +++ b/Vision/VNDetectTrajectoriesRequestClass.ml @@ -4,16 +4,10 @@ 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/vndetecttrajectoriesrequest?language=objc}VNDetectTrajectoriesRequest} *) -let self = get_class "VNDetectTrajectoriesRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let setsTimeRangeOnResults self = msg_send ~self ~cmd:(selector "setsTimeRangeOnResults") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNDetectTrajectoriesRequestConfiguration.ml b/Vision/VNDetectTrajectoriesRequestConfiguration.ml index deaa7b7e..f470b042 100644 --- a/Vision/VNDetectTrajectoriesRequestConfiguration.ml +++ b/Vision/VNDetectTrajectoriesRequestConfiguration.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/vndetecttrajectoriesrequestconfiguration?language=objc}VNDetectTrajectoriesRequestConfiguration} *) +let self = get_class "VNDetectTrajectoriesRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let objectMaximumNormalizedRadius self = msg_send ~self ~cmd:(selector "objectMaximumNormalizedRadius") ~typ:(returning float) diff --git a/Vision/VNDetectTrajectoriesRequestConfigurationClass.ml b/Vision/VNDetectTrajectoriesRequestConfigurationClass.ml deleted file mode 100644 index 7749ef75..00000000 --- a/Vision/VNDetectTrajectoriesRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetecttrajectoriesrequestconfiguration?language=objc}VNDetectTrajectoriesRequestConfiguration} *) - -let self = get_class "VNDetectTrajectoriesRequestConfiguration" - diff --git a/Vision/VNDetectedObjectObservation.ml b/Vision/VNDetectedObjectObservation.ml index d410b5c8..7bb991ec 100644 --- a/Vision/VNDetectedObjectObservation.ml +++ b/Vision/VNDetectedObjectObservation.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/vndetectedobjectobservation?language=objc}VNDetectedObjectObservation} *) +let self = get_class "VNDetectedObjectObservation" + let boundingBox self = msg_send ~self ~cmd:(selector "boundingBox") ~typ:(returning CGRect.t) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNDetectedObjectObservationClass.ml b/Vision/VNDetectedObjectObservationClass.ml index 0edb31c8..3f93d133 100644 --- a/Vision/VNDetectedObjectObservationClass.ml +++ b/Vision/VNDetectedObjectObservationClass.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/vndetectedobjectobservation?language=objc}VNDetectedObjectObservation} *) -let self = get_class "VNDetectedObjectObservation" - let boundingBoxIsCalculatedProperty self = msg_send ~self ~cmd:(selector "boundingBoxIsCalculatedProperty") ~typ:(returning bool) let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let observationWithBoundingBox x self = msg_send ~self ~cmd:(selector "observationWithBoundingBox:") ~typ:(CGRect.t @-> returning id) x diff --git a/Vision/VNDetectedPoint.ml b/Vision/VNDetectedPoint.ml index 1c1a73d4..5bbd18cf 100644 --- a/Vision/VNDetectedPoint.ml +++ b/Vision/VNDetectedPoint.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/vndetectedpoint?language=objc}VNDetectedPoint} *) +let self = get_class "VNDetectedPoint" + let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNDetectedPointClass.ml b/Vision/VNDetectedPointClass.ml index e8ba0ea7..2ea46a15 100644 --- a/Vision/VNDetectedPointClass.ml +++ b/Vision/VNDetectedPointClass.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/vndetectedpoint?language=objc}VNDetectedPoint} *) -let self = get_class "VNDetectedPoint" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNDetectionprint.ml b/Vision/VNDetectionprint.ml index 50d2d41d..c20d94b9 100644 --- a/Vision/VNDetectionprint.ml +++ b/Vision/VNDetectionprint.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/vndetectionprint?language=objc}VNDetectionprint} *) +let self = get_class "VNDetectionprint" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNDetectionprintClass.ml b/Vision/VNDetectionprintClass.ml index f0d84ede..e7f0585d 100644 --- a/Vision/VNDetectionprintClass.ml +++ b/Vision/VNDetectionprintClass.ml @@ -4,16 +4,10 @@ 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/vndetectionprint?language=objc}VNDetectionprint} *) -let self = get_class "VNDetectionprint" - let knownTensorKeysForRequestRevision x ~error self = msg_send ~self ~cmd:(selector "knownTensorKeysForRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNDetectionprintGenerator.ml b/Vision/VNDetectionprintGenerator.ml deleted file mode 100644 index dfb55e31..00000000 --- a/Vision/VNDetectionprintGenerator.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDetectionprintGenerator" - -module C = struct - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelPathForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "espressoModelPathForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let fullyPopulateConfigurationOptions x self = msg_send ~self ~cmd:(selector "fullyPopulateConfigurationOptions:") ~typ:(id @-> returning (void)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNDetectionprintMLFeatureProvider.ml b/Vision/VNDetectionprintMLFeatureProvider.ml deleted file mode 100644 index 99c4573a..00000000 --- a/Vision/VNDetectionprintMLFeatureProvider.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDetectionprintMLFeatureProvider" - -module C = struct - let _VNDetectionprintTensorKeyForFeatureName x self = msg_send ~self ~cmd:(selector "VNDetectionprintTensorKeyForFeatureName:") ~typ:(id @-> returning (id)) x -end - -let featureNames self = msg_send ~self ~cmd:(selector "featureNames") ~typ:(returning (id)) -let featureValueForName x self = msg_send ~self ~cmd:(selector "featureValueForName:") ~typ:(id @-> returning (id)) x -let initWithDetectionprint x ~featureDescriptions ~originalFeatureProvider self = msg_send ~self ~cmd:(selector "initWithDetectionprint:featureDescriptions:originalFeatureProvider:") ~typ:(id @-> id @-> id @-> returning (id)) x featureDescriptions originalFeatureProvider \ No newline at end of file diff --git a/Vision/VNDetectionprintObservation.ml b/Vision/VNDetectionprintObservation.ml index b9178d2e..69256d13 100644 --- a/Vision/VNDetectionprintObservation.ml +++ b/Vision/VNDetectionprintObservation.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/vndetectionprintobservation?language=objc}VNDetectionprintObservation} *) +let self = get_class "VNDetectionprintObservation" + let detectionprint self = msg_send ~self ~cmd:(selector "detectionprint") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNDetectionprintObservationClass.ml b/Vision/VNDetectionprintObservationClass.ml index b49083be..db75b205 100644 --- a/Vision/VNDetectionprintObservationClass.ml +++ b/Vision/VNDetectionprintObservationClass.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/vndetectionprintobservation?language=objc}VNDetectionprintObservation} *) -let self = get_class "VNDetectionprintObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNDetectionprintTensor.ml b/Vision/VNDetectionprintTensor.ml deleted file mode 100644 index 451d31df..00000000 --- a/Vision/VNDetectionprintTensor.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDetectionprintTensor" - -module C = struct - let confidenceTypeForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "confidenceTypeForOriginatingRequestSpecifier:") ~typ:(id @-> returning (ullong)) x - let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning (uint)) - let currentSerializationVersion self = msg_send ~self ~cmd:(selector "currentSerializationVersion") ~typ:(returning (ullong)) - let currentVersion self = msg_send ~self ~cmd:(selector "currentVersion") ~typ:(returning (id)) - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) - let serializationMagicNumber self = msg_send ~self ~cmd:(selector "serializationMagicNumber") ~typ:(returning (ullong)) - let shouldAssumeOriginatingRequestClassForHeaderSerializationVersion x self = msg_send ~self ~cmd:(selector "shouldAssumeOriginatingRequestClassForHeaderSerializationVersion:") ~typ:(uint @-> returning (bool)) x - let shouldIgnoreLagecyLabelsAndConfidenceForHeaderSerializationVersion x self = msg_send ~self ~cmd:(selector "shouldIgnoreLagecyLabelsAndConfidenceForHeaderSerializationVersion:") ~typ:(uint @-> returning (bool)) x - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let tensorFromCSUBuffer x ~originatingRequestSpecifier ~error self = msg_send ~self ~cmd:(selector "tensorFromCSUBuffer:originatingRequestSpecifier:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x originatingRequestSpecifier error - let tensorFromEspressoBuffer x ~originatingRequestSpecifier ~error self = msg_send ~self ~cmd:(selector "tensorFromEspressoBuffer:originatingRequestSpecifier:error:") ~typ:(ptr void @-> id @-> ptr (id) @-> returning (id)) x originatingRequestSpecifier error -end - -let _VNEspressoModelImageprintMLMultiArrayWithConstraint x ~error self = msg_send ~self ~cmd:(selector "VNEspressoModelImageprintMLMultiArrayWithConstraint:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithDescriptorData x ~elementType ~elementCount ~originatingRequestSpecifier self = msg_send ~self ~cmd:(selector "initWithDescriptorData:elementType:elementCount:originatingRequestSpecifier:") ~typ:(id @-> ullong @-> ullong @-> id @-> returning (id)) x (ULLong.of_int elementType) (ULLong.of_int elementCount) originatingRequestSpecifier -let shape self = msg_send ~self ~cmd:(selector "shape") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNDetector.ml b/Vision/VNDetector.ml index 7eb652f0..486be2b2 100644 --- a/Vision/VNDetector.ml +++ b/Vision/VNDetector.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/vndetector?language=objc}VNDetector} *) +let self = get_class "VNDetector" + let backingStore self = msg_send ~self ~cmd:(selector "backingStore") ~typ:(returning ullong) let canBehaveAsDetectorOfClass x ~withConfiguration self = msg_send ~self ~cmd:(selector "canBehaveAsDetectorOfClass:withConfiguration:") ~typ:(_Class @-> id @-> returning bool) x withConfiguration let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNDetectorCache.ml b/Vision/VNDetectorCache.ml index 5bc9a437..97ea4e22 100644 --- a/Vision/VNDetectorCache.ml +++ b/Vision/VNDetectorCache.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/vndetectorcache?language=objc}VNDetectorCache} *) +let self = get_class "VNDetectorCache" + let cacheDetector x self = msg_send ~self ~cmd:(selector "cacheDetector:") ~typ:(id @-> returning void) x let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let detectorOfClass x ~configuredWithOptions ~error self = msg_send ~self ~cmd:(selector "detectorOfClass:configuredWithOptions:error:") ~typ:(_Class @-> id @-> (ptr id) @-> returning id) x configuredWithOptions error diff --git a/Vision/VNDetectorCacheClass.ml b/Vision/VNDetectorCacheClass.ml deleted file mode 100644 index efd5a0a8..00000000 --- a/Vision/VNDetectorCacheClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vndetectorcache?language=objc}VNDetectorCache} *) - -let self = get_class "VNDetectorCache" - diff --git a/Vision/VNDetectorClass.ml b/Vision/VNDetectorClass.ml index ca11aa25..9483c56c 100644 --- a/Vision/VNDetectorClass.ml +++ b/Vision/VNDetectorClass.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/vndetector?language=objc}VNDetector} *) -let self = get_class "VNDetector" - let _VNClassCode self = msg_send ~self ~cmd:(selector "VNClassCode") ~typ:(returning uint) let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> (ptr id) @-> returning _Class) x error diff --git a/Vision/VNDisallowedList.ml b/Vision/VNDisallowedList.ml deleted file mode 100644 index 5cfd72d2..00000000 --- a/Vision/VNDisallowedList.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNDisallowedList" - -module C = struct - let disallowedListFromUTF8StringArray x self = msg_send ~self ~cmd:(selector "disallowedListFromUTF8StringArray:") ~typ:(ptr (string) @-> returning (id)) x - let sceneNetV3 self = msg_send ~self ~cmd:(selector "sceneNetV3") ~typ:(returning (id)) - let sceneNetV5 self = msg_send ~self ~cmd:(selector "sceneNetV5") ~typ:(returning (id)) -end - -let allIdentifiers self = msg_send ~self ~cmd:(selector "allIdentifiers") ~typ:(returning (id)) -let containsIdentifier x self = msg_send ~self ~cmd:(selector "containsIdentifier:") ~typ:(id @-> returning (bool)) x -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifierCount self = msg_send ~self ~cmd:(selector "identifierCount") ~typ:(returning (ullong)) -let initWithIdentifiers x self = msg_send ~self ~cmd:(selector "initWithIdentifiers:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNDocumentObservation.ml b/Vision/VNDocumentObservation.ml index 5fa05cf3..0c69d554 100644 --- a/Vision/VNDocumentObservation.ml +++ b/Vision/VNDocumentObservation.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/vndocumentobservation?language=objc}VNDocumentObservation} *) +let self = get_class "VNDocumentObservation" + let blocksWithTypes x ~inRegion self = msg_send ~self ~cmd:(selector "blocksWithTypes:inRegion:") ~typ:(ullong @-> CGRect.t @-> returning id) (ULLong.of_int x) inRegion let boundingBoxForTextRange x ~error self = msg_send ~self ~cmd:(selector "boundingBoxForTextRange:error:") ~typ:(NSRange.t @-> (ptr id) @-> returning id) x error let closestTextBlockOfTypes x ~toPoint ~maximumPixelDistance self = msg_send ~self ~cmd:(selector "closestTextBlockOfTypes:toPoint:maximumPixelDistance:") ~typ:(ullong @-> CGPoint.t @-> llong @-> returning id) (ULLong.of_int x) toPoint (LLong.of_int maximumPixelDistance) diff --git a/Vision/VNDocumentObservationClass.ml b/Vision/VNDocumentObservationClass.ml index 3db00210..17ed0dad 100644 --- a/Vision/VNDocumentObservationClass.ml +++ b/Vision/VNDocumentObservationClass.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/vndocumentobservation?language=objc}VNDocumentObservation} *) -let self = get_class "VNDocumentObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNDocumentSegmentationDetector.ml b/Vision/VNDocumentSegmentationDetector.ml index 87e22db8..ea82f26c 100644 --- a/Vision/VNDocumentSegmentationDetector.ml +++ b/Vision/VNDocumentSegmentationDetector.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/vndocumentsegmentationdetector?language=objc}VNDocumentSegmentationDetector} *) +let self = get_class "VNDocumentSegmentationDetector" + let analysisTypesForProcessOptions x self = msg_send ~self ~cmd:(selector "analysisTypesForProcessOptions:") ~typ:(id @-> returning uint) x let configureImageAnalyzerOptions x ~error self = msg_send ~self ~cmd:(selector "configureImageAnalyzerOptions:error:") ~typ:((ptr void) @-> (ptr id) @-> returning bool) x error let observationsForLastAnalysisOfImageAnalyzer x ~processOptions ~originatingRequestSpecifier ~error self = msg_send ~self ~cmd:(selector "observationsForLastAnalysisOfImageAnalyzer:processOptions:originatingRequestSpecifier:error:") ~typ:((ptr void) @-> id @-> id @-> (ptr id) @-> returning id) x processOptions originatingRequestSpecifier error diff --git a/Vision/VNDocumentSegmentationDetectorClass.ml b/Vision/VNDocumentSegmentationDetectorClass.ml index 16c305d7..51bf59b3 100644 --- a/Vision/VNDocumentSegmentationDetectorClass.ml +++ b/Vision/VNDocumentSegmentationDetectorClass.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/vndocumentsegmentationdetector?language=objc}VNDocumentSegmentationDetector} *) -let self = get_class "VNDocumentSegmentationDetector" - let analysisPixelFormatTypeForConfiguration x self = msg_send ~self ~cmd:(selector "analysisPixelFormatTypeForConfiguration:") ~typ:(id @-> returning uint) x let inputImageBlobNameForConfiguration x self = msg_send ~self ~cmd:(selector "inputImageBlobNameForConfiguration:") ~typ:(id @-> returning id) x let modelNameForConfiguration x self = msg_send ~self ~cmd:(selector "modelNameForConfiguration:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/Vision/VNE5RTBasedDetector.ml b/Vision/VNE5RTBasedDetector.ml deleted file mode 100644 index 1ca9193c..00000000 --- a/Vision/VNE5RTBasedDetector.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNE5RTBasedDetector" - -module C = struct - let _E5RTFunctionDescriptorForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "E5RTFunctionDescriptorForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let _E5RTProgramLibraryCompilationOptionsForModelSource x ~error self = msg_send ~self ~cmd:(selector "E5RTProgramLibraryCompilationOptionsForModelSource:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let _E5RTProgramLibraryForModelURL x ~error self = msg_send ~self ~cmd:(selector "E5RTProgramLibraryForModelURL:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let classificationIdentifiersForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "classificationIdentifiersForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let defaultImageCropAndScaleOption self = msg_send ~self ~cmd:(selector "defaultImageCropAndScaleOption") ~typ:(returning (ullong)) -let newE5RTExecutionContextForFunctionDescriptor x ~configurationOptions ~error self = msg_send ~self ~cmd:(selector "newE5RTExecutionContextForFunctionDescriptor:configurationOptions:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x configurationOptions error -let newE5RTExecutionInputsForFunctionDescriptor x ~croppedPixelBuffer ~options ~error self = msg_send ~self ~cmd:(selector "newE5RTExecutionInputsForFunctionDescriptor:croppedPixelBuffer:options:error:") ~typ:(id @-> ptr void @-> id @-> ptr (id) @-> returning (id)) x croppedPixelBuffer options error -let observationsFromE5RTExecutionOutputs x ~forFunctionDescriptor ~originatingRequestSpecifier ~options ~error self = msg_send ~self ~cmd:(selector "observationsFromE5RTExecutionOutputs:forFunctionDescriptor:originatingRequestSpecifier:options:error:") ~typ:(id @-> id @-> id @-> id @-> ptr (id) @-> returning (id)) x forFunctionDescriptor originatingRequestSpecifier options error -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModel.ml b/Vision/VNEntityIdentificationModel.ml index 05d5f57d..e030382a 100644 --- a/Vision/VNEntityIdentificationModel.ml +++ b/Vision/VNEntityIdentificationModel.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/vnentityidentificationmodel?language=objc}VNEntityIdentificationModel} *) +let self = get_class "VNEntityIdentificationModel" + let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) let dataWithOptions x ~error self = msg_send ~self ~cmd:(selector "dataWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) @@ -31,7 +29,7 @@ let trainedModelWithCanceller x ~error self = msg_send ~self ~cmd:(selector "tra let trainingObservationsForEntityWithUniqueIdentifier x ~canceller ~error self = msg_send ~self ~cmd:(selector "trainingObservationsForEntityWithUniqueIdentifier:canceller:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x canceller error let uniqueIdentifierForEntityAtIndex x self = msg_send ~self ~cmd:(selector "uniqueIdentifierForEntityAtIndex:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let validateWithCanceller x ~error self = msg_send ~self ~cmd:(selector "validateWithCanceller:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error -let writeReadOnlyVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeReadOnlyVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> ptr void @-> (ptr id) @-> returning bool) x options md5Context error +let writeReadOnlyVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeReadOnlyVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> (ptr void) @-> (ptr id) @-> returning bool) x options md5Context error let writeToStream x ~options ~error self = msg_send ~self ~cmd:(selector "writeToStream:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x options error let writeToURL x ~options ~error self = msg_send ~self ~cmd:(selector "writeToURL:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x options error -let writeVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> ptr void @-> (ptr id) @-> returning bool) x options md5Context error \ No newline at end of file +let writeVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> (ptr void) @-> (ptr id) @-> returning bool) x options md5Context error \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelAlgorithm.ml b/Vision/VNEntityIdentificationModelAlgorithm.ml deleted file mode 100644 index 5d40aa05..00000000 --- a/Vision/VNEntityIdentificationModelAlgorithm.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNEntityIdentificationModelAlgorithm" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let trainedModelClass self = msg_send ~self ~cmd:(selector "trainedModelClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelAlgorithmVIPv2.ml b/Vision/VNEntityIdentificationModelAlgorithmVIPv2.ml deleted file mode 100644 index 11ab33c1..00000000 --- a/Vision/VNEntityIdentificationModelAlgorithmVIPv2.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNEntityIdentificationModelAlgorithmVIPv2" - -module Class = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let trainedModelClass self = msg_send ~self ~cmd:(selector "trainedModelClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelAlgorithmVIPv3.ml b/Vision/VNEntityIdentificationModelAlgorithmVIPv3.ml deleted file mode 100644 index 5d3e9377..00000000 --- a/Vision/VNEntityIdentificationModelAlgorithmVIPv3.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNEntityIdentificationModelAlgorithmVIPv3" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let indexType self = msg_send ~self ~cmd:(selector "indexType") ~typ:(returning (llong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setIndexType x self = msg_send ~self ~cmd:(selector "setIndexType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let trainedModelClass self = msg_send ~self ~cmd:(selector "trainedModelClass") ~typ:(returning (_Class)) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelClass.ml b/Vision/VNEntityIdentificationModelClass.ml index 05df4905..1fc85cf9 100644 --- a/Vision/VNEntityIdentificationModelClass.ml +++ b/Vision/VNEntityIdentificationModelClass.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/vnentityidentificationmodel?language=objc}VNEntityIdentificationModel} *) -let self = get_class "VNEntityIdentificationModel" - let canCreateModelOfClass x ~withObjects ~error self = msg_send ~self ~cmd:(selector "canCreateModelOfClass:withObjects:error:") ~typ:(_Class @-> id @-> (ptr id) @-> returning bool) x withObjects error let informationForModelWithData x ~error self = msg_send ~self ~cmd:(selector "informationForModelWithData:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let informationForModelWithURL x ~error self = msg_send ~self ~cmd:(selector "informationForModelWithURL:error:") ~typ:(id @-> (ptr id) @-> returning id) x error @@ -25,7 +19,7 @@ let modelFromStream x ~options ~error self = msg_send ~self ~cmd:(selector "mode let modelFromURL x ~options ~error self = msg_send ~self ~cmd:(selector "modelFromURL:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x options error let modelWithConfiguration x ~dataSource ~error self = msg_send ~self ~cmd:(selector "modelWithConfiguration:dataSource:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x dataSource error let newModelForVersion x ~modelObjects ~error self = msg_send ~self ~cmd:(selector "newModelForVersion:modelObjects:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) modelObjects error -let readObjectForVersion1Tag x ~fromInputStream ~intoObjectDictionary ~md5Context ~error self = msg_send ~self ~cmd:(selector "readObjectForVersion1Tag:fromInputStream:intoObjectDictionary:md5Context:error:") ~typ:(uint @-> id @-> id @-> ptr void @-> (ptr id) @-> returning bool) x fromInputStream intoObjectDictionary md5Context error +let readObjectForVersion1Tag x ~fromInputStream ~intoObjectDictionary ~md5Context ~error self = msg_send ~self ~cmd:(selector "readObjectForVersion1Tag:fromInputStream:intoObjectDictionary:md5Context:error:") ~typ:(uint @-> id @-> id @-> (ptr void) @-> (ptr id) @-> returning bool) x fromInputStream intoObjectDictionary md5Context error let supportedReadVersions self = msg_send ~self ~cmd:(selector "supportedReadVersions") ~typ:(returning id) let supportedRequestSpecifiers self = msg_send ~self ~cmd:(selector "supportedRequestSpecifiers") ~typ:(returning id) let supportedWriteVersions self = msg_send ~self ~cmd:(selector "supportedWriteVersions") ~typ:(returning id) diff --git a/Vision/VNEntityIdentificationModelConfiguration.ml b/Vision/VNEntityIdentificationModelConfiguration.ml index 59d2ef2e..a7cb28e8 100644 --- a/Vision/VNEntityIdentificationModelConfiguration.ml +++ b/Vision/VNEntityIdentificationModelConfiguration.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/vnentityidentificationmodelconfiguration?language=objc}VNEntityIdentificationModelConfiguration} *) +let self = get_class "VNEntityIdentificationModelConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNEntityIdentificationModelConfigurationClass.ml b/Vision/VNEntityIdentificationModelConfigurationClass.ml index 528fef77..3cb4aae4 100644 --- a/Vision/VNEntityIdentificationModelConfigurationClass.ml +++ b/Vision/VNEntityIdentificationModelConfigurationClass.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/vnentityidentificationmodelconfiguration?language=objc}VNEntityIdentificationModelConfiguration} *) -let self = get_class "VNEntityIdentificationModelConfiguration" - let maximumAllowableEntities self = msg_send ~self ~cmd:(selector "maximumAllowableEntities") ~typ:(returning ullong) let maximumAllowableFaceprintsPerIdentity self = msg_send ~self ~cmd:(selector "maximumAllowableFaceprintsPerIdentity") ~typ:(returning ullong) let newConfigurationForEntityPrintsGeneratedByRequest x ~error self = msg_send ~self ~cmd:(selector "newConfigurationForEntityPrintsGeneratedByRequest:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNEntityIdentificationModelInformation.ml b/Vision/VNEntityIdentificationModelInformation.ml index 62e90430..a01a1484 100644 --- a/Vision/VNEntityIdentificationModelInformation.ml +++ b/Vision/VNEntityIdentificationModelInformation.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/vnentityidentificationmodelinformation?language=objc}VNEntityIdentificationModelInformation} *) +let self = get_class "VNEntityIdentificationModelInformation" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNEntityIdentificationModelInformationClass.ml b/Vision/VNEntityIdentificationModelInformationClass.ml index eaa01046..26f76ca0 100644 --- a/Vision/VNEntityIdentificationModelInformationClass.ml +++ b/Vision/VNEntityIdentificationModelInformationClass.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/vnentityidentificationmodelinformation?language=objc}VNEntityIdentificationModelInformation} *) -let self = get_class "VNEntityIdentificationModelInformation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelPrediction.ml b/Vision/VNEntityIdentificationModelPrediction.ml index 93b63478..565432ad 100644 --- a/Vision/VNEntityIdentificationModelPrediction.ml +++ b/Vision/VNEntityIdentificationModelPrediction.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/vnentityidentificationmodelprediction?language=objc}VNEntityIdentificationModelPrediction} *) +let self = get_class "VNEntityIdentificationModelPrediction" + let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNEntityIdentificationModelPredictionClass.ml b/Vision/VNEntityIdentificationModelPredictionClass.ml index da82e371..8ebe472f 100644 --- a/Vision/VNEntityIdentificationModelPredictionClass.ml +++ b/Vision/VNEntityIdentificationModelPredictionClass.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/vnentityidentificationmodelprediction?language=objc}VNEntityIdentificationModelPrediction} *) -let self = get_class "VNEntityIdentificationModelPrediction" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelReadOptions.ml b/Vision/VNEntityIdentificationModelReadOptions.ml index 5e8961c9..a6649daf 100644 --- a/Vision/VNEntityIdentificationModelReadOptions.ml +++ b/Vision/VNEntityIdentificationModelReadOptions.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/vnentityidentificationmodelreadoptions?language=objc}VNEntityIdentificationModelReadOptions} *) +let self = get_class "VNEntityIdentificationModelReadOptions" + let acceptableVersions self = msg_send ~self ~cmd:(selector "acceptableVersions") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNEntityIdentificationModelReadOptionsClass.ml b/Vision/VNEntityIdentificationModelReadOptionsClass.ml index c73fa629..ad9eaffe 100644 --- a/Vision/VNEntityIdentificationModelReadOptionsClass.ml +++ b/Vision/VNEntityIdentificationModelReadOptionsClass.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/vnentityidentificationmodelreadoptions?language=objc}VNEntityIdentificationModelReadOptions} *) -let self = get_class "VNEntityIdentificationModelReadOptions" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelTrainedModel.ml b/Vision/VNEntityIdentificationModelTrainedModel.ml index ad9f910a..e6ed8c95 100644 --- a/Vision/VNEntityIdentificationModelTrainedModel.ml +++ b/Vision/VNEntityIdentificationModelTrainedModel.ml @@ -4,22 +4,20 @@ 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/vnentityidentificationmodeltrainedmodel?language=objc}VNEntityIdentificationModelTrainedModel} *) +let self = get_class "VNEntityIdentificationModelTrainedModel" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let entityCount self = msg_send ~self ~cmd:(selector "entityCount") ~typ:(returning ullong) let entityPrintOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "entityPrintOriginatingRequestSpecifier") ~typ:(returning id) let entityUniqueIdentifiers self = msg_send ~self ~cmd:(selector "entityUniqueIdentifiers") ~typ:(returning id) let indexOfEntityWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "indexOfEntityWithUniqueIdentifier:") ~typ:(id @-> returning ullong) x let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x -let initWithFaceIDModel x ~entityPrintOriginatingRequestSpecifier ~maximumElementsPerID ~entityUniqueIdentifiers ~entityPrintCounts self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:entityPrintOriginatingRequestSpecifier:maximumElementsPerID:entityUniqueIdentifiers:entityPrintCounts:") ~typ:(ptr void @-> id @-> ullong @-> id @-> id @-> returning id) x entityPrintOriginatingRequestSpecifier (ULLong.of_int maximumElementsPerID) entityUniqueIdentifiers entityPrintCounts +let initWithFaceIDModel x ~entityPrintOriginatingRequestSpecifier ~maximumElementsPerID ~entityUniqueIdentifiers ~entityPrintCounts self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:entityPrintOriginatingRequestSpecifier:maximumElementsPerID:entityUniqueIdentifiers:entityPrintCounts:") ~typ:(id @-> id @-> ullong @-> id @-> id @-> returning id) x entityPrintOriginatingRequestSpecifier (ULLong.of_int maximumElementsPerID) entityUniqueIdentifiers entityPrintCounts let predictionsForObservation x ~limit ~canceller ~error self = msg_send ~self ~cmd:(selector "predictionsForObservation:limit:canceller:error:") ~typ:(id @-> ullong @-> id @-> (ptr id) @-> returning id) x (ULLong.of_int limit) canceller error let printCountForEntityWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "printCountForEntityWithUniqueIdentifier:") ~typ:(id @-> returning ullong) x let printCountsForAllEntities self = msg_send ~self ~cmd:(selector "printCountsForAllEntities") ~typ:(returning id) diff --git a/Vision/VNEntityIdentificationModelTrainedModelClass.ml b/Vision/VNEntityIdentificationModelTrainedModelClass.ml index 46bf35f6..7a6732bb 100644 --- a/Vision/VNEntityIdentificationModelTrainedModelClass.ml +++ b/Vision/VNEntityIdentificationModelTrainedModelClass.ml @@ -4,16 +4,10 @@ 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/vnentityidentificationmodeltrainedmodel?language=objc}VNEntityIdentificationModelTrainedModel} *) -let self = get_class "VNEntityIdentificationModelTrainedModel" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) let trainedModelBuiltFromConfiguration x ~dataProvider ~canceller ~error self = msg_send ~self ~cmd:(selector "trainedModelBuiltFromConfiguration:dataProvider:canceller:error:") ~typ:(id @-> id @-> id @-> (ptr id) @-> returning id) x dataProvider canceller error \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelTrainedModelVIPv2.ml b/Vision/VNEntityIdentificationModelTrainedModelVIPv2.ml deleted file mode 100644 index 200bf961..00000000 --- a/Vision/VNEntityIdentificationModelTrainedModelVIPv2.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNEntityIdentificationModelTrainedModelVIPv2" - -module C = struct - let getStoredRepresentationTag x ~forModelVersion ~error self = msg_send ~self ~cmd:(selector "getStoredRepresentationTag:forModelVersion:error:") ~typ:(ptr (uint) @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int forModelVersion) error - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let trainedModelBuiltFromConfiguration x ~dataProvider ~canceller ~error self = msg_send ~self ~cmd:(selector "trainedModelBuiltFromConfiguration:dataProvider:canceller:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (id)) x dataProvider canceller error -end - -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let entityCount self = msg_send ~self ~cmd:(selector "entityCount") ~typ:(returning (ullong)) -let entityPrintOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "entityPrintOriginatingRequestSpecifier") ~typ:(returning (id)) -let entityUniqueIdentifiers self = msg_send ~self ~cmd:(selector "entityUniqueIdentifiers") ~typ:(returning (id)) -let indexOfEntityWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "indexOfEntityWithUniqueIdentifier:") ~typ:(id @-> returning (ullong)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFaceIDModel x ~entityPrintOriginatingRequestSpecifier ~maximumElementsPerID ~entityUniqueIdentifiers ~entityPrintCounts self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:entityPrintOriginatingRequestSpecifier:maximumElementsPerID:entityUniqueIdentifiers:entityPrintCounts:") ~typ:(ptr void @-> id @-> ullong @-> id @-> id @-> returning (id)) x entityPrintOriginatingRequestSpecifier (ULLong.of_int maximumElementsPerID) entityUniqueIdentifiers entityPrintCounts -let predictionsForObservation x ~limit ~canceller ~error self = msg_send ~self ~cmd:(selector "predictionsForObservation:limit:canceller:error:") ~typ:(id @-> ullong @-> id @-> ptr (id) @-> returning (id)) x (ULLong.of_int limit) canceller error -let printCountForEntityWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "printCountForEntityWithUniqueIdentifier:") ~typ:(id @-> returning (ullong)) x -let printCountsForAllEntities self = msg_send ~self ~cmd:(selector "printCountsForAllEntities") ~typ:(returning (id)) -let printCountsForEntitiesWithUniqueIdentifiers x self = msg_send ~self ~cmd:(selector "printCountsForEntitiesWithUniqueIdentifiers:") ~typ:(id @-> returning (id)) x -let trainingEntityPrintsForEntityWithUniqueIdentifier x ~error self = msg_send ~self ~cmd:(selector "trainingEntityPrintsForEntityWithUniqueIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let uniqueIdentifierOfEntityAtIndex x self = msg_send ~self ~cmd:(selector "uniqueIdentifierOfEntityAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelTrainedModelVIPv3.ml b/Vision/VNEntityIdentificationModelTrainedModelVIPv3.ml deleted file mode 100644 index b2931772..00000000 --- a/Vision/VNEntityIdentificationModelTrainedModelVIPv3.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNEntityIdentificationModelTrainedModelVIPv3" - -module C = struct - let getStoredRepresentationTag x ~forModelVersion ~error self = msg_send ~self ~cmd:(selector "getStoredRepresentationTag:forModelVersion:error:") ~typ:(ptr (uint) @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int forModelVersion) error - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) - let trainedModelBuiltFromConfiguration x ~dataProvider ~canceller ~error self = msg_send ~self ~cmd:(selector "trainedModelBuiltFromConfiguration:dataProvider:canceller:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (id)) x dataProvider canceller error -end - -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let entityCount self = msg_send ~self ~cmd:(selector "entityCount") ~typ:(returning (ullong)) -let entityPrintOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "entityPrintOriginatingRequestSpecifier") ~typ:(returning (id)) -let entityUniqueIdentifiers self = msg_send ~self ~cmd:(selector "entityUniqueIdentifiers") ~typ:(returning (id)) -let indexOfEntityWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "indexOfEntityWithUniqueIdentifier:") ~typ:(id @-> returning (ullong)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFaceIDModel x ~entityPrintOriginatingRequestSpecifier ~entityUniqueIdentifiers ~entityPrintCounts self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:entityPrintOriginatingRequestSpecifier:entityUniqueIdentifiers:entityPrintCounts:") ~typ:(ptr void @-> id @-> id @-> id @-> returning (id)) x entityPrintOriginatingRequestSpecifier entityUniqueIdentifiers entityPrintCounts -let predictionsForObservation x ~limit ~canceller ~error self = msg_send ~self ~cmd:(selector "predictionsForObservation:limit:canceller:error:") ~typ:(id @-> ullong @-> id @-> ptr (id) @-> returning (id)) x (ULLong.of_int limit) canceller error -let printCountForEntityWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "printCountForEntityWithUniqueIdentifier:") ~typ:(id @-> returning (ullong)) x -let printCountsForAllEntities self = msg_send ~self ~cmd:(selector "printCountsForAllEntities") ~typ:(returning (id)) -let printCountsForEntitiesWithUniqueIdentifiers x self = msg_send ~self ~cmd:(selector "printCountsForEntitiesWithUniqueIdentifiers:") ~typ:(id @-> returning (id)) x -let trainingEntityPrintsForEntityWithUniqueIdentifier x ~error self = msg_send ~self ~cmd:(selector "trainingEntityPrintsForEntityWithUniqueIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let uniqueIdentifierOfEntityAtIndex x self = msg_send ~self ~cmd:(selector "uniqueIdentifierOfEntityAtIndex:") ~typ:(ullong @-> returning (id)) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNEntityIdentificationModelTrainingData.ml b/Vision/VNEntityIdentificationModelTrainingData.ml index 2c341973..b7425f07 100644 --- a/Vision/VNEntityIdentificationModelTrainingData.ml +++ b/Vision/VNEntityIdentificationModelTrainingData.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/vnentityidentificationmodeltrainingdata?language=objc}VNEntityIdentificationModelTrainingData} *) +let self = get_class "VNEntityIdentificationModelTrainingData" + let addObservations x ~toEntityWithUniqueIdentifier ~error self = msg_send ~self ~cmd:(selector "addObservations:toEntityWithUniqueIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x toEntityWithUniqueIdentifier error let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let entityCount self = msg_send ~self ~cmd:(selector "entityCount") ~typ:(returning ullong) diff --git a/Vision/VNEntityIdentificationModelTrainingDataClass.ml b/Vision/VNEntityIdentificationModelTrainingDataClass.ml deleted file mode 100644 index bf71262f..00000000 --- a/Vision/VNEntityIdentificationModelTrainingDataClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnentityidentificationmodeltrainingdata?language=objc}VNEntityIdentificationModelTrainingData} *) - -let self = get_class "VNEntityIdentificationModelTrainingData" - diff --git a/Vision/VNEntityIdentificationModelWriteOptions.ml b/Vision/VNEntityIdentificationModelWriteOptions.ml index d9cf15a7..1d77bd98 100644 --- a/Vision/VNEntityIdentificationModelWriteOptions.ml +++ b/Vision/VNEntityIdentificationModelWriteOptions.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/vnentityidentificationmodelwriteoptions?language=objc}VNEntityIdentificationModelWriteOptions} *) +let self = get_class "VNEntityIdentificationModelWriteOptions" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNEntityIdentificationModelWriteOptionsClass.ml b/Vision/VNEntityIdentificationModelWriteOptionsClass.ml index 3217fc41..a0b42b8c 100644 --- a/Vision/VNEntityIdentificationModelWriteOptionsClass.ml +++ b/Vision/VNEntityIdentificationModelWriteOptionsClass.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/vnentityidentificationmodelwriteoptions?language=objc}VNEntityIdentificationModelWriteOptions} *) -let self = get_class "VNEntityIdentificationModelWriteOptions" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNEspressoDetectedObject.ml b/Vision/VNEspressoDetectedObject.ml index 4bf084aa..40ca5cbf 100644 --- a/Vision/VNEspressoDetectedObject.ml +++ b/Vision/VNEspressoDetectedObject.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/vnespressodetectedobject?language=objc}VNEspressoDetectedObject} *) +let self = get_class "VNEspressoDetectedObject" + let bounds self = msg_send ~self ~cmd:(selector "bounds") ~typ:(returning CGRect.t) let center self = msg_send ~self ~cmd:(selector "center") ~typ:(returning CGPoint.t) let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) diff --git a/Vision/VNEspressoDetectedObjectClass.ml b/Vision/VNEspressoDetectedObjectClass.ml deleted file mode 100644 index 94107c21..00000000 --- a/Vision/VNEspressoDetectedObjectClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnespressodetectedobject?language=objc}VNEspressoDetectedObject} *) - -let self = get_class "VNEspressoDetectedObject" - diff --git a/Vision/VNEspressoModelClassifier.ml b/Vision/VNEspressoModelClassifier.ml index 84587ac0..eb6d0358 100644 --- a/Vision/VNEspressoModelClassifier.ml +++ b/Vision/VNEspressoModelClassifier.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/vnespressomodelclassifier?language=objc}VNEspressoModelClassifier} *) +let self = get_class "VNEspressoModelClassifier" + let blacklistedIdentifiers self = msg_send ~self ~cmd:(selector "blacklistedIdentifiers") ~typ:(returning id) let calculateImageDescriptors x ~regionOfInterest ~warningRecorder ~canceller ~error self = msg_send ~self ~cmd:(selector "calculateImageDescriptors:regionOfInterest:warningRecorder:canceller:error:") ~typ:(id @-> CGRect.t @-> id @-> id @-> (ptr id) @-> returning id) x regionOfInterest warningRecorder canceller error let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNEspressoModelClassifierClass.ml b/Vision/VNEspressoModelClassifierClass.ml index 8c9b5df4..1442db80 100644 --- a/Vision/VNEspressoModelClassifierClass.ml +++ b/Vision/VNEspressoModelClassifierClass.ml @@ -4,19 +4,16 @@ 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/vnespressomodelclassifier?language=objc}VNEspressoModelClassifier} *) -let self = get_class "VNEspressoModelClassifier" - let classifierResourceTypesToNamesForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "classifierResourceTypesToNamesForOriginatingRequestSpecifier:") ~typ:(id @-> returning id) x let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let convertRelationships x ~toStdRelationships self = msg_send ~self ~cmd:(selector "convertRelationships:toStdRelationships:") ~typ:(id @-> (ptr void) @-> returning void) x toStdRelationships +let createClassifierWithDescriptor x ~classifierAbsolutePath ~computePlatform ~computePath ~labelsFilename ~options self = msg_send ~self ~cmd:(selector "createClassifierWithDescriptor:classifierAbsolutePath:computePlatform:computePath:labelsFilename:options:") ~typ:(id @-> string @-> int @-> int @-> string @-> ptr void @-> returning id) x classifierAbsolutePath computePlatform computePath labelsFilename options +let createDescriprorProcessorWithModelPath x ~nBatch ~computePlatform ~computePath ~options self = msg_send ~self ~cmd:(selector "createDescriprorProcessorWithModelPath:nBatch:computePlatform:computePath:options:") ~typ:(string @-> int @-> int @-> int @-> ptr void @-> returning id) x nBatch computePlatform computePath options +let createHierarchicalModelForOriginatingRequestSpecifier x ~error self = msg_send ~self ~cmd:(selector "createHierarchicalModelForOriginatingRequestSpecifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let createObservationWithDescriptors x ~forOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "createObservationWithDescriptors:forOriginatingRequestSpecifier:") ~typ:(id @-> id @-> returning id) x forOriginatingRequestSpecifier let initDumpDebugIntermediates x ~debugInfo self = msg_send ~self ~cmd:(selector "initDumpDebugIntermediates:debugInfo:") ~typ:((ptr id) @-> (ptr id) @-> returning void) x debugInfo \ No newline at end of file diff --git a/Vision/VNEspressoModelFileBasedDetector.ml b/Vision/VNEspressoModelFileBasedDetector.ml index cdc2d111..422c5e79 100644 --- a/Vision/VNEspressoModelFileBasedDetector.ml +++ b/Vision/VNEspressoModelFileBasedDetector.ml @@ -4,18 +4,16 @@ 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/vnespressomodelfilebaseddetector?language=objc}VNEspressoModelFileBasedDetector} *) +let self = get_class "VNEspressoModelFileBasedDetector" + let bindBuffer x ~toNetworkInputBlobName ~error self = msg_send ~self ~cmd:(selector "bindBuffer:toNetworkInputBlobName:error:") ~typ:((ptr void) @-> id @-> (ptr id) @-> returning bool) x toNetworkInputBlobName error let bindBuffer' x ~toNetworkOutputBlobName ~error self = msg_send ~self ~cmd:(selector "bindBuffer:toNetworkOutputBlobName:error:") ~typ:((ptr void) @-> id @-> (ptr id) @-> returning bool) x toNetworkOutputBlobName error -let bindLockedPixelBuffer x ~toNetworkInputBlobName ~error self = msg_send ~self ~cmd:(selector "bindLockedPixelBuffer:toNetworkInputBlobName:error:") ~typ:((ptr CVBuffer.t) @-> id @-> (ptr id) @-> returning bool) x toNetworkInputBlobName error +let bindLockedPixelBuffer x ~toNetworkInputBlobName ~error self = msg_send ~self ~cmd:(selector "bindLockedPixelBuffer:toNetworkInputBlobName:error:") ~typ:((ptr void) @-> id @-> (ptr id) @-> returning bool) x toNetworkInputBlobName error let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let espressoModelNetworkLayersStorageTypeForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelNetworkLayersStorageTypeForConfigurationOptions:") ~typ:(id @-> returning int) x let espressoResources self = msg_send ~self ~cmd:(selector "espressoResources") ~typ:(returning id) diff --git a/Vision/VNEspressoModelFileBasedDetectorClass.ml b/Vision/VNEspressoModelFileBasedDetectorClass.ml index 812e1629..f967bc57 100644 --- a/Vision/VNEspressoModelFileBasedDetectorClass.ml +++ b/Vision/VNEspressoModelFileBasedDetectorClass.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/vnespressomodelfilebaseddetector?language=objc}VNEspressoModelFileBasedDetector} *) -let self = get_class "VNEspressoModelFileBasedDetector" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x diff --git a/Vision/VNEspressoModelImageprint.ml b/Vision/VNEspressoModelImageprint.ml index c21c0e51..6f99e29a 100644 --- a/Vision/VNEspressoModelImageprint.ml +++ b/Vision/VNEspressoModelImageprint.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/vnespressomodelimageprint?language=objc}VNEspressoModelImageprint} *) +let self = get_class "VNEspressoModelImageprint" + let computeDistance x ~withDistanceFunction ~error self = msg_send ~self ~cmd:(selector "computeDistance:withDistanceFunction:error:") ~typ:(id @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int withDistanceFunction) error let confidenceScoreType self = msg_send ~self ~cmd:(selector "confidenceScoreType") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNEspressoModelImageprintClass.ml b/Vision/VNEspressoModelImageprintClass.ml index 3b4550e1..3691533c 100644 --- a/Vision/VNEspressoModelImageprintClass.ml +++ b/Vision/VNEspressoModelImageprintClass.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/vnespressomodelimageprint?language=objc}VNEspressoModelImageprint} *) -let self = get_class "VNEspressoModelImageprint" - let confidenceTypeForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "confidenceTypeForOriginatingRequestSpecifier:") ~typ:(id @-> returning ullong) x let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let originatingRequestSpecifierForRequestRevision x ~error self = msg_send ~self ~cmd:(selector "originatingRequestSpecifierForRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error diff --git a/Vision/VNEspressoResources.ml b/Vision/VNEspressoResources.ml index a15baa6b..1109b1f9 100644 --- a/Vision/VNEspressoResources.ml +++ b/Vision/VNEspressoResources.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/vnespressoresources?language=objc}VNEspressoResources} *) +let self = get_class "VNEspressoResources" + let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning (ptr void)) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNEspressoResourcesClass.ml b/Vision/VNEspressoResourcesClass.ml deleted file mode 100644 index 83b5ac7b..00000000 --- a/Vision/VNEspressoResourcesClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnespressoresources?language=objc}VNEspressoResources} *) - -let self = get_class "VNEspressoResources" - diff --git a/Vision/VNEspressoprintUpgradeDetector.ml b/Vision/VNEspressoprintUpgradeDetector.ml deleted file mode 100644 index ebebdaaa..00000000 --- a/Vision/VNEspressoprintUpgradeDetector.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNEspressoprintUpgradeDetector" - -module C = struct - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error - let isSupportedUpgradeFromPreviousEspressoprint x ~toNewLowResolutionEspressoprint self = msg_send ~self ~cmd:(selector "isSupportedUpgradeFromPreviousEspressoprint:toNewLowResolutionEspressoprint:") ~typ:(id @-> id @-> returning (bool)) x toNewLowResolutionEspressoprint - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let setHighResolutionNewEspressoprint x self = msg_send ~self ~cmd:(selector "setHighResolutionNewEspressoprint:") ~typ:(ptr void @-> returning (void)) x -let setHighResolutionNewEspressoprintSigma x self = msg_send ~self ~cmd:(selector "setHighResolutionNewEspressoprintSigma:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNFaceAnalyzerCompoundRequest.ml b/Vision/VNFaceAnalyzerCompoundRequest.ml index a367e012..47a9a5dd 100644 --- a/Vision/VNFaceAnalyzerCompoundRequest.ml +++ b/Vision/VNFaceAnalyzerCompoundRequest.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/vnfaceanalyzercompoundrequest?language=objc}VNFaceAnalyzerCompoundRequest} *) +let self = get_class "VNFaceAnalyzerCompoundRequest" + 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 detectionLevel self = msg_send ~self ~cmd:(selector "detectionLevel") ~typ:(returning ullong) diff --git a/Vision/VNFaceAnalyzerCompoundRequestClass.ml b/Vision/VNFaceAnalyzerCompoundRequestClass.ml index 4e14682c..2597a90a 100644 --- a/Vision/VNFaceAnalyzerCompoundRequestClass.ml +++ b/Vision/VNFaceAnalyzerCompoundRequestClass.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/vnfaceanalyzercompoundrequest?language=objc}VNFaceAnalyzerCompoundRequest} *) -let self = get_class "VNFaceAnalyzerCompoundRequest" - 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) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNFaceAnalyzerCompoundRequestConfiguration.ml b/Vision/VNFaceAnalyzerCompoundRequestConfiguration.ml index 72af8fc7..e48fb7bb 100644 --- a/Vision/VNFaceAnalyzerCompoundRequestConfiguration.ml +++ b/Vision/VNFaceAnalyzerCompoundRequestConfiguration.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/vnfaceanalyzercompoundrequestconfiguration?language=objc}VNFaceAnalyzerCompoundRequestConfiguration} *) +let self = get_class "VNFaceAnalyzerCompoundRequestConfiguration" + 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/VNFaceAnalyzerCompoundRequestConfigurationClass.ml b/Vision/VNFaceAnalyzerCompoundRequestConfigurationClass.ml deleted file mode 100644 index 1fdf082d..00000000 --- a/Vision/VNFaceAnalyzerCompoundRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfaceanalyzercompoundrequestconfiguration?language=objc}VNFaceAnalyzerCompoundRequestConfiguration} *) - -let self = get_class "VNFaceAnalyzerCompoundRequestConfiguration" - diff --git a/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroups.ml b/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroups.ml index 119e950d..b9b2d753 100644 --- a/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroups.ml +++ b/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroups.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/vnfaceanalyzercompoundrequestconfigurationgroups?language=objc}VNFaceAnalyzerCompoundRequestConfigurationGroups} *) +let self = get_class "VNFaceAnalyzerCompoundRequestConfigurationGroups" + let allConfigurations self = msg_send ~self ~cmd:(selector "allConfigurations") ~typ:(returning id) let configurationForRequest x ~withObservationGroup ~compoundRequestRevision self = msg_send ~self ~cmd:(selector "configurationForRequest:withObservationGroup:compoundRequestRevision:") ~typ:(id @-> id @-> ullong @-> returning id) x withObservationGroup (ULLong.of_int compoundRequestRevision) let count self = msg_send ~self ~cmd:(selector "count") ~typ:(returning ullong) diff --git a/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroupsClass.ml b/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroupsClass.ml deleted file mode 100644 index aa8374f2..00000000 --- a/Vision/VNFaceAnalyzerCompoundRequestConfigurationGroupsClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfaceanalyzercompoundrequestconfigurationgroups?language=objc}VNFaceAnalyzerCompoundRequestConfigurationGroups} *) - -let self = get_class "VNFaceAnalyzerCompoundRequestConfigurationGroups" - diff --git a/Vision/VNFaceAnalyzerMultiDetector.ml b/Vision/VNFaceAnalyzerMultiDetector.ml index 65624c4e..a5da6ebf 100644 --- a/Vision/VNFaceAnalyzerMultiDetector.ml +++ b/Vision/VNFaceAnalyzerMultiDetector.ml @@ -5,13 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNFaceAnalyzerMultiDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfaceanalyzermultidetector?language=objc}VNFaceAnalyzerMultiDetector} *) -module Class = struct - let faceBoundingBoxScalingFactorForFaceObservation x self = msg_send ~self ~cmd:(selector "faceBoundingBoxScalingFactorForFaceObservation:") ~typ:(ullong @-> returning (float)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x -end +let self = get_class "VNFaceAnalyzerMultiDetector" -let calculateCropRectForInputFace x ~imageBuffer ~options ~error self = msg_send ~self ~cmd:(selector "calculateCropRectForInputFace:imageBuffer:options:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (CGRect.t)) x imageBuffer options error -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceAnalyzerMultiDetectorBase.ml b/Vision/VNFaceAnalyzerMultiDetectorBase.ml deleted file mode 100644 index e1e7ff3b..00000000 --- a/Vision/VNFaceAnalyzerMultiDetectorBase.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNFaceAnalyzerMultiDetectorBase" - -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let keyForDetectorWithConfigurationOptions x self = msg_send ~self ~cmd:(selector "keyForDetectorWithConfigurationOptions:") ~typ:(id @-> returning (id)) x - let modelVersionForOptions x self = msg_send ~self ~cmd:(selector "modelVersionForOptions:") ~typ:(id @-> returning (ptr (void))) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x - let numberOfImageChannels self = msg_send ~self ~cmd:(selector "numberOfImageChannels") ~typ:(returning (ullong)) -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let internalProcessUsingQualityOfServiceClass x ~options ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "internalProcessUsingQualityOfServiceClass:options:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(uint @-> id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x options regionOfInterest warningRecorder error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceAnalyzerMultiDetectorClass.ml b/Vision/VNFaceAnalyzerMultiDetectorClass.ml new file mode 100644 index 00000000..b3f6b358 --- /dev/null +++ b/Vision/VNFaceAnalyzerMultiDetectorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfaceanalyzermultidetector?language=objc}VNFaceAnalyzerMultiDetector} *) + +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let faceBoundingBoxScalingFactorForFaceObservation x self = msg_send ~self ~cmd:(selector "faceBoundingBoxScalingFactorForFaceObservation:") ~typ:(ullong @-> returning float) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNFaceAttributeCategory.ml b/Vision/VNFaceAttributeCategory.ml index 71472b4f..cffddf20 100644 --- a/Vision/VNFaceAttributeCategory.ml +++ b/Vision/VNFaceAttributeCategory.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/vnfaceattributecategory?language=objc}VNFaceAttributeCategory} *) +let self = get_class "VNFaceAttributeCategory" + let allLabelsWithConfidences self = msg_send ~self ~cmd:(selector "allLabelsWithConfidences") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNFaceAttributeCategoryClass.ml b/Vision/VNFaceAttributeCategoryClass.ml index 2df0f91f..41ac1139 100644 --- a/Vision/VNFaceAttributeCategoryClass.ml +++ b/Vision/VNFaceAttributeCategoryClass.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/vnfaceattributecategory?language=objc}VNFaceAttributeCategory} *) -let self = get_class "VNFaceAttributeCategory" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceAttributes.ml b/Vision/VNFaceAttributes.ml index a4f64a56..6ba05047 100644 --- a/Vision/VNFaceAttributes.ml +++ b/Vision/VNFaceAttributes.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/vnfaceattributes?language=objc}VNFaceAttributes} *) +let self = get_class "VNFaceAttributes" + let _VN1uMyFtnYEWjbrdx3yAuDndKkPeyzNJhB self = msg_send ~self ~cmd:(selector "VN1uMyFtnYEWjbrdx3yAuDndKkPeyzNJhB") ~typ:(returning id) let _VN2riiZbQrloRhCzYW56f0rk4N3ROe151S self = msg_send ~self ~cmd:(selector "VN2riiZbQrloRhCzYW56f0rk4N3ROe151S") ~typ:(returning id) let _VN3iT1YRjjnIuELobV1olJiO1vvItN6Kdq self = msg_send ~self ~cmd:(selector "VN3iT1YRjjnIuELobV1olJiO1vvItN6Kdq") ~typ:(returning id) diff --git a/Vision/VNFaceAttributesClass.ml b/Vision/VNFaceAttributesClass.ml index 6dd4a11a..c77b3ab5 100644 --- a/Vision/VNFaceAttributesClass.ml +++ b/Vision/VNFaceAttributesClass.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/vnfaceattributes?language=objc}VNFaceAttributes} *) -let self = get_class "VNFaceAttributes" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceBBoxAligner.ml b/Vision/VNFaceBBoxAligner.ml index 05e04216..e3681ed7 100644 --- a/Vision/VNFaceBBoxAligner.ml +++ b/Vision/VNFaceBBoxAligner.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/vnfacebboxaligner?language=objc}VNFaceBBoxAligner} *) +let self = get_class "VNFaceBBoxAligner" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let processWithOptions x ~warningRecorder ~error self = msg_send ~self ~cmd:(selector "processWithOptions:warningRecorder:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x warningRecorder error \ No newline at end of file diff --git a/Vision/VNFaceBBoxAlignerClass.ml b/Vision/VNFaceBBoxAlignerClass.ml index 8bfe76ac..6feb0899 100644 --- a/Vision/VNFaceBBoxAlignerClass.ml +++ b/Vision/VNFaceBBoxAlignerClass.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/vnfacebboxaligner?language=objc}VNFaceBBoxAligner} *) -let self = get_class "VNFaceBBoxAligner" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNFaceDetector.ml b/Vision/VNFaceDetector.ml deleted file mode 100644 index f9682420..00000000 --- a/Vision/VNFaceDetector.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNFaceDetector" - -module Class = struct - let calculateTilesForRegionOfInterest x ~imageWidth ~imageHeight ~tileSizeInPixels ~overlapFraction ~aspectRatioThreshold ~columns ~rows ~tiles ~error self = msg_send ~self ~cmd:(selector "calculateTilesForRegionOfInterest:imageWidth:imageHeight:tileSizeInPixels:overlapFraction:aspectRatioThreshold:columns:rows:tiles:error:") ~typ:(CGRect.t @-> ullong @-> ullong @-> ullong @-> float @-> float @-> ptr (ullong) @-> ptr (ullong) @-> ptr (void) @-> ptr (id) @-> returning (bool)) x imageWidth imageHeight tileSizeInPixels overlapFraction aspectRatioThreshold columns rows tiles error - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error - let fullyPopulateConfigurationOptions x self = msg_send ~self ~cmd:(selector "fullyPopulateConfigurationOptions:") ~typ:(id @-> returning (void)) x - let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning (void)) x - let shouldDumpDebugIntermediates self = msg_send ~self ~cmd:(selector "shouldDumpDebugIntermediates") ~typ:(returning (bool)) -end - -let internalProcessUsingQualityOfServiceClass x ~options ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "internalProcessUsingQualityOfServiceClass:options:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(uint @-> id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x options regionOfInterest warningRecorder error progressHandler -let purgeIntermediates self = msg_send ~self ~cmd:(selector "purgeIntermediates") ~typ:(returning (void)) \ No newline at end of file diff --git a/Vision/VNFaceDetectorRevision1.ml b/Vision/VNFaceDetectorRevision1.ml index 9721edc9..b0bbc227 100644 --- a/Vision/VNFaceDetectorRevision1.ml +++ b/Vision/VNFaceDetectorRevision1.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/vnfacedetectorrevision1?language=objc}VNFaceDetectorRevision1} *) +let self = get_class "VNFaceDetectorRevision1" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler let purgeIntermediates self = msg_send ~self ~cmd:(selector "purgeIntermediates") ~typ:(returning void) diff --git a/Vision/VNFaceDetectorRevision1Class.ml b/Vision/VNFaceDetectorRevision1Class.ml index 7d556498..68abcfb6 100644 --- a/Vision/VNFaceDetectorRevision1Class.ml +++ b/Vision/VNFaceDetectorRevision1Class.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/vnfacedetectorrevision1?language=objc}VNFaceDetectorRevision1} *) -let self = get_class "VNFaceDetectorRevision1" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let keyForDetectorWithConfigurationOptions x self = msg_send ~self ~cmd:(selector "keyForDetectorWithConfigurationOptions:") ~typ:(id @-> returning id) x let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNFaceDetectorRevision2.ml b/Vision/VNFaceDetectorRevision2.ml index a7742403..e2b226b9 100644 --- a/Vision/VNFaceDetectorRevision2.ml +++ b/Vision/VNFaceDetectorRevision2.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/vnfacedetectorrevision2?language=objc}VNFaceDetectorRevision2} *) +let self = get_class "VNFaceDetectorRevision2" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler let purgeIntermediates self = msg_send ~self ~cmd:(selector "purgeIntermediates") ~typ:(returning void) \ No newline at end of file diff --git a/Vision/VNFaceDetectorRevision2Class.ml b/Vision/VNFaceDetectorRevision2Class.ml index 917405ed..b4e947a4 100644 --- a/Vision/VNFaceDetectorRevision2Class.ml +++ b/Vision/VNFaceDetectorRevision2Class.ml @@ -4,16 +4,10 @@ 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/vnfacedetectorrevision2?language=objc}VNFaceDetectorRevision2} *) -let self = get_class "VNFaceDetectorRevision2" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNFaceExpressionDetector.ml b/Vision/VNFaceExpressionDetector.ml index 8069a6a6..a5b2e756 100644 --- a/Vision/VNFaceExpressionDetector.ml +++ b/Vision/VNFaceExpressionDetector.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/vnfaceexpressiondetector?language=objc}VNFaceExpressionDetector} *) +let self = get_class "VNFaceExpressionDetector" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceExpressionDetectorClass.ml b/Vision/VNFaceExpressionDetectorClass.ml index 6cccf00b..8a997c82 100644 --- a/Vision/VNFaceExpressionDetectorClass.ml +++ b/Vision/VNFaceExpressionDetectorClass.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/vnfaceexpressiondetector?language=objc}VNFaceExpressionDetector} *) -let self = get_class "VNFaceExpressionDetector" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let createExpressionAndConfidencesDictionaryFromScores x self = msg_send ~self ~cmd:(selector "createExpressionAndConfidencesDictionaryFromScores:") ~typ:(id @-> returning id) x let createExpressionDetectionDictionaryFromScores x self = msg_send ~self ~cmd:(selector "createExpressionDetectionDictionaryFromScores:") ~typ:(id @-> returning id) x diff --git a/Vision/VNFaceGaze.ml b/Vision/VNFaceGaze.ml index 7b6278d4..bbd7a1df 100644 --- a/Vision/VNFaceGaze.ml +++ b/Vision/VNFaceGaze.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/vnfacegaze?language=objc}VNFaceGaze} *) +let self = get_class "VNFaceGaze" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let direction self = msg_send ~self ~cmd:(selector "direction") ~typ:(returning llong) diff --git a/Vision/VNFaceGazeClass.ml b/Vision/VNFaceGazeClass.ml index c38e5dbb..1aedc5af 100644 --- a/Vision/VNFaceGazeClass.ml +++ b/Vision/VNFaceGazeClass.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/vnfacegaze?language=objc}VNFaceGaze} *) -let self = get_class "VNFaceGaze" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceGazeDetector.ml b/Vision/VNFaceGazeDetector.ml index 85067917..1530f83e 100644 --- a/Vision/VNFaceGazeDetector.ml +++ b/Vision/VNFaceGazeDetector.ml @@ -5,15 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNFaceGazeDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacegazedetector?language=objc}VNFaceGazeDetector} *) -module C = struct - let computeStagesToBindForConfigurationOptions x self = msg_send ~self ~cmd:(selector "computeStagesToBindForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end +let self = get_class "VNFaceGazeDetector" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let internalProcessUsingQualityOfServiceClass x ~options ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "internalProcessUsingQualityOfServiceClass:options:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(uint @-> id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x options regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceGazeDetectorClass.ml b/Vision/VNFaceGazeDetectorClass.ml new file mode 100644 index 00000000..5a37abf3 --- /dev/null +++ b/Vision/VNFaceGazeDetectorClass.ml @@ -0,0 +1,12 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacegazedetector?language=objc}VNFaceGazeDetector} *) + +let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNFaceLandmarkDetector.ml b/Vision/VNFaceLandmarkDetector.ml index 3d7df6f6..6ed71eda 100644 --- a/Vision/VNFaceLandmarkDetector.ml +++ b/Vision/VNFaceLandmarkDetector.ml @@ -4,20 +4,18 @@ 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/vnfacelandmarkdetector?language=objc}VNFaceLandmarkDetector} *) +let self = get_class "VNFaceLandmarkDetector" + let calculatePupilLocationAndUpdateLandmarkPoints x self = msg_send ~self ~cmd:(selector "calculatePupilLocationAndUpdateLandmarkPoints:") ~typ:((ptr void) @-> returning void) x let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error -let computeLandmarksScoreOnImage x ~withFaceBoundingBox ~andLandmarks ~error self = msg_send ~self ~cmd:(selector "computeLandmarksScoreOnImage:withFaceBoundingBox:andLandmarks:error:") ~typ:(ptr void @-> ptr void @-> (ptr void) @-> (ptr id) @-> returning id) x withFaceBoundingBox andLandmarks error +let computeLandmarksScoreOnImage x ~withFaceBoundingBox ~andLandmarks ~error self = msg_send ~self ~cmd:(selector "computeLandmarksScoreOnImage:withFaceBoundingBox:andLandmarks:error:") ~typ:((ptr void) @-> ptr void @-> (ptr void) @-> (ptr id) @-> returning id) x withFaceBoundingBox andLandmarks error let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) -let detectBlinkOnFaceImage x ~faceObservation ~lumaRec2DInImageCoordinates ~landmarks ~warningRecorder ~error self = msg_send ~self ~cmd:(selector "detectBlinkOnFaceImage:faceObservation:lumaRec2DInImageCoordinates:landmarks:warningRecorder:error:") ~typ:(ptr void @-> id @-> ptr void @-> (ptr void) @-> id @-> (ptr id) @-> returning bool) x faceObservation lumaRec2DInImageCoordinates landmarks warningRecorder error +let detectBlinkOnFaceImage x ~faceObservation ~lumaRec2DInImageCoordinates ~landmarks ~warningRecorder ~error self = msg_send ~self ~cmd:(selector "detectBlinkOnFaceImage:faceObservation:lumaRec2DInImageCoordinates:landmarks:warningRecorder:error:") ~typ:((ptr void) @-> id @-> ptr void @-> (ptr void) @-> id @-> (ptr id) @-> returning bool) x faceObservation lumaRec2DInImageCoordinates landmarks warningRecorder error let loadRefinersAndReturnError x self = msg_send ~self ~cmd:(selector "loadRefinersAndReturnError:") ~typ:((ptr id) @-> returning bool) x let normalizedFaceBBoxForLandmarks x self = msg_send ~self ~cmd:(selector "normalizedFaceBBoxForLandmarks:") ~typ:(id @-> returning CGRect.t) x let postprocessLandmarkResultsForLandmarks x ~imageBuffer ~outputFace ~options ~warningRecorder ~error self = msg_send ~self ~cmd:(selector "postprocessLandmarkResultsForLandmarks:imageBuffer:outputFace:options:warningRecorder:error:") ~typ:((ptr void) @-> id @-> id @-> id @-> id @-> (ptr id) @-> returning bool) x imageBuffer outputFace options warningRecorder error \ No newline at end of file diff --git a/Vision/VNFaceLandmarkDetectorClass.ml b/Vision/VNFaceLandmarkDetectorClass.ml index 80f8d9b7..668f80de 100644 --- a/Vision/VNFaceLandmarkDetectorClass.ml +++ b/Vision/VNFaceLandmarkDetectorClass.ml @@ -4,17 +4,12 @@ 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/vnfacelandmarkdetector?language=objc}VNFaceLandmarkDetector} *) -let self = get_class "VNFaceLandmarkDetector" - let allLandmarksPointsIndexesForConstellation x self = msg_send ~self ~cmd:(selector "allLandmarksPointsIndexesForConstellation:") ~typ:(ullong @-> returning (ptr void)) (ULLong.of_int x) let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) -let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> (ptr id) @-> returning _Class) x error \ No newline at end of file +let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> (ptr id) @-> returning _Class) x error +let landmarksMeshPartsForConstellation x self = msg_send ~self ~cmd:(selector "landmarksMeshPartsForConstellation:") ~typ:(ullong @-> returning (ptr void)) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNFaceLandmarkDetectorDNN.ml b/Vision/VNFaceLandmarkDetectorDNN.ml index a5c74374..6ed09ec6 100644 --- a/Vision/VNFaceLandmarkDetectorDNN.ml +++ b/Vision/VNFaceLandmarkDetectorDNN.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/vnfacelandmarkdetectordnn?language=objc}VNFaceLandmarkDetectorDNN} *) +let self = get_class "VNFaceLandmarkDetectorDNN" + let getConstellation x ~cvmlConstellation ~fromOptions ~error self = msg_send ~self ~cmd:(selector "getConstellation:cvmlConstellation:fromOptions:error:") ~typ:((ptr ullong) @-> (ptr int) @-> id @-> (ptr id) @-> returning bool) x cvmlConstellation fromOptions error let getLandmarkErrorEstimates x ~forConstellation ~error self = msg_send ~self ~cmd:(selector "getLandmarkErrorEstimates:forConstellation:error:") ~typ:((ptr void) @-> int @-> (ptr id) @-> returning bool) x forConstellation error let getLandmarkOcclusionFlags x ~forConstellation ~error self = msg_send ~self ~cmd:(selector "getLandmarkOcclusionFlags:forConstellation:error:") ~typ:((ptr void) @-> int @-> (ptr id) @-> returning bool) x forConstellation error diff --git a/Vision/VNFaceLandmarkDetectorDNNClass.ml b/Vision/VNFaceLandmarkDetectorDNNClass.ml index 99b3c8ab..2b7cffec 100644 --- a/Vision/VNFaceLandmarkDetectorDNNClass.ml +++ b/Vision/VNFaceLandmarkDetectorDNNClass.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/vnfacelandmarkdetectordnn?language=objc}VNFaceLandmarkDetectorDNN} *) -let self = get_class "VNFaceLandmarkDetectorDNN" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let inputBlobNames self = msg_send ~self ~cmd:(selector "inputBlobNames") ~typ:(returning id) let outputBlobNames self = msg_send ~self ~cmd:(selector "outputBlobNames") ~typ:(returning id) diff --git a/Vision/VNFaceLandmarkDetectorRevision1.ml b/Vision/VNFaceLandmarkDetectorRevision1.ml index 399c5258..cf18a5f7 100644 --- a/Vision/VNFaceLandmarkDetectorRevision1.ml +++ b/Vision/VNFaceLandmarkDetectorRevision1.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/vnfacelandmarkdetectorrevision1?language=objc}VNFaceLandmarkDetectorRevision1} *) +let self = get_class "VNFaceLandmarkDetectorRevision1" + let cascadeStepCountInOriginalModel self = msg_send ~self ~cmd:(selector "cascadeStepCountInOriginalModel") ~typ:(returning ullong) let cascadeStepCountLoaded self = msg_send ~self ~cmd:(selector "cascadeStepCountLoaded") ~typ:(returning ullong) let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNFaceLandmarkDetectorRevision1Class.ml b/Vision/VNFaceLandmarkDetectorRevision1Class.ml index f5fada4e..d6d37cd3 100644 --- a/Vision/VNFaceLandmarkDetectorRevision1Class.ml +++ b/Vision/VNFaceLandmarkDetectorRevision1Class.ml @@ -4,18 +4,12 @@ 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/vnfacelandmarkdetectorrevision1?language=objc}VNFaceLandmarkDetectorRevision1} *) -let self = get_class "VNFaceLandmarkDetectorRevision1" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) -let dumpDebugIntermediatesWithImageBuffer x ~lumaIntermediate ~alignedBBoxInLumaIntermediateCoordinates ~meanShapeInLumaIntermediate ~landmarkPointsInLumaIntermediate self = msg_send ~self ~cmd:(selector "dumpDebugIntermediatesWithImageBuffer:lumaIntermediate:alignedBBoxInLumaIntermediateCoordinates:meanShapeInLumaIntermediate:landmarkPointsInLumaIntermediate:") ~typ:(id @-> (ptr CVBuffer.t) @-> ptr void @-> (ptr void) @-> (ptr void) @-> returning void) x lumaIntermediate alignedBBoxInLumaIntermediateCoordinates meanShapeInLumaIntermediate landmarkPointsInLumaIntermediate +let dumpDebugIntermediatesWithImageBuffer x ~lumaIntermediate ~alignedBBoxInLumaIntermediateCoordinates ~meanShapeInLumaIntermediate ~landmarkPointsInLumaIntermediate self = msg_send ~self ~cmd:(selector "dumpDebugIntermediatesWithImageBuffer:lumaIntermediate:alignedBBoxInLumaIntermediateCoordinates:meanShapeInLumaIntermediate:landmarkPointsInLumaIntermediate:") ~typ:(id @-> (ptr void) @-> ptr void @-> (ptr void) @-> (ptr void) @-> returning void) x lumaIntermediate alignedBBoxInLumaIntermediateCoordinates meanShapeInLumaIntermediate landmarkPointsInLumaIntermediate let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/Vision/VNFaceLandmarkDetectorRevision3.ml b/Vision/VNFaceLandmarkDetectorRevision3.ml index c02eaa37..5fac6c72 100644 --- a/Vision/VNFaceLandmarkDetectorRevision3.ml +++ b/Vision/VNFaceLandmarkDetectorRevision3.ml @@ -5,15 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNFaceLandmarkDetectorRevision3" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacelandmarkdetectorrevision3?language=objc}VNFaceLandmarkDetectorRevision3} *) -module Class = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let landmarkDetectorDNNVersion self = msg_send ~self ~cmd:(selector "landmarkDetectorDNNVersion") ~typ:(returning (bool)) - let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning (void)) x -end +let self = get_class "VNFaceLandmarkDetectorRevision3" -let normalizedFaceBBoxForLandmarks x self = msg_send ~self ~cmd:(selector "normalizedFaceBBoxForLandmarks:") ~typ:(id @-> returning (CGRect.t)) x -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let normalizedFaceBBoxForLandmarks x self = msg_send ~self ~cmd:(selector "normalizedFaceBBoxForLandmarks:") ~typ:(id @-> returning CGRect.t) x +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceLandmarkDetectorRevision3Class.ml b/Vision/VNFaceLandmarkDetectorRevision3Class.ml new file mode 100644 index 00000000..df20b114 --- /dev/null +++ b/Vision/VNFaceLandmarkDetectorRevision3Class.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacelandmarkdetectorrevision3?language=objc}VNFaceLandmarkDetectorRevision3} *) + +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let landmarkDetectorDNNVersion self = msg_send ~self ~cmd:(selector "landmarkDetectorDNNVersion") ~typ:(returning uchar) +let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/Vision/VNFaceLandmarkRegion.ml b/Vision/VNFaceLandmarkRegion.ml index ef4e7590..fe5076d5 100644 --- a/Vision/VNFaceLandmarkRegion.ml +++ b/Vision/VNFaceLandmarkRegion.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/vnfacelandmarkregion?language=objc}VNFaceLandmarkRegion} *) +let self = get_class "VNFaceLandmarkRegion" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNFaceLandmarkRegion2D.ml b/Vision/VNFaceLandmarkRegion2D.ml index 52e5ff86..c003d6e9 100644 --- a/Vision/VNFaceLandmarkRegion2D.ml +++ b/Vision/VNFaceLandmarkRegion2D.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/vnfacelandmarkregion2d?language=objc}VNFaceLandmarkRegion2D} *) +let self = get_class "VNFaceLandmarkRegion2D" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNFaceLandmarkRegion2DClass.ml b/Vision/VNFaceLandmarkRegion2DClass.ml index 61c74d87..bddc2aae 100644 --- a/Vision/VNFaceLandmarkRegion2DClass.ml +++ b/Vision/VNFaceLandmarkRegion2DClass.ml @@ -4,16 +4,10 @@ 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/vnfacelandmarkregion2d?language=objc}VNFaceLandmarkRegion2D} *) -let self = get_class "VNFaceLandmarkRegion2D" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceLandmarkRegion3D.ml b/Vision/VNFaceLandmarkRegion3D.ml index 4eec1df3..34496af5 100644 --- a/Vision/VNFaceLandmarkRegion3D.ml +++ b/Vision/VNFaceLandmarkRegion3D.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/vnfacelandmarkregion3d?language=objc}VNFaceLandmarkRegion3D} *) +let self = get_class "VNFaceLandmarkRegion3D" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x diff --git a/Vision/VNFaceLandmarkRegion3DClass.ml b/Vision/VNFaceLandmarkRegion3DClass.ml index c13dcbae..dc5ddcd8 100644 --- a/Vision/VNFaceLandmarkRegion3DClass.ml +++ b/Vision/VNFaceLandmarkRegion3DClass.ml @@ -4,16 +4,10 @@ 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/vnfacelandmarkregion3d?language=objc}VNFaceLandmarkRegion3D} *) -let self = get_class "VNFaceLandmarkRegion3D" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceLandmarkRegionClass.ml b/Vision/VNFaceLandmarkRegionClass.ml index 59b192cc..5accc1f5 100644 --- a/Vision/VNFaceLandmarkRegionClass.ml +++ b/Vision/VNFaceLandmarkRegionClass.ml @@ -4,16 +4,10 @@ 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/vnfacelandmarkregion?language=objc}VNFaceLandmarkRegion} *) -let self = get_class "VNFaceLandmarkRegion" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceLandmarks.ml b/Vision/VNFaceLandmarks.ml index 2df78789..cc4c5481 100644 --- a/Vision/VNFaceLandmarks.ml +++ b/Vision/VNFaceLandmarks.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/vnfacelandmarks?language=objc}VNFaceLandmarks} *) +let self = get_class "VNFaceLandmarks" + let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNFaceLandmarks2D.ml b/Vision/VNFaceLandmarks2D.ml index 353c9917..a4e60f75 100644 --- a/Vision/VNFaceLandmarks2D.ml +++ b/Vision/VNFaceLandmarks2D.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/vnfacelandmarks2d?language=objc}VNFaceLandmarks2D} *) +let self = get_class "VNFaceLandmarks2D" + let allPoints self = msg_send ~self ~cmd:(selector "allPoints") ~typ:(returning id) let constellation self = msg_send ~self ~cmd:(selector "constellation") ~typ:(returning ullong) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNFaceLandmarks2DClass.ml b/Vision/VNFaceLandmarks2DClass.ml index 700a2976..e74e17c6 100644 --- a/Vision/VNFaceLandmarks2DClass.ml +++ b/Vision/VNFaceLandmarks2DClass.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/vnfacelandmarks2d?language=objc}VNFaceLandmarks2D} *) -let self = get_class "VNFaceLandmarks2D" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let landmarkPointSizeInBytes self = msg_send ~self ~cmd:(selector "landmarkPointSizeInBytes") ~typ:(returning ullong) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceLandmarks3D.ml b/Vision/VNFaceLandmarks3D.ml index f15fe71f..32fc252e 100644 --- a/Vision/VNFaceLandmarks3D.ml +++ b/Vision/VNFaceLandmarks3D.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/vnfacelandmarks3d?language=objc}VNFaceLandmarks3D} *) +let self = get_class "VNFaceLandmarks3D" + let allPoints self = msg_send ~self ~cmd:(selector "allPoints") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let faceContour self = msg_send ~self ~cmd:(selector "faceContour") ~typ:(returning id) diff --git a/Vision/VNFaceLandmarks3DClass.ml b/Vision/VNFaceLandmarks3DClass.ml index b0b37b72..661a5cd4 100644 --- a/Vision/VNFaceLandmarks3DClass.ml +++ b/Vision/VNFaceLandmarks3DClass.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/vnfacelandmarks3d?language=objc}VNFaceLandmarks3D} *) -let self = get_class "VNFaceLandmarks3D" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let landmarkPointSizeInBytes self = msg_send ~self ~cmd:(selector "landmarkPointSizeInBytes") ~typ:(returning ullong) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceLandmarksClass.ml b/Vision/VNFaceLandmarksClass.ml index f558316c..061c21a1 100644 --- a/Vision/VNFaceLandmarksClass.ml +++ b/Vision/VNFaceLandmarksClass.ml @@ -4,16 +4,10 @@ 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/vnfacelandmarks?language=objc}VNFaceLandmarks} *) -let self = get_class "VNFaceLandmarks" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceLegacyFaceCore.ml b/Vision/VNFaceLegacyFaceCore.ml index 7b95efe3..388c223c 100644 --- a/Vision/VNFaceLegacyFaceCore.ml +++ b/Vision/VNFaceLegacyFaceCore.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/vnfacelegacyfacecore?language=objc}VNFaceLegacyFaceCore} *) +let self = get_class "VNFaceLegacyFaceCore" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let faceAngle self = msg_send ~self ~cmd:(selector "faceAngle") ~typ:(returning double) diff --git a/Vision/VNFaceLegacyFaceCoreClass.ml b/Vision/VNFaceLegacyFaceCoreClass.ml index 5fcc9cbf..5665871f 100644 --- a/Vision/VNFaceLegacyFaceCoreClass.ml +++ b/Vision/VNFaceLegacyFaceCoreClass.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/vnfacelegacyfacecore?language=objc}VNFaceLegacyFaceCore} *) -let self = get_class "VNFaceLegacyFaceCore" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceObservation.ml b/Vision/VNFaceObservation.ml index 4c4ee5cb..481c7d10 100644 --- a/Vision/VNFaceObservation.ml +++ b/Vision/VNFaceObservation.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/vnfaceobservation?language=objc}VNFaceObservation} *) +let self = get_class "VNFaceObservation" + let _VNEntityIdentificationModelPrintWithOriginatingRequestSpecifier x ~error self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintWithOriginatingRequestSpecifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let _VNPersonsModelFaceprintWithRequestRevision x ~error self = msg_send ~self ~cmd:(selector "VNPersonsModelFaceprintWithRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error let alignedBoundingBoxAsCGRect self = msg_send ~self ~cmd:(selector "alignedBoundingBoxAsCGRect") ~typ:(returning CGRect.t) diff --git a/Vision/VNFaceObservationClass.ml b/Vision/VNFaceObservationClass.ml index e5fc6a87..94a05be2 100644 --- a/Vision/VNFaceObservationClass.ml +++ b/Vision/VNFaceObservationClass.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/vnfaceobservation?language=objc}VNFaceObservation} *) -let self = get_class "VNFaceObservation" - let computeYawPitchRollFromPoseMatrix x ~outputYaw ~outputPitch ~outputRoll self = msg_send ~self ~cmd:(selector "computeYawPitchRollFromPoseMatrix:outputYaw:outputPitch:outputRoll:") ~typ:(void @-> (ptr float) @-> (ptr float) @-> (ptr float) @-> returning bool) x outputYaw outputPitch outputRoll let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let faceObservationWithRequestRevision x ~boundingBox ~andAlignedBoundingBox self = msg_send ~self ~cmd:(selector "faceObservationWithRequestRevision:boundingBox:andAlignedBoundingBox:") ~typ:(ullong @-> CGRect.t @-> CGRect.t @-> returning id) (ULLong.of_int x) boundingBox andAlignedBoundingBox diff --git a/Vision/VNFaceQualityGenerator.ml b/Vision/VNFaceQualityGenerator.ml index a24c710e..4b7ef5f9 100644 --- a/Vision/VNFaceQualityGenerator.ml +++ b/Vision/VNFaceQualityGenerator.ml @@ -5,17 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNFaceQualityGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacequalitygenerator?language=objc}VNFaceQualityGenerator} *) -module C = struct - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let keyForDetectorWithConfigurationOptions x self = msg_send ~self ~cmd:(selector "keyForDetectorWithConfigurationOptions:") ~typ:(id @-> returning (id)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x -end +let self = get_class "VNFaceQualityGenerator" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceQualityGeneratorClass.ml b/Vision/VNFaceQualityGeneratorClass.ml new file mode 100644 index 00000000..629df29b --- /dev/null +++ b/Vision/VNFaceQualityGeneratorClass.ml @@ -0,0 +1,17 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacequalitygenerator?language=objc}VNFaceQualityGenerator} *) + +let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning ullong) x +let keyForDetectorWithConfigurationOptions x self = msg_send ~self ~cmd:(selector "keyForDetectorWithConfigurationOptions:") ~typ:(id @-> returning id) x +let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning uint) x \ No newline at end of file diff --git a/Vision/VNFaceRegionMap.ml b/Vision/VNFaceRegionMap.ml index ce4452d2..42386b4c 100644 --- a/Vision/VNFaceRegionMap.ml +++ b/Vision/VNFaceRegionMap.ml @@ -4,21 +4,19 @@ 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/vnfaceregionmap?language=objc}VNFaceRegionMap} *) +let self = get_class "VNFaceRegionMap" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let getRegionLabels self = msg_send ~self ~cmd:(selector "getRegionLabels") ~typ:(returning id) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x -let initWithRequestRevision x ~regionMap ~deallocateBuffer ~userBBox ~alignedBBox ~valueToLabelMap self = msg_send ~self ~cmd:(selector "initWithRequestRevision:regionMap:deallocateBuffer:userBBox:alignedBBox:valueToLabelMap:") ~typ:(ullong @-> ptr void @-> bool @-> CGRect.t @-> ptr void @-> id @-> returning id) (ULLong.of_int x) regionMap deallocateBuffer userBBox alignedBBox valueToLabelMap +let initWithRequestRevision x ~regionMap ~deallocateBuffer ~userBBox ~alignedBBox ~valueToLabelMap self = msg_send ~self ~cmd:(selector "initWithRequestRevision:regionMap:deallocateBuffer:userBBox:alignedBBox:valueToLabelMap:") ~typ:(ullong @-> (ptr void) @-> bool @-> CGRect.t @-> ptr void @-> id @-> returning id) (ULLong.of_int x) regionMap deallocateBuffer userBBox alignedBBox valueToLabelMap let regionLabels self = msg_send ~self ~cmd:(selector "regionLabels") ~typ:(returning id) let regionNameAtImageCoordinate x ~imageSize self = msg_send ~self ~cmd:(selector "regionNameAtImageCoordinate:imageSize:") ~typ:(CGPoint.t @-> CGSize.t @-> returning id) x imageSize let regionNameAtNormalizedAlignedFaceCoordinate x self = msg_send ~self ~cmd:(selector "regionNameAtNormalizedAlignedFaceCoordinate:") ~typ:(CGPoint.t @-> returning id) x diff --git a/Vision/VNFaceRegionMapClass.ml b/Vision/VNFaceRegionMapClass.ml index f353a919..9b2881cc 100644 --- a/Vision/VNFaceRegionMapClass.ml +++ b/Vision/VNFaceRegionMapClass.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/vnfaceregionmap?language=objc}VNFaceRegionMap} *) -let self = get_class "VNFaceRegionMap" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceRegionMapGenerator.ml b/Vision/VNFaceRegionMapGenerator.ml index 818390f5..273d98f9 100644 --- a/Vision/VNFaceRegionMapGenerator.ml +++ b/Vision/VNFaceRegionMapGenerator.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/vnfaceregionmapgenerator?language=objc}VNFaceRegionMapGenerator} *) +let self = get_class "VNFaceRegionMapGenerator" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceRegionMapGeneratorClass.ml b/Vision/VNFaceRegionMapGeneratorClass.ml deleted file mode 100644 index e1fa70b5..00000000 --- a/Vision/VNFaceRegionMapGeneratorClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfaceregionmapgenerator?language=objc}VNFaceRegionMapGenerator} *) - -let self = get_class "VNFaceRegionMapGenerator" - diff --git a/Vision/VNFaceScreenGaze.ml b/Vision/VNFaceScreenGaze.ml index b01a56af..fe0abc40 100644 --- a/Vision/VNFaceScreenGaze.ml +++ b/Vision/VNFaceScreenGaze.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/vnfacescreengaze?language=objc}VNFaceScreenGaze} *) +let self = get_class "VNFaceScreenGaze" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNFaceScreenGazeClass.ml b/Vision/VNFaceScreenGazeClass.ml index 8669a6bb..ed3b4e6a 100644 --- a/Vision/VNFaceScreenGazeClass.ml +++ b/Vision/VNFaceScreenGazeClass.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/vnfacescreengaze?language=objc}VNFaceScreenGaze} *) -let self = get_class "VNFaceScreenGaze" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFaceSegmentGenerator.ml b/Vision/VNFaceSegmentGenerator.ml index 11abf9e8..29b0f5fb 100644 --- a/Vision/VNFaceSegmentGenerator.ml +++ b/Vision/VNFaceSegmentGenerator.ml @@ -5,16 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNFaceSegmentGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacesegmentgenerator?language=objc}VNFaceSegmentGenerator} *) -module C = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x -end +let self = get_class "VNFaceSegmentGenerator" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNFaceSegmentGeneratorClass.ml b/Vision/VNFaceSegmentGeneratorClass.ml new file mode 100644 index 00000000..0af6f443 --- /dev/null +++ b/Vision/VNFaceSegmentGeneratorClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnfacesegmentgenerator?language=objc}VNFaceSegmentGenerator} *) + +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning ullong) x +let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning uint) x \ No newline at end of file diff --git a/Vision/VNFaceSegments.ml b/Vision/VNFaceSegments.ml index b5928e46..c4d41f7f 100644 --- a/Vision/VNFaceSegments.ml +++ b/Vision/VNFaceSegments.ml @@ -4,20 +4,18 @@ 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/vnfacesegments?language=objc}VNFaceSegments} *) +let self = get_class "VNFaceSegments" + let boundingBox self = msg_send ~self ~cmd:(selector "boundingBox") ~typ:(returning CGRect.t) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x -let createMaskImageOfFaceSegments x ~error self = msg_send ~self ~cmd:(selector "createMaskImageOfFaceSegments:error:") ~typ:(ullong @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) error -let createProbabilityImageOfFaceSegment x ~error self = msg_send ~self ~cmd:(selector "createProbabilityImageOfFaceSegment:error:") ~typ:(ullong @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) error -let createProbabilityImageOfFaceSegment' x ~region ~normalize ~error self = msg_send ~self ~cmd:(selector "createProbabilityImageOfFaceSegment:region:normalize:error:") ~typ:(ullong @-> CGRect.t @-> bool @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) region normalize error +let createMaskImageOfFaceSegments x ~error self = msg_send ~self ~cmd:(selector "createMaskImageOfFaceSegments:error:") ~typ:(ullong @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) error +let createProbabilityImageOfFaceSegment x ~error self = msg_send ~self ~cmd:(selector "createProbabilityImageOfFaceSegment:error:") ~typ:(ullong @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) error +let createProbabilityImageOfFaceSegment' x ~region ~normalize ~error self = msg_send ~self ~cmd:(selector "createProbabilityImageOfFaceSegment:region:normalize:error:") ~typ:(ullong @-> CGRect.t @-> bool @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) region normalize error let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let faceSegmentLabelToProbabilityMap self = msg_send ~self ~cmd:(selector "faceSegmentLabelToProbabilityMap") ~typ:(returning id) let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNFaceSegmentsClass.ml b/Vision/VNFaceSegmentsClass.ml index 7fe111d8..cd33fb9f 100644 --- a/Vision/VNFaceSegmentsClass.ml +++ b/Vision/VNFaceSegmentsClass.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/vnfacesegments?language=objc}VNFaceSegments} *) -let self = get_class "VNFaceSegments" - let faceSegmentIndexToFlagMap self = msg_send ~self ~cmd:(selector "faceSegmentIndexToFlagMap") ~typ:(returning id) let faceSegmentToSegmentMaskGrayLevelDictionary self = msg_send ~self ~cmd:(selector "faceSegmentToSegmentMaskGrayLevelDictionary") ~typ:(returning id) let faceSegmentsPixelSizeInBytes self = msg_send ~self ~cmd:(selector "faceSegmentsPixelSizeInBytes") ~typ:(returning ullong) diff --git a/Vision/VNFaceTorsoprint.ml b/Vision/VNFaceTorsoprint.ml index 58c14745..0010bcd9 100644 --- a/Vision/VNFaceTorsoprint.ml +++ b/Vision/VNFaceTorsoprint.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/vnfacetorsoprint?language=objc}VNFaceTorsoprint} *) +let self = get_class "VNFaceTorsoprint" + let computeDistance x ~withDistanceFunction ~error self = msg_send ~self ~cmd:(selector "computeDistance:withDistanceFunction:error:") ~typ:(id @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int withDistanceFunction) error let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let faceprint self = msg_send ~self ~cmd:(selector "faceprint") ~typ:(returning id) diff --git a/Vision/VNFaceTorsoprintClass.ml b/Vision/VNFaceTorsoprintClass.ml index a1417d23..dd10909b 100644 --- a/Vision/VNFaceTorsoprintClass.ml +++ b/Vision/VNFaceTorsoprintClass.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/vnfacetorsoprint?language=objc}VNFaceTorsoprint} *) -let self = get_class "VNFaceTorsoprint" - let codingTypesToCodingKeys self = msg_send ~self ~cmd:(selector "codingTypesToCodingKeys") ~typ:(returning id) let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning uint) let currentSerializationVersion self = msg_send ~self ~cmd:(selector "currentSerializationVersion") ~typ:(returning ullong) diff --git a/Vision/VNFaceprint.ml b/Vision/VNFaceprint.ml index 7246318f..be194031 100644 --- a/Vision/VNFaceprint.ml +++ b/Vision/VNFaceprint.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/vnfaceprint?language=objc}VNFaceprint} *) +let self = get_class "VNFaceprint" + let _VNEntityIdentificationModelPrintByteLength self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintByteLength") ~typ:(returning ullong) let _VNEntityIdentificationModelPrintData self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintData") ~typ:(returning id) let _VNEntityIdentificationModelPrintElementCount self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintElementCount") ~typ:(returning ullong) diff --git a/Vision/VNFaceprintClass.ml b/Vision/VNFaceprintClass.ml index 28c7e86c..6b497740 100644 --- a/Vision/VNFaceprintClass.ml +++ b/Vision/VNFaceprintClass.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/vnfaceprint?language=objc}VNFaceprint} *) -let self = get_class "VNFaceprint" - let codingTypesToCodingKeys self = msg_send ~self ~cmd:(selector "codingTypesToCodingKeys") ~typ:(returning id) let confidenceTypeForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "confidenceTypeForOriginatingRequestSpecifier:") ~typ:(id @-> returning ullong) x let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning uint) diff --git a/Vision/VNFeaturePrintObservation.ml b/Vision/VNFeaturePrintObservation.ml index 8b5ecf6a..31c9ba0a 100644 --- a/Vision/VNFeaturePrintObservation.ml +++ b/Vision/VNFeaturePrintObservation.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/vnfeatureprintobservation?language=objc}VNFeaturePrintObservation} *) +let self = get_class "VNFeaturePrintObservation" + let computeDistance x ~toFeaturePrintObservation ~error self = msg_send ~self ~cmd:(selector "computeDistance:toFeaturePrintObservation:error:") ~typ:((ptr float) @-> id @-> (ptr id) @-> returning bool) x toFeaturePrintObservation error let computeDistanceToFeaturePrintObservation x ~error self = msg_send ~self ~cmd:(selector "computeDistanceToFeaturePrintObservation:error:") ~typ:(id @-> (ptr id) @-> returning float) x error let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning id) diff --git a/Vision/VNFeaturePrintObservationClass.ml b/Vision/VNFeaturePrintObservationClass.ml index d4eba061..9b73f367 100644 --- a/Vision/VNFeaturePrintObservationClass.ml +++ b/Vision/VNFeaturePrintObservationClass.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/vnfeatureprintobservation?language=objc}VNFeaturePrintObservation} *) -let self = get_class "VNFeaturePrintObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNFingerprintHash.ml b/Vision/VNFingerprintHash.ml deleted file mode 100644 index 3f7e5e1c..00000000 --- a/Vision/VNFingerprintHash.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNFingerprintHash" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let booleanBytesData self = msg_send ~self ~cmd:(selector "booleanBytesData") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let hashData self = msg_send ~self ~cmd:(selector "hashData") ~typ:(returning (id)) -let hashString self = msg_send ~self ~cmd:(selector "hashString") ~typ:(returning (id)) -let initWithBooleanBytes x ~length self = msg_send ~self ~cmd:(selector "initWithBooleanBytes:length:") ~typ:(string @-> ullong @-> returning (id)) x (ULLong.of_int length) -let initWithBooleanBytesData x self = msg_send ~self ~cmd:(selector "initWithBooleanBytesData:") ~typ:(id @-> returning (id)) x -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithHashData x self = msg_send ~self ~cmd:(selector "initWithHashData:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNFrameworkManager.ml b/Vision/VNFrameworkManager.ml index eb17b41a..9bb80661 100644 --- a/Vision/VNFrameworkManager.ml +++ b/Vision/VNFrameworkManager.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/vnframeworkmanager?language=objc}VNFrameworkManager} *) +let self = get_class "VNFrameworkManager" + let allSessions self = msg_send ~self ~cmd:(selector "allSessions") ~typ:(returning id) let detectorAccessingLock self = msg_send ~self ~cmd:(selector "detectorAccessingLock") ~typ:(returning id) let detectorOfClass x ~configuredWithOptions ~forSession ~error self = msg_send ~self ~cmd:(selector "detectorOfClass:configuredWithOptions:forSession:error:") ~typ:(_Class @-> id @-> id @-> (ptr id) @-> returning id) x configuredWithOptions forSession error diff --git a/Vision/VNFrameworkManagerClass.ml b/Vision/VNFrameworkManagerClass.ml index 56932601..522ba143 100644 --- a/Vision/VNFrameworkManagerClass.ml +++ b/Vision/VNFrameworkManagerClass.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/vnframeworkmanager?language=objc}VNFrameworkManager} *) -let self = get_class "VNFrameworkManager" - let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNFrameworkResourceDescriptor.ml b/Vision/VNFrameworkResourceDescriptor.ml deleted file mode 100644 index 3234e3a5..00000000 --- a/Vision/VNFrameworkResourceDescriptor.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNFrameworkResourceDescriptor" - -module C = struct - let descriptorForFrameworkContainingClass x ~error self = msg_send ~self ~cmd:(selector "descriptorForFrameworkContainingClass:error:") ~typ:(_Class @-> ptr (id) @-> returning (id)) x error - let descriptorForFrameworkContainingClassNamed x ~error self = msg_send ~self ~cmd:(selector "descriptorForFrameworkContainingClassNamed:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let descriptorForFrameworkIdentifier x ~error self = msg_send ~self ~cmd:(selector "descriptorForFrameworkIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let frameworkBundle self = msg_send ~self ~cmd:(selector "frameworkBundle") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithBundle x self = msg_send ~self ~cmd:(selector "initWithBundle:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNGenerateAnimalSegmentationRequest.ml b/Vision/VNGenerateAnimalSegmentationRequest.ml deleted file mode 100644 index 9afd1425..00000000 --- a/Vision/VNGenerateAnimalSegmentationRequest.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateAnimalSegmentationRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning (llong)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let outputPixelFormat self = msg_send ~self ~cmd:(selector "outputPixelFormat") ~typ:(returning (uint)) -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setOutputPixelFormat x self = msg_send ~self ~cmd:(selector "setOutputPixelFormat:") ~typ:(uint @-> returning (void)) x -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNGenerateAnimalSegmentationRequestConfiguration.ml b/Vision/VNGenerateAnimalSegmentationRequestConfiguration.ml deleted file mode 100644 index 8b23fd06..00000000 --- a/Vision/VNGenerateAnimalSegmentationRequestConfiguration.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateAnimalSegmentationRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNGenerateAttentionBasedSaliencyImageRequest.ml b/Vision/VNGenerateAttentionBasedSaliencyImageRequest.ml index 2946d4b5..9f9bb91d 100644 --- a/Vision/VNGenerateAttentionBasedSaliencyImageRequest.ml +++ b/Vision/VNGenerateAttentionBasedSaliencyImageRequest.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/vngenerateattentionbasedsaliencyimagerequest?language=objc}VNGenerateAttentionBasedSaliencyImageRequest} *) +let self = get_class "VNGenerateAttentionBasedSaliencyImageRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning id) diff --git a/Vision/VNGenerateAttentionBasedSaliencyImageRequestClass.ml b/Vision/VNGenerateAttentionBasedSaliencyImageRequestClass.ml index fb083759..336fa677 100644 --- a/Vision/VNGenerateAttentionBasedSaliencyImageRequestClass.ml +++ b/Vision/VNGenerateAttentionBasedSaliencyImageRequestClass.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/vngenerateattentionbasedsaliencyimagerequest?language=objc}VNGenerateAttentionBasedSaliencyImageRequest} *) -let self = get_class "VNGenerateAttentionBasedSaliencyImageRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNGenerateFaceSegmentsRequest.ml b/Vision/VNGenerateFaceSegmentsRequest.ml index 2af5b9f7..cfc9ec36 100644 --- a/Vision/VNGenerateFaceSegmentsRequest.ml +++ b/Vision/VNGenerateFaceSegmentsRequest.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/vngeneratefacesegmentsrequest?language=objc}VNGenerateFaceSegmentsRequest} *) +let self = get_class "VNGenerateFaceSegmentsRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let faceBoundingBoxExpansionRatio self = msg_send ~self ~cmd:(selector "faceBoundingBoxExpansionRatio") ~typ:(returning float) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNGenerateFaceSegmentsRequestClass.ml b/Vision/VNGenerateFaceSegmentsRequestClass.ml index d000ae43..1ebba134 100644 --- a/Vision/VNGenerateFaceSegmentsRequestClass.ml +++ b/Vision/VNGenerateFaceSegmentsRequestClass.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/vngeneratefacesegmentsrequest?language=objc}VNGenerateFaceSegmentsRequest} *) -let self = get_class "VNGenerateFaceSegmentsRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNGenerateFaceSegmentsRequestConfiguration.ml b/Vision/VNGenerateFaceSegmentsRequestConfiguration.ml index dbb5fa37..0df11e5e 100644 --- a/Vision/VNGenerateFaceSegmentsRequestConfiguration.ml +++ b/Vision/VNGenerateFaceSegmentsRequestConfiguration.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/vngeneratefacesegmentsrequestconfiguration?language=objc}VNGenerateFaceSegmentsRequestConfiguration} *) +let self = get_class "VNGenerateFaceSegmentsRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let faceBoundingBoxExpansionRatio self = msg_send ~self ~cmd:(selector "faceBoundingBoxExpansionRatio") ~typ:(returning float) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNGenerateFaceSegmentsRequestConfigurationClass.ml b/Vision/VNGenerateFaceSegmentsRequestConfigurationClass.ml index 6ef6b260..a7669dd7 100644 --- a/Vision/VNGenerateFaceSegmentsRequestConfigurationClass.ml +++ b/Vision/VNGenerateFaceSegmentsRequestConfigurationClass.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/vngeneratefacesegmentsrequestconfiguration?language=objc}VNGenerateFaceSegmentsRequestConfiguration} *) -let self = get_class "VNGenerateFaceSegmentsRequestConfiguration" - let beginRangeFaceBoundingBoxExpansionRatio self = msg_send ~self ~cmd:(selector "beginRangeFaceBoundingBoxExpansionRatio") ~typ:(returning float) let defaultFaceBoundingBoxExpansionRatio self = msg_send ~self ~cmd:(selector "defaultFaceBoundingBoxExpansionRatio") ~typ:(returning float) let endRangeFaceBoundingBoxExpansionRatio self = msg_send ~self ~cmd:(selector "endRangeFaceBoundingBoxExpansionRatio") ~typ:(returning float) diff --git a/Vision/VNGenerateForegroundInstanceMaskRequest.ml b/Vision/VNGenerateForegroundInstanceMaskRequest.ml deleted file mode 100644 index 6c4a3558..00000000 --- a/Vision/VNGenerateForegroundInstanceMaskRequest.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateForegroundInstanceMaskRequest" - -module Class = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) x error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) x inContext error \ No newline at end of file diff --git a/Vision/VNGenerateForegroundInstanceMaskRequestConfiguration.ml b/Vision/VNGenerateForegroundInstanceMaskRequestConfiguration.ml deleted file mode 100644 index c1bfff89..00000000 --- a/Vision/VNGenerateForegroundInstanceMaskRequestConfiguration.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateForegroundInstanceMaskRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNGenerateGlassesSegmentationRequest.ml b/Vision/VNGenerateGlassesSegmentationRequest.ml deleted file mode 100644 index 336f08ab..00000000 --- a/Vision/VNGenerateGlassesSegmentationRequest.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateGlassesSegmentationRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let configuredCopyOfSelfWithBalancedQualityLevel self = msg_send ~self ~cmd:(selector "configuredCopyOfSelfWithBalancedQualityLevel") ~typ:(returning (id)) -let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNGenerateGlassesSegmentationRequestConfiguration.ml b/Vision/VNGenerateGlassesSegmentationRequestConfiguration.ml deleted file mode 100644 index ec1385b8..00000000 --- a/Vision/VNGenerateGlassesSegmentationRequestConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateGlassesSegmentationRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/Vision/VNGenerateHumanAttributesSegmentationRequest.ml b/Vision/VNGenerateHumanAttributesSegmentationRequest.ml deleted file mode 100644 index e729e81b..00000000 --- a/Vision/VNGenerateHumanAttributesSegmentationRequest.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateHumanAttributesSegmentationRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let configuredCopyOfSelfWithBalancedQualityLevel self = msg_send ~self ~cmd:(selector "configuredCopyOfSelfWithBalancedQualityLevel") ~typ:(returning (id)) -let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning (llong)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let supportedHumanAttributesNamesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedHumanAttributesNamesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNGenerateHumanAttributesSegmentationRequestConfiguration.ml b/Vision/VNGenerateHumanAttributesSegmentationRequestConfiguration.ml deleted file mode 100644 index 45d6e929..00000000 --- a/Vision/VNGenerateHumanAttributesSegmentationRequestConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateHumanAttributesSegmentationRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/Vision/VNGenerateImageFeaturePrintRequest.ml b/Vision/VNGenerateImageFeaturePrintRequest.ml index 734ff7ea..83d7ff53 100644 --- a/Vision/VNGenerateImageFeaturePrintRequest.ml +++ b/Vision/VNGenerateImageFeaturePrintRequest.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/vngenerateimagefeatureprintrequest?language=objc}VNGenerateImageFeaturePrintRequest} *) +let self = get_class "VNGenerateImageFeaturePrintRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) diff --git a/Vision/VNGenerateImageFeaturePrintRequestClass.ml b/Vision/VNGenerateImageFeaturePrintRequestClass.ml index b3838674..561dea42 100644 --- a/Vision/VNGenerateImageFeaturePrintRequestClass.ml +++ b/Vision/VNGenerateImageFeaturePrintRequestClass.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/vngenerateimagefeatureprintrequest?language=objc}VNGenerateImageFeaturePrintRequest} *) -let self = get_class "VNGenerateImageFeaturePrintRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNGenerateImageFeaturePrintRequestConfiguration.ml b/Vision/VNGenerateImageFeaturePrintRequestConfiguration.ml index 869fe02d..03b41ab2 100644 --- a/Vision/VNGenerateImageFeaturePrintRequestConfiguration.ml +++ b/Vision/VNGenerateImageFeaturePrintRequestConfiguration.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/vngenerateimagefeatureprintrequestconfiguration?language=objc}VNGenerateImageFeaturePrintRequestConfiguration} *) +let self = get_class "VNGenerateImageFeaturePrintRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNGenerateImageFeaturePrintRequestConfigurationClass.ml b/Vision/VNGenerateImageFeaturePrintRequestConfigurationClass.ml deleted file mode 100644 index db70609a..00000000 --- a/Vision/VNGenerateImageFeaturePrintRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vngenerateimagefeatureprintrequestconfiguration?language=objc}VNGenerateImageFeaturePrintRequestConfiguration} *) - -let self = get_class "VNGenerateImageFeaturePrintRequestConfiguration" - diff --git a/Vision/VNGenerateImageSaliencyRequest.ml b/Vision/VNGenerateImageSaliencyRequest.ml index da0371c5..dba3ef21 100644 --- a/Vision/VNGenerateImageSaliencyRequest.ml +++ b/Vision/VNGenerateImageSaliencyRequest.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/vngenerateimagesaliencyrequest?language=objc}VNGenerateImageSaliencyRequest} *) +let self = get_class "VNGenerateImageSaliencyRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/Vision/VNGenerateImageSaliencyRequestClass.ml b/Vision/VNGenerateImageSaliencyRequestClass.ml index 097b28b2..80d14753 100644 --- a/Vision/VNGenerateImageSaliencyRequestClass.ml +++ b/Vision/VNGenerateImageSaliencyRequestClass.ml @@ -4,16 +4,10 @@ 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/vngenerateimagesaliencyrequest?language=objc}VNGenerateImageSaliencyRequest} *) -let self = get_class "VNGenerateImageSaliencyRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNGenerateInstanceMaskDetector.ml b/Vision/VNGenerateInstanceMaskDetector.ml deleted file mode 100644 index 83de9d76..00000000 --- a/Vision/VNGenerateInstanceMaskDetector.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateInstanceMaskDetector" - -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let fullyPopulateConfigurationOptions x self = msg_send ~self ~cmd:(selector "fullyPopulateConfigurationOptions:") ~typ:(id @-> returning (void)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x - let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning (void)) x - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNGenerateInstanceMaskGatingRequest.ml b/Vision/VNGenerateInstanceMaskGatingRequest.ml deleted file mode 100644 index 22b57aea..00000000 --- a/Vision/VNGenerateInstanceMaskGatingRequest.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateInstanceMaskGatingRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session \ No newline at end of file diff --git a/Vision/VNGenerateInstanceMaskGatingRequestConfiguration.ml b/Vision/VNGenerateInstanceMaskGatingRequestConfiguration.ml deleted file mode 100644 index 23cba9e6..00000000 --- a/Vision/VNGenerateInstanceMaskGatingRequestConfiguration.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateInstanceMaskGatingRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNGenerateObjectnessBasedSaliencyImageRequest.ml b/Vision/VNGenerateObjectnessBasedSaliencyImageRequest.ml index e60ac965..04e6e9bd 100644 --- a/Vision/VNGenerateObjectnessBasedSaliencyImageRequest.ml +++ b/Vision/VNGenerateObjectnessBasedSaliencyImageRequest.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/vngenerateobjectnessbasedsaliencyimagerequest?language=objc}VNGenerateObjectnessBasedSaliencyImageRequest} *) +let self = get_class "VNGenerateObjectnessBasedSaliencyImageRequest" + let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning id) diff --git a/Vision/VNGenerateObjectnessBasedSaliencyImageRequestClass.ml b/Vision/VNGenerateObjectnessBasedSaliencyImageRequestClass.ml index 6d732925..f0fb75b5 100644 --- a/Vision/VNGenerateObjectnessBasedSaliencyImageRequestClass.ml +++ b/Vision/VNGenerateObjectnessBasedSaliencyImageRequestClass.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/vngenerateobjectnessbasedsaliencyimagerequest?language=objc}VNGenerateObjectnessBasedSaliencyImageRequest} *) -let self = get_class "VNGenerateObjectnessBasedSaliencyImageRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNGenerateOpticalFlowRequest.ml b/Vision/VNGenerateOpticalFlowRequest.ml index 7695d194..95f5b8a1 100644 --- a/Vision/VNGenerateOpticalFlowRequest.ml +++ b/Vision/VNGenerateOpticalFlowRequest.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/vngenerateopticalflowrequest?language=objc}VNGenerateOpticalFlowRequest} *) +let self = get_class "VNGenerateOpticalFlowRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let computationAccuracy self = msg_send ~self ~cmd:(selector "computationAccuracy") ~typ:(returning ullong) let enableFiltering self = msg_send ~self ~cmd:(selector "enableFiltering") ~typ:(returning bool) diff --git a/Vision/VNGenerateOpticalFlowRequestClass.ml b/Vision/VNGenerateOpticalFlowRequestClass.ml deleted file mode 100644 index 64baf7e5..00000000 --- a/Vision/VNGenerateOpticalFlowRequestClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vngenerateopticalflowrequest?language=objc}VNGenerateOpticalFlowRequest} *) - -let self = get_class "VNGenerateOpticalFlowRequest" - diff --git a/Vision/VNGenerateOpticalFlowRequestConfiguration.ml b/Vision/VNGenerateOpticalFlowRequestConfiguration.ml deleted file mode 100644 index 5d520ba8..00000000 --- a/Vision/VNGenerateOpticalFlowRequestConfiguration.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateOpticalFlowRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNGeneratePersonInstanceMaskRequest.ml b/Vision/VNGeneratePersonInstanceMaskRequest.ml deleted file mode 100644 index e9c4a360..00000000 --- a/Vision/VNGeneratePersonInstanceMaskRequest.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGeneratePersonInstanceMaskRequest" - -module C = struct - let applicableRevisionForDependentRequestOfClass x ~beingPerformedByRevision self = msg_send ~self ~cmd:(selector "applicableRevisionForDependentRequestOfClass:beingPerformedByRevision:") ~typ:(_Class @-> ullong @-> returning (ullong)) x (ULLong.of_int beingPerformedByRevision) - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let supportedComputeStageDevicesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x -let supportedImageSizeSet self = msg_send ~self ~cmd:(selector "supportedImageSizeSet") ~typ:(returning (id)) -let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error \ No newline at end of file diff --git a/Vision/VNGeneratePersonInstanceMaskRequestConfiguration.ml b/Vision/VNGeneratePersonInstanceMaskRequestConfiguration.ml deleted file mode 100644 index c873eb2a..00000000 --- a/Vision/VNGeneratePersonInstanceMaskRequestConfiguration.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGeneratePersonInstanceMaskRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNGeneratePersonSegmentationRequest.ml b/Vision/VNGeneratePersonSegmentationRequest.ml index 34934323..9265f136 100644 --- a/Vision/VNGeneratePersonSegmentationRequest.ml +++ b/Vision/VNGeneratePersonSegmentationRequest.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/vngeneratepersonsegmentationrequest?language=objc}VNGeneratePersonSegmentationRequest} *) +let self = get_class "VNGeneratePersonSegmentationRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/Vision/VNGeneratePersonSegmentationRequestClass.ml b/Vision/VNGeneratePersonSegmentationRequestClass.ml index 7a1a1de9..aa3759c5 100644 --- a/Vision/VNGeneratePersonSegmentationRequestClass.ml +++ b/Vision/VNGeneratePersonSegmentationRequestClass.ml @@ -4,17 +4,10 @@ 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/vngeneratepersonsegmentationrequest?language=objc}VNGeneratePersonSegmentationRequest} *) -let self = get_class "VNGeneratePersonSegmentationRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) -let new_ self = msg_send ~self ~cmd:(selector "new") ~typ:(returning id) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNGeneratePersonSegmentationRequestConfiguration.ml b/Vision/VNGeneratePersonSegmentationRequestConfiguration.ml index f23c416b..786559d9 100644 --- a/Vision/VNGeneratePersonSegmentationRequestConfiguration.ml +++ b/Vision/VNGeneratePersonSegmentationRequestConfiguration.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/vngeneratepersonsegmentationrequestconfiguration?language=objc}VNGeneratePersonSegmentationRequestConfiguration} *) +let self = get_class "VNGeneratePersonSegmentationRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let outputPixelFormat self = msg_send ~self ~cmd:(selector "outputPixelFormat") ~typ:(returning uint) diff --git a/Vision/VNGeneratePersonSegmentationRequestConfigurationClass.ml b/Vision/VNGeneratePersonSegmentationRequestConfigurationClass.ml deleted file mode 100644 index 3b8a8b8a..00000000 --- a/Vision/VNGeneratePersonSegmentationRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vngeneratepersonsegmentationrequestconfiguration?language=objc}VNGeneratePersonSegmentationRequestConfiguration} *) - -let self = get_class "VNGeneratePersonSegmentationRequestConfiguration" - diff --git a/Vision/VNGeneratePersonSemanticsCompoundRequest.ml b/Vision/VNGeneratePersonSemanticsCompoundRequest.ml deleted file mode 100644 index b359cc86..00000000 --- a/Vision/VNGeneratePersonSemanticsCompoundRequest.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGeneratePersonSemanticsCompoundRequest" - -module C = struct - 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 warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let initWithOriginalRequests x self = msg_send ~self ~cmd:(selector "initWithOriginalRequests:") ~typ:(id @-> returning (id)) x -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session \ No newline at end of file diff --git a/Vision/VNGenerateSegmentationRequest.ml b/Vision/VNGenerateSegmentationRequest.ml deleted file mode 100644 index df2d52d9..00000000 --- a/Vision/VNGenerateSegmentationRequest.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateSegmentationRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let configuredCopyOfSelfWithBalancedQualityLevel self = msg_send ~self ~cmd:(selector "configuredCopyOfSelfWithBalancedQualityLevel") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let outputPixelFormat self = msg_send ~self ~cmd:(selector "outputPixelFormat") ~typ:(returning (uint)) -let performAccurateSegmentationInContext x ~options ~error self = msg_send ~self ~cmd:(selector "performAccurateSegmentationInContext:options:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x options error -let setOutputPixelFormat x self = msg_send ~self ~cmd:(selector "setOutputPixelFormat:") ~typ:(uint @-> returning (void)) x -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNGenerateSegmentationRequestConfiguration.ml b/Vision/VNGenerateSegmentationRequestConfiguration.ml deleted file mode 100644 index 732cb6af..00000000 --- a/Vision/VNGenerateSegmentationRequestConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateSegmentationRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let outputPixelFormat self = msg_send ~self ~cmd:(selector "outputPixelFormat") ~typ:(returning (uint)) -let setOutputPixelFormat x self = msg_send ~self ~cmd:(selector "setOutputPixelFormat:") ~typ:(uint @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNGenerateSkySegmentationRequest.ml b/Vision/VNGenerateSkySegmentationRequest.ml deleted file mode 100644 index 24c84563..00000000 --- a/Vision/VNGenerateSkySegmentationRequest.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateSkySegmentationRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let configuredCopyOfSelfWithBalancedQualityLevel self = msg_send ~self ~cmd:(selector "configuredCopyOfSelfWithBalancedQualityLevel") ~typ:(returning (id)) -let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning (llong)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNGenerateSkySegmentationRequestConfiguration.ml b/Vision/VNGenerateSkySegmentationRequestConfiguration.ml deleted file mode 100644 index 643b699d..00000000 --- a/Vision/VNGenerateSkySegmentationRequestConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNGenerateSkySegmentationRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let qualityLevel self = msg_send ~self ~cmd:(selector "qualityLevel") ~typ:(returning (llong)) -let setQualityLevel x self = msg_send ~self ~cmd:(selector "setQualityLevel:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/Vision/VNGreedyClusteringReadOnly.ml b/Vision/VNGreedyClusteringReadOnly.ml index be8bf969..859a4dec 100644 --- a/Vision/VNGreedyClusteringReadOnly.ml +++ b/Vision/VNGreedyClusteringReadOnly.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/vngreedyclusteringreadonly?language=objc}VNGreedyClusteringReadOnly} *) +let self = get_class "VNGreedyClusteringReadOnly" + let cancelClustering x self = msg_send ~self ~cmd:(selector "cancelClustering:") ~typ:((ptr id) @-> returning bool) x let convertUpdatePairsToClusters x self = msg_send ~self ~cmd:(selector "convertUpdatePairsToClusters:") ~typ:((ptr void) @-> returning id) x let getAllClustersFromStateAndReturnError x self = msg_send ~self ~cmd:(selector "getAllClustersFromStateAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNGreedyClusteringReadOnlyClass.ml b/Vision/VNGreedyClusteringReadOnlyClass.ml index afab5d40..732e8674 100644 --- a/Vision/VNGreedyClusteringReadOnlyClass.ml +++ b/Vision/VNGreedyClusteringReadOnlyClass.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/vngreedyclusteringreadonly?language=objc}VNGreedyClusteringReadOnly} *) -let self = get_class "VNGreedyClusteringReadOnly" - let addFaceObservations x ~toFaceDescriptorBuffer self = msg_send ~self ~cmd:(selector "addFaceObservations:toFaceDescriptorBuffer:") ~typ:(id @-> (ptr void) @-> returning void) x toFaceDescriptorBuffer let addFaceObservations' x ~withGroupingIdentifiers ~toFaceDescriptorBuffer self = msg_send ~self ~cmd:(selector "addFaceObservations:withGroupingIdentifiers:toFaceDescriptorBuffer:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x withGroupingIdentifiers toFaceDescriptorBuffer let addPersonData x ~withGroupingIdentifiers ~toFaceDescriptorBuffer self = msg_send ~self ~cmd:(selector "addPersonData:withGroupingIdentifiers:toFaceDescriptorBuffer:") ~typ:(id @-> id @-> (ptr void) @-> returning void) x withGroupingIdentifiers toFaceDescriptorBuffer diff --git a/Vision/VNGreedyClusteringReadWrite.ml b/Vision/VNGreedyClusteringReadWrite.ml index 647d16e6..8cef07b8 100644 --- a/Vision/VNGreedyClusteringReadWrite.ml +++ b/Vision/VNGreedyClusteringReadWrite.ml @@ -5,8 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNGreedyClusteringReadWrite" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vngreedyclusteringreadwrite?language=objc}VNGreedyClusteringReadWrite} *) -let getClustersWithOptions x ~error self = msg_send ~self ~cmd:(selector "getClustersWithOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let initWithOptions x ~error self = msg_send ~self ~cmd:(selector "initWithOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file +let self = get_class "VNGreedyClusteringReadWrite" + +let getClustersWithOptions x ~error self = msg_send ~self ~cmd:(selector "getClustersWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error +let initWithOptions x ~error self = msg_send ~self ~cmd:(selector "initWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNHeatMapExtrema.ml b/Vision/VNHeatMapExtrema.ml index c2bceeda..6eeff8de 100644 --- a/Vision/VNHeatMapExtrema.ml +++ b/Vision/VNHeatMapExtrema.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/vnheatmapextrema?language=objc}VNHeatMapExtrema} *) -let computeRectFromExtremaUsingThreshold x ~vImage self = msg_send ~self ~cmd:(selector "computeRectFromExtremaUsingThreshold:vImage:") ~typ:(float @-> ptr void @-> returning CGRect.t) x vImage +let self = get_class "VNHeatMapExtrema" + +let computeRectFromExtremaUsingThreshold x ~vImage self = msg_send ~self ~cmd:(selector "computeRectFromExtremaUsingThreshold:vImage:") ~typ:(float @-> void @-> returning CGRect.t) x vImage let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let updateExtrema x ~x_ ~y self = msg_send ~self ~cmd:(selector "updateExtrema:x:y:") ~typ:(float @-> int @-> int @-> returning void) x x_ y \ No newline at end of file diff --git a/Vision/VNHeatMapExtremaClass.ml b/Vision/VNHeatMapExtremaClass.ml deleted file mode 100644 index 3b866250..00000000 --- a/Vision/VNHeatMapExtremaClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnheatmapextrema?language=objc}VNHeatMapExtrema} *) - -let self = get_class "VNHeatMapExtrema" - diff --git a/Vision/VNHomographicImageRegistrationDetector.ml b/Vision/VNHomographicImageRegistrationDetector.ml index 3ca9f888..1b878834 100644 --- a/Vision/VNHomographicImageRegistrationDetector.ml +++ b/Vision/VNHomographicImageRegistrationDetector.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/vnhomographicimageregistrationdetector?language=objc}VNHomographicImageRegistrationDetector} *) +let self = get_class "VNHomographicImageRegistrationDetector" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNHomographicImageRegistrationDetectorClass.ml b/Vision/VNHomographicImageRegistrationDetectorClass.ml deleted file mode 100644 index fba108e2..00000000 --- a/Vision/VNHomographicImageRegistrationDetectorClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhomographicimageregistrationdetector?language=objc}VNHomographicImageRegistrationDetector} *) - -let self = get_class "VNHomographicImageRegistrationDetector" - diff --git a/Vision/VNHomographicImageRegistrationRequest.ml b/Vision/VNHomographicImageRegistrationRequest.ml index ca2827cb..bea8d4e6 100644 --- a/Vision/VNHomographicImageRegistrationRequest.ml +++ b/Vision/VNHomographicImageRegistrationRequest.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/vnhomographicimageregistrationrequest?language=objc}VNHomographicImageRegistrationRequest} *) +let self = get_class "VNHomographicImageRegistrationRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let wantsSequencedRequestObservationsRecording self = msg_send ~self ~cmd:(selector "wantsSequencedRequestObservationsRecording") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNHomographicImageRegistrationRequestClass.ml b/Vision/VNHomographicImageRegistrationRequestClass.ml deleted file mode 100644 index d78dbe4e..00000000 --- a/Vision/VNHomographicImageRegistrationRequestClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhomographicimageregistrationrequest?language=objc}VNHomographicImageRegistrationRequest} *) - -let self = get_class "VNHomographicImageRegistrationRequest" - diff --git a/Vision/VNHomographyTrackerState.ml b/Vision/VNHomographyTrackerState.ml index d6a17775..777d3abb 100644 --- a/Vision/VNHomographyTrackerState.ml +++ b/Vision/VNHomographyTrackerState.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/vnhomographytrackerstate?language=objc}VNHomographyTrackerState} *) +let self = get_class "VNHomographyTrackerState" + let _ICReportFrameAnalysis x ~forPresentationTime ~withStats self = msg_send ~self ~cmd:(selector "ICReportFrameAnalysis:forPresentationTime:withStats:") ~typ:(id @-> void @-> id @-> returning void) x forPresentationTime withStats let _ICShouldBeCanceled self = msg_send ~self ~cmd:(selector "ICShouldBeCanceled") ~typ:(returning bool) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) diff --git a/Vision/VNHomographyTrackerStateClass.ml b/Vision/VNHomographyTrackerStateClass.ml deleted file mode 100644 index 7ee55149..00000000 --- a/Vision/VNHomographyTrackerStateClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhomographytrackerstate?language=objc}VNHomographyTrackerState} *) - -let self = get_class "VNHomographyTrackerState" - diff --git a/Vision/VNHomologousObservationClassCompoundRequest.ml b/Vision/VNHomologousObservationClassCompoundRequest.ml index 4ba19b13..ebce0db7 100644 --- a/Vision/VNHomologousObservationClassCompoundRequest.ml +++ b/Vision/VNHomologousObservationClassCompoundRequest.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/vnhomologousobservationclasscompoundrequest?language=objc}VNHomologousObservationClassCompoundRequest} *) +let self = get_class "VNHomologousObservationClassCompoundRequest" + let assignOriginalRequestsResultsFromObservations x ~obtainedInPerformingContext self = msg_send ~self ~cmd:(selector "assignOriginalRequestsResultsFromObservations:obtainedInPerformingContext:") ~typ:(id @-> id @-> returning void) x obtainedInPerformingContext let initWithSubrequests x self = msg_send ~self ~cmd:(selector "initWithSubrequests:") ~typ:(id @-> returning id) x let originalRequestsOfClass x self = msg_send ~self ~cmd:(selector "originalRequestsOfClass:") ~typ:(_Class @-> returning id) x \ No newline at end of file diff --git a/Vision/VNHomologousObservationClassCompoundRequestClass.ml b/Vision/VNHomologousObservationClassCompoundRequestClass.ml deleted file mode 100644 index 80e8e08d..00000000 --- a/Vision/VNHomologousObservationClassCompoundRequestClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhomologousobservationclasscompoundrequest?language=objc}VNHomologousObservationClassCompoundRequest} *) - -let self = get_class "VNHomologousObservationClassCompoundRequest" - diff --git a/Vision/VNHorizonDetector.ml b/Vision/VNHorizonDetector.ml index 835772ad..b0f76570 100644 --- a/Vision/VNHorizonDetector.ml +++ b/Vision/VNHorizonDetector.ml @@ -5,8 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNHorizonDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhorizondetector?language=objc}VNHorizonDetector} *) -let needsMetalContext self = msg_send ~self ~cmd:(selector "needsMetalContext") ~typ:(returning (bool)) -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let self = get_class "VNHorizonDetector" + +let needsMetalContext self = msg_send ~self ~cmd:(selector "needsMetalContext") ~typ:(returning bool) +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNHorizonObservation.ml b/Vision/VNHorizonObservation.ml index b311474a..7889af52 100644 --- a/Vision/VNHorizonObservation.ml +++ b/Vision/VNHorizonObservation.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/vnhorizonobservation?language=objc}VNHorizonObservation} *) +let self = get_class "VNHorizonObservation" + let angle self = msg_send ~self ~cmd:(selector "angle") ~typ:(returning double) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNHorizonObservationClass.ml b/Vision/VNHorizonObservationClass.ml index 8ac536bc..be312891 100644 --- a/Vision/VNHorizonObservationClass.ml +++ b/Vision/VNHorizonObservationClass.ml @@ -4,16 +4,10 @@ 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/vnhorizonobservation?language=objc}VNHorizonObservation} *) -let self = get_class "VNHorizonObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNHumanBody3DOutput.ml b/Vision/VNHumanBody3DOutput.ml deleted file mode 100644 index a4401427..00000000 --- a/Vision/VNHumanBody3DOutput.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNHumanBody3DOutput" - -let initWithSkeleton x ~intrinsics ~inputSize self = msg_send ~self ~cmd:(selector "initWithSkeleton:intrinsics:inputSize:") ~typ:(id @-> ptr void @-> CGSize.t @-> returning (id)) x intrinsics inputSize -let inputSize self = msg_send_stret ~self ~cmd:(selector "inputSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let liftedSkeleton self = msg_send ~self ~cmd:(selector "liftedSkeleton") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNHumanBodyPose3DDetector.ml b/Vision/VNHumanBodyPose3DDetector.ml deleted file mode 100644 index 7591a4cd..00000000 --- a/Vision/VNHumanBodyPose3DDetector.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNHumanBodyPose3DDetector" - -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNHumanBodyPose3DObservation.ml b/Vision/VNHumanBodyPose3DObservation.ml deleted file mode 100644 index 66519d07..00000000 --- a/Vision/VNHumanBodyPose3DObservation.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNHumanBodyPose3DObservation" - -let availableJointNames self = msg_send ~self ~cmd:(selector "availableJointNames") ~typ:(returning (id)) -let availableJointsGroupNames self = msg_send ~self ~cmd:(selector "availableJointsGroupNames") ~typ:(returning (id)) -let bodyHeight self = msg_send ~self ~cmd:(selector "bodyHeight") ~typ:(returning (float)) -let debugQuickLookObject self = msg_send ~self ~cmd:(selector "debugQuickLookObject") ~typ:(returning (id)) -let getCameraRelativePosition x ~forJointName ~error self = msg_send ~self ~cmd:(selector "getCameraRelativePosition:forJointName:error:") ~typ:(ptr void @-> id @-> ptr (id) @-> returning (bool)) x forJointName error -let heightEstimation self = msg_send ~self ~cmd:(selector "heightEstimation") ~typ:(returning (llong)) -let parentJointNameForJointName x self = msg_send ~self ~cmd:(selector "parentJointNameForJointName:") ~typ:(id @-> returning (id)) x -let pointInImageForJointName x ~error self = msg_send ~self ~cmd:(selector "pointInImageForJointName:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let recognizedPointForJointName x ~error self = msg_send ~self ~cmd:(selector "recognizedPointForJointName:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let recognizedPointsForJointsGroupName x ~error self = msg_send ~self ~cmd:(selector "recognizedPointsForJointsGroupName:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file diff --git a/Vision/VNHumanBodyPose3DSpecifier.ml b/Vision/VNHumanBodyPose3DSpecifier.ml deleted file mode 100644 index b26a0a80..00000000 --- a/Vision/VNHumanBodyPose3DSpecifier.ml +++ /dev/null @@ -1,23 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNHumanBodyPose3DSpecifier" - -module C = struct - let supportedHumanBodyPose3DKeypointsRev1 self = msg_send ~self ~cmd:(selector "supportedHumanBodyPose3DKeypointsRev1") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning (id)) -let bodyHeight self = msg_send ~self ~cmd:(selector "bodyHeight") ~typ:(returning (float)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let heightEstimatedScale self = msg_send ~self ~cmd:(selector "heightEstimatedScale") ~typ:(returning (float)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithHumanBody3DOutput x ~originatingRequestSpecifier self = msg_send ~self ~cmd:(selector "initWithHumanBody3DOutput:originatingRequestSpecifier:") ~typ:(id @-> id @-> returning (id)) x originatingRequestSpecifier -let inputSize self = msg_send_stret ~self ~cmd:(selector "inputSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t -let pointKeyGroupLabelsMapping self = msg_send ~self ~cmd:(selector "pointKeyGroupLabelsMapping") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNHumanBodyPoseDetector.ml b/Vision/VNHumanBodyPoseDetector.ml index 81ddb948..0a8994c3 100644 --- a/Vision/VNHumanBodyPoseDetector.ml +++ b/Vision/VNHumanBodyPoseDetector.ml @@ -5,12 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNHumanBodyPoseDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhumanbodyposedetector?language=objc}VNHumanBodyPoseDetector} *) -module Class = struct - let recognizedPointsObservationClass self = msg_send ~self ~cmd:(selector "recognizedPointsObservationClass") ~typ:(returning (_Class)) -end +let self = get_class "VNHumanBodyPoseDetector" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let vcpPoseRequestSetupOptionsForDetectorOptions x ~error self = msg_send ~self ~cmd:(selector "vcpPoseRequestSetupOptionsForDetectorOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let vcpPoseRequestSetupOptionsForDetectorOptions x ~error self = msg_send ~self ~cmd:(selector "vcpPoseRequestSetupOptionsForDetectorOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNHumanBodyPoseDetectorClass.ml b/Vision/VNHumanBodyPoseDetectorClass.ml new file mode 100644 index 00000000..08336a18 --- /dev/null +++ b/Vision/VNHumanBodyPoseDetectorClass.ml @@ -0,0 +1,12 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhumanbodyposedetector?language=objc}VNHumanBodyPoseDetector} *) + +let recognizedPointsObservationClass self = msg_send ~self ~cmd:(selector "recognizedPointsObservationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNHumanBodyPoseObservation.ml b/Vision/VNHumanBodyPoseObservation.ml index c9cd6bb7..68f52f13 100644 --- a/Vision/VNHumanBodyPoseObservation.ml +++ b/Vision/VNHumanBodyPoseObservation.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/vnhumanbodyposeobservation?language=objc}VNHumanBodyPoseObservation} *) +let self = get_class "VNHumanBodyPoseObservation" + let availableJointNames self = msg_send ~self ~cmd:(selector "availableJointNames") ~typ:(returning id) let availableJointsGroupNames self = msg_send ~self ~cmd:(selector "availableJointsGroupNames") ~typ:(returning id) let recognizedPointForJointName x ~error self = msg_send ~self ~cmd:(selector "recognizedPointForJointName:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNHumanBodyPoseObservationClass.ml b/Vision/VNHumanBodyPoseObservationClass.ml deleted file mode 100644 index b1cf8c9c..00000000 --- a/Vision/VNHumanBodyPoseObservationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhumanbodyposeobservation?language=objc}VNHumanBodyPoseObservation} *) - -let self = get_class "VNHumanBodyPoseObservation" - diff --git a/Vision/VNHumanBodyRecognizedPoint3D.ml b/Vision/VNHumanBodyRecognizedPoint3D.ml deleted file mode 100644 index 787a1625..00000000 --- a/Vision/VNHumanBodyRecognizedPoint3D.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNHumanBodyRecognizedPoint3D" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithModelPosition x ~localPosition ~jointName ~parentJoint self = msg_send ~self ~cmd:(selector "initWithModelPosition:localPosition:jointName:parentJoint:") ~typ:(ptr void @-> ptr void @-> id @-> id @-> returning (id)) x localPosition jointName parentJoint -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let parentJoint self = msg_send ~self ~cmd:(selector "parentJoint") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNHumanHandPoseDetector.ml b/Vision/VNHumanHandPoseDetector.ml index 2f36ab9c..72dc39ba 100644 --- a/Vision/VNHumanHandPoseDetector.ml +++ b/Vision/VNHumanHandPoseDetector.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/vnhumanhandposedetector?language=objc}VNHumanHandPoseDetector} *) +let self = get_class "VNHumanHandPoseDetector" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let vcpPoseRequestRuntimeOptionsForDetectorOptions x ~error self = msg_send ~self ~cmd:(selector "vcpPoseRequestRuntimeOptionsForDetectorOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let vcpPoseRequestSetupOptionsForDetectorOptions x ~error self = msg_send ~self ~cmd:(selector "vcpPoseRequestSetupOptionsForDetectorOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNHumanHandPoseDetectorClass.ml b/Vision/VNHumanHandPoseDetectorClass.ml index 7a0b87a3..a7ad27f0 100644 --- a/Vision/VNHumanHandPoseDetectorClass.ml +++ b/Vision/VNHumanHandPoseDetectorClass.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/vnhumanhandposedetector?language=objc}VNHumanHandPoseDetector} *) -let self = get_class "VNHumanHandPoseDetector" - let recognizedPointsObservationClass self = msg_send ~self ~cmd:(selector "recognizedPointsObservationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNHumanHandPoseObservation.ml b/Vision/VNHumanHandPoseObservation.ml index d696a00f..e7ae2d2c 100644 --- a/Vision/VNHumanHandPoseObservation.ml +++ b/Vision/VNHumanHandPoseObservation.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/vnhumanhandposeobservation?language=objc}VNHumanHandPoseObservation} *) +let self = get_class "VNHumanHandPoseObservation" + let availableJointNames self = msg_send ~self ~cmd:(selector "availableJointNames") ~typ:(returning id) let availableJointsGroupNames self = msg_send ~self ~cmd:(selector "availableJointsGroupNames") ~typ:(returning id) let chirality self = msg_send ~self ~cmd:(selector "chirality") ~typ:(returning llong) diff --git a/Vision/VNHumanHandPoseObservationClass.ml b/Vision/VNHumanHandPoseObservationClass.ml deleted file mode 100644 index 97c852e6..00000000 --- a/Vision/VNHumanHandPoseObservationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnhumanhandposeobservation?language=objc}VNHumanHandPoseObservation} *) - -let self = get_class "VNHumanHandPoseObservation" - diff --git a/Vision/VNHumanObservation.ml b/Vision/VNHumanObservation.ml index 8efe6410..56e224fd 100644 --- a/Vision/VNHumanObservation.ml +++ b/Vision/VNHumanObservation.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/vnhumanobservation?language=objc}VNHumanObservation} *) +let self = get_class "VNHumanObservation" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x diff --git a/Vision/VNHumanObservationClass.ml b/Vision/VNHumanObservationClass.ml index 74bd6d3c..1286b5a6 100644 --- a/Vision/VNHumanObservationClass.ml +++ b/Vision/VNHumanObservationClass.ml @@ -4,16 +4,10 @@ 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/vnhumanobservation?language=objc}VNHumanObservation} *) -let self = get_class "VNHumanObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNHumanPoseDetector.ml b/Vision/VNHumanPoseDetector.ml index b71831aa..5dd809d0 100644 --- a/Vision/VNHumanPoseDetector.ml +++ b/Vision/VNHumanPoseDetector.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/vnhumanposedetector?language=objc}VNHumanPoseDetector} *) +let self = get_class "VNHumanPoseDetector" + let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler let vcpPoseRequestRuntimeOptionsForDetectorOptions x ~error self = msg_send ~self ~cmd:(selector "vcpPoseRequestRuntimeOptionsForDetectorOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let vcpPoseRequestSetupOptionsForDetectorOptions x ~error self = msg_send ~self ~cmd:(selector "vcpPoseRequestSetupOptionsForDetectorOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNHumanPoseDetectorClass.ml b/Vision/VNHumanPoseDetectorClass.ml index ccdbb8b1..a57855b5 100644 --- a/Vision/VNHumanPoseDetectorClass.ml +++ b/Vision/VNHumanPoseDetectorClass.ml @@ -4,16 +4,10 @@ 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/vnhumanposedetector?language=objc}VNHumanPoseDetector} *) -let self = get_class "VNHumanPoseDetector" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let recognizedPointsObservationClass self = msg_send ~self ~cmd:(selector "recognizedPointsObservationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNIdentifyJunkRequest.ml b/Vision/VNIdentifyJunkRequest.ml index 7b41edb5..f58d4a43 100644 --- a/Vision/VNIdentifyJunkRequest.ml +++ b/Vision/VNIdentifyJunkRequest.ml @@ -5,8 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNIdentifyJunkRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnidentifyjunkrequest?language=objc}VNIdentifyJunkRequest} *) -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) x error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) x inContext error \ No newline at end of file +let self = get_class "VNIdentifyJunkRequest" + +let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error +let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNImageAestheticsObservation.ml b/Vision/VNImageAestheticsObservation.ml index 8c123973..46d562d5 100644 --- a/Vision/VNImageAestheticsObservation.ml +++ b/Vision/VNImageAestheticsObservation.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/vnimageaestheticsobservation?language=objc}VNImageAestheticsObservation} *) +let self = get_class "VNImageAestheticsObservation" + let aestheticScore self = msg_send ~self ~cmd:(selector "aestheticScore") ~typ:(returning float) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNImageAestheticsObservationClass.ml b/Vision/VNImageAestheticsObservationClass.ml index 0db40dc3..99d02fce 100644 --- a/Vision/VNImageAestheticsObservationClass.ml +++ b/Vision/VNImageAestheticsObservationClass.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/vnimageaestheticsobservation?language=objc}VNImageAestheticsObservation} *) -let self = get_class "VNImageAestheticsObservation" - let allScorePropertyNames self = msg_send ~self ~cmd:(selector "allScorePropertyNames") ~typ:(returning id) let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageAlignmentObservation.ml b/Vision/VNImageAlignmentObservation.ml index 0240e8a5..72be334f 100644 --- a/Vision/VNImageAlignmentObservation.ml +++ b/Vision/VNImageAlignmentObservation.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/vnimagealignmentobservation?language=objc}VNImageAlignmentObservation} *) +let self = get_class "VNImageAlignmentObservation" + let alignmentTransform self = msg_send ~self ~cmd:(selector "alignmentTransform") ~typ:(returning CGAffineTransform.t) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let floatingImageSignature self = msg_send ~self ~cmd:(selector "floatingImageSignature") ~typ:(returning id) diff --git a/Vision/VNImageAlignmentObservationClass.ml b/Vision/VNImageAlignmentObservationClass.ml index bbc2da76..079df2f5 100644 --- a/Vision/VNImageAlignmentObservationClass.ml +++ b/Vision/VNImageAlignmentObservationClass.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/vnimagealignmentobservation?language=objc}VNImageAlignmentObservation} *) -let self = get_class "VNImageAlignmentObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageAnalyzerBasedDetector.ml b/Vision/VNImageAnalyzerBasedDetector.ml index ae904611..0c26a015 100644 --- a/Vision/VNImageAnalyzerBasedDetector.ml +++ b/Vision/VNImageAnalyzerBasedDetector.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/vnimageanalyzerbaseddetector?language=objc}VNImageAnalyzerBasedDetector} *) +let self = get_class "VNImageAnalyzerBasedDetector" + let analysisTypesForProcessOptions x self = msg_send ~self ~cmd:(selector "analysisTypesForProcessOptions:") ~typ:(id @-> returning uint) x let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let configureImageAnalyzerOptions x ~error self = msg_send ~self ~cmd:(selector "configureImageAnalyzerOptions:error:") ~typ:((ptr void) @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNImageAnalyzerBasedDetectorClass.ml b/Vision/VNImageAnalyzerBasedDetectorClass.ml index 789c59fc..c42550de 100644 --- a/Vision/VNImageAnalyzerBasedDetectorClass.ml +++ b/Vision/VNImageAnalyzerBasedDetectorClass.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/vnimageanalyzerbaseddetector?language=objc}VNImageAnalyzerBasedDetector} *) -let self = get_class "VNImageAnalyzerBasedDetector" - let analysisPixelFormatTypeForConfiguration x self = msg_send ~self ~cmd:(selector "analysisPixelFormatTypeForConfiguration:") ~typ:(id @-> returning uint) x let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let inputImageBlobNameForConfiguration x self = msg_send ~self ~cmd:(selector "inputImageBlobNameForConfiguration:") ~typ:(id @-> returning id) x diff --git a/Vision/VNImageAnalyzerCompoundRequest.ml b/Vision/VNImageAnalyzerCompoundRequest.ml index 59554525..3435fd47 100644 --- a/Vision/VNImageAnalyzerCompoundRequest.ml +++ b/Vision/VNImageAnalyzerCompoundRequest.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/vnimageanalyzercompoundrequest?language=objc}VNImageAnalyzerCompoundRequest} *) +let self = get_class "VNImageAnalyzerCompoundRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let initWithDetectorType x ~groupingConfiguration self = msg_send ~self ~cmd:(selector "initWithDetectorType:groupingConfiguration:") ~typ:(id @-> id @-> returning id) x groupingConfiguration let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNImageAnalyzerCompoundRequestClass.ml b/Vision/VNImageAnalyzerCompoundRequestClass.ml index 446b4bb0..3059fd72 100644 --- a/Vision/VNImageAnalyzerCompoundRequestClass.ml +++ b/Vision/VNImageAnalyzerCompoundRequestClass.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/vnimageanalyzercompoundrequest?language=objc}VNImageAnalyzerCompoundRequest} *) -let self = get_class "VNImageAnalyzerCompoundRequest" - 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) let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNImageAnalyzerCompoundRequestConfiguration.ml b/Vision/VNImageAnalyzerCompoundRequestConfiguration.ml index 8effbb64..86e9bc60 100644 --- a/Vision/VNImageAnalyzerCompoundRequestConfiguration.ml +++ b/Vision/VNImageAnalyzerCompoundRequestConfiguration.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/vnimageanalyzercompoundrequestconfiguration?language=objc}VNImageAnalyzerCompoundRequestConfiguration} *) +let self = get_class "VNImageAnalyzerCompoundRequestConfiguration" + 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/VNImageAnalyzerCompoundRequestConfigurationClass.ml b/Vision/VNImageAnalyzerCompoundRequestConfigurationClass.ml deleted file mode 100644 index c07f7a2f..00000000 --- a/Vision/VNImageAnalyzerCompoundRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnimageanalyzercompoundrequestconfiguration?language=objc}VNImageAnalyzerCompoundRequestConfiguration} *) - -let self = get_class "VNImageAnalyzerCompoundRequestConfiguration" - diff --git a/Vision/VNImageAnalyzerCompoundRequestGroupingConfiguration.ml b/Vision/VNImageAnalyzerCompoundRequestGroupingConfiguration.ml deleted file mode 100644 index 72212730..00000000 --- a/Vision/VNImageAnalyzerCompoundRequestGroupingConfiguration.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerCompoundRequestGroupingConfiguration" - -let addOriginalRequest x ~forKind self = msg_send ~self ~cmd:(selector "addOriginalRequest:forKind:") ~typ:(id @-> ullong @-> returning (void)) x (ULLong.of_int forKind) -let addSceneConfigurationForOriginalRequest x self = msg_send ~self ~cmd:(selector "addSceneConfigurationForOriginalRequest:") ~typ:(id @-> returning (id)) x -let addTilingWarningRecorder x self = msg_send ~self ~cmd:(selector "addTilingWarningRecorder:") ~typ:(id @-> returning (void)) x -let computeStageDeviceAssignments self = msg_send ~self ~cmd:(selector "computeStageDeviceAssignments") ~typ:(returning (id)) -let detectorConfigurationOptions self = msg_send ~self ~cmd:(selector "detectorConfigurationOptions") ~typ:(returning (id)) -let enumerateOriginalRequestsByKindUsingBlock x self = msg_send ~self ~cmd:(selector "enumerateOriginalRequestsByKindUsingBlock:") ~typ:(ptr void @-> returning (void)) x -let originalRequests self = msg_send ~self ~cmd:(selector "originalRequests") ~typ:(returning (id)) -let setDetectorConfigurationOption x ~value self = msg_send ~self ~cmd:(selector "setDetectorConfigurationOption:value:") ~typ:(id @-> id @-> returning (void)) x value \ No newline at end of file diff --git a/Vision/VNImageAnalyzerCompoundRequestGroupingConfigurations.ml b/Vision/VNImageAnalyzerCompoundRequestGroupingConfigurations.ml deleted file mode 100644 index 3b988dea..00000000 --- a/Vision/VNImageAnalyzerCompoundRequestGroupingConfigurations.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerCompoundRequestGroupingConfigurations" - -let detectorModel self = msg_send ~self ~cmd:(selector "detectorModel") ~typ:(returning (ullong)) -let initWithDetectorModel x self = msg_send ~self ~cmd:(selector "initWithDetectorModel:") ~typ:(ullong @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNImageAnalyzerMultiDetector.ml b/Vision/VNImageAnalyzerMultiDetector.ml index 3dfa19b1..b700b763 100644 --- a/Vision/VNImageAnalyzerMultiDetector.ml +++ b/Vision/VNImageAnalyzerMultiDetector.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/vnimageanalyzermultidetector?language=objc}VNImageAnalyzerMultiDetector} *) +let self = get_class "VNImageAnalyzerMultiDetector" + let allJunkIdentifiersForOptions x ~error self = msg_send ~self ~cmd:(selector "allJunkIdentifiersForOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let allRecognizedObjectsIdentifiersWithOptions x ~error self = msg_send ~self ~cmd:(selector "allRecognizedObjectsIdentifiersWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let allSceneIdentifiersWithOptions x ~error self = msg_send ~self ~cmd:(selector "allSceneIdentifiersWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNImageAnalyzerMultiDetectorAnalysisConfiguration.ml b/Vision/VNImageAnalyzerMultiDetectorAnalysisConfiguration.ml deleted file mode 100644 index f93614d2..00000000 --- a/Vision/VNImageAnalyzerMultiDetectorAnalysisConfiguration.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerMultiDetectorAnalysisConfiguration" - -let analysisTypes self = msg_send ~self ~cmd:(selector "analysisTypes") ~typ:(returning (uint)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let labelsListType self = msg_send ~self ~cmd:(selector "labelsListType") ~typ:(returning (uint)) -let observationsRecipient self = msg_send ~self ~cmd:(selector "observationsRecipient") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNImageAnalyzerMultiDetectorClass.ml b/Vision/VNImageAnalyzerMultiDetectorClass.ml index d95448e9..f251e35d 100644 --- a/Vision/VNImageAnalyzerMultiDetectorClass.ml +++ b/Vision/VNImageAnalyzerMultiDetectorClass.ml @@ -4,19 +4,14 @@ 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/vnimageanalyzermultidetector?language=objc}VNImageAnalyzerMultiDetector} *) -let self = get_class "VNImageAnalyzerMultiDetector" - let blacklistForModel x self = msg_send ~self ~cmd:(selector "blacklistForModel:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) +let createHierarchicalModelForMultiDetectorModel x ~error self = msg_send ~self ~cmd:(selector "createHierarchicalModelForMultiDetectorModel:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> (ptr id) @-> returning _Class) x error let modelForRequestClass x ~revision self = msg_send ~self ~cmd:(selector "modelForRequestClass:revision:") ~typ:(_Class @-> ullong @-> returning ullong) x (ULLong.of_int revision) let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning void) x diff --git a/Vision/VNImageAnalyzerMultiDetectorEntityNetClassificationConfiguration.ml b/Vision/VNImageAnalyzerMultiDetectorEntityNetClassificationConfiguration.ml deleted file mode 100644 index cfda9bd7..00000000 --- a/Vision/VNImageAnalyzerMultiDetectorEntityNetClassificationConfiguration.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerMultiDetectorEntityNetClassificationConfiguration" - -let analysisTypes self = msg_send ~self ~cmd:(selector "analysisTypes") ~typ:(returning (uint)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disallowedList self = msg_send ~self ~cmd:(selector "disallowedList") ~typ:(returning (id)) -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let labelsListType self = msg_send ~self ~cmd:(selector "labelsListType") ~typ:(returning (uint)) -let maximumLabels self = msg_send ~self ~cmd:(selector "maximumLabels") ~typ:(returning (ullong)) -let minimumConfidence self = msg_send ~self ~cmd:(selector "minimumConfidence") ~typ:(returning (float)) -let setDisallowedList x self = msg_send ~self ~cmd:(selector "setDisallowedList:") ~typ:(id @-> returning (void)) x -let setMaximumLabels x self = msg_send ~self ~cmd:(selector "setMaximumLabels:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumConfidence x self = msg_send ~self ~cmd:(selector "setMinimumConfidence:") ~typ:(float @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNImageAnalyzerMultiDetectorRecognizeObjectsConfiguration.ml b/Vision/VNImageAnalyzerMultiDetectorRecognizeObjectsConfiguration.ml deleted file mode 100644 index 32bb7312..00000000 --- a/Vision/VNImageAnalyzerMultiDetectorRecognizeObjectsConfiguration.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerMultiDetectorRecognizeObjectsConfiguration" - -let analysisTypes self = msg_send ~self ~cmd:(selector "analysisTypes") ~typ:(returning (uint)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let disallowedList self = msg_send ~self ~cmd:(selector "disallowedList") ~typ:(returning (id)) -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let labelsListType self = msg_send ~self ~cmd:(selector "labelsListType") ~typ:(returning (uint)) -let minimumDetectionConfidence self = msg_send ~self ~cmd:(selector "minimumDetectionConfidence") ~typ:(returning (float)) -let nonMaximumSuppressionThreshold self = msg_send ~self ~cmd:(selector "nonMaximumSuppressionThreshold") ~typ:(returning (float)) -let setDisallowedList x self = msg_send ~self ~cmd:(selector "setDisallowedList:") ~typ:(id @-> returning (void)) x -let setMinimumDetectionConfidence x self = msg_send ~self ~cmd:(selector "setMinimumDetectionConfidence:") ~typ:(float @-> returning (void)) x -let setNonMaximumSuppressionThreshold x self = msg_send ~self ~cmd:(selector "setNonMaximumSuppressionThreshold:") ~typ:(float @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNImageAnalyzerMultiDetectorSceneClassificationConfiguration.ml b/Vision/VNImageAnalyzerMultiDetectorSceneClassificationConfiguration.ml deleted file mode 100644 index 68380f31..00000000 --- a/Vision/VNImageAnalyzerMultiDetectorSceneClassificationConfiguration.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerMultiDetectorSceneClassificationConfiguration" - -let analysisTypes self = msg_send ~self ~cmd:(selector "analysisTypes") ~typ:(returning (uint)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let customHierarchy self = msg_send ~self ~cmd:(selector "customHierarchy") ~typ:(returning (id)) -let disallowedList self = msg_send ~self ~cmd:(selector "disallowedList") ~typ:(returning (id)) -let initWithObservationsRecipient x self = msg_send ~self ~cmd:(selector "initWithObservationsRecipient:") ~typ:(id @-> returning (id)) x -let labelsListType self = msg_send ~self ~cmd:(selector "labelsListType") ~typ:(returning (uint)) -let maximumHierarchicalLabels self = msg_send ~self ~cmd:(selector "maximumHierarchicalLabels") ~typ:(returning (ullong)) -let maximumLeafLabels self = msg_send ~self ~cmd:(selector "maximumLeafLabels") ~typ:(returning (ullong)) -let minimumConfidence self = msg_send ~self ~cmd:(selector "minimumConfidence") ~typ:(returning (float)) -let setCustomHierarchy x self = msg_send ~self ~cmd:(selector "setCustomHierarchy:") ~typ:(id @-> returning (void)) x -let setDisallowedList x self = msg_send ~self ~cmd:(selector "setDisallowedList:") ~typ:(id @-> returning (void)) x -let setMaximumHierarchicalLabels x self = msg_send ~self ~cmd:(selector "setMaximumHierarchicalLabels:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMaximumLeafLabels x self = msg_send ~self ~cmd:(selector "setMaximumLeafLabels:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setMinimumConfidence x self = msg_send ~self ~cmd:(selector "setMinimumConfidence:") ~typ:(float @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNImageAnalyzerMultiDetectorSceneprintConfiguration.ml b/Vision/VNImageAnalyzerMultiDetectorSceneprintConfiguration.ml deleted file mode 100644 index c5a598fb..00000000 --- a/Vision/VNImageAnalyzerMultiDetectorSceneprintConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageAnalyzerMultiDetectorSceneprintConfiguration" - -let analysisTypes self = msg_send ~self ~cmd:(selector "analysisTypes") ~typ:(returning (uint)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let includeLabelsAndConfidences self = msg_send ~self ~cmd:(selector "includeLabelsAndConfidences") ~typ:(returning (bool)) -let setIncludeLabelsAndConfidences x self = msg_send ~self ~cmd:(selector "setIncludeLabelsAndConfidences:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNImageBasedRequest.ml b/Vision/VNImageBasedRequest.ml index d9c7d152..b91099a9 100644 --- a/Vision/VNImageBasedRequest.ml +++ b/Vision/VNImageBasedRequest.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/vnimagebasedrequest?language=objc}VNImageBasedRequest} *) +let self = get_class "VNImageBasedRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let getOptionalValidatedInputDetectedObjectObservations x ~forObservationClass ~relationWithRegionOfInterest ~error self = msg_send ~self ~cmd:(selector "getOptionalValidatedInputDetectedObjectObservations:forObservationClass:relationWithRegionOfInterest:error:") ~typ:((ptr id) @-> _Class @-> ullong @-> (ptr id) @-> returning bool) x forObservationClass (ULLong.of_int relationWithRegionOfInterest) error diff --git a/Vision/VNImageBasedRequestClass.ml b/Vision/VNImageBasedRequestClass.ml index 3adbdd1e..55781485 100644 --- a/Vision/VNImageBasedRequestClass.ml +++ b/Vision/VNImageBasedRequestClass.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/vnimagebasedrequest?language=objc}VNImageBasedRequest} *) -let self = get_class "VNImageBasedRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNImageBasedRequestConfiguration.ml b/Vision/VNImageBasedRequestConfiguration.ml index 7e804f32..af329d6d 100644 --- a/Vision/VNImageBasedRequestConfiguration.ml +++ b/Vision/VNImageBasedRequestConfiguration.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/vnimagebasedrequestconfiguration?language=objc}VNImageBasedRequestConfiguration} *) +let self = get_class "VNImageBasedRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x let inputDetectedObjectObservations self = msg_send ~self ~cmd:(selector "inputDetectedObjectObservations") ~typ:(returning id) diff --git a/Vision/VNImageBasedRequestConfigurationClass.ml b/Vision/VNImageBasedRequestConfigurationClass.ml deleted file mode 100644 index 2504b982..00000000 --- a/Vision/VNImageBasedRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnimagebasedrequestconfiguration?language=objc}VNImageBasedRequestConfiguration} *) - -let self = get_class "VNImageBasedRequestConfiguration" - diff --git a/Vision/VNImageBlurScoreRequest.ml b/Vision/VNImageBlurScoreRequest.ml index 9f3cc61a..babc2201 100644 --- a/Vision/VNImageBlurScoreRequest.ml +++ b/Vision/VNImageBlurScoreRequest.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/vnimageblurscorerequest?language=objc}VNImageBlurScoreRequest} *) +let self = get_class "VNImageBlurScoreRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let blurDeterminationMethod self = msg_send ~self ~cmd:(selector "blurDeterminationMethod") ~typ:(returning ullong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNImageBlurScoreRequestClass.ml b/Vision/VNImageBlurScoreRequestClass.ml index d75cd599..2bdcc645 100644 --- a/Vision/VNImageBlurScoreRequestClass.ml +++ b/Vision/VNImageBlurScoreRequestClass.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/vnimageblurscorerequest?language=objc}VNImageBlurScoreRequest} *) -let self = get_class "VNImageBlurScoreRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNImageBlurScoreRequestConfiguration.ml b/Vision/VNImageBlurScoreRequestConfiguration.ml index 346193fd..6d7a0e63 100644 --- a/Vision/VNImageBlurScoreRequestConfiguration.ml +++ b/Vision/VNImageBlurScoreRequestConfiguration.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/vnimageblurscorerequestconfiguration?language=objc}VNImageBlurScoreRequestConfiguration} *) +let self = get_class "VNImageBlurScoreRequestConfiguration" + let blurDeterminationMethod self = msg_send ~self ~cmd:(selector "blurDeterminationMethod") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNImageBlurScoreRequestConfigurationClass.ml b/Vision/VNImageBlurScoreRequestConfigurationClass.ml deleted file mode 100644 index 1ebf8250..00000000 --- a/Vision/VNImageBlurScoreRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnimageblurscorerequestconfiguration?language=objc}VNImageBlurScoreRequestConfiguration} *) - -let self = get_class "VNImageBlurScoreRequestConfiguration" - diff --git a/Vision/VNImageBuffer.ml b/Vision/VNImageBuffer.ml index e1d8f223..f6aff365 100644 --- a/Vision/VNImageBuffer.ml +++ b/Vision/VNImageBuffer.ml @@ -4,26 +4,24 @@ 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/vnimagebuffer?language=objc}VNImageBuffer} *) +let self = get_class "VNImageBuffer" + let augmentedBuffersWithWidth x ~height ~format ~options ~augmentationOptions ~error self = msg_send ~self ~cmd:(selector "augmentedBuffersWithWidth:height:format:options:augmentationOptions:error:") ~typ:(ullong @-> ullong @-> uint @-> id @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) (ULLong.of_int height) format options augmentationOptions error let augmentedCroppedBuffersWithWidth x ~height ~format ~cropRect ~options ~augmentationOptions ~error self = msg_send ~self ~cmd:(selector "augmentedCroppedBuffersWithWidth:height:format:cropRect:options:augmentationOptions:error:") ~typ:(ullong @-> ullong @-> uint @-> CGRect.t @-> id @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) (ULLong.of_int height) format cropRect options augmentationOptions error -let bufferWithWidth x ~height ~format ~options ~error self = msg_send ~self ~cmd:(selector "bufferWithWidth:height:format:options:error:") ~typ:(ullong @-> ullong @-> uint @-> id @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) (ULLong.of_int height) format options error -let bufferWithWidth' x ~height ~format ~options ~error ~pixelBufferRepsCacheKey self = msg_send ~self ~cmd:(selector "bufferWithWidth:height:format:options:error:pixelBufferRepsCacheKey:") ~typ:(ullong @-> ullong @-> uint @-> id @-> (ptr id) @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) (ULLong.of_int height) format options error pixelBufferRepsCacheKey -let cachedPixelBufferRepresentationForKey x self = msg_send ~self ~cmd:(selector "cachedPixelBufferRepresentationForKey:") ~typ:(id @-> returning (ptr CVBuffer.t)) x -let createBufferWithMaxSideLengthOf x ~andPixelFormat ~andOptions ~error self = msg_send ~self ~cmd:(selector "createBufferWithMaxSideLengthOf:andPixelFormat:andOptions:error:") ~typ:(ullong @-> uint @-> id @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) andPixelFormat andOptions error -let createCroppedBufferWithMaxSideLengthOf x ~andCropBounds ~andPixelFormat ~andOptions ~error self = msg_send ~self ~cmd:(selector "createCroppedBufferWithMaxSideLengthOf:andCropBounds:andPixelFormat:andOptions:error:") ~typ:(ullong @-> CGRect.t @-> uint @-> id @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) andCropBounds andPixelFormat andOptions error -let cropAndScaleBufferWithWidth x ~height ~cropRect ~format ~imageCropAndScaleOption ~options ~error ~calculatedNormalizedOriginOffset ~calculatedScaleX ~calculatedScaleY self = msg_send ~self ~cmd:(selector "cropAndScaleBufferWithWidth:height:cropRect:format:imageCropAndScaleOption:options:error:calculatedNormalizedOriginOffset:calculatedScaleX:calculatedScaleY:") ~typ:(ullong @-> ullong @-> CGRect.t @-> uint @-> ullong @-> id @-> (ptr id) @-> (ptr CGPoint.t) @-> (ptr double) @-> (ptr double) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) (ULLong.of_int height) cropRect format (ULLong.of_int imageCropAndScaleOption) options error calculatedNormalizedOriginOffset calculatedScaleX calculatedScaleY -let cropAndScaleBufferWithWidth' x ~height ~cropRect ~format ~imageCropAndScaleOption ~options ~error ~calculatedNormalizedOriginOffset ~calculatedScaleX ~calculatedScaleY ~pixelBufferRepsCacheKey self = msg_send ~self ~cmd:(selector "cropAndScaleBufferWithWidth:height:cropRect:format:imageCropAndScaleOption:options:error:calculatedNormalizedOriginOffset:calculatedScaleX:calculatedScaleY:pixelBufferRepsCacheKey:") ~typ:(ullong @-> ullong @-> CGRect.t @-> uint @-> ullong @-> id @-> (ptr id) @-> (ptr CGPoint.t) @-> (ptr double) @-> (ptr double) @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) (ULLong.of_int height) cropRect format (ULLong.of_int imageCropAndScaleOption) options error calculatedNormalizedOriginOffset calculatedScaleX calculatedScaleY pixelBufferRepsCacheKey -let croppedBufferWithWidth x ~height ~format ~cropRect ~options ~error self = msg_send ~self ~cmd:(selector "croppedBufferWithWidth:height:format:cropRect:options:error:") ~typ:(ullong @-> ullong @-> uint @-> CGRect.t @-> id @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) (ULLong.of_int height) format cropRect options error -let croppedBufferWithWidth' x ~height ~format ~cropRect ~options ~error ~pixelBufferRepsCacheKey self = msg_send ~self ~cmd:(selector "croppedBufferWithWidth:height:format:cropRect:options:error:pixelBufferRepsCacheKey:") ~typ:(ullong @-> ullong @-> uint @-> CGRect.t @-> id @-> (ptr id) @-> (ptr id) @-> returning (ptr CVBuffer.t)) (ULLong.of_int x) (ULLong.of_int height) format cropRect options error pixelBufferRepsCacheKey +let bufferWithWidth x ~height ~format ~options ~error self = msg_send ~self ~cmd:(selector "bufferWithWidth:height:format:options:error:") ~typ:(ullong @-> ullong @-> uint @-> id @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) (ULLong.of_int height) format options error +let bufferWithWidth' x ~height ~format ~options ~error ~pixelBufferRepsCacheKey self = msg_send ~self ~cmd:(selector "bufferWithWidth:height:format:options:error:pixelBufferRepsCacheKey:") ~typ:(ullong @-> ullong @-> uint @-> id @-> (ptr id) @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) (ULLong.of_int height) format options error pixelBufferRepsCacheKey +let cachedPixelBufferRepresentationForKey x self = msg_send ~self ~cmd:(selector "cachedPixelBufferRepresentationForKey:") ~typ:(id @-> returning (ptr void)) x +let createBufferWithMaxSideLengthOf x ~andPixelFormat ~andOptions ~error self = msg_send ~self ~cmd:(selector "createBufferWithMaxSideLengthOf:andPixelFormat:andOptions:error:") ~typ:(ullong @-> uint @-> id @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) andPixelFormat andOptions error +let createCroppedBufferWithMaxSideLengthOf x ~andCropBounds ~andPixelFormat ~andOptions ~error self = msg_send ~self ~cmd:(selector "createCroppedBufferWithMaxSideLengthOf:andCropBounds:andPixelFormat:andOptions:error:") ~typ:(ullong @-> CGRect.t @-> uint @-> id @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) andCropBounds andPixelFormat andOptions error +let cropAndScaleBufferWithWidth x ~height ~cropRect ~format ~imageCropAndScaleOption ~options ~error ~calculatedNormalizedOriginOffset ~calculatedScaleX ~calculatedScaleY self = msg_send ~self ~cmd:(selector "cropAndScaleBufferWithWidth:height:cropRect:format:imageCropAndScaleOption:options:error:calculatedNormalizedOriginOffset:calculatedScaleX:calculatedScaleY:") ~typ:(ullong @-> ullong @-> CGRect.t @-> uint @-> ullong @-> id @-> (ptr id) @-> (ptr CGPoint.t) @-> (ptr double) @-> (ptr double) @-> returning (ptr void)) (ULLong.of_int x) (ULLong.of_int height) cropRect format (ULLong.of_int imageCropAndScaleOption) options error calculatedNormalizedOriginOffset calculatedScaleX calculatedScaleY +let cropAndScaleBufferWithWidth' x ~height ~cropRect ~format ~imageCropAndScaleOption ~options ~error ~calculatedNormalizedOriginOffset ~calculatedScaleX ~calculatedScaleY ~pixelBufferRepsCacheKey self = msg_send ~self ~cmd:(selector "cropAndScaleBufferWithWidth:height:cropRect:format:imageCropAndScaleOption:options:error:calculatedNormalizedOriginOffset:calculatedScaleX:calculatedScaleY:pixelBufferRepsCacheKey:") ~typ:(ullong @-> ullong @-> CGRect.t @-> uint @-> ullong @-> id @-> (ptr id) @-> (ptr CGPoint.t) @-> (ptr double) @-> (ptr double) @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) (ULLong.of_int height) cropRect format (ULLong.of_int imageCropAndScaleOption) options error calculatedNormalizedOriginOffset calculatedScaleX calculatedScaleY pixelBufferRepsCacheKey +let croppedBufferWithWidth x ~height ~format ~cropRect ~options ~error self = msg_send ~self ~cmd:(selector "croppedBufferWithWidth:height:format:cropRect:options:error:") ~typ:(ullong @-> ullong @-> uint @-> CGRect.t @-> id @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) (ULLong.of_int height) format cropRect options error +let croppedBufferWithWidth' x ~height ~format ~cropRect ~options ~error ~pixelBufferRepsCacheKey self = msg_send ~self ~cmd:(selector "croppedBufferWithWidth:height:format:cropRect:options:error:pixelBufferRepsCacheKey:") ~typ:(ullong @-> ullong @-> uint @-> CGRect.t @-> id @-> (ptr id) @-> (ptr id) @-> returning (ptr void)) (ULLong.of_int x) (ULLong.of_int height) format cropRect options error pixelBufferRepsCacheKey let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let fileURL self = msg_send ~self ~cmd:(selector "fileURL") ~typ:(returning id) let getCameraIntrinsicsAvailable x self = msg_send ~self ~cmd:(selector "getCameraIntrinsicsAvailable:") ~typ:((ptr void) @-> returning bool) x @@ -37,8 +35,8 @@ let initWithCIImage x ~options self = msg_send ~self ~cmd:(selector "initWithCII let initWithCIImage' x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCIImage:orientation:options:") ~typ:(id @-> uint @-> id @-> returning id) x orientation options let initWithCMSampleBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithCMSampleBuffer:options:") ~typ:((ptr void) @-> id @-> returning id) x options let initWithCMSampleBuffer' x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCMSampleBuffer:orientation:options:") ~typ:((ptr void) @-> uint @-> id @-> returning id) x orientation options -let initWithCVPixelBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:options:") ~typ:((ptr CVBuffer.t) @-> id @-> returning id) x options -let initWithCVPixelBuffer' x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:orientation:options:") ~typ:((ptr CVBuffer.t) @-> uint @-> id @-> returning id) x orientation options +let initWithCVPixelBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:options:") ~typ:((ptr void) @-> id @-> returning id) x options +let initWithCVPixelBuffer' x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:orientation:options:") ~typ:((ptr void) @-> uint @-> id @-> returning id) x orientation options let initWithData x ~options self = msg_send ~self ~cmd:(selector "initWithData:options:") ~typ:(id @-> id @-> returning id) x options let initWithData' x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithData:orientation:options:") ~typ:(id @-> uint @-> id @-> returning id) x orientation options let initWithURL x ~options self = msg_send ~self ~cmd:(selector "initWithURL:options:") ~typ:(id @-> id @-> returning id) x options @@ -46,7 +44,7 @@ let initWithURL' x ~orientation ~options self = msg_send ~self ~cmd:(selector "i let makeClippedRectAgainstImageExtentUsingOriginalRect x self = msg_send ~self ~cmd:(selector "makeClippedRectAgainstImageExtentUsingOriginalRect:") ~typ:(CGRect.t @-> returning CGRect.t) x let orientation self = msg_send ~self ~cmd:(selector "orientation") ~typ:(returning int) let originalCGImage self = msg_send ~self ~cmd:(selector "originalCGImage") ~typ:(returning (ptr CGImage.t)) -let originalPixelBuffer self = msg_send ~self ~cmd:(selector "originalPixelBuffer") ~typ:(returning (ptr CVBuffer.t)) +let originalPixelBuffer self = msg_send ~self ~cmd:(selector "originalPixelBuffer") ~typ:(returning (ptr void)) let processInChunksOfSize x ~overlapFraction ~options ~roi ~handler ~error self = msg_send ~self ~cmd:(selector "processInChunksOfSize:overlapFraction:options:roi:handler:error:") ~typ:(ullong @-> float @-> id @-> CGRect.t @-> (ptr void) @-> (ptr id) @-> returning bool) (ULLong.of_int x) overlapFraction options roi handler error let purgeCachedRepresentations self = msg_send ~self ~cmd:(selector "purgeCachedRepresentations") ~typ:(returning void) let sequencedRequestPreviousObservationsKey self = msg_send ~self ~cmd:(selector "sequencedRequestPreviousObservationsKey") ~typ:(returning id) diff --git a/Vision/VNImageBufferCache.ml b/Vision/VNImageBufferCache.ml deleted file mode 100644 index 774bdb78..00000000 --- a/Vision/VNImageBufferCache.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageBufferCache" - -module C = struct - let cacheKeyWithBufferFormat x ~width ~height self = msg_send ~self ~cmd:(selector "cacheKeyWithBufferFormat:width:height:") ~typ:(uint @-> ullong @-> ullong @-> returning (id)) x (ULLong.of_int width) (ULLong.of_int height) - let cacheKeyWithBufferFormat' x ~width ~height ~cropRect self = msg_send ~self ~cmd:(selector "cacheKeyWithBufferFormat:width:height:cropRect:") ~typ:(uint @-> ullong @-> ullong @-> CGRect.t @-> returning (id)) x (ULLong.of_int width) (ULLong.of_int height) cropRect -end - -let cacheBuffer x ~forCacheKey self = msg_send ~self ~cmd:(selector "cacheBuffer:forCacheKey:") ~typ:(ptr void @-> id @-> returning (void)) x forCacheKey -let cachedBufferWithKey x self = msg_send ~self ~cmd:(selector "cachedBufferWithKey:") ~typ:(id @-> returning (ptr void)) x -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let purgeCacheRepresentationsForOriginalBuffer x self = msg_send ~self ~cmd:(selector "purgeCacheRepresentationsForOriginalBuffer:") ~typ:(ptr void @-> returning (void)) x -let removeCachedBufferWithKey x self = msg_send ~self ~cmd:(selector "removeCachedBufferWithKey:") ~typ:(id @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNImageBufferClass.ml b/Vision/VNImageBufferClass.ml index 5707f0c5..9a8d5bd2 100644 --- a/Vision/VNImageBufferClass.ml +++ b/Vision/VNImageBufferClass.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/vnimagebuffer?language=objc}VNImageBuffer} *) -let self = get_class "VNImageBuffer" - let computeCenterCropRectFromCropRect x ~inImageSize ~calculatedScaleX ~calculatedScaleY self = msg_send ~self ~cmd:(selector "computeCenterCropRectFromCropRect:inImageSize:calculatedScaleX:calculatedScaleY:") ~typ:(CGRect.t @-> CGSize.t @-> (ptr double) @-> (ptr double) @-> returning CGRect.t) x inImageSize calculatedScaleX calculatedScaleY let copyColorspaceForFormat x ~bitmapInfo self = msg_send ~self ~cmd:(selector "copyColorspaceForFormat:bitmapInfo:") ~typ:(uint @-> (ptr uint) @-> returning (ptr CGColorSpace.t)) x bitmapInfo let createPixelBufferRepsCacheKeyForCropRect x ~format ~width ~height self = msg_send ~self ~cmd:(selector "createPixelBufferRepsCacheKeyForCropRect:format:width:height:") ~typ:(CGRect.t @-> uint @-> ullong @-> ullong @-> returning id) x format (ULLong.of_int width) (ULLong.of_int height) diff --git a/Vision/VNImageBufferManager.ml b/Vision/VNImageBufferManager.ml index 64915495..deb87ea2 100644 --- a/Vision/VNImageBufferManager.ml +++ b/Vision/VNImageBufferManager.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/vnimagebuffermanager?language=objc}VNImageBufferManager} *) +let self = get_class "VNImageBufferManager" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let purgeAllCaches self = msg_send ~self ~cmd:(selector "purgeAllCaches") ~typ:(returning void) diff --git a/Vision/VNImageBufferManagerClass.ml b/Vision/VNImageBufferManagerClass.ml index b15de41b..33e8bfb4 100644 --- a/Vision/VNImageBufferManagerClass.ml +++ b/Vision/VNImageBufferManagerClass.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/vnimagebuffermanager?language=objc}VNImageBufferManager} *) -let self = get_class "VNImageBufferManager" - let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNImageExposureScoreRequest.ml b/Vision/VNImageExposureScoreRequest.ml deleted file mode 100644 index 00444e26..00000000 --- a/Vision/VNImageExposureScoreRequest.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageExposureScoreRequest" - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) x error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) x inContext error \ No newline at end of file diff --git a/Vision/VNImageFingerprintsObservation.ml b/Vision/VNImageFingerprintsObservation.ml deleted file mode 100644 index 0513ca64..00000000 --- a/Vision/VNImageFingerprintsObservation.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageFingerprintsObservation" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let fingerprintHashes self = msg_send ~self ~cmd:(selector "fingerprintHashes") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithOriginatingRequestSpecifier x ~fingerprintHashes self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:fingerprintHashes:") ~typ:(id @-> id @-> returning (id)) x fingerprintHashes -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNImageHomographicAlignmentObservation.ml b/Vision/VNImageHomographicAlignmentObservation.ml index 3e147041..17ff9db4 100644 --- a/Vision/VNImageHomographicAlignmentObservation.ml +++ b/Vision/VNImageHomographicAlignmentObservation.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/vnimagehomographicalignmentobservation?language=objc}VNImageHomographicAlignmentObservation} *) +let self = get_class "VNImageHomographicAlignmentObservation" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) diff --git a/Vision/VNImageHomographicAlignmentObservationClass.ml b/Vision/VNImageHomographicAlignmentObservationClass.ml index 73c6fc97..e1617f24 100644 --- a/Vision/VNImageHomographicAlignmentObservationClass.ml +++ b/Vision/VNImageHomographicAlignmentObservationClass.ml @@ -4,16 +4,10 @@ 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/vnimagehomographicalignmentobservation?language=objc}VNImageHomographicAlignmentObservation} *) -let self = get_class "VNImageHomographicAlignmentObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageNeuralHashprintObservation.ml b/Vision/VNImageNeuralHashprintObservation.ml index 8b44a983..c622a3f6 100644 --- a/Vision/VNImageNeuralHashprintObservation.ml +++ b/Vision/VNImageNeuralHashprintObservation.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/vnimageneuralhashprintobservation?language=objc}VNImageNeuralHashprintObservation} *) +let self = get_class "VNImageNeuralHashprintObservation" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let imageNeuralHashprint self = msg_send ~self ~cmd:(selector "imageNeuralHashprint") ~typ:(returning id) diff --git a/Vision/VNImageNeuralHashprintObservationClass.ml b/Vision/VNImageNeuralHashprintObservationClass.ml index 3b3d0c73..e80123e5 100644 --- a/Vision/VNImageNeuralHashprintObservationClass.ml +++ b/Vision/VNImageNeuralHashprintObservationClass.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/vnimageneuralhashprintobservation?language=objc}VNImageNeuralHashprintObservation} *) -let self = get_class "VNImageNeuralHashprintObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageProcessingSession.ml b/Vision/VNImageProcessingSession.ml deleted file mode 100644 index 91c5ac3a..00000000 --- a/Vision/VNImageProcessingSession.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNImageProcessingSession" - -let detectionprintsFromRequest x ~performedOnPixelBuffer ~withAugmentations ~error self = msg_send ~self ~cmd:(selector "detectionprintsFromRequest:performedOnPixelBuffer:withAugmentations:error:") ~typ:(id @-> ptr void @-> id @-> ptr (id) @-> returning (id)) x performedOnPixelBuffer withAugmentations error -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let prepareForPerformingRequests x ~error self = msg_send ~self ~cmd:(selector "prepareForPerformingRequests:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let sceneprintsFromRequest x ~performedOnPixelBuffer ~withAugmentations ~error self = msg_send ~self ~cmd:(selector "sceneprintsFromRequest:performedOnPixelBuffer:withAugmentations:error:") ~typ:(id @-> ptr void @-> id @-> ptr (id) @-> returning (id)) x performedOnPixelBuffer withAugmentations error \ No newline at end of file diff --git a/Vision/VNImageRegistrationRequest.ml b/Vision/VNImageRegistrationRequest.ml index 65edaf6b..f5e4a871 100644 --- a/Vision/VNImageRegistrationRequest.ml +++ b/Vision/VNImageRegistrationRequest.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/vnimageregistrationrequest?language=objc}VNImageRegistrationRequest} *) +let self = get_class "VNImageRegistrationRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let cachedFloatingImageBufferReturningError x self = msg_send ~self ~cmd:(selector "cachedFloatingImageBufferReturningError:") ~typ:((ptr id) @-> returning id) x let cachedFloatingImageRegistrationSignatureReturningError x self = msg_send ~self ~cmd:(selector "cachedFloatingImageRegistrationSignatureReturningError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNImageRegistrationRequestClass.ml b/Vision/VNImageRegistrationRequestClass.ml index 1dd23824..22766b99 100644 --- a/Vision/VNImageRegistrationRequestClass.ml +++ b/Vision/VNImageRegistrationRequestClass.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/vnimageregistrationrequest?language=objc}VNImageRegistrationRequest} *) -let self = get_class "VNImageRegistrationRequest" - let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNImageRequestHandler.ml b/Vision/VNImageRequestHandler.ml index 60df27ea..1138abc6 100644 --- a/Vision/VNImageRequestHandler.ml +++ b/Vision/VNImageRequestHandler.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/vnimagerequesthandler?language=objc}VNImageRequestHandler} *) +let self = get_class "VNImageRequestHandler" + let cancelAllRequests self = msg_send ~self ~cmd:(selector "cancelAllRequests") ~typ:(returning void) let initWithCGImage x ~options self = msg_send ~self ~cmd:(selector "initWithCGImage:options:") ~typ:((ptr CGImage.t) @-> id @-> returning id) x options let initWithCGImage1 x ~options ~session self = msg_send ~self ~cmd:(selector "initWithCGImage:options:session:") ~typ:((ptr CGImage.t) @-> id @-> id @-> returning id) x options session @@ -26,10 +24,10 @@ let initWithCMSampleBuffer x ~options self = msg_send ~self ~cmd:(selector "init let initWithCMSampleBuffer1 x ~options ~session self = msg_send ~self ~cmd:(selector "initWithCMSampleBuffer:options:session:") ~typ:((ptr void) @-> id @-> id @-> returning id) x options session let initWithCMSampleBuffer2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCMSampleBuffer:orientation:options:") ~typ:((ptr void) @-> uint @-> id @-> returning id) x orientation options let initWithCMSampleBuffer3 x ~orientation ~options ~session self = msg_send ~self ~cmd:(selector "initWithCMSampleBuffer:orientation:options:session:") ~typ:((ptr void) @-> uint @-> id @-> id @-> returning id) x orientation options session -let initWithCVPixelBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:options:") ~typ:((ptr CVBuffer.t) @-> id @-> returning id) x options -let initWithCVPixelBuffer1 x ~options ~session self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:options:session:") ~typ:((ptr CVBuffer.t) @-> id @-> id @-> returning id) x options session -let initWithCVPixelBuffer2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:orientation:options:") ~typ:((ptr CVBuffer.t) @-> uint @-> id @-> returning id) x orientation options -let initWithCVPixelBuffer3 x ~orientation ~options ~session self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:orientation:options:session:") ~typ:((ptr CVBuffer.t) @-> uint @-> id @-> id @-> returning id) x orientation options session +let initWithCVPixelBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:options:") ~typ:((ptr void) @-> id @-> returning id) x options +let initWithCVPixelBuffer1 x ~options ~session self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:options:session:") ~typ:((ptr void) @-> id @-> id @-> returning id) x options session +let initWithCVPixelBuffer2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:orientation:options:") ~typ:((ptr void) @-> uint @-> id @-> returning id) x orientation options +let initWithCVPixelBuffer3 x ~orientation ~options ~session self = msg_send ~self ~cmd:(selector "initWithCVPixelBuffer:orientation:options:session:") ~typ:((ptr void) @-> uint @-> id @-> id @-> returning id) x orientation options session let initWithData x ~options self = msg_send ~self ~cmd:(selector "initWithData:options:") ~typ:(id @-> id @-> returning id) x options let initWithData1 x ~options ~session self = msg_send ~self ~cmd:(selector "initWithData:options:session:") ~typ:(id @-> id @-> id @-> returning id) x options session let initWithData2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithData:orientation:options:") ~typ:(id @-> uint @-> id @-> returning id) x orientation options diff --git a/Vision/VNImageRequestHandlerClass.ml b/Vision/VNImageRequestHandlerClass.ml index e9892d9e..31ea7afc 100644 --- a/Vision/VNImageRequestHandlerClass.ml +++ b/Vision/VNImageRequestHandlerClass.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/vnimagerequesthandler?language=objc}VNImageRequestHandler} *) -let self = get_class "VNImageRequestHandler" - let forcedCleanup self = msg_send ~self ~cmd:(selector "forcedCleanup") ~typ:(returning void) let forcedCleanupWithOptions x self = msg_send ~self ~cmd:(selector "forcedCleanupWithOptions:") ~typ:(id @-> returning void) x let requestForcedCleanup self = msg_send ~self ~cmd:(selector "requestForcedCleanup") ~typ:(returning void) diff --git a/Vision/VNImageScoreObservation.ml b/Vision/VNImageScoreObservation.ml index 3775e769..70214344 100644 --- a/Vision/VNImageScoreObservation.ml +++ b/Vision/VNImageScoreObservation.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/vnimagescoreobservation?language=objc}VNImageScoreObservation} *) +let self = get_class "VNImageScoreObservation" + let blurScore self = msg_send ~self ~cmd:(selector "blurScore") ~typ:(returning id) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNImageScoreObservationClass.ml b/Vision/VNImageScoreObservationClass.ml index 115ef229..9d2a6266 100644 --- a/Vision/VNImageScoreObservationClass.ml +++ b/Vision/VNImageScoreObservationClass.ml @@ -4,16 +4,10 @@ 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/vnimagescoreobservation?language=objc}VNImageScoreObservation} *) -let self = get_class "VNImageScoreObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageSignature.ml b/Vision/VNImageSignature.ml index b52104c0..eff58caa 100644 --- a/Vision/VNImageSignature.ml +++ b/Vision/VNImageSignature.ml @@ -4,18 +4,17 @@ 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/vnimagesignature?language=objc}VNImageSignature} *) +let self = get_class "VNImageSignature" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x let initWithImageBuffer x ~regionOfInterest ~error self = msg_send ~self ~cmd:(selector "initWithImageBuffer:regionOfInterest:error:") ~typ:(id @-> CGRect.t @-> (ptr id) @-> returning id) x regionOfInterest error -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x \ No newline at end of file +let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x +let signature self = msg_send ~self ~cmd:(selector "signature") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNImageSignatureClass.ml b/Vision/VNImageSignatureClass.ml index f2309e17..1aa4833f 100644 --- a/Vision/VNImageSignatureClass.ml +++ b/Vision/VNImageSignatureClass.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/vnimagesignature?language=objc}VNImageSignature} *) -let self = get_class "VNImageSignature" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageSignatureDetector.ml b/Vision/VNImageSignatureDetector.ml index c189a092..dd41ceec 100644 --- a/Vision/VNImageSignatureDetector.ml +++ b/Vision/VNImageSignatureDetector.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/vnimagesignaturedetector?language=objc}VNImageSignatureDetector} *) +let self = get_class "VNImageSignatureDetector" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let imageSignatureHashType self = msg_send ~self ~cmd:(selector "imageSignatureHashType") ~typ:(returning ullong) let imageSignatureprintType self = msg_send ~self ~cmd:(selector "imageSignatureprintType") ~typ:(returning ullong) diff --git a/Vision/VNImageSignatureDetectorClass.ml b/Vision/VNImageSignatureDetectorClass.ml index 884ad932..0ac4c030 100644 --- a/Vision/VNImageSignatureDetectorClass.ml +++ b/Vision/VNImageSignatureDetectorClass.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/vnimagesignaturedetector?language=objc}VNImageSignatureDetector} *) -let self = get_class "VNImageSignatureDetector" - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNImageTranslationAlignmentObservation.ml b/Vision/VNImageTranslationAlignmentObservation.ml index 86e007c7..53ece907 100644 --- a/Vision/VNImageTranslationAlignmentObservation.ml +++ b/Vision/VNImageTranslationAlignmentObservation.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/vnimagetranslationalignmentobservation?language=objc}VNImageTranslationAlignmentObservation} *) +let self = get_class "VNImageTranslationAlignmentObservation" + let alignmentTransform self = msg_send ~self ~cmd:(selector "alignmentTransform") ~typ:(returning CGAffineTransform.t) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNImageTranslationAlignmentObservationClass.ml b/Vision/VNImageTranslationAlignmentObservationClass.ml index 646c11c0..1a9164cf 100644 --- a/Vision/VNImageTranslationAlignmentObservationClass.ml +++ b/Vision/VNImageTranslationAlignmentObservationClass.ml @@ -4,16 +4,10 @@ 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/vnimagetranslationalignmentobservation?language=objc}VNImageTranslationAlignmentObservation} *) -let self = get_class "VNImageTranslationAlignmentObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageprint.ml b/Vision/VNImageprint.ml index cf370abf..507c651e 100644 --- a/Vision/VNImageprint.ml +++ b/Vision/VNImageprint.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/vnimageprint?language=objc}VNImageprint} *) +let self = get_class "VNImageprint" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let descriptor self = msg_send ~self ~cmd:(selector "descriptor") ~typ:(returning id) let distanceToImageprint x ~error self = msg_send ~self ~cmd:(selector "distanceToImageprint:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNImageprintClass.ml b/Vision/VNImageprintClass.ml index b3078f49..789336dd 100644 --- a/Vision/VNImageprintClass.ml +++ b/Vision/VNImageprintClass.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/vnimageprint?language=objc}VNImageprint} *) -let self = get_class "VNImageprint" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNImageprintObservation.ml b/Vision/VNImageprintObservation.ml index 5da814e9..e6754265 100644 --- a/Vision/VNImageprintObservation.ml +++ b/Vision/VNImageprintObservation.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/vnimageprintobservation?language=objc}VNImageprintObservation} *) +let self = get_class "VNImageprintObservation" + let calculateDistanceFromImageprintObservation x self = msg_send ~self ~cmd:(selector "calculateDistanceFromImageprintObservation:") ~typ:(id @-> returning float) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNImageprintObservationClass.ml b/Vision/VNImageprintObservationClass.ml index 6b46ca9c..565f3cee 100644 --- a/Vision/VNImageprintObservationClass.ml +++ b/Vision/VNImageprintObservationClass.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/vnimageprintobservation?language=objc}VNImageprintObservation} *) -let self = get_class "VNImageprintObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let observationWithImageprint x ~error self = msg_send ~self ~cmd:(selector "observationWithImageprint:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNInstanceMaskObservation.ml b/Vision/VNInstanceMaskObservation.ml deleted file mode 100644 index 2900187d..00000000 --- a/Vision/VNInstanceMaskObservation.ml +++ /dev/null @@ -1,33 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNInstanceMaskObservation" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let allInstances self = msg_send ~self ~cmd:(selector "allInstances") ~typ:(returning (id)) -let createMaskForInstances x ~error self = msg_send ~self ~cmd:(selector "createMaskForInstances:error:") ~typ:(id @-> ptr (id) @-> returning (ptr void)) x error -let createMatteForImageForInstances x ~fromRequestHandler ~error self = msg_send ~self ~cmd:(selector "createMatteForImageForInstances:fromRequestHandler:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler error -let createMattedImageForInstances x ~fromRequestHandler ~inPlace ~croppedToInstancesExtent ~error self = msg_send ~self ~cmd:(selector "createMattedImageForInstances:fromRequestHandler:inPlace:croppedToInstancesExtent:error:") ~typ:(id @-> id @-> bool @-> bool @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler inPlace croppedToInstancesExtent error -let createMattedImageOfInstances x ~fromRequestHandler ~croppedToInstancesExtent ~error self = msg_send ~self ~cmd:(selector "createMattedImageOfInstances:fromRequestHandler:croppedToInstancesExtent:error:") ~typ:(id @-> id @-> bool @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler croppedToInstancesExtent error -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let generateMaskForInstances x ~error self = msg_send ~self ~cmd:(selector "generateMaskForInstances:error:") ~typ:(id @-> ptr (id) @-> returning (ptr void)) x error -let generateMaskedImageOfInstances x ~fromRequestHandler ~croppedToInstancesExtent ~error self = msg_send ~self ~cmd:(selector "generateMaskedImageOfInstances:fromRequestHandler:croppedToInstancesExtent:error:") ~typ:(id @-> id @-> bool @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler croppedToInstancesExtent error -let generateMaskedImageOfInstances1 x ~fromRequestHandler ~inPlace ~croppedToInstancesExtent ~error self = msg_send ~self ~cmd:(selector "generateMaskedImageOfInstances:fromRequestHandler:inPlace:croppedToInstancesExtent:error:") ~typ:(id @-> id @-> bool @-> bool @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler inPlace croppedToInstancesExtent error -let generateMaskedImageOfInstances2 x ~fromRequestHandler ~inPlace ~croppedToInstancesExtent ~returnCropRect ~error self = msg_send ~self ~cmd:(selector "generateMaskedImageOfInstances:fromRequestHandler:inPlace:croppedToInstancesExtent:returnCropRect:error:") ~typ:(id @-> id @-> bool @-> bool @-> ptr (CGRect.t) @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler inPlace croppedToInstancesExtent returnCropRect error -let generateScaledMaskForImageForInstances x ~fromRequestHandler ~error self = msg_send ~self ~cmd:(selector "generateScaledMaskForImageForInstances:fromRequestHandler:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (ptr void)) x fromRequestHandler error -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithOriginatingRequestSpecifier x ~instanceLowResMaskArray ~instanceMask ~numComponents ~regionOfInterest self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:instanceLowResMaskArray:instanceMask:numComponents:regionOfInterest:") ~typ:(id @-> id @-> ptr void @-> ullong @-> CGRect.t @-> returning (id)) x instanceLowResMaskArray instanceMask (ULLong.of_int numComponents) regionOfInterest -let initWithOriginatingRequestSpecifier' x ~lowResMask ~instanceMask ~numComponents ~regionOfInterest self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:lowResMask:instanceMask:numComponents:regionOfInterest:") ~typ:(id @-> ptr void @-> ptr void @-> ullong @-> CGRect.t @-> returning (id)) x lowResMask instanceMask (ULLong.of_int numComponents) regionOfInterest -let instanceMask self = msg_send ~self ~cmd:(selector "instanceMask") ~typ:(returning (ptr void)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNJunkIdentifier.ml b/Vision/VNJunkIdentifier.ml index 1ba97ebb..f3b2b344 100644 --- a/Vision/VNJunkIdentifier.ml +++ b/Vision/VNJunkIdentifier.ml @@ -5,16 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNJunkIdentifier" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnjunkidentifier?language=objc}VNJunkIdentifier} *) -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let shouldDumpDebugIntermediates self = msg_send ~self ~cmd:(selector "shouldDumpDebugIntermediates") ~typ:(returning (bool)) - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end +let self = get_class "VNJunkIdentifier" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let internalProcessUsingQualityOfServiceClass x ~options ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "internalProcessUsingQualityOfServiceClass:options:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(uint @-> id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x options regionOfInterest warningRecorder error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNJunkIdentifierClass.ml b/Vision/VNJunkIdentifierClass.ml new file mode 100644 index 00000000..99c4775e --- /dev/null +++ b/Vision/VNJunkIdentifierClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnjunkidentifier?language=objc}VNJunkIdentifier} *) + +let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) +let shouldDumpDebugIntermediates self = msg_send ~self ~cmd:(selector "shouldDumpDebugIntermediates") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNMLFeatureProvider.ml b/Vision/VNMLFeatureProvider.ml index ba1aa022..40a43537 100644 --- a/Vision/VNMLFeatureProvider.ml +++ b/Vision/VNMLFeatureProvider.ml @@ -4,18 +4,16 @@ 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/vnmlfeatureprovider?language=objc}VNMLFeatureProvider} *) +let self = get_class "VNMLFeatureProvider" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let featureNames self = msg_send ~self ~cmd:(selector "featureNames") ~typ:(returning id) let featureValueForName x self = msg_send ~self ~cmd:(selector "featureValueForName:") ~typ:(id @-> returning id) x let featureValueFromScenePrint x ~dataType self = msg_send ~self ~cmd:(selector "featureValueFromScenePrint:dataType:") ~typ:(id @-> llong @-> returning id) x (LLong.of_int dataType) -let initWithBuffer x ~forKey ~originalFeatureProvider self = msg_send ~self ~cmd:(selector "initWithBuffer:forKey:originalFeatureProvider:") ~typ:((ptr CVBuffer.t) @-> id @-> id @-> returning id) x forKey originalFeatureProvider +let initWithBuffer x ~forKey ~originalFeatureProvider self = msg_send ~self ~cmd:(selector "initWithBuffer:forKey:originalFeatureProvider:") ~typ:((ptr void) @-> id @-> id @-> returning id) x forKey originalFeatureProvider let initWithScenePrint x ~dataType ~forKey ~originalFeatureProvider self = msg_send ~self ~cmd:(selector "initWithScenePrint:dataType:forKey:originalFeatureProvider:") ~typ:(id @-> (ptr llong) @-> id @-> id @-> returning id) x dataType forKey originalFeatureProvider \ No newline at end of file diff --git a/Vision/VNMLFeatureProviderClass.ml b/Vision/VNMLFeatureProviderClass.ml deleted file mode 100644 index 3f294176..00000000 --- a/Vision/VNMLFeatureProviderClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmlfeatureprovider?language=objc}VNMLFeatureProvider} *) - -let self = get_class "VNMLFeatureProvider" - diff --git a/Vision/VNMPClusteringTreeNodeWrapper.ml b/Vision/VNMPClusteringTreeNodeWrapper.ml index c6ffa052..2439dce0 100644 --- a/Vision/VNMPClusteringTreeNodeWrapper.ml +++ b/Vision/VNMPClusteringTreeNodeWrapper.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/vnmpclusteringtreenodewrapper?language=objc}VNMPClusteringTreeNodeWrapper} *) +let self = get_class "VNMPClusteringTreeNodeWrapper" + let avgDistance self = msg_send ~self ~cmd:(selector "avgDistance") ~typ:(returning float) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let descriptor self = msg_send ~self ~cmd:(selector "descriptor") ~typ:(returning id) diff --git a/Vision/VNMPClusteringTreeNodeWrapperClass.ml b/Vision/VNMPClusteringTreeNodeWrapperClass.ml deleted file mode 100644 index e05e1e88..00000000 --- a/Vision/VNMPClusteringTreeNodeWrapperClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmpclusteringtreenodewrapper?language=objc}VNMPClusteringTreeNodeWrapper} *) - -let self = get_class "VNMPClusteringTreeNodeWrapper" - diff --git a/Vision/VNMPContext.ml b/Vision/VNMPContext.ml index 9f4a2302..2d48937f 100644 --- a/Vision/VNMPContext.ml +++ b/Vision/VNMPContext.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/vnmpcontext?language=objc}VNMPContext} *) +let self = get_class "VNMPContext" + let clusterSplitDistanceType self = msg_send ~self ~cmd:(selector "clusterSplitDistanceType") ~typ:(returning int) let debugMode self = msg_send ~self ~cmd:(selector "debugMode") ~typ:(returning int) let inliersRatioThreshold self = msg_send ~self ~cmd:(selector "inliersRatioThreshold") ~typ:(returning float) diff --git a/Vision/VNMPContextClass.ml b/Vision/VNMPContextClass.ml deleted file mode 100644 index 32f05bc3..00000000 --- a/Vision/VNMPContextClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmpcontext?language=objc}VNMPContext} *) - -let self = get_class "VNMPContext" - diff --git a/Vision/VNMPImageData.ml b/Vision/VNMPImageData.ml index 73377aa5..5ae8651d 100644 --- a/Vision/VNMPImageData.ml +++ b/Vision/VNMPImageData.ml @@ -4,24 +4,23 @@ 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/vnmpimagedata?language=objc}VNMPImageData} *) +let self = get_class "VNMPImageData" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let exifTimestamp self = msg_send ~self ~cmd:(selector "exifTimestamp") ~typ:(returning llong) let externalImageId self = msg_send ~self ~cmd:(selector "externalImageId") ~typ:(returning id) let freeImageInDealloc self = msg_send ~self ~cmd:(selector "freeImageInDealloc") ~typ:(returning bool) -let imageCVPixelBuffer self = msg_send ~self ~cmd:(selector "imageCVPixelBuffer") ~typ:(returning (ptr CVBuffer.t)) +let image self = msg_send ~self ~cmd:(selector "image") ~typ:(returning (ptr void)) +let imageCVPixelBuffer self = msg_send ~self ~cmd:(selector "imageCVPixelBuffer") ~typ:(returning (ptr void)) let imageFilePath self = msg_send ~self ~cmd:(selector "imageFilePath") ~typ:(returning id) -let initWithCVPixelBufferImage x ~externalImageId ~andExifTimestampString ~error self = msg_send ~self ~cmd:(selector "initWithCVPixelBufferImage:externalImageId:andExifTimestampString:error:") ~typ:((ptr CVBuffer.t) @-> id @-> id @-> (ptr id) @-> returning id) x externalImageId andExifTimestampString error -let initWithCVPixelBufferImage' x ~externalImageId ~andExifTimestampValue ~error self = msg_send ~self ~cmd:(selector "initWithCVPixelBufferImage:externalImageId:andExifTimestampValue:error:") ~typ:((ptr CVBuffer.t) @-> id @-> llong @-> (ptr id) @-> returning id) x externalImageId (LLong.of_int andExifTimestampValue) error -let initWithVImage x ~externalImageId ~andExifTimestampString ~error self = msg_send ~self ~cmd:(selector "initWithVImage:externalImageId:andExifTimestampString:error:") ~typ:(ptr void @-> id @-> id @-> (ptr id) @-> returning id) x externalImageId andExifTimestampString error -let initWithVImage' x ~externalImageId ~andExifTimestampValue ~error self = msg_send ~self ~cmd:(selector "initWithVImage:externalImageId:andExifTimestampValue:error:") ~typ:(ptr void @-> id @-> llong @-> (ptr id) @-> returning id) x externalImageId (LLong.of_int andExifTimestampValue) error +let initWithCVPixelBufferImage x ~externalImageId ~andExifTimestampString ~error self = msg_send ~self ~cmd:(selector "initWithCVPixelBufferImage:externalImageId:andExifTimestampString:error:") ~typ:((ptr void) @-> id @-> id @-> (ptr id) @-> returning id) x externalImageId andExifTimestampString error +let initWithCVPixelBufferImage' x ~externalImageId ~andExifTimestampValue ~error self = msg_send ~self ~cmd:(selector "initWithCVPixelBufferImage:externalImageId:andExifTimestampValue:error:") ~typ:((ptr void) @-> id @-> llong @-> (ptr id) @-> returning id) x externalImageId (LLong.of_int andExifTimestampValue) error +let initWithVImage x ~externalImageId ~andExifTimestampString ~error self = msg_send ~self ~cmd:(selector "initWithVImage:externalImageId:andExifTimestampString:error:") ~typ:((ptr void) @-> id @-> id @-> (ptr id) @-> returning id) x externalImageId andExifTimestampString error +let initWithVImage' x ~externalImageId ~andExifTimestampValue ~error self = msg_send ~self ~cmd:(selector "initWithVImage:externalImageId:andExifTimestampValue:error:") ~typ:((ptr void) @-> id @-> llong @-> (ptr id) @-> returning id) x externalImageId (LLong.of_int andExifTimestampValue) error let setFreeImageInDealloc x self = msg_send ~self ~cmd:(selector "setFreeImageInDealloc:") ~typ:(bool @-> returning void) x let setImageFilePath x self = msg_send ~self ~cmd:(selector "setImageFilePath:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/Vision/VNMPImageDataClass.ml b/Vision/VNMPImageDataClass.ml deleted file mode 100644 index 8319c106..00000000 --- a/Vision/VNMPImageDataClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmpimagedata?language=objc}VNMPImageData} *) - -let self = get_class "VNMPImageData" - diff --git a/Vision/VNMPImageDescriptor.ml b/Vision/VNMPImageDescriptor.ml index 2841cd75..d1fe46e7 100644 --- a/Vision/VNMPImageDescriptor.ml +++ b/Vision/VNMPImageDescriptor.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/vnmpimagedescriptor?language=objc}VNMPImageDescriptor} *) +let self = get_class "VNMPImageDescriptor" + let colorGaborDescriptor self = msg_send ~self ~cmd:(selector "colorGaborDescriptor") ~typ:(returning (ptr void)) let computeConvnetDescriptorForImageData x ~context ~error self = msg_send ~self ~cmd:(selector "computeConvnetDescriptorForImageData:context:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x context error let computeDescriptorForImageData x ~context ~error self = msg_send ~self ~cmd:(selector "computeDescriptorForImageData:context:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x context error diff --git a/Vision/VNMPImageDescriptorClass.ml b/Vision/VNMPImageDescriptorClass.ml index ea7aa9fa..d1e7fa8e 100644 --- a/Vision/VNMPImageDescriptorClass.ml +++ b/Vision/VNMPImageDescriptorClass.ml @@ -4,16 +4,10 @@ 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/vnmpimagedescriptor?language=objc}VNMPImageDescriptor} *) -let self = get_class "VNMPImageDescriptor" - let currentVersion self = msg_send ~self ~cmd:(selector "currentVersion") ~typ:(returning ullong) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNMRCDetector.ml b/Vision/VNMRCDetector.ml deleted file mode 100644 index 325ab7ad..00000000 --- a/Vision/VNMRCDetector.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNMRCDetector" - -module C = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNMTLDeviceWisdomParameters.ml b/Vision/VNMTLDeviceWisdomParameters.ml index d126cf93..8ec06707 100644 --- a/Vision/VNMTLDeviceWisdomParameters.ml +++ b/Vision/VNMTLDeviceWisdomParameters.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/vnmtldevicewisdomparameters?language=objc}VNMTLDeviceWisdomParameters} *) +let self = get_class "VNMTLDeviceWisdomParameters" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let wisdomParameterForMTLDevice x ~error self = msg_send ~self ~cmd:(selector "wisdomParameterForMTLDevice:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let wisdomParameterForMTLDeviceWithName x ~error self = msg_send ~self ~cmd:(selector "wisdomParameterForMTLDeviceWithName:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNMTLDeviceWisdomParametersClass.ml b/Vision/VNMTLDeviceWisdomParametersClass.ml deleted file mode 100644 index c1e7ea7e..00000000 --- a/Vision/VNMTLDeviceWisdomParametersClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmtldevicewisdomparameters?language=objc}VNMTLDeviceWisdomParameters} *) - -let self = get_class "VNMTLDeviceWisdomParameters" - diff --git a/Vision/VNMemeClassifier.ml b/Vision/VNMemeClassifier.ml index e12f9d1d..6cc73657 100644 --- a/Vision/VNMemeClassifier.ml +++ b/Vision/VNMemeClassifier.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/vnmemeclassifier?language=objc}VNMemeClassifier} *) +let self = get_class "VNMemeClassifier" + let analysisTypesForProcessOptions x self = msg_send ~self ~cmd:(selector "analysisTypesForProcessOptions:") ~typ:(id @-> returning uint) x let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let configureImageAnalyzerOptions x ~error self = msg_send ~self ~cmd:(selector "configureImageAnalyzerOptions:error:") ~typ:((ptr void) @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNMemeClassifierClass.ml b/Vision/VNMemeClassifierClass.ml index f8450670..e8eb380e 100644 --- a/Vision/VNMemeClassifierClass.ml +++ b/Vision/VNMemeClassifierClass.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/vnmemeclassifier?language=objc}VNMemeClassifier} *) -let self = get_class "VNMemeClassifier" - let analysisPixelFormatTypeForConfiguration x self = msg_send ~self ~cmd:(selector "analysisPixelFormatTypeForConfiguration:") ~typ:(id @-> returning uint) x let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) let inputImageBlobNameForConfiguration x self = msg_send ~self ~cmd:(selector "inputImageBlobNameForConfiguration:") ~typ:(id @-> returning id) x diff --git a/Vision/VNMetalContext.ml b/Vision/VNMetalContext.ml index db7a74e9..cbb8a1cf 100644 --- a/Vision/VNMetalContext.ml +++ b/Vision/VNMetalContext.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/vnmetalcontext?language=objc}VNMetalContext} *) +let self = get_class "VNMetalContext" + let initWithMetalDevice x self = msg_send ~self ~cmd:(selector "initWithMetalDevice:") ~typ:(id @-> returning id) x let metalDevice self = msg_send ~self ~cmd:(selector "metalDevice") ~typ:(returning id) let useGPU self = msg_send ~self ~cmd:(selector "useGPU") ~typ:(returning bool) diff --git a/Vision/VNMetalContextClass.ml b/Vision/VNMetalContextClass.ml deleted file mode 100644 index 74912cec..00000000 --- a/Vision/VNMetalContextClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmetalcontext?language=objc}VNMetalContext} *) - -let self = get_class "VNMetalContext" - diff --git a/Vision/VNMetalProcessingDevice.ml b/Vision/VNMetalProcessingDevice.ml index a54400d1..1c490d26 100644 --- a/Vision/VNMetalProcessingDevice.ml +++ b/Vision/VNMetalProcessingDevice.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/vnmetalprocessingdevice?language=objc}VNMetalProcessingDevice} *) +let self = get_class "VNMetalProcessingDevice" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let espressoDeviceID self = msg_send ~self ~cmd:(selector "espressoDeviceID") ~typ:(returning int) let espressoEngine self = msg_send ~self ~cmd:(selector "espressoEngine") ~typ:(returning int) diff --git a/Vision/VNMetalProcessingDeviceClass.ml b/Vision/VNMetalProcessingDeviceClass.ml index 4556b73c..18878732 100644 --- a/Vision/VNMetalProcessingDeviceClass.ml +++ b/Vision/VNMetalProcessingDeviceClass.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/vnmetalprocessingdevice?language=objc}VNMetalProcessingDevice} *) -let self = get_class "VNMetalProcessingDevice" - let allDevices self = msg_send ~self ~cmd:(selector "allDevices") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNModelFileImpl.ml b/Vision/VNModelFileImpl.ml index 751bb419..432ea586 100644 --- a/Vision/VNModelFileImpl.ml +++ b/Vision/VNModelFileImpl.ml @@ -4,17 +4,15 @@ 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/vnmodelfileimpl?language=objc}VNModelFileImpl} *) +let self = get_class "VNModelFileImpl" + let advise x self = msg_send ~self ~cmd:(selector "advise:") ~typ:(llong @-> returning void) (LLong.of_int x) let baseAddress self = msg_send ~self ~cmd:(selector "baseAddress") ~typ:(returning (ptr void)) -let initWithMappedModel x self = msg_send ~self ~cmd:(selector "initWithMappedModel:") ~typ:(ptr void @-> returning id) x +let initWithMappedModel x self = msg_send ~self ~cmd:(selector "initWithMappedModel:") ~typ:((ptr void) @-> returning id) x let length self = msg_send ~self ~cmd:(selector "length") ~typ:(returning ullong) let ptrFile self = msg_send ~self ~cmd:(selector "ptrFile") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNModelFileImplClass.ml b/Vision/VNModelFileImplClass.ml deleted file mode 100644 index 5120db16..00000000 --- a/Vision/VNModelFileImplClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnmodelfileimpl?language=objc}VNModelFileImpl} *) - -let self = get_class "VNModelFileImpl" - diff --git a/Vision/VNModelFilesCache.ml b/Vision/VNModelFilesCache.ml index 06cba9c5..958eeafc 100644 --- a/Vision/VNModelFilesCache.ml +++ b/Vision/VNModelFilesCache.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/vnmodelfilescache?language=objc}VNModelFilesCache} *) +let self = get_class "VNModelFilesCache" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let load x self = msg_send ~self ~cmd:(selector "load:") ~typ:(id @-> returning id) x let purgeAll self = msg_send ~self ~cmd:(selector "purgeAll") ~typ:(returning void) diff --git a/Vision/VNModelFilesCacheClass.ml b/Vision/VNModelFilesCacheClass.ml index 20791c04..c177e473 100644 --- a/Vision/VNModelFilesCacheClass.ml +++ b/Vision/VNModelFilesCacheClass.ml @@ -4,16 +4,10 @@ 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/vnmodelfilescache?language=objc}VNModelFilesCache} *) -let self = get_class "VNModelFilesCache" - let sharedInstance self = msg_send ~self ~cmd:(selector "sharedInstance") ~typ:(returning id) let useFOpenForModelWithPath x self = msg_send ~self ~cmd:(selector "useFOpenForModelWithPath:") ~typ:(id @-> returning bool) x \ No newline at end of file diff --git a/Vision/VNModelResourceDescriptor.ml b/Vision/VNModelResourceDescriptor.ml deleted file mode 100644 index 0d15d422..00000000 --- a/Vision/VNModelResourceDescriptor.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNModelResourceDescriptor" - -module C = struct - let descriptorForModelURL x self = msg_send ~self ~cmd:(selector "descriptorForModelURL:") ~typ:(id @-> returning (id)) x - let descriptorForVisionCoreInferenceNetworkDescriptor x self = msg_send ~self ~cmd:(selector "descriptorForVisionCoreInferenceNetworkDescriptor:") ~typ:(id @-> returning (id)) x -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let modelURL self = msg_send ~self ~cmd:(selector "modelURL") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNMomentProcessor.ml b/Vision/VNMomentProcessor.ml index 29c82de0..8e537176 100644 --- a/Vision/VNMomentProcessor.ml +++ b/Vision/VNMomentProcessor.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/vnmomentprocessor?language=objc}VNMomentProcessor} *) +let self = get_class "VNMomentProcessor" + let computeClusteringForClusteringTree x ~intoKGroups ~error self = msg_send ~self ~cmd:(selector "computeClusteringForClusteringTree:intoKGroups:error:") ~typ:(id @-> int @-> (ptr id) @-> returning id) x intoKGroups error let computeClusteringForClusteringTree' x ~usingThreshold ~error self = msg_send ~self ~cmd:(selector "computeClusteringForClusteringTree:usingThreshold:error:") ~typ:(id @-> float @-> (ptr id) @-> returning id) x usingThreshold error let computeClusteringOfImageDescriptors x ~intoKGroups ~error self = msg_send ~self ~cmd:(selector "computeClusteringOfImageDescriptors:intoKGroups:error:") ~typ:(id @-> int @-> (ptr id) @-> returning id) x intoKGroups error @@ -21,7 +19,7 @@ let computeClusteringTreeForImageDescriptors' x ~assumeDescriptorsAreSorted ~err let computeNaturalClusteringForClusteringTree x ~error self = msg_send ~self ~cmd:(selector "computeNaturalClusteringForClusteringTree:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let computeNaturalClusteringOfImageDescriptors x ~error self = msg_send ~self ~cmd:(selector "computeNaturalClusteringOfImageDescriptors:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let context self = msg_send ~self ~cmd:(selector "context") ~typ:(returning id) -let convertClusterNodesListToDescriptorsList x self = msg_send ~self ~cmd:(selector "convertClusterNodesListToDescriptorsList:") ~typ:(ptr void @-> returning id) x +let convertClusterNodesListToDescriptorsList x self = msg_send ~self ~cmd:(selector "convertClusterNodesListToDescriptorsList:") ~typ:(id @-> returning id) x let getKey x ~fromDictionary ~withDefault self = msg_send ~self ~cmd:(selector "getKey:fromDictionary:withDefault:") ~typ:(id @-> id @-> id @-> returning id) x fromDictionary withDefault let initWithOptions x ~error self = msg_send ~self ~cmd:(selector "initWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let performClustersPostprocessing x ~error self = msg_send ~self ~cmd:(selector "performClustersPostprocessing:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNMomentProcessorClass.ml b/Vision/VNMomentProcessorClass.ml index e783c4fa..185e787a 100644 --- a/Vision/VNMomentProcessorClass.ml +++ b/Vision/VNMomentProcessorClass.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/vnmomentprocessor?language=objc}VNMomentProcessor} *) -let self = get_class "VNMomentProcessor" - let sortImageDescriptorsChronologically x self = msg_send ~self ~cmd:(selector "sortImageDescriptorsChronologically:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/Vision/VNMultiDetectorOriginalRequestInfo.ml b/Vision/VNMultiDetectorOriginalRequestInfo.ml deleted file mode 100644 index 4448a1c0..00000000 --- a/Vision/VNMultiDetectorOriginalRequestInfo.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNMultiDetectorOriginalRequestInfo" - -module C = struct - 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 -end - -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)) -let originatingRequestSpecifierKey self = msg_send ~self ~cmd:(selector "originatingRequestSpecifierKey") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNMutableEntityIdentificationModel.ml b/Vision/VNMutableEntityIdentificationModel.ml index 8227ae0e..b848ed3b 100644 --- a/Vision/VNMutableEntityIdentificationModel.ml +++ b/Vision/VNMutableEntityIdentificationModel.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/vnmutableentityidentificationmodel?language=objc}VNMutableEntityIdentificationModel} *) +let self = get_class "VNMutableEntityIdentificationModel" + let addAllPersonsFromPersonsModel x ~error self = msg_send ~self ~cmd:(selector "addAllPersonsFromPersonsModel:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let addObservations x ~toEntityWithUniqueIdentifier ~error self = msg_send ~self ~cmd:(selector "addObservations:toEntityWithUniqueIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x toEntityWithUniqueIdentifier error let addPersonWithUniqueIdentifier x ~fromPersonsModel ~error self = msg_send ~self ~cmd:(selector "addPersonWithUniqueIdentifier:fromPersonsModel:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x fromPersonsModel error diff --git a/Vision/VNMutableEntityIdentificationModelClass.ml b/Vision/VNMutableEntityIdentificationModelClass.ml index 99238f5c..db46037b 100644 --- a/Vision/VNMutableEntityIdentificationModelClass.ml +++ b/Vision/VNMutableEntityIdentificationModelClass.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/vnmutableentityidentificationmodel?language=objc}VNMutableEntityIdentificationModel} *) -let self = get_class "VNMutableEntityIdentificationModel" - let canCreateModelOfClass x ~withObjects ~error self = msg_send ~self ~cmd:(selector "canCreateModelOfClass:withObjects:error:") ~typ:(_Class @-> id @-> (ptr id) @-> returning bool) x withObjects error let modelFromPersonsModel x ~error self = msg_send ~self ~cmd:(selector "modelFromPersonsModel:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let modelWithConfiguration x ~error self = msg_send ~self ~cmd:(selector "modelWithConfiguration:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNMutablePersonsModel.ml b/Vision/VNMutablePersonsModel.ml index f82fa534..b0d2d9fe 100644 --- a/Vision/VNMutablePersonsModel.ml +++ b/Vision/VNMutablePersonsModel.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/vnmutablepersonsmodel?language=objc}VNMutablePersonsModel} *) +let self = get_class "VNMutablePersonsModel" + let addFaceObservations x ~toPersonWithUniqueIdentifier ~error self = msg_send ~self ~cmd:(selector "addFaceObservations:toPersonWithUniqueIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x toPersonWithUniqueIdentifier error let dataWithOptions x ~error self = msg_send ~self ~cmd:(selector "dataWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) @@ -22,7 +20,7 @@ let removeAllFaceObservationsFromPersonWithUniqueIdentifier x ~error self = msg_ let removeFaceObservations x ~fromPersonWithUniqueIdentifier ~error self = msg_send ~self ~cmd:(selector "removeFaceObservations:fromPersonWithUniqueIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x fromPersonWithUniqueIdentifier error let removePersonWithUniqueIdentifier x ~error self = msg_send ~self ~cmd:(selector "removePersonWithUniqueIdentifier:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let upToDateFaceModelWithCanceller x ~error self = msg_send ~self ~cmd:(selector "upToDateFaceModelWithCanceller:error:") ~typ:(id @-> (ptr id) @-> returning id) x error -let writeReadOnlyVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeReadOnlyVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> ptr void @-> (ptr id) @-> returning bool) x options md5Context error +let writeReadOnlyVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeReadOnlyVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> (ptr void) @-> (ptr id) @-> returning bool) x options md5Context error let writeToStream x ~options ~error self = msg_send ~self ~cmd:(selector "writeToStream:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x options error let writeToURL x ~options ~error self = msg_send ~self ~cmd:(selector "writeToURL:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x options error -let writeVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> ptr void @-> (ptr id) @-> returning bool) x options md5Context error \ No newline at end of file +let writeVersion1ToOutputStream x ~options ~md5Context ~error self = msg_send ~self ~cmd:(selector "writeVersion1ToOutputStream:options:md5Context:error:") ~typ:(id @-> id @-> (ptr void) @-> (ptr id) @-> returning bool) x options md5Context error \ No newline at end of file diff --git a/Vision/VNMutablePersonsModelClass.ml b/Vision/VNMutablePersonsModelClass.ml index cb847228..1848bb33 100644 --- a/Vision/VNMutablePersonsModelClass.ml +++ b/Vision/VNMutablePersonsModelClass.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/vnmutablepersonsmodel?language=objc}VNMutablePersonsModel} *) -let self = get_class "VNMutablePersonsModel" - let configurationFromLoadedObjects x ~error self = msg_send ~self ~cmd:(selector "configurationFromLoadedObjects:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let newModelFromVersion x ~objects ~error self = msg_send ~self ~cmd:(selector "newModelFromVersion:objects:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) objects error let supportedWriteVersions self = msg_send ~self ~cmd:(selector "supportedWriteVersions") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNNOPRequest.ml b/Vision/VNNOPRequest.ml index 9c5655fd..22087c66 100644 --- a/Vision/VNNOPRequest.ml +++ b/Vision/VNNOPRequest.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/vnnoprequest?language=objc}VNNOPRequest} *) +let self = get_class "VNNOPRequest" + let detectorExecutionTimeInterval self = msg_send ~self ~cmd:(selector "detectorExecutionTimeInterval") ~typ:(returning double) let detectorPreferredImageSize self = msg_send ~self ~cmd:(selector "detectorPreferredImageSize") ~typ:(returning id) let detectorWantsAnisotropicScaling self = msg_send ~self ~cmd:(selector "detectorWantsAnisotropicScaling") ~typ:(returning bool) diff --git a/Vision/VNNOPRequestClass.ml b/Vision/VNNOPRequestClass.ml index 2ec65324..b913ccbe 100644 --- a/Vision/VNNOPRequestClass.ml +++ b/Vision/VNNOPRequestClass.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/vnnoprequest?language=objc}VNNOPRequest} *) -let self = get_class "VNNOPRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNNOPRequestConfiguration.ml b/Vision/VNNOPRequestConfiguration.ml index 64ed0802..6678891a 100644 --- a/Vision/VNNOPRequestConfiguration.ml +++ b/Vision/VNNOPRequestConfiguration.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/vnnoprequestconfiguration?language=objc}VNNOPRequestConfiguration} *) +let self = get_class "VNNOPRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let detectorExecutionTimeInterval self = msg_send ~self ~cmd:(selector "detectorExecutionTimeInterval") ~typ:(returning double) let detectorPreferredImageSize self = msg_send ~self ~cmd:(selector "detectorPreferredImageSize") ~typ:(returning id) diff --git a/Vision/VNNOPRequestConfigurationClass.ml b/Vision/VNNOPRequestConfigurationClass.ml deleted file mode 100644 index af874f14..00000000 --- a/Vision/VNNOPRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnnoprequestconfiguration?language=objc}VNNOPRequestConfiguration} *) - -let self = get_class "VNNOPRequestConfiguration" - diff --git a/Vision/VNObjectAtPointDetectorRevision1.ml b/Vision/VNObjectAtPointDetectorRevision1.ml index e7c48ad0..70ad4813 100644 --- a/Vision/VNObjectAtPointDetectorRevision1.ml +++ b/Vision/VNObjectAtPointDetectorRevision1.ml @@ -5,15 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNObjectAtPointDetectorRevision1" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnobjectatpointdetectorrevision1?language=objc}VNObjectAtPointDetectorRevision1} *) -module Class = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x -end +let self = get_class "VNObjectAtPointDetectorRevision1" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNObjectAtPointDetectorRevision1Class.ml b/Vision/VNObjectAtPointDetectorRevision1Class.ml new file mode 100644 index 00000000..05c781ba --- /dev/null +++ b/Vision/VNObjectAtPointDetectorRevision1Class.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnobjectatpointdetectorrevision1?language=objc}VNObjectAtPointDetectorRevision1} *) + +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning ullong) x +let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning uint) x \ No newline at end of file diff --git a/Vision/VNObjectBasedSaliencyGenerator.ml b/Vision/VNObjectBasedSaliencyGenerator.ml index 39ad766f..3be40df6 100644 --- a/Vision/VNObjectBasedSaliencyGenerator.ml +++ b/Vision/VNObjectBasedSaliencyGenerator.ml @@ -5,15 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNObjectBasedSaliencyGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnobjectbasedsaliencygenerator?language=objc}VNObjectBasedSaliencyGenerator} *) -module Class = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x -end +let self = get_class "VNObjectBasedSaliencyGenerator" -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler -let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x withOptions error \ No newline at end of file +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler +let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x withOptions error \ No newline at end of file diff --git a/Vision/VNObjectBasedSaliencyGeneratorClass.ml b/Vision/VNObjectBasedSaliencyGeneratorClass.ml new file mode 100644 index 00000000..bb900f90 --- /dev/null +++ b/Vision/VNObjectBasedSaliencyGeneratorClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnobjectbasedsaliencygenerator?language=objc}VNObjectBasedSaliencyGenerator} *) + +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning ullong) x +let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning uint) x \ No newline at end of file diff --git a/Vision/VNObjectTrackerLegacyFaceCore.ml b/Vision/VNObjectTrackerLegacyFaceCore.ml index 536254f8..aa529c02 100644 --- a/Vision/VNObjectTrackerLegacyFaceCore.ml +++ b/Vision/VNObjectTrackerLegacyFaceCore.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/vnobjecttrackerlegacyfacecore?language=objc}VNObjectTrackerLegacyFaceCore} *) +let self = get_class "VNObjectTrackerLegacyFaceCore" + let initWithOptions x ~error self = msg_send ~self ~cmd:(selector "initWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let isResettable self = msg_send ~self ~cmd:(selector "isResettable") ~typ:(returning bool) let reset x self = msg_send ~self ~cmd:(selector "reset:") ~typ:((ptr id) @-> returning bool) x diff --git a/Vision/VNObjectTrackerLegacyFaceCoreClass.ml b/Vision/VNObjectTrackerLegacyFaceCoreClass.ml index 88bb223b..752e2a1c 100644 --- a/Vision/VNObjectTrackerLegacyFaceCoreClass.ml +++ b/Vision/VNObjectTrackerLegacyFaceCoreClass.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/vnobjecttrackerlegacyfacecore?language=objc}VNObjectTrackerLegacyFaceCore} *) -let self = get_class "VNObjectTrackerLegacyFaceCore" - let trackerObservationClass self = msg_send ~self ~cmd:(selector "trackerObservationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNObservation.ml b/Vision/VNObservation.ml index 8512324d..060a5283 100644 --- a/Vision/VNObservation.ml +++ b/Vision/VNObservation.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/vnobservation?language=objc}VNObservation} *) +let self = get_class "VNObservation" + let _VNEntityIdentificationModelPrintWithOriginatingRequestSpecifier x ~error self = msg_send ~self ~cmd:(selector "VNEntityIdentificationModelPrintWithOriginatingRequestSpecifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNObservationClass.ml b/Vision/VNObservationClass.ml index 2b8992b6..96c18831 100644 --- a/Vision/VNObservationClass.ml +++ b/Vision/VNObservationClass.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/vnobservation?language=objc}VNObservation} *) -let self = get_class "VNObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let defaultOriginatingRequestSpecifierForRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestSpecifierForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNObservationsCache.ml b/Vision/VNObservationsCache.ml index 785e45b2..a083feb3 100644 --- a/Vision/VNObservationsCache.ml +++ b/Vision/VNObservationsCache.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/vnobservationscache?language=objc}VNObservationsCache} *) +let self = get_class "VNObservationsCache" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let observationsAcceptedByRequest x ~testedKeyHandler self = msg_send ~self ~cmd:(selector "observationsAcceptedByRequest:testedKeyHandler:") ~typ:(id @-> (ptr void) @-> returning id) x testedKeyHandler let observationsForKey x self = msg_send ~self ~cmd:(selector "observationsForKey:") ~typ:(id @-> returning id) x diff --git a/Vision/VNObservationsCacheClass.ml b/Vision/VNObservationsCacheClass.ml deleted file mode 100644 index b190d5ca..00000000 --- a/Vision/VNObservationsCacheClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnobservationscache?language=objc}VNObservationsCache} *) - -let self = get_class "VNObservationsCache" - diff --git a/Vision/VNOperationPoints.ml b/Vision/VNOperationPoints.ml index 36ebf5f8..8d7078a9 100644 --- a/Vision/VNOperationPoints.ml +++ b/Vision/VNOperationPoints.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/vnoperationpoints?language=objc}VNOperationPoints} *) +let self = get_class "VNOperationPoints" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let getConfidence x ~forClassificationIdentifier ~withPrecision ~error self = msg_send ~self ~cmd:(selector "getConfidence:forClassificationIdentifier:withPrecision:error:") ~typ:((ptr float) @-> id @-> float @-> (ptr id) @-> returning bool) x forClassificationIdentifier withPrecision error diff --git a/Vision/VNOperationPointsClass.ml b/Vision/VNOperationPointsClass.ml index 996e7cb0..28807319 100644 --- a/Vision/VNOperationPointsClass.ml +++ b/Vision/VNOperationPointsClass.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/vnoperationpoints?language=objc}VNOperationPoints} *) -let self = get_class "VNOperationPoints" - let errorForUnimplementedMethod x self = msg_send ~self ~cmd:(selector "errorForUnimplementedMethod:") ~typ:(_SEL @-> returning id) x let errorForUnknownClassificationIdentifier x self = msg_send ~self ~cmd:(selector "errorForUnknownClassificationIdentifier:") ~typ:(id @-> returning id) x let loadFromURL x ~error self = msg_send ~self ~cmd:(selector "loadFromURL:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNOperationPointsProvider.ml b/Vision/VNOperationPointsProvider.ml index bce1abfc..f4f7e02c 100644 --- a/Vision/VNOperationPointsProvider.ml +++ b/Vision/VNOperationPointsProvider.ml @@ -5,9 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNOperationPointsProvider" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnoperationpointsprovider?language=objc}VNOperationPointsProvider} *) -let initWithOperationPoints x self = msg_send ~self ~cmd:(selector "initWithOperationPoints:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let operationPointsAndReturnError x self = msg_send ~self ~cmd:(selector "operationPointsAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file +let self = get_class "VNOperationPointsProvider" + +let initWithOperationPoints x self = msg_send ~self ~cmd:(selector "initWithOperationPoints:") ~typ:(id @-> returning id) x +let operationPointsAndReturnError x self = msg_send ~self ~cmd:(selector "operationPointsAndReturnError:") ~typ:((ptr id) @-> returning id) x \ No newline at end of file diff --git a/Vision/VNOpticalFlowGeneratorRevision2.ml b/Vision/VNOpticalFlowGeneratorRevision2.ml deleted file mode 100644 index 5d4ee0b1..00000000 --- a/Vision/VNOpticalFlowGeneratorRevision2.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNOpticalFlowGeneratorRevision2" - -module C = struct - let computeStagesToBindForConfigurationOptions x self = msg_send ~self ~cmd:(selector "computeStagesToBindForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNOpticalFlowObservation.ml b/Vision/VNOpticalFlowObservation.ml index 1c782c01..26fb3e7e 100644 --- a/Vision/VNOpticalFlowObservation.ml +++ b/Vision/VNOpticalFlowObservation.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/vnopticalflowobservation?language=objc}VNOpticalFlowObservation} *) +let self = get_class "VNOpticalFlowObservation" + let opticalFlow self = msg_send ~self ~cmd:(selector "opticalFlow") ~typ:(returning id) let setOpticalFlow x self = msg_send ~self ~cmd:(selector "setOpticalFlow:") ~typ:(id @-> returning void) x let setTargetImageSignature x self = msg_send ~self ~cmd:(selector "setTargetImageSignature:") ~typ:(id @-> returning void) x diff --git a/Vision/VNOpticalFlowObservationClass.ml b/Vision/VNOpticalFlowObservationClass.ml index 94bb5dab..cefe2c04 100644 --- a/Vision/VNOpticalFlowObservationClass.ml +++ b/Vision/VNOpticalFlowObservationClass.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/vnopticalflowobservation?language=objc}VNOpticalFlowObservation} *) -let self = get_class "VNOpticalFlowObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) \ No newline at end of file diff --git a/Vision/VNPanopticSegmentationGenerator.ml b/Vision/VNPanopticSegmentationGenerator.ml deleted file mode 100644 index 9b849d44..00000000 --- a/Vision/VNPanopticSegmentationGenerator.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPanopticSegmentationGenerator" - -module C = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNPersonSegmentationGenerator.ml b/Vision/VNPersonSegmentationGenerator.ml index 31f9d980..c59bb590 100644 --- a/Vision/VNPersonSegmentationGenerator.ml +++ b/Vision/VNPersonSegmentationGenerator.ml @@ -5,13 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNPersonSegmentationGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnpersonsegmentationgenerator?language=objc}VNPersonSegmentationGenerator} *) -module Class = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error -end +let self = get_class "VNPersonSegmentationGenerator" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNPersonSegmentationGeneratorClass.ml b/Vision/VNPersonSegmentationGeneratorClass.ml new file mode 100644 index 00000000..de394ddf --- /dev/null +++ b/Vision/VNPersonSegmentationGeneratorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnpersonsegmentationgenerator?language=objc}VNPersonSegmentationGenerator} *) + +let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) +let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> (ptr id) @-> returning _Class) x error \ No newline at end of file diff --git a/Vision/VNPersonSegmentationGeneratorInstanceBased4People.ml b/Vision/VNPersonSegmentationGeneratorInstanceBased4People.ml deleted file mode 100644 index 5bb09f66..00000000 --- a/Vision/VNPersonSegmentationGeneratorInstanceBased4People.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPersonSegmentationGeneratorInstanceBased4People" - -module C = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageBlobName self = msg_send ~self ~cmd:(selector "inputImageBlobName") ~typ:(returning (id)) - let inputMaskBlobName self = msg_send ~self ~cmd:(selector "inputMaskBlobName") ~typ:(returning (id)) - let inputMaskRequired self = msg_send ~self ~cmd:(selector "inputMaskRequired") ~typ:(returning (bool)) - let outputConfidenceBlobNames self = msg_send ~self ~cmd:(selector "outputConfidenceBlobNames") ~typ:(returning (id)) - let outputMaskBlobNameToRequestKey self = msg_send ~self ~cmd:(selector "outputMaskBlobNameToRequestKey") ~typ:(returning (id)) - let outputMaskBlobNames self = msg_send ~self ~cmd:(selector "outputMaskBlobNames") ~typ:(returning (id)) - let rotateImageToMatchNetworkOrientation self = msg_send ~self ~cmd:(selector "rotateImageToMatchNetworkOrientation") ~typ:(returning (bool)) -end - -let bindOutputConfidenceBuffersAndReturnError x self = msg_send ~self ~cmd:(selector "bindOutputConfidenceBuffersAndReturnError:") ~typ:(ptr (id) @-> returning (bool)) x -let initializeOutputConfidenceBuffers x self = msg_send ~self ~cmd:(selector "initializeOutputConfidenceBuffers:") ~typ:(ptr (void) @-> returning (void)) x -let validateMaskForBlobName x ~options ~maskConfidence ~maskAcceptable ~error self = msg_send ~self ~cmd:(selector "validateMaskForBlobName:options:maskConfidence:maskAcceptable:error:") ~typ:(id @-> id @-> ptr (float) @-> ptr (bool) @-> ptr (id) @-> returning (bool)) x options maskConfidence maskAcceptable error \ No newline at end of file diff --git a/Vision/VNPersonsModel.ml b/Vision/VNPersonsModel.ml index 500c38fd..49ee6f1b 100644 --- a/Vision/VNPersonsModel.ml +++ b/Vision/VNPersonsModel.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/vnpersonsmodel?language=objc}VNPersonsModel} *) +let self = get_class "VNPersonsModel" + let configuration self = msg_send ~self ~cmd:(selector "configuration") ~typ:(returning id) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let faceCountForPersonWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "faceCountForPersonWithUniqueIdentifier:") ~typ:(id @-> returning ullong) x diff --git a/Vision/VNPersonsModelAlgorithm.ml b/Vision/VNPersonsModelAlgorithm.ml deleted file mode 100644 index a62cef28..00000000 --- a/Vision/VNPersonsModelAlgorithm.ml +++ /dev/null @@ -1,19 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPersonsModelAlgorithm" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let faceModelClass self = msg_send ~self ~cmd:(selector "faceModelClass") ~typ:(returning (_Class)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNPersonsModelAlgorithmVIPv2.ml b/Vision/VNPersonsModelAlgorithmVIPv2.ml deleted file mode 100644 index 5ea7c47a..00000000 --- a/Vision/VNPersonsModelAlgorithmVIPv2.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPersonsModelAlgorithmVIPv2" - -module Class = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let faceModelClass self = msg_send ~self ~cmd:(selector "faceModelClass") ~typ:(returning (_Class)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNPersonsModelAlgorithmVIPv3.ml b/Vision/VNPersonsModelAlgorithmVIPv3.ml deleted file mode 100644 index 99e137ab..00000000 --- a/Vision/VNPersonsModelAlgorithmVIPv3.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPersonsModelAlgorithmVIPv3" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let faceModelClass self = msg_send ~self ~cmd:(selector "faceModelClass") ~typ:(returning (_Class)) -let indexType self = msg_send ~self ~cmd:(selector "indexType") ~typ:(returning (llong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let setIndexType x self = msg_send ~self ~cmd:(selector "setIndexType:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/Vision/VNPersonsModelClass.ml b/Vision/VNPersonsModelClass.ml index 340dfe0e..8e034544 100644 --- a/Vision/VNPersonsModelClass.ml +++ b/Vision/VNPersonsModelClass.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/vnpersonsmodel?language=objc}VNPersonsModel} *) -let self = get_class "VNPersonsModel" - let configurationFromLoadedObjects x ~error self = msg_send ~self ~cmd:(selector "configurationFromLoadedObjects:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let informationForModelWithData x ~error self = msg_send ~self ~cmd:(selector "informationForModelWithData:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let informationForModelWithURL x ~error self = msg_send ~self ~cmd:(selector "informationForModelWithURL:error:") ~typ:(id @-> (ptr id) @-> returning id) x error @@ -22,6 +16,6 @@ let modelFromData x ~options ~error self = msg_send ~self ~cmd:(selector "modelF let modelFromStream x ~options ~error self = msg_send ~self ~cmd:(selector "modelFromStream:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x options error let modelFromURL x ~options ~error self = msg_send ~self ~cmd:(selector "modelFromURL:options:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x options error let newModelFromVersion x ~objects ~error self = msg_send ~self ~cmd:(selector "newModelFromVersion:objects:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) objects error -let readObjectForVersion1Tag x ~fromInputStream ~intoObjectDictionary ~md5Context ~error self = msg_send ~self ~cmd:(selector "readObjectForVersion1Tag:fromInputStream:intoObjectDictionary:md5Context:error:") ~typ:(uint @-> id @-> id @-> ptr void @-> (ptr id) @-> returning bool) x fromInputStream intoObjectDictionary md5Context error +let readObjectForVersion1Tag x ~fromInputStream ~intoObjectDictionary ~md5Context ~error self = msg_send ~self ~cmd:(selector "readObjectForVersion1Tag:fromInputStream:intoObjectDictionary:md5Context:error:") ~typ:(uint @-> id @-> id @-> (ptr void) @-> (ptr id) @-> returning bool) x fromInputStream intoObjectDictionary md5Context error let supportedReadVersions self = msg_send ~self ~cmd:(selector "supportedReadVersions") ~typ:(returning id) let versionNumbersEncodedInClass x ~withMethodNamePrefix ~suffix self = msg_send ~self ~cmd:(selector "versionNumbersEncodedInClass:withMethodNamePrefix:suffix:") ~typ:(_Class @-> id @-> id @-> returning id) x withMethodNamePrefix suffix \ No newline at end of file diff --git a/Vision/VNPersonsModelConfiguration.ml b/Vision/VNPersonsModelConfiguration.ml index e3437904..8baad968 100644 --- a/Vision/VNPersonsModelConfiguration.ml +++ b/Vision/VNPersonsModelConfiguration.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/vnpersonsmodelconfiguration?language=objc}VNPersonsModelConfiguration} *) +let self = get_class "VNPersonsModelConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNPersonsModelConfigurationClass.ml b/Vision/VNPersonsModelConfigurationClass.ml index dd99fed9..4d3e5f8c 100644 --- a/Vision/VNPersonsModelConfigurationClass.ml +++ b/Vision/VNPersonsModelConfigurationClass.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/vnpersonsmodelconfiguration?language=objc}VNPersonsModelConfiguration} *) -let self = get_class "VNPersonsModelConfiguration" - let maximumAllowableFaceprintsPerIdentity self = msg_send ~self ~cmd:(selector "maximumAllowableFaceprintsPerIdentity") ~typ:(returning ullong) let maximumAllowableIdentities self = msg_send ~self ~cmd:(selector "maximumAllowableIdentities") ~typ:(returning ullong) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPersonsModelData.ml b/Vision/VNPersonsModelData.ml index dbd70ca7..efb40268 100644 --- a/Vision/VNPersonsModelData.ml +++ b/Vision/VNPersonsModelData.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/vnpersonsmodeldata?language=objc}VNPersonsModelData} *) +let self = get_class "VNPersonsModelData" + let addFaceObservations x ~toPersonWithUniqueIdentifier ~error self = msg_send ~self ~cmd:(selector "addFaceObservations:toPersonWithUniqueIdentifier:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x toPersonWithUniqueIdentifier error let delegate self = msg_send ~self ~cmd:(selector "delegate") ~typ:(returning id) let faceModelFaceObservationAtIndex x ~forPersonAtIndex self = msg_send ~self ~cmd:(selector "faceModelFaceObservationAtIndex:forPersonAtIndex:") ~typ:(ullong @-> ullong @-> returning id) (ULLong.of_int x) (ULLong.of_int forPersonAtIndex) diff --git a/Vision/VNPersonsModelDataClass.ml b/Vision/VNPersonsModelDataClass.ml deleted file mode 100644 index b969323c..00000000 --- a/Vision/VNPersonsModelDataClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnpersonsmodeldata?language=objc}VNPersonsModelData} *) - -let self = get_class "VNPersonsModelData" - diff --git a/Vision/VNPersonsModelFaceModel.ml b/Vision/VNPersonsModelFaceModel.ml index fc8b804a..bb1b3b2d 100644 --- a/Vision/VNPersonsModelFaceModel.ml +++ b/Vision/VNPersonsModelFaceModel.ml @@ -4,22 +4,20 @@ 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/vnpersonsmodelfacemodel?language=objc}VNPersonsModelFaceModel} *) +let self = get_class "VNPersonsModelFaceModel" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let faceCountForPersonWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "faceCountForPersonWithUniqueIdentifier:") ~typ:(id @-> returning ullong) x let faceCountsForAllPersons self = msg_send ~self ~cmd:(selector "faceCountsForAllPersons") ~typ:(returning id) let faceCountsForPersonsWithUniqueIdentifiers x self = msg_send ~self ~cmd:(selector "faceCountsForPersonsWithUniqueIdentifiers:") ~typ:(id @-> returning id) x let faceprintRequestRevision self = msg_send ~self ~cmd:(selector "faceprintRequestRevision") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x -let initWithFaceIDModel x ~faceprintRequestRevision ~maximumElementsPerID ~personUniqueIdentifierToSerialNumberMapping self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:faceprintRequestRevision:maximumElementsPerID:personUniqueIdentifierToSerialNumberMapping:") ~typ:(ptr void @-> ullong @-> ullong @-> id @-> returning id) x (ULLong.of_int faceprintRequestRevision) (ULLong.of_int maximumElementsPerID) personUniqueIdentifierToSerialNumberMapping +let initWithFaceIDModel x ~faceprintRequestRevision ~maximumElementsPerID ~personUniqueIdentifierToSerialNumberMapping self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:faceprintRequestRevision:maximumElementsPerID:personUniqueIdentifierToSerialNumberMapping:") ~typ:(id @-> ullong @-> ullong @-> id @-> returning id) x (ULLong.of_int faceprintRequestRevision) (ULLong.of_int maximumElementsPerID) personUniqueIdentifierToSerialNumberMapping let personCount self = msg_send ~self ~cmd:(selector "personCount") ~typ:(returning ullong) let personPredictionsForFace x ~withDescriptor ~limit ~canceller ~error self = msg_send ~self ~cmd:(selector "personPredictionsForFace:withDescriptor:limit:canceller:error:") ~typ:(id @-> (ptr void) @-> ullong @-> id @-> (ptr id) @-> returning id) x withDescriptor (ULLong.of_int limit) canceller error let personUniqueIdentifiers self = msg_send ~self ~cmd:(selector "personUniqueIdentifiers") ~typ:(returning id) diff --git a/Vision/VNPersonsModelFaceModelClass.ml b/Vision/VNPersonsModelFaceModelClass.ml index 69854a88..fd5fd77f 100644 --- a/Vision/VNPersonsModelFaceModelClass.ml +++ b/Vision/VNPersonsModelFaceModelClass.ml @@ -4,16 +4,10 @@ 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/vnpersonsmodelfacemodel?language=objc}VNPersonsModelFaceModel} *) -let self = get_class "VNPersonsModelFaceModel" - let modelBuiltFromConfiguration x ~dataProvider ~canceller ~error self = msg_send ~self ~cmd:(selector "modelBuiltFromConfiguration:dataProvider:canceller:error:") ~typ:(id @-> id @-> id @-> (ptr id) @-> returning id) x dataProvider canceller error let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPersonsModelFaceModelVIPv2.ml b/Vision/VNPersonsModelFaceModelVIPv2.ml deleted file mode 100644 index c20e4376..00000000 --- a/Vision/VNPersonsModelFaceModelVIPv2.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPersonsModelFaceModelVIPv2" - -module C = struct - let getStoredRepresentationTag x ~forModelVersion ~error self = msg_send ~self ~cmd:(selector "getStoredRepresentationTag:forModelVersion:error:") ~typ:(ptr (uint) @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int forModelVersion) error - let modelBuiltFromConfiguration x ~dataProvider ~canceller ~error self = msg_send ~self ~cmd:(selector "modelBuiltFromConfiguration:dataProvider:canceller:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (id)) x dataProvider canceller error - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let faceCountForPersonWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "faceCountForPersonWithUniqueIdentifier:") ~typ:(id @-> returning (ullong)) x -let faceCountsForAllPersons self = msg_send ~self ~cmd:(selector "faceCountsForAllPersons") ~typ:(returning (id)) -let faceCountsForPersonsWithUniqueIdentifiers x self = msg_send ~self ~cmd:(selector "faceCountsForPersonsWithUniqueIdentifiers:") ~typ:(id @-> returning (id)) x -let faceprintRequestRevision self = msg_send ~self ~cmd:(selector "faceprintRequestRevision") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFaceIDModel x ~faceprintRequestRevision ~maximumElementsPerID ~personUniqueIdentifierToSerialNumberMapping self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:faceprintRequestRevision:maximumElementsPerID:personUniqueIdentifierToSerialNumberMapping:") ~typ:(ptr void @-> ullong @-> ullong @-> id @-> returning (id)) x (ULLong.of_int faceprintRequestRevision) (ULLong.of_int maximumElementsPerID) personUniqueIdentifierToSerialNumberMapping -let personCount self = msg_send ~self ~cmd:(selector "personCount") ~typ:(returning (ullong)) -let personPredictionsForFace x ~withDescriptor ~limit ~canceller ~error self = msg_send ~self ~cmd:(selector "personPredictionsForFace:withDescriptor:limit:canceller:error:") ~typ:(id @-> ptr (void) @-> ullong @-> id @-> ptr (id) @-> returning (id)) x withDescriptor (ULLong.of_int limit) canceller error -let personUniqueIdentifiers self = msg_send ~self ~cmd:(selector "personUniqueIdentifiers") ~typ:(returning (id)) -let trainingFaceprintsForPersonWithUniqueIdentifier x ~error self = msg_send ~self ~cmd:(selector "trainingFaceprintsForPersonWithUniqueIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file diff --git a/Vision/VNPersonsModelFaceModelVIPv3.ml b/Vision/VNPersonsModelFaceModelVIPv3.ml deleted file mode 100644 index f53d91fa..00000000 --- a/Vision/VNPersonsModelFaceModelVIPv3.ml +++ /dev/null @@ -1,27 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPersonsModelFaceModelVIPv3" - -module C = struct - let getStoredRepresentationTag x ~forModelVersion ~error self = msg_send ~self ~cmd:(selector "getStoredRepresentationTag:forModelVersion:error:") ~typ:(ptr (uint) @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int forModelVersion) error - let modelBuiltFromConfiguration x ~dataProvider ~canceller ~error self = msg_send ~self ~cmd:(selector "modelBuiltFromConfiguration:dataProvider:canceller:error:") ~typ:(id @-> id @-> id @-> ptr (id) @-> returning (id)) x dataProvider canceller error - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let faceCountForPersonWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "faceCountForPersonWithUniqueIdentifier:") ~typ:(id @-> returning (ullong)) x -let faceCountsForAllPersons self = msg_send ~self ~cmd:(selector "faceCountsForAllPersons") ~typ:(returning (id)) -let faceCountsForPersonsWithUniqueIdentifiers x self = msg_send ~self ~cmd:(selector "faceCountsForPersonsWithUniqueIdentifiers:") ~typ:(id @-> returning (id)) x -let faceprintRequestRevision self = msg_send ~self ~cmd:(selector "faceprintRequestRevision") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithFaceIDModel x ~faceprintRequestRevision ~personUniqueIdentifierToSerialNumberMapping self = msg_send ~self ~cmd:(selector "initWithFaceIDModel:faceprintRequestRevision:personUniqueIdentifierToSerialNumberMapping:") ~typ:(ptr void @-> ullong @-> id @-> returning (id)) x (ULLong.of_int faceprintRequestRevision) personUniqueIdentifierToSerialNumberMapping -let personCount self = msg_send ~self ~cmd:(selector "personCount") ~typ:(returning (ullong)) -let personPredictionsForFace x ~withDescriptor ~limit ~canceller ~error self = msg_send ~self ~cmd:(selector "personPredictionsForFace:withDescriptor:limit:canceller:error:") ~typ:(id @-> ptr (void) @-> ullong @-> id @-> ptr (id) @-> returning (id)) x withDescriptor (ULLong.of_int limit) canceller error -let personUniqueIdentifiers self = msg_send ~self ~cmd:(selector "personUniqueIdentifiers") ~typ:(returning (id)) -let trainingFaceprintsForPersonWithUniqueIdentifier x ~error self = msg_send ~self ~cmd:(selector "trainingFaceprintsForPersonWithUniqueIdentifier:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file diff --git a/Vision/VNPersonsModelInformation.ml b/Vision/VNPersonsModelInformation.ml index 85db84ac..0878a1a7 100644 --- a/Vision/VNPersonsModelInformation.ml +++ b/Vision/VNPersonsModelInformation.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/vnpersonsmodelinformation?language=objc}VNPersonsModelInformation} *) +let self = get_class "VNPersonsModelInformation" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNPersonsModelInformationClass.ml b/Vision/VNPersonsModelInformationClass.ml index 03056d29..feea8d49 100644 --- a/Vision/VNPersonsModelInformationClass.ml +++ b/Vision/VNPersonsModelInformationClass.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/vnpersonsmodelinformation?language=objc}VNPersonsModelInformation} *) -let self = get_class "VNPersonsModelInformation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPersonsModelPrediction.ml b/Vision/VNPersonsModelPrediction.ml index 0b4cd987..a5573f3a 100644 --- a/Vision/VNPersonsModelPrediction.ml +++ b/Vision/VNPersonsModelPrediction.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/vnpersonsmodelprediction?language=objc}VNPersonsModelPrediction} *) +let self = get_class "VNPersonsModelPrediction" + let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNPersonsModelPredictionClass.ml b/Vision/VNPersonsModelPredictionClass.ml index 44b73099..4a0bb577 100644 --- a/Vision/VNPersonsModelPredictionClass.ml +++ b/Vision/VNPersonsModelPredictionClass.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/vnpersonsmodelprediction?language=objc}VNPersonsModelPrediction} *) -let self = get_class "VNPersonsModelPrediction" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPersonsModelReadOptions.ml b/Vision/VNPersonsModelReadOptions.ml index a632c4c5..f0c88af0 100644 --- a/Vision/VNPersonsModelReadOptions.ml +++ b/Vision/VNPersonsModelReadOptions.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/vnpersonsmodelreadoptions?language=objc}VNPersonsModelReadOptions} *) +let self = get_class "VNPersonsModelReadOptions" + let acceptableVersions self = msg_send ~self ~cmd:(selector "acceptableVersions") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNPersonsModelReadOptionsClass.ml b/Vision/VNPersonsModelReadOptionsClass.ml index 0f5d08db..155916fe 100644 --- a/Vision/VNPersonsModelReadOptionsClass.ml +++ b/Vision/VNPersonsModelReadOptionsClass.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/vnpersonsmodelreadoptions?language=objc}VNPersonsModelReadOptions} *) -let self = get_class "VNPersonsModelReadOptions" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPersonsModelWriteOptions.ml b/Vision/VNPersonsModelWriteOptions.ml index 99bac5de..1d9b5511 100644 --- a/Vision/VNPersonsModelWriteOptions.ml +++ b/Vision/VNPersonsModelWriteOptions.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/vnpersonsmodelwriteoptions?language=objc}VNPersonsModelWriteOptions} *) +let self = get_class "VNPersonsModelWriteOptions" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNPersonsModelWriteOptionsClass.ml b/Vision/VNPersonsModelWriteOptionsClass.ml index 768409d6..82ca9fba 100644 --- a/Vision/VNPersonsModelWriteOptionsClass.ml +++ b/Vision/VNPersonsModelWriteOptionsClass.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/vnpersonsmodelwriteoptions?language=objc}VNPersonsModelWriteOptions} *) -let self = get_class "VNPersonsModelWriteOptions" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPixelBufferMLFeatureProvider.ml b/Vision/VNPixelBufferMLFeatureProvider.ml deleted file mode 100644 index 0a4c47e6..00000000 --- a/Vision/VNPixelBufferMLFeatureProvider.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPixelBufferMLFeatureProvider" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let featureNames self = msg_send ~self ~cmd:(selector "featureNames") ~typ:(returning (id)) -let featureValueForName x self = msg_send ~self ~cmd:(selector "featureValueForName:") ~typ:(id @-> returning (id)) x -let initWithPixelBuffer x ~forKey ~originalFeatureProvider self = msg_send ~self ~cmd:(selector "initWithPixelBuffer:forKey:originalFeatureProvider:") ~typ:(ptr void @-> id @-> id @-> returning (id)) x forKey originalFeatureProvider \ No newline at end of file diff --git a/Vision/VNPixelBufferObservation.ml b/Vision/VNPixelBufferObservation.ml index a76328c0..49c16754 100644 --- a/Vision/VNPixelBufferObservation.ml +++ b/Vision/VNPixelBufferObservation.ml @@ -4,21 +4,19 @@ 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/vnpixelbufferobservation?language=objc}VNPixelBufferObservation} *) +let self = get_class "VNPixelBufferObservation" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let featureName self = msg_send ~self ~cmd:(selector "featureName") ~typ:(returning id) let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x -let initWithOriginatingRequestSpecifier x ~featureName ~_CVPixelBuffer self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:featureName:CVPixelBuffer:") ~typ:(id @-> id @-> (ptr CVBuffer.t) @-> returning id) x featureName _CVPixelBuffer +let initWithOriginatingRequestSpecifier x ~featureName ~_CVPixelBuffer self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:featureName:CVPixelBuffer:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x featureName _CVPixelBuffer let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x -let pixelBuffer self = msg_send ~self ~cmd:(selector "pixelBuffer") ~typ:(returning (ptr CVBuffer.t)) \ No newline at end of file +let pixelBuffer self = msg_send ~self ~cmd:(selector "pixelBuffer") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNPixelBufferObservationClass.ml b/Vision/VNPixelBufferObservationClass.ml index fc5ac056..ef0a63a6 100644 --- a/Vision/VNPixelBufferObservationClass.ml +++ b/Vision/VNPixelBufferObservationClass.ml @@ -4,16 +4,10 @@ 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/vnpixelbufferobservation?language=objc}VNPixelBufferObservation} *) -let self = get_class "VNPixelBufferObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNPoint.ml b/Vision/VNPoint.ml index a63e9a5b..7257efef 100644 --- a/Vision/VNPoint.ml +++ b/Vision/VNPoint.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/vnpoint?language=objc}VNPoint} *) +let self = get_class "VNPoint" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let distanceToPoint x self = msg_send ~self ~cmd:(selector "distanceToPoint:") ~typ:(id @-> returning double) x diff --git a/Vision/VNPoint3D.ml b/Vision/VNPoint3D.ml deleted file mode 100644 index cb2a7a8b..00000000 --- a/Vision/VNPoint3D.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNPoint3D" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithPosition x self = msg_send ~self ~cmd:(selector "initWithPosition:") ~typ:(ptr void @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNPointClass.ml b/Vision/VNPointClass.ml index 637257ad..572eb39b 100644 --- a/Vision/VNPointClass.ml +++ b/Vision/VNPointClass.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/vnpoint?language=objc}VNPoint} *) -let self = get_class "VNPoint" - let distanceBetweenPoint x ~point self = msg_send ~self ~cmd:(selector "distanceBetweenPoint:point:") ~typ:(id @-> id @-> returning double) x point let pointByApplyingVector x ~toPoint self = msg_send ~self ~cmd:(selector "pointByApplyingVector:toPoint:") ~typ:(id @-> id @-> returning id) x toPoint let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) diff --git a/Vision/VNProcessingDevice.ml b/Vision/VNProcessingDevice.ml index 3178043a..ae61caa3 100644 --- a/Vision/VNProcessingDevice.ml +++ b/Vision/VNProcessingDevice.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/vnprocessingdevice?language=objc}VNProcessingDevice} *) +let self = get_class "VNProcessingDevice" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let espressoDeviceID self = msg_send ~self ~cmd:(selector "espressoDeviceID") ~typ:(returning int) diff --git a/Vision/VNProcessingDeviceClass.ml b/Vision/VNProcessingDeviceClass.ml index 24b9778e..90c5409f 100644 --- a/Vision/VNProcessingDeviceClass.ml +++ b/Vision/VNProcessingDeviceClass.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/vnprocessingdevice?language=objc}VNProcessingDevice} *) -let self = get_class "VNProcessingDevice" - let allDevices self = msg_send ~self ~cmd:(selector "allDevices") ~typ:(returning id) let defaultANEDevice self = msg_send ~self ~cmd:(selector "defaultANEDevice") ~typ:(returning id) let defaultCPUDevice self = msg_send ~self ~cmd:(selector "defaultCPUDevice") ~typ:(returning id) diff --git a/Vision/VNProcessingDeviceComputeDeviceBridge.ml b/Vision/VNProcessingDeviceComputeDeviceBridge.ml deleted file mode 100644 index 13f5f161..00000000 --- a/Vision/VNProcessingDeviceComputeDeviceBridge.ml +++ /dev/null @@ -1,15 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNProcessingDeviceComputeDeviceBridge" - -let computeDevice self = msg_send ~self ~cmd:(selector "computeDevice") ~typ:(returning (id)) -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let forwardingTargetForSelector x self = msg_send ~self ~cmd:(selector "forwardingTargetForSelector:") ~typ:(_SEL @-> returning (id)) x -let initWithProcessingDevice x self = msg_send ~self ~cmd:(selector "initWithProcessingDevice:") ~typ:(id @-> returning (id)) x -let processingDevice self = msg_send ~self ~cmd:(selector "processingDevice") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNRPNTrackerEspressoModelCacheManager.ml b/Vision/VNRPNTrackerEspressoModelCacheManager.ml index 70333866..8af949fe 100644 --- a/Vision/VNRPNTrackerEspressoModelCacheManager.ml +++ b/Vision/VNRPNTrackerEspressoModelCacheManager.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/vnrpntrackerespressomodelcachemanager?language=objc}VNRPNTrackerEspressoModelCacheManager} *) +let self = get_class "VNRPNTrackerEspressoModelCacheManager" + let espressoModelName self = msg_send ~self ~cmd:(selector "espressoModelName") ~typ:(returning id) let espressoResourcesFromOptions x ~error self = msg_send ~self ~cmd:(selector "espressoResourcesFromOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let initWithRPNEspressoModelName x self = msg_send ~self ~cmd:(selector "initWithRPNEspressoModelName:") ~typ:(id @-> returning id) x diff --git a/Vision/VNRPNTrackerEspressoModelCacheManagerClass.ml b/Vision/VNRPNTrackerEspressoModelCacheManagerClass.ml index e35d308e..b15eb852 100644 --- a/Vision/VNRPNTrackerEspressoModelCacheManagerClass.ml +++ b/Vision/VNRPNTrackerEspressoModelCacheManagerClass.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/vnrpntrackerespressomodelcachemanager?language=objc}VNRPNTrackerEspressoModelCacheManager} *) -let self = get_class "VNRPNTrackerEspressoModelCacheManager" - let cacheKeyFromOptions x ~error self = msg_send ~self ~cmd:(selector "cacheKeyFromOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let cacheOptionsKeys self = msg_send ~self ~cmd:(selector "cacheOptionsKeys") ~typ:(returning id) let rpnInitEspressoResourcesCacheManager self = msg_send ~self ~cmd:(selector "rpnInitEspressoResourcesCacheManager") ~typ:(returning id) diff --git a/Vision/VNRPNTrackerEspressoResourcesCache.ml b/Vision/VNRPNTrackerEspressoResourcesCache.ml deleted file mode 100644 index 2cbf65eb..00000000 --- a/Vision/VNRPNTrackerEspressoResourcesCache.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRPNTrackerEspressoResourcesCache" - -module C = struct - let cacheKeyFromOptions x ~error self = msg_send ~self ~cmd:(selector "cacheKeyFromOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let cacheOptionsKeys self = msg_send ~self ~cmd:(selector "cacheOptionsKeys") ~typ:(returning (id)) -end - -let addRPNTrackerResourcesConfiguredForOptions x ~resources ~error self = msg_send ~self ~cmd:(selector "addRPNTrackerResourcesConfiguredForOptions:resources:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x resources error -let createRPNTrackerResourcesConfiguredWithOptions x ~error self = msg_send ~self ~cmd:(selector "createRPNTrackerResourcesConfiguredWithOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let locateRPNTrackerResourcesConfiguredForOptions x ~error self = msg_send ~self ~cmd:(selector "locateRPNTrackerResourcesConfiguredForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let releaseCachedResources self = msg_send ~self ~cmd:(selector "releaseCachedResources") ~typ:(returning (void)) \ No newline at end of file diff --git a/Vision/VNReadOnlyEntityIdentificationModel.ml b/Vision/VNReadOnlyEntityIdentificationModel.ml index 42f98810..2d7ceb64 100644 --- a/Vision/VNReadOnlyEntityIdentificationModel.ml +++ b/Vision/VNReadOnlyEntityIdentificationModel.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/vnreadonlyentityidentificationmodel?language=objc}VNReadOnlyEntityIdentificationModel} *) +let self = get_class "VNReadOnlyEntityIdentificationModel" + let entityIdentificationModel x ~indexOfEntityWithUniqueIdentifier self = msg_send ~self ~cmd:(selector "entityIdentificationModel:indexOfEntityWithUniqueIdentifier:") ~typ:(id @-> id @-> returning ullong) x indexOfEntityWithUniqueIdentifier let entityIdentificationModel1 x ~numberOfObservationsForEntityAtIndex self = msg_send ~self ~cmd:(selector "entityIdentificationModel:numberOfObservationsForEntityAtIndex:") ~typ:(id @-> ullong @-> returning ullong) x (ULLong.of_int numberOfObservationsForEntityAtIndex) let entityIdentificationModel2 x ~uniqueIdentifierOfEntityAtIndex self = msg_send ~self ~cmd:(selector "entityIdentificationModel:uniqueIdentifierOfEntityAtIndex:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int uniqueIdentifierOfEntityAtIndex) diff --git a/Vision/VNReadOnlyEntityIdentificationModelClass.ml b/Vision/VNReadOnlyEntityIdentificationModelClass.ml index 6300900e..c28bc740 100644 --- a/Vision/VNReadOnlyEntityIdentificationModelClass.ml +++ b/Vision/VNReadOnlyEntityIdentificationModelClass.ml @@ -4,16 +4,10 @@ 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/vnreadonlyentityidentificationmodel?language=objc}VNReadOnlyEntityIdentificationModel} *) -let self = get_class "VNReadOnlyEntityIdentificationModel" - let isReadOnly self = msg_send ~self ~cmd:(selector "isReadOnly") ~typ:(returning bool) let newModelForVersion x ~modelObjects ~error self = msg_send ~self ~cmd:(selector "newModelForVersion:modelObjects:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) modelObjects error \ No newline at end of file diff --git a/Vision/VNReadOnlyPersonsModel.ml b/Vision/VNReadOnlyPersonsModel.ml index c044ce03..72b35077 100644 --- a/Vision/VNReadOnlyPersonsModel.ml +++ b/Vision/VNReadOnlyPersonsModel.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/vnreadonlypersonsmodel?language=objc}VNReadOnlyPersonsModel} *) +let self = get_class "VNReadOnlyPersonsModel" + let faceCountForPersonWithUniqueIdentifier x self = msg_send ~self ~cmd:(selector "faceCountForPersonWithUniqueIdentifier:") ~typ:(id @-> returning ullong) x let faceCountsForAllPersons self = msg_send ~self ~cmd:(selector "faceCountsForAllPersons") ~typ:(returning id) let faceCountsForPersonsWithUniqueIdentifiers x self = msg_send ~self ~cmd:(selector "faceCountsForPersonsWithUniqueIdentifiers:") ~typ:(id @-> returning id) x diff --git a/Vision/VNReadOnlyPersonsModelClass.ml b/Vision/VNReadOnlyPersonsModelClass.ml index 82adf4a5..08db50e2 100644 --- a/Vision/VNReadOnlyPersonsModelClass.ml +++ b/Vision/VNReadOnlyPersonsModelClass.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/vnreadonlypersonsmodel?language=objc}VNReadOnlyPersonsModel} *) -let self = get_class "VNReadOnlyPersonsModel" - let newModelFromVersion x ~objects ~error self = msg_send ~self ~cmd:(selector "newModelFromVersion:objects:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning id) (ULLong.of_int x) objects error \ No newline at end of file diff --git a/Vision/VNRecognizeAnimalFacesRequest.ml b/Vision/VNRecognizeAnimalFacesRequest.ml deleted file mode 100644 index 5ea9d466..00000000 --- a/Vision/VNRecognizeAnimalFacesRequest.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRecognizeAnimalFacesRequest" - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning (llong)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNRecognizeAnimalHeadsRequest.ml b/Vision/VNRecognizeAnimalHeadsRequest.ml index af6e5aca..1a202fde 100644 --- a/Vision/VNRecognizeAnimalHeadsRequest.ml +++ b/Vision/VNRecognizeAnimalHeadsRequest.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/vnrecognizeanimalheadsrequest?language=objc}VNRecognizeAnimalHeadsRequest} *) +let self = get_class "VNRecognizeAnimalHeadsRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNRecognizeAnimalHeadsRequestClass.ml b/Vision/VNRecognizeAnimalHeadsRequestClass.ml index 38eeba00..672fd675 100644 --- a/Vision/VNRecognizeAnimalHeadsRequestClass.ml +++ b/Vision/VNRecognizeAnimalHeadsRequestClass.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/vnrecognizeanimalheadsrequest?language=objc}VNRecognizeAnimalHeadsRequest} *) -let self = get_class "VNRecognizeAnimalHeadsRequest" - let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNRecognizeAnimalsRequest.ml b/Vision/VNRecognizeAnimalsRequest.ml index bb7e5ab5..5efbe1a8 100644 --- a/Vision/VNRecognizeAnimalsRequest.ml +++ b/Vision/VNRecognizeAnimalsRequest.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/vnrecognizeanimalsrequest?language=objc}VNRecognizeAnimalsRequest} *) +let self = get_class "VNRecognizeAnimalsRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNRecognizeAnimalsRequestClass.ml b/Vision/VNRecognizeAnimalsRequestClass.ml index d672f194..a00ee77f 100644 --- a/Vision/VNRecognizeAnimalsRequestClass.ml +++ b/Vision/VNRecognizeAnimalsRequestClass.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/vnrecognizeanimalsrequest?language=objc}VNRecognizeAnimalsRequest} *) -let self = get_class "VNRecognizeAnimalsRequest" - let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let knownAnimalIdentifiersForRevision x ~error self = msg_send ~self ~cmd:(selector "knownAnimalIdentifiersForRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNRecognizeDocumentElementsRequest.ml b/Vision/VNRecognizeDocumentElementsRequest.ml index bebbd854..48fdc772 100644 --- a/Vision/VNRecognizeDocumentElementsRequest.ml +++ b/Vision/VNRecognizeDocumentElementsRequest.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/vnrecognizedocumentelementsrequest?language=objc}VNRecognizeDocumentElementsRequest} *) +let self = get_class "VNRecognizeDocumentElementsRequest" + let documentElements self = msg_send ~self ~cmd:(selector "documentElements") ~typ:(returning id) let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error diff --git a/Vision/VNRecognizeDocumentElementsRequestClass.ml b/Vision/VNRecognizeDocumentElementsRequestClass.ml index f9e2be1a..eaefa4ee 100644 --- a/Vision/VNRecognizeDocumentElementsRequestClass.ml +++ b/Vision/VNRecognizeDocumentElementsRequestClass.ml @@ -4,16 +4,10 @@ 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/vnrecognizedocumentelementsrequest?language=objc}VNRecognizeDocumentElementsRequest} *) -let self = get_class "VNRecognizeDocumentElementsRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNRecognizeDocumentElementsRequestConfiguration.ml b/Vision/VNRecognizeDocumentElementsRequestConfiguration.ml index 7698fffa..238a2a1b 100644 --- a/Vision/VNRecognizeDocumentElementsRequestConfiguration.ml +++ b/Vision/VNRecognizeDocumentElementsRequestConfiguration.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/vnrecognizedocumentelementsrequestconfiguration?language=objc}VNRecognizeDocumentElementsRequestConfiguration} *) +let self = get_class "VNRecognizeDocumentElementsRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let documentElements self = msg_send ~self ~cmd:(selector "documentElements") ~typ:(returning id) let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) diff --git a/Vision/VNRecognizeDocumentElementsRequestConfigurationClass.ml b/Vision/VNRecognizeDocumentElementsRequestConfigurationClass.ml deleted file mode 100644 index 789718e0..00000000 --- a/Vision/VNRecognizeDocumentElementsRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrecognizedocumentelementsrequestconfiguration?language=objc}VNRecognizeDocumentElementsRequestConfiguration} *) - -let self = get_class "VNRecognizeDocumentElementsRequestConfiguration" - diff --git a/Vision/VNRecognizeDocumentElementsRequestElementConfiguration.ml b/Vision/VNRecognizeDocumentElementsRequestElementConfiguration.ml index bc75e5bd..b9993a61 100644 --- a/Vision/VNRecognizeDocumentElementsRequestElementConfiguration.ml +++ b/Vision/VNRecognizeDocumentElementsRequestElementConfiguration.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/vnrecognizedocumentelementsrequestelementconfiguration?language=objc}VNRecognizeDocumentElementsRequestElementConfiguration} *) +let self = get_class "VNRecognizeDocumentElementsRequestElementConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let generateSegmentationMask self = msg_send ~self ~cmd:(selector "generateSegmentationMask") ~typ:(returning bool) let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNRecognizeDocumentElementsRequestElementConfigurationClass.ml b/Vision/VNRecognizeDocumentElementsRequestElementConfigurationClass.ml index bcb25eeb..56f66704 100644 --- a/Vision/VNRecognizeDocumentElementsRequestElementConfigurationClass.ml +++ b/Vision/VNRecognizeDocumentElementsRequestElementConfigurationClass.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/vnrecognizedocumentelementsrequestelementconfiguration?language=objc}VNRecognizeDocumentElementsRequestElementConfiguration} *) -let self = get_class "VNRecognizeDocumentElementsRequestElementConfiguration" - let newConfiguration self = msg_send ~self ~cmd:(selector "newConfiguration") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNRecognizeDocumentsRequest.ml b/Vision/VNRecognizeDocumentsRequest.ml index b82083ec..16879288 100644 --- a/Vision/VNRecognizeDocumentsRequest.ml +++ b/Vision/VNRecognizeDocumentsRequest.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/vnrecognizedocumentsrequest?language=objc}VNRecognizeDocumentsRequest} *) +let self = get_class "VNRecognizeDocumentsRequest" + let barcodeRequest self = msg_send ~self ~cmd:(selector "barcodeRequest") ~typ:(returning id) let customWords self = msg_send ~self ~cmd:(selector "customWords") ~typ:(returning id) let detectionOnly self = msg_send ~self ~cmd:(selector "detectionOnly") ~typ:(returning bool) diff --git a/Vision/VNRecognizeDocumentsRequestClass.ml b/Vision/VNRecognizeDocumentsRequestClass.ml index c1effb8b..2925af7b 100644 --- a/Vision/VNRecognizeDocumentsRequestClass.ml +++ b/Vision/VNRecognizeDocumentsRequestClass.ml @@ -4,16 +4,10 @@ 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/vnrecognizedocumentsrequest?language=objc}VNRecognizeDocumentsRequest} *) -let self = get_class "VNRecognizeDocumentsRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let supportedRecognitionLanguagesForTextRecognitionLevel x ~revision ~error self = msg_send ~self ~cmd:(selector "supportedRecognitionLanguagesForTextRecognitionLevel:revision:error:") ~typ:(llong @-> ullong @-> (ptr id) @-> returning id) (LLong.of_int x) (ULLong.of_int revision) error \ No newline at end of file diff --git a/Vision/VNRecognizeDocumentsRequestConfiguration.ml b/Vision/VNRecognizeDocumentsRequestConfiguration.ml index f20ee65f..60ae001d 100644 --- a/Vision/VNRecognizeDocumentsRequestConfiguration.ml +++ b/Vision/VNRecognizeDocumentsRequestConfiguration.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/vnrecognizedocumentsrequestconfiguration?language=objc}VNRecognizeDocumentsRequestConfiguration} *) +let self = get_class "VNRecognizeDocumentsRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let detectionOnly self = msg_send ~self ~cmd:(selector "detectionOnly") ~typ:(returning bool) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNRecognizeDocumentsRequestConfigurationClass.ml b/Vision/VNRecognizeDocumentsRequestConfigurationClass.ml deleted file mode 100644 index e0f50916..00000000 --- a/Vision/VNRecognizeDocumentsRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrecognizedocumentsrequestconfiguration?language=objc}VNRecognizeDocumentsRequestConfiguration} *) - -let self = get_class "VNRecognizeDocumentsRequestConfiguration" - diff --git a/Vision/VNRecognizeFoodAndDrinkRequest.ml b/Vision/VNRecognizeFoodAndDrinkRequest.ml index daeabc10..9ad38ea8 100644 --- a/Vision/VNRecognizeFoodAndDrinkRequest.ml +++ b/Vision/VNRecognizeFoodAndDrinkRequest.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/vnrecognizefoodanddrinkrequest?language=objc}VNRecognizeFoodAndDrinkRequest} *) +let self = get_class "VNRecognizeFoodAndDrinkRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNRecognizeFoodAndDrinkRequestClass.ml b/Vision/VNRecognizeFoodAndDrinkRequestClass.ml index 5d824f38..e0764fcf 100644 --- a/Vision/VNRecognizeFoodAndDrinkRequestClass.ml +++ b/Vision/VNRecognizeFoodAndDrinkRequestClass.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/vnrecognizefoodanddrinkrequest?language=objc}VNRecognizeFoodAndDrinkRequest} *) -let self = get_class "VNRecognizeFoodAndDrinkRequest" - let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) let supportsPrivateRevision x self = msg_send ~self ~cmd:(selector "supportsPrivateRevision:") ~typ:(ullong @-> returning bool) (ULLong.of_int x) diff --git a/Vision/VNRecognizeObjectsRequest.ml b/Vision/VNRecognizeObjectsRequest.ml index 5dbf6f01..efc76093 100644 --- a/Vision/VNRecognizeObjectsRequest.ml +++ b/Vision/VNRecognizeObjectsRequest.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/vnrecognizeobjectsrequest?language=objc}VNRecognizeObjectsRequest} *) +let self = get_class "VNRecognizeObjectsRequest" + let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let modelMinimumDetectionConfidence self = msg_send ~self ~cmd:(selector "modelMinimumDetectionConfidence") ~typ:(returning float) let modelNonMaximumSuppressionThreshold self = msg_send ~self ~cmd:(selector "modelNonMaximumSuppressionThreshold") ~typ:(returning float) diff --git a/Vision/VNRecognizeObjectsRequestClass.ml b/Vision/VNRecognizeObjectsRequestClass.ml index 660ed822..ae5e64b8 100644 --- a/Vision/VNRecognizeObjectsRequestClass.ml +++ b/Vision/VNRecognizeObjectsRequestClass.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/vnrecognizeobjectsrequest?language=objc}VNRecognizeObjectsRequest} *) -let self = get_class "VNRecognizeObjectsRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let knownObjectIdentifiersRecognizedByRequestRevision x ~error self = msg_send ~self ~cmd:(selector "knownObjectIdentifiersRecognizedByRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error diff --git a/Vision/VNRecognizeObjectsRequestConfiguration.ml b/Vision/VNRecognizeObjectsRequestConfiguration.ml index b78667b5..ebbbab5d 100644 --- a/Vision/VNRecognizeObjectsRequestConfiguration.ml +++ b/Vision/VNRecognizeObjectsRequestConfiguration.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/vnrecognizeobjectsrequestconfiguration?language=objc}VNRecognizeObjectsRequestConfiguration} *) +let self = get_class "VNRecognizeObjectsRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNRecognizeObjectsRequestConfigurationClass.ml b/Vision/VNRecognizeObjectsRequestConfigurationClass.ml deleted file mode 100644 index 02bde16c..00000000 --- a/Vision/VNRecognizeObjectsRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrecognizeobjectsrequestconfiguration?language=objc}VNRecognizeObjectsRequestConfiguration} *) - -let self = get_class "VNRecognizeObjectsRequestConfiguration" - diff --git a/Vision/VNRecognizeSportBallsRequest.ml b/Vision/VNRecognizeSportBallsRequest.ml index 24707295..bd106d8f 100644 --- a/Vision/VNRecognizeSportBallsRequest.ml +++ b/Vision/VNRecognizeSportBallsRequest.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/vnrecognizesportballsrequest?language=objc}VNRecognizeSportBallsRequest} *) +let self = get_class "VNRecognizeSportBallsRequest" + let dependencyProcessingOrdinality self = msg_send ~self ~cmd:(selector "dependencyProcessingOrdinality") ~typ:(returning llong) let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error let supportedIdentifiersAndReturnError x self = msg_send ~self ~cmd:(selector "supportedIdentifiersAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNRecognizeSportBallsRequestClass.ml b/Vision/VNRecognizeSportBallsRequestClass.ml index d3509dd9..69380c7a 100644 --- a/Vision/VNRecognizeSportBallsRequestClass.ml +++ b/Vision/VNRecognizeSportBallsRequestClass.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/vnrecognizesportballsrequest?language=objc}VNRecognizeSportBallsRequest} *) -let self = get_class "VNRecognizeSportBallsRequest" - let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNRecognizeTextRequest.ml b/Vision/VNRecognizeTextRequest.ml index 1bc006af..0185b2ac 100644 --- a/Vision/VNRecognizeTextRequest.ml +++ b/Vision/VNRecognizeTextRequest.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/vnrecognizetextrequest?language=objc}VNRecognizeTextRequest} *) +let self = get_class "VNRecognizeTextRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let customWords self = msg_send ~self ~cmd:(selector "customWords") ~typ:(returning id) let hasCancellationHook self = msg_send ~self ~cmd:(selector "hasCancellationHook") ~typ:(returning bool) diff --git a/Vision/VNRecognizeTextRequestClass.ml b/Vision/VNRecognizeTextRequestClass.ml index 85159054..022274e6 100644 --- a/Vision/VNRecognizeTextRequestClass.ml +++ b/Vision/VNRecognizeTextRequestClass.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/vnrecognizetextrequest?language=objc}VNRecognizeTextRequest} *) -let self = get_class "VNRecognizeTextRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) let supportedRecognitionLanguagesForTextRecognitionLevel x ~revision ~error self = msg_send ~self ~cmd:(selector "supportedRecognitionLanguagesForTextRecognitionLevel:revision:error:") ~typ:(llong @-> ullong @-> (ptr id) @-> returning id) (LLong.of_int x) (ULLong.of_int revision) error \ No newline at end of file diff --git a/Vision/VNRecognizeTextRequestConfiguration.ml b/Vision/VNRecognizeTextRequestConfiguration.ml index 6de585c5..1579994d 100644 --- a/Vision/VNRecognizeTextRequestConfiguration.ml +++ b/Vision/VNRecognizeTextRequestConfiguration.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/vnrecognizetextrequestconfiguration?language=objc}VNRecognizeTextRequestConfiguration} *) +let self = get_class "VNRecognizeTextRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let customWords self = msg_send ~self ~cmd:(selector "customWords") ~typ:(returning id) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNRecognizeTextRequestConfigurationClass.ml b/Vision/VNRecognizeTextRequestConfigurationClass.ml deleted file mode 100644 index 17d83f0a..00000000 --- a/Vision/VNRecognizeTextRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrecognizetextrequestconfiguration?language=objc}VNRecognizeTextRequestConfiguration} *) - -let self = get_class "VNRecognizeTextRequestConfiguration" - diff --git a/Vision/VNRecognizedAnimalBodyPointsSpecifier.ml b/Vision/VNRecognizedAnimalBodyPointsSpecifier.ml deleted file mode 100644 index a5e5fd78..00000000 --- a/Vision/VNRecognizedAnimalBodyPointsSpecifier.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRecognizedAnimalBodyPointsSpecifier" - -module C = struct - let supportedAnimalPoseKeypointsRev1 self = msg_send ~self ~cmd:(selector "supportedAnimalPoseKeypointsRev1") ~typ:(returning (id)) - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithVCPPetsObservation x ~originatingRequestSpecifier self = msg_send ~self ~cmd:(selector "initWithVCPPetsObservation:originatingRequestSpecifier:") ~typ:(id @-> id @-> returning (id)) x originatingRequestSpecifier -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let pointKeyGroupLabelsMapping self = msg_send ~self ~cmd:(selector "pointKeyGroupLabelsMapping") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNRecognizedBodyPointsSpecifier.ml b/Vision/VNRecognizedBodyPointsSpecifier.ml index 33314427..35ec44ab 100644 --- a/Vision/VNRecognizedBodyPointsSpecifier.ml +++ b/Vision/VNRecognizedBodyPointsSpecifier.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/vnrecognizedbodypointsspecifier?language=objc}VNRecognizedBodyPointsSpecifier} *) +let self = get_class "VNRecognizedBodyPointsSpecifier" + let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNRecognizedBodyPointsSpecifierClass.ml b/Vision/VNRecognizedBodyPointsSpecifierClass.ml index 91696fd7..243e0e5f 100644 --- a/Vision/VNRecognizedBodyPointsSpecifierClass.ml +++ b/Vision/VNRecognizedBodyPointsSpecifierClass.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/vnrecognizedbodypointsspecifier?language=objc}VNRecognizedBodyPointsSpecifier} *) -let self = get_class "VNRecognizedBodyPointsSpecifier" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedHandPointsSpecifier.ml b/Vision/VNRecognizedHandPointsSpecifier.ml index adc68fba..876ac211 100644 --- a/Vision/VNRecognizedHandPointsSpecifier.ml +++ b/Vision/VNRecognizedHandPointsSpecifier.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/vnrecognizedhandpointsspecifier?language=objc}VNRecognizedHandPointsSpecifier} *) +let self = get_class "VNRecognizedHandPointsSpecifier" + let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning id) let chirality self = msg_send ~self ~cmd:(selector "chirality") ~typ:(returning llong) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNRecognizedHandPointsSpecifierClass.ml b/Vision/VNRecognizedHandPointsSpecifierClass.ml index b8eda5d3..3230940d 100644 --- a/Vision/VNRecognizedHandPointsSpecifierClass.ml +++ b/Vision/VNRecognizedHandPointsSpecifierClass.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/vnrecognizedhandpointsspecifier?language=objc}VNRecognizedHandPointsSpecifier} *) -let self = get_class "VNRecognizedHandPointsSpecifier" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedObjectObservation.ml b/Vision/VNRecognizedObjectObservation.ml index 0184f043..c962857b 100644 --- a/Vision/VNRecognizedObjectObservation.ml +++ b/Vision/VNRecognizedObjectObservation.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/vnrecognizedobjectobservation?language=objc}VNRecognizedObjectObservation} *) +let self = get_class "VNRecognizedObjectObservation" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNRecognizedObjectObservationClass.ml b/Vision/VNRecognizedObjectObservationClass.ml index 9ef07656..02440fc9 100644 --- a/Vision/VNRecognizedObjectObservationClass.ml +++ b/Vision/VNRecognizedObjectObservationClass.ml @@ -4,16 +4,10 @@ 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/vnrecognizedobjectobservation?language=objc}VNRecognizedObjectObservation} *) -let self = get_class "VNRecognizedObjectObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedPoint.ml b/Vision/VNRecognizedPoint.ml index 204888ab..7cc5f1a9 100644 --- a/Vision/VNRecognizedPoint.ml +++ b/Vision/VNRecognizedPoint.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/vnrecognizedpoint?language=objc}VNRecognizedPoint} *) +let self = get_class "VNRecognizedPoint" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning id) diff --git a/Vision/VNRecognizedPoint3D.ml b/Vision/VNRecognizedPoint3D.ml deleted file mode 100644 index 7c8a86b3..00000000 --- a/Vision/VNRecognizedPoint3D.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRecognizedPoint3D" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let identifier self = msg_send ~self ~cmd:(selector "identifier") ~typ:(returning (id)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithPosition x ~identifier self = msg_send ~self ~cmd:(selector "initWithPosition:identifier:") ~typ:(ptr void @-> id @-> returning (id)) x identifier -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNRecognizedPointClass.ml b/Vision/VNRecognizedPointClass.ml index 61d29f33..85e1c658 100644 --- a/Vision/VNRecognizedPointClass.ml +++ b/Vision/VNRecognizedPointClass.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/vnrecognizedpoint?language=objc}VNRecognizedPoint} *) -let self = get_class "VNRecognizedPoint" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedPoints3DObservation.ml b/Vision/VNRecognizedPoints3DObservation.ml deleted file mode 100644 index d7a7c4f7..00000000 --- a/Vision/VNRecognizedPoints3DObservation.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRecognizedPoints3DObservation" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning (id)) -let availableKeys self = msg_send ~self ~cmd:(selector "availableKeys") ~typ:(returning (id)) -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let groupIdentifier self = msg_send ~self ~cmd:(selector "groupIdentifier") ~typ:(returning (id)) -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithOriginatingRequestSpecifier x ~keypointsReturningObject self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:keypointsReturningObject:") ~typ:(id @-> id @-> returning (id)) x keypointsReturningObject -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let recognizedPointForKey x ~error self = msg_send ~self ~cmd:(selector "recognizedPointForKey:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let recognizedPointsForGroupKey x ~error self = msg_send ~self ~cmd:(selector "recognizedPointsForGroupKey:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let recognizedPointsSpecifier self = msg_send ~self ~cmd:(selector "recognizedPointsSpecifier") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNRecognizedPoints3DSpecifier.ml b/Vision/VNRecognizedPoints3DSpecifier.ml deleted file mode 100644 index 53dc8aba..00000000 --- a/Vision/VNRecognizedPoints3DSpecifier.ml +++ /dev/null @@ -1,26 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRecognizedPoints3DSpecifier" - -module C = struct - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) -end - -let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning (id)) -let availableKeys self = msg_send ~self ~cmd:(selector "availableKeys") ~typ:(returning (id)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x -let initWithOriginatingRequestSpecifier x ~allRecognizedPoints self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:allRecognizedPoints:") ~typ:(id @-> id @-> returning (id)) x allRecognizedPoints -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let originatingRequestSpecifier self = msg_send ~self ~cmd:(selector "originatingRequestSpecifier") ~typ:(returning (id)) -let pointKeyGroupLabelsMapping self = msg_send ~self ~cmd:(selector "pointKeyGroupLabelsMapping") ~typ:(returning (id)) -let recognizedPointForKey x ~error self = msg_send ~self ~cmd:(selector "recognizedPointForKey:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -let recognizedPointsForGroupKey x ~error self = msg_send ~self ~cmd:(selector "recognizedPointsForGroupKey:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error \ No newline at end of file diff --git a/Vision/VNRecognizedPointsObservation.ml b/Vision/VNRecognizedPointsObservation.ml index b6b67e9a..c1e743ee 100644 --- a/Vision/VNRecognizedPointsObservation.ml +++ b/Vision/VNRecognizedPointsObservation.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/vnrecognizedpointsobservation?language=objc}VNRecognizedPointsObservation} *) +let self = get_class "VNRecognizedPointsObservation" + let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning id) let availableKeys self = msg_send ~self ~cmd:(selector "availableKeys") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNRecognizedPointsObservationClass.ml b/Vision/VNRecognizedPointsObservationClass.ml index 902c502c..e1bfbaf6 100644 --- a/Vision/VNRecognizedPointsObservationClass.ml +++ b/Vision/VNRecognizedPointsObservationClass.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/vnrecognizedpointsobservation?language=objc}VNRecognizedPointsObservation} *) -let self = get_class "VNRecognizedPointsObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedPointsSpecifier.ml b/Vision/VNRecognizedPointsSpecifier.ml index 75009e00..76c03a30 100644 --- a/Vision/VNRecognizedPointsSpecifier.ml +++ b/Vision/VNRecognizedPointsSpecifier.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/vnrecognizedpointsspecifier?language=objc}VNRecognizedPointsSpecifier} *) +let self = get_class "VNRecognizedPointsSpecifier" + let availableGroupKeys self = msg_send ~self ~cmd:(selector "availableGroupKeys") ~typ:(returning id) let availableKeys self = msg_send ~self ~cmd:(selector "availableKeys") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNRecognizedPointsSpecifierClass.ml b/Vision/VNRecognizedPointsSpecifierClass.ml index 50b0b9d5..d6e054c7 100644 --- a/Vision/VNRecognizedPointsSpecifierClass.ml +++ b/Vision/VNRecognizedPointsSpecifierClass.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/vnrecognizedpointsspecifier?language=objc}VNRecognizedPointsSpecifier} *) -let self = get_class "VNRecognizedPointsSpecifier" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedText.ml b/Vision/VNRecognizedText.ml index a133b8ba..b14ab424 100644 --- a/Vision/VNRecognizedText.ml +++ b/Vision/VNRecognizedText.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/vnrecognizedtext?language=objc}VNRecognizedText} *) +let self = get_class "VNRecognizedText" + let boundingBoxForRange x ~error self = msg_send ~self ~cmd:(selector "boundingBoxForRange:error:") ~typ:(NSRange.t @-> (ptr id) @-> returning id) x error let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x diff --git a/Vision/VNRecognizedTextBlock.ml b/Vision/VNRecognizedTextBlock.ml index f16dcf8d..653bbb2a 100644 --- a/Vision/VNRecognizedTextBlock.ml +++ b/Vision/VNRecognizedTextBlock.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/vnrecognizedtextblock?language=objc}VNRecognizedTextBlock} *) +let self = get_class "VNRecognizedTextBlock" + let attributedString self = msg_send ~self ~cmd:(selector "attributedString") ~typ:(returning id) let baselines self = msg_send ~self ~cmd:(selector "baselines") ~typ:(returning id) let boundingBoxForRange x ~error self = msg_send ~self ~cmd:(selector "boundingBoxForRange:error:") ~typ:(NSRange.t @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNRecognizedTextBlockClass.ml b/Vision/VNRecognizedTextBlockClass.ml index 05c0e318..b8befb31 100644 --- a/Vision/VNRecognizedTextBlockClass.ml +++ b/Vision/VNRecognizedTextBlockClass.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/vnrecognizedtextblock?language=objc}VNRecognizedTextBlock} *) -let self = get_class "VNRecognizedTextBlock" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedTextBlockObservation.ml b/Vision/VNRecognizedTextBlockObservation.ml index 76cc375a..486e3045 100644 --- a/Vision/VNRecognizedTextBlockObservation.ml +++ b/Vision/VNRecognizedTextBlockObservation.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/vnrecognizedtextblockobservation?language=objc}VNRecognizedTextBlockObservation} *) +let self = get_class "VNRecognizedTextBlockObservation" + let boundingBoxForRange x ~error self = msg_send ~self ~cmd:(selector "boundingBoxForRange:error:") ~typ:(NSRange.t @-> (ptr id) @-> returning id) x error let debugDescription self = msg_send ~self ~cmd:(selector "debugDescription") ~typ:(returning id) let getCROutputRegion self = msg_send ~self ~cmd:(selector "getCROutputRegion") ~typ:(returning id) diff --git a/Vision/VNRecognizedTextBlockObservationClass.ml b/Vision/VNRecognizedTextBlockObservationClass.ml deleted file mode 100644 index d325ab52..00000000 --- a/Vision/VNRecognizedTextBlockObservationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrecognizedtextblockobservation?language=objc}VNRecognizedTextBlockObservation} *) - -let self = get_class "VNRecognizedTextBlockObservation" - diff --git a/Vision/VNRecognizedTextClass.ml b/Vision/VNRecognizedTextClass.ml index aee7965c..b5e07b15 100644 --- a/Vision/VNRecognizedTextClass.ml +++ b/Vision/VNRecognizedTextClass.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/vnrecognizedtext?language=objc}VNRecognizedText} *) -let self = get_class "VNRecognizedText" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRecognizedTextObservation.ml b/Vision/VNRecognizedTextObservation.ml index 47197ec1..687c4958 100644 --- a/Vision/VNRecognizedTextObservation.ml +++ b/Vision/VNRecognizedTextObservation.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/vnrecognizedtextobservation?language=objc}VNRecognizedTextObservation} *) +let self = get_class "VNRecognizedTextObservation" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x diff --git a/Vision/VNRecognizedTextObservationClass.ml b/Vision/VNRecognizedTextObservationClass.ml index 720f3f87..94e45d2c 100644 --- a/Vision/VNRecognizedTextObservationClass.ml +++ b/Vision/VNRecognizedTextObservationClass.ml @@ -4,16 +4,10 @@ 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/vnrecognizedtextobservation?language=objc}VNRecognizedTextObservation} *) -let self = get_class "VNRecognizedTextObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNRectangleDetector.ml b/Vision/VNRectangleDetector.ml index 01c135d8..d379c627 100644 --- a/Vision/VNRectangleDetector.ml +++ b/Vision/VNRectangleDetector.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/vnrectangledetector?language=objc}VNRectangleDetector} *) +let self = get_class "VNRectangleDetector" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let needsMetalContext self = msg_send ~self ~cmd:(selector "needsMetalContext") ~typ:(returning bool) let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNRectangleDetectorClass.ml b/Vision/VNRectangleDetectorClass.ml index ce802cbd..0fe55982 100644 --- a/Vision/VNRectangleDetectorClass.ml +++ b/Vision/VNRectangleDetectorClass.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/vnrectangledetector?language=objc}VNRectangleDetector} *) -let self = get_class "VNRectangleDetector" - let supportedImageSizeSetForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedImageSizeSetForOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNRectangleObservation.ml b/Vision/VNRectangleObservation.ml index 13d2ff8a..42023185 100644 --- a/Vision/VNRectangleObservation.ml +++ b/Vision/VNRectangleObservation.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/vnrectangleobservation?language=objc}VNRectangleObservation} *) +let self = get_class "VNRectangleObservation" + let bottomLeft self = msg_send ~self ~cmd:(selector "bottomLeft") ~typ:(returning CGPoint.t) let bottomRight self = msg_send ~self ~cmd:(selector "bottomRight") ~typ:(returning CGPoint.t) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNRectangleObservationClass.ml b/Vision/VNRectangleObservationClass.ml index 7ff07b08..f3e05a77 100644 --- a/Vision/VNRectangleObservationClass.ml +++ b/Vision/VNRectangleObservationClass.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/vnrectangleobservation?language=objc}VNRectangleObservation} *) -let self = get_class "VNRectangleObservation" - let boundingBoxIsCalculatedProperty self = msg_send ~self ~cmd:(selector "boundingBoxIsCalculatedProperty") ~typ:(returning bool) let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let observationWithRequestRevision x ~boundingBox self = msg_send ~self ~cmd:(selector "observationWithRequestRevision:boundingBox:") ~typ:(ullong @-> CGRect.t @-> returning id) (ULLong.of_int x) boundingBox diff --git a/Vision/VNRectangleTracker.ml b/Vision/VNRectangleTracker.ml index 26812c71..7b1e58d5 100644 --- a/Vision/VNRectangleTracker.ml +++ b/Vision/VNRectangleTracker.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/vnrectangletracker?language=objc}VNRectangleTracker} *) +let self = get_class "VNRectangleTracker" + let initWithOptions x ~error self = msg_send ~self ~cmd:(selector "initWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning bool) let reset x self = msg_send ~self ~cmd:(selector "reset:") ~typ:((ptr id) @-> returning bool) x diff --git a/Vision/VNRectangleTrackerClass.ml b/Vision/VNRectangleTrackerClass.ml index 37c194ca..d7b2ed80 100644 --- a/Vision/VNRectangleTrackerClass.ml +++ b/Vision/VNRectangleTrackerClass.ml @@ -4,16 +4,10 @@ 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/vnrectangletracker?language=objc}VNRectangleTracker} *) -let self = get_class "VNRectangleTracker" - let trackedCorners self = msg_send ~self ~cmd:(selector "trackedCorners") ~typ:(returning id) let trackerObservationClass self = msg_send ~self ~cmd:(selector "trackerObservationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNRegionOfInterestTile.ml b/Vision/VNRegionOfInterestTile.ml deleted file mode 100644 index 9d14eb15..00000000 --- a/Vision/VNRegionOfInterestTile.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRegionOfInterestTile" - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithTiling x ~pixelCropRect self = msg_send ~self ~cmd:(selector "initWithTiling:pixelCropRect:") ~typ:(id @-> CGRect.t @-> returning (id)) x pixelCropRect -let pixelCropRect self = msg_send_stret ~self ~cmd:(selector "pixelCropRect") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t \ No newline at end of file diff --git a/Vision/VNRegionOfInterestTiling.ml b/Vision/VNRegionOfInterestTiling.ml deleted file mode 100644 index 34e4d661..00000000 --- a/Vision/VNRegionOfInterestTiling.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRegionOfInterestTiling" - -module C = struct - let tilingForRegionOfInterest x ~inPixelBounds ~tileAspectRatio ~options self = msg_send ~self ~cmd:(selector "tilingForRegionOfInterest:inPixelBounds:tileAspectRatio:options:") ~typ:(CGRect.t @-> CGRect.t @-> double @-> id @-> returning (id)) x inPixelBounds tileAspectRatio options - let tilingForRegionOfInterest' x ~inPixelWidth ~height ~tileAspectRatio ~options self = msg_send ~self ~cmd:(selector "tilingForRegionOfInterest:inPixelWidth:height:tileAspectRatio:options:") ~typ:(CGRect.t @-> ullong @-> ullong @-> double @-> id @-> returning (id)) x (ULLong.of_int inPixelWidth) (ULLong.of_int height) tileAspectRatio options -end - -let enumerateTilesUsingBlock x self = msg_send ~self ~cmd:(selector "enumerateTilesUsingBlock:") ~typ:(ptr void @-> returning (void)) x -let pixelBounds self = msg_send_stret ~self ~cmd:(selector "pixelBounds") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let pixelHeight self = msg_send ~self ~cmd:(selector "pixelHeight") ~typ:(returning (ullong)) -let pixelRegionOfInterest self = msg_send_stret ~self ~cmd:(selector "pixelRegionOfInterest") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let pixelWidth self = msg_send ~self ~cmd:(selector "pixelWidth") ~typ:(returning (ullong)) -let regionOfInterest self = msg_send_stret ~self ~cmd:(selector "regionOfInterest") ~typ:(returning (CGRect.t)) ~return_type:CGRect.t -let tileColumnsCount self = msg_send ~self ~cmd:(selector "tileColumnsCount") ~typ:(returning (ullong)) -let tileCount self = msg_send ~self ~cmd:(selector "tileCount") ~typ:(returning (ullong)) -let tileRowsCount self = msg_send ~self ~cmd:(selector "tileRowsCount") ~typ:(returning (ullong)) -let tiles self = msg_send ~self ~cmd:(selector "tiles") ~typ:(returning (id)) \ No newline at end of file diff --git a/Vision/VNRegionOfInterestTilingOptions.ml b/Vision/VNRegionOfInterestTilingOptions.ml deleted file mode 100644 index f8aa1406..00000000 --- a/Vision/VNRegionOfInterestTilingOptions.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRegionOfInterestTilingOptions" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let regionOfInterestAspectRatioThreshold self = msg_send ~self ~cmd:(selector "regionOfInterestAspectRatioThreshold") ~typ:(returning (double)) -let setRegionOfInterestAspectRatioThreshold x self = msg_send ~self ~cmd:(selector "setRegionOfInterestAspectRatioThreshold:") ~typ:(double @-> returning (void)) x -let setTileOverflowCount x self = msg_send ~self ~cmd:(selector "setTileOverflowCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) -let setTileOverlapPercentage x self = msg_send ~self ~cmd:(selector "setTileOverlapPercentage:") ~typ:(double @-> returning (void)) x -let tileOverflowCount self = msg_send ~self ~cmd:(selector "tileOverflowCount") ~typ:(returning (llong)) -let tileOverlapPercentage self = msg_send ~self ~cmd:(selector "tileOverlapPercentage") ~typ:(returning (double)) \ No newline at end of file diff --git a/Vision/VNRemoveBackgroundProcessor.ml b/Vision/VNRemoveBackgroundProcessor.ml deleted file mode 100644 index 0291dbdd..00000000 --- a/Vision/VNRemoveBackgroundProcessor.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRemoveBackgroundProcessor" - -module C = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNRemoveBackgroundRequest.ml b/Vision/VNRemoveBackgroundRequest.ml deleted file mode 100644 index b4aae6b7..00000000 --- a/Vision/VNRemoveBackgroundRequest.ml +++ /dev/null @@ -1,25 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRemoveBackgroundRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let cropResult self = msg_send ~self ~cmd:(selector "cropResult") ~typ:(returning (bool)) -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let performInPlace self = msg_send ~self ~cmd:(selector "performInPlace") ~typ:(returning (bool)) -let returnMask self = msg_send ~self ~cmd:(selector "returnMask") ~typ:(returning (bool)) -let setCropResult x self = msg_send ~self ~cmd:(selector "setCropResult:") ~typ:(bool @-> returning (void)) x -let setPerformInPlace x self = msg_send ~self ~cmd:(selector "setPerformInPlace:") ~typ:(bool @-> returning (void)) x -let setReturnMask x self = msg_send ~self ~cmd:(selector "setReturnMask:") ~typ:(bool @-> returning (void)) x -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNRemoveBackgroundRequestConfiguration.ml b/Vision/VNRemoveBackgroundRequestConfiguration.ml deleted file mode 100644 index 67e7ea90..00000000 --- a/Vision/VNRemoveBackgroundRequestConfiguration.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRemoveBackgroundRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let cropResult self = msg_send ~self ~cmd:(selector "cropResult") ~typ:(returning (bool)) -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let performInPlace self = msg_send ~self ~cmd:(selector "performInPlace") ~typ:(returning (bool)) -let returnMask self = msg_send ~self ~cmd:(selector "returnMask") ~typ:(returning (bool)) -let setCropResult x self = msg_send ~self ~cmd:(selector "setCropResult:") ~typ:(bool @-> returning (void)) x -let setPerformInPlace x self = msg_send ~self ~cmd:(selector "setPerformInPlace:") ~typ:(bool @-> returning (void)) x -let setReturnMask x self = msg_send ~self ~cmd:(selector "setReturnMask:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNRequest.ml b/Vision/VNRequest.ml index 419b7b54..d04b05d5 100644 --- a/Vision/VNRequest.ml +++ b/Vision/VNRequest.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/vnrequest?language=objc}VNRequest} *) +let self = get_class "VNRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning void) diff --git a/Vision/VNRequestClass.ml b/Vision/VNRequestClass.ml index 9df61bce..fdca8355 100644 --- a/Vision/VNRequestClass.ml +++ b/Vision/VNRequestClass.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/vnrequest?language=objc}VNRequest} *) -let self = get_class "VNRequest" - let _VNClassCode self = msg_send ~self ~cmd:(selector "VNClassCode") ~typ:(returning uint) let compatibleRevisionForDependentRequestOfClass x ~beingPerformedByRevision self = msg_send ~self ~cmd:(selector "compatibleRevisionForDependentRequestOfClass:beingPerformedByRevision:") ~typ:(_Class @-> ullong @-> returning ullong) x (ULLong.of_int beingPerformedByRevision) let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) diff --git a/Vision/VNRequestConfiguration.ml b/Vision/VNRequestConfiguration.ml index 6165f05a..f66ad56f 100644 --- a/Vision/VNRequestConfiguration.ml +++ b/Vision/VNRequestConfiguration.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/vnrequestconfiguration?language=objc}VNRequestConfiguration} *) +let self = get_class "VNRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let detectionLevel self = msg_send ~self ~cmd:(selector "detectionLevel") ~typ:(returning ullong) diff --git a/Vision/VNRequestConfigurationClass.ml b/Vision/VNRequestConfigurationClass.ml deleted file mode 100644 index f1da68c6..00000000 --- a/Vision/VNRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrequestconfiguration?language=objc}VNRequestConfiguration} *) - -let self = get_class "VNRequestConfiguration" - diff --git a/Vision/VNRequestForensics.ml b/Vision/VNRequestForensics.ml index 1cedef8e..e11cfa01 100644 --- a/Vision/VNRequestForensics.ml +++ b/Vision/VNRequestForensics.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/vnrequestforensics?language=objc}VNRequestForensics} *) +let self = get_class "VNRequestForensics" + let cachedObservationsWithKey x ~wereCheckedOnBehalfOfRequest self = msg_send ~self ~cmd:(selector "cachedObservationsWithKey:wereCheckedOnBehalfOfRequest:") ~typ:(id @-> id @-> returning void) x wereCheckedOnBehalfOfRequest let cachedObservationsWithKey' x ~wereLocatedOnBehalfOfRequest self = msg_send ~self ~cmd:(selector "cachedObservationsWithKey:wereLocatedOnBehalfOfRequest:") ~typ:(id @-> id @-> returning void) x wereLocatedOnBehalfOfRequest let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNRequestForensicsClass.ml b/Vision/VNRequestForensicsClass.ml deleted file mode 100644 index 779299ca..00000000 --- a/Vision/VNRequestForensicsClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrequestforensics?language=objc}VNRequestForensics} *) - -let self = get_class "VNRequestForensics" - diff --git a/Vision/VNRequestInstanceCreator.ml b/Vision/VNRequestInstanceCreator.ml deleted file mode 100644 index 2f4ec9f1..00000000 --- a/Vision/VNRequestInstanceCreator.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRequestInstanceCreator" - -module C = struct - let defaultCreator self = msg_send ~self ~cmd:(selector "defaultCreator") ~typ:(returning (id)) -end - -let errorForFailedInstanceCreationOfRequestClass x ~withCompletionHandler self = msg_send ~self ~cmd:(selector "errorForFailedInstanceCreationOfRequestClass:withCompletionHandler:") ~typ:(_Class @-> ptr void @-> returning (id)) x withCompletionHandler -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithDelegate x self = msg_send ~self ~cmd:(selector "initWithDelegate:") ~typ:(id @-> returning (id)) x -let newRequestInstanceOfClass x ~withCompletionHandler ~revision ~error self = msg_send ~self ~cmd:(selector "newRequestInstanceOfClass:withCompletionHandler:revision:error:") ~typ:(_Class @-> ptr void @-> ullong @-> ptr (id) @-> returning (id)) x withCompletionHandler (ULLong.of_int revision) error \ No newline at end of file diff --git a/Vision/VNRequestPerformer.ml b/Vision/VNRequestPerformer.ml index 13248f8b..24dadb4c 100644 --- a/Vision/VNRequestPerformer.ml +++ b/Vision/VNRequestPerformer.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/vnrequestperformer?language=objc}VNRequestPerformer} *) +let self = get_class "VNRequestPerformer" + let cancelAllRequests self = msg_send ~self ~cmd:(selector "cancelAllRequests") ~typ:(returning void) let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let dependencyAnalyzedRequestsForRequests x ~withPerformingContext ~error self = msg_send ~self ~cmd:(selector "dependencyAnalyzedRequestsForRequests:withPerformingContext:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x withPerformingContext error diff --git a/Vision/VNRequestPerformerClass.ml b/Vision/VNRequestPerformerClass.ml deleted file mode 100644 index 64e8cac1..00000000 --- a/Vision/VNRequestPerformerClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrequestperformer?language=objc}VNRequestPerformer} *) - -let self = get_class "VNRequestPerformer" - diff --git a/Vision/VNRequestPerformingContext.ml b/Vision/VNRequestPerformingContext.ml index 897c7f57..97b79ef9 100644 --- a/Vision/VNRequestPerformingContext.ml +++ b/Vision/VNRequestPerformingContext.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/vnrequestperformingcontext?language=objc}VNRequestPerformingContext} *) +let self = get_class "VNRequestPerformingContext" + let cacheObservationsOfRequest x self = msg_send ~self ~cmd:(selector "cacheObservationsOfRequest:") ~typ:(id @-> returning bool) x let cachedObservationsAcceptedByRequest x self = msg_send ~self ~cmd:(selector "cachedObservationsAcceptedByRequest:") ~typ:(id @-> returning id) x let imageBufferAndReturnError x self = msg_send ~self ~cmd:(selector "imageBufferAndReturnError:") ~typ:((ptr id) @-> returning id) x diff --git a/Vision/VNRequestPerformingContextClass.ml b/Vision/VNRequestPerformingContextClass.ml deleted file mode 100644 index f69c3ccf..00000000 --- a/Vision/VNRequestPerformingContextClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnrequestperformingcontext?language=objc}VNRequestPerformingContext} *) - -let self = get_class "VNRequestPerformingContext" - diff --git a/Vision/VNRequestSpecifier.ml b/Vision/VNRequestSpecifier.ml index 19aa64a1..f561eea6 100644 --- a/Vision/VNRequestSpecifier.ml +++ b/Vision/VNRequestSpecifier.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/vnrequestspecifier?language=objc}VNRequestSpecifier} *) +let self = get_class "VNRequestSpecifier" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNRequestSpecifierClass.ml b/Vision/VNRequestSpecifierClass.ml index b2616130..25605e64 100644 --- a/Vision/VNRequestSpecifierClass.ml +++ b/Vision/VNRequestSpecifierClass.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/vnrequestspecifier?language=objc}VNRequestSpecifier} *) -let self = get_class "VNRequestSpecifier" - let specifierForRequest x self = msg_send ~self ~cmd:(selector "specifierForRequest:") ~typ:(id @-> returning id) x let specifierForRequestClass x ~revision ~error self = msg_send ~self ~cmd:(selector "specifierForRequestClass:revision:error:") ~typ:(_Class @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int revision) error let specifierForRequestClassCode x ~revision ~error self = msg_send ~self ~cmd:(selector "specifierForRequestClassCode:revision:error:") ~typ:((ptr uint) @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int revision) error diff --git a/Vision/VNRequestSpecifierEquivalenciesRegistrar.ml b/Vision/VNRequestSpecifierEquivalenciesRegistrar.ml deleted file mode 100644 index 3139de5a..00000000 --- a/Vision/VNRequestSpecifierEquivalenciesRegistrar.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNRequestSpecifierEquivalenciesRegistrar" - -let equivalenciesForRequestSpecifier x self = msg_send ~self ~cmd:(selector "equivalenciesForRequestSpecifier:") ~typ:(id @-> returning (id)) x -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isRequestSpecifier x ~equivalentToRequestSpecifier self = msg_send ~self ~cmd:(selector "isRequestSpecifier:equivalentToRequestSpecifier:") ~typ:(id @-> id @-> returning (bool)) x equivalentToRequestSpecifier -let registerRequestClass x ~revision ~equivalencyToRevision ~error self = msg_send ~self ~cmd:(selector "registerRequestClass:revision:equivalencyToRevision:error:") ~typ:(_Class @-> ullong @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int revision) (ULLong.of_int equivalencyToRevision) error -let registerRequestClassName x ~revision ~equivalencyToRevision ~error self = msg_send ~self ~cmd:(selector "registerRequestClassName:revision:equivalencyToRevision:error:") ~typ:(id @-> ullong @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int revision) (ULLong.of_int equivalencyToRevision) error -let registerRequestClassName' x ~revision ~equivalencyToRequestClassName ~revision_ ~error self = msg_send ~self ~cmd:(selector "registerRequestClassName:revision:equivalencyToRequestClassName:revision:error:") ~typ:(id @-> ullong @-> id @-> ullong @-> ptr (id) @-> returning (bool)) x (ULLong.of_int revision) equivalencyToRequestClassName (ULLong.of_int revision_) error -let registerRequestSpecifier x ~equivalencyToRequestSpecifier ~error self = msg_send ~self ~cmd:(selector "registerRequestSpecifier:equivalencyToRequestSpecifier:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x equivalencyToRequestSpecifier error \ No newline at end of file diff --git a/Vision/VNSaliencyHeatmapBoundingBoxGenerator.ml b/Vision/VNSaliencyHeatmapBoundingBoxGenerator.ml deleted file mode 100644 index 120c6579..00000000 --- a/Vision/VNSaliencyHeatmapBoundingBoxGenerator.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNSaliencyHeatmapBoundingBoxGenerator" - -module C = struct - let calculateSaliencyBoundingBoxesForDetectorType x ~pixelBuffer ~configurationOptions ~originatingRequestSpecifier ~regionOfInterest ~qosClass ~warningRecorder ~error self = msg_send ~self ~cmd:(selector "calculateSaliencyBoundingBoxesForDetectorType:pixelBuffer:configurationOptions:originatingRequestSpecifier:regionOfInterest:qosClass:warningRecorder:error:") ~typ:(id @-> ptr void @-> id @-> id @-> CGRect.t @-> uint @-> id @-> ptr (id) @-> returning (id)) x pixelBuffer configurationOptions originatingRequestSpecifier regionOfInterest qosClass warningRecorder error - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x - let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning (void)) x -end - -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (bool)) x withOptions error \ No newline at end of file diff --git a/Vision/VNSaliencyImageObservation.ml b/Vision/VNSaliencyImageObservation.ml index e496d886..bb0fd6a4 100644 --- a/Vision/VNSaliencyImageObservation.ml +++ b/Vision/VNSaliencyImageObservation.ml @@ -4,21 +4,19 @@ 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/vnsaliencyimageobservation?language=objc}VNSaliencyImageObservation} *) +let self = get_class "VNSaliencyImageObservation" + let boundingBox self = msg_send ~self ~cmd:(selector "boundingBox") ~typ:(returning CGRect.t) -let createSaliencyImageAndReturnError x self = msg_send ~self ~cmd:(selector "createSaliencyImageAndReturnError:") ~typ:((ptr id) @-> returning (ptr CVBuffer.t)) x +let createSaliencyImageAndReturnError x self = msg_send ~self ~cmd:(selector "createSaliencyImageAndReturnError:") ~typ:((ptr id) @-> returning (ptr void)) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x -let initWithOriginatingRequestSpecifier x ~rawSaliencyImage ~originalImageSize ~salientObjectBoundingBoxes self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:rawSaliencyImage:originalImageSize:salientObjectBoundingBoxes:") ~typ:(id @-> (ptr CVBuffer.t) @-> CGSize.t @-> id @-> returning id) x rawSaliencyImage originalImageSize salientObjectBoundingBoxes +let initWithOriginatingRequestSpecifier x ~rawSaliencyImage ~originalImageSize ~salientObjectBoundingBoxes self = msg_send ~self ~cmd:(selector "initWithOriginatingRequestSpecifier:rawSaliencyImage:originalImageSize:salientObjectBoundingBoxes:") ~typ:(id @-> (ptr void) @-> CGSize.t @-> id @-> returning id) x rawSaliencyImage originalImageSize salientObjectBoundingBoxes let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x let narrowedBoundingBox self = msg_send ~self ~cmd:(selector "narrowedBoundingBox") ~typ:(returning CGRect.t) let salientObjects self = msg_send ~self ~cmd:(selector "salientObjects") ~typ:(returning id) diff --git a/Vision/VNSaliencyImageObservationClass.ml b/Vision/VNSaliencyImageObservationClass.ml index 4a4665e8..bb4450a5 100644 --- a/Vision/VNSaliencyImageObservationClass.ml +++ b/Vision/VNSaliencyImageObservationClass.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/vnsaliencyimageobservation?language=objc}VNSaliencyImageObservation} *) -let self = get_class "VNSaliencyImageObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNSceneClassificationRequest.ml b/Vision/VNSceneClassificationRequest.ml index b2cd56ef..b4212a38 100644 --- a/Vision/VNSceneClassificationRequest.ml +++ b/Vision/VNSceneClassificationRequest.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/vnsceneclassificationrequest?language=objc}VNSceneClassificationRequest} *) +let self = get_class "VNSceneClassificationRequest" + let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let customHierarchy self = msg_send ~self ~cmd:(selector "customHierarchy") ~typ:(returning id) let defineCustomHierarchy x ~error self = msg_send ~self ~cmd:(selector "defineCustomHierarchy:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNSceneClassificationRequestClass.ml b/Vision/VNSceneClassificationRequestClass.ml index 4b106ae3..d725fc1b 100644 --- a/Vision/VNSceneClassificationRequestClass.ml +++ b/Vision/VNSceneClassificationRequestClass.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/vnsceneclassificationrequest?language=objc}VNSceneClassificationRequest} *) -let self = get_class "VNSceneClassificationRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let dependentRequestCompatibility self = msg_send ~self ~cmd:(selector "dependentRequestCompatibility") ~typ:(returning (ptr void)) let descriptionForPrivateRevision x self = msg_send ~self ~cmd:(selector "descriptionForPrivateRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) diff --git a/Vision/VNSceneClassificationRequestConfiguration.ml b/Vision/VNSceneClassificationRequestConfiguration.ml index d1c45610..be352e1a 100644 --- a/Vision/VNSceneClassificationRequestConfiguration.ml +++ b/Vision/VNSceneClassificationRequestConfiguration.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/vnsceneclassificationrequestconfiguration?language=objc}VNSceneClassificationRequestConfiguration} *) +let self = get_class "VNSceneClassificationRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let customHierarchy self = msg_send ~self ~cmd:(selector "customHierarchy") ~typ:(returning id) let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) diff --git a/Vision/VNSceneClassificationRequestConfigurationClass.ml b/Vision/VNSceneClassificationRequestConfigurationClass.ml deleted file mode 100644 index 739ceb32..00000000 --- a/Vision/VNSceneClassificationRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnsceneclassificationrequestconfiguration?language=objc}VNSceneClassificationRequestConfiguration} *) - -let self = get_class "VNSceneClassificationRequestConfiguration" - diff --git a/Vision/VNSceneObservation.ml b/Vision/VNSceneObservation.ml index c6975f95..0e18fff2 100644 --- a/Vision/VNSceneObservation.ml +++ b/Vision/VNSceneObservation.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/vnsceneobservation?language=objc}VNSceneObservation} *) +let self = get_class "VNSceneObservation" + let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning id) let elementCount self = msg_send ~self ~cmd:(selector "elementCount") ~typ:(returning ullong) let elementType self = msg_send ~self ~cmd:(selector "elementType") ~typ:(returning ullong) diff --git a/Vision/VNSceneObservationClass.ml b/Vision/VNSceneObservationClass.ml index d462fc36..04f2baa1 100644 --- a/Vision/VNSceneObservationClass.ml +++ b/Vision/VNSceneObservationClass.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/vnsceneobservation?language=objc}VNSceneObservation} *) -let self = get_class "VNSceneObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let observationWithSceneprints x self = msg_send ~self ~cmd:(selector "observationWithSceneprints:") ~typ:(id @-> returning id) x let sceneprintCurrentVersion self = msg_send ~self ~cmd:(selector "sceneprintCurrentVersion") ~typ:(returning id) diff --git a/Vision/VNSceneTaxonomyOperationPoints.ml b/Vision/VNSceneTaxonomyOperationPoints.ml index 867a428f..b8b5e4b6 100644 --- a/Vision/VNSceneTaxonomyOperationPoints.ml +++ b/Vision/VNSceneTaxonomyOperationPoints.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/vnscenetaxonomyoperationpoints?language=objc}VNSceneTaxonomyOperationPoints} *) +let self = get_class "VNSceneTaxonomyOperationPoints" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let getConfidence x ~forClassificationIdentifier ~withPrecision ~error self = msg_send ~self ~cmd:(selector "getConfidence:forClassificationIdentifier:withPrecision:error:") ~typ:((ptr float) @-> id @-> float @-> (ptr id) @-> returning bool) x forClassificationIdentifier withPrecision error diff --git a/Vision/VNSceneTaxonomyOperationPointsClass.ml b/Vision/VNSceneTaxonomyOperationPointsClass.ml index 21bbad22..3aae380e 100644 --- a/Vision/VNSceneTaxonomyOperationPointsClass.ml +++ b/Vision/VNSceneTaxonomyOperationPointsClass.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/vnscenetaxonomyoperationpoints?language=objc}VNSceneTaxonomyOperationPoints} *) -let self = get_class "VNSceneTaxonomyOperationPoints" - let _URLForIdentifier x ~error self = msg_send ~self ~cmd:(selector "URLForIdentifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let loadFromIdentifier x ~error self = msg_send ~self ~cmd:(selector "loadFromIdentifier:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let loadFromPropertyList x ~error self = msg_send ~self ~cmd:(selector "loadFromPropertyList:error:") ~typ:(id @-> (ptr id) @-> returning id) x error diff --git a/Vision/VNSceneprint.ml b/Vision/VNSceneprint.ml index c39e2153..744bc1d8 100644 --- a/Vision/VNSceneprint.ml +++ b/Vision/VNSceneprint.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/vnsceneprint?language=objc}VNSceneprint} *) +let self = get_class "VNSceneprint" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x let initWithData x ~elementCount ~elementType ~lengthInBytes ~labelsAndConfidence ~requestRevision self = msg_send ~self ~cmd:(selector "initWithData:elementCount:elementType:lengthInBytes:labelsAndConfidence:requestRevision:") ~typ:((ptr void) @-> ullong @-> ullong @-> ullong @-> id @-> ullong @-> returning id) x (ULLong.of_int elementCount) (ULLong.of_int elementType) (ULLong.of_int lengthInBytes) labelsAndConfidence (ULLong.of_int requestRevision) diff --git a/Vision/VNSceneprintClass.ml b/Vision/VNSceneprintClass.ml index 9303daef..6730448f 100644 --- a/Vision/VNSceneprintClass.ml +++ b/Vision/VNSceneprintClass.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/vnsceneprint?language=objc}VNSceneprint} *) -let self = get_class "VNSceneprint" - let codingTypesToCodingKeys self = msg_send ~self ~cmd:(selector "codingTypesToCodingKeys") ~typ:(returning id) let confidenceTypeForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "confidenceTypeForOriginatingRequestSpecifier:") ~typ:(id @-> returning ullong) x let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning uint) diff --git a/Vision/VNSceneprintMLFeatureProvider.ml b/Vision/VNSceneprintMLFeatureProvider.ml deleted file mode 100644 index bd5b21ad..00000000 --- a/Vision/VNSceneprintMLFeatureProvider.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNSceneprintMLFeatureProvider" - -let featureNames self = msg_send ~self ~cmd:(selector "featureNames") ~typ:(returning (id)) -let featureValueForName x self = msg_send ~self ~cmd:(selector "featureValueForName:") ~typ:(id @-> returning (id)) x -let initWithSceneprint x ~dataType ~forKey ~originalFeatureProvider self = msg_send ~self ~cmd:(selector "initWithSceneprint:dataType:forKey:originalFeatureProvider:") ~typ:(id @-> llong @-> id @-> id @-> returning (id)) x (LLong.of_int dataType) forKey originalFeatureProvider \ No newline at end of file diff --git a/Vision/VNScreenGazeDetector.ml b/Vision/VNScreenGazeDetector.ml index 25459f4d..e4d0240d 100644 --- a/Vision/VNScreenGazeDetector.ml +++ b/Vision/VNScreenGazeDetector.ml @@ -5,14 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNScreenGazeDetector" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnscreengazedetector?language=objc}VNScreenGazeDetector} *) -module C = struct - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x -end +let self = get_class "VNScreenGazeDetector" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNScreenGazeDetectorClass.ml b/Vision/VNScreenGazeDetectorClass.ml new file mode 100644 index 00000000..0d2850cf --- /dev/null +++ b/Vision/VNScreenGazeDetectorClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnscreengazedetector?language=objc}VNScreenGazeDetector} *) + +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/Vision/VNSegmentationGenerator.ml b/Vision/VNSegmentationGenerator.ml deleted file mode 100644 index 32639d8f..00000000 --- a/Vision/VNSegmentationGenerator.ml +++ /dev/null @@ -1,31 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNSegmentationGenerator" - -module C = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let detectorClassForConfigurationOptions x ~error self = msg_send ~self ~cmd:(selector "detectorClassForConfigurationOptions:error:") ~typ:(id @-> ptr (id) @-> returning (_Class)) x error - let outputConfidenceBlobNames self = msg_send ~self ~cmd:(selector "outputConfidenceBlobNames") ~typ:(returning (id)) - let outputMaskBlobNameToFeatureName self = msg_send ~self ~cmd:(selector "outputMaskBlobNameToFeatureName") ~typ:(returning (id)) - let requestInfoForRequest x self = msg_send ~self ~cmd:(selector "requestInfoForRequest:") ~typ:(id @-> returning (id)) x - let requestKeyToRequestInfo self = msg_send ~self ~cmd:(selector "requestKeyToRequestInfo") ~typ:(returning (id)) - let supportsTiling self = msg_send ~self ~cmd:(selector "supportsTiling") ~typ:(returning (bool)) -end - -let bindOutputConfidenceBuffersAndReturnError x self = msg_send ~self ~cmd:(selector "bindOutputConfidenceBuffersAndReturnError:") ~typ:(ptr (id) @-> returning (bool)) x -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let espressoInputImageSize self = msg_send ~self ~cmd:(selector "espressoInputImageSize") ~typ:(returning (ptr void)) -let espressoInputMaskSize self = msg_send ~self ~cmd:(selector "espressoInputMaskSize") ~typ:(returning (ptr void)) -let espressoMaskOutputBufferSizes self = msg_send ~self ~cmd:(selector "espressoMaskOutputBufferSizes") ~typ:(returning (ptr (void))) -let espressoMaskOutputBuffers self = msg_send ~self ~cmd:(selector "espressoMaskOutputBuffers") ~typ:(returning (ptr (void))) -let initializeOutputConfidenceBuffers x self = msg_send ~self ~cmd:(selector "initializeOutputConfidenceBuffers:") ~typ:(ptr (void) @-> returning (void)) x -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let renderCIImage x ~width ~height ~format ~computeDevice ~session ~error self = msg_send ~self ~cmd:(selector "renderCIImage:width:height:format:computeDevice:session:error:") ~typ:(id @-> ullong @-> ullong @-> uint @-> id @-> id @-> ptr (id) @-> returning (ptr void)) x (ULLong.of_int width) (ULLong.of_int height) format computeDevice session error -let validateMaskForBlobName x ~options ~maskConfidence ~maskAcceptable ~error self = msg_send ~self ~cmd:(selector "validateMaskForBlobName:options:maskConfidence:maskAcceptable:error:") ~typ:(id @-> id @-> ptr (float) @-> ptr (bool) @-> ptr (id) @-> returning (bool)) x options maskConfidence maskAcceptable error \ No newline at end of file diff --git a/Vision/VNSequenceRequestHandler.ml b/Vision/VNSequenceRequestHandler.ml index 858802e7..331e8cc5 100644 --- a/Vision/VNSequenceRequestHandler.ml +++ b/Vision/VNSequenceRequestHandler.ml @@ -4,21 +4,19 @@ 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/vnsequencerequesthandler?language=objc}VNSequenceRequestHandler} *) +let self = get_class "VNSequenceRequestHandler" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let initWithSession x self = msg_send ~self ~cmd:(selector "initWithSession:") ~typ:(id @-> returning id) x let performRequests x ~onCGImage ~error self = msg_send ~self ~cmd:(selector "performRequests:onCGImage:error:") ~typ:(id @-> (ptr CGImage.t) @-> (ptr id) @-> returning bool) x onCGImage error let performRequests1 x ~onCIImage ~error self = msg_send ~self ~cmd:(selector "performRequests:onCIImage:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x onCIImage error let performRequests2 x ~onCMSampleBuffer ~error self = msg_send ~self ~cmd:(selector "performRequests:onCMSampleBuffer:error:") ~typ:(id @-> (ptr void) @-> (ptr id) @-> returning bool) x onCMSampleBuffer error -let performRequests3 x ~onCVPixelBuffer ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:error:") ~typ:(id @-> (ptr CVBuffer.t) @-> (ptr id) @-> returning bool) x onCVPixelBuffer error +let performRequests3 x ~onCVPixelBuffer ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:error:") ~typ:(id @-> (ptr void) @-> (ptr id) @-> returning bool) x onCVPixelBuffer error let performRequests4 x ~onImageData ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageData:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x onImageData error let performRequests5 x ~onImageURL ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageURL:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x onImageURL error let performRequests6 x ~onCGImage ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCGImage:gatheredForensics:error:") ~typ:(id @-> (ptr CGImage.t) @-> (ptr id) @-> (ptr id) @-> returning bool) x onCGImage gatheredForensics error @@ -27,8 +25,8 @@ let performRequests8 x ~onCIImage ~gatheredForensics ~error self = msg_send ~sel let performRequests9 x ~onCIImage ~orientation ~error self = msg_send ~self ~cmd:(selector "performRequests:onCIImage:orientation:error:") ~typ:(id @-> id @-> uint @-> (ptr id) @-> returning bool) x onCIImage orientation error let performRequests10 x ~onCMSampleBuffer ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCMSampleBuffer:gatheredForensics:error:") ~typ:(id @-> (ptr void) @-> (ptr id) @-> (ptr id) @-> returning bool) x onCMSampleBuffer gatheredForensics error let performRequests11 x ~onCMSampleBuffer ~orientation ~error self = msg_send ~self ~cmd:(selector "performRequests:onCMSampleBuffer:orientation:error:") ~typ:(id @-> (ptr void) @-> uint @-> (ptr id) @-> returning bool) x onCMSampleBuffer orientation error -let performRequests12 x ~onCVPixelBuffer ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:gatheredForensics:error:") ~typ:(id @-> (ptr CVBuffer.t) @-> (ptr id) @-> (ptr id) @-> returning bool) x onCVPixelBuffer gatheredForensics error -let performRequests13 x ~onCVPixelBuffer ~orientation ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:orientation:error:") ~typ:(id @-> (ptr CVBuffer.t) @-> uint @-> (ptr id) @-> returning bool) x onCVPixelBuffer orientation error +let performRequests12 x ~onCVPixelBuffer ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:gatheredForensics:error:") ~typ:(id @-> (ptr void) @-> (ptr id) @-> (ptr id) @-> returning bool) x onCVPixelBuffer gatheredForensics error +let performRequests13 x ~onCVPixelBuffer ~orientation ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:orientation:error:") ~typ:(id @-> (ptr void) @-> uint @-> (ptr id) @-> returning bool) x onCVPixelBuffer orientation error let performRequests14 x ~onImageData ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageData:gatheredForensics:error:") ~typ:(id @-> id @-> (ptr id) @-> (ptr id) @-> returning bool) x onImageData gatheredForensics error let performRequests15 x ~onImageData ~orientation ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageData:orientation:error:") ~typ:(id @-> id @-> uint @-> (ptr id) @-> returning bool) x onImageData orientation error let performRequests16 x ~onImageURL ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageURL:gatheredForensics:error:") ~typ:(id @-> id @-> (ptr id) @-> (ptr id) @-> returning bool) x onImageURL gatheredForensics error @@ -36,7 +34,7 @@ let performRequests17 x ~onImageURL ~orientation ~error self = msg_send ~self ~c let performRequests18 x ~onCGImage ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCGImage:orientation:gatheredForensics:error:") ~typ:(id @-> (ptr CGImage.t) @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onCGImage orientation gatheredForensics error let performRequests19 x ~onCIImage ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCIImage:orientation:gatheredForensics:error:") ~typ:(id @-> id @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onCIImage orientation gatheredForensics error let performRequests20 x ~onCMSampleBuffer ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCMSampleBuffer:orientation:gatheredForensics:error:") ~typ:(id @-> (ptr void) @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onCMSampleBuffer orientation gatheredForensics error -let performRequests21 x ~onCVPixelBuffer ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:orientation:gatheredForensics:error:") ~typ:(id @-> (ptr CVBuffer.t) @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onCVPixelBuffer orientation gatheredForensics error +let performRequests21 x ~onCVPixelBuffer ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onCVPixelBuffer:orientation:gatheredForensics:error:") ~typ:(id @-> (ptr void) @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onCVPixelBuffer orientation gatheredForensics error let performRequests22 x ~onImageData ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageData:orientation:gatheredForensics:error:") ~typ:(id @-> id @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onImageData orientation gatheredForensics error let performRequests23 x ~onImageURL ~orientation ~gatheredForensics ~error self = msg_send ~self ~cmd:(selector "performRequests:onImageURL:orientation:gatheredForensics:error:") ~typ:(id @-> id @-> uint @-> (ptr id) @-> (ptr id) @-> returning bool) x onImageURL orientation gatheredForensics error let prepareForPerformingRequests x ~error self = msg_send ~self ~cmd:(selector "prepareForPerformingRequests:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNSequenceRequestHandlerClass.ml b/Vision/VNSequenceRequestHandlerClass.ml index a71c9b50..602536d3 100644 --- a/Vision/VNSequenceRequestHandlerClass.ml +++ b/Vision/VNSequenceRequestHandlerClass.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/vnsequencerequesthandler?language=objc}VNSequenceRequestHandler} *) -let self = get_class "VNSequenceRequestHandler" - let forcedCleanup self = msg_send ~self ~cmd:(selector "forcedCleanup") ~typ:(returning void) let forcedCleanupWithOptions x self = msg_send ~self ~cmd:(selector "forcedCleanupWithOptions:") ~typ:(id @-> returning void) x let requestForcedCleanup self = msg_send ~self ~cmd:(selector "requestForcedCleanup") ~typ:(returning void) diff --git a/Vision/VNSession.ml b/Vision/VNSession.ml index 6b534aae..0024d0d5 100644 --- a/Vision/VNSession.ml +++ b/Vision/VNSession.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/vnsession?language=objc}VNSession} *) +let self = get_class "VNSession" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let detectorCache x ~didCacheDetector self = msg_send ~self ~cmd:(selector "detectorCache:didCacheDetector:") ~typ:(id @-> id @-> returning void) x didCacheDetector let detectorCache' x ~didEvictDetector self = msg_send ~self ~cmd:(selector "detectorCache:didEvictDetector:") ~typ:(id @-> id @-> returning void) x didEvictDetector diff --git a/Vision/VNSessionClass.ml b/Vision/VNSessionClass.ml index 74a96dc2..51903a4d 100644 --- a/Vision/VNSessionClass.ml +++ b/Vision/VNSessionClass.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/vnsession?language=objc}VNSession} *) -let self = get_class "VNSession" - let globalSession self = msg_send ~self ~cmd:(selector "globalSession") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNSingleHeadSceneprintGenerator.ml b/Vision/VNSingleHeadSceneprintGenerator.ml index 61d3d2f4..6315e8dd 100644 --- a/Vision/VNSingleHeadSceneprintGenerator.ml +++ b/Vision/VNSingleHeadSceneprintGenerator.ml @@ -5,18 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNSingleHeadSceneprintGenerator" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnsingleheadsceneprintgenerator?language=objc}VNSingleHeadSceneprintGenerator} *) -module Class = struct - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let fullyPopulateConfigurationOptions x self = msg_send ~self ~cmd:(selector "fullyPopulateConfigurationOptions:") ~typ:(id @-> returning (void)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x - let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning (void)) x -end +let self = get_class "VNSingleHeadSceneprintGenerator" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNSingleHeadSceneprintGeneratorClass.ml b/Vision/VNSingleHeadSceneprintGeneratorClass.ml new file mode 100644 index 00000000..08c2b1c5 --- /dev/null +++ b/Vision/VNSingleHeadSceneprintGeneratorClass.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/vnsingleheadsceneprintgenerator?language=objc}VNSingleHeadSceneprintGenerator} *) + +let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning id) +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let fullyPopulateConfigurationOptions x self = msg_send ~self ~cmd:(selector "fullyPopulateConfigurationOptions:") ~typ:(id @-> returning void) x +let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning ullong) x +let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning uint) x +let recordDefaultConfigurationOptionsInDictionary x self = msg_send ~self ~cmd:(selector "recordDefaultConfigurationOptionsInDictionary:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/Vision/VNSizeRange.ml b/Vision/VNSizeRange.ml index 53722fb3..2c61b50e 100644 --- a/Vision/VNSizeRange.ml +++ b/Vision/VNSizeRange.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/vnsizerange?language=objc}VNSizeRange} *) +let self = get_class "VNSizeRange" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNSizeRangeClass.ml b/Vision/VNSizeRangeClass.ml index 9aaa9167..2d4f5dc0 100644 --- a/Vision/VNSizeRangeClass.ml +++ b/Vision/VNSizeRangeClass.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/vnsizerange?language=objc}VNSizeRange} *) -let self = get_class "VNSizeRange" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNSliderNetDetector.ml b/Vision/VNSliderNetDetector.ml deleted file mode 100644 index 51d54acd..00000000 --- a/Vision/VNSliderNetDetector.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNSliderNetDetector" - -module C = struct - let analysisPixelFormatTypeForConfiguration x self = msg_send ~self ~cmd:(selector "analysisPixelFormatTypeForConfiguration:") ~typ:(id @-> returning (uint)) x - let inputImageBlobNameForConfiguration x self = msg_send ~self ~cmd:(selector "inputImageBlobNameForConfiguration:") ~typ:(id @-> returning (id)) x - let modelPathForConfiguration x ~error self = msg_send ~self ~cmd:(selector "modelPathForConfiguration:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error - let supportedAdjustmentKeys self = msg_send ~self ~cmd:(selector "supportedAdjustmentKeys") ~typ:(returning (id)) -end - -let analysisTypesForProcessOptions x self = msg_send ~self ~cmd:(selector "analysisTypesForProcessOptions:") ~typ:(id @-> returning (uint)) x -let configureImageAnalyzerOptions x ~error self = msg_send ~self ~cmd:(selector "configureImageAnalyzerOptions:error:") ~typ:(ptr (void) @-> ptr (id) @-> returning (bool)) x error -let observationsForLastAnalysisOfImageAnalyzer x ~processOptions ~originatingRequestSpecifier ~qosClass ~error self = msg_send ~self ~cmd:(selector "observationsForLastAnalysisOfImageAnalyzer:processOptions:originatingRequestSpecifier:qosClass:error:") ~typ:(ptr (void) @-> id @-> id @-> uint @-> ptr (id) @-> returning (id)) x processOptions originatingRequestSpecifier qosClass error \ No newline at end of file diff --git a/Vision/VNSmartCam5CompoundRequest.ml b/Vision/VNSmartCam5CompoundRequest.ml deleted file mode 100644 index 153fa87a..00000000 --- a/Vision/VNSmartCam5CompoundRequest.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNSmartCam5CompoundRequest" - -module C = struct - let compoundRequestsForOriginalRequests x ~withPerformingContext ~error self = msg_send ~self ~cmd:(selector "compoundRequestsForOriginalRequests:withPerformingContext:error:") ~typ:(id @-> id @-> ptr (id) @-> returning (id)) x withPerformingContext error -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session \ No newline at end of file diff --git a/Vision/VNSmartCam5CompoundRequestGroupingConfiguration.ml b/Vision/VNSmartCam5CompoundRequestGroupingConfiguration.ml index c8357685..7bce3f0b 100644 --- a/Vision/VNSmartCam5CompoundRequestGroupingConfiguration.ml +++ b/Vision/VNSmartCam5CompoundRequestGroupingConfiguration.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/vnsmartcam5compoundrequestgroupingconfiguration?language=objc}VNSmartCam5CompoundRequestGroupingConfiguration} *) +let self = get_class "VNSmartCam5CompoundRequestGroupingConfiguration" + let addOriginalRequest x self = msg_send ~self ~cmd:(selector "addOriginalRequest:") ~typ:(id @-> returning void) x let detectorConfigurationOptions self = msg_send ~self ~cmd:(selector "detectorConfigurationOptions") ~typ:(returning id) let imageCropAndScaleOption self = msg_send ~self ~cmd:(selector "imageCropAndScaleOption") ~typ:(returning ullong) diff --git a/Vision/VNSmartCam5CompoundRequestGroupingConfigurationClass.ml b/Vision/VNSmartCam5CompoundRequestGroupingConfigurationClass.ml deleted file mode 100644 index d7524cd7..00000000 --- a/Vision/VNSmartCam5CompoundRequestGroupingConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnsmartcam5compoundrequestgroupingconfiguration?language=objc}VNSmartCam5CompoundRequestGroupingConfiguration} *) - -let self = get_class "VNSmartCam5CompoundRequestGroupingConfiguration" - diff --git a/Vision/VNSmartCam5GatingDetector.ml b/Vision/VNSmartCam5GatingDetector.ml index 4400a51c..82377af9 100644 --- a/Vision/VNSmartCam5GatingDetector.ml +++ b/Vision/VNSmartCam5GatingDetector.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/vnsmartcam5gatingdetector?language=objc}VNSmartCam5GatingDetector} *) +let self = get_class "VNSmartCam5GatingDetector" + let analysisTypesForProcessOptions x self = msg_send ~self ~cmd:(selector "analysisTypesForProcessOptions:") ~typ:(id @-> returning uint) x let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let configureImageAnalyzerOptions x ~error self = msg_send ~self ~cmd:(selector "configureImageAnalyzerOptions:error:") ~typ:((ptr void) @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNSmartCam5GatingDetectorClass.ml b/Vision/VNSmartCam5GatingDetectorClass.ml index 02e9a420..01ca2d70 100644 --- a/Vision/VNSmartCam5GatingDetectorClass.ml +++ b/Vision/VNSmartCam5GatingDetectorClass.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/vnsmartcam5gatingdetector?language=objc}VNSmartCam5GatingDetector} *) -let self = get_class "VNSmartCam5GatingDetector" - let analysisPixelFormatTypeForConfiguration x self = msg_send ~self ~cmd:(selector "analysisPixelFormatTypeForConfiguration:") ~typ:(id @-> returning uint) x let inputImageBlobNameForConfiguration x self = msg_send ~self ~cmd:(selector "inputImageBlobNameForConfiguration:") ~typ:(id @-> returning id) x let modelNameForConfiguration x self = msg_send ~self ~cmd:(selector "modelNameForConfiguration:") ~typ:(id @-> returning id) x \ No newline at end of file diff --git a/Vision/VNSmartCamClassifier.ml b/Vision/VNSmartCamClassifier.ml index 5e2f849b..ce2ed6ee 100644 --- a/Vision/VNSmartCamClassifier.ml +++ b/Vision/VNSmartCamClassifier.ml @@ -5,16 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNSmartCamClassifier" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnsmartcamclassifier?language=objc}VNSmartCamClassifier} *) -module Class = struct - let classifierResourceTypesToNamesForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "classifierResourceTypesToNamesForOriginatingRequestSpecifier:") ~typ:(id @-> returning (id)) x - let createObservationWithDescriptors x ~forOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "createObservationWithDescriptors:forOriginatingRequestSpecifier:") ~typ:(id @-> id @-> returning (id)) x forOriginatingRequestSpecifier - let espressoModelImageprintClass self = msg_send ~self ~cmd:(selector "espressoModelImageprintClass") ~typ:(returning (_Class)) - let initDumpDebugIntermediates x ~debugInfo self = msg_send ~self ~cmd:(selector "initDumpDebugIntermediates:debugInfo:") ~typ:(ptr (id) @-> ptr (id) @-> returning (void)) x debugInfo - let returnAllResultsOptionKey self = msg_send ~self ~cmd:(selector "returnAllResultsOptionKey") ~typ:(returning (id)) -end +let self = get_class "VNSmartCamClassifier" -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNSmartCamClassifierClass.ml b/Vision/VNSmartCamClassifierClass.ml new file mode 100644 index 00000000..debbc126 --- /dev/null +++ b/Vision/VNSmartCamClassifierClass.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/vnsmartcamclassifier?language=objc}VNSmartCamClassifier} *) + +let classifierResourceTypesToNamesForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "classifierResourceTypesToNamesForOriginatingRequestSpecifier:") ~typ:(id @-> returning id) x +let createClassifierWithDescriptor x ~classifierAbsolutePath ~computePlatform ~computePath ~labelsFilename ~options self = msg_send ~self ~cmd:(selector "createClassifierWithDescriptor:classifierAbsolutePath:computePlatform:computePath:labelsFilename:options:") ~typ:(id @-> string @-> int @-> int @-> string @-> ptr void @-> returning id) x classifierAbsolutePath computePlatform computePath labelsFilename options +let createDescriprorProcessorWithModelPath x ~nBatch ~computePlatform ~computePath ~options self = msg_send ~self ~cmd:(selector "createDescriprorProcessorWithModelPath:nBatch:computePlatform:computePath:options:") ~typ:(string @-> int @-> int @-> int @-> ptr void @-> returning id) x nBatch computePlatform computePath options +let createObservationWithDescriptors x ~forOriginatingRequestSpecifier self = msg_send ~self ~cmd:(selector "createObservationWithDescriptors:forOriginatingRequestSpecifier:") ~typ:(id @-> id @-> returning id) x forOriginatingRequestSpecifier +let espressoModelImageprintClass self = msg_send ~self ~cmd:(selector "espressoModelImageprintClass") ~typ:(returning _Class) +let initDumpDebugIntermediates x ~debugInfo self = msg_send ~self ~cmd:(selector "initDumpDebugIntermediates:debugInfo:") ~typ:((ptr id) @-> (ptr id) @-> returning void) x debugInfo +let returnAllResultsOptionKey self = msg_send ~self ~cmd:(selector "returnAllResultsOptionKey") ~typ:(returning id) \ No newline at end of file diff --git a/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetector.ml b/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetector.ml index b0fb30d4..a535fcdc 100644 --- a/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetector.ml +++ b/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetector.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/vnsmartcamcombinedaestheticsandsaliencydetector?language=objc}VNSmartCamCombinedAestheticsAndSaliencyDetector} *) +let self = get_class "VNSmartCamCombinedAestheticsAndSaliencyDetector" + let espressoModelNetworkLayersStorageTypeForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelNetworkLayersStorageTypeForConfigurationOptions:") ~typ:(id @-> returning int) x let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler let warmUpSession x ~withOptions ~error self = msg_send ~self ~cmd:(selector "warmUpSession:withOptions:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x withOptions error \ No newline at end of file diff --git a/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetectorClass.ml b/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetectorClass.ml index 27a0dda9..86863d1c 100644 --- a/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetectorClass.ml +++ b/Vision/VNSmartCamCombinedAestheticsAndSaliencyDetectorClass.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/vnsmartcamcombinedaestheticsandsaliencydetector?language=objc}VNSmartCamCombinedAestheticsAndSaliencyDetector} *) -let self = get_class "VNSmartCamCombinedAestheticsAndSaliencyDetector" - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning ullong) x diff --git a/Vision/VNSmartCamObservation.ml b/Vision/VNSmartCamObservation.ml index 5e9c2a2c..75189088 100644 --- a/Vision/VNSmartCamObservation.ml +++ b/Vision/VNSmartCamObservation.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/vnsmartcamobservation?language=objc}VNSmartCamObservation} *) +let self = get_class "VNSmartCamObservation" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x diff --git a/Vision/VNSmartCamObservationClass.ml b/Vision/VNSmartCamObservationClass.ml index be035577..49dfc31a 100644 --- a/Vision/VNSmartCamObservationClass.ml +++ b/Vision/VNSmartCamObservationClass.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/vnsmartcamobservation?language=objc}VNSmartCamObservation} *) -let self = get_class "VNSmartCamObservation" - let defaultOriginatingRequestClassNameForRequestRevision x self = msg_send ~self ~cmd:(selector "defaultOriginatingRequestClassNameForRequestRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let observationWithSmartCamprints x self = msg_send ~self ~cmd:(selector "observationWithSmartCamprints:") ~typ:(id @-> returning id) x let smartCamprintCurrentVersion self = msg_send ~self ~cmd:(selector "smartCamprintCurrentVersion") ~typ:(returning id) diff --git a/Vision/VNSmartCamprint.ml b/Vision/VNSmartCamprint.ml index 62e04868..5ec219de 100644 --- a/Vision/VNSmartCamprint.ml +++ b/Vision/VNSmartCamprint.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/vnsmartcamprint?language=objc}VNSmartCamprint} *) +let self = get_class "VNSmartCamprint" + let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x let initWithData x ~elementCount ~elementType ~lengthInBytes ~labelsAndConfidence ~originatingRequestSpecifier self = msg_send ~self ~cmd:(selector "initWithData:elementCount:elementType:lengthInBytes:labelsAndConfidence:originatingRequestSpecifier:") ~typ:((ptr void) @-> ullong @-> ullong @-> ullong @-> id @-> id @-> returning id) x (ULLong.of_int elementCount) (ULLong.of_int elementType) (ULLong.of_int lengthInBytes) labelsAndConfidence originatingRequestSpecifier diff --git a/Vision/VNSmartCamprintClass.ml b/Vision/VNSmartCamprintClass.ml index f7b3cee0..0164da7c 100644 --- a/Vision/VNSmartCamprintClass.ml +++ b/Vision/VNSmartCamprintClass.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/vnsmartcamprint?language=objc}VNSmartCamprint} *) -let self = get_class "VNSmartCamprint" - let codingTypesToCodingKeys self = msg_send ~self ~cmd:(selector "codingTypesToCodingKeys") ~typ:(returning id) let confidenceTypeForOriginatingRequestSpecifier x self = msg_send ~self ~cmd:(selector "confidenceTypeForOriginatingRequestSpecifier:") ~typ:(id @-> returning ullong) x let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning uint) diff --git a/Vision/VNStatefulRequest.ml b/Vision/VNStatefulRequest.ml index ff26a8c1..6855c4a9 100644 --- a/Vision/VNStatefulRequest.ml +++ b/Vision/VNStatefulRequest.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/vnstatefulrequest?language=objc}VNStatefulRequest} *) +let self = get_class "VNStatefulRequest" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let frameAnalysisSpacing self = msg_send ~self ~cmd:(selector "frameAnalysisSpacing") ~typ:(returning void) let initWithFrameAnalysisSpacing x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithFrameAnalysisSpacing:completionHandler:") ~typ:(void @-> (ptr void) @-> returning id) x completionHandler diff --git a/Vision/VNStatefulRequestClass.ml b/Vision/VNStatefulRequestClass.ml index fe8d697b..f9c29926 100644 --- a/Vision/VNStatefulRequestClass.ml +++ b/Vision/VNStatefulRequestClass.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/vnstatefulrequest?language=objc}VNStatefulRequest} *) -let self = get_class "VNStatefulRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) \ No newline at end of file diff --git a/Vision/VNStatefulRequestConfiguration.ml b/Vision/VNStatefulRequestConfiguration.ml index 06202374..c6555069 100644 --- a/Vision/VNStatefulRequestConfiguration.ml +++ b/Vision/VNStatefulRequestConfiguration.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/vnstatefulrequestconfiguration?language=objc}VNStatefulRequestConfiguration} *) +let self = get_class "VNStatefulRequestConfiguration" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let frameAnalysisSpacing self = msg_send ~self ~cmd:(selector "frameAnalysisSpacing") ~typ:(returning void) let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning id) x diff --git a/Vision/VNStatefulRequestConfigurationClass.ml b/Vision/VNStatefulRequestConfigurationClass.ml deleted file mode 100644 index d369c34a..00000000 --- a/Vision/VNStatefulRequestConfigurationClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnstatefulrequestconfiguration?language=objc}VNStatefulRequestConfiguration} *) - -let self = get_class "VNStatefulRequestConfiguration" - diff --git a/Vision/VNSuggestionsLogger.ml b/Vision/VNSuggestionsLogger.ml index 3fe09cf9..8532fabd 100644 --- a/Vision/VNSuggestionsLogger.ml +++ b/Vision/VNSuggestionsLogger.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/vnsuggestionslogger?language=objc}VNSuggestionsLogger} *) +let self = get_class "VNSuggestionsLogger" + let initWithOptions x ~logEnabled self = msg_send ~self ~cmd:(selector "initWithOptions:logEnabled:") ~typ:(id @-> bool @-> returning id) x logEnabled let logAllSuggestons x self = msg_send ~self ~cmd:(selector "logAllSuggestons:") ~typ:(id @-> returning void) x let logConnectedGroups x self = msg_send ~self ~cmd:(selector "logConnectedGroups:") ~typ:(id @-> returning void) x diff --git a/Vision/VNSuggestionsLoggerClass.ml b/Vision/VNSuggestionsLoggerClass.ml deleted file mode 100644 index b23443df..00000000 --- a/Vision/VNSuggestionsLoggerClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnsuggestionslogger?language=objc}VNSuggestionsLogger} *) - -let self = get_class "VNSuggestionsLogger" - diff --git a/Vision/VNSupportedImageSize.ml b/Vision/VNSupportedImageSize.ml index ca5063cd..b2b2d1f8 100644 --- a/Vision/VNSupportedImageSize.ml +++ b/Vision/VNSupportedImageSize.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/vnsupportedimagesize?language=objc}VNSupportedImageSize} *) +let self = get_class "VNSupportedImageSize" + let aspectRatioHandling self = msg_send ~self ~cmd:(selector "aspectRatioHandling") ~typ:(returning ullong) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNSupportedImageSizeClass.ml b/Vision/VNSupportedImageSizeClass.ml index 0a75cfe2..d16e973d 100644 --- a/Vision/VNSupportedImageSizeClass.ml +++ b/Vision/VNSupportedImageSizeClass.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/vnsupportedimagesize?language=objc}VNSupportedImageSize} *) -let self = get_class "VNSupportedImageSize" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNTargetedImageRequest.ml b/Vision/VNTargetedImageRequest.ml index 4fbdd0ac..7c7a7d43 100644 --- a/Vision/VNTargetedImageRequest.ml +++ b/Vision/VNTargetedImageRequest.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/vntargetedimagerequest?language=objc}VNTargetedImageRequest} *) +let self = get_class "VNTargetedImageRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let initWithTargetedCGImage x ~options self = msg_send ~self ~cmd:(selector "initWithTargetedCGImage:options:") ~typ:((ptr CGImage.t) @-> id @-> returning id) x options let initWithTargetedCGImage1 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCGImage:options:completionHandler:") ~typ:((ptr CGImage.t) @-> id @-> (ptr void) @-> returning id) x options completionHandler @@ -26,10 +24,10 @@ let initWithTargetedCMSampleBuffer x ~options self = msg_send ~self ~cmd:(select let initWithTargetedCMSampleBuffer1 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCMSampleBuffer:options:completionHandler:") ~typ:((ptr void) @-> id @-> (ptr void) @-> returning id) x options completionHandler let initWithTargetedCMSampleBuffer2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithTargetedCMSampleBuffer:orientation:options:") ~typ:((ptr void) @-> uint @-> id @-> returning id) x orientation options let initWithTargetedCMSampleBuffer3 x ~orientation ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCMSampleBuffer:orientation:options:completionHandler:") ~typ:((ptr void) @-> uint @-> id @-> (ptr void) @-> returning id) x orientation options completionHandler -let initWithTargetedCVPixelBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:options:") ~typ:((ptr CVBuffer.t) @-> id @-> returning id) x options -let initWithTargetedCVPixelBuffer1 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:options:completionHandler:") ~typ:((ptr CVBuffer.t) @-> id @-> (ptr void) @-> returning id) x options completionHandler -let initWithTargetedCVPixelBuffer2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:orientation:options:") ~typ:((ptr CVBuffer.t) @-> uint @-> id @-> returning id) x orientation options -let initWithTargetedCVPixelBuffer3 x ~orientation ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:orientation:options:completionHandler:") ~typ:((ptr CVBuffer.t) @-> uint @-> id @-> (ptr void) @-> returning id) x orientation options completionHandler +let initWithTargetedCVPixelBuffer x ~options self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:options:") ~typ:((ptr void) @-> id @-> returning id) x options +let initWithTargetedCVPixelBuffer1 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:options:completionHandler:") ~typ:((ptr void) @-> id @-> (ptr void) @-> returning id) x options completionHandler +let initWithTargetedCVPixelBuffer2 x ~orientation ~options self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:orientation:options:") ~typ:((ptr void) @-> uint @-> id @-> returning id) x orientation options +let initWithTargetedCVPixelBuffer3 x ~orientation ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedCVPixelBuffer:orientation:options:completionHandler:") ~typ:((ptr void) @-> uint @-> id @-> (ptr void) @-> returning id) x orientation options completionHandler let initWithTargetedImageBuffer x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedImageBuffer:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler let initWithTargetedImageData x ~options self = msg_send ~self ~cmd:(selector "initWithTargetedImageData:options:") ~typ:(id @-> id @-> returning id) x options let initWithTargetedImageData1 x ~options ~completionHandler self = msg_send ~self ~cmd:(selector "initWithTargetedImageData:options:completionHandler:") ~typ:(id @-> id @-> (ptr void) @-> returning id) x options completionHandler diff --git a/Vision/VNTargetedImageRequestClass.ml b/Vision/VNTargetedImageRequestClass.ml deleted file mode 100644 index 92178cdb..00000000 --- a/Vision/VNTargetedImageRequestClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntargetedimagerequest?language=objc}VNTargetedImageRequest} *) - -let self = get_class "VNTargetedImageRequest" - diff --git a/Vision/VNTasksQueueCache.ml b/Vision/VNTasksQueueCache.ml deleted file mode 100644 index 44707cf2..00000000 --- a/Vision/VNTasksQueueCache.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTasksQueueCache" - -module C = struct - let queueLabelWithUniqueAppendix x self = msg_send ~self ~cmd:(selector "queueLabelWithUniqueAppendix:") ~typ:(id @-> returning (id)) x -end - -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let maximumTasksCount self = msg_send ~self ~cmd:(selector "maximumTasksCount") ~typ:(returning (llong)) -let queueWithUniqueAppendix x self = msg_send ~self ~cmd:(selector "queueWithUniqueAppendix:") ~typ:(id @-> returning (id)) x -let releaseAllQueues self = msg_send ~self ~cmd:(selector "releaseAllQueues") ~typ:(returning (void)) -let releaseQueueWithUniqueAppendix x self = msg_send ~self ~cmd:(selector "releaseQueueWithUniqueAppendix:") ~typ:(id @-> returning (void)) x -let setMaximumTasksCount x self = msg_send ~self ~cmd:(selector "setMaximumTasksCount:") ~typ:(llong @-> returning (void)) (LLong.of_int x) \ No newline at end of file diff --git a/Vision/VNTextObservation.ml b/Vision/VNTextObservation.ml index 4f03ba25..760b3a19 100644 --- a/Vision/VNTextObservation.ml +++ b/Vision/VNTextObservation.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/vntextobservation?language=objc}VNTextObservation} *) +let self = get_class "VNTextObservation" + let characterBoxes self = msg_send ~self ~cmd:(selector "characterBoxes") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNTextObservationClass.ml b/Vision/VNTextObservationClass.ml index 4e883481..4c4d57a2 100644 --- a/Vision/VNTextObservationClass.ml +++ b/Vision/VNTextObservationClass.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/vntextobservation?language=objc}VNTextObservation} *) -let self = get_class "VNTextObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNTorsoprint.ml b/Vision/VNTorsoprint.ml index 1d8f73c3..071c145b 100644 --- a/Vision/VNTorsoprint.ml +++ b/Vision/VNTorsoprint.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/vntorsoprint?language=objc}VNTorsoprint} *) +let self = get_class "VNTorsoprint" + let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning float) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNTorsoprintClass.ml b/Vision/VNTorsoprintClass.ml index 73a6fc0b..b6d4419c 100644 --- a/Vision/VNTorsoprintClass.ml +++ b/Vision/VNTorsoprintClass.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/vntorsoprint?language=objc}VNTorsoprint} *) -let self = get_class "VNTorsoprint" - let codingTypesToCodingKeys self = msg_send ~self ~cmd:(selector "codingTypesToCodingKeys") ~typ:(returning id) let currentCodingVersion self = msg_send ~self ~cmd:(selector "currentCodingVersion") ~typ:(returning uint) let currentSerializationVersion self = msg_send ~self ~cmd:(selector "currentSerializationVersion") ~typ:(returning ullong) diff --git a/Vision/VNTorsoprintGeneratorFaceBased.ml b/Vision/VNTorsoprintGeneratorFaceBased.ml index 369a7dd3..a259f576 100644 --- a/Vision/VNTorsoprintGeneratorFaceBased.ml +++ b/Vision/VNTorsoprintGeneratorFaceBased.ml @@ -5,17 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNTorsoprintGeneratorFaceBased" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntorsoprintgeneratorfacebased?language=objc}VNTorsoprintGeneratorFaceBased} *) -module C = struct - let magnifiedBBoxScaleFactor self = msg_send ~self ~cmd:(selector "magnifiedBBoxScaleFactor") ~typ:(returning (float)) - let minimumTorsoInsideInputImageThreshold self = msg_send ~self ~cmd:(selector "minimumTorsoInsideInputImageThreshold") ~typ:(returning (float)) - let torsoprintDescriptorSize self = msg_send_stret ~self ~cmd:(selector "torsoprintDescriptorSize") ~typ:(returning (CGSize.t)) ~return_type:CGSize.t - let torsoprintInputImageSizeForFaceOrientation x self = msg_send_stret ~self ~cmd:(selector "torsoprintInputImageSizeForFaceOrientation:") ~typ:(int @-> returning (CGSize.t)) ~return_type:CGSize.t x -end +let self = get_class "VNTorsoprintGeneratorFaceBased" -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let internalProcessUsingQualityOfServiceClass x ~options ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "internalProcessUsingQualityOfServiceClass:options:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(uint @-> id @-> CGRect.t @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x options regionOfInterest warningRecorder error progressHandler -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler -let torsoprintForImageBuffer x ~requestRevision ~error self = msg_send ~self ~cmd:(selector "torsoprintForImageBuffer:requestRevision:error:") ~typ:(ptr void @-> ullong @-> ptr (id) @-> returning (id)) x (ULLong.of_int requestRevision) error \ No newline at end of file +let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler +let torsoprintForImageBuffer x ~requestRevision ~error self = msg_send ~self ~cmd:(selector "torsoprintForImageBuffer:requestRevision:error:") ~typ:((ptr void) @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int requestRevision) error \ No newline at end of file diff --git a/Vision/VNTorsoprintGeneratorFaceBasedClass.ml b/Vision/VNTorsoprintGeneratorFaceBasedClass.ml new file mode 100644 index 00000000..3bb33129 --- /dev/null +++ b/Vision/VNTorsoprintGeneratorFaceBasedClass.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntorsoprintgeneratorfacebased?language=objc}VNTorsoprintGeneratorFaceBased} *) + +let magnifiedBBoxScaleFactor self = msg_send ~self ~cmd:(selector "magnifiedBBoxScaleFactor") ~typ:(returning float) +let minimumTorsoInsideInputImageThreshold self = msg_send ~self ~cmd:(selector "minimumTorsoInsideInputImageThreshold") ~typ:(returning float) +let torsoprintDescriptorSize self = msg_send ~self ~cmd:(selector "torsoprintDescriptorSize") ~typ:(returning CGSize.t) +let torsoprintInputImageSizeForFaceOrientation x self = msg_send ~self ~cmd:(selector "torsoprintInputImageSizeForFaceOrientation:") ~typ:(int @-> returning CGSize.t) x \ No newline at end of file diff --git a/Vision/VNTorsoprintGeneratorHumanDetectorBased.ml b/Vision/VNTorsoprintGeneratorHumanDetectorBased.ml index 27786b66..6b25670b 100644 --- a/Vision/VNTorsoprintGeneratorHumanDetectorBased.ml +++ b/Vision/VNTorsoprintGeneratorHumanDetectorBased.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/vntorsoprintgeneratorhumandetectorbased?language=objc}VNTorsoprintGeneratorHumanDetectorBased} *) +let self = get_class "VNTorsoprintGeneratorHumanDetectorBased" + let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error let processWithOptions x ~regionOfInterest ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processWithOptions:regionOfInterest:warningRecorder:error:progressHandler:") ~typ:(id @-> CGRect.t @-> id @-> (ptr id) @-> (ptr void) @-> returning id) x regionOfInterest warningRecorder error progressHandler -let torsoprintForImageBuffer x ~requestRevision ~error self = msg_send ~self ~cmd:(selector "torsoprintForImageBuffer:requestRevision:error:") ~typ:((ptr CVBuffer.t) @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int requestRevision) error \ No newline at end of file +let torsoprintForImageBuffer x ~requestRevision ~error self = msg_send ~self ~cmd:(selector "torsoprintForImageBuffer:requestRevision:error:") ~typ:((ptr void) @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int requestRevision) error \ No newline at end of file diff --git a/Vision/VNTorsoprintGeneratorHumanDetectorBasedClass.ml b/Vision/VNTorsoprintGeneratorHumanDetectorBasedClass.ml index 5c66f2d4..686beeef 100644 --- a/Vision/VNTorsoprintGeneratorHumanDetectorBasedClass.ml +++ b/Vision/VNTorsoprintGeneratorHumanDetectorBasedClass.ml @@ -4,16 +4,10 @@ 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/vntorsoprintgeneratorhumandetectorbased?language=objc}VNTorsoprintGeneratorHumanDetectorBased} *) -let self = get_class "VNTorsoprintGeneratorHumanDetectorBased" - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x let modelVersionForOptions x self = msg_send ~self ~cmd:(selector "modelVersionForOptions:") ~typ:(id @-> returning (ptr void)) x \ No newline at end of file diff --git a/Vision/VNTorsoprintGeneratorPrivateRevisionMD1.ml b/Vision/VNTorsoprintGeneratorPrivateRevisionMD1.ml new file mode 100644 index 00000000..2c494376 --- /dev/null +++ b/Vision/VNTorsoprintGeneratorPrivateRevisionMD1.ml @@ -0,0 +1,15 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntorsoprintgeneratorprivaterevisionmd1?language=objc}VNTorsoprintGeneratorPrivateRevisionMD1} *) + +let self = get_class "VNTorsoprintGeneratorPrivateRevisionMD1" + +let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error +let torsoprintForImageBuffer x ~requestRevision ~error self = msg_send ~self ~cmd:(selector "torsoprintForImageBuffer:requestRevision:error:") ~typ:((ptr void) @-> ullong @-> (ptr id) @-> returning id) x (ULLong.of_int requestRevision) error \ No newline at end of file diff --git a/Vision/VNTorsoprintGeneratorPrivateRevisionMD1Class.ml b/Vision/VNTorsoprintGeneratorPrivateRevisionMD1Class.ml new file mode 100644 index 00000000..eefeb1a2 --- /dev/null +++ b/Vision/VNTorsoprintGeneratorPrivateRevisionMD1Class.ml @@ -0,0 +1,14 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntorsoprintgeneratorprivaterevisionmd1?language=objc}VNTorsoprintGeneratorPrivateRevisionMD1} *) + +let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning id) x +let modelVersionForOptions x self = msg_send ~self ~cmd:(selector "modelVersionForOptions:") ~typ:(id @-> returning (ptr void)) x \ No newline at end of file diff --git a/Vision/VNTrackHomographicImageRegistrationRequest.ml b/Vision/VNTrackHomographicImageRegistrationRequest.ml deleted file mode 100644 index 7655ce42..00000000 --- a/Vision/VNTrackHomographicImageRegistrationRequest.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackHomographicImageRegistrationRequest" - -let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning (bool)) -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:(ptr void @-> returning (id)) x -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNTrackHomographyRequest.ml b/Vision/VNTrackHomographyRequest.ml index 6bdc3294..84d7726e 100644 --- a/Vision/VNTrackHomographyRequest.ml +++ b/Vision/VNTrackHomographyRequest.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/vntrackhomographyrequest?language=objc}VNTrackHomographyRequest} *) +let self = get_class "VNTrackHomographyRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let initWithFrameAnalysisSpacing x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithFrameAnalysisSpacing:completionHandler:") ~typ:(void @-> (ptr void) @-> returning id) x completionHandler let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> (ptr id) @-> returning bool) (ULLong.of_int x) inContext error \ No newline at end of file diff --git a/Vision/VNTrackHomographyRequestClass.ml b/Vision/VNTrackHomographyRequestClass.ml index 8af6fe4c..d1ec5576 100644 --- a/Vision/VNTrackHomographyRequestClass.ml +++ b/Vision/VNTrackHomographyRequestClass.ml @@ -4,16 +4,10 @@ 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/vntrackhomographyrequest?language=objc}VNTrackHomographyRequest} *) -let self = get_class "VNTrackHomographyRequest" - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning _Class) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) \ No newline at end of file diff --git a/Vision/VNTrackLegacyFaceCoreObjectRequest.ml b/Vision/VNTrackLegacyFaceCoreObjectRequest.ml index 9dcfd114..b29fbf12 100644 --- a/Vision/VNTrackLegacyFaceCoreObjectRequest.ml +++ b/Vision/VNTrackLegacyFaceCoreObjectRequest.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/vntracklegacyfacecoreobjectrequest?language=objc}VNTrackLegacyFaceCoreObjectRequest} *) +let self = get_class "VNTrackLegacyFaceCoreObjectRequest" + let faceCoreEnhanceEyesAndMouthLocalization self = msg_send ~self ~cmd:(selector "faceCoreEnhanceEyesAndMouthLocalization") ~typ:(returning bool) let faceCoreExtractBlink self = msg_send ~self ~cmd:(selector "faceCoreExtractBlink") ~typ:(returning bool) let faceCoreExtractSmile self = msg_send ~self ~cmd:(selector "faceCoreExtractSmile") ~typ:(returning bool) diff --git a/Vision/VNTrackLegacyFaceCoreObjectRequestClass.ml b/Vision/VNTrackLegacyFaceCoreObjectRequestClass.ml index 3344a138..5516df25 100644 --- a/Vision/VNTrackLegacyFaceCoreObjectRequestClass.ml +++ b/Vision/VNTrackLegacyFaceCoreObjectRequestClass.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/vntracklegacyfacecoreobjectrequest?language=objc}VNTrackLegacyFaceCoreObjectRequest} *) -let self = get_class "VNTrackLegacyFaceCoreObjectRequest" - let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let frameCVPixelBufferFormatForRequestRevision x self = msg_send ~self ~cmd:(selector "frameCVPixelBufferFormatForRequestRevision:") ~typ:(ullong @-> returning uint) (ULLong.of_int x) let supportedPrivateRevisions self = msg_send ~self ~cmd:(selector "supportedPrivateRevisions") ~typ:(returning id) diff --git a/Vision/VNTrackMaskDetector.ml b/Vision/VNTrackMaskDetector.ml deleted file mode 100644 index 5d5412f4..00000000 --- a/Vision/VNTrackMaskDetector.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackMaskDetector" - -module C = struct - let computeStagesToBindForConfigurationOptions x self = msg_send ~self ~cmd:(selector "computeStagesToBindForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let configurationOptionKeysForDetectorKey self = msg_send ~self ~cmd:(selector "configurationOptionKeysForDetectorKey") ~typ:(returning (id)) - let espressoModelFileNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelFileNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let espressoModelInputImageDimensionsBlobNameForConfigurationOptions x self = msg_send ~self ~cmd:(selector "espressoModelInputImageDimensionsBlobNameForConfigurationOptions:") ~typ:(id @-> returning (id)) x - let inputImageAspectRatioHandlingForConfigurationOptions x self = msg_send ~self ~cmd:(selector "inputImageAspectRatioHandlingForConfigurationOptions:") ~typ:(id @-> returning (ullong)) x - let networkRequiredInputImagePixelFormatForConfigurationOptions x self = msg_send ~self ~cmd:(selector "networkRequiredInputImagePixelFormatForConfigurationOptions:") ~typ:(id @-> returning (uint)) x - let supportedComputeStageDevicesForOptions x ~error self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesForOptions:error:") ~typ:(id @-> ptr (id) @-> returning (id)) x error -end - -let completeInitializationForSession x ~error self = msg_send ~self ~cmd:(selector "completeInitializationForSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let createRegionOfInterestCrop x ~options ~qosClass ~warningRecorder ~pixelBuffer ~error ~progressHandler self = msg_send ~self ~cmd:(selector "createRegionOfInterestCrop:options:qosClass:warningRecorder:pixelBuffer:error:progressHandler:") ~typ:(CGRect.t @-> id @-> uint @-> id @-> ptr (ptr void) @-> ptr (id) @-> ptr void @-> returning (bool)) x options qosClass warningRecorder pixelBuffer error progressHandler -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let processRegionOfInterest x ~croppedPixelBuffer ~options ~qosClass ~warningRecorder ~error ~progressHandler self = msg_send ~self ~cmd:(selector "processRegionOfInterest:croppedPixelBuffer:options:qosClass:warningRecorder:error:progressHandler:") ~typ:(CGRect.t @-> ptr void @-> id @-> uint @-> id @-> ptr (id) @-> ptr void @-> returning (id)) x croppedPixelBuffer options qosClass warningRecorder error progressHandler \ No newline at end of file diff --git a/Vision/VNTrackMaskDetectorState.ml b/Vision/VNTrackMaskDetectorState.ml deleted file mode 100644 index 6b9dc0b0..00000000 --- a/Vision/VNTrackMaskDetectorState.ml +++ /dev/null @@ -1,24 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackMaskDetectorState" - -let confidence self = msg_send ~self ~cmd:(selector "confidence") ~typ:(returning (float)) -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let firstFrame self = msg_send ~self ~cmd:(selector "firstFrame") ~typ:(returning (bool)) -let getHiddenMaskBuffer self = msg_send ~self ~cmd:(selector "getHiddenMaskBuffer") ~typ:(returning (ptr void)) -let getKeyBuffer self = msg_send ~self ~cmd:(selector "getKeyBuffer") ~typ:(returning (ptr void)) -let getOutputMaskBuffer self = msg_send ~self ~cmd:(selector "getOutputMaskBuffer") ~typ:(returning (ptr void)) -let getValueBuffer self = msg_send ~self ~cmd:(selector "getValueBuffer") ~typ:(returning (ptr void)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithFrameUpdateSpacing x ~mask self = msg_send ~self ~cmd:(selector "initWithFrameUpdateSpacing:mask:") ~typ:(ptr void @-> ptr void @-> returning (id)) x mask -let inititalMask self = msg_send ~self ~cmd:(selector "inititalMask") ~typ:(returning (ptr void)) -let setConfidence x self = msg_send ~self ~cmd:(selector "setConfidence:") ~typ:(float @-> returning (void)) x -let setFirstFrame x self = msg_send ~self ~cmd:(selector "setFirstFrame:") ~typ:(bool @-> returning (void)) x -let setLastProcessedPTS x self = msg_send ~self ~cmd:(selector "setLastProcessedPTS:") ~typ:(ptr void @-> returning (void)) x -let setLastUpdatePTS x self = msg_send ~self ~cmd:(selector "setLastUpdatePTS:") ~typ:(ptr void @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNTrackMaskRequest.ml b/Vision/VNTrackMaskRequest.ml deleted file mode 100644 index dcd3c77c..00000000 --- a/Vision/VNTrackMaskRequest.ml +++ /dev/null @@ -1,22 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackMaskRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let generateCropRect self = msg_send ~self ~cmd:(selector "generateCropRect") ~typ:(returning (bool)) -let initWithFrameUpdateSpacing x ~mask ~completionHandler self = msg_send ~self ~cmd:(selector "initWithFrameUpdateSpacing:mask:completionHandler:") ~typ:(ptr void @-> ptr void @-> ptr void @-> returning (id)) x mask completionHandler -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let setGenerateCropRect x self = msg_send ~self ~cmd:(selector "setGenerateCropRect:") ~typ:(bool @-> returning (void)) x -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNTrackMaskRequestConfiguration.ml b/Vision/VNTrackMaskRequestConfiguration.ml deleted file mode 100644 index c5ca8f52..00000000 --- a/Vision/VNTrackMaskRequestConfiguration.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackMaskRequestConfiguration" - -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let generateCropRect self = msg_send ~self ~cmd:(selector "generateCropRect") ~typ:(returning (bool)) -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let setGenerateCropRect x self = msg_send ~self ~cmd:(selector "setGenerateCropRect:") ~typ:(bool @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNTrackObjectRequest.ml b/Vision/VNTrackObjectRequest.ml index 600aee7b..2f58ed69 100644 --- a/Vision/VNTrackObjectRequest.ml +++ b/Vision/VNTrackObjectRequest.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/vntrackobjectrequest?language=objc}VNTrackObjectRequest} *) +let self = get_class "VNTrackObjectRequest" + let initWithDetectedObjectObservation x self = msg_send ~self ~cmd:(selector "initWithDetectedObjectObservation:") ~typ:(id @-> returning id) x let initWithDetectedObjectObservation' x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithDetectedObjectObservation:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning id) (ULLong.of_int x) session diff --git a/Vision/VNTrackObjectRequestClass.ml b/Vision/VNTrackObjectRequestClass.ml index e0d1a343..f2e8cce0 100644 --- a/Vision/VNTrackObjectRequestClass.ml +++ b/Vision/VNTrackObjectRequestClass.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/vntrackobjectrequest?language=objc}VNTrackObjectRequest} *) -let self = get_class "VNTrackObjectRequest" - let defaultProcessingDeviceForRevision x self = msg_send ~self ~cmd:(selector "defaultProcessingDeviceForRevision:") ~typ:(ullong @-> returning id) (ULLong.of_int x) let frameCVPixelBufferFormatForRequestRevision x self = msg_send ~self ~cmd:(selector "frameCVPixelBufferFormatForRequestRevision:") ~typ:(ullong @-> returning uint) (ULLong.of_int x) let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) diff --git a/Vision/VNTrackOpticalFlowRequest.ml b/Vision/VNTrackOpticalFlowRequest.ml deleted file mode 100644 index be0648f6..00000000 --- a/Vision/VNTrackOpticalFlowRequest.ml +++ /dev/null @@ -1,29 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackOpticalFlowRequest" - -module C = struct - let configurationClass self = msg_send ~self ~cmd:(selector "configurationClass") ~typ:(returning (_Class)) -end - -let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning (bool)) -let applicableDetectorTypeForRevision x ~error self = msg_send ~self ~cmd:(selector "applicableDetectorTypeForRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) (ULLong.of_int x) error -let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning (void)) x -let computationAccuracy self = msg_send ~self ~cmd:(selector "computationAccuracy") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:(ptr void @-> returning (id)) x -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let keepNetworkOutput self = msg_send ~self ~cmd:(selector "keepNetworkOutput") ~typ:(returning (bool)) -let newDefaultDetectorOptionsForRequestRevision x ~session self = msg_send ~self ~cmd:(selector "newDefaultDetectorOptionsForRequestRevision:session:") ~typ:(ullong @-> id @-> returning (id)) (ULLong.of_int x) session -let outputPixelFormat self = msg_send ~self ~cmd:(selector "outputPixelFormat") ~typ:(returning (uint)) -let setComputationAccuracy x self = msg_send ~self ~cmd:(selector "setComputationAccuracy:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setKeepNetworkOutput x self = msg_send ~self ~cmd:(selector "setKeepNetworkOutput:") ~typ:(bool @-> returning (void)) x -let setOutputPixelFormat x self = msg_send ~self ~cmd:(selector "setOutputPixelFormat:") ~typ:(uint @-> returning (void)) x -let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> ptr (id) @-> returning (bool)) x error -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNTrackOpticalFlowRequestConfiguration.ml b/Vision/VNTrackOpticalFlowRequestConfiguration.ml deleted file mode 100644 index 81b85960..00000000 --- a/Vision/VNTrackOpticalFlowRequestConfiguration.ml +++ /dev/null @@ -1,18 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackOpticalFlowRequestConfiguration" - -let computationAccuracy self = msg_send ~self ~cmd:(selector "computationAccuracy") ~typ:(returning (ullong)) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let initWithRequestClass x self = msg_send ~self ~cmd:(selector "initWithRequestClass:") ~typ:(_Class @-> returning (id)) x -let keepNetworkOutput self = msg_send ~self ~cmd:(selector "keepNetworkOutput") ~typ:(returning (bool)) -let outputPixelFormat self = msg_send ~self ~cmd:(selector "outputPixelFormat") ~typ:(returning (uint)) -let setComputationAccuracy x self = msg_send ~self ~cmd:(selector "setComputationAccuracy:") ~typ:(ullong @-> returning (void)) (ULLong.of_int x) -let setKeepNetworkOutput x self = msg_send ~self ~cmd:(selector "setKeepNetworkOutput:") ~typ:(bool @-> returning (void)) x -let setOutputPixelFormat x self = msg_send ~self ~cmd:(selector "setOutputPixelFormat:") ~typ:(uint @-> returning (void)) x \ No newline at end of file diff --git a/Vision/VNTrackRectangleRequest.ml b/Vision/VNTrackRectangleRequest.ml index 0ce53cac..b1cef005 100644 --- a/Vision/VNTrackRectangleRequest.ml +++ b/Vision/VNTrackRectangleRequest.ml @@ -5,12 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNTrackRectangleRequest" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntrackrectanglerequest?language=objc}VNTrackRectangleRequest} *) -module Class = struct - let trackerTypeForRequestRevision x ~error self = msg_send ~self ~cmd:(selector "trackerTypeForRequestRevision:error:") ~typ:(ullong @-> ptr (id) @-> returning (id)) x error -end +let self = get_class "VNTrackRectangleRequest" -let initWithRectangleObservation x self = msg_send ~self ~cmd:(selector "initWithRectangleObservation:") ~typ:(id @-> returning (id)) x -let initWithRectangleObservation' x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithRectangleObservation:completionHandler:") ~typ:(id @-> ptr void @-> returning (id)) x completionHandler \ No newline at end of file +let initWithRectangleObservation x self = msg_send ~self ~cmd:(selector "initWithRectangleObservation:") ~typ:(id @-> returning id) x +let initWithRectangleObservation' x ~completionHandler self = msg_send ~self ~cmd:(selector "initWithRectangleObservation:completionHandler:") ~typ:(id @-> (ptr void) @-> returning id) x completionHandler \ No newline at end of file diff --git a/Vision/VNTrackRectangleRequestClass.ml b/Vision/VNTrackRectangleRequestClass.ml new file mode 100644 index 00000000..def066e0 --- /dev/null +++ b/Vision/VNTrackRectangleRequestClass.ml @@ -0,0 +1,13 @@ +(* auto-generated, do not modify *) + +open Runtime +open Objc + +[@@@ocaml.warning "-33"] +open Foundation +open CoreVideo + +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntrackrectanglerequest?language=objc}VNTrackRectangleRequest} *) + +let revisionAvailability self = msg_send ~self ~cmd:(selector "revisionAvailability") ~typ:(returning (ptr void)) +let trackerTypeForRequestRevision x ~error self = msg_send ~self ~cmd:(selector "trackerTypeForRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error \ No newline at end of file diff --git a/Vision/VNTrackTranslationalImageRegistrationRequest.ml b/Vision/VNTrackTranslationalImageRegistrationRequest.ml deleted file mode 100644 index ebf5c123..00000000 --- a/Vision/VNTrackTranslationalImageRegistrationRequest.ml +++ /dev/null @@ -1,16 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTrackTranslationalImageRegistrationRequest" - -let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning (bool)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let initWithCompletionHandler x self = msg_send ~self ~cmd:(selector "initWithCompletionHandler:") ~typ:(ptr void @-> returning (id)) x -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) (ULLong.of_int x) inContext error -let supportedComputeStageDevicesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x -let willAcceptCachedResultsFromRequestWithConfiguration x self = msg_send ~self ~cmd:(selector "willAcceptCachedResultsFromRequestWithConfiguration:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNTracker.ml b/Vision/VNTracker.ml index 8b1bf69d..354aace5 100644 --- a/Vision/VNTracker.ml +++ b/Vision/VNTracker.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/vntracker?language=objc}VNTracker} *) +let self = get_class "VNTracker" + let initWithOptions x ~error self = msg_send ~self ~cmd:(selector "initWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error let isResettable self = msg_send ~self ~cmd:(selector "isResettable") ~typ:(returning bool) let isTracking self = msg_send ~self ~cmd:(selector "isTracking") ~typ:(returning bool) diff --git a/Vision/VNTrackerClass.ml b/Vision/VNTrackerClass.ml index 69178984..f6cd13d3 100644 --- a/Vision/VNTrackerClass.ml +++ b/Vision/VNTrackerClass.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/vntracker?language=objc}VNTracker} *) -let self = get_class "VNTracker" - let _VNTrackerOptionToTrackerType x self = msg_send ~self ~cmd:(selector "VNTrackerOptionToTrackerType:") ~typ:(id @-> returning llong) x \ No newline at end of file diff --git a/Vision/VNTrackerManager.ml b/Vision/VNTrackerManager.ml index 8734658a..5ea1fa0a 100644 --- a/Vision/VNTrackerManager.ml +++ b/Vision/VNTrackerManager.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/vntrackermanager?language=objc}VNTrackerManager} *) +let self = get_class "VNTrackerManager" + let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let releaseTracker x self = msg_send ~self ~cmd:(selector "releaseTracker:") ~typ:(id @-> returning void) x let trackerWithOptions x ~error self = msg_send ~self ~cmd:(selector "trackerWithOptions:error:") ~typ:(id @-> (ptr id) @-> returning id) x error \ No newline at end of file diff --git a/Vision/VNTrackerManagerClass.ml b/Vision/VNTrackerManagerClass.ml index 1afefbd3..fa6eae4c 100644 --- a/Vision/VNTrackerManagerClass.ml +++ b/Vision/VNTrackerManagerClass.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/vntrackermanager?language=objc}VNTrackerManager} *) -let self = get_class "VNTrackerManager" - let manager self = msg_send ~self ~cmd:(selector "manager") ~typ:(returning id) let releaseAllTrackers self = msg_send ~self ~cmd:(selector "releaseAllTrackers") ~typ:(returning void) let releaseManager self = msg_send ~self ~cmd:(selector "releaseManager") ~typ:(returning void) \ No newline at end of file diff --git a/Vision/VNTrackingRequest.ml b/Vision/VNTrackingRequest.ml index ba96b48b..029b5680 100644 --- a/Vision/VNTrackingRequest.ml +++ b/Vision/VNTrackingRequest.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/vntrackingrequest?language=objc}VNTrackingRequest} *) +let self = get_class "VNTrackingRequest" + let allowsCachingOfResults self = msg_send ~self ~cmd:(selector "allowsCachingOfResults") ~typ:(returning bool) let applyConfigurationOfRequest x self = msg_send ~self ~cmd:(selector "applyConfigurationOfRequest:") ~typ:(id @-> returning void) x let initWithDetectedObjectObservation x self = msg_send ~self ~cmd:(selector "initWithDetectedObjectObservation:") ~typ:(id @-> returning id) x diff --git a/Vision/VNTrackingRequestClass.ml b/Vision/VNTrackingRequestClass.ml index 7e68fa18..6ea1fa21 100644 --- a/Vision/VNTrackingRequestClass.ml +++ b/Vision/VNTrackingRequestClass.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/vntrackingrequest?language=objc}VNTrackingRequest} *) -let self = get_class "VNTrackingRequest" - let frameCVPixelBufferFormatForRequestRevision x self = msg_send ~self ~cmd:(selector "frameCVPixelBufferFormatForRequestRevision:") ~typ:(ullong @-> returning uint) (ULLong.of_int x) let trackerTypeForRequestRevision x ~error self = msg_send ~self ~cmd:(selector "trackerTypeForRequestRevision:error:") ~typ:(ullong @-> (ptr id) @-> returning id) (ULLong.of_int x) error let warmUpSession x ~error self = msg_send ~self ~cmd:(selector "warmUpSession:error:") ~typ:(id @-> (ptr id) @-> returning bool) x error \ No newline at end of file diff --git a/Vision/VNTrajectoryObservation.ml b/Vision/VNTrajectoryObservation.ml index e069ed1f..95d3201d 100644 --- a/Vision/VNTrajectoryObservation.ml +++ b/Vision/VNTrajectoryObservation.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/vntrajectoryobservation?language=objc}VNTrajectoryObservation} *) +let self = get_class "VNTrajectoryObservation" + let detectedPoints self = msg_send ~self ~cmd:(selector "detectedPoints") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNTrajectoryObservationClass.ml b/Vision/VNTrajectoryObservationClass.ml index a8371a55..e33c17d5 100644 --- a/Vision/VNTrajectoryObservationClass.ml +++ b/Vision/VNTrajectoryObservationClass.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/vntrajectoryobservation?language=objc}VNTrajectoryObservation} *) -let self = get_class "VNTrajectoryObservation" - let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) \ No newline at end of file diff --git a/Vision/VNTrajectoryProcessor.ml b/Vision/VNTrajectoryProcessor.ml index 0e8cf522..f7e65dd5 100644 --- a/Vision/VNTrajectoryProcessor.ml +++ b/Vision/VNTrajectoryProcessor.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/vntrajectoryprocessor?language=objc}VNTrajectoryProcessor} *) +let self = get_class "VNTrajectoryProcessor" + let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void) let initWithFrameAnalysisSpacing x ~trajectoryLength self = msg_send ~self ~cmd:(selector "initWithFrameAnalysisSpacing:trajectoryLength:") ~typ:(void @-> llong @-> returning id) x (LLong.of_int trajectoryLength) let processVNImageBuffer x ~regionOfInterest ~withOptions ~warningRecorder ~requestUUID ~error self = msg_send ~self ~cmd:(selector "processVNImageBuffer:regionOfInterest:withOptions:warningRecorder:requestUUID:error:") ~typ:(id @-> CGRect.t @-> id @-> id @-> id @-> (ptr id) @-> returning id) x regionOfInterest withOptions warningRecorder requestUUID error \ No newline at end of file diff --git a/Vision/VNTrajectoryProcessorClass.ml b/Vision/VNTrajectoryProcessorClass.ml deleted file mode 100644 index 0ae0f58b..00000000 --- a/Vision/VNTrajectoryProcessorClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vntrajectoryprocessor?language=objc}VNTrajectoryProcessor} *) - -let self = get_class "VNTrajectoryProcessor" - diff --git a/Vision/VNTranslationalImageRegistrationRequest.ml b/Vision/VNTranslationalImageRegistrationRequest.ml deleted file mode 100644 index e874464f..00000000 --- a/Vision/VNTranslationalImageRegistrationRequest.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNTranslationalImageRegistrationRequest" - -let internalPerformRevision x ~inContext ~error self = msg_send ~self ~cmd:(selector "internalPerformRevision:inContext:error:") ~typ:(ullong @-> id @-> ptr (id) @-> returning (bool)) x inContext error -let supportedComputeStageDevicesAndReturnError x self = msg_send ~self ~cmd:(selector "supportedComputeStageDevicesAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNUniqueObservationClassCompoundRequest.ml b/Vision/VNUniqueObservationClassCompoundRequest.ml index 6b16bfb5..3304e4ab 100644 --- a/Vision/VNUniqueObservationClassCompoundRequest.ml +++ b/Vision/VNUniqueObservationClassCompoundRequest.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/vnuniqueobservationclasscompoundrequest?language=objc}VNUniqueObservationClassCompoundRequest} *) +let self = get_class "VNUniqueObservationClassCompoundRequest" + let assignOriginalRequestsResultsFromObservations x ~obtainedInPerformingContext self = msg_send ~self ~cmd:(selector "assignOriginalRequestsResultsFromObservations:obtainedInPerformingContext:") ~typ:(id @-> id @-> returning void) x obtainedInPerformingContext let initWithOriginalRequests x ~requestToObservationClassMap self = msg_send ~self ~cmd:(selector "initWithOriginalRequests:requestToObservationClassMap:") ~typ:(id @-> id @-> returning id) x requestToObservationClassMap let initWithSubrequests x ~uniqueObservationClasses self = msg_send ~self ~cmd:(selector "initWithSubrequests:uniqueObservationClasses:") ~typ:(id @-> id @-> returning id) x uniqueObservationClasses \ No newline at end of file diff --git a/Vision/VNUniqueObservationClassCompoundRequestClass.ml b/Vision/VNUniqueObservationClassCompoundRequestClass.ml deleted file mode 100644 index 2947450e..00000000 --- a/Vision/VNUniqueObservationClassCompoundRequestClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnuniqueobservationclasscompoundrequest?language=objc}VNUniqueObservationClassCompoundRequest} *) - -let self = get_class "VNUniqueObservationClassCompoundRequest" - diff --git a/Vision/VNVTSession.ml b/Vision/VNVTSession.ml deleted file mode 100644 index ca07f94d..00000000 --- a/Vision/VNVTSession.ml +++ /dev/null @@ -1,12 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNVTSession" - -let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning (void)) -let initWithSession x self = msg_send ~self ~cmd:(selector "initWithSession:") ~typ:(ptr (void) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNVTSessionManager.ml b/Vision/VNVTSessionManager.ml deleted file mode 100644 index 72427795..00000000 --- a/Vision/VNVTSessionManager.ml +++ /dev/null @@ -1,13 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNVTSessionManager" - -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/VNVector.ml b/Vision/VNVector.ml index 11b67971..d807c512 100644 --- a/Vision/VNVector.ml +++ b/Vision/VNVector.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/vnvector?language=objc}VNVector} *) +let self = get_class "VNVector" + let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x diff --git a/Vision/VNVectorClass.ml b/Vision/VNVectorClass.ml index 40a4af2f..99fccbe2 100644 --- a/Vision/VNVectorClass.ml +++ b/Vision/VNVectorClass.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/vnvector?language=objc}VNVector} *) -let self = get_class "VNVector" - let dotProductOfVector x ~vector self = msg_send ~self ~cmd:(selector "dotProductOfVector:vector:") ~typ:(id @-> id @-> returning double) x vector let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning bool) let unitVectorForVector x self = msg_send ~self ~cmd:(selector "unitVectorForVector:") ~typ:(id @-> returning id) x diff --git a/Vision/VNVideoProcessor.ml b/Vision/VNVideoProcessor.ml index 39f7f940..595f81b1 100644 --- a/Vision/VNVideoProcessor.ml +++ b/Vision/VNVideoProcessor.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/vnvideoprocessor?language=objc}VNVideoProcessor} *) +let self = get_class "VNVideoProcessor" + let addRequest x ~processingOptions ~error self = msg_send ~self ~cmd:(selector "addRequest:processingOptions:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x processingOptions error let addRequest' x ~withProcessingOptions ~error self = msg_send ~self ~cmd:(selector "addRequest:withProcessingOptions:error:") ~typ:(id @-> id @-> (ptr id) @-> returning bool) x withProcessingOptions error let analyzeTimeRange x ~error self = msg_send ~self ~cmd:(selector "analyzeTimeRange:error:") ~typ:(void @-> (ptr id) @-> returning bool) x error diff --git a/Vision/VNVideoProcessorCadence.ml b/Vision/VNVideoProcessorCadence.ml index b9434066..216863d1 100644 --- a/Vision/VNVideoProcessorCadence.ml +++ b/Vision/VNVideoProcessorCadence.ml @@ -5,8 +5,11 @@ open Objc [@@@ocaml.warning "-33"] open Foundation +open CoreVideo -let _class_ = get_class "VNVideoProcessorCadence" +(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnvideoprocessorcadence?language=objc}VNVideoProcessorCadence} *) -let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:(id @-> returning (id)) x -let populateVCPVideoProcessorRequestConfiguration x self = msg_send ~self ~cmd:(selector "populateVCPVideoProcessorRequestConfiguration:") ~typ:(id @-> returning (void)) x \ No newline at end of file +let self = get_class "VNVideoProcessorCadence" + +let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x +let populateVCPVideoProcessorRequestConfiguration x self = msg_send ~self ~cmd:(selector "populateVCPVideoProcessorRequestConfiguration:") ~typ:(id @-> returning void) x \ No newline at end of file diff --git a/Vision/VNVideoProcessorClass.ml b/Vision/VNVideoProcessorClass.ml deleted file mode 100644 index 75085633..00000000 --- a/Vision/VNVideoProcessorClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnvideoprocessor?language=objc}VNVideoProcessor} *) - -let self = get_class "VNVideoProcessor" - diff --git a/Vision/VNVideoProcessorFrameRateCadence.ml b/Vision/VNVideoProcessorFrameRateCadence.ml index 0b025487..9226cf09 100644 --- a/Vision/VNVideoProcessorFrameRateCadence.ml +++ b/Vision/VNVideoProcessorFrameRateCadence.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/vnvideoprocessorframeratecadence?language=objc}VNVideoProcessorFrameRateCadence} *) +let self = get_class "VNVideoProcessorFrameRateCadence" + let frameRate self = msg_send ~self ~cmd:(selector "frameRate") ~typ:(returning llong) let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithFrameRate x self = msg_send ~self ~cmd:(selector "initWithFrameRate:") ~typ:(llong @-> returning id) (LLong.of_int x) diff --git a/Vision/VNVideoProcessorFrameRateCadenceClass.ml b/Vision/VNVideoProcessorFrameRateCadenceClass.ml deleted file mode 100644 index 1a79d900..00000000 --- a/Vision/VNVideoProcessorFrameRateCadenceClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnvideoprocessorframeratecadence?language=objc}VNVideoProcessorFrameRateCadence} *) - -let self = get_class "VNVideoProcessorFrameRateCadence" - diff --git a/Vision/VNVideoProcessorRequestProcessingOptions.ml b/Vision/VNVideoProcessorRequestProcessingOptions.ml index 3d20de48..36b18ad9 100644 --- a/Vision/VNVideoProcessorRequestProcessingOptions.ml +++ b/Vision/VNVideoProcessorRequestProcessingOptions.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/vnvideoprocessorrequestprocessingoptions?language=objc}VNVideoProcessorRequestProcessingOptions} *) +let self = get_class "VNVideoProcessorRequestProcessingOptions" + let cadence self = msg_send ~self ~cmd:(selector "cadence") ~typ:(returning id) let copyWithZone x self = msg_send ~self ~cmd:(selector "copyWithZone:") ~typ:((ptr void) @-> returning id) x let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) diff --git a/Vision/VNVideoProcessorRequestProcessingOptionsClass.ml b/Vision/VNVideoProcessorRequestProcessingOptionsClass.ml deleted file mode 100644 index 4b52b58e..00000000 --- a/Vision/VNVideoProcessorRequestProcessingOptionsClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnvideoprocessorrequestprocessingoptions?language=objc}VNVideoProcessorRequestProcessingOptions} *) - -let self = get_class "VNVideoProcessorRequestProcessingOptions" - diff --git a/Vision/VNVideoProcessorTimeIntervalCadence.ml b/Vision/VNVideoProcessorTimeIntervalCadence.ml index ac7a2999..6df0e0e6 100644 --- a/Vision/VNVideoProcessorTimeIntervalCadence.ml +++ b/Vision/VNVideoProcessorTimeIntervalCadence.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/vnvideoprocessortimeintervalcadence?language=objc}VNVideoProcessorTimeIntervalCadence} *) +let self = get_class "VNVideoProcessorTimeIntervalCadence" + let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong) let initWithTimeInterval x self = msg_send ~self ~cmd:(selector "initWithTimeInterval:") ~typ:(double @-> returning id) x let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning bool) x diff --git a/Vision/VNVideoProcessorTimeIntervalCadenceClass.ml b/Vision/VNVideoProcessorTimeIntervalCadenceClass.ml deleted file mode 100644 index cc162274..00000000 --- a/Vision/VNVideoProcessorTimeIntervalCadenceClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnvideoprocessortimeintervalcadence?language=objc}VNVideoProcessorTimeIntervalCadence} *) - -let self = get_class "VNVideoProcessorTimeIntervalCadence" - diff --git a/Vision/VNWarningRecorder.ml b/Vision/VNWarningRecorder.ml index 50adcd9c..00f767f7 100644 --- a/Vision/VNWarningRecorder.ml +++ b/Vision/VNWarningRecorder.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/vnwarningrecorder?language=objc}VNWarningRecorder} *) +let self = get_class "VNWarningRecorder" + let hasWarnings self = msg_send ~self ~cmd:(selector "hasWarnings") ~typ:(returning bool) let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning id) let recordWarning x ~value self = msg_send ~self ~cmd:(selector "recordWarning:value:") ~typ:(id @-> id @-> returning void) x value diff --git a/Vision/VNWarningRecorderClass.ml b/Vision/VNWarningRecorderClass.ml deleted file mode 100644 index 4528282f..00000000 --- a/Vision/VNWarningRecorderClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnwarningrecorder?language=objc}VNWarningRecorder} *) - -let self = get_class "VNWarningRecorder" - diff --git a/Vision/VNWeakSessionWrapper.ml b/Vision/VNWeakSessionWrapper.ml index bdd77240..c9a593bf 100644 --- a/Vision/VNWeakSessionWrapper.ml +++ b/Vision/VNWeakSessionWrapper.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/vnweaksessionwrapper?language=objc}VNWeakSessionWrapper} *) +let self = get_class "VNWeakSessionWrapper" + let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning id) let initWithSession x self = msg_send ~self ~cmd:(selector "initWithSession:") ~typ:(id @-> returning id) x let sessionAndReturnError x self = msg_send ~self ~cmd:(selector "sessionAndReturnError:") ~typ:((ptr id) @-> returning id) x \ No newline at end of file diff --git a/Vision/VNWeakSessionWrapperClass.ml b/Vision/VNWeakSessionWrapperClass.ml deleted file mode 100644 index 3da095f9..00000000 --- a/Vision/VNWeakSessionWrapperClass.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals -open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals - -(** Apple docs: {{:https://developer.apple.com/documentation/vision/vnweaksessionwrapper?language=objc}VNWeakSessionWrapper} *) - -let self = get_class "VNWeakSessionWrapper" - diff --git a/Vision/VNWeakTypeWrapper.ml b/Vision/VNWeakTypeWrapper.ml deleted file mode 100644 index e54616d7..00000000 --- a/Vision/VNWeakTypeWrapper.ml +++ /dev/null @@ -1,14 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNWeakTypeWrapper" - -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let initWithObject x self = msg_send ~self ~cmd:(selector "initWithObject:") ~typ:(id @-> returning (id)) x -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x -let objectAndReturnError x self = msg_send ~self ~cmd:(selector "objectAndReturnError:") ~typ:(ptr (id) @-> returning (id)) x \ No newline at end of file diff --git a/Vision/VNWeakTypeWrapperCollection.ml b/Vision/VNWeakTypeWrapperCollection.ml deleted file mode 100644 index 9bcf8289..00000000 --- a/Vision/VNWeakTypeWrapperCollection.ml +++ /dev/null @@ -1,17 +0,0 @@ -(* auto-generated, do not modify *) - -open Runtime -open Objc - -[@@@ocaml.warning "-33"] -open Foundation - -let _class_ = get_class "VNWeakTypeWrapperCollection" - -let addObject x ~droppingWeakZeroedObjects self = msg_send ~self ~cmd:(selector "addObject:droppingWeakZeroedObjects:") ~typ:(id @-> bool @-> returning (void)) x droppingWeakZeroedObjects -let allObjectsDroppingWeakZeroedObjects x self = msg_send ~self ~cmd:(selector "allObjectsDroppingWeakZeroedObjects:") ~typ:(bool @-> returning (id)) x -let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) -let findObjectMeetingSearchCriteria x ~droppingWeakZeroedObjects self = msg_send ~self ~cmd:(selector "findObjectMeetingSearchCriteria:droppingWeakZeroedObjects:") ~typ:(ptr void @-> bool @-> returning (id)) x droppingWeakZeroedObjects -let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning (ullong)) -let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) -let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> returning (bool)) x \ No newline at end of file diff --git a/Vision/Vision.ml b/Vision/Vision.ml new file mode 100644 index 00000000..30db264d --- /dev/null +++ b/Vision/Vision.ml @@ -0,0 +1,553 @@ +include Vision_globals + +module VNANEProcessingDevice = VNANEProcessingDevice +module VNANFDDetectorCompoundRequest = VNANFDDetectorCompoundRequest +module VNANFDDetectorCompoundRequestClass = VNANFDDetectorCompoundRequestClass +module VNANFDDetectorCompoundRequestConfiguration = VNANFDDetectorCompoundRequestConfiguration +module VNANFDDetectorCompoundRequestConfigurationGroups = VNANFDDetectorCompoundRequestConfigurationGroups +module VNANFDDetectorCompoundRequestConfigurationGroupsClass = VNANFDDetectorCompoundRequestConfigurationGroupsClass +module VNANFDMultiDetector = VNANFDMultiDetector +module VNANFDMultiDetectorANODv3 = VNANFDMultiDetectorANODv3 +module VNANFDMultiDetectorANODv3Class = VNANFDMultiDetectorANODv3Class +module VNANFDMultiDetectorANODv4 = VNANFDMultiDetectorANODv4 +module VNANFDMultiDetectorANODv4Class = VNANFDMultiDetectorANODv4Class +module VNANFDMultiDetectorClass = VNANFDMultiDetectorClass +module VNANFDMultiDetectorOriginalRequestInfo = VNANFDMultiDetectorOriginalRequestInfo +module VNANFDMultiDetectorOriginalRequestInfoClass = VNANFDMultiDetectorOriginalRequestInfoClass +module VNAlignFaceRectangleRequest = VNAlignFaceRectangleRequest +module VNAlignFaceRectangleRequestClass = VNAlignFaceRectangleRequestClass +module VNAlignFaceRectangleRequestConfiguration = VNAlignFaceRectangleRequestConfiguration +module VNAnimalObservation = VNAnimalObservation +module VNAnimalObservationClass = VNAnimalObservationClass +module VNAnimalprint = VNAnimalprint +module VNAnimalprintClass = VNAnimalprintClass +module VNAnimalprintDetectorBase = VNAnimalprintDetectorBase +module VNAnimalprintDetectorBaseClass = VNAnimalprintDetectorBaseClass +module VNBarcodeObservation = VNBarcodeObservation +module VNBarcodeObservationClass = VNBarcodeObservationClass +module VNBlacklist = VNBlacklist +module VNBlacklistClass = VNBlacklistClass +module VNBlurSignature = VNBlurSignature +module VNBlurSignatureClass = VNBlurSignatureClass +module VNCIContrastFromAverageColorFilter = VNCIContrastFromAverageColorFilter +module VNCIContrastWithPivotColorFilter = VNCIContrastWithPivotColorFilter +module VNCIFilter = VNCIFilter +module VNCPUProcessingDevice = VNCPUProcessingDevice +module VNCRImageReaderDetector = VNCRImageReaderDetector +module VNCRImageReaderDetectorClass = VNCRImageReaderDetectorClass +module VNCRImageReaderForDocumentsDetector = VNCRImageReaderForDocumentsDetector +module VNCRImageReaderForDocumentsDetectorClass = VNCRImageReaderForDocumentsDetectorClass +module VNCanceller = VNCanceller +module VNCircle = VNCircle +module VNCircleClass = VNCircleClass +module VNClassificationCustomHierarchy = VNClassificationCustomHierarchy +module VNClassificationCustomHierarchyClass = VNClassificationCustomHierarchyClass +module VNClassificationObservation = VNClassificationObservation +module VNClassificationObservationClass = VNClassificationObservationClass +module VNClassifyFaceAttributesRequest = VNClassifyFaceAttributesRequest +module VNClassifyFaceAttributesRequestClass = VNClassifyFaceAttributesRequestClass +module VNClassifyImageAestheticsRequest = VNClassifyImageAestheticsRequest +module VNClassifyImageAestheticsRequestClass = VNClassifyImageAestheticsRequestClass +module VNClassifyImageRequest = VNClassifyImageRequest +module VNClassifyImageRequestClass = VNClassifyImageRequestClass +module VNClassifyImageRequestConfiguration = VNClassifyImageRequestConfiguration +module VNClassifyJunkImageRequest = VNClassifyJunkImageRequest +module VNClassifyJunkImageRequestClass = VNClassifyJunkImageRequestClass +module VNClassifyJunkImageRequestConfiguration = VNClassifyJunkImageRequestConfiguration +module VNClassifyMemeImageRequest = VNClassifyMemeImageRequest +module VNClassifyMemeImageRequestClass = VNClassifyMemeImageRequestClass +module VNClassifyPotentialLandmarkRequest = VNClassifyPotentialLandmarkRequest +module VNClassifyPotentialLandmarkRequestClass = VNClassifyPotentialLandmarkRequestClass +module VNClassifyPotentialLandmarkRequestConfiguration = VNClassifyPotentialLandmarkRequestConfiguration +module VNCluster = VNCluster +module VNClusterClass = VNClusterClass +module VNClusterObservation = VNClusterObservation +module VNClusterObservationClass = VNClusterObservationClass +module VNClustererBuilder = VNClustererBuilder +module VNClustererBuilderClass = VNClustererBuilderClass +module VNClustererBuilderOptions = VNClustererBuilderOptions +module VNClustererContextBase = VNClustererContextBase +module VNClustererOptions = VNClustererOptions +module VNClustererQuery = VNClustererQuery +module VNClustererQueryClass = VNClustererQueryClass +module VNClustererQueryOptions = VNClustererQueryOptions +module VNClustererReadOnlyContext = VNClustererReadOnlyContext +module VNClustererReadOnlyContextClass = VNClustererReadOnlyContextClass +module VNClustererReadWriteContext = VNClustererReadWriteContext +module VNClustererReadWriteContextClass = VNClustererReadWriteContextClass +module VNClusteringLogger = VNClusteringLogger +module VNClusteringLoggerClass = VNClusteringLoggerClass +module VNCompoundRequest = VNCompoundRequest +module VNCompoundRequestClass = VNCompoundRequestClass +module VNContour = VNContour +module VNContoursDetector = VNContoursDetector +module VNContoursDetectorClass = VNContoursDetectorClass +module VNContoursObservation = VNContoursObservation +module VNContoursObservationClass = VNContoursObservationClass +module VNCoreMLFeatureValueObservation = VNCoreMLFeatureValueObservation +module VNCoreMLFeatureValueObservationClass = VNCoreMLFeatureValueObservationClass +module VNCoreMLModel = VNCoreMLModel +module VNCoreMLModelClass = VNCoreMLModelClass +module VNCoreMLRequest = VNCoreMLRequest +module VNCoreMLRequestClass = VNCoreMLRequestClass +module VNCoreMLRequestConfiguration = VNCoreMLRequestConfiguration +module VNCoreMLTransformer = VNCoreMLTransformer +module VNCreateAnimalprintRequest = VNCreateAnimalprintRequest +module VNCreateAnimalprintRequestClass = VNCreateAnimalprintRequestClass +module VNCreateDetectionprintRequest = VNCreateDetectionprintRequest +module VNCreateDetectionprintRequestClass = VNCreateDetectionprintRequestClass +module VNCreateFaceRegionMapRequest = VNCreateFaceRegionMapRequest +module VNCreateFaceRegionMapRequestClass = VNCreateFaceRegionMapRequestClass +module VNCreateFaceTorsoprintRequest = VNCreateFaceTorsoprintRequest +module VNCreateFaceTorsoprintRequestClass = VNCreateFaceTorsoprintRequestClass +module VNCreateFaceprintRequest = VNCreateFaceprintRequest +module VNCreateFaceprintRequestClass = VNCreateFaceprintRequestClass +module VNCreateFaceprintRequestConfiguration = VNCreateFaceprintRequestConfiguration +module VNCreateImageprintRequest = VNCreateImageprintRequest +module VNCreateImageprintRequestClass = VNCreateImageprintRequestClass +module VNCreateImageprintRequestConfiguration = VNCreateImageprintRequestConfiguration +module VNCreateNeuralHashprintRequest = VNCreateNeuralHashprintRequest +module VNCreateNeuralHashprintRequestClass = VNCreateNeuralHashprintRequestClass +module VNCreateSceneprintRequest = VNCreateSceneprintRequest +module VNCreateSceneprintRequestClass = VNCreateSceneprintRequestClass +module VNCreateSceneprintRequestConfiguration = VNCreateSceneprintRequestConfiguration +module VNCreateSmartCamprintRequest = VNCreateSmartCamprintRequest +module VNCreateSmartCamprintRequestClass = VNCreateSmartCamprintRequestClass +module VNCreateSmartCamprintRequestConfiguration = VNCreateSmartCamprintRequestConfiguration +module VNCreateTorsoprintRequest = VNCreateTorsoprintRequest +module VNCreateTorsoprintRequestClass = VNCreateTorsoprintRequestClass +module VNDataDetectorResult = VNDataDetectorResult +module VNDetectBarcodesRequest = VNDetectBarcodesRequest +module VNDetectBarcodesRequestClass = VNDetectBarcodesRequestClass +module VNDetectBarcodesRequestConfiguration = VNDetectBarcodesRequestConfiguration +module VNDetectContoursRequest = VNDetectContoursRequest +module VNDetectContoursRequestClass = VNDetectContoursRequestClass +module VNDetectContoursRequestConfiguration = VNDetectContoursRequestConfiguration +module VNDetectDocumentSegmentationRequest = VNDetectDocumentSegmentationRequest +module VNDetectDocumentSegmentationRequestClass = VNDetectDocumentSegmentationRequestClass +module VNDetectFace3DLandmarksRequest = VNDetectFace3DLandmarksRequest +module VNDetectFace3DLandmarksRequestClass = VNDetectFace3DLandmarksRequestClass +module VNDetectFaceCaptureQualityRequest = VNDetectFaceCaptureQualityRequest +module VNDetectFaceCaptureQualityRequestClass = VNDetectFaceCaptureQualityRequestClass +module VNDetectFaceExpressionsRequest = VNDetectFaceExpressionsRequest +module VNDetectFaceExpressionsRequestClass = VNDetectFaceExpressionsRequestClass +module VNDetectFaceGazeRequest = VNDetectFaceGazeRequest +module VNDetectFaceGazeRequestClass = VNDetectFaceGazeRequestClass +module VNDetectFaceGazeRequestConfiguration = VNDetectFaceGazeRequestConfiguration +module VNDetectFaceLandmarksRequest = VNDetectFaceLandmarksRequest +module VNDetectFaceLandmarksRequestClass = VNDetectFaceLandmarksRequestClass +module VNDetectFaceLandmarksRequestConfiguration = VNDetectFaceLandmarksRequestConfiguration +module VNDetectFaceLandmarksRequestConfigurationClass = VNDetectFaceLandmarksRequestConfigurationClass +module VNDetectFacePoseRequest = VNDetectFacePoseRequest +module VNDetectFacePoseRequestClass = VNDetectFacePoseRequestClass +module VNDetectFaceRectanglesRequest = VNDetectFaceRectanglesRequest +module VNDetectFaceRectanglesRequestClass = VNDetectFaceRectanglesRequestClass +module VNDetectFaceRectanglesRequestConfiguration = VNDetectFaceRectanglesRequestConfiguration +module VNDetectHumanBodyPoseRequest = VNDetectHumanBodyPoseRequest +module VNDetectHumanBodyPoseRequestClass = VNDetectHumanBodyPoseRequestClass +module VNDetectHumanHandPoseRequest = VNDetectHumanHandPoseRequest +module VNDetectHumanHandPoseRequestClass = VNDetectHumanHandPoseRequestClass +module VNDetectHumanHandPoseRequestConfiguration = VNDetectHumanHandPoseRequestConfiguration +module VNDetectHumanHeadRectanglesRequest = VNDetectHumanHeadRectanglesRequest +module VNDetectHumanHeadRectanglesRequestClass = VNDetectHumanHeadRectanglesRequestClass +module VNDetectHumanRectanglesRequest = VNDetectHumanRectanglesRequest +module VNDetectHumanRectanglesRequestClass = VNDetectHumanRectanglesRequestClass +module VNDetectHumanRectanglesRequestConfiguration = VNDetectHumanRectanglesRequestConfiguration +module VNDetectObjectAtPointRequest = VNDetectObjectAtPointRequest +module VNDetectObjectAtPointRequestClass = VNDetectObjectAtPointRequestClass +module VNDetectObjectAtPointRequestConfiguration = VNDetectObjectAtPointRequestConfiguration +module VNDetectRectanglesRequest = VNDetectRectanglesRequest +module VNDetectRectanglesRequestClass = VNDetectRectanglesRequestClass +module VNDetectRectanglesRequestConfiguration = VNDetectRectanglesRequestConfiguration +module VNDetectScreenGazeRequest = VNDetectScreenGazeRequest +module VNDetectScreenGazeRequestClass = VNDetectScreenGazeRequestClass +module VNDetectScreenGazeRequestConfiguration = VNDetectScreenGazeRequestConfiguration +module VNDetectTextRectanglesRequest = VNDetectTextRectanglesRequest +module VNDetectTextRectanglesRequestClass = VNDetectTextRectanglesRequestClass +module VNDetectTextRectanglesRequestConfiguration = VNDetectTextRectanglesRequestConfiguration +module VNDetectTrajectoriesRequest = VNDetectTrajectoriesRequest +module VNDetectTrajectoriesRequestClass = VNDetectTrajectoriesRequestClass +module VNDetectTrajectoriesRequestConfiguration = VNDetectTrajectoriesRequestConfiguration +module VNDetectedObjectObservation = VNDetectedObjectObservation +module VNDetectedObjectObservationClass = VNDetectedObjectObservationClass +module VNDetectedPoint = VNDetectedPoint +module VNDetectedPointClass = VNDetectedPointClass +module VNDetectionprint = VNDetectionprint +module VNDetectionprintClass = VNDetectionprintClass +module VNDetectionprintObservation = VNDetectionprintObservation +module VNDetectionprintObservationClass = VNDetectionprintObservationClass +module VNDetector = VNDetector +module VNDetectorCache = VNDetectorCache +module VNDetectorClass = VNDetectorClass +module VNDocumentObservation = VNDocumentObservation +module VNDocumentObservationClass = VNDocumentObservationClass +module VNDocumentSegmentationDetector = VNDocumentSegmentationDetector +module VNDocumentSegmentationDetectorClass = VNDocumentSegmentationDetectorClass +module VNEntityIdentificationModel = VNEntityIdentificationModel +module VNEntityIdentificationModelClass = VNEntityIdentificationModelClass +module VNEntityIdentificationModelConfiguration = VNEntityIdentificationModelConfiguration +module VNEntityIdentificationModelConfigurationClass = VNEntityIdentificationModelConfigurationClass +module VNEntityIdentificationModelInformation = VNEntityIdentificationModelInformation +module VNEntityIdentificationModelInformationClass = VNEntityIdentificationModelInformationClass +module VNEntityIdentificationModelPrediction = VNEntityIdentificationModelPrediction +module VNEntityIdentificationModelPredictionClass = VNEntityIdentificationModelPredictionClass +module VNEntityIdentificationModelReadOptions = VNEntityIdentificationModelReadOptions +module VNEntityIdentificationModelReadOptionsClass = VNEntityIdentificationModelReadOptionsClass +module VNEntityIdentificationModelTrainedModel = VNEntityIdentificationModelTrainedModel +module VNEntityIdentificationModelTrainedModelClass = VNEntityIdentificationModelTrainedModelClass +module VNEntityIdentificationModelTrainingData = VNEntityIdentificationModelTrainingData +module VNEntityIdentificationModelWriteOptions = VNEntityIdentificationModelWriteOptions +module VNEntityIdentificationModelWriteOptionsClass = VNEntityIdentificationModelWriteOptionsClass +module VNEspressoDetectedObject = VNEspressoDetectedObject +module VNEspressoModelClassifier = VNEspressoModelClassifier +module VNEspressoModelClassifierClass = VNEspressoModelClassifierClass +module VNEspressoModelFileBasedDetector = VNEspressoModelFileBasedDetector +module VNEspressoModelFileBasedDetectorClass = VNEspressoModelFileBasedDetectorClass +module VNEspressoModelImageprint = VNEspressoModelImageprint +module VNEspressoModelImageprintClass = VNEspressoModelImageprintClass +module VNEspressoResources = VNEspressoResources +module VNFaceAnalyzerCompoundRequest = VNFaceAnalyzerCompoundRequest +module VNFaceAnalyzerCompoundRequestClass = VNFaceAnalyzerCompoundRequestClass +module VNFaceAnalyzerCompoundRequestConfiguration = VNFaceAnalyzerCompoundRequestConfiguration +module VNFaceAnalyzerCompoundRequestConfigurationGroups = VNFaceAnalyzerCompoundRequestConfigurationGroups +module VNFaceAnalyzerMultiDetector = VNFaceAnalyzerMultiDetector +module VNFaceAnalyzerMultiDetectorClass = VNFaceAnalyzerMultiDetectorClass +module VNFaceAttributeCategory = VNFaceAttributeCategory +module VNFaceAttributeCategoryClass = VNFaceAttributeCategoryClass +module VNFaceAttributes = VNFaceAttributes +module VNFaceAttributesClass = VNFaceAttributesClass +module VNFaceBBoxAligner = VNFaceBBoxAligner +module VNFaceBBoxAlignerClass = VNFaceBBoxAlignerClass +module VNFaceDetectorRevision1 = VNFaceDetectorRevision1 +module VNFaceDetectorRevision1Class = VNFaceDetectorRevision1Class +module VNFaceDetectorRevision2 = VNFaceDetectorRevision2 +module VNFaceDetectorRevision2Class = VNFaceDetectorRevision2Class +module VNFaceExpressionDetector = VNFaceExpressionDetector +module VNFaceExpressionDetectorClass = VNFaceExpressionDetectorClass +module VNFaceGaze = VNFaceGaze +module VNFaceGazeClass = VNFaceGazeClass +module VNFaceGazeDetector = VNFaceGazeDetector +module VNFaceGazeDetectorClass = VNFaceGazeDetectorClass +module VNFaceLandmarkDetector = VNFaceLandmarkDetector +module VNFaceLandmarkDetectorClass = VNFaceLandmarkDetectorClass +module VNFaceLandmarkDetectorDNN = VNFaceLandmarkDetectorDNN +module VNFaceLandmarkDetectorDNNClass = VNFaceLandmarkDetectorDNNClass +module VNFaceLandmarkDetectorRevision1 = VNFaceLandmarkDetectorRevision1 +module VNFaceLandmarkDetectorRevision1Class = VNFaceLandmarkDetectorRevision1Class +module VNFaceLandmarkDetectorRevision3 = VNFaceLandmarkDetectorRevision3 +module VNFaceLandmarkDetectorRevision3Class = VNFaceLandmarkDetectorRevision3Class +module VNFaceLandmarkRegion = VNFaceLandmarkRegion +module VNFaceLandmarkRegion2D = VNFaceLandmarkRegion2D +module VNFaceLandmarkRegion2DClass = VNFaceLandmarkRegion2DClass +module VNFaceLandmarkRegion3D = VNFaceLandmarkRegion3D +module VNFaceLandmarkRegion3DClass = VNFaceLandmarkRegion3DClass +module VNFaceLandmarkRegionClass = VNFaceLandmarkRegionClass +module VNFaceLandmarks = VNFaceLandmarks +module VNFaceLandmarks2D = VNFaceLandmarks2D +module VNFaceLandmarks2DClass = VNFaceLandmarks2DClass +module VNFaceLandmarks3D = VNFaceLandmarks3D +module VNFaceLandmarks3DClass = VNFaceLandmarks3DClass +module VNFaceLandmarksClass = VNFaceLandmarksClass +module VNFaceLegacyFaceCore = VNFaceLegacyFaceCore +module VNFaceLegacyFaceCoreClass = VNFaceLegacyFaceCoreClass +module VNFaceObservation = VNFaceObservation +module VNFaceObservationClass = VNFaceObservationClass +module VNFaceQualityGenerator = VNFaceQualityGenerator +module VNFaceQualityGeneratorClass = VNFaceQualityGeneratorClass +module VNFaceRegionMap = VNFaceRegionMap +module VNFaceRegionMapClass = VNFaceRegionMapClass +module VNFaceRegionMapGenerator = VNFaceRegionMapGenerator +module VNFaceScreenGaze = VNFaceScreenGaze +module VNFaceScreenGazeClass = VNFaceScreenGazeClass +module VNFaceSegmentGenerator = VNFaceSegmentGenerator +module VNFaceSegmentGeneratorClass = VNFaceSegmentGeneratorClass +module VNFaceSegments = VNFaceSegments +module VNFaceSegmentsClass = VNFaceSegmentsClass +module VNFaceTorsoprint = VNFaceTorsoprint +module VNFaceTorsoprintClass = VNFaceTorsoprintClass +module VNFaceprint = VNFaceprint +module VNFaceprintClass = VNFaceprintClass +module VNFeaturePrintObservation = VNFeaturePrintObservation +module VNFeaturePrintObservationClass = VNFeaturePrintObservationClass +module VNFrameworkManager = VNFrameworkManager +module VNFrameworkManagerClass = VNFrameworkManagerClass +module VNGenerateAttentionBasedSaliencyImageRequest = VNGenerateAttentionBasedSaliencyImageRequest +module VNGenerateAttentionBasedSaliencyImageRequestClass = VNGenerateAttentionBasedSaliencyImageRequestClass +module VNGenerateFaceSegmentsRequest = VNGenerateFaceSegmentsRequest +module VNGenerateFaceSegmentsRequestClass = VNGenerateFaceSegmentsRequestClass +module VNGenerateFaceSegmentsRequestConfiguration = VNGenerateFaceSegmentsRequestConfiguration +module VNGenerateFaceSegmentsRequestConfigurationClass = VNGenerateFaceSegmentsRequestConfigurationClass +module VNGenerateImageFeaturePrintRequest = VNGenerateImageFeaturePrintRequest +module VNGenerateImageFeaturePrintRequestClass = VNGenerateImageFeaturePrintRequestClass +module VNGenerateImageFeaturePrintRequestConfiguration = VNGenerateImageFeaturePrintRequestConfiguration +module VNGenerateImageSaliencyRequest = VNGenerateImageSaliencyRequest +module VNGenerateImageSaliencyRequestClass = VNGenerateImageSaliencyRequestClass +module VNGenerateObjectnessBasedSaliencyImageRequest = VNGenerateObjectnessBasedSaliencyImageRequest +module VNGenerateObjectnessBasedSaliencyImageRequestClass = VNGenerateObjectnessBasedSaliencyImageRequestClass +module VNGenerateOpticalFlowRequest = VNGenerateOpticalFlowRequest +module VNGeneratePersonSegmentationRequest = VNGeneratePersonSegmentationRequest +module VNGeneratePersonSegmentationRequestClass = VNGeneratePersonSegmentationRequestClass +module VNGeneratePersonSegmentationRequestConfiguration = VNGeneratePersonSegmentationRequestConfiguration +module VNGreedyClusteringReadOnly = VNGreedyClusteringReadOnly +module VNGreedyClusteringReadOnlyClass = VNGreedyClusteringReadOnlyClass +module VNGreedyClusteringReadWrite = VNGreedyClusteringReadWrite +module VNHeatMapExtrema = VNHeatMapExtrema +module VNHomographicImageRegistrationDetector = VNHomographicImageRegistrationDetector +module VNHomographicImageRegistrationRequest = VNHomographicImageRegistrationRequest +module VNHomographyTrackerState = VNHomographyTrackerState +module VNHomologousObservationClassCompoundRequest = VNHomologousObservationClassCompoundRequest +module VNHorizonDetector = VNHorizonDetector +module VNHorizonObservation = VNHorizonObservation +module VNHorizonObservationClass = VNHorizonObservationClass +module VNHumanBodyPoseDetector = VNHumanBodyPoseDetector +module VNHumanBodyPoseDetectorClass = VNHumanBodyPoseDetectorClass +module VNHumanBodyPoseObservation = VNHumanBodyPoseObservation +module VNHumanHandPoseDetector = VNHumanHandPoseDetector +module VNHumanHandPoseDetectorClass = VNHumanHandPoseDetectorClass +module VNHumanHandPoseObservation = VNHumanHandPoseObservation +module VNHumanObservation = VNHumanObservation +module VNHumanObservationClass = VNHumanObservationClass +module VNHumanPoseDetector = VNHumanPoseDetector +module VNHumanPoseDetectorClass = VNHumanPoseDetectorClass +module VNIdentifyJunkRequest = VNIdentifyJunkRequest +module VNImageAestheticsObservation = VNImageAestheticsObservation +module VNImageAestheticsObservationClass = VNImageAestheticsObservationClass +module VNImageAlignmentObservation = VNImageAlignmentObservation +module VNImageAlignmentObservationClass = VNImageAlignmentObservationClass +module VNImageAnalyzerBasedDetector = VNImageAnalyzerBasedDetector +module VNImageAnalyzerBasedDetectorClass = VNImageAnalyzerBasedDetectorClass +module VNImageAnalyzerCompoundRequest = VNImageAnalyzerCompoundRequest +module VNImageAnalyzerCompoundRequestClass = VNImageAnalyzerCompoundRequestClass +module VNImageAnalyzerCompoundRequestConfiguration = VNImageAnalyzerCompoundRequestConfiguration +module VNImageAnalyzerMultiDetector = VNImageAnalyzerMultiDetector +module VNImageAnalyzerMultiDetectorClass = VNImageAnalyzerMultiDetectorClass +module VNImageBasedRequest = VNImageBasedRequest +module VNImageBasedRequestClass = VNImageBasedRequestClass +module VNImageBasedRequestConfiguration = VNImageBasedRequestConfiguration +module VNImageBlurScoreRequest = VNImageBlurScoreRequest +module VNImageBlurScoreRequestClass = VNImageBlurScoreRequestClass +module VNImageBlurScoreRequestConfiguration = VNImageBlurScoreRequestConfiguration +module VNImageBuffer = VNImageBuffer +module VNImageBufferClass = VNImageBufferClass +module VNImageBufferManager = VNImageBufferManager +module VNImageBufferManagerClass = VNImageBufferManagerClass +module VNImageHomographicAlignmentObservation = VNImageHomographicAlignmentObservation +module VNImageHomographicAlignmentObservationClass = VNImageHomographicAlignmentObservationClass +module VNImageNeuralHashprintObservation = VNImageNeuralHashprintObservation +module VNImageNeuralHashprintObservationClass = VNImageNeuralHashprintObservationClass +module VNImageRegistrationRequest = VNImageRegistrationRequest +module VNImageRegistrationRequestClass = VNImageRegistrationRequestClass +module VNImageRequestHandler = VNImageRequestHandler +module VNImageRequestHandlerClass = VNImageRequestHandlerClass +module VNImageScoreObservation = VNImageScoreObservation +module VNImageScoreObservationClass = VNImageScoreObservationClass +module VNImageSignature = VNImageSignature +module VNImageSignatureClass = VNImageSignatureClass +module VNImageSignatureDetector = VNImageSignatureDetector +module VNImageSignatureDetectorClass = VNImageSignatureDetectorClass +module VNImageTranslationAlignmentObservation = VNImageTranslationAlignmentObservation +module VNImageTranslationAlignmentObservationClass = VNImageTranslationAlignmentObservationClass +module VNImageprint = VNImageprint +module VNImageprintClass = VNImageprintClass +module VNImageprintObservation = VNImageprintObservation +module VNImageprintObservationClass = VNImageprintObservationClass +module VNJunkIdentifier = VNJunkIdentifier +module VNJunkIdentifierClass = VNJunkIdentifierClass +module VNMLFeatureProvider = VNMLFeatureProvider +module VNMPClusteringTreeNodeWrapper = VNMPClusteringTreeNodeWrapper +module VNMPContext = VNMPContext +module VNMPImageData = VNMPImageData +module VNMPImageDescriptor = VNMPImageDescriptor +module VNMPImageDescriptorClass = VNMPImageDescriptorClass +module VNMTLDeviceWisdomParameters = VNMTLDeviceWisdomParameters +module VNMemeClassifier = VNMemeClassifier +module VNMemeClassifierClass = VNMemeClassifierClass +module VNMetalContext = VNMetalContext +module VNMetalProcessingDevice = VNMetalProcessingDevice +module VNMetalProcessingDeviceClass = VNMetalProcessingDeviceClass +module VNModelFileImpl = VNModelFileImpl +module VNModelFilesCache = VNModelFilesCache +module VNModelFilesCacheClass = VNModelFilesCacheClass +module VNMomentProcessor = VNMomentProcessor +module VNMomentProcessorClass = VNMomentProcessorClass +module VNMutableEntityIdentificationModel = VNMutableEntityIdentificationModel +module VNMutableEntityIdentificationModelClass = VNMutableEntityIdentificationModelClass +module VNMutablePersonsModel = VNMutablePersonsModel +module VNMutablePersonsModelClass = VNMutablePersonsModelClass +module VNNOPRequest = VNNOPRequest +module VNNOPRequestClass = VNNOPRequestClass +module VNNOPRequestConfiguration = VNNOPRequestConfiguration +module VNObjectAtPointDetectorRevision1 = VNObjectAtPointDetectorRevision1 +module VNObjectAtPointDetectorRevision1Class = VNObjectAtPointDetectorRevision1Class +module VNObjectBasedSaliencyGenerator = VNObjectBasedSaliencyGenerator +module VNObjectBasedSaliencyGeneratorClass = VNObjectBasedSaliencyGeneratorClass +module VNObjectTrackerLegacyFaceCore = VNObjectTrackerLegacyFaceCore +module VNObjectTrackerLegacyFaceCoreClass = VNObjectTrackerLegacyFaceCoreClass +module VNObservation = VNObservation +module VNObservationClass = VNObservationClass +module VNObservationsCache = VNObservationsCache +module VNOperationPoints = VNOperationPoints +module VNOperationPointsClass = VNOperationPointsClass +module VNOperationPointsProvider = VNOperationPointsProvider +module VNOpticalFlowObservation = VNOpticalFlowObservation +module VNOpticalFlowObservationClass = VNOpticalFlowObservationClass +module VNPersonSegmentationGenerator = VNPersonSegmentationGenerator +module VNPersonSegmentationGeneratorClass = VNPersonSegmentationGeneratorClass +module VNPersonsModel = VNPersonsModel +module VNPersonsModelClass = VNPersonsModelClass +module VNPersonsModelConfiguration = VNPersonsModelConfiguration +module VNPersonsModelConfigurationClass = VNPersonsModelConfigurationClass +module VNPersonsModelData = VNPersonsModelData +module VNPersonsModelFaceModel = VNPersonsModelFaceModel +module VNPersonsModelFaceModelClass = VNPersonsModelFaceModelClass +module VNPersonsModelInformation = VNPersonsModelInformation +module VNPersonsModelInformationClass = VNPersonsModelInformationClass +module VNPersonsModelPrediction = VNPersonsModelPrediction +module VNPersonsModelPredictionClass = VNPersonsModelPredictionClass +module VNPersonsModelReadOptions = VNPersonsModelReadOptions +module VNPersonsModelReadOptionsClass = VNPersonsModelReadOptionsClass +module VNPersonsModelWriteOptions = VNPersonsModelWriteOptions +module VNPersonsModelWriteOptionsClass = VNPersonsModelWriteOptionsClass +module VNPixelBufferObservation = VNPixelBufferObservation +module VNPixelBufferObservationClass = VNPixelBufferObservationClass +module VNPoint = VNPoint +module VNPointClass = VNPointClass +module VNProcessingDevice = VNProcessingDevice +module VNProcessingDeviceClass = VNProcessingDeviceClass +module VNRPNTrackerEspressoModelCacheManager = VNRPNTrackerEspressoModelCacheManager +module VNRPNTrackerEspressoModelCacheManagerClass = VNRPNTrackerEspressoModelCacheManagerClass +module VNReadOnlyEntityIdentificationModel = VNReadOnlyEntityIdentificationModel +module VNReadOnlyEntityIdentificationModelClass = VNReadOnlyEntityIdentificationModelClass +module VNReadOnlyPersonsModel = VNReadOnlyPersonsModel +module VNReadOnlyPersonsModelClass = VNReadOnlyPersonsModelClass +module VNRecognizeAnimalHeadsRequest = VNRecognizeAnimalHeadsRequest +module VNRecognizeAnimalHeadsRequestClass = VNRecognizeAnimalHeadsRequestClass +module VNRecognizeAnimalsRequest = VNRecognizeAnimalsRequest +module VNRecognizeAnimalsRequestClass = VNRecognizeAnimalsRequestClass +module VNRecognizeDocumentElementsRequest = VNRecognizeDocumentElementsRequest +module VNRecognizeDocumentElementsRequestClass = VNRecognizeDocumentElementsRequestClass +module VNRecognizeDocumentElementsRequestConfiguration = VNRecognizeDocumentElementsRequestConfiguration +module VNRecognizeDocumentElementsRequestElementConfiguration = VNRecognizeDocumentElementsRequestElementConfiguration +module VNRecognizeDocumentElementsRequestElementConfigurationClass = VNRecognizeDocumentElementsRequestElementConfigurationClass +module VNRecognizeDocumentsRequest = VNRecognizeDocumentsRequest +module VNRecognizeDocumentsRequestClass = VNRecognizeDocumentsRequestClass +module VNRecognizeDocumentsRequestConfiguration = VNRecognizeDocumentsRequestConfiguration +module VNRecognizeFoodAndDrinkRequest = VNRecognizeFoodAndDrinkRequest +module VNRecognizeFoodAndDrinkRequestClass = VNRecognizeFoodAndDrinkRequestClass +module VNRecognizeObjectsRequest = VNRecognizeObjectsRequest +module VNRecognizeObjectsRequestClass = VNRecognizeObjectsRequestClass +module VNRecognizeObjectsRequestConfiguration = VNRecognizeObjectsRequestConfiguration +module VNRecognizeSportBallsRequest = VNRecognizeSportBallsRequest +module VNRecognizeSportBallsRequestClass = VNRecognizeSportBallsRequestClass +module VNRecognizeTextRequest = VNRecognizeTextRequest +module VNRecognizeTextRequestClass = VNRecognizeTextRequestClass +module VNRecognizeTextRequestConfiguration = VNRecognizeTextRequestConfiguration +module VNRecognizedBodyPointsSpecifier = VNRecognizedBodyPointsSpecifier +module VNRecognizedBodyPointsSpecifierClass = VNRecognizedBodyPointsSpecifierClass +module VNRecognizedHandPointsSpecifier = VNRecognizedHandPointsSpecifier +module VNRecognizedHandPointsSpecifierClass = VNRecognizedHandPointsSpecifierClass +module VNRecognizedObjectObservation = VNRecognizedObjectObservation +module VNRecognizedObjectObservationClass = VNRecognizedObjectObservationClass +module VNRecognizedPoint = VNRecognizedPoint +module VNRecognizedPointClass = VNRecognizedPointClass +module VNRecognizedPointsObservation = VNRecognizedPointsObservation +module VNRecognizedPointsObservationClass = VNRecognizedPointsObservationClass +module VNRecognizedPointsSpecifier = VNRecognizedPointsSpecifier +module VNRecognizedPointsSpecifierClass = VNRecognizedPointsSpecifierClass +module VNRecognizedText = VNRecognizedText +module VNRecognizedTextBlock = VNRecognizedTextBlock +module VNRecognizedTextBlockClass = VNRecognizedTextBlockClass +module VNRecognizedTextBlockObservation = VNRecognizedTextBlockObservation +module VNRecognizedTextClass = VNRecognizedTextClass +module VNRecognizedTextObservation = VNRecognizedTextObservation +module VNRecognizedTextObservationClass = VNRecognizedTextObservationClass +module VNRectangleDetector = VNRectangleDetector +module VNRectangleDetectorClass = VNRectangleDetectorClass +module VNRectangleObservation = VNRectangleObservation +module VNRectangleObservationClass = VNRectangleObservationClass +module VNRectangleTracker = VNRectangleTracker +module VNRectangleTrackerClass = VNRectangleTrackerClass +module VNRequest = VNRequest +module VNRequestClass = VNRequestClass +module VNRequestConfiguration = VNRequestConfiguration +module VNRequestForensics = VNRequestForensics +module VNRequestPerformer = VNRequestPerformer +module VNRequestPerformingContext = VNRequestPerformingContext +module VNRequestSpecifier = VNRequestSpecifier +module VNRequestSpecifierClass = VNRequestSpecifierClass +module VNSaliencyImageObservation = VNSaliencyImageObservation +module VNSaliencyImageObservationClass = VNSaliencyImageObservationClass +module VNSceneClassificationRequest = VNSceneClassificationRequest +module VNSceneClassificationRequestClass = VNSceneClassificationRequestClass +module VNSceneClassificationRequestConfiguration = VNSceneClassificationRequestConfiguration +module VNSceneObservation = VNSceneObservation +module VNSceneObservationClass = VNSceneObservationClass +module VNSceneTaxonomyOperationPoints = VNSceneTaxonomyOperationPoints +module VNSceneTaxonomyOperationPointsClass = VNSceneTaxonomyOperationPointsClass +module VNSceneprint = VNSceneprint +module VNSceneprintClass = VNSceneprintClass +module VNScreenGazeDetector = VNScreenGazeDetector +module VNScreenGazeDetectorClass = VNScreenGazeDetectorClass +module VNSequenceRequestHandler = VNSequenceRequestHandler +module VNSequenceRequestHandlerClass = VNSequenceRequestHandlerClass +module VNSession = VNSession +module VNSessionClass = VNSessionClass +module VNSingleHeadSceneprintGenerator = VNSingleHeadSceneprintGenerator +module VNSingleHeadSceneprintGeneratorClass = VNSingleHeadSceneprintGeneratorClass +module VNSizeRange = VNSizeRange +module VNSizeRangeClass = VNSizeRangeClass +module VNSmartCam5CompoundRequestGroupingConfiguration = VNSmartCam5CompoundRequestGroupingConfiguration +module VNSmartCam5GatingDetector = VNSmartCam5GatingDetector +module VNSmartCam5GatingDetectorClass = VNSmartCam5GatingDetectorClass +module VNSmartCamClassifier = VNSmartCamClassifier +module VNSmartCamClassifierClass = VNSmartCamClassifierClass +module VNSmartCamCombinedAestheticsAndSaliencyDetector = VNSmartCamCombinedAestheticsAndSaliencyDetector +module VNSmartCamCombinedAestheticsAndSaliencyDetectorClass = VNSmartCamCombinedAestheticsAndSaliencyDetectorClass +module VNSmartCamObservation = VNSmartCamObservation +module VNSmartCamObservationClass = VNSmartCamObservationClass +module VNSmartCamprint = VNSmartCamprint +module VNSmartCamprintClass = VNSmartCamprintClass +module VNStatefulRequest = VNStatefulRequest +module VNStatefulRequestClass = VNStatefulRequestClass +module VNStatefulRequestConfiguration = VNStatefulRequestConfiguration +module VNSuggestionsLogger = VNSuggestionsLogger +module VNSupportedImageSize = VNSupportedImageSize +module VNSupportedImageSizeClass = VNSupportedImageSizeClass +module VNTargetedImageRequest = VNTargetedImageRequest +module VNTextObservation = VNTextObservation +module VNTextObservationClass = VNTextObservationClass +module VNTorsoprint = VNTorsoprint +module VNTorsoprintClass = VNTorsoprintClass +module VNTorsoprintGeneratorFaceBased = VNTorsoprintGeneratorFaceBased +module VNTorsoprintGeneratorFaceBasedClass = VNTorsoprintGeneratorFaceBasedClass +module VNTorsoprintGeneratorHumanDetectorBased = VNTorsoprintGeneratorHumanDetectorBased +module VNTorsoprintGeneratorHumanDetectorBasedClass = VNTorsoprintGeneratorHumanDetectorBasedClass +module VNTorsoprintGeneratorPrivateRevisionMD1 = VNTorsoprintGeneratorPrivateRevisionMD1 +module VNTorsoprintGeneratorPrivateRevisionMD1Class = VNTorsoprintGeneratorPrivateRevisionMD1Class +module VNTrackHomographyRequest = VNTrackHomographyRequest +module VNTrackHomographyRequestClass = VNTrackHomographyRequestClass +module VNTrackLegacyFaceCoreObjectRequest = VNTrackLegacyFaceCoreObjectRequest +module VNTrackLegacyFaceCoreObjectRequestClass = VNTrackLegacyFaceCoreObjectRequestClass +module VNTrackObjectRequest = VNTrackObjectRequest +module VNTrackObjectRequestClass = VNTrackObjectRequestClass +module VNTrackRectangleRequest = VNTrackRectangleRequest +module VNTrackRectangleRequestClass = VNTrackRectangleRequestClass +module VNTracker = VNTracker +module VNTrackerClass = VNTrackerClass +module VNTrackerManager = VNTrackerManager +module VNTrackerManagerClass = VNTrackerManagerClass +module VNTrackingRequest = VNTrackingRequest +module VNTrackingRequestClass = VNTrackingRequestClass +module VNTrajectoryObservation = VNTrajectoryObservation +module VNTrajectoryObservationClass = VNTrajectoryObservationClass +module VNTrajectoryProcessor = VNTrajectoryProcessor +module VNUniqueObservationClassCompoundRequest = VNUniqueObservationClassCompoundRequest +module VNVector = VNVector +module VNVectorClass = VNVectorClass +module VNVideoProcessor = VNVideoProcessor +module VNVideoProcessorCadence = VNVideoProcessorCadence +module VNVideoProcessorFrameRateCadence = VNVideoProcessorFrameRateCadence +module VNVideoProcessorRequestProcessingOptions = VNVideoProcessorRequestProcessingOptions +module VNVideoProcessorTimeIntervalCadence = VNVideoProcessorTimeIntervalCadence +module VNWarningRecorder = VNWarningRecorder +module VNWeakSessionWrapper = VNWeakSessionWrapper diff --git a/Vision/Vision_globals.ml b/Vision/Vision_globals.ml index 77307bcc..e0baee46 100644 --- a/Vision/Vision_globals.ml +++ b/Vision/Vision_globals.ml @@ -4,12 +4,7 @@ open Runtime open Objc [@@@ocaml.warning "-33"] -open CoreFoundation -open CoreFoundation_globals open CoreGraphics -open CoreGraphics_globals -open CoreVideo -open CoreVideo_globals let _VNAnimalIdentifierCat = new_string "VNAnimalIdentifierCat" let _VNAnimalIdentifierDog = new_string "VNAnimalIdentifierDog" diff --git a/Vision/dune b/Vision/dune index c3a350cf..f72d9789 100644 --- a/Vision/dune +++ b/Vision/dune @@ -4,9 +4,8 @@ ; (enabled_if (= %{system} macosx)) (flags :standard -ccopt "-framework Vision") (libraries + camlkit-base.runtime camlkit-base.Foundation - camlkit-base.CoreFoundation - camlkit-gui.CoreGraphics camlkit-gui.CoreVideo)) (documentation (package camlkit-gui)) \ No newline at end of file