Annotation of parser3/tests/096.html, revision 1.3

1.2       paf         1: @main[]
                      2: ^test_exif[096_dir]
                      3: 
1.3     ! misha       4: 
        !             5: @test_exif[dir][file;image;keys]
        !             6: $file[^file:list[$dir;\.(?i:jpe?g)^$]]
        !             7: <table border="1">
1.2       paf         8: ^file.menu{
1.3     ! misha       9:        <tr valign="top">
        !            10:                $image[^image::measure[$dir/$file.name]]
        !            11:                <td>^image.html[$.width(100)$.height(100)]</td>
        !            12:                <td>
        !            13:                        $file.name<hr>
        !            14:                        ^if($image.exif){
        !            15:                                $keys[^image.exif._keys[]]
        !            16:                                ^keys.sort{$keys.key}
        !            17:                                ^keys.menu{
        !            18:                                        ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
        !            19:                                }[<br />]
        !            20:                        }{
        !            21:                                no EXIF info<br />
        !            22:                        }
        !            23:                </td>
        !            24:        </tr>
1.2       paf        25: }
                     26: </table>
                     27: 
1.3     ! misha      28: 
1.2       paf        29: @show_exif_value[value][i]
                     30: ^if($value is date){
                     31:        ^value.sql-string[]
                     32: }{
                     33:        ^if($value is hash){
                     34:                ^for[i](0;$value-1){$value.$i}[,]
                     35:        }{
                     36:                $value
                     37:        }
                     38: }

E-mail: