WebSVN – Vertical – Diff – /branches/metal/vertlib/expression.h

 /* contains the type declarations for expression handling information
+ *
- * $Header: c:\\cygwin\\cvsroot/Vert03/vertlib/expression.h,v 1.1.1.1 2003/11/04 23:34:57
+ * $Header: c:\\cygwin\\cvsroot/Vert03/vertlib/expression.h,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $
- * mjames Exp $
+ *
  * $Log: expression.h,v $
  * Revision 1.1.1.1  2003/11/04 23:34:57  mjames
  * Imported into local repositrory
+ *
  * Mike put it here
+ *
+ *
  * Revision 1.19  2000/10/04  10:37:15  10:37:15  mjames (Mike James)
  * Modified for Vertical2 : support COMPONENTS and SIGNALS
  *
  * Revision 1.19  2000/10/04  10:37:15  10:37:15  mjames (Mike James)
  * Part of Release PSAVAT01
  *
  * Revision 1.18  2000/10/02  11:04:12  11:04:12  mjames (Mike James)
  * new_vhdl
  *
  * Revision 1.17  2000/09/27  14:42:30  14:42:30  mjames (Mike James)
  * Part of Release Sep_27_ST_2000
  *
  * Revision 1.16  2000/09/21  10:16:00  10:16:00  mjames (Mike James)
  * Part of Release Sep21Alpha
  *
  * Revision 1.15  2000/08/25  09:57:23  09:57:23  mjames (Mike James)
  * Part of Release Aug25_alpha
  *
  * Revision 1.14  2000/08/16  08:57:40  08:57:40  mjames (Mike James)
  * Part of Release CD01_Aug2000
  *
  * Revision 1.13  2000/08/14  14:45:19  14:45:19  mjames (Mike James)
  * Part of Release Aug_14_2000
  *
  * Revision 1.12  2000/08/11  08:30:40  08:30:40  mjames (Mike James)
  * Part of Release Aug_11_2000
  *
  * Revision 1.11  2000/08/09  10:31:57  10:31:57  mjames (Mike James)
  * Part of Release Aug__9_2000
  *
  * Revision 1.10  2000/05/31  11:43:11  11:43:11  mjames (Mike James)
  * Part of Release May_31_2000
  *
  * Revision 1.9  2000/05/08  17:01:46  17:01:46  mjames (Mike James)
  * Part of Release May__8_2000
  *
  * Revision 1.8  2000/05/08  16:59:40  16:59:40  mjames (Mike James)
  * Part of Release May__8_2000
  *
  * Revision 1.7  2000/05/08  16:57:16  16:57:16  mjames (Mike James)
  * Part of Release May__8_2000
  *
  * Revision 1.6  2000/03/08  16:18:57  16:18:57  mjames (Mike James)
  * New version including PC
  *
  * Revision 1.3  2000/01/20  15:58:58  15:58:58  mjames (Mike James)
  * Part of Release R22
  *
  * Revision 1.2  99/12/22  11:15:39  11:15:39  mjames (Mike James)
  * Part of Release Dec_22_1999
  *
  * Revision 1.1  99/06/25  14:36:23  14:36:23  mjames (Mike James)
  * Initial revision
  *
-#pragma once
-#include "stdio.h"
-#include "generic.h"
  *  */
 #if !defined _EXPRESSION
 #define _EXPRESSION
 /* constants for object types found at bottom of expressions */
-#define EXP_CONSTANT 'C'
+#define EXP_CONSTANT   'C'
-#define EXP_VAR_REF 'I'
+#define EXP_VAR_REF    'I'
-#define EXP_BOOLEAN 'B'
+#define EXP_BOOLEAN    'B'
-#define EXP_VARIABLE 'V'
+#define EXP_VARIABLE   'V'
-#define EXP_STRING 'S'
+#define EXP_STRING     'S'
-#define EXP_UNDEF_VAR 'U'
+#define EXP_UNDEF_VAR  'U'
-#define EXP_CHAR 'H'
+#define EXP_CHAR       'H'
 /* decoding  recurse_generics
  * 0: NO_RECURSE stop expanding generics when a constant encountered
  * 1: RECURSE_CONST expand generics until one found which does not contain an expression
  * 2: RECURSE_NUMBER: expand generics until all constants are exposed
  constant a : integer := 3;
- constant a : integer := 3;
+ constant b : integer := a + 3;
- constant b : integer := a + 3;
+ constant c : integer := b + a;
- constant c : integer := b + a;
  for values of expand generics :
+ value 0:
- for values of expand generics :
+ constant a : integer := 3;
- value 0:
+ constant b : integer := a + 3;
- constant a : integer := 3;
+ constant c : integer := b + a;
- constant b : integer := a + 3;
- constant c : integer := b + a;
+ value 1:
  constant a : integer := 3;
  constant b : integer := a + 3;
- value 1:
+ constant c : integer := (a+3) + a;
- constant a : integer := 3;
- constant b : integer := a + 3;
+ value 2:
- constant c : integer := (a+3) + a;
+ constant a : integer := 3;
  constant b : integer := (3) + 3;
  constant c : integer := ((3)+3) + (3);
- value 2:
- constant a : integer := 3;
- constant b : integer := (3) + 3;
+  */
  constant c : integer := ((3)+3) + (3);
-  */
+typedef enum { NO_RECURSE=0,RECURSE_CONST,RECURSE_NUMBER } generic_print_style;
 typedef enum
 struct generic_info;
-        NO_RECURSE = 0,
+/* see database.h for the description of expression_t */
-        RECURSE_CONST,
+/* expression data structures .. see expression.h for handler fns */
-        RECURSE_NUMBER
+typedef struct exp {
-} generic_print_style;
+  int opcode;
-struct generic_info;
-/* see database.h for the description of expression_t */
+  union {
-/* expression data structures .. see expression.h for handler fns */
+    char * s; /* pointer to string value */
-typedef struct exp
+    struct generic_info  * g; /* pointer to generic value */
-{
+    int    i;  /* integer part of expression */
-        int opcode;
+    struct exp * e;
-        union
+    int * ip; /* pointer to an integer somewhere */
-        {
+    } left; /* values */
-                char *s;                /* pointer to string value */
-                struct generic_info *g; /* pointer to generic value */
+  union {
-                int i;                  /* integer part of expression */
+    char * s;  /* pointer to name */
-                struct exp *e;
+    struct exp * e;
-                int *ip; /* pointer to an integer somewhere */
+    } right;  /* name or expression */
-        } left;          /* values */
-        union
+  } expression_t;
-                char *s; /* pointer to name */
+/* place reference to a 'C' variable at the end of the tree branch */
-                struct exp *e;
+extern expression_t * compile_variable_reference(int *v,char * s );
         } right; /* name or expression */
 /* compiles a variable. When printing expression stop descent of the evaluation tree here */
-} expression_t;
+extern expression_t * compile_variable(struct generic_info * gen , char * valname);
-/* place reference to a 'C' variable at the end of the tree branch */
+extern expression_t * compile_string(char * s);
 extern expression_t *compile_variable_reference (int *v, char *s);
+extern expression_t * compile_char(char c);
 /* compiles a variable. When printing expression stop descent of the evaluation tree here */
-extern expression_t *compile_variable (struct generic_info *gen, char *valname);
+/* an unelaborated variable reference (link at evaluation time */
+extern expression_t * compile_reference(char * s);
 extern expression_t *compile_string (char *s);
 /* compiles an integer constant */
-extern expression_t *compile_char (char c);
+extern expression_t * compile_constant(int k );
-/* an unelaborated variable reference (link at evaluation time */
+extern expression_t * compile_constant_string(int k,char * s ) ;
 extern expression_t *compile_reference (char *s);
 /* compiles an boolean constant */
-/* compiles an integer constant */
+extern expression_t * compile_bool_constant(int k );
+extern expression_t * compile_bool_constant_string(int k,char * s ) ;
 extern expression_t *compile_constant (int k);
 extern expression_t *compile_constant_string (int k, char *s);
+extern expression_t * compile_expression(int opcode,
+       expression_t * left,
+       expression_t * right );
 /* compiles an boolean constant */
-extern expression_t *compile_bool_constant (int k);
+extern void print_expression(FILE * f,expression_t * e,generic_print_style recurse_generics ) ;
-extern expression_t *compile_bool_constant_string (int k, char *s);
+extern void print_range_expression(FILE * f,expression_t * e,generic_print_style recurse_generics);
+extern void print_msg_expression(FILE * f,char * s,expression_t * e );
 extern expression_t *compile_expression (int opcode, expression_t *left, expression_t *right);
 extern void print_expression (FILE *f, expression_t *e, generic_print_style recurse_generics);
 /* this is actually returning the type of the generic */
-extern void
+extern int eval_gen_expression(
+       struct generic_info * gen);
 print_range_expression (FILE *f, expression_t *e, generic_print_style recurse_generics);
+extern int eval_vhdl_expression(expression_t * expr,
+                         int * high,
+                         int * low );
 extern void print_msg_expression (FILE *f, char *s, expression_t *e);
 /*******************************************/
-/* this is actually returning the type of the generic */
+struct socket;/* pulled in from database.h */
-extern int eval_gen_expression (struct generic_info *gen);
+struct vhdl;
 /*******************************************/
-extern int eval_vhdl_expression (expression_t *expr, int *high, int *low);
+extern expression_t * copy_expression(expression_t * src,struct socket  * skt);
-/*******************************************/
+extern struct vhdl * copy_vhdl(struct vhdl * vhdl,struct socket * skt);
 struct socket; /* pulled in from database.h */
-struct vhdl;
+extern void free_expression(expression_t * expr);
 /*******************************************/
-extern expression_t *copy_expression (expression_t *src, struct socket *skt);
+extern int eval_expression(expression_t * e,struct generic_info ** generic_list);
-extern struct vhdl *copy_vhdl (struct vhdl *vhdl, struct socket *skt);
+#endif

Subversion Repositories Vertical

(root)/branches/metal/vertlib/expression.h – Rev 9 → 11