Return to 096.html CVS log

Up to [parser3project] / parser3 / tests

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

1.4       misha       1: @main[]
                      2: ^test_exif[096_dir]
                      3: 
                      4: 
                      5: @test_exif[dir][file;image;keys]
                      6: $file[^file:list[$dir;\.(?i:jpe?g)^$]]
1.5     ! misha       7: ^file.sort{$file.name}
1.4       misha       8: <table border="1">
                      9: ^file.menu{
                     10:        <tr valign="top">
                     11:                $image[^image::measure[$dir/$file.name]]
                     12:                <td>^image.html[$.width(100)$.height(100)]</td>
                     13:                <td>
                     14:                        $file.name<hr>
                     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>
                     25:        </tr>
                     26: }
                     27: </table>
                     28: 
                     29: 
                     30: @show_exif_value[value][i]
                     31: ^if($value is date){
                     32:        ^value.sql-string[]
                     33: }{
                     34:        ^if($value is hash){
                     35:                ^for[i](0;$value-1){$value.$i}[,]
                     36:        }{
                     37:                $value
                     38:        }
                     39: }