Return to 096.html CVS log

Up to [parser3project] / parser3 / tests

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

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)^$]]
        !             7: ^file.sort($file.name)
        !             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: }