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  *  Copyright (C) 2007-2011  Laurent Bessard and Edouard Tisserant

     6  *

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

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

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

    10  *  (at your option) any later version.

    11  *

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

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

    14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    15  *  GNU General Public License for more details.

    16  *

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

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

    19  *

    20  *

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

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

    23  */

    24 

    25 /*

    26  * An IEC 61131-3 compiler.

    27  *

    28  * Based on the

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

    30  *

    31  */

    32 

    33 

    34 /*

    35  * Array dimension iterator.

    36  * Iterate through the dimensions of array specification.

    37  *

    38  * This is part of the 4th stage that generates

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

    40  * code.

    41  */

    42 

    43 /* Given a array_specification_c, iterate through

    44  * each subrange, returning the symbol of each subrange

    45  * ...array_dimension_iterator_c

    46  */

    47 

    48 

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

    50 

    51 

    52 class array_dimension_iterator_c : public null_visitor_c {

    53   private:

    54     /* a pointer to the array_specification_c currently being analyzed */

    55     symbol_c *array_specification;

    56     /* used when called to iterate() for a parameter */

    57     symbol_c *current_array_dimension;

    58 

    59   private:

    60     void* iterate_list(list_c *list);

    61 

    62   public:

    63     /* start off at the first dimension once again... */

    64     void reset(void);

    65 

    66     /* initialize the iterator object.

    67      * We must be given a reference to a case_list_c that will be analyzed...

    68      */

    69     array_dimension_iterator_c(symbol_c *symbol);

    70 

    71     /* Skip to the next subrange. After object creation,

    72      * the object references on subrange _before_ the first, so

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

    74      * reference the first subrange...

    75      *

    76      * Returns the subrange symbol!

    77      */

    78     symbol_c *next(void);

    79 

    80     private:

    81     

    82     /********************************/

    83     /* B 1.3.3 - Derived data types */

    84     /********************************/

    85     /*  signed_integer DOTDOT signed_integer */

    86     void *visit(subrange_c *symbol);

    87     

    88     /* ARRAY '[' array_subrange_list ']' OF non_generic_type_name */

    89     void *visit(array_specification_c *symbol);

    90 

    91     /* array_subrange_list ',' subrange */

    92     void *visit(array_subrange_list_c *symbol);

    93 

    94 }; // function_param_iterator_c

    95 

    96 

    97 

    98 

    99 

   100 

   101