stage3/datatype_functions.hh
changeset 778 44e02a88f1e7
parent 676 ca4f17211251
equal deleted inserted replaced
777:e74a882c8d22 778:44e02a88f1e7
    44   symbol_c *&called_function_declaration;
    44   symbol_c *&called_function_declaration;
    45   int      &extensible_param_count;
    45   int      &extensible_param_count;
    46 } generic_function_call_t;
    46 } generic_function_call_t;
    47 
    47 
    48 
    48 
    49 
       
    50 /* A small helper class, to transform elementary data type to string.
       
    51  * this allows us to generate more relevant error messages...
       
    52  */
       
    53 
       
    54 class elementary_type_c: public null_visitor_c {
       
    55   protected:
       
    56     elementary_type_c(void)  {};
       
    57     ~elementary_type_c(void) {};
       
    58 
       
    59   private:
       
    60     /* singleton class! */
       
    61     static elementary_type_c *singleton;
       
    62 
       
    63   public:
       
    64     static const char * to_string(symbol_c *symbol);
       
    65 
       
    66 
       
    67     /***********************************/
       
    68     /* B 1.3.1 - Elementary Data Types */
       
    69     /***********************************/
       
    70     void *visit(time_type_name_c        *symbol) {return (void *)"TIME";        };
       
    71     void *visit(bool_type_name_c        *symbol) {return (void *)"BOOL";        };
       
    72     void *visit(sint_type_name_c        *symbol) {return (void *)"SINT";        };
       
    73     void *visit(int_type_name_c         *symbol) {return (void *)"INT";         };
       
    74     void *visit(dint_type_name_c        *symbol) {return (void *)"DINT";        };
       
    75     void *visit(lint_type_name_c        *symbol) {return (void *)"LINT";        };
       
    76     void *visit(usint_type_name_c       *symbol) {return (void *)"USINT";       };
       
    77     void *visit(uint_type_name_c        *symbol) {return (void *)"UINT";        };
       
    78     void *visit(udint_type_name_c       *symbol) {return (void *)"UDINT";       };
       
    79     void *visit(ulint_type_name_c       *symbol) {return (void *)"ULINT";       };
       
    80     void *visit(real_type_name_c        *symbol) {return (void *)"REAL";        };
       
    81     void *visit(lreal_type_name_c       *symbol) {return (void *)"LREAL";       };
       
    82     void *visit(date_type_name_c        *symbol) {return (void *)"DATE";        };
       
    83     void *visit(tod_type_name_c         *symbol) {return (void *)"TOD";         };
       
    84     void *visit(dt_type_name_c          *symbol) {return (void *)"DT";          };
       
    85     void *visit(byte_type_name_c        *symbol) {return (void *)"BYTE";        };
       
    86     void *visit(word_type_name_c        *symbol) {return (void *)"WORD";        };
       
    87     void *visit(lword_type_name_c       *symbol) {return (void *)"LWORD";       };
       
    88     void *visit(dword_type_name_c       *symbol) {return (void *)"DWORD";       };
       
    89     void *visit(string_type_name_c      *symbol) {return (void *)"STRING";      };
       
    90     void *visit(wstring_type_name_c     *symbol) {return (void *)"WSTRING";     };
       
    91 
       
    92     void *visit(safetime_type_name_c    *symbol) {return (void *)"SAFETIME";    };
       
    93     void *visit(safebool_type_name_c    *symbol) {return (void *)"SAFEBOOL";    };
       
    94     void *visit(safesint_type_name_c    *symbol) {return (void *)"SAFESINT";    };
       
    95     void *visit(safeint_type_name_c     *symbol) {return (void *)"SAFEINT";     };
       
    96     void *visit(safedint_type_name_c    *symbol) {return (void *)"SAFEDINT";    };
       
    97     void *visit(safelint_type_name_c    *symbol) {return (void *)"SAFELINT";    };
       
    98     void *visit(safeusint_type_name_c   *symbol) {return (void *)"SAFEUSINT";   };
       
    99     void *visit(safeuint_type_name_c    *symbol) {return (void *)"SAFEUINT";    };
       
   100     void *visit(safeudint_type_name_c   *symbol) {return (void *)"SAFEUDINT";   };
       
   101     void *visit(safeulint_type_name_c   *symbol) {return (void *)"SAFEULINT";   };
       
   102     void *visit(safereal_type_name_c    *symbol) {return (void *)"SAFEREAL";    };
       
   103     void *visit(safelreal_type_name_c   *symbol) {return (void *)"SAFELREAL";   };
       
   104     void *visit(safedate_type_name_c    *symbol) {return (void *)"SAFEDATE";    };
       
   105     void *visit(safetod_type_name_c     *symbol) {return (void *)"SAFETOD";     };
       
   106     void *visit(safedt_type_name_c      *symbol) {return (void *)"SAFEDT";      };
       
   107     void *visit(safebyte_type_name_c    *symbol) {return (void *)"SAFEBYTE";    };
       
   108     void *visit(safeword_type_name_c    *symbol) {return (void *)"SAFEWORD";    };
       
   109     void *visit(safelword_type_name_c   *symbol) {return (void *)"SAFELWORD";   };
       
   110     void *visit(safedword_type_name_c   *symbol) {return (void *)"SAFEDWORD";   };
       
   111     void *visit(safestring_type_name_c  *symbol) {return (void *)"SAFESTRING";  };
       
   112     void *visit(safewstring_type_name_c *symbol) {return (void *)"SAFEWSTRING"; };
       
   113 };
       
   114 
    49 
   115 
    50 
   116 
    51 
   117 
    52 
   118 
    53