ModelicaExternalC/ModelicaUtilities.cpp at master · fedetftpolimi/ModelicaExternalC · GitHub

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

#include "ModelicaUtilities.h"
#include "importer.h"
#include <cstdlib>

extern "C" {

void ModelicaMessage(const char *str)
{
    auto ptr=tryImportSymbol<void (*)(const char *)>("ModelicaMessage");
    if(ptr!=nullptr) ptr(str);
}

void ModelicaFormatMessage(const char *str, ...)
{
    va_list args;
    va_start(args, str);
    ModelicaVFormatMessage(str, args);
    va_end(args);
}

void ModelicaVFormatMessage(const char *str, va_list args)
{
    auto ptr=tryImportSymbol<void (*)(const char *, va_list)>("ModelicaVFormatMessage");
    if(ptr!=nullptr) ptr(str, args);
}

void ModelicaError(const char *str)
{
    auto ptr=tryImportSymbol<void (*)(const char *)>("ModelicaError");
    if(ptr!=nullptr) ptr(str);
    //ModelicaError must not return even if the pointer is null
    std::abort();
}

void ModelicaWarning(const char *str)
{
    auto ptr=tryImportSymbol<void (*)(const char *)>("ModelicaWarning");
    if(ptr!=nullptr) ptr(str);
}

void ModelicaFormatWarning(const char *str, ...)
{
    va_list args;
    va_start(args, str);
    ModelicaVFormatWarning(str, args);
    va_end(args);
}

void ModelicaVFormatWarning(const char *str, va_list args)
{
    auto ptr=tryImportSymbol<void (*)(const char *, va_list)>("ModelicaVFormatWarning");
    if(ptr!=nullptr) ptr(str, args);
}

void ModelicaFormatError(const char *str, ...)
{
    va_list args;
    va_start(args, str);
    ModelicaVFormatError(str, args);
    va_end(args);
}

void ModelicaVFormatError(const char *str, va_list args)
{
    auto ptr=tryImportSymbol<void (*)(const char *, va_list)>("ModelicaVFormatError");
    if(ptr!=nullptr) ptr(str, args);
    //ModelicaVFormatError must not return even if the pointer is null
    std::abort();
}

char* ModelicaAllocateString(size_t len)
{
    auto ptr=tryImportSymbol<char *(*)(size_t)>("ModelicaAllocateString");
    if(ptr!=nullptr) return ptr(len);
    else return nullptr;
}

char* ModelicaDuplicateString(const char *str)
{
    auto ptr=tryImportSymbol<char *(*)(const char *)>("ModelicaDuplicateString");
    if(ptr!=nullptr) return ptr(str);
    else return nullptr;
}

char* ModelicaAllocateStringWithErrorReturn(size_t len)
{
    auto ptr=tryImportSymbol<char *(*)(size_t)>("ModelicaAllocateStringWithErrorReturn");
    if(ptr!=nullptr) return ptr(len);
    else return nullptr;
}

} //extern "C"