/* 
 * tclCompExpr.c --
 *
 *	This file contains the code to compile Tcl expressions.
 *
 * Copyright (c) 1997 Sun Microsystems, Inc.
 * Copyright (c) 1998-2000 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclCompExpr.c,v 1.25.4.2 2005/03/13 13:57:34 msofer Exp $
 * RCS: @(#) $Id: tclCompExpr.c,v 1.25.4.3 2005/03/19 18:26:38 msofer Exp $
 */

#include "tclInt.h"
#include "tclCompile.h"

/*
 * The stuff below is a bit of a hack so that this file can be used in

	TclEmitPush(TclRegisterNewLiteral(envPtr, "1", 1), envPtr);
    }

    TclSetJumpTarget(envPtr, endOffset);
    *endPtrPtr = tokenPtr;

    done:
    envPtr->currStackDepth = savedStackDepth + 1;
    TclSetStackDepth((savedStackDepth+1), envPtr);
    return code;
}

/*
 *----------------------------------------------------------------------
 *
 * CompileCondExpr --

    
    TclSetJumpTarget(envPtr, jumpAroundThenOffset);

    /*
     * Compile the "else" expression.
     */

    envPtr->currStackDepth = savedStackDepth;
    TclSetStackDepth((savedStackDepth), envPtr);
    elseCodeOffset = (envPtr->codeNext - envPtr->codeStart);
    infoPtr->hasOperators = 0;
    code = CompileSubExpr(tokenPtr, infoPtr, envPtr);
    if (code != TCL_OK) {
	goto done;
    }
    tokenPtr += (tokenPtr->numComponents + 1);
    if (!infoPtr->hasOperators) {
	TclEmitInst0(INST_TRY_CVT_TO_NUMERIC, envPtr);
    }

    /*
     * Fix up the second jump around the "else" expression.
     */

    TclSetJumpTarget(envPtr, jumpAroundElseOffset);
    *endPtrPtr = tokenPtr;

    done:
    envPtr->currStackDepth = savedStackDepth + 1;
    TclSetStackDepth((savedStackDepth+1), envPtr);
    return code;
}

/*
 *----------------------------------------------------------------------
 *
 * CompileMathFuncCall --

	 */

	if (envPtr->maxStackDepth < envPtr->currStackDepth) {
	    envPtr->maxStackDepth = envPtr->currStackDepth;
	}
	TclEmitInst1(INST_CALL_BUILTIN_FUNC,
	        mathFuncPtr->builtinFuncIndex, envPtr);
	envPtr->currStackDepth -= mathFuncPtr->numArgs;
	TclAdjustStackDepth(-mathFuncPtr->numArgs, envPtr);
    } else {
	TclEmitInst1(INST_CALL_FUNC, (mathFuncPtr->numArgs+1), envPtr);
    }
    *endPtrPtr = afterSubexprPtr;

    done:
    return code;