vvp/parse_misc.cc

   1 /*
   2  * Copyright (c) 2001  Stephen Williams (steve@icarus.com)
   3  *
   4  *    This source code is free software; you can redistribute it
   5  *    and/or modify it in source code form under the terms of the GNU
   6  *    General Public License as published by the Free Software
   7  *    Foundation; either version 2 of the License, or (at your option)
   8  *    any later version.
   9  *
  10  *    This program is distributed in the hope that it will be useful,
  11  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  *    GNU General Public License for more details.
  14  *
  15  *    You should have received a copy of the GNU General Public License
  16  *    along with this program; if not, write to the Free Software
  17  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  18  */
  19 #ifdef HAVE_CVS_IDENT
  20 #ident "$Id: parse_misc.cc,v 1.9 2006/09/23 04:57:20 steve Exp $"
  21 #endif
  22
  23 # include  "parse_misc.h"
  24 # include  "compile.h"
  25 # include  <stdio.h>
  26 #ifdef HAVE_MALLOC_H
  27 # include  <malloc.h>
  28 #endif
  29 # include  <stdlib.h>
  30
  31 const char*yypath;
  32 unsigned yyline;
  33
  34 void yyerror(const char*msg)
  35 {
  36       fprintf(stderr, "%s:%u: %s\n", yypath, yyline, msg);
  37 }
  38
  39 void symbv_init(struct symbv_s*obj)
  40 {
  41       obj->cnt = 0;
  42       obj->vect = 0;
  43 }
  44
  45 void symbv_add(struct symbv_s*obj, struct symb_s item)
  46 {
  47       obj->vect = (struct symb_s*)
  48             realloc(obj->vect, (obj->cnt+1) * sizeof(struct symb_s));
  49       obj->vect[obj->cnt] = item;
  50       obj->cnt += 1;
  51 }
  52
  53 void numbv_init(struct numbv_s*obj)
  54 {
  55       obj->cnt = 0;
  56       obj->nvec = 0;
  57 }
  58
  59 void numbv_add(struct numbv_s*obj, long item)
  60 {
  61       obj->nvec = (long*) realloc(obj->nvec, (obj->cnt+1) * sizeof(long));
  62       obj->nvec[obj->cnt] = item;
  63       obj->cnt += 1;
  64 }
  65
  66 void numbv_clear(struct numbv_s*obj)
  67 {
  68       free(obj->nvec);
  69       obj->nvec = 0;
  70       obj->cnt = 0;
  71 }
  72
  73 void argv_init(struct argv_s*obj)
  74 {
  75       obj->argc = 0;
  76       obj->argv = 0;
  77       obj->syms = 0;
  78 }
  79
  80 void argv_add(struct argv_s*obj, vpiHandle item)
  81 {
  82       obj->argv = (vpiHandle*)
  83             realloc(obj->argv, (obj->argc+1)*sizeof(vpiHandle));
  84       obj->argv[obj->argc] = item;
  85       obj->argc += 1;
  86 }
  87
  88 void argv_sym_add(struct argv_s*obj, char *item)
  89 {
  90       argv_add(obj, 0x0);
  91       obj->syms = (char**)
  92             realloc(obj->syms, (obj->argc)*sizeof(char*));
  93       obj->syms[obj->argc-1] = item;
  94 }
  95
  96 void argv_sym_lookup(struct argv_s*obj)
  97 {
  98       if (!obj->syms)
  99             return;
 100       for (unsigned i=0; i < obj->argc; i++)
 101             if (!obj->argv[i])
 102                   compile_vpi_lookup(&obj->argv[i], obj->syms[i]);
 103       free(obj->syms);
 104 }
 105
 106 /*
 107  * $Log: parse_misc.cc,v $
 108  * Revision 1.9  2006/09/23 04:57:20  steve
 109  *  Basic support for specify timing.
 110  *
 111  * Revision 1.8  2002/08/12 01:35:08  steve
 112  *  conditional ident string using autoconfig.
 113  *
 114  * Revision 1.7  2001/09/15 18:27:05  steve
 115  *  Make configure detect malloc.h
 116  *
 117  * Revision 1.6  2001/07/11 04:43:57  steve
 118  *  support postpone of $systask parameters. (Stephan Boettcher)
 119  *
 120  * Revision 1.5  2001/05/02 23:16:50  steve
 121  *  Document memory related opcodes,
 122  *  parser uses numbv_s structures instead of the
 123  *  symbv_s and a mess of unions,
 124  *  Add the %is/sub instruction.
 125  *        (Stephan Boettcher)
 126  *
 127  * Revision 1.4  2001/05/01 01:09:39  steve
 128  *  Add support for memory objects. (Stephan Boettcher)
 129  *
 130  * Revision 1.3  2001/03/20 06:16:24  steve
 131  *  Add support for variable vectors.
 132  *
 133  * Revision 1.2  2001/03/18 04:35:18  steve
 134  *  Add support for string constants to VPI.
 135  *
 136  * Revision 1.1  2001/03/11 00:29:39  steve
 137  *  Add the vvp engine to cvs.
 138  *
 139  */
 140