Accorder un mot au singulier ou au pluriel selon une quantité
Procédure
proc plural {value singular plural} {
if { ($value >= 2) || ($value <= -2) } {
return $plural
} else {
return $singular
}
}
Exemples
set value 5
Tcl: 5
putlog "La recherche a donné $value [plural $value "résultat" "résultats"]"
Tcl: La recherche a donné 5 résultats
set value 1
Tcl: 1
putlog "La recherche a donné $value [plural $value "résultat" "résultats"]"
Tcl: La recherche a donné 1 résultat