105 |
extern Lisp_Object Vw32_downcase_file_names; |
extern Lisp_Object Vw32_downcase_file_names; |
106 |
extern Lisp_Object Vw32_generate_fake_inodes; |
extern Lisp_Object Vw32_generate_fake_inodes; |
107 |
extern Lisp_Object Vw32_get_true_file_attributes; |
extern Lisp_Object Vw32_get_true_file_attributes; |
108 |
extern Lisp_Object Vw32_num_mouse_buttons; |
extern int w32_num_mouse_buttons; |
109 |
|
|
110 |
|
|
111 |
/* |
/* |
1094 |
/* Determine if there is a middle mouse button, to allow parse_button |
/* Determine if there is a middle mouse button, to allow parse_button |
1095 |
to decide whether right mouse events should be mouse-2 or |
to decide whether right mouse events should be mouse-2 or |
1096 |
mouse-3. */ |
mouse-3. */ |
1097 |
XSETINT (Vw32_num_mouse_buttons, GetSystemMetrics (SM_CMOUSEBUTTONS)); |
w32_num_mouse_buttons = GetSystemMetrics (SM_CMOUSEBUTTONS); |
1098 |
|
|
1099 |
init_user_info (); |
init_user_info (); |
1100 |
} |
} |
1627 |
/* Support shares on a network resource as subdirectories of a read-only |
/* Support shares on a network resource as subdirectories of a read-only |
1628 |
root directory. */ |
root directory. */ |
1629 |
static HANDLE wnet_enum_handle = INVALID_HANDLE_VALUE; |
static HANDLE wnet_enum_handle = INVALID_HANDLE_VALUE; |
1630 |
HANDLE open_unc_volume (char *); |
HANDLE open_unc_volume (const char *); |
1631 |
char *read_unc_volume (HANDLE, char *, int); |
char *read_unc_volume (HANDLE, char *, int); |
1632 |
void close_unc_volume (HANDLE); |
void close_unc_volume (HANDLE); |
1633 |
|
|
1740 |
} |
} |
1741 |
|
|
1742 |
HANDLE |
HANDLE |
1743 |
open_unc_volume (char *path) |
open_unc_volume (const char *path) |
1744 |
{ |
{ |
1745 |
NETRESOURCE nr; |
NETRESOURCE nr; |
1746 |
HANDLE henum; |
HANDLE henum; |
1797 |
} |
} |
1798 |
|
|
1799 |
DWORD |
DWORD |
1800 |
unc_volume_file_attributes (char *path) |
unc_volume_file_attributes (const char *path) |
1801 |
{ |
{ |
1802 |
HANDLE henum; |
HANDLE henum; |
1803 |
DWORD attrs; |
DWORD attrs; |
3486 |
} |
} |
3487 |
|
|
3488 |
/* From ntproc.c */ |
/* From ntproc.c */ |
3489 |
extern Lisp_Object Vw32_pipe_read_delay; |
extern int w32_pipe_read_delay; |
3490 |
|
|
3491 |
/* Function to do blocking read of one byte, needed to implement |
/* Function to do blocking read of one byte, needed to implement |
3492 |
select. It is only allowed on sockets and pipes. */ |
select. It is only allowed on sockets and pipes. */ |
3526 |
shell on NT is very slow if we don't do this. */ |
shell on NT is very slow if we don't do this. */ |
3527 |
if (rc > 0) |
if (rc > 0) |
3528 |
{ |
{ |
3529 |
int wait = XINT (Vw32_pipe_read_delay); |
int wait = w32_pipe_read_delay; |
3530 |
|
|
3531 |
if (wait > 0) |
if (wait > 0) |
3532 |
Sleep (wait); |
Sleep (wait); |