File: debug.pike

package info (click to toggle)
pike8.0 8.0.1956-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 60,580 kB
  • sloc: ansic: 259,734; xml: 36,320; makefile: 3,748; sh: 1,713; cpp: 1,349; awk: 1,036; lisp: 655; javascript: 468; asm: 242; objc: 240; pascal: 157; sed: 34
file content (57 lines) | stat: -rw-r--r-- 1,591 bytes parent folder | download | duplicates (5)
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
#pike __REAL_VERSION__

//! Debugging filesystem monitor.
//!
//! This module behaves as @[symlinks], but has default implementations
//! of all callbacks that call @[report()], as well as an implementation
//! of [report()] that logs everything to @[Stdio.stderr].
//!
//! @seealso
//!   @[Filesystem.Monitor.basic], @[Filesystem.Monitor.symlinks]

inherit "symlinks.pike";

#define MON_WERR(X...)	report(NOTICE,	__func__, X)
#define MON_WARN(X...)	report(WARNING,	__func__, X)
#define MON_ERROR(X...)	report(ERROR,	__func__, X)

protected void report(SeverityLevel level, string(7bit) fun,
		      sprintf_format format, sprintf_args ... args)
{
  werror(format, @args);
}

void data_changed(string path) {
  MON_WERR("data_changed(%O)\r\n", path);
}
void attr_changed(string path, Stdio.Stat st) {
  MON_WERR("attr_changed(%O, %O)\r\n", path, st);
}
void file_exists(string path, Stdio.Stat st) {
  MON_WERR("file_exits(%O, %O)\r\n", path, st);
}
void file_created(string path, Stdio.Stat st) {
  MON_WERR("file_created(%O, %O)\r\n", path, st);
}
void file_deleted(string path) {
  MON_WERR("file_deleted(%O)\r\n", path);
}
void stable_data_change(string path, Stdio.Stat st) {
  MON_WERR("stable_data_change(%O, %O)\r\n", path, st);
}

//! Return the set of active monitors.
mapping(string:Monitor) get_monitors()
{
  return monitors + ([]);
}

int check(int|void max_wait, int|void max_cnt,
	  mapping(string:int)|void ret_stats)
{
  int ret;
  MON_WERR("check(%O, %O, %O) ==> %O\r\n",
	   max_wait, max_cnt, ret_stats,
	   ret = ::check(max_wait, max_cnt, ret_stats));
  return ret;
}