Exif data analyzer
Due to its updated-on-demand and lots-of-tags nature, This module is implemented in a separate file from exif.ml and its interface file is auto created.
val analyze_datetime :
string ->
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]val analyze_ifd :
(int * Exif.Entry.Pack.unpacked) ->
[> `DateTime of
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]
| `Make of string
| `Model of string
| `Orientation of
[> `BottomLeft
| `BottomRight
| `LeftBottom
| `LeftTop
| `RightBottom
| `RightTop
| `TopLeft
| `TopRight ]
| `ResolutionUnit of [> `Centimeters | `Inches ]
| `Software of Exif.Entry.Pack.unpacked
| `Unknown of int * Exif.Entry.Pack.unpacked
| `XResolution of int64 * int64
| `YResolution of int64 * int64 ]val analyze_exif :
(int * Exif.Entry.Pack.unpacked) ->
[> `DateTimeDigitized of
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]
| `DateTimeOriginal of
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]
| `ExifVersion of string
| `MakerNote of string
| `SubsecTime of string
| `SubsecTimeDigitized of string
| `SubsecTimeOriginal of string
| `Unknown of int * Exif.Entry.Pack.unpacked
| `UserComment of string ]module GPS : sig ... endval analyze_gps :
(int * Exif.Entry.Pack.unpacked) ->
[> `AboveSeaLevel
| `Altitude of int64 * int64
| `BelowSeaLevel
| `EastLongitude
| `GPSDate of [> `Error of string | `Ok of Exif.Date.t ]
| `GPSMapDatum of string
| `GPSVersion of int * int * int * int
| `ImgDirection of int64 * int64
| `ImgDirectionMagnetic
| `ImgDirectionTrue
| `Latitude of int64 * int64
| `Longitude of int64 * int64
| `NorthLatitude
| `SouthLatitude
| `TimeStampUTC of float * float * float
| `TimeStampUTCinSRationals of float * float * float
| `Unknown of int * Exif.Entry.Pack.unpacked
| `WestLongitude ]val exif_datetime :
Exif.Data.t ->
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]
optionval ifd_0_datetime :
Exif.Data.t ->
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]
optionval datetime :
Exif.Data.t ->
[> `EncodedInUnixTime of Exif.DateTime.t
| `Error of string
| `Ok of Exif.DateTime.t ]
option