From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

JDB / libwin32-0.25 / ChangeNotify / ChangeNotify.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

              
//--------------------------------------------------------------------
// $Id$
//--------------------------------------------------------------------
//
//   Win32::ChangeNotify
//   Copyright 1998 by Christopher J. Madsen
//
//   XS file for the Win32::ChangeNotify IPC module
//
//--------------------------------------------------------------------
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "../ppport.h"
#define WIN32_LEAN_AND_MEAN
#define TRUEFALSE bool
#include <windows.h>
static DWORD
constant(char* name)
{
    errno = 0;
    switch (*name) {
    case 'F':
        if (strnNE(name, "FILE_NOTIFY_CHANGE_", 19))
          goto invalid;
        if (strEQ(name+19, "ATTRIBUTES"))
#ifdef FILE_NOTIFY_CHANGE_ATTRIBUTES
            return FILE_NOTIFY_CHANGE_ATTRIBUTES;
#else
            goto not_there;
#endif
        if (strEQ(name+19, "DIR_NAME"))
#ifdef FILE_NOTIFY_CHANGE_DIR_NAME
            return FILE_NOTIFY_CHANGE_DIR_NAME;
#else
            goto not_there;
#endif
        if (strEQ(name+19, "FILE_NAME"))
#ifdef FILE_NOTIFY_CHANGE_FILE_NAME
            return FILE_NOTIFY_CHANGE_FILE_NAME;
#else
            goto not_there;
#endif
        if (strEQ(name+19, "LAST_WRITE"))
#ifdef FILE_NOTIFY_CHANGE_LAST_WRITE
            return FILE_NOTIFY_CHANGE_LAST_WRITE;
#else
            goto not_there;
#endif
        if (strEQ(name+19, "SECURITY"))
#ifdef FILE_NOTIFY_CHANGE_SECURITY
            return FILE_NOTIFY_CHANGE_SECURITY;
#else
            goto not_there;
#endif
        if (strEQ(name+19, "SIZE"))
#ifdef FILE_NOTIFY_CHANGE_SIZE
            return FILE_NOTIFY_CHANGE_SIZE;
#else
            goto not_there;
#endif
        break;
    case 'I':
        if (strEQ(name, "INFINITE"))
#ifdef INFINITE
            return INFINITE;
#else
            goto not_there;
#endif
        break;
    }
 invalid:
    errno = EINVAL;
    return 0;
not_there:
    errno = ENOENT;
    return 0;
} /* end constant */
MODULE = Win32::ChangeNotify    PACKAGE = Win32::ChangeNotify
PROTOTYPES: ENABLE
DWORD
constant(name)
    char *name
HANDLE
_new(className,path,watchsubtree,filter)
    char*  className
    LPCSTR path
    TRUEFALSE   watchsubtree
    DWORD  filter
CODE:
    RETVAL = FindFirstChangeNotificationA(path, watchsubtree, filter);
    if (RETVAL == INVALID_HANDLE_VALUE)
      XSRETURN_UNDEF;
OUTPUT:
    RETVAL
BOOL
reset(handle)
    HANDLE handle
CODE:
    RETVAL = FindNextChangeNotification(handle);
OUTPUT:
    RETVAL
BOOL
close(handle)
    HANDLE handle
CODE:
    if (handle != INVALID_HANDLE_VALUE) {
      RETVAL = FindCloseChangeNotification(handle);
      sv_setiv(SvRV(ST(0)), (IV)INVALID_HANDLE_VALUE);
    } else XSRETURN_UNDEF;
OUTPUT:
    RETVAL
void
DESTROY(handle)
    HANDLE handle
CODE:
    if (handle != INVALID_HANDLE_VALUE)
      FindCloseChangeNotification(handle);