nutools/uawk

#!/bin/bash
# -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8

TOOLS=(awkrun awkcsv grepcsv awkfsv2csv awkcsv2fsv mergecsv sortcsv dumpcsv printcsv)
if [ "$#" -eq 1 -a "$1" == --nutools-makelinks ]; then
    # créer les liens
    scriptname="$(basename "$0")"
    for tool in "${TOOLS[@]}"; do
        ln -s "$scriptname" "$tool"
        ln -s "$scriptname" "l$tool"
    done
    exit 0
fi

source "$(dirname "$0")/lib/ulib/ulib" || exit 1
urequire DEFAULTS awk

# si on lance le script avec le nom uawk, il faut spécifier l'outil à
# utiliser
if [ "$scriptname" == uawk ]; then
    if [ $# -eq 1 -a "$1" == --help ]; then
        exit_with uecho "$scriptname: wrapper pour des outils implémentés en awk

USAGE
    $scriptname TOOL args...

Les noms d'outils valides sont: ${TOOLS[*]}
Utiliser l'option --help pour obtenir de l'aide sur chacun des outils"
    fi
    scriptname="$1"
    shift
fi

# choix de la version des scripts: tient compte de la locale ou non
tool="${scriptname#l}"
if [ "$tool" != "$scriptname" ]; then
    toolprefix=l
    prefix=l
    Clang=
else
    toolprefix=
    prefix=c
    Clang=1
fi

# Aliases pour les noms d'outils
case "$tool" in
run) tool=awkrun; toolprefix=; prefix=c; Clang=1;;
lrun) tool=awkrun; toolprefix=l; prefix=l; Clang=;;
csv) tool=awkcsv; toolprefix=; prefix=c; Clang=1;;
lcsv) tool=awkcsv; toolprefix=l; prefix=l; Clang=;;
grep) tool=grepcsv; toolprefix=; prefix=c; Clang=1;;
lgrep) tool=grepcsv; toolprefix=l; prefix=l; Clang=;;
fsv2csv|fsv) tool=awkfsv2csv; toolprefix=; prefix=c; Clang=1;;
lfsv2csv|lfsv) tool=awkfsv2csv; toolprefix=l; prefix=l; Clang=;;
csv2fsv) tool=awkcsv2fsv; toolprefix=; prefix=c; Clang=1;;
lcsv2fsv) tool=awkcsv2fsv; toolprefix=l; prefix=l; Clang=;;
merge) tool=mergecsv; toolprefix=; prefix=c; Clang=1;;
lmerge) tool=mergecsv; toolprefix=l; prefix=l; Clang=;;
sort) tool=sortcsv; toolprefix=; prefix=c; Clang=1;;
lsort) tool=sortcsv; toolprefix=l; prefix=l; Clang=;;
dump) tool=dumpcsv; toolprefix=; prefix=c; Clang=1;;
ldump) tool=dumpcsv; toolprefix=l; prefix=l; Clang=;;
esac
scriptname="$toolprefix$tool"

if [ "$tool" == "awkrun" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: wrapper autour de awk rajoutant des fonctions supplémentaires
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [var=value...] script [-- inputfiles...]

Lancer awk avec un script préparé de la manière spécifiée ci dessous.

$__AWKDEF_HELP"

    "${prefix}awkrun" -f "$@"

elif [ "$tool" == "awkcsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: wrapper autour de awk pour traiter des fichier csv
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [-b before] -e script [-a after] -- [headers...] [-- inputfiles...]

$__AWKCSV_HELP"

    "${prefix}awkcsv" "$@"

elif [ "$tool" == "grepcsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: wrapper autour de awk pour rechercher des lignes d'un fichier csv
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname EXPR [inputfiles...] [-- headers...]

$__GREPCSV_HELP"

    "${prefix}grepcsv" "$@"

elif [ "$tool" == "awkfsv2csv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: wrapper autour de awk pour transformer un fichier à colonnes fixes en fichier csv
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [options] -- [header:size,...] [-- inputfiles...]

$__AWKFSV2CSV_HELP"

    "${prefix}awkfsv2csv" "$@"

elif [ "$tool" == "awkcsv2fsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: wrapper autour de awk pour transformer un fichier à colonnes fixes en fichier csv
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [options] -- [field:size,...] [-- inputfiles...]

$__AWKCSV2FSV_HELP"

    "${prefix}awkcsv2fsv" "$@"

elif [ "$tool" == "mergecsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: fusionner deux fichiers csv sur un champ commun
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [options] left right -k field

$__MERGECSV_HELP"

    "${prefix}mergecsv" "$@"

elif [ "$tool" == "sortcsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: trier un fichier csv sur un champ
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [options] input -k field

$__SORTCSV_HELP"

    "${prefix}sortcsv" "$@"

elif [ "$tool" == "dumpcsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: afficher les champs d'un flux CSV pour traitement par le shell
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [options] fields...

$__DUMPCSV_HELP"

    "${prefix}dumpcsv" "$@"

elif [ "$tool" == "printcsv" ]; then
    [ $# -eq 1 -a "$1" == --help ] && exit_with uecho "$scriptname: afficher des champs au format CSV
${Clang:+note: ce script ne tient pas compte de la locale: il travaille avec LANG=C
}
USAGE
    $scriptname [options] values...

$__PRINTCSV_HELP"

    "${prefix}printcsv" "$@"

elif [ -n "$scriptname" ]; then
    die "$scriptname: nom d'outil invalide"

else
    die "Vous devez spécifier l'outil à utiliser"
fi