void FullInfoMetaRequestPrivate::handleMoreInfo(const DataUnit &data)
{
quint16 age = data.read<quint16>(LittleEndian);
if (age != 0)
values.insert(Age, age);
{
quint8 genderId = data.read<quint8>();
if (genderId)
values.insert(Gender, genders().value(genderId));
}
readString(Homepage, data);
{
quint16 y = data.read<quint16>(LittleEndian);
quint8 m = data.read<quint8>();
quint8 d = data.read<quint8>();
if (QDate::isValid(y, m, d))
values.insert(Birthday, QDate(y, m, d));
}
{
QStringList langList;
for (int i = 0; i < 3; ++i) {
QString lang = languages().value(data.read<quint8>());
if (!lang.isEmpty())
langList << lang;
}
if (!langList.isEmpty())
values.insert(Languages, langList);
}
data.skipData(2); // 0x0000 unknown
readString(OriginalCity, data);
readString(OriginalState, data);
readField<quint16>(OriginalCountry, data, countries());
values.insert(GMT, data.read<qint8>());
}
void FullInfoMetaRequestPrivate::handleWork(const DataUnit &data)
{
readString(WorkCity, data);
readString(WorkState, data);
readString(WorkPhone, data);
readString(WorkFax, data);
readString(WorkAddress, data);
readString(WorkZip, data);
readField<quint16>(WorkCountry, data, countries());
readString(WorkCompany, data);
readString(WorkDepartment, data);
readString(WorkPosition, data);
readField<quint16>(WorkOccupation, data, occupations());
readString(WorkWebpage, data);
}
void MapView::update(MyObservable* observable)
{
system("cls");
World* map = (World*)observable;
if (map)
{
//Calculates the number of rows.
vector<Country*> countries(*(map->getCountries()));
size_t numCountries = countries.size();
int rows = (int)ceil(numCountries / (float)MAX_COLUMNS);
//Calculate the number of columns, usually max except at the last column.
for (int i = 0; i < rows; i++)
printCountries(countries, i * MAX_COLUMNS, min((i + 1) * MAX_COLUMNS, (int)numCountries));
}
}
void NodeImporter::importCities(const std::string& seedString) {
/*
READ CITY POSITIONS ON EARTH SURFACE
*/
Config_Ptr config(new Config);
Config_Ptr cityFilterConfig(config->subConfig("cityfilter"));
int populationThreshold = cityFilterConfig->get<int>("citysizethreshold");
auto lr = std::make_shared<SQLiteLocationReader>(_dbFilename, populationThreshold);
typedef std::map<std::string, std::vector<CityNode>> CountryMap;
std::unique_ptr<CountryMap> countries(new CountryMap);
while (lr->hasNext()) {
CityNode next = lr->getNext();
(*countries)[next.country()].push_back(next);
}
std::unique_ptr<InternetUsageStatistics> stat(new InternetUsageStatistics(_dbFilename));
typedef std::mt19937_64 RNG;
std::seed_seq seed(seedString.begin(), seedString.end());
std::unique_ptr<RNG> randGen(new RNG);
randGen->seed(seed);
std::uniform_real_distribution<double> dist(0.0, 1.0);
// filter cities
for (auto country : *countries) {
std::string countryName = country.first;
auto& cityVec = country.second;
double percentInetUsers = (*stat)[countryName] / 100.0;
for (auto city : cityVec)
if (dist(*randGen) <= percentInetUsers) {
city.setId(_nodenumber);
++_nodenumber;
GeographicNode_Ptr np(new CityNode(city));
addNode(np);
}
}
}
void FullInfoMetaRequestPrivate::handleBasicInfo(const DataUnit &data)
{
readString(Nick, data);
readString(FirstName, data);
readString(LastName, data);
readString(Email, data);
readString(HomeCity, data);
readString(HomeState, data);
readString(HomePhone, data);
readString(HomeFax, data);
readString(HomeAddress, data);
readString(CellPhone, data);
readString(HomeZipCode, data);
readField<quint16>(HomeCountry, data, countries());
values.insert(GMT, data.read<qint8>());
readFlag(AuthFlag, data);
readFlag(WebawareFlag, data);
readFlag(DirectConnectionFlag, data);
readFlag(PublishPrimaryEmailFlag, data);
}
void test_basic(char *filename)
{
boro_t b;
off_t r, i, i2, t, r2;
boro_type_t fl;
struct boro_node *n;
struct boro_mr s1, s2, s3;
FILE *f;
int c;
if (filename != NULL)
unlink(filename);
do_test("boro_open", boro_open(&b, filename));
r = boro_begin_rw(&b);
i = boro_new(&b, "key", boro_new_s(&b, "value"), BORO_STRING, 0, 0);
n = boro_node(&b, i);
do_test("n->n 1", n->n == 0);
do_test("n->c 1", n->c == 1);
r = boro_new(&b, "key2", boro_new_s(&b, "value2"), BORO_STRING, 0, i);
n = boro_node(&b, i);
do_test("n->n 2", n->n == 1);
do_test("n->c 2", n->c == 1);
n = boro_node(&b, r);
do_test("n->n 2", n->n == 0);
do_test("n->c 2", n->c == 2);
boro_end_rw(&b, r);
n = boro_node(&b, r);
do_test("n->n 2", n->n == 1);
do_test("n->c 2", n->c == 2);
do_test("b->h->dq 1", b.h->dq == 0);
r = boro_begin_rw(&b);
i = boro_new(&b, "key3", boro_new_s(&b, "value3"), BORO_STRING, 0, 0);
boro_end_rw(&b, i);
/* if (b.f != -1)
do_test("b->h->dq 2", b.h->dq == r);
*/
boro_gc(&b);
boro_gc(&b);
boro_gc(&b);
r = boro_begin_rw(&b);
i = boro_new(&b, "key4", boro_new_s(&b, "value4"), BORO_STRING, 0, 0);
boro_end_rw(&b, i);
boro_gc(&b);
r = boro_begin_rw(&b);
r = boro_k_set(&b, r, "key5", boro_new_s(&b, "value5"), BORO_STRING);
boro_end_rw(&b, r);
r = boro_begin_rw(&b);
do_test("boro_k_get before boro_k_delete", boro_k_get(&b, r, "key5") != 0);
r = boro_k_delete(&b, r, "key5");
do_test("boro_k_get after boro_k_delete", boro_k_get(&b, r, "key5") == 0);
boro_end_rw(&b, r);
boro_close(&b);
if (filename != NULL)
unlink(filename);
do_test("boro_open", boro_open(&b, filename));
r = boro_begin_rw(&b);
r = boro_append(&b, r, boro_new_s(&b, "this"), BORO_STRING);
r = boro_append(&b, r, boro_new_s(&b, "is"), BORO_STRING);
r = boro_append(&b, r, boro_new_s(&b, "a"), BORO_STRING);
r = boro_append(&b, r, boro_new_s(&b, "test"), BORO_STRING);
boro_end_rw(&b, r);
r = boro_begin_ro(&b);
if (verbose) {
boro_dump_as_tree(&b, r, 0, 0, 20);
printf("\n");
boro_dump_as_csv(&b, r);
}
i = boro_i_get(&b, r, 0);
n = boro_node(&b, i);
do_test("i_append & i_get 0", strcmp("this", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 1);
n = boro_node(&b, i);
do_test("i_append & i_get 1", strcmp("is", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 2);
n = boro_node(&b, i);
do_test("i_append & i_get 2", strcmp("a", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 3);
n = boro_node(&b, i);
do_test("i_append & i_get 3", strcmp("test", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 4);
do_test("i_get 4", i == 0);
boro_end_ro(&b, r);
boro_close(&b);
if (filename != NULL)
unlink(filename);
do_test("boro_open", boro_open(&b, filename));
r = boro_begin_rw(&b);
r = boro_sort(&b, r, boro_new_s(&b, "c"), BORO_STRING, 1);
r = boro_sort(&b, r, boro_new_s(&b, "d"), BORO_STRING, 1);
r = boro_sort(&b, r, boro_new_s(&b, "a"), BORO_STRING, 1);
r = boro_sort(&b, r, boro_new_s(&b, "b"), BORO_STRING, 1);
boro_end_rw(&b, r);
r = boro_begin_ro(&b);
if (verbose) {
boro_dump_as_tree(&b, r, 0, 0, 20);
printf("\n");
boro_dump_as_csv(&b, r);
}
while (boro_gc(&b));
if (verbose) {
boro_dump_as_tree(&b, r, 0, 0, 20);
printf("\n");
boro_dump_as_csv(&b, r);
}
i = boro_i_get(&b, r, 0);
n = boro_node(&b, i);
do_test("i_sort & i_get 0", strcmp("a", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 1);
n = boro_node(&b, i);
do_test("i_sort & i_get 1", strcmp("b", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 2);
n = boro_node(&b, i);
do_test("i_sort & i_get 2", strcmp("c", boro_str(&b, n->v, n->t)) == 0);
i = boro_i_get(&b, r, 3);
n = boro_node(&b, i);
do_test("i_sort & i_get 3", strcmp("d", boro_str(&b, n->v, n->t)) == 0);
boro_end_ro(&b, r);
if (verbose) {
r = boro_begin_ro(&b);
boro_mr_init(&s1, &b, boro_mr_json);
s1.farg[0] = stdout;
boro_mr(&s1, r, BORO_LIST);
printf("\n");
boro_mr_init(&s1, &b, boro_mr_slice);
s1.iarg[0] = 1;
s1.iarg[1] = 2;
boro_mr_init(&s2, &b, boro_mr_json);
s2.farg[0] = stdout;
boro_mr_chain(&s1, &s2);
boro_mr(&s1, r, BORO_LIST);
printf("\n");
boro_end_ro(&b, r);
}
r = boro_begin_ro(&b);
boro_mr_init(&s1, &b, boro_mr_slice);
s1.iarg[0] = 1;
s1.iarg[1] = 2;
boro_mr_init(&s2, &b, boro_mr_store);
boro_mr_chain(&s1, &s2);
boro_mr(&s1, r, BORO_LIST);
t = s2.r;
boro_ref(&b, t);
i = boro_i_get(&b, t, 0);
n = boro_node(&b, i);
do_test("slice + store 1", n && strcmp(boro_str(&b, n->v, n->t), "b") == 0);
i = boro_i_get(&b, t, 1);
n = boro_node(&b, i);
do_test("slice + store 2", n && strcmp(boro_str(&b, n->v, n->t), "c") == 0);
boro_unref(&b, t);
boro_end_ro(&b, r);
while (boro_gc(&b));
r = boro_begin_rw(&b);
r = countries(&b);
r = boro_k_set(&b, 0, "countries", r, BORO_DICT);
boro_end_rw(&b, r);
if (verbose) {
r = boro_begin_ro(&b);
boro_mr_init(&s1, &b, boro_mr_json);
s1.farg[0] = stdout;
boro_mr(&s1, r, BORO_DICT);
printf("\n");
boro_end_ro(&b, r);
}
r = boro_begin_ro(&b);
i = boro_k_get(&b, r, "countries");
n = boro_node(&b, i);
t = n->v;
boro_mr_init(&s1, &b, boro_mr_sort_by);
s1.sarg[0] = "capital";
boro_mr(&s1, t, 0);
boro_ref(&b, s1.r);
i = boro_i_get(&b, s1.r, 0);
n = boro_node(&b, i);
i = boro_k_get(&b, n->v, "capital");
n = boro_node(&b, i);
do_test("sort_by 1", n && strcmp(boro_str(&b, n->v, n->t), "Brussels") == 0);
i = boro_i_get(&b, s1.r, 5);
n = boro_node(&b, i);
i = boro_k_get(&b, n->v, "capital");
n = boro_node(&b, i);
do_test("sort_by 2", n && strcmp(boro_str(&b, n->v, n->t), "Washington D.C.") == 0);
if (verbose) {
printf("sort_by capital:\n");
print_tree(&b, s1.r, BORO_LIST);
}
boro_unref(&b, s1.r);
i = boro_k_get(&b, r, "countries");
n = boro_node(&b, i);
t = n->v;
boro_mr_init(&s1, &b, boro_mr_sort_by);
s1.sarg[0] = "capital";
boro_mr_init(&s2, &b, boro_mr_slice);
s2.iarg[0] = 0;
s2.iarg[1] = 0;
boro_mr_init(&s3, &b, boro_mr_store);
boro_mr_chain(&s1, &s2);
boro_mr_chain(&s1, &s3);
boro_mr(&s1, t, BORO_LIST);
boro_ref(&b, s3.r);
if (verbose) {
printf("sort_by capital + slice(0, 0):\n");
print_tree(&b, s3.r, BORO_LIST);
}
do_test("sort_by + slice + store", boro_count(&b, s3.r) == 1);
boro_unref(&b, s3.r);
boro_mr_init(&s1, &b, boro_mr_group_by);
s1.sarg[0] = "continent";
boro_mr(&s1, t, BORO_DICT);
boro_ref(&b, s1.r);
if (verbose) {
printf("group_by:\n");
print_tree(&b, s1.r, BORO_DICT);
}
i = boro_k_get(&b, s1.r, "Asia");
n = boro_node(&b, i);
do_test("group_by 1", n && boro_count(&b, n->v) == 1);
i = boro_k_get(&b, s1.r, "America");
n = boro_node(&b, i);
do_test("group_by 2", n && boro_count(&b, n->v) == 1);
i = boro_k_get(&b, s1.r, "Europe");
n = boro_node(&b, i);
do_test("group_by 3", n && boro_count(&b, n->v) == 4);
boro_unref(&b, s1.r);
while (boro_gc(&b));
/* having */
t = boro_k_set(&b, 0, "drives_on_the_right", 0, BORO_TRUE);
boro_ref(&b, t);
boro_mr_init(&s1, &b, boro_mr_having);
s1.r = t;
boro_mr_init(&s2, &b, boro_mr_store);
boro_mr_chain(&s1, &s2);
i = boro_k_get(&b, r, "countries");
n = boro_node(&b, i);
r2 = n->v;
boro_mr(&s1, r2, 0);
boro_ref(&b, s2.r);
do_test("having 1", boro_k_get(&b, s2.r, "Spain") != 0);
do_test("having 2", boro_k_get(&b, s2.r, "Belgium") != 0);
do_test("having 3", boro_k_get(&b, s2.r, "France") != 0);
do_test("having 4", boro_k_get(&b, s2.r, "United States of America") != 0);
do_test("having 5", boro_k_get(&b, s2.r, "Japan") == 0);
do_test("having 6", boro_k_get(&b, s2.r, "United Kingdom") == 0);
if (verbose) {
printf("having {drives_on_the_right: true}\n");
print_tree(&b, s2.r, BORO_LIST);
}
boro_unref(&b, s2.r);
boro_unref(&b, t);
boro_end_ro(&b, r);
while (boro_gc(&b));
/* import */
r = boro_begin_rw(&b);
fl = 0;
f = jsfile("[]");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 1 []", fl == BORO_LIST);
fl = 0;
f = jsfile("{}");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 2 {}", fl == BORO_DICT);
fl = 0;
f = jsfile("{\"a\":1}");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 3", fl == BORO_DICT);
fl = 0;
f = jsfile("{\"a\":\"c\",\"b\":[1,\"d\",3],\"e1\":{\"e1\":1.0,\"e2\":12.53}}");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 4", fl == BORO_DICT);
fl = 0;
f = jsfile("[\"a\",\"c\",\"b\",[1,\"d\",3],\"e1\",{\"e1\":1.0,\"e2\":12.53},null,true,false,12345.2345,\"no more\"]");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 5", fl == BORO_LIST);
fl = 0;
f = jsfile("[1");
t = boro_import_json(&b, &fl, f);
fclose(f);
do_test("import json 6.1 (error)", fl == 0);
fl = 0;
f = jsfile("[1,");
t = boro_import_json(&b, &fl, f);
fclose(f);
do_test("import json 6.2 (error)", fl == 0);
fl = 0;
f = jsfile("[1,2");
t = boro_import_json(&b, &fl, f);
fclose(f);
do_test("import json 6.3 (error)", fl == 0);
fl = 0;
f = jsfile("[1,2,3");
t = boro_import_json(&b, &fl, f);
fclose(f);
do_test("import json 6.4 (error)", fl == 0);
fl = 0;
f = jsfile("[1,true,2,false,[],{},null,4.567] garbage at the end");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 7", fl == BORO_LIST);
fl = 0;
f = jsfile("{\"a\":{\"b\":{\"c\":[1,2,3]}}}");
t = boro_import_json(&b, &fl, f);
fclose(f);
if (verbose)
print_tree(&b, t, fl);
do_test("import json 8", fl == BORO_DICT);
fl = 0;
t = boro_import_json_s(&b, &fl,
"{\"a\":\"c\",\"b\":[1,\"d\",3],\"e1\":{\"e1\":1.0,\"e2\":12.53}}");
if (verbose)
print_tree(&b, t, fl);
do_test("import json_s 1", fl == BORO_DICT);
while (boro_gc(&b));
boro_end_rw(&b, r);
while (boro_gc(&b));
/* iterators */
if (verbose)
printf("Iterating countries:\n");
struct boro_iter it;
r = boro_begin_ro(&b);
i = boro_k_get(&b, r, "countries");
n = boro_node(&b, i);
t = n->v;
c = 0;
boro_iter_init(&it, &b, t, 1);
while ((n = boro_iter_next(&it))) {
if (verbose)
printf("%s\n", n->k);
c++;
}
do_test("iterator 1", c == 6);
if (verbose)
printf("Iterator for France key/values (non-scalar values not shown):\n");
i = boro_k_get(&b, t, "France");
n = boro_node(&b, i);
t = n->v;
boro_iter_init(&it, &b, t, 1);
while ((n = boro_iter_next(&it))) {
if (verbose)
printf("%s: %s\n", n->k, boro_str(&b, n->v, n->t));
}
i = boro_k_get(&b, r, "countries");
n = boro_node(&b, i);
t = n->v;
if (verbose)
printf("Inverse iterator for France key/values (non-scalar values not shown):\n");
i = boro_k_get(&b, t, "France");
n = boro_node(&b, i);
t = n->v;
boro_iter_init(&it, &b, t, -1);
while ((n = boro_iter_next(&it))) {
if (verbose)
printf("%s: %s\n", n->k, boro_str(&b, n->v, n->t));
}
/* cmd_get */
boro_mr_init(&s1, &b, boro_mr_crc32);
if (verbose) {
printf("boro_cmd_get countries/Spain:\n");
boro_mr_init(&s2, &b, boro_mr_json);
s2.farg[0] = stdout;
boro_mr_chain(&s1, &s2);
}
fl = BORO_DICT;
boro_cmd_get(&b, r, "countries/Spain", 0, &s1, &fl);
if (verbose)
printf("\ncrc32: %08x\n", s1.iarg[0]);
do_test("boro_cmd_get countries/Spain", s1.iarg[0] == 0x5ec5188d);
boro_mr_init(&s1, &b, boro_mr_crc32);
if (verbose) {
printf("boro_cmd_get countries/France:\n");
boro_mr_init(&s2, &b, boro_mr_json);
s2.farg[0] = stdout;
boro_mr_chain(&s1, &s2);
}
fl = BORO_DICT;
boro_cmd_get(&b, r, "countries/France", 0, &s1, &fl);
if (verbose)
printf("\ncrc32: %08x\n", s1.iarg[0]);
do_test("boro_cmd_get countries/France", s1.iarg[0] == 0xc47c0a33);
boro_mr_init(&s1, &b, boro_mr_crc32);
t = boro_import_json_s(&b, &fl, "[[\"having\", {\"continent\":\"Asia\"}]]");
boro_ref(&b, t);
if (verbose) {
printf("boro_cmd_get countries (having continent: Asia):\n");
boro_mr_init(&s2, &b, boro_mr_json);
s2.farg[0] = stdout;
boro_mr_chain(&s1, &s2);
}
fl = BORO_DICT;
boro_cmd_get(&b, r, "countries", t, &s1, &fl);
if (verbose)
printf("\ncrc32: %08x\n", s1.iarg[0]);
do_test("boro_cmd_get countries (having continent: Asia)", s1.iarg[0] == 0xfe375820);
boro_unref(&b, t);
boro_mr_init(&s1, &b, boro_mr_crc32);
t = boro_import_json_s(&b, &fl, "[[\"sort_by\", \"capital\"]]");
boro_ref(&b, t);
if (verbose) {
printf("boro_cmd_get countries (sort_by capital):\n");
boro_mr_init(&s2, &b, boro_mr_json);
s2.farg[0] = stdout;
boro_mr_chain(&s1, &s2);
}
fl = BORO_DICT;
boro_cmd_get(&b, r, "countries", t, &s1, &fl);
if (verbose)
printf("\ncrc32: %08x\n", s1.iarg[0]);
do_test("boro_cmd_get countries (sort_by capital)", s1.iarg[0] == 0xd01ce6b4);
boro_unref(&b, t);
boro_mr_init(&s1, &b, boro_mr_crc32);
t = boro_import_json_s(&b, &fl, "[[\"sort_by\", \"population\"]]");
boro_ref(&b, t);
if (verbose) {
printf("boro_cmd_get countries (sort_by population):\n");
boro_mr_init(&s2, &b, boro_mr_json);
s2.farg[0] = stdout;
boro_mr_chain(&s1, &s2);
}
fl = BORO_DICT;
boro_cmd_get(&b, r, "countries", t, &s1, &fl);
if (verbose)
printf("\ncrc32: %08x\n", s1.iarg[0]);
do_test("boro_cmd_get countries (sort_by population)", s1.iarg[0] == 0x2e5af057);
boro_unref(&b, t);
i = boro_p_get(&b, r, BORO_DICT, "countries/Spain/capital");
n = boro_node(&b, i);
do_test("boro_p_get 1", strcmp(boro_str(&b, n->v, n->t), "Madrid") == 0);
i = boro_p_get(&b, r, BORO_DICT, "countries/Spain/cities/0");
n = boro_node(&b, i);
do_test("boro_p_get 2", strcmp(boro_str(&b, n->v, n->t), "Barcelona") == 0);
i = boro_p_get(&b, r, BORO_DICT, "countries/Spain/cities/2");
n = boro_node(&b, i);
do_test("boro_p_get 3", strcmp(boro_str(&b, n->v, n->t), "Sevilla") == 0);
i = boro_p_get(&b, r, BORO_DICT, "countries/Spain/cities/3");
do_test("boro_p_get 4", i == 0);
boro_end_ro(&b, r);
r = boro_begin_rw(&b);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal", 0, BORO_DICT);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/capital", boro_new_s(&b, "Lisboa"), BORO_STRING);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/cities", 0, BORO_LIST);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/cities/", boro_new_s(&b, "Porto"), BORO_STRING);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/cities/", boro_new_s(&b, "Coimbra"), BORO_STRING);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/cities/", boro_new_s(&b, "Braga"), BORO_STRING);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/drives_on_the_right", 0, BORO_TRUE);
r = boro_p_set(&b, r, BORO_DICT, "countries/Portugal/continent", boro_new_s(&b, "Europe"), BORO_STRING);
i = boro_p_get(&b, r, BORO_DICT, "countries/Portugal/capital");
n = boro_node(&b, i);
do_test("boro_p_set 1", strcmp(boro_str(&b, n->v, n->t), "Lisboa") == 0);
boro_end_rw(&b, r);
r = boro_begin_ro(&b);
if (verbose) {
printf("After adding Portugal:\n");
print_tree(&b, r, BORO_DICT);
}
boro_end_ro(&b, r);
if (verbose)
printf("Creating a list and a dict...\n");
r = boro_begin_rw(&b);
char tmp[32];
i = i2 = 0;
for (c = 0; c < 10; c++) {
sprintf(tmp, "%d", c);
i = boro_append_p(&b, i, boro_new_s(&b, tmp), BORO_NUMBER);
i2 = boro_k_set_p(&b, i2, tmp, boro_new_s(&b, tmp), BORO_NUMBER);
}
r = boro_p_set(&b, r, BORO_DICT, "list", i, BORO_LIST);
r = boro_p_set(&b, r, BORO_DICT, "dict", i2, BORO_DICT);
boro_end_rw(&b, r);
if (verbose)
printf("Done.\n");
boro_close(&b);
}
