1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
[manpage_begin exif n 1.1.2]
[keywords exif]
[keywords jpeg]
[keywords {maker note}]
[keywords tiff]
[moddesc {EXIF parsing}]
[titledesc {Tcl EXIF extracts and parses EXIF fields from digital images}]
[category {File formats}]
[require Tcl 8.2]
[require exif [opt 1.1.2]]
[description]
[para]
The EXIF package is a recoding of Chris Breeze's Perl package to do
the same thing. This version accepts a channel as input and returns a
serialized array with all the recognised fields parsed out.
[para]
There is also a function to obtain a list of all possible field names
that might be present, which is useful in building GUIs that present
such information.
[section COMMANDS]
[list_begin definitions]
[call [cmd exif::analyze] [arg channel] [opt [arg thumbnail]]]
[arg channel] should be an open file handle rewound to the start. It
does not need to be seekable. [arg channel] will be set to binary
mode and is left wherever it happens to stop being parsed, usually at
the end of the file or the start of the image data. You must open and
close the stream yourself. If no error is thrown, the return value is
a serialized array with informative English text about what was found
in the EXIF block. Failure during parsing or I/O throw errors.
[para]
If [arg thumbnail] is present and not the empty string it will be
interpreted as the name of a file, and the thumbnail image contained
in the exif data will be written into it.
[call [cmd exif::analyzeFile] [arg filename] [opt [arg thumbnail]]]
This is a file-based wrapper around [cmd exif::analyze]. Instead of
taking a stream it takes a [arg filename] and analyzes the contents of
the specified file.
[call [cmd exif::fieldnames]]
This returns a list of all possible field names. That is, the array
returned by [cmd exif::analyze] will not contain keys that are not
listed in the return from [cmd exif::fieldnames]. Of course, if
information is missing in the image file, [cmd exif::analyze] may not
return all the fields listed in the return from exif::fieldnames.
This function is expected to be primarily useful for building GUIs to
display results.
[para]
N.B.: Read the implementation of [cmd exif::fieldnames] before
modifying the implementation of [cmd exif::analyze].
[list_end]
[section COPYRIGHTS]
(c) 2002 Darren New
Hold harmless the author, and any lawful use is allowed.
[section ACKNOWLEDGEMENTS]
This code is a direct translation of version 1.3 of exif.pl by Chris
Breeze. See the source for full headers, references, etc.
[vset CATEGORY exif]
[include ../common-text/feedback.inc]
[manpage_end]
|
