Tcl Source Code

 *	Depends on the commands in the file. During the evaluation of the
 *	contents of the file, iPtr->scriptFile is made to point to pathPtr
 *	(the old value is cached and replaced when this function returns).
 *
 *----------------------------------------------------------------------
 */
















int
Tcl_FSEvalFileEx(
    Tcl_Interp *interp,		/* Interpreter in which to process file. */
    Tcl_Obj *pathPtr,		/* Path of file to process. Tilde-substitution
				 * will be performed on this name. */
    const char *encodingName)	/* If non-NULL, then use this encoding for the
				 * file. NULL means use the system encoding. */
{
    int length, result = TCL_ERROR;
    Tcl_StatBuf statBuf;
    Tcl_Obj *oldScriptFile;
    Interp *iPtr;
    Tcl_Encoding encoding = NULL;

    char *string;
    int len;
    Tcl_Channel chan;
    Tcl_Obj *objPtr;

    if (Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL) {
	return result;
    }

     * The eofchar is \32 (^Z). This is the usual on Windows, but we effect
     * this cross-platform to allow for scripted documents. [Bug: 2040]
     */

    Tcl_SetChannelOption(interp, chan, "-eofchar", "\32");

    /*
     * Set channel encoding to utf-8 to read first characters (BOM char?).

     */


    if (Tcl_SetChannelOption(interp, chan, "-encoding", "utf-8")
	    != TCL_OK) {
	Tcl_Close(interp,chan);
	return result;














    }

    objPtr = Tcl_NewObj();
    Tcl_IncrRefCount(objPtr);
    /* Try to read first 4 characters of stream in utf-8, so we can
     * check for utf-8 BOM to be handled especially. [Bug 3466099]
     */
    if (Tcl_ReadChars(chan, objPtr, 4, 0) < 0) {
	Tcl_Close(interp, chan);
	Tcl_AppendResult(interp, "couldn't read file \"",
		Tcl_GetString(pathPtr), "\": ", Tcl_PosixError(interp), NULL);
	goto end;
    }
    string = TclGetStringFromObj(objPtr, &len);
    /*
     * If first characters is not a BOM, convert it to given or system encoding.

     */
    if (len < 3 || memcmp(string, "\xef\xbb\xbf", 3) != 0) {
	Tcl_DString ds;
	
	/*
	 * If the encoding is not specified, set it to the system encoding,
	 * hereafter, bypass utf-8, otherwise set it to the channel.
	 * Report error on unknown encoding.
	 */
	if (encodingName == NULL || *encodingName == 0) {
	    encodingName = Tcl_GetEncodingName(NULL);
	}
	if (strcmp(encodingName, "utf-8") != 0) {
	    if (Tcl_SetChannelOption(interp, chan, "-encoding", encodingName)
		    != TCL_OK) {
		Tcl_Close(interp, chan);
		goto end;
	    }

	    /* 
	     * Convert first char from utf-8 (as it were binary) to 
	     * encoding 'encodingName'.
	     */
	    encoding = Tcl_GetEncoding(interp, encodingName);
	    if (encoding == NULL) {
		Tcl_Close(interp, chan);
		goto end;
	    };

	    string = (char *) Tcl_GetByteArrayFromObj(objPtr, &len);
	    Tcl_ExternalToUtfDString(encoding, string, len, &ds);

	    Tcl_DecrRefCount(objPtr);
	    objPtr = Tcl_NewStringObj(
		    Tcl_DStringValue(&ds), Tcl_DStringLength(&ds));
	    Tcl_IncrRefCount(objPtr);
	    Tcl_DStringFree(&ds);
	};
    } else if (len >= 1) {
	/*
	 * Remove BOM characters.
	 */
	Tcl_Obj * newPtr = Tcl_NewStringObj(string+3, len-3);
	Tcl_DecrRefCount(objPtr);
	objPtr = newPtr;
	Tcl_IncrRefCount(objPtr);
    }
    /*
     * Append the remaining characters read from channel.
     */
    if (Tcl_ReadChars(chan, objPtr, -1, 1) < 0) {
	Tcl_Close(interp, chan);
	Tcl_AppendResult(interp, "couldn't read file \"",
		Tcl_GetString(pathPtr), "\": ", Tcl_PosixError(interp), NULL);
	goto end;
    }

		"\n    (file \"%.*s%s\" line %d)",
		(overflow ? limit : length), pathString,
		(overflow ? "..." : ""), interp->errorLine));
    }

  end:
    Tcl_DecrRefCount(objPtr);
    if (encoding != NULL)
	Tcl_FreeEncoding(encoding);

    return result;
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_GetErrno --