/*
Copyright (c) 2016 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.

Author: Leonardo de Moura
*/
#include <string>
#include "util/interrupt.h"
#include "library/vm/vm_string.h"

namespace lean {
static void to_string(vm_obj const & o, std::string & s) {
    check_system("to_string");
    if (!is_simple(o)) {
        to_string(cfield(o, 1), s);
        s += static_cast<unsigned char>(cidx(cfield(o, 0)));
    }
}

std::string to_string(vm_obj const & o) {
    std::string r;
    to_string(o, r);
    return r;
}

vm_obj to_obj(std::string const & str) {
    vm_obj r = mk_vm_simple(0);
    for (unsigned i = 0; i < str.size(); i++) {
        vm_obj args[2] = { mk_vm_simple(static_cast<unsigned char>(str[i])), r };
        r = mk_vm_constructor(1, 2, args);
    }
    return r;
}
}