Function OPS_SourceCmd

SRC/tcl/commands.cpp:1223–1263

}

int
OPS_SourceCmd(
    ClientData dummy,		/* Not used. */
    Tcl_Interp *interp,		/* Current interpreter. */
    int objc,			/* Number of arguments. */
    Tcl_Obj *CONST objv[])	/* Argument objects. */
{
    CONST char *encodingName = NULL;
    Tcl_Obj *fileName;
    
    if (objc != 2 && objc !=4) {
	Tcl_WrongNumArgs(interp, 1, objv, "?-encoding name? fileName");
	return TCL_ERROR;
    }

    fileName = objv[objc-1];

    if (objc == 4) {
	static CONST char *options[] = {
	    "-encoding", NULL
	};
	int index;

	if (TCL_ERROR == Tcl_GetIndexFromObj(interp, objv[1], options,
		"option", TCL_EXACT, &index)) {
	    return TCL_ERROR;
	}
	encodingName = Tcl_GetString(objv[2]);
    }

    const char *pwd = getInterpPWD(interp);
    const char *fileN = Tcl_GetString(fileName);

    simulationInfo.addInputFile(fileN, pwd);

#ifndef _TCL85
    return Tcl_EvalFile(interp, fileN);
#else
    return Tcl_FSEvalFileEx(interp, fileName, encodingName);
#endif
}

#ifdef _OPTIMIZATION