/* Theoretic - Graph Theoretic Byte Code Engineering
 * Copyright (C) 2001-2002  Jay Freeman (saurik)
*/

/*
 *        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.
 * 3. The name of the author may not be used to endorse
 *    or promote products derived from this software
 *    without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 THE AUTHOR 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.
*/

#include "stdafx.h"

#include "theoretic/VObject.h"

namespace Theoretic {

    const VObjectPtr VNullObject;

    const std::wstring VBoolean::sfalse(L"false");
    const std::wstring VBoolean::strue(L"true");


    const OpList &VObject::opset() const {
        throw VObjectInvalidCastException();
    }


    VBoolean::VBoolean(bool value) :
        value(value)
    {}

    bool VBoolean::boolean() const {
        return value;
    }

    double VBoolean::num() const {
        return value ? 1.0 : 0.0;
    }

    std::wstring VBoolean::str() const {
        return value ? strue : sfalse;
    }


    VNumber::VNumber(double value) :
        value(value)
    {}

    bool VNumber::boolean() const {
        return !DoubleSupport::isNaN(value) && !DoubleSupport::equal(value, 0.0);
    }

    double VNumber::num() const {
        return value;
    }

    std::wstring VNumber::str() const {
        if (string.empty()) {
            wchar_t buff[32];
            _snwprintf(buff, 32, L"%.2f", value);
            string.assign(buff);
        }
        return string;
    }


    VString::VString(const std::wstring &value) :
        value(value)
    {}

    bool VString::boolean() const {
        return str().size() > 0;
    }

    double VString::num() const {
        return DoubleSupport::toDouble(str().c_str());
    }

    std::wstring VString::str() const {
        return value;
    }


    VOpSet::VOpSet(Operation *op) {
        ops.Append(op);
    }

    VOpSet::VOpSet(OpList &list) :
        ops(list)
    {}

    bool VOpSet::boolean() const {
        return ops.Size() != 0;
    }

    double VOpSet::num() const {
        return ops.Size();
    }

    std::wstring VOpSet::str() const {
        throw VObjectInvalidCastException();
    }

    const OpList &VOpSet::opset() const {
        return ops;
    }
}