créer une variable constante

[djkenny]

voici un petit script tout simple qui pourrait intéresser certain d'entre vous
Il sert à créer des variables constantes, c'est à dire qu'une foi créées elles ne peuvent être ni modifiées ni unset (read only)

j'ai écrit ce script d'après une source du wiki tcl.tk:
http://wiki.tcl.tk/1734

utilisation:
sourcer le fichier
namespace import ::const::*
const varName value
exemple:

tclcopier

const mavar 10

Code :

% const mavar 10
10
% set mavar 11
can't set "mavar": read-only variable
% return $mavar
10