Rim Chaabane. Analyse dynamique de ... - Université Paris 8

Analyse dynamique de programmes C
Annexe - V - Scripts awk
# formaterdata.awk
# --------------------------------------------------------
# Supprime la base de donnee pour ne garder que les données
# du programme a analyser
/codes_test\//,/EiC/ { print $0 }
# graph1.awk
# --------------------------------------------------------
# Genere les premieres lignes du fichier .dot
BEGIN { printf "digraph G { ranksep=.75; size=\"7.5,7.5\";\n{\nnode
[shape=plaintext, fontsize=16];\n" }
# { print }
$1 == "#" { printf "\"%s\" -> ", $2 }
END { printf "\"end\";\n}\n" }
# graph2.awk
# --------------------------------------------------------
# Genere l essentiel du fichier .dot
BEGIN { lastline = " " }
$1 == "main" { printf "{rank = same;\n\"%s:%s\"; \"#%s:%s\";\n}\n\n", $2, $3, $2,
$3
printf "\"#%s:%s\" [label=\"main-%s\", shape=box, color=red]\n", $2,
$3, $3
#printf "\"#%s:%s\" -> ", $2, $3
lastline = "\"#"$2":"$3"\""}
$1 == "Def" { if (lastline != " ") { printf "%s -> \"#%s:%s\"\n\n", lastline, $4,
$5
lastline = " " }
$3 }
printf "{rank = same;\n\"%s:%s\"; \"#%s:%s\";\n}\n", $4, $5, $4, $5
printf "\"#%s:%s\" [label=\"%s=%s\", color=green]\n\n", $4, $5, $2,
$1 == "Use" { printf "\"#%s:%s\" -> \"#%s:%s\"\n", $3, $4, $5, $6 }
$1 == "Call" { i = 4
if (lastline != " ") { printf "%s -> \"#%s:%s\"\n\n", lastline, $2, $3
lastline = "\"#"$2":"$3"\"" }
#printf "\"#%s:%s\"\n", $2, $3
printf "{rank = same;\n\"%s:%s\"; \"#%s:%s\";\n}\n", $2, $3, $2, $3
printf "\"#%s:%s\" [label=\"Call-%s\\n", $2, $3, $3
while (i \"#%s:%s\"\n\n", lastline, $4,
$5
lastline = "\"#"$4":"$5"\"" }
#printf "\"#%s:%s\"\n", $4, $5
98