diff --git a/acc_user.h b/acc_user.h index 57aad4ae9..6a1eac14a 100644 --- a/acc_user.h +++ b/acc_user.h @@ -19,7 +19,7 @@ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA */ #ifdef HAVE_CVS_IDENT -#ident "$Id: acc_user.h,v 1.18 2003/06/13 19:23:41 steve Exp $" +#ident "$Id: acc_user.h,v 1.19 2003/10/10 02:57:45 steve Exp $" #endif /* @@ -200,6 +200,10 @@ extern int acc_configure(PLI_INT32 config_param, const char*value); extern int acc_fetch_argc(void); extern char**acc_fetch_argv(void); +extern PLI_INT32 acc_fetch_direction(handle obj); +/* XXXX FIXME: Values returned by acc_fetch_direction */ +# define accInout 2 + extern char* acc_fetch_fullname(handle obj); extern int acc_fetch_location(p_location loc, handle obj); @@ -232,9 +236,11 @@ extern char* acc_fetch_type_str(PLI_INT32 type); extern char* acc_fetch_value(handle obj, const char*fmt, s_acc_value*value); extern handle acc_handle_by_name(const char*name, handle scope); +extern handle acc_handle_hiconn(handle port_ref_handle); extern handle acc_handle_object(const char*name); extern handle acc_handle_parent(handle obj); extern handle acc_handle_scope(handle obj); +extern handle acc_handle_simulated_net(handle net); extern handle acc_handle_tfarg(int n); extern handle acc_handle_tfinst(void); @@ -242,6 +248,8 @@ extern handle acc_handle_tfinst(void); extern PLI_INT32 acc_compare_handles(handle, handle); extern handle acc_next(PLI_INT32 *, handle, handle); +extern handle acc_next_bit(handle ref, handle bit); +extern handle acc_next_port(handle ref, handle bit); extern handle acc_next_scope(handle, handle); extern handle acc_next_topmod(handle prev_topmod); @@ -264,6 +272,9 @@ EXTERN_C_END /* * $Log: acc_user.h,v $ + * Revision 1.19 2003/10/10 02:57:45 steve + * Some PLI1 stubs. + * * Revision 1.18 2003/06/13 19:23:41 steve * Add a bunch more PLI1 routines. * diff --git a/libveriuser/.cvsignore b/libveriuser/.cvsignore index 2f8b88c43..f4f67abe0 100644 --- a/libveriuser/.cvsignore +++ b/libveriuser/.cvsignore @@ -3,3 +3,4 @@ configure config.* autom4te.cache dep +bin32 diff --git a/libveriuser/Makefile.in b/libveriuser/Makefile.in index 22a34bf6a..48fa180b0 100644 --- a/libveriuser/Makefile.in +++ b/libveriuser/Makefile.in @@ -16,7 +16,7 @@ # 59 Temple Place - Suite 330 # Boston, MA 02111-1307, USA # -#ident "$Id: Makefile.in,v 1.30 2003/10/09 00:37:58 steve Exp $" +#ident "$Id: Makefile.in,v 1.31 2003/10/10 02:57:45 steve Exp $" # # SHELL = /bin/sh @@ -47,16 +47,19 @@ STRIP = @STRIP@ RANLIB = @RANLIB@ A = a_close.o a_compare_handles.o a_configure.o a_fetch_argc.o \ -a_fetch_argv.o a_fetch_fullname.o a_fetch_location.o \ +a_fetch_argv.o a_fetch_dir.o a_fetch_fullname.o a_fetch_location.o \ a_fetch_param.o a_fetch_range.o a_fetch_tfarg.o a_fetch_time.o \ a_fetch_type.o a_fetch_type_str.o a_fetch_value.o a_handle_by_name.o \ -a_handle_object.o a_handle_parent.o a_handle_tfarg.o a_initialize.o \ -a_next.o a_next_topmod.o a_object_of_type.o a_product_version.o \ +a_handle_hiconn.o a_handle_object.o a_handle_parent.o \ +a_handle_simulated_net.o a_handle_tfarg.o a_initialize.o \ +a_next.o a_next_bit.o a_next_port.o a_next_topmod.o \ +a_object_of_type.o a_product_version.o \ a_set_value.o a_vcl.o a_version.o -O = asynch.o delay.o finish.o getcstringp.o getinstance.o getlongp.o \ -getp.o getsimtime.o io_print.o math.o mc_scan_plusargs.o nump.o putlongp.o \ -putp.o spname.o typep.o workarea.o veriusertfs.o priv.o $A +O = asynch.o delay.o exprinfo.o finish.o getcstringp.o getinstance.o \ +getlongp.o getp.o getsimtime.o io_print.o math.o mc_scan_plusargs.o \ +nodeinfo.o nump.o putlongp.o putp.o spname.o typep.o workarea.o \ +veriusertfs.o priv.o $A ifeq (@enable_vvp32@,yes) ALL32 = all32 diff --git a/libveriuser/a_fetch_dir.c b/libveriuser/a_fetch_dir.c new file mode 100644 index 000000000..580b97c02 --- /dev/null +++ b/libveriuser/a_fetch_dir.c @@ -0,0 +1,53 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@picturel.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: a_fetch_dir.c,v 1.1 2003/10/10 02:57:45 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +PLI_INT32 acc_fetch_direction(handle obj) +{ + if (pli_trace) { + fprintf(pli_trace, "acc_fetch_direction: enter.\n"); + fflush(pli_trace); + } + + fprintf(stderr, "acc_fetch_direction: XXXX not implemented. XXXX\n"); + + if (pli_trace) { + fprintf(pli_trace, "acc_fetch_direction: return.\n"); + fflush(pli_trace); + } + + return accInout; +} + + +/* + * $Log: a_fetch_dir.c,v $ + * Revision 1.1 2003/10/10 02:57:45 steve + * Some PLI1 stubs. + * + */ + diff --git a/libveriuser/a_handle_hiconn.c b/libveriuser/a_handle_hiconn.c new file mode 100644 index 000000000..567a0d00a --- /dev/null +++ b/libveriuser/a_handle_hiconn.c @@ -0,0 +1,53 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@picturel.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: a_handle_hiconn.c,v 1.1 2003/10/10 02:57:45 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +handle acc_handle_hiconn(handle obj) +{ + if (pli_trace) { + fprintf(pli_trace, "acc_handle_hiconn: enter.\n"); + fflush(pli_trace); + } + + fprintf(stderr, "acc_handle_hiconn: XXXX not implemented. XXXX\n"); + + if (pli_trace) { + fprintf(pli_trace, "acc_handle_hiconn: return.\n"); + fflush(pli_trace); + } + + return 0; +} + + +/* + * $Log: a_handle_hiconn.c,v $ + * Revision 1.1 2003/10/10 02:57:45 steve + * Some PLI1 stubs. + * + */ + diff --git a/libveriuser/a_handle_simulated_net.c b/libveriuser/a_handle_simulated_net.c new file mode 100644 index 000000000..2d07d1ab5 --- /dev/null +++ b/libveriuser/a_handle_simulated_net.c @@ -0,0 +1,46 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@picturel.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: a_handle_simulated_net.c,v 1.1 2003/10/10 02:57:46 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +handle acc_handle_simulated_net(handle obj) +{ + if (pli_trace) { + fprintf(pli_trace, "acc_handle_simulated_set: returns argument\n"); + fflush(pli_trace); + } + + return obj; +} + + +/* + * $Log: a_handle_simulated_net.c,v $ + * Revision 1.1 2003/10/10 02:57:46 steve + * Some PLI1 stubs. + * + */ + diff --git a/libveriuser/a_next_bit.c b/libveriuser/a_next_bit.c new file mode 100644 index 000000000..13ba06a5f --- /dev/null +++ b/libveriuser/a_next_bit.c @@ -0,0 +1,53 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@picturel.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: a_next_bit.c,v 1.1 2003/10/10 02:57:46 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +handle acc_next_bit(handle ref, handle bit) +{ + if (pli_trace) { + fprintf(pli_trace, "acc_next_bit: enter.\n"); + fflush(pli_trace); + } + + fprintf(stderr, "acc_next_bit: XXXX not implemented. XXXX\n"); + + if (pli_trace) { + fprintf(pli_trace, "acc_next_bit: return.\n"); + fflush(pli_trace); + } + + return 0; +} + + +/* + * $Log: a_next_bit.c,v $ + * Revision 1.1 2003/10/10 02:57:46 steve + * Some PLI1 stubs. + * + */ + diff --git a/libveriuser/a_next_port.c b/libveriuser/a_next_port.c new file mode 100644 index 000000000..dc08aeaec --- /dev/null +++ b/libveriuser/a_next_port.c @@ -0,0 +1,53 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@icarus.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: a_next_port.c,v 1.1 2003/10/10 02:57:46 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +handle acc_next_port(handle ref, handle bit) +{ + if (pli_trace) { + fprintf(pli_trace, "acc_next_port: enter.\n"); + fflush(pli_trace); + } + + fprintf(stderr, "acc_next_port: XXXX not implemented. XXXX\n"); + + if (pli_trace) { + fprintf(pli_trace, "acc_next_port: return.\n"); + fflush(pli_trace); + } + + return 0; +} + + +/* + * $Log: a_next_port.c,v $ + * Revision 1.1 2003/10/10 02:57:46 steve + * Some PLI1 stubs. + * + */ + diff --git a/libveriuser/exprinfo.c b/libveriuser/exprinfo.c new file mode 100644 index 000000000..1cd4f65d5 --- /dev/null +++ b/libveriuser/exprinfo.c @@ -0,0 +1,53 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@icarus.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: exprinfo.c,v 1.1 2003/10/10 02:57:46 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +struct t_tfexprinfo* tf_exprinfo(PLI_INT32 a, struct t_tfexprinfo*ip) +{ + if (pli_trace) { + fprintf(pli_trace, "tf_exprinfo: enter.\n"); + fflush(pli_trace); + } + + fprintf(stderr, "tf_exprinfo: XXXX not implemented. XXXX\n"); + + if (pli_trace) { + fprintf(pli_trace, "tf_exprinfo: return.\n"); + fflush(pli_trace); + } + return 0; +} + + + +/* + * $Log: exprinfo.c,v $ + * Revision 1.1 2003/10/10 02:57:46 steve + * Some PLI1 stubs. + * + */ + diff --git a/libveriuser/nodeinfo.c b/libveriuser/nodeinfo.c new file mode 100644 index 000000000..6f2736767 --- /dev/null +++ b/libveriuser/nodeinfo.c @@ -0,0 +1,53 @@ +/* + * Copyright (c) 2003 Stephen Williams (steve@icarus.com) + * + * This source code is free software; you can redistribute it + * and/or modify it in source code form under the terms of the GNU + * General Public License as published by the Free Software + * Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + */ +#ifdef HAVE_CVS_IDENT +#ident "$Id: nodeinfo.c,v 1.1 2003/10/10 02:57:46 steve Exp $" +#endif + +# include +# include +# include +# include +# include "priv.h" + +struct t_tfnoeinfo* tf_nodeinfo(PLI_INT32 a, struct t_tfnodeinfo*ip) +{ + if (pli_trace) { + fprintf(pli_trace, "tf_nodeinfo: enter.\n"); + fflush(pli_trace); + } + + fprintf(stderr, "tf_nodeinfo: XXXX not implemented. XXXX\n"); + + if (pli_trace) { + fprintf(pli_trace, "tf_nodeinfo: return.\n"); + fflush(pli_trace); + } + return 0; +} + + + +/* + * $Log: nodeinfo.c,v $ + * Revision 1.1 2003/10/10 02:57:46 steve + * Some PLI1 stubs. + * + */ + diff --git a/veriuser.h b/veriuser.h index 2469fbb0f..6aea76e24 100644 --- a/veriuser.h +++ b/veriuser.h @@ -1,7 +1,7 @@ #ifndef __veriuser_H #define __veriuser_H /* - * Copyright (c) 2002 Stephen Williams (steve@icarus.com) + * Copyright (c) 2002-2003 Stephen Williams (steve@icarus.com) * * This source code is free software; you can redistribute it * and/or modify it in source code form under the terms of the GNU @@ -19,7 +19,7 @@ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA */ #ifdef HAVE_CVS_IDENT -#ident "$Id: veriuser.h,v 1.33 2003/06/13 19:23:41 steve Exp $" +#ident "$Id: veriuser.h,v 1.34 2003/10/10 02:57:45 steve Exp $" #endif /* @@ -232,6 +232,21 @@ typedef struct t_tfnodeinfo { #define tf_real_node 107 #define TF_REAL_NODE tf_real_node +/* Structure used by the tf_exprinfo function. */ +typedef struct t_tfexprinfo { + PLI_INT16 expr_type; + PLI_INT16 padding; + struct t_vecval*expr_value_p; + double real_value; + char*expr_string; + PLI_INT32 expr_ngroups; + PLI_INT32 expr_vec_size; + PLI_INT32 expr_sign; + PLI_INT32 expr_lhs_select; + PLI_INT32 expr_rhs_select; +} s_tfexprinfo, *p_tfexprinfo; + + /* Extern functions from the library. */ extern void io_printf (const char *, ...) __attribute__((format (printf,1,2))); @@ -247,6 +262,8 @@ extern int tf_dostop(void); extern void tf_error(const char*, ...) __attribute__((format (printf,1,2))); +extern struct t_tfexprinfo* tf_exprinfo(PLI_INT32 a, struct t_tfexprinfo*ip); + extern char* tf_getcstringp(int nparam); extern PLI_BYTE8* tf_getinstance(void); @@ -342,6 +359,9 @@ EXTERN_C_END /* * $Log: veriuser.h,v $ + * Revision 1.34 2003/10/10 02:57:45 steve + * Some PLI1 stubs. + * * Revision 1.33 2003/06/13 19:23:41 steve * Add a bunch more PLI1 routines. *