sim: compile VPI module

diff --git a/vpi/Makefile b/vpi/Makefile
new file mode 100644 (file)
index 0000000..b939822
--- /dev/null
+++ b/vpi/Makefile
@@ -0,0 +1,16 @@
+CC=clang
+OBJ=ipc.o main.o
+
+all: migensim.vpi
+
+%.o: %.c
+       $(CC) -fPIC -Wall -O2 -c -o $@ $<
+
+migensim.vpi: $(OBJ)
+       $(CC) -shared -o $@ $(OBJ) -lvpi
+
+clean:
+       rm -f $(OBJ)
+       rm -f migensim.vpi
+
+.PHONY: clean

diff --git a/vpi/main.c b/vpi/main.c
new file mode 100644 (file)
index 0000000..4892354
--- /dev/null
+++ b/vpi/main.c
@@ -0,0 +1,121 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <vpi_user.h>
+
+#include "ipc.h"
+
+struct migensim_softc {
+       struct ipc_softc *ipc;
+       int has_go;
+};
+
+static int h_go(void *user)
+{
+       struct migensim_softc *sc = (struct migensim_softc *)user;
+       
+       printf("GO\n");
+       sc->has_go = 1;
+       
+       return 1;
+}
+
+static int h_write(char *name, int nchunks, const unsigned char *chunks, void *user)
+{
+       int i;
+       
+       printf("WRITE: %s / nchunks: %d / ", name, nchunks);
+       for(i=0;i<nchunks;i++)
+               printf("%02hhx", chunks[i]);
+       printf("\n");
+       
+       return 1;
+}
+
+static int h_read(char *name, void *user)
+{
+       printf("READ: %s\n", name);
+       
+       return 1;
+}
+
+static int process_until_go(struct migensim_softc *sc)
+{
+       sc->has_go = 0;
+       while(!sc->has_go) {
+               if(!ipc_receive(sc->ipc))
+                       return 0;
+       }
+       return 1;
+}
+
+static int connect_calltf(char *user)
+{
+       struct migensim_softc *sc = (struct migensim_softc *)user;
+       vpiHandle sys;
+       vpiHandle argv;
+       vpiHandle item;
+       s_vpi_value value;
+       
+       sys = vpi_handle(vpiSysTfCall, 0);
+       argv = vpi_iterate(vpiArgument, sys);
+       item = vpi_scan(argv);
+       value.format = vpiStringVal;
+       vpi_get_value(item, &value);
+       
+       sc->ipc = ipc_connect(value.value.str, h_go, h_write, h_read, sc);
+       if(sc->ipc == NULL) {
+               perror("ipc_connect");
+               vpi_control(vpiFinish, 1);
+               return 0;
+       }
+       
+       if(!process_until_go(sc)) {
+               vpi_control(vpiFinish, 1);
+               return 0;
+       }
+       
+       return 0;
+}
+
+static int tick_calltf(char *user)
+{
+       struct migensim_softc *sc = (struct migensim_softc *)user;
+       
+       if(!ipc_tick(sc->ipc)) {
+               perror("ipc_tick");
+               vpi_control(vpiFinish, 1);
+               return 0;
+       }
+       if(!process_until_go(sc)) {
+               vpi_control(vpiFinish, 1);
+               return 0;
+       }
+       
+       return 0;
+}
+
+static struct migensim_softc sc;
+
+static void simple_register(const char *tfname, PLI_INT32 (*calltf)(PLI_BYTE8*))
+{
+       s_vpi_systf_data tf_data;
+
+       tf_data.type      = vpiSysTask;
+       tf_data.tfname    = tfname;
+       tf_data.calltf    = calltf;
+       tf_data.compiletf = NULL;
+       tf_data.sizetf    = 0;
+       tf_data.user_data = (void *)&sc;
+       vpi_register_systf(&tf_data);
+}
+
+static void migensim_register()
+{
+       simple_register("$migensim_connect", connect_calltf);
+       simple_register("$migensim_tick", tick_calltf);
+}
+
+void (*vlog_startup_routines[])() = {
+       migensim_register,
+       0
+};