package camlimages

  1. Overview
  2. Docs

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 ... end
val 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 ] option
val ifd_0_datetime : Exif.Data.t -> [> `EncodedInUnixTime of Exif.DateTime.t | `Error of string | `Ok of Exif.DateTime.t ] option
val datetime : Exif.Data.t -> [> `EncodedInUnixTime of Exif.DateTime.t | `Error of string | `Ok of Exif.DateTime.t ] option