--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/translations/check-ts.xq	Wed Aug 18 10:37:55 2010 +0300
@@ -0,0 +1,3 @@
+for $file in tokenize($files, codepoints-to-string(10))
+    let $fresh := doc($file)/TS/context/message[not (translation/@type = 'obsolete')]
+    return concat($file, ":", count($fresh/translation[not (@type = 'unfinished')]) * 100 idiv count($fresh))