proc read_jpg_comments {file} {
    set fh [open $file r]
    fconfigure $fh -encoding binary -translation binary -eofchar {}
    if {[read $fh 2] != "\xFF\xD8"} { close $fh; return }
    set comments {}

    while {[read $fh 1] == "\xFF"} {
        binary scan [read $fh 3] aS type len
        set pos [tell $fh]

        if {$type == "\xFE"} {
            lappend comments [read $fh [expr $len - 2]]
        }
        seek $fh [expr {$pos + $len - 2}] start
    }
    return $comments
}


----

--[AF] 19-12-03

----
[Category Graphics]