camlimages 5.0.4-1 (latest)

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