1

/*

     2

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

     3

 *

     4

 *  Copyright (C) 2003-2011  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

/*

    34

 * Function call parameter iterator.

    35

 *

    36

 * This is part of the 4th stage that generates

    37

 * a c++ source program equivalent to the IL and ST

    38

 * code.

    39

 */

    40

    41

    42

#include "../absyntax/visitor.hh"

    43

    44

    45

    46

/* given a function_body_c, iterate through each

    47

 * function/FB call in that code.

    48

 */

    49

    50

class function_call_iterator_c : public iterator_visitor_c {

    51

    52

  private:

    53

    symbol_c *start_symbol;

    54

    int next_fcall, fcall_count;

    55

    symbol_c *current_fcall_name;

    56

    symbol_c *current_finvocation;

    57

    58

  public:

    59

    /* initialise the iterator object.

    60

     * We must be given a reference to the function declaration

    61

     * that will be analysed...

    62

     */

    63

    function_call_iterator_c(symbol_c *symbol);

    64

    65

    /* Skip to the next function call. After object creation,

    66

     * the object references _before_ the first, so

    67

     * this function must be called once to get the object to

    68

     * reference the first function call...

    69

     *

    70

     * Returns the function_invocation_c!

    71

     */

    72

    symbol_c *next(void);

    73

    74

    /* Returns the name of the currently referenced function invocation */

    75

    identifier_c *fname(void);

    76

    77

  private:

    78

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

    79

  /* B.3 - Language ST (Structured Text) */

    80

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

    81

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

    82

  /* B 3.1 - Expressions */

    83

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

    84

    void *visit(function_invocation_c *symbol);

    85

    86

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

    87

  /* B.2 - Language IL (Instruction List) */

    88

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

    89

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

    90

  /* B 2.1 Instructions and Operands */

    91

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

    92

    93

  /* | function_name [il_operand_list] */

    94

  // SYM_REF2(il_function_call_c, function_name, il_operand_list)

    95

    void *visit(il_function_call_c *symbol);

    96

    97

  /* | function_name '(' eol_list [il_param_list] ')' */

    98

  // SYM_REF2(il_formal_funct_call_c, function_name, il_param_list)

    99

  void *visit(il_formal_funct_call_c *symbol);

   100

   101

}; // class function_call_iterator_c 

   102

   103

   104

   105