parser3/tests/096.html - diff

Return to 096.html CVS log

Up to [parser3project] / parser3 / tests

Diff for /parser3/tests/096.html between versions 1.3 and 1.4

-version 1.3, 2008/08/26 11:52:13
+version 1.4, 2009/04/30 05:18:59
  Line 1
  @main[]
  ^test_exif[096_dir]
  @test_exif[dir][file;image;keys]
  $file[^file:list[$dir;\.(?i:jpe?g)^$]]
- <table border="1">
+ ^file.sort($file.name)
- ^file.menu{
+ <table border="1">
-         <tr valign="top">
+ ^file.menu{
-                 $image[^image::measure[$dir/$file.name]]
+         <tr valign="top">
-                 <td>^image.html[$.width(100)$.height(100)]</td>
+                 $image[^image::measure[$dir/$file.name]]
-                 <td>
+                 <td>^image.html[$.width(100)$.height(100)]</td>
-                         $file.name<hr>
+                 <td>
-                         ^if($image.exif){
+                         $file.name<hr>
-                                 $keys[^image.exif._keys[]]
+                         ^if($image.exif){
-                                 ^keys.sort{$keys.key}
+                                 $keys[^image.exif._keys[]]
-                                 ^keys.menu{
+                                 ^keys.sort{$keys.key}
-                                         ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
+                                 ^keys.menu{
-                                 }[<br />]
+                                         ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
-                         }{
+                                 }[<br />]
-                                 no EXIF info<br />
+                         }{
-                         }
+                                 no EXIF info<br />
-                 </td>
+                         }
-         </tr>
+                 </td>
- }
+         </tr>
- </table>
+ }
+ </table>
- @show_exif_value[value][i]
- ^if($value is date){
+ @show_exif_value[value][i]
-         ^value.sql-string[]
+ ^if($value is date){
- }{
+         ^value.sql-string[]
-         ^if($value is hash){
+ }{
-                 ^for[i](0;$value-1){$value.$i}[,]
+         ^if($value is hash){
-         }{
+                 ^for[i](0;$value-1){$value.$i}[,]
-                 $value
+         }{
-         }
+                 $value
- }
+         }
+ }

E-mail:

Removed from v.1.3
changed lines
	Added in v.1.4