Discussion :

[Olistan]

Hello à tous,

J'essaye de formater des données venant d'un fichier pour générer une documentation automatique. Pour cela, il me faut, entre les tags '\code' et '\endcode' retirer le nombre de caractères blancs qu'il y a avant le mot clé '\code', et ce sur toutes les lignes du bloc, donc en conservant les indentations éventuelles au sein de celui-ci.

Par exemple, j'ai en entrée (les '^' représentent les espaces blancs en début de ligne):

toto1
^^toto2
^^^^toto3
^^^^\code
^^^^Keyword =
^^^^{
^^^^^^key1 = toto4; // Comment
^^^^}
^^^^\endcode

Je voudrais en sortie:

toto1
^^toto2
^^^^toto3
\code
Keyword =
{
^^key1 = toto4; // Comment
}
\endcode

Merci pour votre aide !

[jmelyn]

Personne pour ce petit bout de code? Voici quelque chose qui semble fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
awk '
{
  if ($0 ~ /\\code/) {inside=1; indent=match($0, "[^ ]")}
  if (inside == 1) {$0=substr($0, indent)}
  if ($0 ~ /\\endcode/) {inside=0}
  print
}' file_in > file_out

[N_BaH]

Personne pour ce petit bout de code?

Si, si... un petit problème pour restituer les lignes qui commencent par des espaces.
(sinon la démarche est, en gros, la même)

Soit, on ne définit pas de nom pour la variable (comme ici), soit, il faut fixer à IFS='' (while IFS='' read var; do\#...)

Code bash :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/bin/bash

repR=$(sed -n '/\\code/p' fichier.in)
index=$(expr index "$repR" "\\")

while read -r ; do
   if [ "$REPLY" = " *\code$" ]; then
      ch=1
   elif [ "$REPLY" = " *\endcode$" ]; then
      ch=0
   fi
   if [ ${ch:-0} = 1 ]; then
      echo "${REPLY:$index-1}"
   else
      echo "$REPLY"
   fi
done < fichier.in

versionCourte() {
repR=$(sed -n '/\\code/p' fichier.in)
index=$(expr index "$repR" "\\")
while read -r 
 do
   [ "$REPLY" = " *\code$" ] && ch=1
   [ "$REPLY" = " *\endcode$" ] && ch=0
   [ ${ch:-0} = 1 ] && echo "${REPLY:$index-1}" || echo "$REPLY"
done < fichier.in
}

[Olistan]

OK, merci beaucoup.

J'ai d'abord testé avec succès le script de jmelyn. Tout semble fonctionner; Par contre, je ne vois pas quel est le petit souci évoqué par N_BaH... Tout semble bien se passer pour les lignes commençant par des espaces.

[jmelyn]

Bonjour N_BaH,

D'abord, la solution que tu décris oblige à deux passages: le premier pour déterminer la tabulation à soustraire, puis le second pour le traitement; ce qui est long, notamment pour les gros fichiers. Mais le principal problème est qu'il pourrait y avoir plusieurs blocs "\code" - "\endcode" dans le fichier. Dans ce cas, il faut traiter chaque instance séparément, ce que tu ne fais pas.

Ensuite, le code ne fonctionne pas tel quel, il y a plusieurs erreurs (j'ai pris la version courte):
La recherche des balises "\code" et "\endcode" devrait être écrite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[[ "$REPLY" =~ " *\\code$" ]]...
[[ "$REPLY" =~ " *\\endcode$" ]]...

Il reste que le flag (drapeau) pour la balise "\endcode" doit faire partie du bloc: avec décalage. Or tu fais basculer le drapeau avant d'imprimer, donc la balise "\endcode" ne sera pas décalée comme elle devrait être. La solution est de placer le traitement de cette balise après l'impression.

Le résultat donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
#!/bin/bash
 
repR=$(sed -n '/\\code/p' fichier.in)
index=$(expr index "$repR" "\\")
while read -r
do
  [[ "$REPLY" =~ " *\\code$" ]] && ch=1
  [ ${ch:-0} = 1 ] && echo "${REPLY:$index-1}" || echo "$REPLY"
  [[ "$REPLY" =~ " *\\endcode$" ]] && ch=0
done < fichier.in > fichier.out

Bravo pour l'aide régulière que tu apportes ici.

[ripat]

Variante awk:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
awk '
  /\\code/{offset=length($0)-4}
  /\\code/,/\\endcode/{print substr($0,offset)}
' file

[jmelyn]

Heu, ripat... vraiment?

Si tu mets des patterns, ce qui ne correspond pas ne sera pas imprimé, donc ici ce qui est hors des balises disparaît. Une version corrigée donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
awk '
  /\\code/    {offset=length($0)-4}
  offset == 0 {print}
  offset != 0 {print substr($0,offset)}
  /\\endcode/ {offset=0}
' file_in > file_out

Attention, le 4e pattern doit se trouver après le 3e, sinon la balise "\endcode" ne sera pas imprimée.