Tcl_CreateObjCommand(interp, "compat", CompatCmd, NULL, NULL);
int Pextlib_Init(Tcl_Interp *interp){	if(Tcl_InitStubs(interp, "8.3", 0) == NULL)		return TCL_ERROR;	Tcl_CreateObjCommand(interp, "system", SystemCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "flock", FlockCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "readdir", ReaddirCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "strsed", StrsedCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "mkstemp", MkstempCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "mktemp", MktempCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "existsuser", ExistsuserCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "existsgroup", ExistsgroupCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "nextuid", NextuidCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "nextgid", NextgidCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "md5", MD5Cmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "xinstall", InstallCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "find", FindCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "filemap", FilemapCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "rpm-vercomp", RPMVercompCmd, NULL, NULL);	Tcl_CreateObjCommand(interp, "sha1", SHA1Cmd, NULL, NULL);	if(Tcl_PkgProvide(interp, "Pextlib", "1.0") != TCL_OK)		return TCL_ERROR;	return TCL_OK;}