Annotation of parser3/tests/096.html, revision 1.7
1.7 ! misha 1: @main[]
! 2: ^test_exif[096_dir]
! 3:
! 4: @test_exif[dir][file;image;keys]
! 5: $file[^file:list[$dir;\.(?i:jpe?g)^$]]
! 6: ^file.sort{$file.name}
! 7: <table border="1">
! 8: ^file.menu{
! 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>
! 25: }
! 26: </table>
! 27:
! 28: @show_exif_value[value][i]
! 29: ^if($value is date){
! 30: ^value.sql-string[]
! 31: }{
! 32: ^if($value is hash){
! 33: ^for[i](0;$value-1){$value.$i}[,]
! 34: }{
! 35: $value
! 36: }
! 37: }
E-mail: