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
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
|
/* Generated by Nim Compiler v2.2.0 */
#define NIM_INTBITS 64
#include "nimbase.h"
#include <string.h>
#include <stdlib.h>
#include <errno.h>
#undef LANGUAGE_C
#undef MIPSEB
#undef MIPSEL
#undef PPC
#undef R3000
#undef R4000
#undef i386
#undef linux
#undef mips
#undef near
#undef far
#undef powerpc
#undef unix
typedef struct NimStrPayload NimStrPayload;
typedef struct NimStringV2 NimStringV2;
typedef struct tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w;
typedef struct tySequence__lBgZ7a89beZGYPl8PiANMTA tySequence__lBgZ7a89beZGYPl8PiANMTA;
typedef struct tySequence__lBgZ7a89beZGYPl8PiANMTA_Content tySequence__lBgZ7a89beZGYPl8PiANMTA_Content;
struct NimStrPayload {
NI cap;
NIM_CHAR data[SEQ_DECL_SIZE];
};
struct NimStringV2 {
NI len;
NimStrPayload* p;
};
struct tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w {
NI bytes;
NI16* data;
};
typedef NI16 tyUncheckedArray__Tyd4y3haUOOHTj71TPIRag[1];
struct tySequence__lBgZ7a89beZGYPl8PiANMTA {
NI len; tySequence__lBgZ7a89beZGYPl8PiANMTA_Content* p;
};
typedef N_STDCALL_PTR(NI32, tyProc__bqj9c9cp9clcknaC0kHFkuNVg) (NI16* lpName_p0, NI16* lpValue_p1);
struct tySequence__lBgZ7a89beZGYPl8PiANMTA_Content { NI cap; NIM_CHAR data[SEQ_DECL_SIZE]; };
static N_INLINE(void, nimZeroMem)(void* p_p0, NI size_p1);
static N_INLINE(void, nimSetMem__systemZmemory_u7)(void* a_p0, int v_p1, NI size_p2);
static N_INLINE(NIM_BOOL*, nimErrorFlag)(void);
static N_INLINE(NI16*, toWideCString__stdZwidestrs_u49)(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w x_p0);
N_LIB_PRIVATE N_NIMCALL(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w, newWideCString__stdZwidestrs_u316)(NimStringV2 s_p0);
N_LIB_PRIVATE N_NIMCALL(void, eqdestroy___stdZwidestrs_u7)(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w a_p0);
N_LIB_PRIVATE N_NIMCALL(void, eqdestroy___system_u2597)(NimStringV2 dest_p0);
static N_INLINE(void, appendString)(NimStringV2* dest_p0, NimStringV2 src_p1);
static N_INLINE(void, copyMem__system_u1713)(void* dest_p0, void* source_p1, NI size_p2);
static N_INLINE(void, nimCopyMem)(void* dest_p0, void* source_p1, NI size_p2);
N_LIB_PRIVATE N_NIMCALL(NimStringV2, rawNewString)(NI space_p0);
N_LIB_PRIVATE N_NIMCALL(tySequence__lBgZ7a89beZGYPl8PiANMTA, newSeq__stdZprivateZwin95setenv_u59)(NI len_p0);
N_LIB_PRIVATE N_NIMCALL(void, eqdestroy___stdZprivateZwin95setenv_u144)(tySequence__lBgZ7a89beZGYPl8PiANMTA dest_p0);
N_LIB_PRIVATE N_NIMCALL(void*, nimLoadLibrary)(NimStringV2 path_p0);
N_LIB_PRIVATE N_NIMCALL(void, nimLoadLibraryError)(NimStringV2 path_p0);
N_LIB_PRIVATE N_NIMCALL(void*, nimGetProcAddr)(void* lib_p0, NCSTRING name_p1);
static const struct {
NI cap; NIM_CHAR data[1+1];
} TM__UOYsq9cbb0VE8vr3Xt181HA_2 = { 1 | NIM_STRLIT_FLAG, "=" };
static const NimStringV2 TM__UOYsq9cbb0VE8vr3Xt181HA_3 = {1, (NimStrPayload*)&TM__UOYsq9cbb0VE8vr3Xt181HA_2};
static const struct {
NI cap; NIM_CHAR data[3+1];
} TM__UOYsq9cbb0VE8vr3Xt181HA_4 = { 3 | NIM_STRLIT_FLAG, "= " };
static const NimStringV2 TM__UOYsq9cbb0VE8vr3Xt181HA_5 = {3, (NimStrPayload*)&TM__UOYsq9cbb0VE8vr3Xt181HA_4};
static const struct {
NI cap; NIM_CHAR data[8+1];
} TM__UOYsq9cbb0VE8vr3Xt181HA_8 = { 8 | NIM_STRLIT_FLAG, "kernel32" };
static const NimStringV2 TM__UOYsq9cbb0VE8vr3Xt181HA_9 = {8, (NimStrPayload*)&TM__UOYsq9cbb0VE8vr3Xt181HA_8};
static const struct {
NI cap; NIM_CHAR data[8+1];
} TM__UOYsq9cbb0VE8vr3Xt181HA_10 = { 8 | NIM_STRLIT_FLAG, "kernel32" };
static const NimStringV2 TM__UOYsq9cbb0VE8vr3Xt181HA_11 = {8, (NimStrPayload*)&TM__UOYsq9cbb0VE8vr3Xt181HA_10};
extern NIM_CHAR** _environ;
extern NIM_BOOL nimInErrorMode__system_u4274;
static void* TM__UOYsq9cbb0VE8vr3Xt181HA_6;
tyProc__bqj9c9cp9clcknaC0kHFkuNVg Dl_1660944387_;
static N_INLINE(void, nimSetMem__systemZmemory_u7)(void* a_p0, int v_p1, NI size_p2) {
void* T1_;
T1_ = (void*)0;
T1_ = memset(a_p0, v_p1, ((size_t) (size_p2)));
}
static N_INLINE(NIM_BOOL*, nimErrorFlag)(void) {
NIM_BOOL* result;
result = (&nimInErrorMode__system_u4274);
return result;
}
static N_INLINE(void, nimZeroMem)(void* p_p0, NI size_p1) {
NIM_BOOL* nimErr_;
{nimErr_ = nimErrorFlag();
nimSetMem__systemZmemory_u7(p_p0, ((int)0), size_p1);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
}BeforeRet_: ;
}
static N_INLINE(NI16*, toWideCString__stdZwidestrs_u49)(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w x_p0) {
NI16* result;
result = x_p0.data;
return result;
}
static N_INLINE(void, nimCopyMem)(void* dest_p0, void* source_p1, NI size_p2) {
void* T1_;
T1_ = (void*)0;
T1_ = memcpy(dest_p0, source_p1, ((size_t) (size_p2)));
}
static N_INLINE(void, copyMem__system_u1713)(void* dest_p0, void* source_p1, NI size_p2) {
nimCopyMem(dest_p0, source_p1, size_p2);
}
static N_INLINE(void, appendString)(NimStringV2* dest_p0, NimStringV2 src_p1) {
{
if (!(((NI)0) < src_p1.len)) goto LA3_;
copyMem__system_u1713(((void*) ((&(*(*dest_p0).p).data[(*dest_p0).len]))), ((void*) ((&(*src_p1.p).data[((NI)0)]))), ((NI)(src_p1.len + ((NI)1))));
(*dest_p0).len += src_p1.len;
}
LA3_: ;
}
N_LIB_PRIVATE N_NIMCALL(int, setEnvImpl__stdZprivateZwin95setenv_u18)(NimStringV2 name_p0, NimStringV2 value_p1, int overwrite_p2) {
int result;
tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w colontmpD_;
NimStringV2 colontmpD__2;
tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w colontmpD__3;
tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w colontmpD__4;
NI16* wideName;
NIM_BOOL oldNimErrFin13_;
NI16* envstring_2;
NimStringV2 T21_;
NI16* s;
wchar_t* T27_;
wchar_t* T28_;
NIM_BOOL oldNimErrFin1_;
NIM_BOOL* nimErr_;
{nimErr_ = nimErrorFlag();
result = (int)0;
nimZeroMem((void*)(&colontmpD_), sizeof(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w));
colontmpD__2.len = 0; colontmpD__2.p = NIM_NIL;
nimZeroMem((void*)(&colontmpD__3), sizeof(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w));
nimZeroMem((void*)(&colontmpD__4), sizeof(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w));
colontmpD_ = newWideCString__stdZwidestrs_u316(name_p0);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
wideName = toWideCString__stdZwidestrs_u49(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
{
NIM_BOOL T4_;
wchar_t* T6_;
T4_ = (NIM_BOOL)0;
T4_ = (overwrite_p2 == ((NI32)0));
if (!(T4_)) goto LA5_;
T6_ = (wchar_t*)0;
T6_ = _wgetenv(((wchar_t*) (wideName)));
T4_ = !((T6_ == ((wchar_t*) NIM_NIL)));
LA5_: ;
if (!T4_) goto LA7_;
result = ((int)0);
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
goto BeforeRet_;
}
LA7_: ;
{
NimStringV2 colontmpD__5;
tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w colontmpD__6;
NI16* envstring;
NimStringV2 T14_;
int e;
if (!!((value_p1.len == 0))) goto LA11_;
colontmpD__5.len = 0; colontmpD__5.p = NIM_NIL;
nimZeroMem((void*)(&colontmpD__6), sizeof(tyObject_WideCStringObj__S69bIyvbp2ySa2Didg6Np7w));
T14_.len = 0; T14_.p = NIM_NIL;
T14_ = rawNewString(name_p0.len + value_p1.len + 1);
appendString((&T14_), name_p0);
appendString((&T14_), TM__UOYsq9cbb0VE8vr3Xt181HA_3);
appendString((&T14_), value_p1);
colontmpD__5 = T14_;
colontmpD__6 = newWideCString__stdZwidestrs_u316(colontmpD__5);
if (NIM_UNLIKELY(*nimErr_)) goto LA13_;
envstring = toWideCString__stdZwidestrs_u49(colontmpD__6);
if (NIM_UNLIKELY(*nimErr_)) goto LA13_;
e = _wputenv(((wchar_t*) (envstring)));
{
if (!!((e == ((NI32)0)))) goto LA17_;
errno = ((int)22);
result = ((int)-1);
eqdestroy___stdZwidestrs_u7(colontmpD__6);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
eqdestroy___system_u2597(colontmpD__5);
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
goto BeforeRet_;
}
LA17_: ;
result = ((int)0);
eqdestroy___stdZwidestrs_u7(colontmpD__6);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
eqdestroy___system_u2597(colontmpD__5);
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
goto BeforeRet_;
{
LA13_:;
}
{
oldNimErrFin13_ = *nimErr_; *nimErr_ = NIM_FALSE;
eqdestroy___stdZwidestrs_u7(colontmpD__6);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
eqdestroy___system_u2597(colontmpD__5);
*nimErr_ = oldNimErrFin13_;
}
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
}
LA11_: ;
T21_.len = 0; T21_.p = NIM_NIL;
T21_ = rawNewString(name_p0.len + 3);
appendString((&T21_), name_p0);
appendString((&T21_), TM__UOYsq9cbb0VE8vr3Xt181HA_5);
colontmpD__2 = T21_;
colontmpD__3 = newWideCString__stdZwidestrs_u316(colontmpD__2);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
envstring_2 = toWideCString__stdZwidestrs_u49(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
{
int T24_;
T24_ = (int)0;
T24_ = _wputenv(((wchar_t*) (envstring_2)));
if (!!((T24_ == ((NI32)0)))) goto LA25_;
errno = ((int)22);
result = ((int)-1);
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
goto BeforeRet_;
}
LA25_: ;
T27_ = (wchar_t*)0;
T27_ = _wgetenv(((wchar_t*) (wideName)));
s = ((NI16*) (T27_));
s[((NI)0)] = ((NI16)0);
T28_ = (wchar_t*)0;
T28_ = _wgetenv(((wchar_t*) (wideName)));
s = ((NI16*) (T28_));
s[((NI)1)] = ((NI16)61);
{
size_t requiredSizeS;
if (!!((_environ == ((NIM_CHAR**) NIM_NIL)))) goto LA31_;
requiredSizeS = wcstombs(((NIM_CHAR*) NIM_NIL), ((wchar_t*) (wideName)), ((size_t)0));
{
tySequence__lBgZ7a89beZGYPl8PiANMTA buf;
NI requiredSize;
NIM_CHAR* buf2;
if (!!((requiredSizeS == ((size_t)-1)))) goto LA35_;
buf.len = 0; buf.p = NIM_NIL;
requiredSize = ((NI) (requiredSizeS));
buf = newSeq__stdZprivateZwin95setenv_u59(((NI)(requiredSize + ((NI)1))));
buf2 = (&buf.p->data[((NI)0)]);
{
size_t T39_;
NCSTRING ptrToEnv;
T39_ = (size_t)0;
T39_ = wcstombs(buf2, ((wchar_t*) (wideName)), ((size_t) ((NI)(requiredSize + ((NI)1)))));
if (!!((T39_ == ((size_t)-1)))) goto LA40_;
ptrToEnv = getenv(((NCSTRING) (buf2)));
ptrToEnv[((NI)0)] = 0;
ptrToEnv = getenv(((NCSTRING) (buf2)));
ptrToEnv[((NI)1)] = 61;
}
LA40_: ;
eqdestroy___stdZprivateZwin95setenv_u144(buf);
}
LA35_: ;
}
LA31_: ;
{
NI16* T44_;
NI32 T45_;
colontmpD__4 = newWideCString__stdZwidestrs_u316(value_p1);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
T44_ = (NI16*)0;
T44_ = toWideCString__stdZwidestrs_u49(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto LA1_;
T45_ = (NI32)0;
T45_ = Dl_1660944387_(wideName, T44_);
if (!(T45_ == ((NI32)0))) goto LA46_;
errno = ((int)22);
result = ((int)-1);
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
goto BeforeRet_;
}
LA46_: ;
result = ((int)0);
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
goto BeforeRet_;
{
LA1_:;
}
{
oldNimErrFin1_ = *nimErr_; *nimErr_ = NIM_FALSE;
eqdestroy___stdZwidestrs_u7(colontmpD__4);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___stdZwidestrs_u7(colontmpD__3);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
eqdestroy___system_u2597(colontmpD__2);
eqdestroy___stdZwidestrs_u7(colontmpD_);
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
*nimErr_ = oldNimErrFin1_;
}
if (NIM_UNLIKELY(*nimErr_)) goto BeforeRet_;
}BeforeRet_: ;
return result;
}
N_LIB_PRIVATE N_NIMCALL(void, atmdotdotatslibatsstdatsprivateatswin_setenvdotnim_DatInit000)(void) {
if (!((TM__UOYsq9cbb0VE8vr3Xt181HA_6 = nimLoadLibrary(TM__UOYsq9cbb0VE8vr3Xt181HA_9))
)) nimLoadLibraryError(TM__UOYsq9cbb0VE8vr3Xt181HA_11);
Dl_1660944387_ = (tyProc__bqj9c9cp9clcknaC0kHFkuNVg) nimGetProcAddr(TM__UOYsq9cbb0VE8vr3Xt181HA_6, "SetEnvironmentVariableW");
}
|
