#!/bin/bash
# Initially wtrtten by Didier Spaier 2013
# Public domain
if [ $UID -eq 0 ]; then
  echo "Please execute this script as a regular user, not as root."
  exit
fi
DATESTAMP=`date -u +%Y%m%d`
TMP=./bof
ROOT=$(dirname "$0")
ROOT=`( cd "$ROOT" && cd .. && pwd )`
TOP=`( cd $ROOT && cd .. && pwd)`
export TEXTDOMAIN=slint
export TEXTDOMAINDIR=${ROOT}
PACKAGE_NAME=setup
POT=${ROOT}/wip/${PACKAGE_NAME}.pot
. gettext.sh
# Possibly creates a Work In Progress directory.
mkdir  -p ${ROOT}/wip
# This function requests a locale from the user.
# ${LOCALE} should be an ISO 639-1 two-letters language code, followed by
# an underscore "_" and an ISO 3166 two-letters country code (but no,
# we won't go as far as checking ${LOCALE} against these standards :-)
# We accept only locales for which an UTF-8 encoding is available.
get_locale () {
  dialog --no-collapse --title "`gettext " Which locale ? "`" \
  --inputbox "`gettext "Please type the locale code in \
the form ll_TT. For instance you would type:
nl_NL for Dutch as spoken in the Netherlands
pt_BR for Brazilian Portuguese
The locale should be available in your Linux system with an UTF-8 \
encoding"`" 12 80 2>$TMP/reply2
  LOCALE="`cat $TMP/reply2`"
  rm -f $TMP/reply2
  if [ -z $LOCALE ]; then
    return
  fi
  ERROR=""
  if [ "`locale -a|grep ${LOCALE}.utf8`" = "" ]; then
    ERROR="`eval_gettext "Sorry, locale \\\"\\\${LOCALE}.utf8\\\"  \
is not available in this Linux system."`"
    TITLE="`gettext " Locale unavailable "`"
  fi
  if [ ! "$ERROR" = "" ]; then
    dialog --title "$TITLE" --msgbox "$ERROR" 7 80
    get_locale
  fi
  export PO=${LOCALE}.${PACKAGE_NAME}.po
}
# Ihis function generates POT file in ${ROOT}/wip
# Strings to be localized are extracted from scripts in ${ROOT}/allsources
# which it first feed of internationalized scripts in all concerned editions
make_POT () {
  # --from-code=UTF-8 just in case, however improbable. Shouldn't hurt as
  # ASCII is a subset of UTF-8.
  # --foreign-user as we don't want the FSF copyright in the translations.
  # We will include in the template catalog strings extracted from files:
  # included in the ${TARGET}/source directory...
  # ... *and* listed in the lists of relevant files in ${TARGET}/files
  (
  cd ${ROOT}/scripts
  xgettext --from-code=UTF-8 -L Shell --force-po --strict -c -n \
  --package-name="$PACKAGE_NAME" --package-version="$DATESTAMP" \
  --foreign-user -d ${PACKAGE_NAME} -o $POT $(ls)
  )
  sed -i 's/charset=CHARSET/charset=UTF-8/' $POT
  eval_gettext "The POT file \${POT} has been generated."
  echo
}
# This function checks all source scripts. It warns whenever a string marked
# with *gettext is not extracted in the POT file, possibly due to a typo or
# the source script failing to comply to *gettext's requirements.
check_xtract () {
  rm -f $TMP/check_scripts.log
  touch $TMP/check_scripts.log
  make_POT
  rm -f ${TMP}/strings_to_be_extracted
  touch ${TMP}/strings_to_be_extracted
  ( cd ${ROOT}/scripts
  while read i; do
    grep -noHP 'gettext(?!.sh)' $i|sed 's/:gettext//' >> ${TMP}/strings_to_be_extracted
  done <<< `ls ${ROOT}/scripts` )
  previous="dummy:0"
  echo $previous >> ${TMP}/strings_to_be_extracted
  errors=0
  lines=0
  while read -r line; do
    if  [ "$line" = "$previous" ]; then
      previous=$line
      ((lines++))
      continue
    fi
    SCRIPT=${previous%:*}
    numline=${previous#*:}
    extracted=`grep -c " ${SCRIPT}, line: ${numline}"$ ${POT}`
    if [ ! ${lines} -eq ${extracted} ]; then
      eval_gettext "In script \$SCRIPT line #\$numline: \$lines but in POT file: \$extracted" >> $TMP/check_scripts.log
      echo  >> $TMP/check_scripts.log
      ((errors++))
    fi
    lines=1
    previous=$line
  done < ${TMP}/strings_to_be_extracted
  if [ $errors -eq 0 ]; then
      Result="`eval_gettext "Good, all messages from scripts in:
\\\${ROOT}/scripts
have been properly extracted in template catalog:
\\\${POT}"`"
  else
    Result="`eval_gettext "\\\$errors strings were not extracted in:
\\\${POT}
Check log file:
\\\$TMP/check_scripts.log"`"
  fi
}
# This function initializes a PO file for ${LOCALE} in ${ROOT}/wip.
init_PO () {
  if [ ! -f ${POT} ]; then
    make_POT
  fi
  msginit -l ${LOCALE}.utf8 -o ${ROOT}/wip/${PO} \
  -i ${ROOT}/wip/${PACKAGE_NAME}.pot
  eval_gettext "The PO file ${ROOT}/wip/${PO}
for the \"\${LOCALE}\" locale has been initialized."
}
# This function checks a PO file against the POT file.
check_PO () {
  if [ ! -f ${POT} ]; then
    make_POT
  fi
  msgcmp ${ROOT}/wip/${PO} \
  $POT 2>$TMP/foutput2
}
# This function generates a MO file in ${ROOT}/wip from a PO file
# in ${ROOT}/wip.
format_PO () {
  echo "Results of formatting command:
  " >$TMP/foutput
  MO=${LOCALE}.${PACKAGE_NAME}.mo
  msgfmt --strict -c -v --statistics \
  -o ${ROOT}/wip/${MO} \
  ${ROOT}/slint_po/${PO} 2>>$TMP/foutput
  echo "
If the command was successful, ${ROOT}/wip/${MO} \
has been generated." >>$TMP/foutput
}
format_PO_wip () {
  echo "Results of formatting command:
  " >$TMP/foutput
  MO=${LOCALE}.${PACKAGE_NAME}.mo
  msgfmt --strict -c -v --statistics \
  -o ${ROOT}/wip/${MO} \
  ${ROOT}/wip/${PO} 2>>$TMP/foutput
  echo "
If the command was successful, ${ROOT}/wip/${MO} \
has been generated." >>$TMP/foutput
}
# This function updates a PO file to follow up a modification of the
# reference POT file. The new file is written in ${ROOT}/wip.
merge_PO () {
  if [ ! -f ${POT} ]; then
    make_POT
  fi
  msgmerge --strict --add-location -v -o ${ROOT}/wip/${PO} \
  ${ROOT}/slint_po/${PO} ${POT} 2>$TMP/foutput
  echo >> $TMP/foutput
  eval_gettext "The new PO file \${ROOT}/slint_po/\${PO} is ready to \
be updated." >>$TMP/foutput
}
merge_all () {
  if [ ! -f ${POT} ]; then
    make_POT
  fi
  echo > $TMP/foutput
  ( cd $ROOT/slint_po
  for i in $(ls *po); do
    echo $i >> $TMP/foutput
    msgmerge --strict -v -o ${ROOT}/wip/$i \
    ${ROOT}/slint_po/$i ${POT} 2>>$TMP/foutput
    echo done >>$TMP/foutput
  done
  )
}
check_all () {
  if [ ! -f ${POT} ]; then
    make_POT
  fi
  ( cd $ROOT/slint_po
  for i in $(ls *po); do
    msgcmp ${ROOT}/wip/$i $POT 2>$ROOT/wip/err.$i
  done
  )
}
# Main
while [ 0 ]; do
  dialog --title "`gettext " Slint Toolbox "`" \
  --menu "`gettext "Welcome to the Slackware Internationalizer Toolbox.

Which option would you like?"`" 0 0 0 \
"Help" "`gettext "Help for using this menu"`" \
"Utilization" "`gettext "Purpose and utilization of the toolbox"`" \
"Workflows" "`gettext "Show tools in the context of their usage"`" \
"Documentation" "`gettext "Internationalization and localization of shell scripts"`" \
"make_POT" "`gettext "Generate a new POT file"`" \
"check_xtract" "`gettext "Check proper messages' extraction from scripts"`" \
"init_PO" "`gettext "Initialize a PO file for a given locale"`" \
"check_PO" "`gettext "Ensure that all messages be translated in a PO file"`" \
"check_all" "`gettext "Check all PO files"`" \
"format_PO" "`gettext "Generate a MO file for a given locale"`" \
"format_PO_wip" "`gettext "Generate a MO file for a given locale from \\\$ROOT/wip"`" \
"merge_PO" "`gettext "Update a PO file following an update of the POT file"`" \
"merge_all" "`gettext "Update all PO files following an update of the POT file"`" \
"Exit" "`gettext "Stop using this toolbox"`" 2> $TMP/reply
  if [ ! $? = 0 ]; then
    rm -f $TMP/reply
    dialog --clear
    clear
    exit
  fi
  REPLY="$(cat $TMP/reply)"
  rm -f $TMP/reply
# Help
  if [ "$REPLY" = "Help" ]; then
    dialog --title "`gettext " Help for using toolbox' menu "`" --no-collapse \
    --exit-label OK --msgbox "`cat ${ROOT}/docs/$REPLY`" 0 0
  fi
# Utilization
  if [ "$REPLY" = "Utilization" ]; then
    dialog --title "`gettext " Purpose and usage of each feature of the toolbox "`" --no-collapse \
    --exit-label OK --msgbox "`cat ${ROOT}/docs/$REPLY`" 0 0
  fi
# Workflows
  if [ "$REPLY" = "Workflows" ]; then
    dialog --title "`gettext " Show tools in the context of their usage "`" --no-collapse \
    --exit-label OK --msgbox "`cat ${ROOT}/docs/$REPLY`" 0 0
  fi
# Documentation
  if [ "$REPLY" = "Documentation" ]; then
    while [ ! -z $REPLY ]; do
    dialog --title "`gettext " Internationalization and localization of shell scripts "`" --menu \
    "`gettext "Which document would you like to read?

Use a mono-spaced font and an UTF-8 encoding for a proper display."`" 0 0 6 \
    "1_PRESENTATION" "`gettext "General presentation"`" \
    "2_DIAGRAMS" "`gettext "Processes diagrams"`" \
    "3_INTERNATIONALIZATION" "`gettext "Internationalization process"`" \
    "4_LOCALIZATION" "`gettext "Localization, usage and maintenance processes"`" \
    "5_MAINTAINERS" "`gettext "Recommendations for developpers and maintainers"`" \
    "6_TRANSLATORS" "`gettext "Recommendations for translators"`" \
    2>$TMP/reply
    REPLY="$(cat $TMP/reply)"
    rm -f $TMP/reply
    if [ ! -z $REPLY ]; then
      dialog --title "`gettext " Internationalization and localization of shell scripts "`" --no-collapse \
      --exit-label OK --msgbox "`cat ${ROOT}/docs/i18n_scripts/$REPLY`" 0 0
    fi
    done
  fi
# make_POT
  if [ "$REPLY" = "make_POT" ]; then
    make_POT
    Result="`$REPLY`"
    dialog --title "`gettext " Results the command \$REPLY "`" --msgbox \
    "`eval_gettext "\\\$Result"`" 0 0
  fi
# check_xtract
  if [ "$REPLY" = "check_xtract" ]; then
    check_xtract
    rm -f ${TMP}/strings_to_be_extracted
    dialog --title "`eval_gettext " Results of command \\\$REPLY \\\$SCRIPT"`" --msgbox \
    "`eval_gettext "\\\$Result"`"  0 0
  fi
# init_PO
  if [ "$REPLY" = "init_PO" ]; then
    get_locale
    if [ -z $LOCALE ]; then
      continue
    fi
    if [ -f ${ROOT}/slint_po/$PO -o -f ${ROOT}/wip/$PO ]; then
      dialog --title "`gettext " PO file already exists "`" --msgbox \
      "`eval_gettext "There is already a PO file \\\$PO in:
\\\${ROOT}/po
and/or in:
\\\${ROOT}/wip"`" 0 0
      continue
    fi
      Result="`init_PO "$LOCALE"`"
      dialog --title "`eval_gettext " Results of command \\\$REPLY \\\$LOCALE"`" --msgbox \
      "`eval_gettext "\\\$Result"`"  0 0
  fi
# check_PO
  if [ "$REPLY" = "check_PO" ]; then
    get_locale
    if [ -z $LOCALE ]; then
      continue
    fi
    if [ ! -f ${ROOT}/wip/$PO ]; then
      dialog --title "`gettext "No PO file to check"`" --msgbox \
      "`eval_gettext "There is no PO file \\\$PO in \
      \\\${ROOT}/wip"`" 0 0
      continue
    fi
    check_PO
    if [ -s $TMP/foutput1 ]; then
      dialog --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" --msgbox "`cat $TMP/foutput1`"  0 0
      rm -f $TMP/foutput1
    elif [ -s $TMP/foutput2 ]; then
      mv -f  $TMP/foutput2 ${TMP}/${REPLY}.${LOCALE}.log
      dialog \
      --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" \
      --no-collapse --exit-label OK --msgbox \
      "$(<${TMP}/${REPLY}.${LOCALE}.log)" 0 0
    else
      dialog \
      --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" \
      --no-collapse --exit-label OK --msgbox \
      "`eval_gettext "All messages in POT file:
\\\$POT
are translated in PO file:
\\${ROOT}/wip/${PO}
which could now be moved to ${ROOT}/po"`" 0 0
    fi
  fi
# format_PO
  if [ "$REPLY" = "format_PO" ]; then
    get_locale
    if [ -z $LOCALE ]; then
      continue
    fi
    if [ ! -f ${ROOT}/slint_po/$PO ]; then
      dialog --title "`gettext "No PO file to format"`" --msgbox \
      "`eval_gettext "There is no PO file \\\$PO to check in \
      \\\${ROOT}/po"`" 0 0
      continue
    fi
    $REPLY "$LOCALE"
    dialog --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" --msgbox "`cat $TMP/foutput`"  0 0
  fi
# format_PO_wip
  if [ "$REPLY" = "format_PO_wip" ]; then
    get_locale
    if [ -z $LOCALE ]; then
      continue
    fi
    if [ ! -f ${ROOT}/wip/$PO ]; then
      dialog --title "`gettext "No PO file to format"`" --msgbox \
      "`eval_gettext "There is no PO file \\\$PO to check in \
      \\\${ROOT}/wip"`" 0 0
      continue
    fi
    $REPLY "$LOCALE"
    dialog --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" --msgbox "`cat $TMP/foutput`"  0 0
  fi
# merge_PO
  if [ "$REPLY" = "merge_PO" ]; then
    get_locale
    if [ -z $LOCALE ]; then
      continue
    fi
    if [ -f ${ROOT}/wip/${PO} ]; then
      dialog --title "Already merged ?" --msgbox \
      "Please dispose of ${ROOT}/wip/${PO} before using the \"merge\" function. \
      Maybe this translation was complete and you forgot to move it to\
      ${ROOT}/po?" 0 0
      continue
    fi
    if [ ! -f ${ROOT}/slint_po/$PO ]; then
      dialog --title "`gettext "No PO file to merge"`" --msgbox \
      "`eval_gettext "There is no PO file \\\$PO to merge in \
      \\\${ROOT}/po"`" 0 0
      continue
    fi
    $REPLY "$LOCALE"
    dialog --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" --msgbox "`cat $TMP/foutput`"  0 0
    rm -f $TMP/foutput
  fi
# merge_all
  if [ "$REPLY" = "merge_all" ]; then
    EXISTING=$(find $ROOT/wip/ -name "*.po")
    if [ ! "$EXISTING" = "" ]; then
      dialog --title "Already merged ?" --msgbox \
      "Please dispose of $EXISTING before using the \"merge_all\" function." 0 0
      continue
    fi
    $REPLY
    dialog --title "`eval_gettext " Results of command: \\\$REPLY \\\$LOCALE"`" --msgbox "`cat $TMP/foutput`"  0 0
    rm -f $TMP/foutput
  fi
# check-all
  if [ "$REPLY" = "check_all" ]; then
    $REPLY
    dialog --title "`eval_gettext " Results of command: \\\$REPLY"`" --msgbox "See the results in $ROOT/wip"  0 0
  fi
# Exit
  if [ "$REPLY" = "Exit" ]; then
    dialog --clear
    rm -f ${TMP}/foutput* ${TMP}/reply* ${TMP}/*check
    clear
    echo "Thank you for having used this toolbox."
    echo
    exit
  fi
done