50 lines
1.4 KiB
C
50 lines
1.4 KiB
C
|
#include "vpi_user.h"
|
||
|
|
|
||
|
|
static void get_type(char *obj, vpiHandle scope)
|
||
|
|
{
|
||
|
|
vpiHandle hand;
|
||
|
|
|
||
|
|
vpi_printf("Looking for \"%s\": ", obj);
|
||
|
|
|
||
|
|
hand = vpi_handle_by_name(obj, scope);
|
||
|
|
if (hand) vpi_printf("found \"%s\"\n", vpi_get_str(vpiName, hand));
|
||
|
|
else vpi_printf("Not found\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
static PLI_INT32 CompileTF(PLI_BYTE8 *x)
|
||
|
|
{
|
||
|
|
(void)x; /* Parameter is not used. */
|
||
|
|
vpiHandle callh = vpi_handle(vpiSysTfCall, 0);
|
||
|
|
vpiHandle scope = vpi_handle(vpiScope, callh);
|
||
|
|
|
||
|
|
get_type("\\esc.port", scope);
|
||
|
|
get_type("\\esc.port ", scope);
|
||
|
|
get_type("\\esc.mod .\\esc.inm .\\esc.port", NULL);
|
||
|
|
get_type("\\esc.mod .\\esc.inm .\\esc.port ", NULL);
|
||
|
|
get_type("\\esc.val", scope);
|
||
|
|
get_type("\\esc.val ", scope);
|
||
|
|
get_type("\\esc.mod .\\esc.inm .\\esc.val", NULL);
|
||
|
|
get_type("\\esc.mod .\\esc.inm .\\esc.val ", NULL);
|
||
|
|
get_type("\\esc.mod .\\esc.inm .normal", NULL);
|
||
|
|
get_type("\\esc.mod .inst.\\esc.id", NULL);
|
||
|
|
get_type("\\esc.mod .inst.\\esc.id ", NULL);
|
||
|
|
get_type("\\esc.mod .inst.normal", NULL);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void my_Register(void)
|
||
|
|
{
|
||
|
|
s_vpi_systf_data tf_data;
|
||
|
|
|
||
|
|
tf_data.type = vpiSysTask;
|
||
|
|
tf_data.tfname = "$print_if_found";
|
||
|
|
tf_data.calltf = 0;
|
||
|
|
tf_data.compiletf = CompileTF;
|
||
|
|
tf_data.sizetf = 0;
|
||
|
|
vpi_register_systf(&tf_data);
|
||
|
|
}
|
||
|
|
|
||
|
|
void (*vlog_startup_routines[]) (void) = {
|
||
|
|
my_Register, 0};
|