// print info about the audio device to stdout
void pa_printdevinfo()
{
mexPrintf("Printing audio devices...\n");
Pa_Initialize();
int dev_type_indx = -1;
const PaHostApiInfo* Api_Info;
int num_APIs = (int )Pa_GetHostApiCount();
for (int i=0; i<num_APIs; i++) {
Api_Info = Pa_GetHostApiInfo(i);
if (strcmp(Api_Info->name,API_NAME)==0)
dev_type_indx = i;
}
if (dev_type_indx == -1) {
return;
}
Api_Info = Pa_GetHostApiInfo(dev_type_indx);
for( int d = 0; d < Api_Info->deviceCount; d++) {
//PaDeviceIndex dev_indx = Pa_HostApiDeviceIndexToDeviceIndex(dev_type_indx, d);
//printdevice((int )dev_indx);
printdevice(dev_type_indx, d);
}
Pa_Terminate();
}
void loop()
{
int i = 0;
while ((!terminate || i++ < 200) && !done)
{
mapper_monitor_poll(mon, 0);
usleep(polltime_ms * 1000);
if (update++ < 0)
continue;
update = -10;
// clear screen & cursor to home
printf("\e[2J\e[0;0H");
fflush(stdout);
printf("Registered devices:\n");
mapper_db_device *pdev = mapper_db_get_all_devices(db);
while (pdev) {
printdevice(*pdev);
pdev = mapper_db_device_next(pdev);
}
printf("------------------------------\n");
printf("Registered signals:\n");
mapper_db_signal *psig =
mapper_db_get_all_inputs(db);
while (psig) {
printsignal(*psig);
psig = mapper_db_signal_next(psig);
}
psig = mapper_db_get_all_outputs(db);
while (psig) {
printsignal(*psig);
psig = mapper_db_signal_next(psig);
}
printf("------------------------------\n");
printf("Registered links:\n");
mapper_db_link *plink = mapper_db_get_all_links(db);
while (plink) {
printlink(*plink);
plink = mapper_db_link_next(plink);
}
printf("------------------------------\n");
printf("Registered connections:\n");
mapper_db_connection *pcon = mapper_db_get_all_connections(db);
while (pcon) {
printconnection(*pcon);
pcon = mapper_db_connection_next(pcon);
}
printf("------------------------------\n");
}
}
void reportahbdevice()
{
unsigned int pahb, ahb;
unsigned int vendor, device;
unsigned int membase = 0;
int i = 0;
int j = 0;
unsigned int tmp = 0;
int ahb_addr = ( int )(LEON3_IO_AREA | LEON3_CONF_AREA | LEON3_AHB_SLAVE_CONF_AREA );
for (i = 0; i < LEON3_AHB_SLAVES ; i++ )
{
pahb = (ahb_addr + (i * LEON3_AHB_CONF_WORDS * 4));
ahb = ramread(pahb);
vendor = amba_vendor(ahb);
device = amba_device(ahb);
if (vendor != 0 && device !=0 )
{
printf("%02x.%02x:%03x ", i, vendor, device);
printdevice(device, vendor);
printf("(ver %d)", amba_ver(ahb));
printf("\n");
if (amba_irq(ahb) != 0)
{
printf("%16s %d \n", "irq", amba_irq(ahb));
}
for (j = 0; j < 4; j++)
{
tmp = ramread(pahb + 0x10 + j * 4);
if (tmp != 0x00000000)
{
membase = getmembase(tmp);
printf(" %16s %8.8x - %8.8x \n", "ahb:", membase, membase + (0xffffffff - ((tmp & 0xfff0) << 16) + 1));
}
}
if ((vendor == 0x41) && (device == 0x021))
{
tmp = ramread(0x08000000);
printf("%12s %d-bit prom @ 0x%8.8x \n", "", ((((tmp >> 8) & 0x3) == 1)? 16 : 8), 0x00000000);
tmp = ramread(0x08000000 + 4);
printf("%12s %d-bit sram @ 0x%8.8x \n", "", ((((tmp >> 4) & 0x3) == 1)? 32 : 16), 0x04000000);
}
if ((vendor == 0x01) && (device == 0x004))
{
printf("%12s AHB trace 128 lines \n", "");
printf("%12s CPU#0 win 8, whbp 4, itrace 128, V8 mul/div, lddel 1, GRFPU-lite \n", "");
ramwrite(0x90400024, 2);
tmp =ramread(0x90700000 + 0x8);
printf("%12s icache 1 * %d kbyte, %d byte/line\n", "", (((tmp >> 20)&0xf)==2)?4:2, (((tmp >> 16)&0x7)==3)?32:16);
tmp =ramread(0x90700000 + 0xc);
printf("%12s dcache 1 * %d kbyte, %d byte/line\n", "", (((tmp >> 20)&0xf)==2)?4:2, (((tmp >> 16)&0x7)==3)?32:16);
}
// amba scan operation
void reportahbmasterdevice()
{
unsigned int pahb, ahb;
unsigned int vendor, device;
int i = 0;
int ahb_addr = ( int )(LEON3_IO_AREA | LEON3_CONF_AREA );
for (i = 0; i < LEON3_AHB_MASTERS ; i++ )
{
pahb = (ahb_addr + (i * LEON3_AHB_CONF_WORDS * 4));
ahb = ramread(pahb);
vendor = amba_vendor(ahb);
device = amba_device(ahb);
if (vendor != 0 && device !=0 )
{
printf("%02x.%02x:%03x ", i, vendor, device);
printdevice(device, vendor);
printf("(ver %d)", amba_ver(ahb));
printf("\n");
printf("%23s %d \n", "ahb master", i);
}
}
return ;
}
int main(int argc, char **argv)
{
int i, j, result = 0;
// process flags for -v verbose, -h help
for (i = 1; i < argc; i++) {
if (argv[i] && argv[i][0] == '-') {
int len = strlen(argv[i]);
for (j = 1; j < len; j++) {
switch (argv[i][j]) {
case 'h':
eprintf("testdatabase.c: possible arguments "
"-q quiet (suppress output), "
"-h help\n");
return 1;
break;
case 'q':
verbose = 0;
break;
default:
break;
}
}
}
}
lo_message lom;
mapper_message msg;
uint64_t id = 1;
mapper_network net = mapper_network_new(0, 0, 0);
mapper_database db = &net->database;
mapper_device dev, *pdev, *pdev2;
mapper_signal sig, *psig, *psig2;
mapper_map *pmap, *pmap2;
/* Test the database functions */
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
lo_message_add_string(lom, "@port");
lo_message_add_int32(lom, 1234);
lo_message_add_string(lom, "@host");
lo_message_add_string(lom, "localhost");
lo_message_add_string(lom, "@num_inputs");
lo_message_add_int32(lom, 2);
lo_message_add_string(lom, "@num_outputs");
lo_message_add_int32(lom, 2);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_device(db, "testdatabase.1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
lo_message_add_string(lom, "@port");
lo_message_add_int32(lom, 1234);
lo_message_add_string(lom, "@host");
lo_message_add_string(lom, "localhost");
lo_message_add_string(lom, "@num_inputs");
lo_message_add_int32(lom, 2);
lo_message_add_string(lom, "@num_outputs");
lo_message_add_int32(lom, 1);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_device(db, "testdatabase__.2", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
lo_message_add_string(lom, "@port");
lo_message_add_int32(lom, 3000);
lo_message_add_string(lom, "@host");
lo_message_add_string(lom, "192.168.0.100");
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_device(db, "testdatabase.3", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
lo_message_add_string(lom, "@port");
lo_message_add_int32(lom, 5678);
lo_message_add_string(lom, "@host");
lo_message_add_string(lom, "192.168.0.100");
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_device(db, "testdatabase__.4", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
lo_message_add_string(lom, "@direction");
lo_message_add_string(lom, "input");
lo_message_add_string(lom, "@type");
lo_message_add_char(lom, 'f');
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_signal(db, "in1", "testdatabase.1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@direction");
lo_message_add_string(lom, "input");
lo_message_add_string(lom, "@type");
lo_message_add_char(lom, 'f');
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_signal(db, "in2", "testdatabase.1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@direction");
lo_message_add_string(lom, "output");
lo_message_add_string(lom, "@type");
lo_message_add_char(lom, 'f');
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_signal(db, "out1", "testdatabase.1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@direction");
lo_message_add_string(lom, "output");
lo_message_add_string(lom, "@type");
lo_message_add_char(lom, 'f');
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_signal(db, "out2", "testdatabase.1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@direction");
lo_message_add_string(lom, "output");
lo_message_add_string(lom, "@type");
lo_message_add_char(lom, 'f');
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
mapper_database_add_or_update_signal(db, "out1", "testdatabase__.2", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@mode");
lo_message_add_string(lom, "bypass");
lo_message_add_string(lom, "@dst@bound_min");
lo_message_add_string(lom, "none");
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
const char *src_sig_name = "testdatabase.1/out2";
mapper_database_add_or_update_map(db, 1, &src_sig_name,
"testdatabase__.2/in1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@mode");
lo_message_add_string(lom, "bypass");
lo_message_add_string(lom, "@dst@bound_min");
lo_message_add_string(lom, "none");
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
src_sig_name = "testdatabase__.2/out1";
mapper_database_add_or_update_map(db, 1, &src_sig_name,
"testdatabase.1/in1", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@mode");
lo_message_add_string(lom, "expression");
lo_message_add_string(lom, "@expression");
lo_message_add_string(lom, "(x-10)*80");
lo_message_add_string(lom, "@dst@bound_min");
lo_message_add_string(lom, "clamp");
lo_message_add_string(lom, "@src@min");
lo_message_add_float(lom, 0.f);
lo_message_add_float(lom, 1.f);
lo_message_add_string(lom, "@src@max");
lo_message_add_float(lom, 1.f);
lo_message_add_float(lom, 2.f);
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
src_sig_name = "testdatabase.1/out1";
mapper_database_add_or_update_map(db, 1, &src_sig_name,
"testdatabase__.2/in2", msg);
mapper_message_free(msg);
lo_message_free(lom);
lom = lo_message_new();
if (!lom) {
result = 1;
goto done;
}
id++;
lo_message_add_string(lom, "@mode");
lo_message_add_string(lom, "expression");
lo_message_add_string(lom, "@expression");
lo_message_add_string(lom, "(x-10)*80");
lo_message_add_string(lom, "@dst@bound_min");
lo_message_add_string(lom, "clamp");
lo_message_add_string(lom, "@src@min");
lo_message_add_float(lom, 0.f);
lo_message_add_float(lom, 1.f);
lo_message_add_string(lom, "@src@max");
lo_message_add_float(lom, 1.f);
lo_message_add_float(lom, 2.f);
lo_message_add_string(lom, "@id");
lo_message_add_int64(lom, id);
if (!(msg = mapper_message_parse_properties(lo_message_get_argc(lom),
lo_message_get_types(lom),
lo_message_get_argv(lom)))) {
eprintf("1: Error, parsing failed.\n");
result = 1;
goto done;
}
src_sig_name = "testdatabase.1/out1";
mapper_database_add_or_update_map(db, 1, &src_sig_name,
"testdatabase__.2/in1", msg);
mapper_message_free(msg);
lo_message_free(lom);
/*********/
if (verbose) {
eprintf("Dump:\n");
mapper_database_print(db);
}
/*********/
eprintf("\n--- Devices ---\n");
eprintf("\nWalk the whole database:\n");
pdev = mapper_database_devices(db);
int count=0;
if (!pdev) {
eprintf("mapper_database_devices() returned 0.\n");
result = 1;
goto done;
}
if (!*pdev) {
eprintf("mapper_database_devices() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (pdev) {
count ++;
printdevice(*pdev);
pdev = mapper_device_query_next(pdev);
}
if (count != 4) {
eprintf("Expected 4 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind device named 'testdatabase.3':\n");
dev = mapper_database_device_by_name(db, "testdatabase.3");
if (!dev) {
eprintf("Not found.\n");
result = 1;
goto done;
}
printdevice(dev);
/*********/
eprintf("\nFind device named 'dummy':\n");
dev = mapper_database_device_by_name(db, "dummy");
if (dev) {
eprintf("unexpected found 'dummy': %p\n", dev);
result = 1;
goto done;
}
eprintf(" not found, good.\n");
/*********/
eprintf("\nFind devices matching '__':\n");
pdev = mapper_database_devices_by_name(db, "*__*");
count=0;
if (!pdev) {
eprintf("mapper_database_devices_by_name() returned 0.\n");
result = 1;
goto done;
}
if (!*pdev) {
eprintf("mapper_database_devices_by_name() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (pdev) {
count ++;
printdevice(*pdev);
pdev = mapper_device_query_next(pdev);
}
if (count != 2) {
eprintf("Expected 2 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind devices with property 'host'=='192.168.0.100':\n");
pdev = mapper_database_devices_by_property(db, "host", 1, 's',
"192.168.0.100", MAPPER_OP_EQUAL);
count=0;
if (!pdev) {
eprintf("mapper_database_devices_by_property() returned 0.\n");
result = 1;
goto done;
}
if (!*pdev) {
eprintf("mapper_database_devices_by_property() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (pdev) {
count ++;
printdevice(*pdev);
pdev = mapper_device_query_next(pdev);
}
if (count != 2) {
eprintf("Expected 2 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind devices with property 'port'<5678:\n");
int port = 5678;
pdev = mapper_database_devices_by_property(db, "port", 1, 'i', &port,
MAPPER_OP_LESS_THAN);
count=0;
if (!pdev) {
eprintf("mapper_database_devices_by_property() returned 0.\n");
result = 1;
goto done;
}
if (!*pdev) {
eprintf("mapper_database_devices_by_property() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (pdev) {
count ++;
printdevice(*pdev);
pdev = mapper_device_query_next(pdev);
}
if (count != 3) {
eprintf("Expected 3 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind devices with property 'num_outputs'==2:\n");
int temp = 2;
pdev = mapper_database_devices_by_property(db, "num_outputs", 1, 'i', &temp,
MAPPER_OP_EQUAL);
count=0;
if (!pdev) {
eprintf("mapper_database_devices_by_property() returned 0.\n");
result = 1;
goto done;
}
if (!*pdev) {
eprintf("mapper_database_devices_by_property() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (pdev) {
count ++;
printdevice(*pdev);
pdev = mapper_device_query_next(pdev);
}
if (count != 1) {
eprintf("Expected 1 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind devices with properties 'host'!='localhost' AND 'port'>=4000:\n");
pdev = mapper_database_devices_by_property(db, "host", 1, 's', "localhost",
MAPPER_OP_NOT_EQUAL);
pdev2 = mapper_database_devices_by_property(db, "port", 1, 'i', &port,
MAPPER_OP_GREATER_THAN_OR_EQUAL);
pdev = mapper_device_query_intersection(pdev, pdev2);
count=0;
if (!pdev) {
eprintf("mapper_database_devices_by_property() returned 0.\n");
result = 1;
goto done;
}
if (!*pdev) {
eprintf("mapper_database_devices_by_property() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (pdev) {
count ++;
printdevice(*pdev);
pdev = mapper_device_query_next(pdev);
}
if (count != 1) {
eprintf("Expected 1 record, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\n--- Signals ---\n");
eprintf("\nFind all signals for device 'testdatabase.1':\n");
dev = mapper_database_device_by_name(db, "testdatabase.1");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
count=0;
if (!psig) {
eprintf("mapper_device_signals() returned 0.\n");
result = 1;
goto done;
}
if (!*psig) {
eprintf("mapper_device_signals() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (psig) {
count ++;
printsignal(*psig);
psig = mapper_signal_query_next(psig);
}
if (count != 4) {
eprintf("Expected 4 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind all signals for device 'testdatabase__xx.2':\n");
dev = mapper_database_device_by_name(db, "testdatabase__xx.2");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
count=0;
if (psig) {
eprintf("mapper_device_signals() incorrectly found something.\n");
printsignal(*psig);
mapper_signal_query_done(psig);
result = 1;
goto done;
}
else
eprintf(" correctly returned 0.\n");
/*********/
eprintf("\nFind all outputs for device 'testdatabase__.2':\n");
dev = mapper_database_device_by_name(db, "testdatabase__.2");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
count=0;
if (!psig) {
eprintf("mapper_device_signals() returned 0.\n");
result = 1;
goto done;
}
if (!*psig) {
eprintf("mapper_device_signals() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (psig) {
count ++;
printsignal(*psig);
psig = mapper_signal_query_next(psig);
}
if (count != 3) {
eprintf("Expected 3 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind signal matching 'in' for device 'testdatabase.1':\n");
dev = mapper_database_device_by_name(db, "testdatabase.1");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
psig2 = mapper_database_signals_by_name(db, "*in*");
psig = mapper_signal_query_intersection(psig, psig2);
count=0;
if (!psig) {
eprintf("intersection of mapper_device_signals() and "
"mapper_database_signals_by_name() returned 0.\n");
result = 1;
goto done;
}
if (!*psig) {
eprintf("intersection of mapper_device_signals() and "
"mapper_database_signals_by_name() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (psig) {
count ++;
printsignal(*psig);
psig = mapper_signal_query_next(psig);
}
if (count != 2) {
eprintf("Expected 2 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind signal matching 'out' for device 'testdatabase.1':\n");
dev = mapper_database_device_by_name(db, "testdatabase.1");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
psig2 = mapper_database_signals_by_name(db, "*out*");
psig = mapper_signal_query_intersection(psig, psig2);
count=0;
if (!psig) {
eprintf("intersection of mapper_device_signals() and "
"mapper_database_signals_by_name() returned 0.\n");
result = 1;
goto done;
}
if (!*psig) {
eprintf("intersection of mapper_device_signals() and "
"mapper_database_signals_by_name() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (psig) {
count ++;
printsignal(*psig);
psig = mapper_signal_query_next(psig);
}
if (count != 2) {
eprintf("Expected 2 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind signal matching 'out' for device 'testdatabase__.2':\n");
dev = mapper_database_device_by_name(db, "testdatabase__.2");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
psig2 = mapper_database_signals_by_name(db, "*out*");
psig = mapper_signal_query_intersection(psig, psig2);
count=0;
if (!psig) {
eprintf("intersection of mapper_device_signals() and "
"mapper_database_signals_by_name() returned 0.\n");
result = 1;
goto done;
}
if (!*psig) {
eprintf("intersection of mapper_device_signals() and "
"mapper_database_signals_by_name() returned something "
"which pointed to 0.\n");
result = 1;
goto done;
}
while (psig) {
count ++;
printsignal(*psig);
psig = mapper_signal_query_next(psig);
}
if (count != 1) {
eprintf("Expected 1 record, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\n--- maps ---\n");
eprintf("\nFind maps with source 'out1':\n");
psig = mapper_database_signals_by_name(db, "out1");
pmap = 0;
while (psig) {
pmap2 = mapper_signal_maps(*psig, MAPPER_DIR_OUTGOING);
pmap = mapper_map_query_union(pmap, pmap2);
psig = mapper_signal_query_next(psig);
}
count=0;
if (!pmap) {
eprintf("combined query returned 0.\n");
result = 1;
goto done;
}
if (!*pmap) {
eprintf("combined query returned something which pointed to 0.\n");
result = 1;
goto done;
}
while (pmap) {
count ++;
printmap(*pmap);
pmap = mapper_map_query_next(pmap);
}
if (count != 3) {
eprintf("Expected 3 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind maps for device 'testdatabase.1', source 'out1':\n");
dev = mapper_database_device_by_name(db, "testdatabase.1");
sig = mapper_device_signal_by_name(dev, "out1");
pmap = mapper_signal_maps(sig, 0);
count=0;
if (!pmap) {
eprintf("mapper_signal_maps() returned 0.\n");
result = 1;
goto done;
}
if (!*pmap) {
eprintf("mapper_signal_maps() returned something which pointed to 0.\n");
result = 1;
goto done;
}
while (pmap) {
count ++;
printmap(*pmap);
pmap = mapper_map_query_next(pmap);
}
if (count != 2) {
eprintf("Expected 2 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind maps with destination signal named 'in2':\n");
psig = mapper_database_signals_by_name(db, "in2");
pmap = 0;
while (psig) {
pmap2 = mapper_signal_maps(*psig, MAPPER_DIR_INCOMING);
pmap = mapper_map_query_union(pmap, pmap2);
psig = mapper_signal_query_next(psig);
}
count=0;
if (!pmap) {
eprintf("combined query returned 0.\n");
result = 1;
goto done;
}
if (!*pmap) {
eprintf("combined query returned something which pointed to 0.\n");
result = 1;
goto done;
}
while (pmap) {
count ++;
printmap(*pmap);
pmap = mapper_map_query_next(pmap);
}
if (count != 1) {
eprintf("Expected 1 record, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind maps for device 'testdatabase__.2', destination 'in1':\n");
dev = mapper_database_device_by_name(db, "testdatabase__.2");
sig = mapper_device_signal_by_name(dev, "in1");
pmap = mapper_signal_maps(sig, MAPPER_DIR_INCOMING);
count=0;
if (!pmap) {
eprintf("mapper_signal_maps() returned 0.\n");
result = 1;
goto done;
}
if (!*pmap) {
eprintf("mapper_signal_maps() returned something which pointed to 0.\n");
result = 1;
goto done;
}
while (pmap) {
count ++;
printmap(*pmap);
pmap = mapper_map_query_next(pmap);
}
if (count != 2) {
eprintf("Expected 2 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind maps for source device 'testdatabase__.2', signal 'out1'"
"\n AND dest device 'testdatabase.1', signal 'in1':\n");
// get maps with source signal
dev = mapper_database_device_by_name(db, "testdatabase__.2");
sig = mapper_device_signal_by_name(dev, "out1");
pmap = mapper_signal_maps(sig, MAPPER_DIR_OUTGOING);
// get maps with destination signal
dev = mapper_database_device_by_name(db, "testdatabase.1");
sig = mapper_device_signal_by_name(dev, "in1");
pmap2 = mapper_signal_maps(sig, MAPPER_DIR_INCOMING);
// intersect map queries
pmap = mapper_map_query_intersection(pmap, pmap2);
count=0;
if (!pmap) {
eprintf("combined query returned 0.\n");
result = 1;
goto done;
}
if (!*pmap) {
eprintf("combined query returned something which pointed to 0.\n");
result = 1;
goto done;
}
while (pmap) {
count ++;
printmap(*pmap);
pmap = mapper_map_query_next(pmap);
}
if (count != 1) {
eprintf("Expected 1 records, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
eprintf("\nFind maps for source device 'testdatabase__.2', signals matching 'out',"
"\n AND dest device 'testdatabase.1', all signals:\n");
// build source query
dev = mapper_database_device_by_name(db, "testdatabase__.2");
psig = mapper_device_signals(dev, MAPPER_DIR_ANY);
psig2 = mapper_database_signals_by_name(db, "*out*");
psig = mapper_signal_query_intersection(psig, psig2);
pmap = 0;
while (psig) {
pmap2 = mapper_signal_maps(*psig, MAPPER_DIR_OUTGOING);
pmap = mapper_map_query_union(pmap, pmap2);
psig = mapper_signal_query_next(psig);
}
// build destination query
dev = mapper_database_device_by_name(db, "testdatabase.1");
pmap2 = mapper_device_maps(dev, MAPPER_DIR_ANY);
// intersect queries
pmap = mapper_map_query_intersection(pmap, pmap2);
count=0;
if (!pmap) {
eprintf("combined query returned 0.\n");
result = 1;
goto done;
}
if (!*pmap) {
eprintf("combined query returned something which pointed to 0.\n");
result = 1;
goto done;
}
while (pmap) {
count ++;
printmap(*pmap);
pmap = mapper_map_query_next(pmap);
}
if (count != 1) {
eprintf("Expected 1 record, but counted %d.\n", count);
result = 1;
goto done;
}
/*********/
done:
mapper_network_free(net);
if (!verbose)
printf("..................................................");
printf("Test %s.\n", result ? "FAILED" : "PASSED");
return result;
}
