The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

KNTH / Win32-ToolHelp-0.3 / ToolHelp.xs 

            

              
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

              
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "Impl/Impl.h"
#undef XS_VERSION
#define XS_VERSION "0.3"
static int
not_here(char *s)
{
    croak("%s not implemented on this architecture", s);
    return -1;
}
static double
constant_M(char *name, int len, int arg)
{
    if (1 + 3 >= len ) {
        errno = EINVAL;
        return 0;
    }
    switch (name[1 + 3]) {
    case 'M':
        if (strEQ(name + 1, "AX_MODULE_NAME32")) {      /* M removed */
#ifdef MAX_MODULE_NAME32
            return MAX_MODULE_NAME32;
#else
            goto not_there;
#endif
        }
    case 'P':
        if (strEQ(name + 1, "AX_PATH")) {       /* M removed */
#ifdef MAX_PATH
            return MAX_PATH;
#else
            goto not_there;
#endif
        }
    }
    errno = EINVAL;
    return 0;
not_there:
    errno = ENOENT;
    return 0;
}
static double
constant(char *name, int len, int arg)
{
    errno = 0;
    switch (name[0 + 0]) {
    case 'M':
        return constant_M(name, len, arg);
    case 'W':
        if (strEQ(name + 0, "WIN32_TOOLHELP_IMPL_VER")) {       /*  removed */
#ifdef WIN32_TOOLHELP_IMPL_VER
            return WIN32_TOOLHELP_IMPL_VER;
#else
            goto not_there;
#endif
        }
    }
    errno = EINVAL;
    return 0;
not_there:
    errno = ENOENT;
    return 0;
}
MODULE = Win32::ToolHelp                PACKAGE = Win32::ToolHelp               
double
constant(sv,arg)
    PREINIT:
        STRLEN          len;
    INPUT:
        SV *            sv
        char *          s = SvPV(sv, len);
        int             arg
    CODE:
        RETVAL = constant(s,len,arg);
    OUTPUT:
        RETVAL
void
GetProcesses()
        INIT:
                AV* a;
                SV* s;
                HANDLE h;
                PROCESSENTRY32 p;
        PPCODE:
                for (h = GetFirstProcess(&p);
                         h != INVALID_HANDLE_VALUE;
                         h = GetNextProcess(h, &p))
                {
                        a = (AV*) sv_2mortal((SV*) newAV());
                        av_push(a, newSViv(p.cntUsage));
                        av_push(a, newSViv(p.th32ProcessID));
                        av_push(a, newSViv(p.th32DefaultHeapID));
                        av_push(a, newSViv(p.th32ModuleID));
                        av_push(a, newSViv(p.cntThreads));
                        av_push(a, newSViv(p.th32ParentProcessID));
                        av_push(a, newSViv(p.pcPriClassBase));
                        av_push(a, newSViv(p.dwFlags));
                        av_push(a, newSVpv(p.szExeFile, strlen(p.szExeFile)));
                        XPUSHs(sv_2mortal(newRV((SV*) a)));
                }
void
GetProcessModules(pid)
                unsigned long pid
        INIT:
                AV* a;
                SV* s;
                HANDLE h;
                MODULEENTRY32 m;
        PPCODE:
                for (h = GetFirstModule(pid, &m);
                         h != INVALID_HANDLE_VALUE;
                         h = GetNextModule(h, &m))
                {
                        a = (AV*) sv_2mortal((SV*) newAV());
                        av_push(a, newSViv(m.th32ModuleID));
                        av_push(a, newSViv(m.th32ProcessID));
                        av_push(a, newSViv(m.GlblcntUsage));
                        av_push(a, newSViv(m.ProccntUsage));
                        av_push(a, newSViv((IV) m.modBaseAddr));
                        av_push(a, newSViv(m.modBaseSize));
                        av_push(a, newSViv((IV) m.hModule));
                        av_push(a, newSVpv(m.szModule, strlen(m.szModule)));
                        av_push(a, newSVpv(m.szExePath, strlen(m.szExePath)));
                        XPUSHs(sv_2mortal(newRV((SV*) a)));
                }