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

1.4       misha       1: @main[]
                      2: ^test_exif[096_dir]
                      3: 
                      4: @test_exif[dir][file;image;keys]
                      5: $file[^file:list[$dir;\.(?i:jpe?g)^$]]
1.5       misha       6: ^file.sort{$file.name}
1.4       misha       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: