1

/*

     2

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

     3

 *

     4

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

     5

 *

     6

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

     7

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

     8

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

     9

 *  (at your option) any later version.

    10

 *

    11

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

    12

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

    13

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    14

 *  GNU General Public License for more details.

    15

 *

    16

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

    17

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

    18

 *

    19

 *

    20

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

    21

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

    22

 */

    23

    24

/*

    25

 * An IEC 61131-3 compiler.

    26

 *

    27

 * Based on the

    28

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

    29

 *

    30

 */

    31

    32

/*

    33

 *  A small helper visitor class, that will   

    34

 *  return the name (tokn_c *) of a variable, as it will

    35

 *  appear in the variable declaration.

    36

 */

    37

    38

/*  For ex.:

    39

 *       VAR

    40

 *          A : int;

    41

 *          B : ARRAY [1..9] of int;

    42

 *          C : some_struct_t;

    43

 *       END_VAR

    44

 *

    45

 *          A    := 56;

    46

 *          B[8] := 99;

    47

 *          C.e  := 77;

    48

 *

    49

 *       Calling this visitor class with symbolic_variable_c instance referencing 'A' in

    50

 *       the line 'A := 56', will return the string "A".

    51

 *

    52

 *       Calling this visitor class with array_variable_c instance referencing 'B[8]' in

    53

 *       the line 'B[8] := 99', will return the string "B".

    54

 *

    55

 *       Calling this visitor class with array_variable_c instance referencing 'C.e' in

    56

 *       the line 'C.e := 77', will return the string "C".

    57

 */

    58

    59

    60

#include "absyntax_utils.hh"

    61

    62

    63

    64

    65

    66

    67

get_var_name_c *get_var_name_c::singleton_instance_ = NULL;

    68

    69

    70

    71

    72

token_c *get_var_name_c::get_name(symbol_c *symbol) {

    73

  if (NULL == singleton_instance_) singleton_instance_ = new get_var_name_c(); 

    74

  if (NULL == singleton_instance_) ERROR; 

    75

    76

  return (token_c *)(symbol->accept(*singleton_instance_));

    77

}

    78

    79

    80

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

    81

/* B.1 - Common elements */

    82

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

    83

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

    84

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

    85

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

    86

// SYM_TOKEN(identifier_c)

    87

void *get_var_name_c::visit(identifier_c *symbol) {return (void *)symbol;}

    88

    89

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

    90

/* B 1.4 - Variables */

    91

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

    92

// SYM_REF2(symbolic_variable_c, var_name, unused)

    93

void *get_var_name_c::visit(symbolic_variable_c *symbol) {return symbol->var_name->accept(*this);}

    94

    95

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

    96

/* B.1.4.1   Directly Represented Variables */

    97

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

    98

// SYM_TOKEN(direct_variable_c)

    99

   100

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

   101

/* B.1.4.2   Multi-element Variables */

   102

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

   103

/*  subscripted_variable '[' subscript_list ']' */

   104

// SYM_REF2(array_variable_c, subscripted_variable, subscript_list)

   105

void *get_var_name_c::visit(array_variable_c *symbol) {return symbol->subscripted_variable->accept(*this);}

   106

   107

/* subscript_list ',' subscript */

   108

// SYM_LIST(subscript_list_c)

   109

   110

/*  record_variable '.' field_selector */

   111

/*  WARNING: input and/or output variables of function blocks

   112

 *           may be accessed as fields of a tructured variable!

   113

 *           Code handling a structured_variable_c must take

   114

 *           this into account!

   115

 */

   116

// SYM_REF2(structured_variable_c, record_variable, field_selector)

   117

void *get_var_name_c::visit(structured_variable_c *symbol) {return symbol->record_variable->accept(*this);}

   118

   119

   120