etisserant@0: /*
msousa@267:  *  matiec - a compiler for the programming languages defined in IEC 61131-3
etisserant@0:  *
msousa@267:  *  Copyright (C) 2003-2011  Mario de Sousa (msousa@fe.up.pt)
Edouard@279:  *  Copyright (C) 2007-2011  Laurent Bessard and Edouard Tisserant
etisserant@0:  *
msousa@267:  *  This program is free software: you can redistribute it and/or modify
msousa@267:  *  it under the terms of the GNU General Public License as published by
msousa@267:  *  the Free Software Foundation, either version 3 of the License, or
msousa@267:  *  (at your option) any later version.
msousa@267:  *
msousa@267:  *  This program is distributed in the hope that it will be useful,
msousa@267:  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
msousa@267:  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
msousa@267:  *  GNU General Public License for more details.
msousa@267:  *
msousa@267:  *  You should have received a copy of the GNU General Public License
msousa@267:  *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
msousa@267:  *
etisserant@0:  *
etisserant@0:  * This code is made available on the understanding that it will not be
etisserant@0:  * used in safety-critical situations without a full and competent review.
etisserant@0:  */
etisserant@0: 
etisserant@0: /*
msousa@267:  * An IEC 61131-3 compiler.
etisserant@0:  *
etisserant@0:  * Based on the
etisserant@0:  * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
etisserant@0:  *
etisserant@0:  */
etisserant@0: 
etisserant@0: 
etisserant@0: /*
etisserant@0:  * This file contains the code that stores the output generated
etisserant@0:  * by each specific version of the 4th stage.
etisserant@0:  */
etisserant@0: 
etisserant@0: 
etisserant@0: #include "../absyntax/absyntax.hh"
etisserant@0: 
msousa@522: 
msousa@522: void stage4err(const char *stage4_generator_id, symbol_c *symbol1, symbol_c *symbol2, const char *errmsg, ...);
msousa@522: 
msousa@522: 
etisserant@0: class stage4out_c {
etisserant@0:   public:
etisserant@0:     std::string indent_level;
etisserant@0:     std::string indent_spaces;
etisserant@0: 
etisserant@0:   public:
etisserant@0:     stage4out_c(std::string indent_level = "  ");
lbessard@46:     stage4out_c(const char *dir, const char *radix, const char *extension, std::string indent_level = "  ");
etisserant@0:     ~stage4out_c(void);
msousa@296:     
msousa@296:     void flush(void);
msousa@296:     
msousa@267:     void enable_output(void);
msousa@267:     void disable_output(void);
msousa@267: 
etisserant@0:     void indent_right(void);
etisserant@0:     void indent_left(void);
etisserant@0: 
msousa@594:     void *print(          std::string  value);
msousa@594:     void *print(           const char *value);
msousa@594:     //void *print(               int64_t value); // not required, since we have long long int, or similar
msousa@594:     //void *print(              uint64_t value); // not required, since we have long long int, or similar
msousa@594:     void *print(              real64_t value);
msousa@594:     void *print(                   int value);
msousa@594:     void *print(              long int value);
msousa@594:     void *print(         long long int value);
msousa@594:     void *print(unsigned           int value);
msousa@594:     void *print(unsigned      long int value);
msousa@594:     void *print(unsigned long long int value);
lbessard@28:     
laurent@397:     void *print_long_integer(unsigned long l_integer, bool suffix=true);
laurent@397:     void *print_long_long_integer(unsigned long long ll_integer, bool suffix=true);
etisserant@0: 
msousa@580: 
etisserant@0:     void *printupper(const char *str);
etisserant@0:     void *printupper(std::string str);
etisserant@26: 
etisserant@26:     void *printlocation(const char *str);
etisserant@26:     void *printlocation(std::string str);
etisserant@26: 
etisserant@55:     void *printlocation_comasep(const char *str);
etisserant@55: 
etisserant@27:   protected:
etisserant@27:     std::ostream *out;
etisserant@27:     std::fstream *m_file;
msousa@267:     
msousa@267:     /* A flag to tell whether to really print to the file, or to ignore any request to print to the file */
msousa@267:     /* This is used to implement the no_code_generation pragmas, that lets the user tell the compiler
msousa@267:      * when to switch on and off the code generation, without stoping the lexical, syntatical, and
msousa@267:      * semantic analysers from analysing the code.
msousa@267:      */
msousa@267:     bool allow_output;
etisserant@27: 
etisserant@0: };
etisserant@0: 
etisserant@0: 
etisserant@0: 
etisserant@0: 
etisserant@0: 
etisserant@0: int stage4(symbol_c *tree_root);