1

/*

     2

 *  matiec - a compiler for the programming languages defined in IEC 61131-3

     3

 *

     4

 *  Copyright (C) 2003-2012  Mario de Sousa (msousa@fe.up.pt)

     5

 *  Copyright (C) 2007-2011  Laurent Bessard and Edouard Tisserant

     6

 *  Copyright (C) 2012       Manuele Conti  (conti.ma@alice.it)

     7

 *

     8

 *  This program is free software: you can redistribute it and/or modify

     9

 *  it under the terms of the GNU General Public License as published by

    10

 *  the Free Software Foundation, either version 3 of the License, or

    11

 *  (at your option) any later version.

    12

 *

    13

 *  This program is distributed in the hope that it will be useful,

    14

 *  but WITHOUT ANY WARRANTY; without even the implied warranty of

    15

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    16

 *  GNU General Public License for more details.

    17

 *

    18

 *  You should have received a copy of the GNU General Public License

    19

 *  along with this program.  If not, see <http://www.gnu.org/licenses/>.

    20

 *

    21

 *

    22

 * This code is made available on the understanding that it will not be

    23

 * used in safety-critical situations without a full and competent review.

    24

 */

    25

    26

/*

    27

 * An IEC 61131-3 compiler.

    28

 *

    29

 * Based on the

    30

 * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)

    31

 *

    32

 */

    33

    34

/* Determine the characteristics of a specific data type

    35

 *  e.g., is it an enumeration, is it an array, is it ANY_INT, etc...

    36

 *

    37

 * The methods of this class may be passed either:

    38

 *  - a data type declaration symbol_c, 

    39

 *   OR

    40

 *  - the name of a data type (identifier_c)

    41

 *    In this case, we shall first serach for the basetype declaration using search_base_type_c, and then 

    42

 *    run the normal process.

    43

 */

    44

#include "absyntax_utils.hh"

    45

    46

#include "../main.hh" // required for ERROR() and ERROR_MSG() macros, as well as the runtime_options global variable

    47

    48

    49

    50

#include <typeinfo>  // required for typeid

    51

    52

    53

/**********************************************************/

    54

/**********************************************************/

    55

/**********************************************************/

    56

/*****                                                *****/

    57

/*****                                                *****/

    58

/*****           Some helper classes                  *****/

    59

/*****                                                *****/

    60

/*****                                                *****/

    61

/**********************************************************/

    62

/**********************************************************/

    63

/**********************************************************/

    64

    65

    66

/****************************************************************************************************/

    67

/****************************************************************************************************/

    68

/* Return the identifier (name) of a datatype, typically declared in a TYPE .. END_TYPE declaration */

    69

/****************************************************************************************************/

    70

/****************************************************************************************************/

    71

class get_datatype_id_c: null_visitor_c {

    72

  private:

    73

    static get_datatype_id_c *singleton;

    74

    75

  public:

    76

    static symbol_c *get_id(symbol_c *symbol) {

    77

      if (NULL == singleton) singleton = new  get_datatype_id_c();

    78

      if (NULL == singleton) ERROR;

    79

      return (symbol_c *)symbol->accept(*singleton);

    80

    }

    81

    82

  protected:

    83

    /***********************************/

    84

    /* B 1.3.1 - Elementary Data Types */

    85

    /***********************************/

    86

    void *visit(time_type_name_c        *symbol) {return (void *)symbol;};

    87

    void *visit(bool_type_name_c        *symbol) {return (void *)symbol;};

    88

    void *visit(sint_type_name_c        *symbol) {return (void *)symbol;};

    89

    void *visit(int_type_name_c         *symbol) {return (void *)symbol;};

    90

    void *visit(dint_type_name_c        *symbol) {return (void *)symbol;};

    91

    void *visit(lint_type_name_c        *symbol) {return (void *)symbol;};

    92

    void *visit(usint_type_name_c       *symbol) {return (void *)symbol;};

    93

    void *visit(uint_type_name_c        *symbol) {return (void *)symbol;};

    94

    void *visit(udint_type_name_c       *symbol) {return (void *)symbol;};

    95

    void *visit(ulint_type_name_c       *symbol) {return (void *)symbol;};

    96

    void *visit(real_type_name_c        *symbol) {return (void *)symbol;};

    97

    void *visit(lreal_type_name_c       *symbol) {return (void *)symbol;};

    98

    void *visit(date_type_name_c        *symbol) {return (void *)symbol;};

    99

    void *visit(tod_type_name_c         *symbol) {return (void *)symbol;};

   100

    void *visit(dt_type_name_c          *symbol) {return (void *)symbol;};

   101

    void *visit(byte_type_name_c        *symbol) {return (void *)symbol;};

   102

    void *visit(word_type_name_c        *symbol) {return (void *)symbol;};

   103

    void *visit(lword_type_name_c       *symbol) {return (void *)symbol;};

   104

    void *visit(dword_type_name_c       *symbol) {return (void *)symbol;};

   105

    void *visit(string_type_name_c      *symbol) {return (void *)symbol;};

   106

    void *visit(wstring_type_name_c     *symbol) {return (void *)symbol;};

   107

   108

    void *visit(safetime_type_name_c    *symbol) {return (void *)symbol;};

   109

    void *visit(safebool_type_name_c    *symbol) {return (void *)symbol;};

   110

    void *visit(safesint_type_name_c    *symbol) {return (void *)symbol;};

   111

    void *visit(safeint_type_name_c     *symbol) {return (void *)symbol;};

   112

    void *visit(safedint_type_name_c    *symbol) {return (void *)symbol;};

   113

    void *visit(safelint_type_name_c    *symbol) {return (void *)symbol;};

   114

    void *visit(safeusint_type_name_c   *symbol) {return (void *)symbol;};

   115

    void *visit(safeuint_type_name_c    *symbol) {return (void *)symbol;};

   116

    void *visit(safeudint_type_name_c   *symbol) {return (void *)symbol;};

   117

    void *visit(safeulint_type_name_c   *symbol) {return (void *)symbol;};

   118

    void *visit(safereal_type_name_c    *symbol) {return (void *)symbol;};

   119

    void *visit(safelreal_type_name_c   *symbol) {return (void *)symbol;};

   120

    void *visit(safedate_type_name_c    *symbol) {return (void *)symbol;};

   121

    void *visit(safetod_type_name_c     *symbol) {return (void *)symbol;};

   122

    void *visit(safedt_type_name_c      *symbol) {return (void *)symbol;};

   123

    void *visit(safebyte_type_name_c    *symbol) {return (void *)symbol;};

   124

    void *visit(safeword_type_name_c    *symbol) {return (void *)symbol;};

   125

    void *visit(safelword_type_name_c   *symbol) {return (void *)symbol;};

   126

    void *visit(safedword_type_name_c   *symbol) {return (void *)symbol;};

   127

    void *visit(safestring_type_name_c  *symbol) {return (void *)symbol;};

   128

    void *visit(safewstring_type_name_c *symbol) {return (void *)symbol;};

   129

   130

    /********************************/

   131

    /* B 1.3.3 - Derived data types */

   132

    /********************************/

   133

    /*  simple_type_name ':' simple_spec_init */

   134

    void *visit(simple_type_declaration_c     *symbol)  {return symbol->simple_type_name;}

   135

    /*  subrange_type_name ':' subrange_spec_init */

   136

    void *visit(subrange_type_declaration_c   *symbol)  {return symbol->subrange_type_name;}

   137

    /*  enumerated_type_name ':' enumerated_spec_init */

   138

    void *visit(enumerated_type_declaration_c *symbol)  {return symbol->enumerated_type_name;}

   139

    /*  identifier ':' array_spec_init */

   140

    void *visit(array_type_declaration_c      *symbol)  {return symbol->identifier;}

   141

    /*  structure_type_name ':' structure_specification */

   142

    void *visit(structure_type_declaration_c  *symbol)  {return symbol->structure_type_name;}

   143

    /*  string_type_name ':' elementary_string_type_name string_type_declaration_size string_type_declaration_init */

   144

    void *visit(string_type_declaration_c     *symbol)  {return symbol->string_type_name;}

   145

    /* ref_type_decl: identifier ':' ref_spec_init */

   146

    void *visit(ref_type_decl_c               *symbol)  {return symbol->ref_type_name;}

   147

    /* NOTE: DO NOT place any code here that references symbol->anotations_map["generate_c_annotaton__implicit_type_id"] !!

   148

     *       All anotations in the symbol->anotations_map[] are considered a stage4 construct. In the above example,

   149

     *       That anotation is specific to the generate_c stage4 code, and must therefore NOT be referenced

   150

     *       in the absyntax_utils code, as this last code should be independent of the stage4 version!

   151

     */ 

   152

   153

    /*****************************/

   154

    /* B 1.5.2 - Function Blocks */

   155

    /*****************************/

   156

    /*  FUNCTION_BLOCK derived_function_block_name io_OR_other_var_declarations function_block_body END_FUNCTION_BLOCK */

   157

    void *visit(function_block_declaration_c  *symbol)  {return symbol->fblock_name;}

   158

    /**********************/

   159

    /* B 1.5.3 - Programs */

   160

    /**********************/

   161

    /*  PROGRAM program_type_name program_var_declarations_list function_block_body END_PROGRAM */

   162

    void *visit(program_declaration_c  *symbol)  {return symbol->program_type_name;}

   163

   164

}; // get_datatype_id_c 

   165

   166

get_datatype_id_c *get_datatype_id_c::singleton = NULL;

   167

   168

   169

   170

   171

   172

   173

/**************************************************/

   174

/**************************************************/

   175

/* transform elementary data type class to string */

   176

/**************************************************/

   177

/**************************************************/

   178

   179

/* A small helper class, to transform elementary data type to string.

   180

 * this allows us to generate more relevant error messages...

   181

 */

   182

   183

class get_datatype_id_str_c: public null_visitor_c {

   184

  protected:

   185

     get_datatype_id_str_c(void)  {};

   186

    ~get_datatype_id_str_c(void) {};

   187

   188

  private:

   189

    /* singleton class! */

   190

    static get_datatype_id_str_c *singleton;

   191

   192

  public:

   193

    static const char *get_id_str(symbol_c *symbol) {

   194

      if (NULL == singleton)    singleton = new get_datatype_id_str_c;

   195

      if (NULL == singleton)    ERROR;

   196

      const char *res           = (const char *)symbol->accept(*singleton);

   197

      if (NULL == res)          ERROR;

   198

      return res;

   199

    }

   200

   201

   202

    /*************************/

   203

    /* B.1 - Common elements */

   204

    /*************************/

   205

    /*******************************************/

   206

    /* B 1.1 - Letters, digits and identifiers */

   207

    /*******************************************/

   208

    void *visit(                 identifier_c *symbol) {return (void *)symbol->value;};

   209

    // Should not be necessary, as datatype declarations currently use an identifier_c for their name! 

   210

    // Only references to the datatype (when declaring variable, for ex., will use poutype_identifier_c

   211

    void *visit(derived_datatype_identifier_c *symbol) {return (void *)symbol->value;};   

   212

    // Should not be necessary, as FB declarations currently use an identifier_c for their name! 

   213

    // Only references to the FB (when declaring variable, for ex., will use poutype_identifier_c

   214

    void *visit(         poutype_identifier_c *symbol) {return (void *)symbol->value;};  

   215

   216

    /***********************************/

   217

    /* B 1.3.1 - Elementary Data Types */

   218

    /***********************************/

   219

    void *visit(time_type_name_c        *symbol) {return (void *)"TIME";        };

   220

    void *visit(bool_type_name_c        *symbol) {return (void *)"BOOL";        };

   221

    void *visit(sint_type_name_c        *symbol) {return (void *)"SINT";        };

   222

    void *visit(int_type_name_c         *symbol) {return (void *)"INT";         };

   223

    void *visit(dint_type_name_c        *symbol) {return (void *)"DINT";        };

   224

    void *visit(lint_type_name_c        *symbol) {return (void *)"LINT";        };

   225

    void *visit(usint_type_name_c       *symbol) {return (void *)"USINT";       };

   226

    void *visit(uint_type_name_c        *symbol) {return (void *)"UINT";        };

   227

    void *visit(udint_type_name_c       *symbol) {return (void *)"UDINT";       };

   228

    void *visit(ulint_type_name_c       *symbol) {return (void *)"ULINT";       };

   229

    void *visit(real_type_name_c        *symbol) {return (void *)"REAL";        };

   230

    void *visit(lreal_type_name_c       *symbol) {return (void *)"LREAL";       };

   231

    void *visit(date_type_name_c        *symbol) {return (void *)"DATE";        };

   232

    void *visit(tod_type_name_c         *symbol) {return (void *)"TOD";         };

   233

    void *visit(dt_type_name_c          *symbol) {return (void *)"DT";          };

   234

    void *visit(byte_type_name_c        *symbol) {return (void *)"BYTE";        };

   235

    void *visit(word_type_name_c        *symbol) {return (void *)"WORD";        };

   236

    void *visit(lword_type_name_c       *symbol) {return (void *)"LWORD";       };

   237

    void *visit(dword_type_name_c       *symbol) {return (void *)"DWORD";       };

   238

    void *visit(string_type_name_c      *symbol) {return (void *)"STRING";      };

   239

    void *visit(wstring_type_name_c     *symbol) {return (void *)"WSTRING";     };

   240

   241

    void *visit(safetime_type_name_c    *symbol) {return (void *)"SAFETIME";    };

   242

    void *visit(safebool_type_name_c    *symbol) {return (void *)"SAFEBOOL";    };

   243

    void *visit(safesint_type_name_c    *symbol) {return (void *)"SAFESINT";    };

   244

    void *visit(safeint_type_name_c     *symbol) {return (void *)"SAFEINT";     };

   245

    void *visit(safedint_type_name_c    *symbol) {return (void *)"SAFEDINT";    };

   246

    void *visit(safelint_type_name_c    *symbol) {return (void *)"SAFELINT";    };

   247

    void *visit(safeusint_type_name_c   *symbol) {return (void *)"SAFEUSINT";   };

   248

    void *visit(safeuint_type_name_c    *symbol) {return (void *)"SAFEUINT";    };

   249

    void *visit(safeudint_type_name_c   *symbol) {return (void *)"SAFEUDINT";   };

   250

    void *visit(safeulint_type_name_c   *symbol) {return (void *)"SAFEULINT";   };

   251

    void *visit(safereal_type_name_c    *symbol) {return (void *)"SAFEREAL";    };

   252

    void *visit(safelreal_type_name_c   *symbol) {return (void *)"SAFELREAL";   };

   253

    void *visit(safedate_type_name_c    *symbol) {return (void *)"SAFEDATE";    };

   254

    void *visit(safetod_type_name_c     *symbol) {return (void *)"SAFETOD";     };

   255

    void *visit(safedt_type_name_c      *symbol) {return (void *)"SAFEDT";      };

   256

    void *visit(safebyte_type_name_c    *symbol) {return (void *)"SAFEBYTE";    };

   257

    void *visit(safeword_type_name_c    *symbol) {return (void *)"SAFEWORD";    };

   258

    void *visit(safelword_type_name_c   *symbol) {return (void *)"SAFELWORD";   };

   259

    void *visit(safedword_type_name_c   *symbol) {return (void *)"SAFEDWORD";   };

   260

    void *visit(safestring_type_name_c  *symbol) {return (void *)"SAFESTRING";  };

   261

    void *visit(safewstring_type_name_c *symbol) {return (void *)"SAFEWSTRING"; };

   262

   263

    /********************************/

   264

    /* B.1.3.2 - Generic data types */

   265

    /********************************/

   266

    void *visit(generic_type_any_c *symbol) {return (void *)"ANY"; };

   267

   268

    /********************************/

   269

    /* B 1.3.3 - Derived data types */

   270

    /********************************/

   271

    /*  simple_type_name ':' simple_spec_init */

   272

    void *visit(simple_type_declaration_c     *symbol)  {return symbol->simple_type_name->accept(*this);}

   273

    /*  subrange_type_name ':' subrange_spec_init */

   274

    void *visit(subrange_type_declaration_c   *symbol)  {return symbol->subrange_type_name->accept(*this);}

   275

    /*  enumerated_type_name ':' enumerated_spec_init */

   276

    void *visit(enumerated_type_declaration_c *symbol)  {return symbol->enumerated_type_name->accept(*this);}

   277

    /*  identifier ':' array_spec_init */

   278

    void *visit(array_type_declaration_c      *symbol)  {return symbol->identifier->accept(*this);}

   279

    /*  structure_type_name ':' structure_specification */

   280

    void *visit(structure_type_declaration_c  *symbol)  {return symbol->structure_type_name->accept(*this);}

   281

    /*  string_type_name ':' elementary_string_type_name string_type_declaration_size string_type_declaration_init */

   282

    void *visit(string_type_declaration_c     *symbol)  {return symbol->string_type_name->accept(*this);}

   283

    /* ref_type_decl: identifier ':' ref_spec_init */

   284

    void *visit(ref_type_decl_c               *symbol)  {return symbol->ref_type_name->accept(*this);}

   285

    /* NOTE: DO NOT place any code here that references symbol->anotations_map["generate_c_annotaton__implicit_type_id"] !!

   286

     *       All anotations in the symbol->anotations_map[] are considered a stage4 construct. In the above example,

   287

     *       That anotation is specific to the generate_c stage4 code, and must therefore NOT be referenced

   288

     *       in the absyntax_utils code, as this last code should be independent of the stage4 version!

   289

     */ 

   290

   291

    /***********************/

   292

    /* B 1.5.1 - Functions */

   293

    /***********************/

   294

    /* Functions are not really datatypes, but we include it here as it helps in printing out error messages!   */

   295

    /* Currently this is needed only by remove_forward_depencies_c::print_circ_error()                          */

   296

    /*  FUNCTION derived_function_name ':' elementary_type_name io_OR_function_var_declarations_list function_body END_FUNCTION */

   297

    void *visit(      function_declaration_c  *symbol)  {return symbol->derived_function_name->accept(*this);}

   298

    /*****************************/

   299

    /* B 1.5.2 - Function Blocks */

   300

    /*****************************/

   301

    /*  FUNCTION_BLOCK derived_function_block_name io_OR_other_var_declarations function_block_body END_FUNCTION_BLOCK */

   302

    void *visit(function_block_declaration_c  *symbol)  {return symbol->fblock_name->accept(*this);}    

   303

    /**********************/

   304

    /* B 1.5.3 - Programs */

   305

    /**********************/

   306

    /*  PROGRAM program_type_name program_var_declarations_list function_block_body END_PROGRAM */

   307

    void *visit(       program_declaration_c  *symbol)  {return symbol->program_type_name->accept(*this);} 

   308

};

   309

   310

get_datatype_id_str_c *get_datatype_id_str_c::singleton = NULL;

   311

   312

   313

   314

/*********************************************************/

   315

/*********************************************************/

   316

/* get the datatype of a field inside a struct data type */

   317

/*********************************************************/

   318

/*********************************************************/

   319

   320

class get_struct_info_c : null_visitor_c {

   321

  private:

   322

    symbol_c *current_field;

   323

    /* singleton class! */

   324

    static get_struct_info_c *singleton;

   325

   326

  public:

   327

    get_struct_info_c(void) {current_field = NULL;}

   328

   329

    static symbol_c *get_field_type_id(symbol_c *struct_type, symbol_c *field_name) {

   330

      if (NULL == singleton)    singleton = new get_struct_info_c;

   331

      if (NULL == singleton)    ERROR;

   332

      singleton->current_field = field_name;

   333

      return (symbol_c *)struct_type->accept(*singleton);

   334

    }

   335

   336

   337

  private:

   338

    /*************************/

   339

    /* B.1 - Common elements */

   340

    /*************************/

   341

    /********************************/

   342

    /* B 1.3.3 - Derived data types */

   343

    /********************************/

   344

    /*  structure_type_name ':' structure_specification */

   345

    /* NOTE: this is only used inside a TYPE ... END_TYPE declaration.  It is never used directly when declaring a new variable! */

   346

    /* NOTE: structure_specification will point to either initialized_structure_c  OR  structure_element_declaration_list_c */

   347

    void *visit(structure_type_declaration_c *symbol) {return symbol->structure_specification->accept(*this);}

   348

   349

    /* structure_type_name ASSIGN structure_initialization */

   350

    /* structure_initialization may be NULL ! */

   351

    // SYM_REF2(initialized_structure_c, structure_type_name, structure_initialization)

   352

    /* NOTE: only the initialized structure is never used when declaring a new variable instance */

   353

    void *visit(initialized_structure_c *symbol) {return symbol->structure_type_name->accept(*this);}

   354

   355

    /* helper symbol for structure_declaration */

   356

    /* structure_declaration:  STRUCT structure_element_declaration_list END_STRUCT */

   357

    /* structure_element_declaration_list structure_element_declaration ';' */

   358

    void *visit(structure_element_declaration_list_c *symbol) {

   359

      /* now search the structure declaration */

   360

      for(int i = 0; i < symbol->n; i++) {

   361

        void *tmp = symbol->elements[i]->accept(*this);

   362

        if (NULL != tmp) return tmp;

   363

      }

   364

      return NULL; // not found!!

   365

    }  

   366

   367

    /*  structure_element_name ':' spec_init */

   368

    void *visit(structure_element_declaration_c *symbol) {

   369

      if (compare_identifiers(symbol->structure_element_name, current_field) == 0)

   370

        return symbol->spec_init; /* found the type of the element we were looking for! */

   371

      return NULL;   /* not the element we are looking for! */

   372

    }

   373

   374

   375

    /* helper symbol for structure_initialization */

   376

    /* structure_initialization: '(' structure_element_initialization_list ')' */

   377

    /* structure_element_initialization_list ',' structure_element_initialization */

   378

    void *visit(structure_element_initialization_list_c *symbol) {ERROR; return NULL;} /* should never get called... */

   379

    /*  structure_element_name ASSIGN value */

   380

    void *visit(structure_element_initialization_c *symbol) {ERROR; return NULL;} /* should never get called... */

   381

   382

   383

    /**************************************/

   384

    /* B.1.5 - Program organization units */

   385

    /**************************************/

   386

    /*****************************/

   387

    /* B 1.5.2 - Function Blocks */

   388

    /*****************************/

   389

    /*  FUNCTION_BLOCK derived_function_block_name io_OR_other_var_declarations function_block_body END_FUNCTION_BLOCK */

   390

    // SYM_REF4(function_block_declaration_c, fblock_name, var_declarations, fblock_body, unused)

   391

    void *visit(function_block_declaration_c *symbol) {

   392

      /* now search the function block declaration for the variable... */

   393

      search_var_instance_decl_c search_decl(symbol);

   394

      return search_decl.get_decl(current_field);

   395

    }

   396

   397

    /*********************************************/

   398

    /* B.1.6  Sequential function chart elements */

   399

    /*********************************************/

   400

    /* INITIAL_STEP step_name ':' action_association_list END_STEP */

   401

    // SYM_REF2(initial_step_c, step_name, action_association_list)

   402

    void *visit(initial_step_c *symbol) {

   403

      identifier_c T("T");  identifier_c X("X");

   404

      /* Hard code the datatypes of the implicit variables Stepname.X and Stepname.T */

   405

      if (compare_identifiers(&T, current_field) == 0)  return &get_datatype_info_c::time_type_name;

   406

      if (compare_identifiers(&X, current_field) == 0)  return &get_datatype_info_c::bool_type_name;

   407

      return NULL;

   408

    }

   409

   410

    /* STEP step_name ':' action_association_list END_STEP */

   411

    // SYM_REF2(step_c, step_name, action_association_list)

   412

    /* The code here should be identicial to the code in the visit(initial_step_c *) visitor! So we simply call the other visitor! */

   413

    void *visit(step_c *symbol) {initial_step_c initial_step(NULL, NULL); return initial_step.accept(*this);}

   414

   415

}; // get_struct_info_c

   416

   417

get_struct_info_c *get_struct_info_c::singleton = NULL;

   418

   419

   420

   421

   422

   423

/**********************************************************/

   424

/**********************************************************/

   425

/**********************************************************/

   426

/*****                                                *****/

   427

/*****                                                *****/

   428

/*****        GET_DATATYPE_INFO_C                     *****/

   429

/*****                                                *****/

   430

/*****                                                *****/

   431

/**********************************************************/

   432

/**********************************************************/

   433

/**********************************************************/

   434

   435

const char *get_datatype_info_c::get_id_str(symbol_c *datatype) {

   436

  return get_datatype_id_str_c::get_id_str(datatype);

   437

}

   438

   439

   440

symbol_c *get_datatype_info_c::get_id(symbol_c *datatype) {

   441

  return get_datatype_id_c::get_id(datatype);

   442

}

   443

   444

   445

symbol_c *get_datatype_info_c::get_struct_field_type_id(symbol_c *struct_datatype, symbol_c *struct_fieldname) {

   446

  return get_struct_info_c::get_field_type_id(struct_datatype, struct_fieldname);

   447

}

   448

   449

   450

   451

symbol_c *get_datatype_info_c::get_array_storedtype_id(symbol_c *type_symbol) {

   452

  // returns the datatype of the variables stored in the array

   453

  array_specification_c *symbol = NULL;

   454

  if (NULL == symbol)  symbol = dynamic_cast<array_specification_c *>(type_symbol);

   455

  if (NULL == symbol)  symbol = dynamic_cast<array_specification_c *>(search_base_type_c::get_basetype_decl(type_symbol));

   456

  if (NULL != symbol)  

   457

    return symbol->non_generic_type_name;

   458

  return NULL; // this is not an array!

   459

}

   460

   461

   462

   463

   464

/* Returns true if both datatypes are equivalent (not necessarily equal!).

   465

 * WARNING: May return true even though the datatypes are not the same/identicial!!!

   466

 *          This occurs when at least one of the datatypes is of a generic

   467

 *          datatype (or a REF_TO a generic datatype). 

   468

 *          (Generic dataypes: ANY, ANY_INT, ANY_NUM, ...)

   469

 * NOTE: Currently only the ANY generic datatype is implemented!

   470

 * NOTE: Currently stage1_2 only allows the use of the ANY keyword when in conjuntion with

   471

 *       the REF_TO keyword (i.e. REF_TO ANY), so when handling non REF_TO datatypes,

   472

 *       this function will currently only return true if the dataypes are identicial.

   473

 */

   474

   475

/* NOTE: matiec supports a strict and a relaxed data type model. Which datatype model to use is chosen

   476

 *       as a command line option.

   477

 * 

   478

 * 

   479

 *       The Strict Datatype Model

   480

 *       =========================

   481

 *       The strict datatype model used by matiec considers any implicitly defined datatype

   482

 *       (e.g. an array datatype defined in the variable declaration itself, instead of inside a TYPE ... END_TYPE

   483

 *       construct) to be different (i.e. not the same datatype, and therefore not compatible) to any other

   484

 *       datatype, including with datatypes declared identically to the implicit datatype.

   485

 *       e.g.

   486

 *         TYPE my_array_t: ARRAY [1..3] OF INT; END_TYPE;

   487

 *         FUNCTION_BLOCK FOO

   488

 *          VAR my_array:  ARRAY [1..3] OF INT; END_VAR

   489

 *         ...

   490

 *         END_FUNCTION_BLOCK

   491

 * 

   492

 *         In the abive code, my_array is NOT considered to te compatible with my_Array_t !!!

   493

 * 

   494

 *       In essence, the currently supported datatype model considers all datatypes to be different to each other,

   495

 *       even though the stored data is the same (Let us call this rule (0))!