/Users/paul/Documents/phlogo/core/FormatVerbs.cpp

/*
 *  PredicateVerbs.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 17 Aug 2011
 *
 */

#include "Verbs.h"

#include "Thing.h"
#include "World.h"
#include "TokenStream.h"

#include <sstream>
#include <boost/format.hpp>
#include <boost/lexical_cast.hpp>

using namespace std;
using namespace boost;

namespace phlogo {
    
void Verbs::form(TokenStream *ts) {

    pThing t = getThing(ts);
    long width = getLong(ts);
    
    stringstream ss;
    if (width >= 0) {
        long precision = getLong(ts);
        stringstream fss;
        fss << format("%%%s.%sf") % width % precision;
        ss << format(fss.str()) % t->asDouble();
    }
    else {
        string f = getWord(ts);
        
        if (t->isWord()) {
            string s = t->getWord();
            try {
                ss << format(f) % lexical_cast<long>(s);
            }
            catch (bad_cast &x) {
                try {
                    ss << format(f) % lexical_cast<double>(s);
                }
                catch (bad_cast &x) {
                    ss << format(f) % s;
                }
            }
        }
        else if (t->isLong())
            ss << format(f) % t->getLong();
        else if (t->isDouble())
            ss << format(f) % t->getDouble();
        else
            ss << format(f) % t->str();
    }
    
    setStringResult(ss.str());
}    

}