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.1.2.1 and 1.6

-version 1.1.2.1, 2003/03/04 12:38:16
+version 1.6, 2010/07/25 06:14:46
  Line 1
  @main[]
  ^test_exif[096_dir]
- @test_exif[dir]
+ @test_exif[dir][file;image;keys]
- $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]
+ $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>
-         $exif[$image.exif]
+                         $file.name<hr>
-         ^if($exif){
+                         ^if($image.exif){
-                 $keys[^exif._keys[]] ^keys.sort{$keys.key}
+                                 $keys[^image.exif._keys[]]
-                 ^keys.menu{
+                                 ^keys.sort{$keys.key}
-                         $key[$keys.key]
+                                 ^keys.menu{
-                         $value[$exif.$key]
+                                         ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
+                                 }[<br />]
-                         ${key}: <b>^show_exif_value[$value]</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.1.2.1
changed lines
	Added in v.1.6