diff -r 2c3c4dc34979 -r e7d236750709 lib/create_standard_function_txt.sh --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib/create_standard_function_txt.sh Fri Jul 29 16:05:03 2011 +0100 @@ -0,0 +1,908 @@ +#!/bin/sh +# +# copyright 2011 Mario de Sousa (msousa@fe.up.pt) +# +# Offered to the public under the terms of the GNU Lesser General Public +# License as published by the Free Software Foundation; either version 2 +# of the License, or (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser +# General Public License for more details. +# +# This code is made available on the understanding that it will not be +# used in safety-critical situations without a full and competent review. +# + +echo "(************************************************)" +echo "(************************************************)" +echo "(*** ***)" +echo "(*** The IEC 61131-3 standard functions ***)" +echo "(*** ***)" +echo "(*** Auto-generated file. Do not edit! ***)" +echo "(*** ***)" +echo "(************************************************)" +echo "(************************************************)" + + +echo "{disable code generation}" + +# Lets parse this file with the C pre-processor! +#cpp <<"END" | sed "s/ FUNCTION/\nFUNCTION/g" | grep -v '#' +# We usee gcc -E instead, as it seems cpp on OSX works differently! However, it needs an input file parameter... +#gcc -E <<"END" | sed "s/ FUNCTION/\nFUNCTION/g" | grep -v '#' +cpp <<"END" | sed "s/ FUNCTION/\nFUNCTION/g" | grep -v '#' + +#define __DEFINE_CLASHING_FUNCTIONS + +/* #include "iec_std_lib_generated.h" */ +/* Macro that expand to subtypes */ +#define __ANY(DO) __ANY_DERIVED(DO) __ANY_ELEMENTARY(DO) +#define __ANY_DERIVED(DO) +#define __ANY_ELEMENTARY(DO) __ANY_MAGNITUDE(DO) __ANY_BIT(DO) __ANY_STRING(DO) __ANY_DATE(DO) +#define __ANY_MAGNITUDE(DO) __ANY_NUM(DO) DO(TIME) +#define __ANY_BIT(DO) __ANY_NBIT(DO) DO(BOOL) +#define __ANY_NBIT(DO) DO(BYTE) DO(WORD) DO(DWORD) DO(LWORD) +#define __ANY_STRING(DO) DO(STRING) +#define __ANY_DATE(DO) DO(DATE) DO(TOD) DO(DT) +#define __ANY_NUM(DO) __ANY_REAL(DO) __ANY_INT(DO) +#define __ANY_REAL(DO) DO(REAL) DO(LREAL) +#define __ANY_INT(DO) __ANY_SINT(DO) __ANY_UINT(DO) +#define __ANY_SINT(DO) DO(SINT) DO(INT) DO(DINT) DO(LINT) +#define __ANY_UINT(DO) DO(USINT) DO(UINT) DO(UDINT) DO(ULINT) + +#define __ANY_1(DO,P1) __ANY_DERIVED_1(DO,P1) __ANY_ELEMENTARY_1(DO,P1) +#define __ANY_DERIVED_1(DO,P1) +#define __ANY_ELEMENTARY_1(DO,P1) __ANY_MAGNITUDE_1(DO,P1) __ANY_BIT_1(DO,P1) __ANY_STRING_1(DO,P1) __ANY_DATE_1(DO,P1) +#define __ANY_MAGNITUDE_1(DO,P1) __ANY_NUM_1(DO,P1) DO(TIME,P1) +#define __ANY_BIT_1(DO,P1) __ANY_NBIT_1(DO,P1) DO(BOOL,P1) +#define __ANY_NBIT_1(DO,P1) DO(BYTE,P1) DO(WORD,P1) DO(DWORD,P1) DO(LWORD,P1) +#define __ANY_STRING_1(DO,P1) DO(STRING,P1) +#define __ANY_DATE_1(DO,P1) DO(DATE,P1) DO(TOD,P1) DO(DT,P1) +#define __ANY_NUM_1(DO,P1) __ANY_REAL_1(DO,P1) __ANY_INT_1(DO,P1) +#define __ANY_REAL_1(DO,P1) DO(REAL,P1) DO(LREAL,P1) +#define __ANY_INT_1(DO,P1) __ANY_SINT_1(DO,P1) __ANY_UINT_1(DO,P1) +#define __ANY_SINT_1(DO,P1) DO(SINT,P1) DO(INT,P1) DO(DINT,P1) DO(LINT,P1) +#define __ANY_UINT_1(DO,P1) DO(USINT,P1) DO(UINT,P1) DO(UDINT,P1) DO(ULINT,P1) + + + +/*****************************************************************/ +/*****************************************************************/ +/***** *****/ +/***** IEC 61131-3 *****/ +/***** S T A N D A R D F U N C T I O N S *****/ +/***** *****/ +/*****************************************************************/ +/*****************************************************************/ + +/* NOTE: We only define and declare the explicitly typed standard functions + * (e.g., SIN_REAL, SIN_LREAL, ..., ADD_SINT, ADD_INT, ADD_LINT, ...) + * We do not declare/define the overloaded functions + * (SIN, ADD, ...). + * When handling a call to an overloaded function, the iec2c compiler + * will determine in stage3 the data type of the parameter being passed, + * and in stage4 generate the C code to call the correct + * typed standard function. + */ + +/* NOTE on explicit typing of: + * - Table 25 - Standard bit shift functions + * - Table 29 - Character string Functions + * + * In section 2.5.1.4 (Typing, overloading, and type conversion) of the IEC 61131-3 (version 2) + * of the standard, it is stated: + * "A standard function, [...] is said to be overloaded when it + * can operate on input data elements of various types within a generic type designator as defined in + * 2.3.2. For instance, an overloaded addition function on generic type ANY_NUM can operate on data + * of types LREAL, REAL, DINT, INT, and SINT." + * [...] + * "When a function which normally represents an overloaded operator is to be typed, i.e., the types + * of its inputs and outputs restricted to a particular elementary or derived data type as defined in + * 2.3, this shall be done by appending an "underline" character followed by the required type, as + * shown in table 21." + * + * However, this explanation (as well as the example in table 21) only refers to functions where the same + * generic data type is used for the single input and the output parameter. + * How can we create explicitly types functions when this is not the case? + * It does not seem to be covered by the standard. + * + * For this reason, we do not define the LEN_SINT, LEN_INT, LEN_STRING, LEN_[ANY_INT], LEN_[ANY_STRING] functions... + */ + + +/*****************************************/ +/*****************************************/ +/* 2.5.1.5.1 Type Conversion Functions */ +/*****************************************/ +/*****************************************/ + +/* macros for non-extensible functions */ +#define __function_1p(fname,to_TYPENAME,p1_NAME,p1_TYPENAME) \ +FUNCTION fname : to_TYPENAME\ + VAR_INPUT p1_NAME : p1_TYPENAME; END_VAR\ + RETURN; \ +END_FUNCTION\ + +#define __function_2p(fname,to_TYPENAME,p1_NAME,p1_TYPENAME,p2_NAME,p2_TYPENAME) \ +FUNCTION fname : to_TYPENAME\ + VAR_INPUT p1_NAME : p1_TYPENAME; p2_NAME : p2_TYPENAME; END_VAR\ + RETURN; \ +END_FUNCTION\ + +#define __function_3p(fname,to_TYPENAME,p1_NAME,p1_TYPENAME,p2_NAME,p2_TYPENAME,p3_NAME,p3_TYPENAME) \ +FUNCTION fname : to_TYPENAME\ + VAR_INPUT p1_NAME : p1_TYPENAME; p2_NAME : p2_TYPENAME; p3_NAME : p3_TYPENAME; END_VAR\ + RETURN; \ +END_FUNCTION\ + +#define __function_4p(fname,to_TYPENAME,p1_NAME,p1_TYPENAME,p2_NAME,p2_TYPENAME,p3_NAME,p3_TYPENAME,p4_NAME,p4_TYPENAME) \ +FUNCTION fname : to_TYPENAME\ + VAR_INPUT p1_NAME : p1_TYPENAME; p2_NAME : p2_TYPENAME; p3_NAME : p3_TYPENAME; p4_NAME : p4_TYPENAME; END_VAR\ + RETURN; \ +END_FUNCTION\ + + +/* macro for extensible functions */ +#define __function_1e(fname,to_TYPENAME,p1_NAME,p1_TYPENAME, FIRST_INDEX) \ +FUNCTION fname : to_TYPENAME\ + VAR_INPUT p1_NAME FIRST_INDEX .. : p1_TYPENAME; END_VAR\ + RETURN; \ +END_FUNCTION\ + +#define __function_2e(fname,to_TYPENAME,p1_NAME,p1_TYPENAME,p2_NAME,p2_TYPENAME, FIRST_INDEX) \ +FUNCTION fname : to_TYPENAME\ + VAR_INPUT p1_NAME : p1_TYPENAME; p2_NAME FIRST_INDEX .. : p2_TYPENAME; END_VAR\ + RETURN; \ +END_FUNCTION\ + + + + + + +#define __to_anynum_(from_TYPENAME) __ANY_NUM_1(__iec_,from_TYPENAME) +#define __to_anyint_(from_TYPENAME) __ANY_INT_1(__iec_,from_TYPENAME) +#define __to_anybit_(from_TYPENAME) __ANY_BIT_1(__iec_,from_TYPENAME) +#define __to_anynbit_(from_TYPENAME) __ANY_NBIT_1(__iec_,from_TYPENAME) +#define __to_anysint_(from_TYPENAME) __ANY_SINT_1(__iec_,from_TYPENAME) +#define __to_anyuint_(from_TYPENAME) __ANY_UINT_1(__iec_,from_TYPENAME) +#define __to_anyreal_(from_TYPENAME) __ANY_REAL_1(__iec_,from_TYPENAME) +#define __to_anydate_(from_TYPENAME) __ANY_DATE_1(__iec_,from_TYPENAME) +#define __to_time_(from_TYPENAME) __iec_(TIME,from_TYPENAME) +#define __to_string_(from_TYPENAME) __iec_(STRING,from_TYPENAME) + + +/*****************/ +/* *_TO_** */ +/*****************/ +#define __iec_(to_TYPENAME,from_TYPENAME) __function_1p(from_TYPENAME##_TO_##to_TYPENAME, to_TYPENAME, IN, from_TYPENAME) + +/******** [ANY_BIT]_TO_[ANY_NUM | ANY_BIT] ************/ +__ANY_BIT(__to_anynum_) +__ANY_BIT(__to_anybit_) + +/******** [ANY_NUM]_TO_[ANY_NUM | ANY_BIT] ************/ +__ANY_NUM(__to_anynum_) +__ANY_NUM(__to_anybit_) + + +/******** [ANY_BIT | ANY_NUM]_TO_[TIME | ANY_DATE] ************/ +__ANY_BIT(__to_time_) +__ANY_NUM(__to_time_) +__ANY_BIT(__to_anydate_) +__ANY_NUM(__to_anydate_) + + +/******** [TIME | ANY_DATE]_TO_[ANY_BIT | ANY_NUM] ************/ +__to_anynum_(TIME) +__to_anybit_(TIME) +__ANY_DATE(__to_anynum_) +__ANY_DATE(__to_anybit_) + + +/******** [ANY_DATE]_TO_[ANY_DATE | TIME] ************/ +/* Not supported: DT_TO_TIME */ +/*__iec_(to_TYPENAME,from_TYPENAME)*/ +__iec_(DATE,DT) +__iec_(DT,DT) +__iec_(TOD,DT) +/* Not supported: DATE_TO_TIME */ +__iec_(DATE,DATE) +/* Not supported: DATE_TO_DT */ +/* Not supported: DATE_TO_TOD */ +/* Not supported: TOD_TO_TIME */ +/* Not supported: TOD_TO_DATE */ +/* Not supported: TOD_TO_DT */ +__iec_(TOD,TOD) + + +/******** TIME_TO_[ANY_DATE] ************/ +/* Not supported: TIME_TO_DATE */ +/* Not supported: TIME_TO_DT */ +/* Not supported: TIME_TO_TOD */ + +/******** TIME_TO_TIME ************/ +__iec_(TIME,TIME) + + +/******** [ANY_BIT]_TO_STRING ************/ +__ANY_BIT(__to_string_) + + +/******** [ANY_NUM]_TO_STRING ************/ +__ANY_NUM(__to_string_) + +/******** [ANY_DATE]_TO_STRING ************/ +__ANY_DATE(__to_string_) + + +/******** TIME_TO_STRING ************/ +__iec_(STRING,TIME) + + +/******** STRING_TO_[ANY_BIT] ************/ +__to_anybit_(STRING) + + +/******** STRING_TO_[ANY_NUM] ************/ +__to_anynum_(STRING) + + +/******** STRING_TO_[ANY_DATE] ************/ +__to_anydate_(STRING) + + +/******** STRING_TO_TIME ************/ +__iec_(TIME,STRING) + +#undef __iec_ + + + +/**************/ +/* TRUNC */ +/**************/ +/* overloaded function! */ +#define __iec_(to_TYPENAME,from_TYPENAME) __function_1p(TRUNC, to_TYPENAME, IN, from_TYPENAME) +__ANY_REAL(__to_anyint_) +#undef __iec_ + + +/*******************/ +/* *_TO_BCD_* */ +/*******************/ +#define __iec_(to_TYPENAME,from_TYPENAME) __function_1p(from_TYPENAME##_TO_BCD_##to_TYPENAME, to_TYPENAME, IN, from_TYPENAME) +__ANY_UINT(__to_anynbit_) +#undef __iec_ + + +/*******************/ +/* *_BCD_TO_* */ +/*******************/ +#define __iec_(to_TYPENAME,from_TYPENAME) __function_1p(from_TYPENAME##_BCD_TO_##to_TYPENAME, to_TYPENAME, IN, from_TYPENAME) +__ANY_NBIT(__to_anyuint_) +#undef __iec_ + +/***********************************/ +/***********************************/ +/* 2.5.1.5.2 Numerical Functions */ +/***********************************/ +/***********************************/ + +/******************************************************************/ +/*** Table 23 - Standard functions of one numeric variable ***/ +/******************************************************************/ + + /**************/ + /* ABS */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(ABS_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(ABS, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +__ANY_INT(__iec_) +#undef __iec_ + + /**************/ + /* SQRT */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(SQRT_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(SQRT, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* LN */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(LN_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(LN, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* LOG */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(LOG_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(LOG, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* EXP */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(EXP_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(EXP, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* SIN */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(SIN_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(SIN, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* COS */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(COS_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(COS, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* TAN */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(TAN_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(TAN, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* ASIN */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(ASIN_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(ASIN, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* ACOS */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(ACOS_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(ACOS, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + /**************/ + /* ATAN */ + /**************/ +#define __iec_(TYPENAME) \ +__function_1p(ATAN_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(ATAN, TYPENAME, IN, TYPENAME) /* overloaded function */ +__ANY_REAL(__iec_) +#undef __iec_ + + + +/*****************************************************/ +/*** Table 24 - Standard arithmetic functions ***/ +/*****************************************************/ + +#define __arith_expand(fname,TYPENAME) \ +__function_1e(fname##_##TYPENAME, TYPENAME, IN, TYPENAME, 1) /* explicitly typed function */\ +__function_1e(fname, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ + + +#define __arith_static(fname,TYPENAME) \ +__function_1p(fname##_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */\ +__function_1p(fname, TYPENAME, IN, TYPENAME) /* overloaded function */ + + /**************/ + /* ADD */ + /**************/ +#define __iec_(TYPENAME) __arith_expand(ADD, TYPENAME) +__ANY_NUM(__iec_) +#undef __iec_ + + /**************/ + /* MUL */ + /**************/ +#define __iec_(TYPENAME) __arith_expand(MUL, TYPENAME) +__ANY_NUM(__iec_) +#undef __iec_ + + /**************/ + /* SUB */ + /**************/ +#define __iec_(TYPENAME) __arith_static(SUB, TYPENAME) +__ANY_NUM(__iec_) +#undef __iec_ + + /**************/ + /* DIV */ + /**************/ +#define __iec_(TYPENAME)\ +__function_2p(DIV_##TYPENAME, TYPENAME, IN1, TYPENAME, IN2, TYPENAME) /* explicitly typed function */\ +__function_2p(DIV, TYPENAME, IN1, TYPENAME, IN2, TYPENAME) /* overloaded function */ +__ANY_NUM(__iec_) +#undef __iec_ + + /**************/ + /* MOD */ + /**************/ +#ifdef __DEFINE_CLASHING_FUNCTIONS +#define __iec_(TYPENAME)\ +__function_2p(MOD_##TYPENAME, TYPENAME, IN1, TYPENAME, IN2, TYPENAME) /* explicitly typed function */\ +__function_2p(MOD, TYPENAME, IN1, TYPENAME, IN2, TYPENAME) /* overloaded function */ +__ANY_INT(__iec_) +#undef __iec_ +#endif + + /**************/ + /* EXPT */ + /**************/ +#define __in1_anyreal_(in2_TYPENAME) __ANY_REAL_1(__iec_,in2_TYPENAME) +#define __iec_(in1_TYPENAME,in2_TYPENAME) \ +__function_2p(EXPT, in1_TYPENAME, IN1, in1_TYPENAME, IN2, in2_TYPENAME) /* overloaded function */ +__ANY_NUM(__in1_anyreal_) +#undef __iec_ + + /***************/ + /* MOVE */ + /***************/ +#define __iec_(TYPENAME) __arith_static(MOVE, TYPENAME) +__ANY(__iec_) +#undef __iec_ + + + + +/***********************************/ +/***********************************/ +/* 2.5.1.5.3 Bit String Functions */ +/***********************************/ +/***********************************/ + +/****************************************************/ +/*** Table 25 - Standard bit shift functions ***/ +/****************************************************/ +/* We do not delcare explcitly typed versions of the functions in table 29. + * See note at top of this file regarding explicitly typed functions for more details. + */ +#define __in1_anybit_(in2_TYPENAME) __ANY_BIT_1(__iec_,in2_TYPENAME) + + + /**************/ + /* SHL */ + /**************/ +#define __iec_(in1_TYPENAME,in2_TYPENAME) __function_2p(SHL, in1_TYPENAME, IN, in1_TYPENAME, N, in2_TYPENAME) /* overloaded function */ +__ANY_INT(__in1_anybit_) +#undef __iec_ + + /**************/ + /* SHR */ + /**************/ +#define __iec_(in1_TYPENAME,in2_TYPENAME) __function_2p(SHR, in1_TYPENAME, IN, in1_TYPENAME, N, in2_TYPENAME) /* overloaded function */ +__ANY_INT(__in1_anybit_) +#undef __iec_ + + /**************/ + /* ROR */ + /**************/ +#define __iec_(in1_TYPENAME,in2_TYPENAME) __function_2p(ROR, in1_TYPENAME, IN, in1_TYPENAME, N, in2_TYPENAME) /* overloaded function */ +__ANY_INT(__in1_anybit_) +#undef __iec_ + + /**************/ + /* ROL */ + /**************/ +#define __iec_(in1_TYPENAME,in2_TYPENAME) __function_2p(ROL, in1_TYPENAME, IN, in1_TYPENAME, N, in2_TYPENAME) /* overloaded function */ +__ANY_INT(__in1_anybit_) +#undef __iec_ + + + +/*********************/ +/*** Table 26 ***/ +/*********************/ + + /**************/ + /* AND */ + /**************/ +#ifdef __DEFINE_CLASHING_FUNCTIONS +#define __iec_(TYPENAME) \ +__function_1e(AND, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(AND_##TYPENAME, TYPENAME, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_BIT(__iec_) +#undef __iec_ +#endif + + /*************/ + /* OR */ + /*************/ +#ifdef __DEFINE_CLASHING_FUNCTIONS +#define __iec_(TYPENAME) \ +__function_1e(OR, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(OR_##TYPENAME, TYPENAME, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_BIT(__iec_) +#undef __iec_ +#endif + + /**************/ + /* XOR */ + /**************/ +#ifdef __DEFINE_CLASHING_FUNCTIONS +#define __iec_(TYPENAME) \ +__function_1e(XOR, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(XOR_##TYPENAME, TYPENAME, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_BIT(__iec_) +#undef __iec_ +#endif + + /**************/ + /* NOT */ + /**************/ +#ifdef __DEFINE_CLASHING_FUNCTIONS +#define __iec_(TYPENAME) \ +__function_1p(NOT, TYPENAME, IN, TYPENAME) /* overloaded function */ \ +__function_1p(NOT_##TYPENAME, TYPENAME, IN, TYPENAME) /* explicitly typed function */ +__ANY_BIT(__iec_) +#undef __iec_ +#endif + + + + + + +/***************************************************/ +/***************************************************/ +/* 2.5.1.5.4 Selection and comparison Functions */ +/***************************************************/ +/***************************************************/ + +/*********************/ +/*** Table 27 ***/ +/*********************/ + + /**************/ + /* SEL */ + /**************/ +/* The standard states that the inputs for SEL and MUX must be named starting off from 0, + * unlike remaining functions, that start off at 1. + */ +#define __iec_(TYPENAME) \ +__function_3p(SEL, TYPENAME, G, BOOL, IN0, TYPENAME, IN1, TYPENAME) /* overloaded function */ \ +__function_3p(SEL_##TYPENAME, TYPENAME, G, BOOL, IN0, TYPENAME, IN1, TYPENAME) /* explicitly typed function */ +__ANY(__iec_) +#undef __iec_ + + /**************/ + /* MAX */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(MAX, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(MAX_##TYPENAME, TYPENAME, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* MIN */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(MIN, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(MIN_##TYPENAME, TYPENAME, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* LIMIT */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_3p(LIMIT, TYPENAME, MN, TYPENAME, IN, TYPENAME, MX, TYPENAME) /* overloaded function */ \ +__function_3p(LIMIT_##TYPENAME, TYPENAME, MN, TYPENAME, IN, TYPENAME, MX, TYPENAME) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* MUX */ + /**************/ +/* The standard states that the inputs for SEL and MUX must be named starting off from 0, + * unlike remaining functions, that start off at 1. + */ +/* The standard considers the explicit typing of MUX function as a special case... + * It should look like: + * MUX_SINT_REAL, MUX_SINT_STRING, MUX_SINT_[ANY] + * MUX_INT_REAL, MUX_INT_STRING, MUX_INT_[ANY] + * MUX_[ANY_INT]_[ANY] + */ +#define __in1_anyint_(in2_TYPENAME) __ANY_INT_1(__iec_,in2_TYPENAME) +#define __iec_(in1_TYPENAME,in2_TYPENAME) \ +__function_2e(MUX, in2_TYPENAME, K, in1_TYPENAME, IN, in2_TYPENAME, 0) /* overloaded function */ \ +__function_2e(MUX_##in1_TYPENAME##_##in2_TYPENAME, in2_TYPENAME, K, in1_TYPENAME, IN, in2_TYPENAME, 0) /* explicitly typed function */ +__ANY(__in1_anyint_) +#undef __iec_ + + + +/******************************************/ +/*** Table 28 ***/ +/*** Standard comparison functions ***/ +/******************************************/ + + /**************/ + /* GT */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(GT, BOOL, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(GT_##TYPENAME, BOOL, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* GE */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(GE, BOOL, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(GE_##TYPENAME, BOOL, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* EQ */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(EQ, BOOL, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(EQ_##TYPENAME, BOOL, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* LT */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(LT, BOOL, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(LT_##TYPENAME, BOOL, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* LE */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(LE, BOOL, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(LE_##TYPENAME, BOOL, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + /**************/ + /* NE */ + /**************/ +/* Should be for: ANY_ELEMENTARY, but we currently do not support WSTRING yet... */ +/* However, we can call __ANY_ELEMENTARY since the __ANY_STRING macro does not call DO(WSTRING) */ +#define __iec_(TYPENAME) \ +__function_1e(NE, BOOL, IN, TYPENAME, 1) /* overloaded function */ \ +__function_1e(NE_##TYPENAME, BOOL, IN, TYPENAME, 1) /* explicitly typed function */ +__ANY_ELEMENTARY(__iec_) +#undef __iec_ + + + +/*********************************************/ +/*********************************************/ +/* 2.5.1.5.5 Character string Functions */ +/*********************************************/ +/*********************************************/ + +/*************************************/ +/*** Table 29 ***/ +/*** Character string Functions ***/ +/*************************************/ + +/* We do not delcare explcitly typed versions of the functions in table 29. + * See note at top of this file regarding explicitly typed functions for more details. + */ + +#define __A_anyint_(B_TYPENAME) __ANY_INT_1(__iec_,B_TYPENAME) + + + + /***************/ + /* LEN */ + /***************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_1p(LEN, A_TYPENAME, IN, B_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /****************/ + /* LEFT */ + /****************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_2p(LEFT, B_TYPENAME, IN, B_TYPENAME, L, A_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /*****************/ + /* RIGHT */ + /*****************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_2p(RIGHT, B_TYPENAME, IN, B_TYPENAME, L, A_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /***************/ + /* MID */ + /***************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_3p(MID, B_TYPENAME, IN, B_TYPENAME, L, A_TYPENAME, P, A_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /******************/ + /* CONCAT */ + /******************/ +#define __iec_(TYPENAME) \ +__function_1e(CONCAT, TYPENAME, IN, TYPENAME, 1) /* overloaded function */ +__ANY_STRING(__iec_) +#undef __iec_ + + + /******************/ + /* INSERT */ + /******************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_3p(INSERT, B_TYPENAME, IN1, B_TYPENAME, IN2, B_TYPENAME, P, A_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /******************/ + /* DELETE */ + /******************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_3p(DELETE, B_TYPENAME, IN, B_TYPENAME, L, A_TYPENAME, P, A_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /*******************/ + /* REPLACE */ + /*******************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_4p(REPLACE, B_TYPENAME, IN1, B_TYPENAME, IN2, B_TYPENAME, L, A_TYPENAME, P, A_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + + /****************/ + /* FIND */ + /****************/ +#define __iec_(A_TYPENAME,B_TYPENAME) \ +__function_2p(FIND, A_TYPENAME, IN1, B_TYPENAME, IN2, B_TYPENAME) /* overloaded function */ +__ANY_STRING(__A_anyint_) +#undef __iec_ + + +/*********************************************/ +/*********************************************/ +/* 2.5.1.5.6 Functions of time data types */ +/*********************************************/ +/*********************************************/ + +/**************************************/ +/*** Table 30 ***/ +/*** Functions of time data types ***/ +/**************************************/ + +__function_2p(ADD_TIME, TIME, IN1, TIME, IN2, TIME) +__function_2p(ADD_TOD_TIME, TOD, IN1, TOD, IN2, TIME) +__function_2p(ADD_DT_TIME, DT, IN1, DT, IN2, TIME) + +__function_2p(SUB_TIME, TIME, IN1, TIME, IN2, TIME) +__function_2p(SUB_DATE_DATE, TIME, IN1, DATE, IN2, DATE) +__function_2p(SUB_TOD_TIME, TOD, IN1, TOD, IN2, TIME) +__function_2p(SUB_TOD_TOD, TIME, IN1, TOD, IN2, TOD) +__function_2p(SUB_DT_TIME, DT, IN1, DT, IN2, TIME) +__function_2p(SUB_DT_DT, TIME, IN1, DT, IN2, DT) + + +/*** MULTIME ***/ +#define __iec_(TYPENAME) \ +__function_2p(MULTIME_##TYPENAME, TIME, IN1, TIME, IN2, TYPENAME) /* explicitly typed function */\ +__function_2p(MULTIME, TIME, IN1, TIME, IN2, TYPENAME) /* overloaded function */ +__ANY_NUM(__iec_) +#undef __iec_ + +/*** MUL ***/ +/* NOTE: We can not include the explicitly typed function + * __function_2p(DIV_##TYPENAME, TIME, IN1, TIME, IN2, TYPENAME) + * as it would clash with another function with the exact same name declared above + * __function_2p(DIV_##TYPENAME, TYPENAME, IN1, TYPENAME, IN2, TYPENAME) + * and the standard does not define this explicitly defined function as being overloaded + * (i.e. having an ANY_***) input or output parameter + * Note that our compiler would nevertheless work just fine with this overloaded declaration. + */ +#define __iec_(TYPENAME) \ +__function_2p(MUL, TIME, IN1, TIME, IN2, TYPENAME) /* overloaded function */ +__ANY_NUM(__iec_) +#undef __iec_ + +/*** DIVTIME ***/ +#define __iec_(TYPENAME) \ +__function_2p(DIVTIME_##TYPENAME, TIME, IN1, TIME, IN2, TYPENAME) /* explicitly typed function */\ +__function_2p(DIVTIME, TIME, IN1, TIME, IN2, TYPENAME) /* overloaded function */ +__ANY_NUM(__iec_) +#undef __iec_ + +/*** DIV ***/ +/* NOTE: We can not include the explicitly typed function + * __function_2p(DIV_##TYPENAME, TIME, IN1, TIME, IN2, TYPENAME) + * as it would clash with another function with the exact same name declared above + * __function_2p(DIV_##TYPENAME, TYPENAME, IN1, TYPENAME, IN2, TYPENAME) + * and the standard does not define this explicitly defined function as being overloaded + * (i.e. having an ANY_***) input or output parameter + * Note that our compiler would nevertheless work just fine with this overloaded declaration. + */ +#define __iec_(TYPENAME) \ +__function_2p(DIV, TIME, IN1, TIME, IN2, TYPENAME) /* overloaded function */ +__ANY_NUM(__iec_) +#undef __iec_ + + +/*** CONCAT_DATE_TOD ***/ +__function_2p(CONCAT_DATE_TOD, DT, IN1, DATE, IN2, TOD) + + + + +/****************************************************/ +/****************************************************/ +/* 2.5.1.5.6 Functions of enumerated data types */ +/****************************************************/ +/****************************************************/ + +/********************************************/ +/*** Table 31 ***/ +/*** Functions of enumerated data types ***/ +/********************************************/ + +/* Do we support this? */ + +END + +echo "{enable code generation}" +echo