typedef serializer super;

ostream& out;

actor_namespace m_namespace;

struct pt_writer {

ostream& out;

bool suppress_quotes;

pt_writer(ostream& mout, bool suppress = false) : out(mout), suppress_quotes(suppress) { }

template<typename T>

void operator()(const T& value) {

out << value;

}

// make sure char's are treated as int8_t number, not as character

inline void operator()(const char& value) {

out << static_cast<int>(value);

}

// make sure char's are treated as int8_t number, not as character

inline void operator()(const unsigned char& value) {

out << static_cast<unsigned int>(value);

}

void operator()(const string& str) {

if (!suppress_quotes) out << "\"";

for (char c : str) {

if (c == '"') out << "\\\"";

else out << c;

}

if (!suppress_quotes) out << "\"";

}

void operator()(const u16string&) { }

void operator()(const u32string&) { }

void operator()(const atom_value& value) {

out << "'" << to_string(value) << "'";

}

};

bool m_after_value;

bool m_obj_just_opened;

stack<size_t> m_object_pos;

stack<string> m_open_objects;

inline void clear() {

if (m_after_value) {

out << ", ";

m_after_value = false;

}

else if (m_obj_just_opened) {

if (!m_open_objects.empty() && !isbuiltin(m_open_objects.top())) {

out << " ( ";

}

m_obj_just_opened = false;

}

}

public:

string_serializer(ostream& mout)

: super(&m_namespace), out(mout), m_after_value(false)

, m_obj_just_opened(false) { }

void begin_object(const uniform_type_info* uti) {

clear();

std::string tname = uti->name();

m_open_objects.push(tname);

// do not print type names for strings and atoms

if (!isbuiltin(tname)) out << tname;

else if (tname.compare(0, 3, "@<>") == 0) {

auto subtypes = util::split(tname, '+', false);

}

m_obj_just_opened = true;

}

void end_object() {

if (m_obj_just_opened) {

// no open brackets to close

m_obj_just_opened = false;

}

m_after_value = true;

if (!m_open_objects.empty()) {

if (!isbuiltin(m_open_objects.top())) {

out << (m_after_value ? " )" : ")");

}

m_open_objects.pop();

}

}

void begin_sequence(size_t) {

clear();

out << "{ ";

}

void end_sequence() {

out << (m_after_value ? " }" : "}");

m_after_value = true;

}

void write_value(const primitive_variant& value) {

clear();

if (m_open_objects.empty()) {

throw runtime_error("write_value(): m_open_objects.empty()");

}

value.apply(pt_writer(out));

m_after_value = true;

}

void write_tuple(size_t size, const primitive_variant* values) {

clear();

out << "{";

const primitive_variant* end = values + size;

for ( ; values != end; ++values) {

write_value(*values);

}

out << (m_after_value ? " }" : "}");

}

void write_raw(size_t num_bytes, const void* buf) {

clear();

auto first = reinterpret_cast<const unsigned char*>(buf);

auto last = first + num_bytes;

out << hex;

out << setfill('0');

for (; first != last; ++first) {

out << setw(2) << static_cast<size_t>(*first);

}

out << dec;

m_after_value = true;

}

typedef deserializer super;

typedef string::iterator::difference_type difference_type;

string m_str;

string::iterator m_pos;

//size_t m_obj_count;

stack<bool> m_obj_had_left_parenthesis;

stack<string> m_open_objects;

actor_namespace m_namespace;

void skip_space_and_comma() {

while (*m_pos == ' ' || *m_pos == ',') ++m_pos;

}

void throw_malformed [[noreturn]] (const string& error_msg) {

throw logic_error("malformed string: " + error_msg);

}

void consume(char c) {

skip_space_and_comma();

if (*m_pos != c) {

string error;

error += "expected '";

error += c;

error += "' found '";

error += *m_pos;

error += "'";

if (m_open_objects.empty() == false) {

error += "during deserialization an instance of ";

error += m_open_objects.top();

}

throw_malformed(error);

}

++m_pos;

}

bool try_consume(char c) {

skip_space_and_comma();

if (*m_pos == c) {

++m_pos;

return true;

}

return false;

}

inline string::iterator next_delimiter() {

return find_if(m_pos, m_str.end(), [] (char c) -> bool {

switch (c) {

case '(':

case ')':

case '{':

case '}':

case ' ':

case ',': {

return true;

}

default: {

return false;

}

}

});

}

void integrity_check() {

if (m_open_objects.empty() || m_obj_had_left_parenthesis.empty()) {

throw_malformed("missing begin_object()");

}

if ( m_obj_had_left_parenthesis.top() == false

&& !isbuiltin(m_open_objects.top())) {

throw_malformed("expected left parenthesis after "

"begin_object call or void value");

}

}

public:

string_deserializer(string str) : super(&m_namespace), m_str(move(str)) {

m_pos = m_str.begin();

}

const uniform_type_info* begin_object() override {

skip_space_and_comma();

string type_name;

// shortcuts for builtin types

if (*m_pos == '"') {

type_name = "@str";

}

else if (*m_pos == '\'') {

type_name = "@atom";

}

else if (*m_pos == '{') {

type_name = "@tuple";

}

else {

auto substr_end = next_delimiter();

if (m_pos == substr_end) {

throw_malformed("could not seek object type name");

}

type_name = string(m_pos, substr_end);

m_pos = substr_end;

}

m_open_objects.push(type_name);

//++m_obj_count;

skip_space_and_comma();

// suppress leading parenthesis for builtin types

m_obj_had_left_parenthesis.push(try_consume('('));

//consume('(');

return get_uniform_type_info_map()->by_uniform_name(type_name);

}

void end_object() {

if (m_open_objects.empty()) {

throw runtime_error("no object to end");

}

if (m_obj_had_left_parenthesis.top() == true) {

consume(')');

}

m_open_objects.pop();

m_obj_had_left_parenthesis.pop();

if (m_open_objects.empty()) {

skip_space_and_comma();

if (m_pos != m_str.end()) {

throw_malformed(string("expected end of of string, found: ") + *m_pos);

}

}

}

size_t begin_sequence() {

integrity_check();

consume('{');

auto num_vals = count(m_pos, find(m_pos, m_str.end(), '}'), ',') + 1;

return static_cast<size_t>(num_vals);

}

void end_sequence() {

integrity_check();

consume('}');

}

struct from_string {

const string& str;

from_string(const string& s) : str(s) { }

template<typename T>

void operator()(T& what) {

istringstream s(str);

s >> what;

}

void operator()(char& what) {

istringstream s(str);

int tmp;

s >> tmp;

what = static_cast<char>(tmp);

}

void operator()(unsigned char& what) {

istringstream s(str);

unsigned int tmp;

s >> tmp;

what = static_cast<unsigned char>(tmp);

}

void operator()(string& what) {

what = str;

}

void operator()(atom_value& what) {

what = static_cast<atom_value>(detail::atom_val(str.c_str(), 0xF));

}

void operator()(u16string&) { }

void operator()(u32string&) { }

};

primitive_variant read_value(primitive_type ptype) {

integrity_check();

skip_space_and_comma();

string::iterator substr_end;

auto find_if_cond = [] (char c) -> bool {

switch (c) {

case ')':

case '}':

case ' ':

case ',': return true;

default : return false;

}

};

if (ptype == pt_u8string || ptype == pt_atom) {

char needle = (ptype == pt_u8string) ? '"' : '\'';

if (*m_pos == needle) {

// skip leading "

++m_pos;

char last_char = needle;

auto find_if_str_cond = [&last_char, needle] (char c) -> bool {

if (c == needle && last_char != '\\') {

return true;

}

last_char = c;

return false;

};

substr_end = find_if(m_pos, m_str.end(), find_if_str_cond);

}

else {

substr_end = find_if(m_pos, m_str.end(), find_if_cond);

}

}

else {

substr_end = find_if(m_pos, m_str.end(), find_if_cond);

}

if (substr_end == m_str.end()) {

throw logic_error("malformed string (unterminated value)");

}

string substr(m_pos, substr_end);

m_pos += static_cast<difference_type>(substr.size());

if (ptype == pt_u8string || ptype == pt_atom) {

char needle = (ptype == pt_u8string) ? '"' : '\'';

// skip trailing "

if (*m_pos != needle) {

string error_msg;

error_msg = "malformed string, expected '";

error_msg += needle;

error_msg += "' found '";

error_msg += *m_pos;

error_msg += "'";

throw logic_error(error_msg);

}

++m_pos;

// replace '\"' by '"'

char last_char = ' ';

auto cond = [&last_char, needle] (char c) -> bool {

if (c == needle && last_char == '\\') {

return true;

}

last_char = c;

return false;

};

string tmp;

auto sbegin = substr.begin();

auto send = substr.end();

for (auto i = find_if(sbegin, send, cond);

i != send;

i = find_if(i, send, cond)) {

--i;

tmp.append(sbegin, i);

tmp += needle;

i += 2;

sbegin = i;

}

if (sbegin != substr.begin()) {

tmp.append(sbegin, send);

}

if (!tmp.empty()) {

substr = move(tmp);

}

}

primitive_variant result(ptype);

result.apply(from_string(substr));

return result;

}

void read_tuple(size_t size,

const primitive_type* begin,

primitive_variant* storage) {

integrity_check();

consume('{');

const primitive_type* end = begin + size;

for ( ; begin != end; ++begin) {

*storage = move(read_value(*begin));

++storage;

}

consume('}');

}

void read_raw(size_t buf_size, void* vbuf) {

auto buf = reinterpret_cast<unsigned char*>(vbuf);

integrity_check();

skip_space_and_comma();

auto next_nibble = [&]() -> size_t {

if (*m_pos == '\0') {

throw_malformed("unexpected end-of-string");

}

char c = *m_pos++;

if (!isxdigit(c)) {

throw_malformed("unexpected character, expected [0-9a-f]");

}

return static_cast<size_t>(isdigit(c) ? c - '0' : (c - 'a' + 10));

};

for (size_t i = 0; i < buf_size; ++i) {

auto nibble = next_nibble();

*buf++ = static_cast<unsigned char>((nibble << 4) | next_nibble());

}

}

string_deserializer strd(what);

auto utype = strd.begin_object();

auto result = utype->deserialize(&strd);

strd.end_object();

return result;

ostringstream osstr;

string_serializer strs(osstr);

strs.begin_object(utype);

utype->serialize(what, &strs);

strs.end_object();

return osstr.str();

std::ostringstream oss;

oss << detail::demangle(typeid(e)) << ": " << e.what();

return oss.str();