Return to 096.html CVS log

Up to [parser3project] / parser3 / tests

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

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