@main[]
^1251[]
^test_exif[096_dir]

@test_exif[dir][file;image;keys]
$file[^file:list[$dir;\.(?i:jpe?g)^$]]
^file.sort{$file.name}
<table border="1">
^file.menu{
	<tr valign="top">
		$image[^image::measure[$dir/$file.name; $.exif(true) $.xmp(true) ]]
		<td>^image.html[$.width(100)$.height(100)]</td>
		<td>
			$file.name<hr/>
			^if($image.exif){
				$keys[^image.exif._keys[]]
				^keys.sort{$keys.key}
				^keys.menu{
					${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
				}[<br />]
			}{
				no EXIF info<br />
			}
		</td>
		<td>
			XMP<hr/> <pre>$image.xmp</pre>
		</td>
	</tr>
}
</table>

@show_exif_value[value][i]
^if($value is date){
	^value.sql-string[]
}{
	^if($value is hash){
		^for[i](0;$value-1){$value.$i}[,]
	}{
		$value
	}
}