Let's create a Tcl command:
int Getpw_Init(Tcl_Interp *interp) { Tcl_CreateObjCommand(interp, "getpw", GetPW, NULL, (Tcl_CmdDeleteProc *)NULL); return TCL_OK; }