Token de tables et de champs

Un truc dont je ne sais pas encore bien à quoi il va me servir.
En l’état, j’avais besoin de tracer des choses dans une base où une grosse crise de renommages est en cours…
<code 4D>
//DB_tokenGet (unPointeur_p) -> txt
//retourne le token table ou champ tiré de unPointeur_p
//$1 peut être :
// pointeur table
// pointeur champ
// pointeur entier long, où le long peut être
// num table
// combo table+champ
C_TEXTE($0)
C_POINTEUR($1)
//_
Au cas ou
: (Nombre de paramètres<1)
//que dalle
: (Ptr_isField ($1))
$0:="[:"+Chaîne(Table($1))+"]:"+Chaîne(Champ($1))
: (Ptr_isTable ($1))
$0:="[:"+Chaîne(Table($1))+"]"
: (Ptr_isVar ($1;Est un entier long;Est un entier;Est un numérique))
C_ENTIER LONG($in_l;$Kcombo_l;$table_l;$champ_l)
$in_l:=$1->
$Kcombo_l:=10^5
Au cas ou
: ($in_l>=$Kcombo_l)
$table_l:=$in_l$Kcombo_l
$champ_l:=$in_l%$Kcombo_l
Au cas ou
: (Est un numéro de champ valide($table_l;$champ_l))
$0:="[:"+Chaîne($table_l)+"]:"+Chaîne($champ_l)
: (Est un numéro de table valide($table_l))
$0:="[:"+Chaîne($table_l)+"]"
Fin de cas
Sinon
Si (Est un numéro de table valide($in_l))
$0:="[:"+Chaîne($in_l)+"]"
Fin de si
Fin de cas
Fin de cas
//_
</code 4D>