Subversion Repositories tendra.SVN

/*
                 Crown Copyright (c) 1997
    
    This TenDRA(r) Computer Program is subject to Copyright
    owned by the United Kingdom Secretary of State for Defence
    acting through the Defence Evaluation and Research Agency
    (DERA).  It is made available to Recipients with a
    royalty-free licence for its use, reproduction, transfer
    to other parties and amendment for any purpose not excluding
    product development provided that any such use et cetera
    shall be deemed to be acceptance of the following conditions:-
    
        (1) Its Recipients shall ensure that this Notice is
        reproduced upon any copies or amended versions of it;
    
        (2) Any amended version of it shall be clearly marked to
        show both the nature of and the organisation responsible
        for the relevant amendment or amendments;
    
        (3) Its onward transfer from a recipient to another
        party shall be deemed to be that party's acceptance of
        these conditions;
    
        (4) DERA gives no warranty or assurance as to its
        quality or suitability for any purpose and DERA accepts
        no liability whatsoever in relation to any use to which
        it may be put.
*/


/**********************************************************************
$Author: release $
$Date: 1998/01/17 15:55:46 $
$Revision: 1.1.1.1 $
$Log: diagtypes.h,v $
 * Revision 1.1.1.1  1998/01/17  15:55:46  release
 * First version to be checked into rolling release.
 *
 * Revision 1.4  1998/01/11  18:45:10  pwe
 * consistent new/old diags
 *
 * Revision 1.3  1997/12/04  19:36:45  pwe
 * ANDF-DE V1.9
 *
 * Revision 1.2  1997/08/23  13:27:17  pwe
 * initial ANDF-DE
 *
 * Revision 1.1  1995/04/06  10:42:55  currie
 * Initial revision
 *
***********************************************************************/
#ifndef diagtypes_key
#define diagtypes_key 1


#ifdef NEWDIAGS

typedef dg_name diag_descriptor;
typedef dg_name_list diag_descriptor_list;
typedef dg_name_list diag_unit;
typedef dg_tag diag_tag;
typedef dgtag_struct diag_tagdef;
typedef int diag_tagdef_list;
typedef dg_type diag_type;
typedef dg_type_list diag_type_list;
typedef dg_enum enum_values;
typedef dg_enum_list enum_values_list;
typedef dg_classmem diag_field;
typedef dg_classmem_list diag_field_list;
typedef int diag_tq;
typedef dg_filename filename;
typedef dg_sourcepos sourcemark;
typedef int diag_type_unit;


#else

                                /* temp hacsk to check syntax */

                                /* end hacks */
                                /* dummy defs of lists */

                                /* end dummy defs */
                                /* forward defns for compiler pacification */

#include "diagtypes1.h"


                                /* end forward defns */

struct filename_t 
{
  nat           date;
  tdfstring     machine;
  tdfstring     file;
};

typedef struct sourcemark_t
{
  filename      file;
  nat           line_no;
  nat           char_off;
} sourcemark;

struct enum_values_t
{
  exp           val;
  tdfstring     nme;
};

typedef struct enum_values_t *  enum_values;

struct enum_values_list_t 
{
  int           len;
  int           lastused;
  enum_values *         array;
};

typedef struct enum_values_list_t *     enum_values_list;

struct diag_field_t
{
  tdfstring     field_name;
  exp           where;
  diag_type     field_type;
};

typedef struct diag_field_t *diag_field;

struct diag_field_list_t 
{
  int           len;
  int           lastused;
  diag_field *  array;
};

typedef struct diag_field_list_t *      diag_field_list;

struct diag_type_list_t
{
  int           len;
  int           lastused;
  diag_type             *array;
};

typedef struct diag_type_list_t *diag_type_list;

typedef struct 
{               
  unsigned      is_const:1;
  unsigned      is_volatile:1;
} diag_tq;


typedef tdfint diag_tag;

struct diag_tagdef_t
{
  diag_tag      d_tag;
  char        * ext_name;
  diag_type     d_type;
};

typedef struct diag_tagdef_t diag_tagdef;

typedef enum 
{
  DIAG_TYPE_UNINIT,
  DIAG_TYPE_ARRAY,
  DIAG_TYPE_BITFIELD,
  DIAG_TYPE_ENUM,
  DIAG_TYPE_FLOAT,
  DIAG_TYPE_LOC,
  DIAG_TYPE_PROC,
  DIAG_TYPE_PTR,
  DIAG_TYPE_STRUCT,
  DIAG_TYPE_NULL,
  DIAG_TYPE_UNION,
  DIAG_TYPE_VARIETY,
  DIAG_TYPE_INITED
} diag_type_key;

struct diag_type_t 
{
  diag_type_key key;
  OUTPUT_REC been_outed;
  union
  {
    struct
    {
      diag_type         element_type;
      exp               stride;
      exp               lower_b;
      exp               upper_b;
      diag_type         index_type;
    } array;
    struct
    {
      diag_type         result_type;
      nat               no_of_bits;
    } bitfield;
    struct
    {
      diag_type         base_type;
      tdfstring         nme;
      enum_values_list  values;
    } t_enum;
    floating_variety    f_var;
    struct
    {
      diag_type         object;
      diag_tq           qualifier;
    } loc;
    struct
    {
      diag_type_list    params;
      bool              opt_args;
      diag_type         result_type;
    } proc;
    struct
    {
      diag_type         object;
      diag_tq           qualifier;
    } ptr;
    struct
    {
      shape             tdf_shape;
      tdfstring         nme;
      diag_field_list fields;
    } t_struct;
    struct
    {
      shape             tdf_shape;
      tdfstring         nme;
      diag_field_list fields;
    } t_union;
    variety             var;
  } data;
};

typedef enum 
{
  DIAG_UNINIT,
  DIAG_ID_KEY,
  DIAG_STRUCT_KEY,
  DIAG_TYPEDEF_KEY
} diag_desc_key;

typedef struct diagdef_t
{
  diag_desc_key         key;
  char *                ext_name;
  union 
  {
    struct 
    {
      tdfstring         nme;
      diag_type         new_type;
      sourcemark        whence;
      exp               access;
    } id;
    struct
    {
      tdfstring         nme;
      diag_type         new_type;
      sourcemark        whence;
    } struc;
    struct
    {
      tdfstring         nme;
      diag_type         new_type;
      sourcemark        whence;
    } typ;
  } data;
} diagdef;
                                /* diag_descriptor is in diagtypes1.h */

typedef struct diag_unit_t
{
  int           len;
  int           lastused;
  diag_descriptor *     array;
} diag_unit;

typedef diag_unit diag_descriptor_list;

typedef int diag_type_unit;
typedef diag_type_unit diag_tagdef_list;

#include "diaginfo.h"

#endif
#endif