Status of dpkg translations (Was: Re: Next upload 2008-11-17 (dpkg 1.14.23))

[Guillem Jover <guillem@debian.org>]

On Fri, 2008-11-14 at 11:22:34 +0200, Guillem Jover wrote:
> For translators:
> 
> I'm sorry but I had to add a new string due to the RC bug. On the other
> hand it should rarely be seen so it's not that important if you cannot
> make it. In case the upload is too soon and you'd need some more days,
> please tell, we can always delay it a bit. Updates should go either to
> the lenny branch or to the BTS.

Just to make it easier for translators I just quickly extended a small
script I had around (attached in case someone is interested) to create
a status table:

Lang/Section  dselect/po    man/po        po            scripts/po
──────────────────────────────────────────────────────────────────
bs            62t3f223u                   12t17f957u
ca            275t10f3u                   981t2f3u      17t43f413u
cs            288t                        985t1u
da            275t10f3u                   899t58f29u
de            288t          1595t6u       986t          473t
dz                                        873t81f32u
el            267t13f8u                   985t1u
es            275t10f3u     35t1091f475u  899t58f29u
et            237t1f50u                   491t65f430u
eu            283t3f2u                    985t1u
fr            288t          1601t         985t1u        472t1f
gl            275t10f3u                   985t1u
hu            192t5f91u     106t297f1198u 817t86f83u
id            275t10f3u                   624t199f163u
it            275t10f3u                   858t93f35u
ja            275t10f3u     630t434f537u  985t1u
km                                        858t93f35u
ko            283t3f2u                    985t1u
ku                                        122t30f834u
lt                                        626t54f306u
mr                                        830t121f35u
nb            275t10f3u                   985t1u
ne                                        873t81f32u
nl            288t                        871t82f33u
nn            267t13f8u                   623t200f163u
pa                                        181t51f754u
pl            288t          1597t4f       985t1u        472t1f
pt            283t3f2u                    985t1u
pt_BR         288t          94t473f1034u  985t1u
ro            288t                        985t1u
ru            288t          220t413f968u  985t1u        473t
sk            288t                        985t1u
sv            288t          1601t         985t1u        473t
th                                        984t2u
tl            267t13f8u                   624t199f163u
vi            275t10f3u                   985t1u
zh_CN         275t10f3u                   985t1u
zh_TW         267t13f8u                   858t93f35u


thanks,
guillem

#!/bin/sh
#
# po-stats: Generate a po stats table
#
# Copyright © 2007, 2008 Guillem Jover <guillem@hadrons.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#

set -e

condense()
{
  sed -r \
    -e 's:[,.] *::g' \
    -e 's: translated messages?:t:' \
    -e 's: fuzzy translations?:f:' \
    -e 's: untranslated messages?:u:'
}

po_stats_files()
{
  files="$@"

  for f in $files; do
    dir=$(dirname "$f" | sed -e 's:^\./::')
    lang=$(basename "$f" .po)
    echo -n "$lang:$dir:"
    msgfmt -c --statistics -o /dev/null $f 2>&1 | condense
  done
}

get_table_item()
{
  item=$1

  echo "$table" | grep "^$item" | cut -d: -f 3
}

print_col()
{
  col=$1

  printf "%-14s" $col
}

print_line()
{
  max_x=$1

  for x in $(seq 1 $max_x); do
    printf "─"
  done
  echo
}

print_heading()
{
  cols="$@"

  print_col "Lang/Section"
  for c in $cols; do
    print_col $c
  done
  echo
}

topdir="$1"

if [ -d "$topdir" ]; then
  cd $topdir
else
  echo "error: no directory dir specified." >&2
  exit 1
fi

files=$(find -type f -name '*.po')
table=$(po_stats_files $files | sort)
rows=$(echo "$table" | cut -d: -f1 | sort -u)
cols=$(echo "$table" | cut -d: -f2 | sort -u)

print_heading $cols
print_line 66

# Print the table
for r in $rows; do
  print_col $r
  for c in $cols; do
    print_col $(get_table_item $r:$c)
  done
  echo
done