SS Feb162004 - In the process of writing the GC for the references package, I needed to know what Tcl_Obj types aren't able to represent a valid reference. Numerical types are an example, but I wanted the full list of types defined inside the core. To reach the goal I wrote the little script at the end of the page, that I hope is sane enough to provide the full list.

This is the list of types defined in the .c and .h files under the /generic directory. For every type there is the C symbol name, and the name to pass to the Tcl_GetObjType function to get the pointer to the type stucture.

C Symbol	Name
tclByteArrayType	"bytearray"
tclByteCodeType	"bytecode"
tclDictType	"dict"
tclIndexType	"index"
tclListType	"list"
tclNsNameType	"nsName"
tclEnsembleCmdType	"ensembleCommand"
tclBooleanType	"boolean"
tclDoubleType	"double"
tclIntType	"int"
tclWideIntType	"wideInt"
tclCmdNameType	"cmdName"
tclFsPathType	"path"
tclProcBodyType	"procbody"
tclRegexpType	"regexp"
tclStringType	"string"
tclLocalVarNameType	"localVarName"
tclNsVarNameType	"namespaceVarName"
tclParsedVarNameType	"parsedVarName"

---

The following is the script used to get the list. Please report any bug of the script, or additional types defined in well known Tcl extensions!

 set files [glob {/home/antirez/SVC/tcltk/CVS/tcl/generic/*.[ch]}]
 append re {Tcl_ObjType\s+([A-z]+?)\s+=\s+}
 append re \{
 append re {\s+"([A-z]+?)"}
 foreach f $files {
     set fd [open $f]
     set text [read $fd]
     close $fd
     set types [regexp -all -inline $re $text]
     foreach {- cname name} $types {
        puts [format "%-20.20s \"%s\"" $cname $name]
     }
 }

DKF: Don't forget to list the types defined by Tk as well. And you might want to check for platform-specific types too.

---