Add the stochastic (queue) tasks/function

This patch adds full support for the stochastic tasks/functions except
the mean inter-arrival and average wait statistics are not currently
available. These will be added in a later patch. This implementation
goes a bit beyond the standard and supports the following:

 1. The job and inform arguments support 32 bit four state values.
 2. The id for all routines, the job and inform arguments for $q_add(),
    the statistic code for $q_exam() along with the queue type and
    maximum length arguments for $q_initialize() can be less than or
    equal to 32 bits. The argument will be sign extended if needed to
    fill the internal 32 bit value.
 3. The job and inform arguments to $q_remove() and the status argument
    for all the routines must be 32 bits, but do not have to be an
    integer variable (e.g. a 32 bit register or part select is OK).
 4. An undefined bit in the id argument for any of the routines will
    return a status of 2 (undefined queue id). Undefined bits are not
    automatically converted to zero.
 5. Undefined bits in the $q_initialize() queue type and maximum
    length arguments or the $q_exam() statistic code argument are also
    flagged as an error (are not converted to zero).
 6. The $q_full() function returns 2 on error, the other routines that
    return a value $q_remove() job/inform arguments and the $q_exam()
    statistic value argument will usually return x on error.
 7. An invalid statistic code will set the $q_exam() status to 8.
 8. The $q_exam() statistic value argument can be 32 bits or larger.
    This allows returning large statistical time values.
 9. All time values are internally saved in simulation time units.
    They will be converted to the calling module's time unit (with
    rounding) before they are returned.
10. If a $q_exam() statistical value is too large to fit into the
    variable the maximum positive value will be returned and the
    status code will be set to 9 (value is too large).
11. If a statistical value is currently undefined $q_exam() will
    return 10 (no statistical information) (e.g. using code 5 on an
    empty queue).

vpi/Makefile.in

@@ -53,10 +53,10 @@ LDFLAGS = @LDFLAGS@
 
 # Object files for system.vpi
 O = sys_table.o sys_convert.o sys_deposit.o sys_display.o sys_fileio.o \
-    sys_finish.o sys_icarus.o sys_plusargs.o sys_random.o sys_random_mti.o \
-    sys_readmem.o sys_readmem_lex.o sys_scanf.o sys_sdf.o sys_time.o \
-    sys_vcd.o sys_vcdoff.o vcd_priv.o  mt19937int.o sys_priv.o sdf_lexor.o \
-    sdf_parse.o stringheap.o vams_simparam.o
+    sys_finish.o sys_icarus.o sys_plusargs.o sys_queue.o sys_random.o \
+    sys_random_mti.o sys_readmem.o sys_readmem_lex.o sys_scanf.o sys_sdf.o \
+    sys_time.o sys_vcd.o sys_vcdoff.o vcd_priv.o  mt19937int.o sys_priv.o \
+    sdf_lexor.o sdf_parse.o stringheap.o vams_simparam.o
 OPP = vcd_priv2.o
 
 ifeq (@HAVE_LIBZ@,yes)

vpi/sys_icarus.c

@@ -1,5 +1,5 @@
 /*
- *  Copyright (C) 2008-2010  Cary R. (cygcary@yahoo.com)
+ *  Copyright (C) 2008-2011  Cary R. (cygcary@yahoo.com)
  *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
@@ -190,31 +190,6 @@ void sys_special_register(void)
       res = vpi_register_systf(&tf_data);
       vpip_make_systf_system_defined(res);
 
-      tf_data.tfname      = "$q_initialize";
-      tf_data.user_data   = "$q_initialize";
-      res = vpi_register_systf(&tf_data);
-      vpip_make_systf_system_defined(res);
-
-      tf_data.tfname      = "$q_add";
-      tf_data.user_data   = "$q_add";
-      res = vpi_register_systf(&tf_data);
-      vpip_make_systf_system_defined(res);
-
-      tf_data.tfname      = "$q_remove";
-      tf_data.user_data   = "$q_remove";
-      res = vpi_register_systf(&tf_data);
-      vpip_make_systf_system_defined(res);
-
-      tf_data.tfname      = "$q_full";
-      tf_data.user_data   = "$q_full";
-      res = vpi_register_systf(&tf_data);
-      vpip_make_systf_system_defined(res);
-
-      tf_data.tfname      = "$q_exam";
-      tf_data.user_data   = "$q_exam";
-      res = vpi_register_systf(&tf_data);
-      vpip_make_systf_system_defined(res);
-
       tf_data.tfname      = "$dumpports";
       tf_data.user_data   = "$dumpports";
       res = vpi_register_systf(&tf_data);

vpi/sys_table.c

@@ -29,6 +29,7 @@ extern void sys_finish_register();
 extern void sys_deposit_register();
 extern void sys_display_register();
 extern void sys_plusargs_register();
+extern void sys_queue_register();
 extern void sys_random_register();
 extern void sys_random_mti_register();
 extern void sys_readmem_register();
@@ -198,6 +199,7 @@ void (*vlog_startup_routines[])() = {
       sys_deposit_register,
       sys_display_register,
       sys_plusargs_register,
+      sys_queue_register,
       sys_random_register,
       sys_random_mti_register,
       sys_readmem_register,

vpi/system.sft

@@ -15,6 +15,7 @@ $dist_chi_square   vpiSysFuncInt
 $dist_t            vpiSysFuncInt
 $dist_erlang       vpiSysFuncInt
 $clog2             vpiSysFuncInt
+$q_full            vpiSysFuncInt
 
 $abstime       vpiSysFuncReal
 $simparam      vpiSysFuncReal