1 module autowrap.common;
2 
3 /**
4    Returns a string to be mixed in that defines DllMain, needed on Windows.
5  */
6 public string dllMainMixinStr() @safe pure {
7     return q{
8 
9         static if (!is(DllMainDefined)) {
10             enum DllMainDefined;
11 
12             import core.sys.windows.windows: HINSTANCE, BOOL, ULONG, LPVOID;
13 
14             __gshared HINSTANCE g_hInst;
15 
16             extern (Windows) BOOL DllMain(HINSTANCE hInstance, ULONG ulReason, LPVOID pvReserved) {
17 
18                 import core.sys.windows.windows;
19                 import core.sys.windows.dll;
20 
21                 switch (ulReason)  {
22 
23                     case DLL_PROCESS_ATTACH:
24                         g_hInst = hInstance;
25                         dll_process_attach(hInstance, true);
26                     break;
27 
28                     case DLL_PROCESS_DETACH:
29                         dll_process_detach(hInstance, true);
30                         break;
31 
32                     case DLL_THREAD_ATTACH:
33                         dll_thread_attach(true, true);
34                         break;
35 
36                     case DLL_THREAD_DETACH:
37                         dll_thread_detach(true, true);
38                         break;
39 
40                     default:
41                 }
42 
43                 return true;
44             }
45         }
46     };
47 }
48 
49 
50 /// Converts an identifier from camelCase or PascalCase to snake_case.
51 string toSnakeCase(in string str) @safe pure {
52 
53     import std.algorithm: all, map;
54     import std.ascii: isUpper;
55 
56     if(str.all!isUpper) return str;
57 
58     string ret;
59 
60     string convert(in size_t index, in char c) {
61         import std.ascii: isLower, toLower;
62 
63         const prefix = index == 0 ? "" : "_";
64         const isHump =
65             (index == 0 && c.isUpper) ||
66             (index > 0 && c.isUpper && str[index - 1].isLower);
67 
68         return isHump ? prefix ~ c.toLower : "" ~ c;
69     }
70 
71     foreach(i, c; str) {
72         ret ~= convert(i, c);
73     }
74 
75     return ret;
76 }