[r381]: / trunk / Library / POUs / Functions / F_AssertionTypeToString / svnobj  Maximize  Restore  History

Download this file

100 lines (97 with data), 11.3 kB 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
(* it's possible to do TO_STRING on enumerations,
   but for backward compability we need to do it manually *)
FUNCTION F_AssertionTypeToString : T_MaxString
VAR_INPUT
    AssertionType : E_AssertionType;
END_VAR
CASE AssertionType OF
    E_AssertionType.Type_UNDEFINED :
        F_AssertionTypeToString := 'UNDEFINED';
    E_AssertionType.Type_ANY :
        F_AssertionTypeToString := 'ANY';
    
    (* Primitive types *)
    E_AssertionType.Type_BOOL :
        F_AssertionTypeToString := 'BOOL';
    E_AssertionType.Type_BYTE :
        F_AssertionTypeToString := 'BYTE';
    E_AssertionType.Type_DATE :
        F_AssertionTypeToString := 'DATE';
    E_AssertionType.Type_DATE_AND_TIME :
        F_AssertionTypeToString := 'DATE_AND_TIME';
    E_AssertionType.Type_DINT :
        F_AssertionTypeToString := 'DINT';
    E_AssertionType.Type_DWORD :
        F_AssertionTypeToString := 'DWORD';
    E_AssertionType.Type_INT :
        F_AssertionTypeToString := 'INT';
    E_AssertionType.Type_LINT :
        F_AssertionTypeToString := 'LINT';
    E_AssertionType.Type_LREAL :
        F_AssertionTypeToString := 'LREAL';
    E_AssertionType.Type_LTIME :
        F_AssertionTypeToString := 'LTIME';
    E_AssertionType.Type_LWORD :
        F_AssertionTypeToString := 'LWORD';
    E_AssertionType.Type_REAL :
        F_AssertionTypeToString := 'REAL';
    E_AssertionType.Type_SINT :
        F_AssertionTypeToString := 'SINT';
    E_AssertionType.Type_STRING :
        F_AssertionTypeToString := 'STRING';
    E_AssertionType.Type_TIME :
        F_AssertionTypeToString := 'TIME';
    E_AssertionType.Type_TIME_OF_DAY :
        F_AssertionTypeToString := 'TIME_OF_DAY';
    E_AssertionType.Type_UDINT :
        F_AssertionTypeToString := 'UDINT';
    E_AssertionType.Type_UINT :
        F_AssertionTypeToString := 'UINT';
    E_AssertionType.Type_ULINT :
        F_AssertionTypeToString := 'ULINT';
    E_AssertionType.Type_USINT :
        F_AssertionTypeToString := 'USINT';
    E_AssertionType.Type_WORD :
        F_AssertionTypeToString := 'WORD';
    E_AssertionType.Type_WSTRING :
        F_AssertionTypeToString := 'WSTRING';		C
		
    (* Array types *)
    E_AssertionType.Type_Array2D_LREAL :
        F_AssertionTypeToString := 'Array2D_LREAL';
    E_AssertionType.Type_Array2D_REAL :
        F_AssertionTypeToString := 'Array2D_REAL';
    E_AssertionType.Type_Array3D_LREAL :
        F_AssertionTypeToString := 'Array3D_LREAL';
    E_AssertionType.Type_Array3D_REAL :
        F_AssertionTypeToString := 'Array3D_REAL';
    E_AssertionType.Type_Array_BOOL :
        F_AssertionTypeToString := 'Array_BOOL';
    E_AssertionType.Type_Array_BYTE :
        F_AssertionTypeToString := 'Array_BYTE';
    E_AssertionType.Type_Array_DINT :
        F_AssertionTypeToString := 'Array_DINT';
    E_AssertionType.Type_Array_DWORD :
        F_AssertionTypeToString := 'Array_DWORD';
    E_AssertionType.Type_Array_INT :
        F_AssertionTypeToString := 'Array_INT';
    E_AssertionType.Type_Array_LINT :
        F_AssertionTypeToString := 'Array_LINT';
    E_AssertionType.Type_Array_LREAL :
        F_AssertionTypeToString := 'Array_LREAL';
    E_AssertionType.Type_Array_LWORD :
        F_AssertionTypeToString := 'Array_LWORD';
    E_AssertionType.Type_Array_REAL :
        F_AssertionTypeToString := 'Array_REAL';
    E_AssertionType.Type_Array_SINT :
        F_AssertionTypeToString := 'Array_SINT';
    E_AssertionType.Type_Array_UDINT :
        F_AssertionTypeToString := 'Array_UDINT';
    E_AssertionType.Type_Array_UINT :
        F_AssertionTypeToString := 'Array_UINT';
    E_AssertionType.Type_Array_ULINT :
        F_AssertionTypeToString := 'Array_ULINT';
    E_AssertionType.Type_Array_USINT :
        F_AssertionTypeToString := 'Array_USINT';
    E_AssertionType.Type_Array_WORD :
        F_AssertionTypeToString := 'Array_WORD';
    ELSE
END_CASE