-
Notifications
You must be signed in to change notification settings - Fork 1
/
loadpietdll.cpp
168 lines (147 loc) · 8.21 KB
/
loadpietdll.cpp
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
#include "loadpietdll.h"
#include "piettree.h"
#include <QLibrary>
#include <thread>
#include <stdarg.h>
//DLLを実行時に動的に呼び出すには悪魔の力を借りるしかなかったのでここのソースコードは魔界だよ！
using namespace std;
//template< typename F >auto curry( F f ){return [=]( auto a ){ return [=]( auto... args ){ return f( a, args... ); }; };}
#define LIBCALL(RES) QLibrary lib(libname);lib.load(); string stdpath = Path.toStdString(); const char* stdcpath = stdpath.c_str(); auto func = (RES(*)(Args...)) lib.resolve(stdcpath) ;
template<typename... Args>
inline void retLibv(QString libname,QString Path,const Args&... args ){ LIBCALL(void)
if(func != 0) { func(args...); } lib.unload();}
template<typename Res,typename... Args>
inline Res retLib(QString libname,QString Path,const Args&... args ){ LIBCALL(Res)
Res res; if(func != 0) { res = func(args...); } lib.unload();return res;}
template<typename Res,typename... Args>
inline Res retLibc(QString libname,QString Path,bool & Correct,const Args&... args ){ LIBCALL(Res)
Res res; Correct =false; if(func != 0) { res = func(args...); Correct = true; } lib.unload();return res;}
template <typename T> T FromPietTree(PietTree &pt){return (T)pt.Val();}
#define FROMPIETTREE(res,pt) string tmp ## pt = pt.toString().toStdString();const char* res = tmp ## pt .c_str();
template <void*> void* FromPietTree(PietTree &pt){return nullptr;}
union Various{
public:
inline static Various FromFLOAT (const PietTree &pt){Various v;v.FLT = (float)pt.Val(); return v;}
inline static Various FromINT (const PietTree &pt){Various v;v.INT = (int)pt.Val(); return v;}
inline static Various FromUINT (const PietTree &pt){Various v;v.UIN = (unsigned int)pt.Val(); return v;}
inline static Various FromCHAR (const PietTree &pt){Various v;v.CHA = (char)pt.Val(); return v;}
inline static Various FromSHORT (const PietTree &pt){Various v;v.SHT = (short)pt.Val(); return v;}
inline static Various FromBYTE (const PietTree &pt){Various v;v.BYT = (unsigned char)pt.Val(); return v;}
inline static Various FromWORD (const PietTree &pt){Various v;v.WRD = (unsigned short)pt.Val(); return v;}
//inline static Various FromHANDLE (const PietTree &pt){Various v;v.VP = (int*) pt.Val(); return v;}
inline static Various MakeNEW (const PietTree &pt) {Various v;v.VP = new int() ; return v;}
inline static Various FromLPSTR (PietTree &pt){
Various v;
auto tmp = pt.toString().toStdString();
auto size = tmp.size();
v.CCP = (char *)calloc(size + 1,sizeof(char));
for(auto i : range(size)){ v.CCP[i] = tmp[i];}
v.CCP[size] = '\0';
return v;}
inline static Various FromQChar (PietTree &pt,QChar c){
switch(c.unicode()){
case 'n':case'N': return MakeNEW(pt);
//case 'v':case'V': return FromHANDLE(pt);
case 'C': return FromLPSTR(pt);
case 'f':case 'F': return FromFLOAT(pt);
case 'w':case 'W': return FromWORD(pt);
case 'b':case 'B': return FromBYTE(pt);
case 'u':case 'U': return FromUINT(pt);
case 's':case 'S': return FromSHORT(pt);
case 'c': return FromCHAR(pt);
default :
case 'i':case 'I': return FromINT(pt);
}
}
int* VP; char* CCP;
unsigned int UIN;int INT; float FLT;char CHA;short SHT; unsigned char BYT;unsigned short WRD;
};
#define TMPSTR(NEWNAME,PTS) auto TMP ## PTS = PTS.toString().toStdString(); auto NEWNAME = TMP ## PTS.c_str();
#define PIETTREELOADDLLMISS {Miss = true; return PietTree(0);}
#define SWITCHZEROTYPE \
if(size == 0){\
switch(TypeNames[size].unicode()){ \
case 'v':case 'V':retLibv(dllname,funcname); break; \
case 's':case 'S':res = PietTree((int)retLib<short>(dllname,funcname));break; \
case 'c':case 'C':res = PietTree((int)retLib<char>(dllname,funcname ));break; \
case 'u':case 'U':res = PietTree((int)retLib<int>(dllname,funcname ));break; \
case 'b':case 'B':res = PietTree((int)retLib<unsigned char>(dllname ,funcname));break; \
case 'w':case 'W':res = PietTree((int)retLib<unsigned short>(dllname,funcname));break; \
case 'f':case 'F':res = PietTree((int)retLib<float>(dllname,funcname ));break; \
default:case 'i':case 'I':res = PietTree(retLib<int>(dllname,funcname));break; \
} \
}
#define SWITCHTYPE(N,...) \
if(size == N){\
switch(TypeNames[size].unicode()){ \
case 'v':case 'V':retLibv(dllname,funcname,__VA_ARGS__); break; \
case 's':case 'S':res = PietTree((int)retLib<short>(dllname,funcname,__VA_ARGS__));break; \
case 'c':case 'C':res = PietTree((int)retLib<char>(dllname,funcname,__VA_ARGS__));break; \
case 'u':case 'U':res = PietTree((int)retLib<int>(dllname,funcname,__VA_ARGS__));break; \
case 'b':case 'B':res = PietTree((int)retLib<unsigned char>(dllname,funcname,__VA_ARGS__));break; \
case 'w':case 'W':res = PietTree((int)retLib<unsigned short>(dllname,funcname,__VA_ARGS__));break; \
case 'f':case 'F':res = PietTree((int)retLib<float>(dllname,funcname,__VA_ARGS__));break; \
default:case 'i':case 'I':res = PietTree(retLib<int>(dllname,funcname,__VA_ARGS__));break; \
} \
}
PietTree LoadPietDLL::LoadDLL(bool& Miss ,QString dllname,QString funcname,QString TypeNames,std::vector<PietTree>& pts){
int size = TypeNames.size() - 1;
if (size > 12) PIETTREELOADDLLMISS // Too Many
if (size < 0) PIETTREELOADDLLMISS
if (pts.size() < size) PIETTREELOADDLLMISS
vector<Various> v;
PietTree res(-765);
for(auto i:range(size))v.push_back(Various::FromQChar(pts[i],TypeNames[i]));
SWITCHZEROTYPE;
SWITCHTYPE(1 ,v[0]);
SWITCHTYPE(2 ,v[0],v[1]);
SWITCHTYPE(3 ,v[0],v[1],v[2]);
SWITCHTYPE(4 ,v[0],v[1],v[2],v[3]);
SWITCHTYPE(5 ,v[0],v[1],v[2],v[3],v[4]);
SWITCHTYPE(6 ,v[0],v[1],v[2],v[3],v[4],v[5]);
SWITCHTYPE(7 ,v[0],v[1],v[2],v[3],v[4],v[5],v[6]);
SWITCHTYPE(8 ,v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7]);
SWITCHTYPE(9 ,v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7],v[8]);
SWITCHTYPE(10,v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7],v[8],v[9]);
SWITCHTYPE(11,v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7],v[8],v[9],v[10]);
SWITCHTYPE(12,v[0],v[1],v[2],v[3],v[4],v[5],v[6],v[7],v[8],v[9],v[10],v[11]);
for(auto i:range(size)) {if (TypeNames[i].unicode() == 'C'){ free (v[i].CCP);}}
vector<PietTree> cp;
for(auto i:range(size)) {if (TypeNames[i].unicode() == 'n'|| TypeNames[i].unicode() == 'N' ){
cp.push_back(PietTree( *(v[i].VP)));
delete v[i].VP;
}}
for(auto i:range(size)) pts.pop_back();
pts.push_back(PietTree(cp));
return res;
}
void midiOutOpenTest(){
vector<PietTree> pts{ PietTree(0), PietTree(-1),PietTree(0), PietTree(0), PietTree(0)};
bool Miss = false;
PietTree ptsres = LoadPietDLL::LoadDLL(Miss,QString("Winmm"),QString("midiOutOpen"),QString ("NiViiu"),pts);
if(!Miss) pts.push_back(ptsres);
if(pts[pts.size()-1].Val() != 0) return;
pts.pop_back();
pts[pts.size()-1].flatten();
int p = pts[pts.size() -1].Nodes()[0].Val();
pts.pop_back();
pts.clear();
pts.push_back(PietTree(p));
pts.push_back(PietTree((0xc << 4) | 0 | (0 << 8) | (0 << 16)));
PietTree ptsressm = LoadPietDLL::LoadDLL(Miss,QString("Winmm"),QString("midiOutShortMsg"),QString ("iiu"),pts);
pts.clear();
pts.push_back(PietTree(p));
pts.push_back(PietTree((0x9 << 4) | 0 | (0x45 << 8) | (40 << 16)));
ptsressm = LoadPietDLL::LoadDLL(Miss,QString("Winmm"),QString("midiOutShortMsg"),QString ("iiu"),pts);
std::this_thread::sleep_for(std::chrono::seconds(2));
pts.clear();
pts.push_back(PietTree(p));
pts.push_back(PietTree((0x9 << 4) | 0 | (0x45 << 8) | (0 << 16)));
ptsressm = LoadPietDLL::LoadDLL(Miss,QString("Winmm"),QString("midiOutShortMsg"),QString ("iiu"),pts);
PietTree ptsres2 = LoadPietDLL::LoadDLL(Miss,QString("Winmm"),QString("midiOutReset"),QString ("iu"),pts);
PietTree ptsres3 = LoadPietDLL::LoadDLL(Miss,QString("Winmm"),QString("midiOutClose"),QString ("iu"),pts);
}
PietTree MessageBoxATest(bool& Miss){
vector<PietTree> pts{ PietTree(0), PietTree(QString("hello! dll world! ")), PietTree(QString("title")), PietTree(0) };
return LoadPietDLL::LoadDLL(Miss,QString("user32"),QString("MessageBoxA"),QString ("VCCui"),pts);
}