Mozilla/mozilla/js2/src/js2op_access.cpp

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
*
* The contents of this file are subject to the Netscape Public
* License Version 1.1 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.mozilla.org/NPL/
*
* Software distributed under the License is distributed on an "AS
* IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
* implied. See the License for the specific language governing
* rights and limitations under the License.
*
* The Original Code is the JavaScript 2 Prototype.
*
* The Initial Developer of the Original Code is Netscape
* Communications Corporation.   Portions created by Netscape are
* Copyright (C) 1998 Netscape Communications Corporation. All
* Rights Reserved.
*
* Contributor(s):
*
* Alternatively, the contents of this file may be used under the
* terms of the GNU Public License (the "GPL"), in which case the
* provisions of the GPL are applicable instead of those above.
* If you wish to allow use of your version of this file only
* under the terms of the GPL and not to allow others to use your
* version of this file under the NPL, indicate your decision by
* deleting the provisions above and replace them with the notice
* and other provisions required by the GPL.  If you do not delete
* the provisions above, a recipient may use your version of this
* file under either the NPL or the GPL.
*/

    // Read a multiname property from a base object, push the value onto the stack
    case eDotRead:
        {
            LookupKind lookup(false, NULL);
            Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
            pc += sizeof(short);
            js2val baseVal = pop();
            js2val rval;
            if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &rval))
                meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
            push(rval);
        }
        break;

    // Write the top value to a multiname property in a base object, leave
    // the value on the stack top
    case eDotWrite:
        {
            js2val rval = pop();
            LookupKind lookup(false, NULL);
            Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
            pc += sizeof(short);
            js2val baseVal = pop();
            meta->writeProperty(baseVal, mn, &lookup, true, rval, RunPhase);
            push(rval);
        }
        break;

    // Read the multiname property, but leave the base and the value on the stack
    case eDotRef:
        {
            LookupKind lookup(false, NULL);
            Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
            pc += sizeof(short);
            js2val baseVal = top();
            js2val rval;
            if (!meta->readProperty(baseVal, mn, &lookup, RunPhase, &rval))
                meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn->name);
            push(rval);
        }
        break;

    // Read the multiname from the current environment, push it's value on the stack
    case eLexicalRead: 
        {
            Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
            pc += sizeof(short);
            push(meta->env.lexicalRead(meta, mn, phase));
	}
        break;

    // Write the top value to the multiname in the environment, leave
    // the value on the stack top.
    case eLexicalWrite: 
        {
            js2val rval = top();
            Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
            pc += sizeof(short);
            meta->env.lexicalWrite(meta, mn, rval, true, phase);
	}
        break;

    // Construct a reference pair consisting of a NULL base and the read value
    case eLexicalRef: 
        {
            Multiname *mn = bCon->mMultinameList[BytecodeContainer::getShort(pc)];
            pc += sizeof(short);
            js2val rval = meta->env.lexicalRead(meta, mn, phase);
            push(JS2VAL_NULL);
            push(rval);
	}
        break;

    // Read an index property from a base object, push the value onto the stack
    case eBracketRead:
        {
            LookupKind lookup(false, NULL);
            js2val indexVal = pop();
            js2val baseVal = pop();
            js2val rval;
            String *indexStr = toString(indexVal);
            Multiname mn(world.identifiers[*indexStr], meta->publicNamespace);
            if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &rval))
                meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
            push(rval);
        }
        break;

    // Write the top value to an index property in a base object, leave
    // the value on the stack top
    case eBracketWrite:
        {
            LookupKind lookup(false, NULL);
            js2val rval = pop();
            js2val indexVal = pop();
            js2val baseVal = pop();
            String *indexStr = toString(indexVal);
            Multiname mn(world.identifiers[*indexStr], meta->publicNamespace);
            meta->writeProperty(baseVal, &mn, &lookup, true, rval, RunPhase);
            push(rval);
        }
        break;

    // Leave the base object on the stack and push the property value
    case eBracketRef:
        {
            LookupKind lookup(false, NULL);
            js2val indexVal = pop();
            js2val baseVal = top();
            js2val rval;
            String *indexStr = toString(indexVal);
            Multiname mn(world.identifiers[*indexStr], meta->publicNamespace);
            if (!meta->readProperty(baseVal, &mn, &lookup, RunPhase, &rval))
                meta->reportError(Exception::propertyAccessError, "No property named {0}", errorPos(), mn.name);
            push(rval);
        }
        break;

    case eThis:
        {
            js2val rval = meta->env.findThis(true);
            if (JS2VAL_IS_INACCESSIBLE(rval))
                meta->reportError(Exception::compileExpressionError, "'this' not available", errorPos());
            push(rval);
        }
        break;