/*
 * Copyright (C) 2016 Apple Inc. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE INC. OR
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
 * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 
 */
"use strict";

class NumberValue {
    constructor(value = 0)
    {
        this._value = value;
    }
    
    get value() { return this._value; }
    
    apply(state, parameters)
    {
        state.validate(parameters.length == 0, "Should not pass arguments to simple numeric variables");
        return this._value;
    }
    
    leftApply(state, parameters)
    {
        state.validate(parameters.length == 0, "Should not pass arguments to simple numeric variables");
        return this;
    }
    
    assign(value)
    {
        this._value = value;
    }
}

class NumberArray {
    constructor(dim = [11])
    {
        function allocateDim(index)
        {
            let result = new Array(dim[index]);
            if (index + 1 < dim.length) {
                for (let i = 0; i < dim[index]; ++i)
                    result[i] = allocateDim(index + 1);
            } else {
                for (let i = 0; i < dim[index]; ++i)
                    result[i] = new NumberValue();
            }
            return result;
        }
        
        this._array = allocateDim(0);
        this._dim = dim;
    }
    
    apply(state, parameters)
    {
        return this.leftApply(state, parameters).apply(state, []);
    }
    
    leftApply(state, parameters)
    {
        if (this._dim.length != parameters.length)
            state.abort("Expected " + this._dim.length + " arguments but " + parameters.length + " were passed.");
        let result = this._array;
        for (var i = 0; i < parameters.length; ++i) {
            let index = Math.floor(parameters[i]);
            if (!(index >= state.program.base) || !(index < result.length))
                state.abort("Index out of bounds: " + index);
            result = result[index];
        }
        return result;
    }
}

class NumberFunction {
    constructor(parameters, code)
    {
        this._parameters = parameters;
        this._code = code;
    }
    
    apply(state, parameters)
    {
        if (this._parameters.length != parameters.length)
            state.abort("Expected " + this._parameters.length + " arguments but " + parameters.length + " were passed");
        let oldValues = state.values;
        state.values = new Map(oldValues);
        for (let i = 0; i < parameters.length; ++i)
            state.values.set(this._parameters[i], parameters[i]);
        let result = this.code.evaluate(state);
        state.values = oldValues;
        return result;
    }
    
    leftApply(state, parameters)
    {
        state.abort("Cannot use a function as an lvalue");
    }
}

class NativeFunction {
    constructor(callback)
    {
        this._callback = callback;
    }
    
    apply(state, parameters)
    {
        if (this._callback.length != parameters.length)
            state.abort("Expected " + this._callback.length + " arguments but " + parameters.length + " were passed");
        return this._callback(...parameters);
    }
    
    leftApply(state, parameters)
    {
        state.abort("Cannot use a native function as an lvalue");
    }
}