139
146
loaded. For example, adding the above function to the Tcl interpreter
140
147
requires code like the following :</p>
143
150
int Wrap_Init(Tcl_Interp *interp) {
144
151
Tcl_CreateCommand(interp, "fact", wrap_fact, (ClientData) NULL,
145
152
(Tcl_CmdDeleteProc *) NULL);
151
158
When executed, Tcl will now have a new command called "<tt>fact</tt>"