ajout de gconf_addline()

ulib/.ulib_version

@@ -1 +1 @@
-16
+17

ulib/conf

@@ -6,7 +6,7 @@ uprovide conf
 urequire base
 
 ################################################################################
-# Gestion des fichiers de configuratio où les directives sont de la forme
+# Gestion des fichiers de configuration où les directives sont de la forme
 # 'name=value' et où les commentaires débutent par '#'. C'est typiquement le cas
 # des scripts de profile du shell
 
@@ -342,7 +342,7 @@ function mconf_enable() {
     # convient pas pour les directives dont le nom peut apparaitre plusieurs
     # fois dans le fichier
     # Retourner 0 si une modification a été faite dans le fichier, 1 sinon
-    # Cette fonction nécessite gawk
+    # Cette fonction nécessite gawk et ignore la locale
     local conf="$1"; shift
     local section="$1"; shift
     [ -n "$*" ] || return 1
@@ -415,10 +415,10 @@ END {
   exit modified
 }"
 
-    ac_set_tmpfile tmpfile
+    local tmpfile; ac_set_tmpfile tmpfile
     local mode="$(fix_mode "$conf")"
     local modified=1
-    if <"$conf" >"$tmpfile" awk "$script"; then
+    if <"$conf" >"$tmpfile" cawk "$script"; then
         cat "$tmpfile" >"$conf"
         modified=0
     fi
@@ -437,7 +437,7 @@ function mconf_disable() {
     # noms sont recherchées et commentées. Si la directive ne figure pas dans le
     # fichier, c'est un NOP.
     # Retourner 0 si une modification a été faite dans le fichier, 1 sinon
-    # Cette fonction nécessite gawk
+    # Cette fonction nécessite gawk et ignore la locale
     local conf="$1"; shift
     local section="$1"; shift
     [ -n "$*" ] || return 1
@@ -473,10 +473,10 @@ END {
 }
 '
 
-    ac_set_tmpfile tmpfile
+    local tmpfile; ac_set_tmpfile tmpfile
     local mode="$(fix_mode "$conf")"
     local modified=1
-    if <"$conf" >"$tmpfile" awk "$script"; then
+    if <"$conf" >"$tmpfile" cawk "$script"; then
         cat "$tmpfile" >"$conf"
         modified=0
     fi
@@ -493,7 +493,7 @@ function mconf_append() {
     # Une ligne '$name = $value' est ajoutée à la fin de la section, qui est
     # créée si nécessaire à la fin du fichier de configuration
     # Retourner 0 si une modification a été faite dans le fichier, 1 sinon
-    # Cette fonction nécessite gawk
+    # Cette fonction nécessite gawk et ignore la locale
     local conf="$1"; shift
     local section="$1"; shift
     [ -n "$*" ] || return 1
@@ -542,10 +542,10 @@ END {
   exit modified
 }'
 
-    ac_set_tmpfile tmpfile
+    local tmpfile; ac_set_tmpfile tmpfile
     local mode="$(fix_mode "$conf")"
     local modified=1
-    if <"$conf" >"$tmpfile" awk "$script"; then
+    if <"$conf" >"$tmpfile" cawk "$script"; then
         cat "$tmpfile" >"$conf"
         modified=0
     fi
@@ -562,7 +562,7 @@ function mconf_check() {
     # configuration, et doit être de la forme name[=value]
     # Si une valeur est spécifiée, vérifier que le fichier contient la valeur
     # correspondante. Sinon, tester uniquement la présence de la directive.
-    # Cette fonction nécessite gawk
+    # Cette fonction nécessite gawk et ignore la locale
     local conf="$1"; shift
     local section="$1"; shift
     [ -n "$*" ] || return 1
@@ -607,5 +607,115 @@ END {
   }
   exit 0
 }"
-    <"$conf" awk "$script"
+    <"$conf" cawk "$script"
+}
+
+################################################################################
+# Gestion de fichiers de configuration générique
+
+function gconf_addline() {
+    # USAGE
+    #     gconf_addline configfile -a BEGIN -z END NEWLINE
+    # Dans le fichier de configuration $1, ajouter la ligne NEWLINE entre les lignes
+    # BEGIN et END.
+    # -a BEGIN
+    #     Spécifier une expression pour matcher une ligne de type BEGIN. Les
+    #     lignes sont matchées dans l'ordre, i.e. avec '-a 1 -a 2', il faut
+    #     d'abord trouver la ligne 1 puis la ligne 2, sinon, le test n'est pas
+    #     concluant.
+    # -t LINE
+    #     Si après avoir matché toutes les lignes BEGIN, la ligne LINE est
+    #     rencontrée, alors considérer que la ligne à rajouter existe déjà et
+    #     qu'il ne faut pas la rajouter de nouveau
+    # -r LINE
+    #     Si après avoir matché toutes les lignes BEGIN, la ligne LINE est
+    #     rencontrée, alors considérer que la ligne à rajouter existe et qu'il
+    #     faut la mettre à jour. Supprimer la ligne existante et la remplacer
+    #     par la nouvelle ligne.
+    # -z END
+    #     Spécifier une expression pour la matcher la ligne de type END. Dès que
+    #     cette ligne est rencontrée, et si aucun des tests -t ou -r n'est
+    #     concluant, alors ajouter la nouvelle ligne avant celle-ci
+    # Cette fonction nécessite gawk et ignore la locale
+
+    eval "$(utools_local)"
+    local -a beginlines newlines
+    local testline replaceline endline
+    parse_opts "${PRETTYOPTS[@]}" \
+        -a:,--begin: beginlines \
+        -t:,--test: testline= \
+        -r:,--replace: replaceline= \
+        -z:,--end: endline= \
+        @ args -- "$@" && set -- "${args[@]}" || {
+        eerror "$args"
+        return 1
+    }
+    conf="$1"; shift
+    [ -n "$conf" ] || {
+        eerror "Vous devez spécifier le fichier à modifier"
+        return 1
+    }
+    [ -f "$conf" ] || {
+        eerror "$conf: fichier introuvable"
+        return 1
+    }
+    [ $# -gt 0 ] || {
+        eerror "Vous devez spécifier la ligne à rajouter"
+        return 1
+    }
+    newlines=("$@")
+
+    # générer le script
+    local script="$(awkdef -f beginlines[@] testline="$testline" replaceline="$replaceline" endline="$endline" newlines[@])"'
+BEGIN {
+  searchindex = 1
+  found = 0
+  writeline = 1
+}
+function writelines_maybe() {
+  if (writeline) {
+    for (i = 1; i <= newlines_count; i++) {
+      print newlines[i]
+    }
+    writeline = 0
+  }
+}
+
+!found && searchindex <= length(beginlines) && $0 ~ beginlines[searchindex] {
+  searchindex++
+  if (searchindex > length(beginlines)) {
+    found = 1
+  }
+  print; next
+}
+found && testline != "" && $0 ~ testline {
+  writeline = 0
+  print; next
+}
+found && replaceline != "" && $0 ~ replaceline {
+  writelines_maybe()
+  next
+}
+found && endline != "" && $0 ~ endline {
+  writelines_maybe()
+  searchindex = 1
+  found = 0
+  writeline = 1
+  print; next
+}
+{ print }
+'
+    #edebug "$script"
+
+    # traiter le fichier
+    local tmpfile; ac_set_tmpfile tmpfile
+    local mode="$(fix_mode "$conf")"
+    local modified=1
+    if <"$conf" >"$tmpfile" cawk "$script"; then
+        cat "$tmpfile" >"$conf"
+        modified=0
+    fi
+    unfix_mode "$conf" "$mode"
+    ac_clean "$tmpfile"
+    return $modified
 }