34 lines
852 B
C++
34 lines
852 B
C++
/*
|
|
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;
|
|
}
|
|
}
|