Local<Value> GNUtil::convertToJSArray(struct getdns_list* list) {
if (!list) {
return Nan::Null();
}
size_t len;
getdns_list_get_length(list, &len);
Local<Array> array = Nan::New<Array>();
for (size_t i = 0; i < len; ++i) {
getdns_data_type type;
getdns_list_get_data_type(list, i, &type);
switch (type) {
case t_bindata:
{
getdns_bindata* data = NULL;
getdns_list_get_bindata(list, i, &data);
array->Set(i, convertBinData(data, NULL));
break;
}
case t_int:
{
uint32_t res = 0;
getdns_list_get_int(list, i, &res);
array->Set(i, Nan::New<Integer>(res));
break;
}
case t_dict:
{
getdns_dict* dict = NULL;
getdns_list_get_dict(list, i, &dict);
array->Set(i, GNUtil::convertToJSObj(dict));
break;
}
case t_list:
{
getdns_list* sublist = NULL;
getdns_list_get_list(list, i, &sublist);
array->Set(i, GNUtil::convertToJSArray(sublist));
break;
}
default:
break;
}
}
return array;
}
/**
* exercise the getdns_dict_get_names function
*/
void
tst_getnames(void)
{
size_t index;
size_t llen;
uint32_t ansint;
int i;
getdns_return_t result;
getdns_data_type dtype;
struct getdns_dict *dict = NULL;
struct getdns_list *list = NULL;
tstmsg_case_begin("tst_getnames");
dict = getdns_dict_create();
/* degenerative use cases */
tstmsg_case_msg("getdns_dict_get_names(NULL, &list)");
getdns_dict_get_names(NULL, &list);
getdns_list_destroy(list);
tstmsg_case_msg("getdns_dict_get_names(dict, NULL)");
getdns_dict_get_names(dict, NULL);
tstmsg_case_msg
("getdns_dict_get_names(dict, &list), empty dictionary");
getdns_dict_get_names(dict, &list);
getdns_list_destroy(list);
/* legit use case, add items out of order to exercise tree */
/* TODO: add elements of type dict, bindata, list to the dict */
i = 0;
getdns_dict_set_int(dict, "foo", i++);
getdns_dict_set_int(dict, "bar", i++);
getdns_dict_set_int(dict, "quz", i++);
getdns_dict_set_int(dict, "alpha", i++);
getdns_dict_get_names(dict, &list);
result = getdns_list_get_length(list, &llen);
if (result != GETDNS_RETURN_GOOD) {
tstmsg_case_msg
("getdns_list_get_length failed, exiting");
return;
}
if (llen != i) {
tstmsg_case_msg
("getdns_list_get_length returned unreasonable length, exiting");
return;
}
for (index = 0; index < llen; index++) {
getdns_list_get_data_type(list, index, &dtype);
printf(" list item %d: ", (int) index);
switch (dtype) {
case t_bindata:
printf("NOTIMPLEMENTED");
break;
case t_dict:
printf("NOTIMPLEMENTED");
break;
case t_int:
getdns_list_get_int(list, index, &ansint);
printf("t_int, value=%d\n", ansint);
break;
case t_list:
printf("NOTIMPLEMENTED");
break;
default:
printf("data type invalid");
break;
}
}
getdns_dict_destroy(dict);
getdns_list_destroy(list);
tstmsg_case_end();
} /* tst_getnames */
