From 7e9095acf258c6dca5df0a2950967d590049c650 Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Mon, 10 Mar 2003 23:40:10 +0000
Subject: [PATCH]  Add support for $rtoi

---
 vpi/sys_convert.c | 75 +++++++++++++++++++++++++++++++----------------
 1 file changed, 50 insertions(+), 25 deletions(-)

diff --git a/vpi/sys_convert.c b/vpi/sys_convert.c
index 74ad434a8..7479b7414 100644
--- a/vpi/sys_convert.c
+++ b/vpi/sys_convert.c
@@ -17,7 +17,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #ifdef HAVE_CVS_IDENT
-#ident "$Id: sys_convert.c,v 1.1 2003/03/07 02:44:34 steve Exp $"
+#ident "$Id: sys_convert.c,v 1.2 2003/03/10 23:40:10 steve Exp $"
 #endif
 
 # include  "vpi_user.h"
@@ -25,8 +25,6 @@
 # include  <stdio.h>
 # include  <math.h>
 
-/*
- */
 static void double2bits(double real, PLI_UINT32 bits[2])
 {
       union conv {
@@ -57,10 +55,10 @@ static void double2bits(double real, PLI_UINT32 bits[2])
 #endif
 }
 
-
+static int sizetf_32 (char*x) { return 32; }
 static int sizetf_64 (char*x) { return 64; }
 
-static int sys_real2bits_compiletf(char *name)
+static int sys_convert_compiletf(char *name)
 {
     vpiHandle call_hand, argv;
 
@@ -76,7 +74,7 @@ static int sys_real2bits_compiletf(char *name)
     return 0;
 }
 
-static int sys_real2bits_calltf(char *user)
+static int sys_realtobits_calltf(char *user)
 {
     vpiHandle sys, argv, arg;
     s_vpi_value value;
@@ -89,10 +87,11 @@ static int sys_real2bits_calltf(char *user)
     argv = vpi_iterate(vpiArgument, sys);
     arg  = vpi_scan(argv);
 
-    /* get current value in desired destination format */
+    /* get value */
     value.format = vpiRealVal;
     vpi_get_value(arg, &value);
 
+    /* convert */
     double2bits(value.value.real, bits);
 
     res[0].aval = bits[0];
@@ -109,50 +108,76 @@ static int sys_real2bits_calltf(char *user)
     return 0;
 }
 
+static int sys_rtoi_calltf(char *user)
+{
+    vpiHandle sys, argv, arg;
+    s_vpi_value value;
+    static struct t_vpi_vecval res;
+
+    /* find argument handle */
+    sys  = vpi_handle(vpiSysTfCall, 0);
+    argv = vpi_iterate(vpiArgument, sys);
+    arg  = vpi_scan(argv);
+
+    /* get value */
+    value.format = vpiRealVal;
+    vpi_get_value(arg, &value);
+
+    /* convert */
+    res.aval = (unsigned)value.value.real;
+    res.bval = 0;
+
+    value.format = vpiVectorVal;
+    value.value.vector = &res;
+
+    /* return converted value */
+    vpi_put_value(sys, &value, 0, vpiNoDelay);
+
+    return 0;
+}
+
 void sys_convert_register()
 {
       s_vpi_systf_data tf_data;
-#if 0
+
       tf_data.type      = vpiSysFunc;
       tf_data.tfname    = "$bitstoreal";
-      tf_data.calltf    = sys_convert_calltf;
-      tf_data.compiletf = sys_convert_compiletf;
       tf_data.sizetf    = sizetf_64;
-      tf_data.user_data = "0$bitstoreal";
+      tf_data.compiletf = sys_convert_compiletf;
+      tf_data.calltf    = NULL; // sys_bitstoreal_calltf;
+      tf_data.user_data = NULL;
       vpi_register_systf(&tf_data);
-#endif
 
-#if 0
       tf_data.type      = vpiSysFunc;
       tf_data.tfname    = "$itor";
-      tf_data.calltf    = sys_convert_calltf;
-      tf_data.compiletf = sys_convert_compiletf;
       tf_data.sizetf    = sizetf_64;
-      tf_data.user_data = "1$itor";
+      tf_data.compiletf = sys_convert_compiletf;
+      tf_data.calltf    = NULL; // sys_itor_calltf;
+      tf_data.user_data = NULL;
       vpi_register_systf(&tf_data);
-#endif
 
       tf_data.type      = vpiSysFunc;
       tf_data.tfname    = "$realtobits";
-      tf_data.calltf    = sys_real2bits_calltf;
-      tf_data.compiletf = sys_real2bits_compiletf;
       tf_data.sizetf    = sizetf_64;
-      tf_data.user_data = "$realtobits";
+      tf_data.compiletf = sys_convert_compiletf;
+      tf_data.calltf    = sys_realtobits_calltf;
+      tf_data.user_data = NULL;
       vpi_register_systf(&tf_data);
 
-#if 0
       tf_data.type      = vpiSysFunc;
       tf_data.tfname    = "$rtoi";
-      tf_data.calltf    = sys_convert_calltf;
-      tf_data.compiletf = sys_convert_compiletf;
       tf_data.sizetf    = sizetf_32;
-      tf_data.user_data = "3$rtoi";
+      tf_data.compiletf = sys_convert_compiletf;
+      tf_data.calltf    = sys_rtoi_calltf;
+      tf_data.user_data = NULL;
       vpi_register_systf(&tf_data);
-#endif
 }
 
 /*
  * $Log: sys_convert.c,v $
+ * Revision 1.2  2003/03/10 23:40:10  steve
+ *  Add support for $rtoi
+ *
  * Revision 1.1  2003/03/07 02:44:34  steve
  *  Implement $realtobits.
  *