tcl script to parse C++ source code for type identifiers
You are checking 5 times if $state equals to "start" and several times for the other "states". You should compact this and maybe a switch would be better.



You have a spelling error CheckIdnetifier which should be corrected.