forked from dboris/camlkit
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
270 changed files
with
10,490 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,19 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "DurationGroup" | ||
|
|
||
| let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) | ||
| let end_ self = msg_send ~self ~cmd:(selector "end") ~typ:(returning (id)) | ||
| let groupId self = msg_send ~self ~cmd:(selector "groupId") ~typ:(returning (ullong)) | ||
| let initWithStart x ~end_ self = msg_send ~self ~cmd:(selector "initWithStart:end:") ~typ:(id @-> id @-> returning (id)) x end_ | ||
| let setEnd x self = msg_send ~self ~cmd:(selector "setEnd:") ~typ:(id @-> returning (void)) x | ||
| let setStart x self = msg_send ~self ~cmd:(selector "setStart:") ~typ:(id @-> returning (void)) x | ||
| let setWasChanged x self = msg_send ~self ~cmd:(selector "setWasChanged:") ~typ:(bool @-> returning (void)) x | ||
| let start self = msg_send ~self ~cmd:(selector "start") ~typ:(returning (id)) | ||
| let wasChanged self = msg_send ~self ~cmd:(selector "wasChanged") ~typ:(returning (bool)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,33 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAdjustmentData" | ||
|
|
||
| module C = struct | ||
| let adjustmentBaseVersionFromImageRequestVersion x self = msg_send ~self ~cmd:(selector "adjustmentBaseVersionFromImageRequestVersion:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) | ||
| let adjustmentBaseVersionFromVideoRequestVersion x self = msg_send ~self ~cmd:(selector "adjustmentBaseVersionFromVideoRequestVersion:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) | ||
| let imageRequestVersionFromAdjustmentBaseVersion x self = msg_send ~self ~cmd:(selector "imageRequestVersionFromAdjustmentBaseVersion:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) | ||
| let opaqueAdjustmentData self = msg_send ~self ~cmd:(selector "opaqueAdjustmentData") ~typ:(returning (id)) | ||
| let supportsSecureCoding self = msg_send ~self ~cmd:(selector "supportsSecureCoding") ~typ:(returning (bool)) | ||
| let videoRequestVersionFromAdjustmentBaseVersion x self = msg_send ~self ~cmd:(selector "videoRequestVersionFromAdjustmentBaseVersion:") ~typ:(llong @-> returning (llong)) (LLong.of_int x) | ||
| end | ||
|
|
||
| let baseVersion self = msg_send ~self ~cmd:(selector "baseVersion") ~typ:(returning (llong)) | ||
| let data self = msg_send ~self ~cmd:(selector "data") ~typ:(returning (id)) | ||
| let description self = msg_send ~self ~cmd:(selector "description") ~typ:(returning (id)) | ||
| let editorBundleID self = msg_send ~self ~cmd:(selector "editorBundleID") ~typ:(returning (id)) | ||
| let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning (void)) x | ||
| let formatIdentifier self = msg_send ~self ~cmd:(selector "formatIdentifier") ~typ:(returning (id)) | ||
| let formatVersion self = msg_send ~self ~cmd:(selector "formatVersion") ~typ:(returning (id)) | ||
| let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning (id)) x | ||
| let initWithFormatIdentifier x ~formatVersion ~data self = msg_send ~self ~cmd:(selector "initWithFormatIdentifier:formatVersion:data:") ~typ:(id @-> id @-> id @-> returning (id)) x formatVersion data | ||
| let isOpaque self = msg_send ~self ~cmd:(selector "isOpaque") ~typ:(returning (bool)) | ||
| let setBaseVersion x self = msg_send ~self ~cmd:(selector "setBaseVersion:") ~typ:(llong @-> returning (void)) (LLong.of_int x) | ||
| let setEditorBundleID x self = msg_send ~self ~cmd:(selector "setEditorBundleID:") ~typ:(id @-> returning (void)) x | ||
| let setFormatIdentifier x self = msg_send ~self ~cmd:(selector "setFormatIdentifier:") ~typ:(id @-> returning (void)) x | ||
| let setFormatVersion x self = msg_send ~self ~cmd:(selector "setFormatVersion:") ~typ:(id @-> returning (void)) x |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,16 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAdjustmentDataRequest" | ||
|
|
||
| let adjustmentDataDelegate self = msg_send ~self ~cmd:(selector "adjustmentDataDelegate") ~typ:(returning (id)) | ||
| let behaviorSpec self = msg_send ~self ~cmd:(selector "behaviorSpec") ~typ:(returning (id)) | ||
| let cancel self = msg_send ~self ~cmd:(selector "cancel") ~typ:(returning (void)) | ||
| let initWithRequestID x ~requestIndex ~contextType ~managerID ~asset ~behaviorSpec ~delegate self = msg_send ~self ~cmd:(selector "initWithRequestID:requestIndex:contextType:managerID:asset:behaviorSpec:delegate:") ~typ:(int @-> ullong @-> llong @-> ullong @-> id @-> id @-> id @-> returning (id)) x (ULLong.of_int requestIndex) (LLong.of_int contextType) (ULLong.of_int managerID) asset behaviorSpec delegate | ||
| let isSynchronous self = msg_send ~self ~cmd:(selector "isSynchronous") ~typ:(returning (bool)) | ||
| let startRequest self = msg_send ~self ~cmd:(selector "startRequest") ~typ:(returning (void)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,14 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAdjustmentDataRequestBehaviorSpec" | ||
|
|
||
| let isNetworkAccessAllowed self = msg_send ~self ~cmd:(selector "isNetworkAccessAllowed") ~typ:(returning (bool)) | ||
| let isSynchronous self = msg_send ~self ~cmd:(selector "isSynchronous") ~typ:(returning (bool)) | ||
| let setNetworkAccessAllowed x self = msg_send ~self ~cmd:(selector "setNetworkAccessAllowed:") ~typ:(bool @-> returning (void)) x | ||
| let setSynchronous x self = msg_send ~self ~cmd:(selector "setSynchronous:") ~typ:(bool @-> returning (void)) x |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,16 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAdjustmentDataRequestContext" | ||
|
|
||
| let initWithRequestID x ~managerID ~asset ~options ~resultHandler self = msg_send ~self ~cmd:(selector "initWithRequestID:managerID:asset:options:resultHandler:") ~typ:(int @-> ullong @-> id @-> id @-> ptr void @-> returning (id)) x (ULLong.of_int managerID) asset options resultHandler | ||
| let initialRequests self = msg_send ~self ~cmd:(selector "initialRequests") ~typ:(returning (id)) | ||
| let isNetworkAccessAllowed self = msg_send ~self ~cmd:(selector "isNetworkAccessAllowed") ~typ:(returning (bool)) | ||
| let options self = msg_send ~self ~cmd:(selector "options") ~typ:(returning (id)) | ||
| let processMediaResult x ~forRequest self = msg_send ~self ~cmd:(selector "processMediaResult:forRequest:") ~typ:(id @-> id @-> returning (void)) x forRequest | ||
| let type_ self = msg_send ~self ~cmd:(selector "type") ~typ:(returning (llong)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,14 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAdjustmentDataResult" | ||
|
|
||
| let adjustmentData self = msg_send ~self ~cmd:(selector "adjustmentData") ~typ:(returning (id)) | ||
| let allowedInfoKeys self = msg_send ~self ~cmd:(selector "allowedInfoKeys") ~typ:(returning (id)) | ||
| let containsValidData self = msg_send ~self ~cmd:(selector "containsValidData") ~typ:(returning (bool)) | ||
| let setAdjustmentData x self = msg_send ~self ~cmd:(selector "setAdjustmentData:") ~typ:(id @-> returning (void)) x |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,24 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAnimatedImage" | ||
|
|
||
| module C = struct | ||
| let cancelAnimatedImageRequest x self = msg_send ~self ~cmd:(selector "cancelAnimatedImageRequest:") ~typ:(llong @-> returning (void)) (LLong.of_int x) | ||
| let requestAnimatedImageWithURL x ~completion self = msg_send ~self ~cmd:(selector "requestAnimatedImageWithURL:completion:") ~typ:(id @-> ptr void @-> returning (llong)) x completion | ||
| let requestAnimatedImageWithURL' x ~options ~completion self = msg_send ~self ~cmd:(selector "requestAnimatedImageWithURL:options:completion:") ~typ:(id @-> id @-> ptr void @-> returning (llong)) x options completion | ||
| end | ||
|
|
||
| let duration self = msg_send ~self ~cmd:(selector "duration") ~typ:(returning (double)) | ||
| let frameCount self = msg_send ~self ~cmd:(selector "frameCount") ~typ:(returning (ullong)) | ||
| let init self = msg_send ~self ~cmd:(selector "init") ~typ:(returning (id)) | ||
| let initWithURL x self = msg_send ~self ~cmd:(selector "initWithURL:") ~typ:(id @-> returning (id)) x | ||
| let initWithURL' x ~cachingStrategy ~useSharedDecoding self = msg_send ~self ~cmd:(selector "initWithURL:cachingStrategy:useSharedDecoding:") ~typ:(id @-> llong @-> bool @-> returning (id)) x (LLong.of_int cachingStrategy) useSharedDecoding | ||
| let loopCount self = msg_send ~self ~cmd:(selector "loopCount") ~typ:(returning (ullong)) | ||
| let pixelHeight self = msg_send ~self ~cmd:(selector "pixelHeight") ~typ:(returning (ullong)) | ||
| let pixelWidth self = msg_send ~self ~cmd:(selector "pixelWidth") ~typ:(returning (ullong)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,16 @@ | ||
| (* auto-generated, do not modify *) | ||
|
|
||
| open Runtime | ||
| open Objc | ||
|
|
||
| [@@@ocaml.warning "-33"] | ||
| open Foundation | ||
|
|
||
| let _class_ = get_class "PHAnimatedImageRequestOptions" | ||
|
|
||
| let allowPreCaching self = msg_send ~self ~cmd:(selector "allowPreCaching") ~typ:(returning (bool)) | ||
| 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 setAllowPreCaching x self = msg_send ~self ~cmd:(selector "setAllowPreCaching:") ~typ:(bool @-> returning (void)) x | ||
| let setUseSharedImageDecoding x self = msg_send ~self ~cmd:(selector "setUseSharedImageDecoding:") ~typ:(bool @-> returning (void)) x | ||
| let useSharedImageDecoding self = msg_send ~self ~cmd:(selector "useSharedImageDecoding") ~typ:(returning (bool)) |
Oops, something went wrong.