blob: 20a0aa75f9a95ebebc76387cf485ccfb7e31f179 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
// Copyright (C) by Josh Blum. See LICENSE.txt for licensing information.
#include "gras_impl/query_common.hpp"
#include "gras_impl/debug.hpp"
#include <PMC/PMC.hpp>
#include <PMC/Containers.hpp>
#include <boost/property_tree/ptree.hpp>
#include <boost/foreach.hpp>
#include <vector>
#include <complex>
using namespace boost::property_tree;
PMCC gras::ptree_to_pmc(const ptree &value)
{
#define ptree_to_pmc_try(type) \
try{return PMC_M(value.get_value<type >());} \
catch(...){}
#define ptree_to_pmc_tryv(type) \
try{ \
std::vector<type > vec; \
BOOST_FOREACH(const ptree::value_type &elem, value) \
{ \
vec.push_back(elem.second.get_value<type >()); \
} \
return PMC_M(vec); \
}catch(...){}
//single child
if (value.size() == 0)
{
//can we cast to integer?
ptree_to_pmc_try(long)
//can we cast to float?
ptree_to_pmc_try(double)
//can we cast to complex?
ptree_to_pmc_try(std::complex<double>)
//then string
ptree_to_pmc_try(std::string);
}
//array
else
{
ptree_to_pmc_tryv(long);
ptree_to_pmc_tryv(double);
ptree_to_pmc_tryv(std::complex<double>);
}
//otherwise null -- will crap out
return PMC();
}
ptree gras::pmc_to_ptree(const PMCC &value)
{
ptree v;
#define pmc_to_ptree_try(type) \
if (value.is<type >()) {v.put_value(value.as<type >()); return v;}
//determine number
pmc_to_ptree_try(char);
pmc_to_ptree_try(signed char);
pmc_to_ptree_try(unsigned char);
pmc_to_ptree_try(signed short);
pmc_to_ptree_try(unsigned short);
pmc_to_ptree_try(signed int);
pmc_to_ptree_try(unsigned int);
pmc_to_ptree_try(signed long);
pmc_to_ptree_try(unsigned long);
pmc_to_ptree_try(signed long long);
pmc_to_ptree_try(unsigned long long);
pmc_to_ptree_try(float);
pmc_to_ptree_try(double);
pmc_to_ptree_try(std::complex<float>);
pmc_to_ptree_try(std::complex<double>);
//determine string
pmc_to_ptree_try(std::string);
//try numeric vector
#define pmc_to_ptree_tryv(type) \
if (value.is<std::vector<type> >()) \
{ \
BOOST_FOREACH(const type &elem, value.as<std::vector<type> >()) \
{ \
ptree t; t.put_value(elem); \
v.push_back(std::make_pair("", t)); \
} \
}
pmc_to_ptree_tryv(char);
pmc_to_ptree_tryv(signed char);
pmc_to_ptree_tryv(unsigned char);
pmc_to_ptree_tryv(signed short);
pmc_to_ptree_tryv(unsigned short);
pmc_to_ptree_tryv(signed int);
pmc_to_ptree_tryv(unsigned int);
pmc_to_ptree_tryv(signed long);
pmc_to_ptree_tryv(unsigned long);
pmc_to_ptree_tryv(signed long long);
pmc_to_ptree_tryv(unsigned long long);
pmc_to_ptree_tryv(float);
pmc_to_ptree_tryv(double);
pmc_to_ptree_tryv(std::complex<float>);
pmc_to_ptree_tryv(std::complex<double>);
return v;
}
|
