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
  
// -*- pike -*- 
// 
// $Id: roxen.h,v 1.32 2009/04/15 13:54:30 marty Exp $ 
 
#ifndef _ROXEN_H_ 
 
#define _ROXEN_H_ 
#include <config.h> 
#define HOST_TO_IP 'H' 
#define IP_TO_HOST 'I' 
 
#ifndef REQUESTID 
#define REQUESTID   id 
#endif 
 
// Various useful macros 
 
#define TOSTR2(X)     #X 
#define TOSTR(X)    TOSTR2(X) 
 
// Localization support 
 
#ifndef __LOCALEOBJECT 
#ifdef IN_ROXEN 
mixed get_locale(); 
#define __LOCALE (get_locale) 
#else /* !IN_ROXEN */ 
#define __LOCALE (roxen.get_locale) 
#endif /* IN_ROXEN */ 
#endif /* !__LOCALEOBJECT */ 
 
#ifndef _STR_LOCALE 
#define _STR_LOCALE(X, Y, Z)    Locale.translate(X, __LOCALE(), Y, Z) 
#endif /* !_STR_LOCALE */ 
 
#ifndef _DEF_LOCALE 
#  define _DEF_LOCALE(X, Y, Z) ([object(Locale.DeferredLocale)|string]((mixed)Locale.DeferredLocale(X,__LOCALE,Y,Z))) 
#endif /* !_DEF_LOCALE */ 
 
#ifndef _LOCALE_FUN 
#define _LOCALE_FUN(X, Y, Z)    Locale.call(X, __LOCALE(), Y, Z) 
#endif /* !_LOCALE_FUN */ 
 
// Debug macros. 
 
#ifdef DEBUG 
#define DO_IF_DEBUG(X...) X 
#define ASSERT_IF_DEBUG(TEST, ARGS...) do {                         \ 
    if (!(TEST)) error ("Assertion failed: " #TEST "\n", ARGS);         \ 
  } while (0) 
#else 
#define DO_IF_DEBUG(X...) 
#define ASSERT_IF_DEBUG(TEST, ARGS...) do {} while (0) 
#endif 
 
#ifdef DEBUG_CACHEABLE 
#  define CACHE(seconds) do {                                               \ 
    int old_cacheable =                                                 \ 
      ([mapping(string:mixed)]REQUESTID->misc)->cacheable;              \ 
    ([mapping(string:mixed)]REQUESTID->misc)->cacheable =               \ 
      min(([mapping(string:mixed)]REQUESTID->misc)->cacheable,seconds); \ 
    report_debug("%s:%d lowered cacheable to %d (was: %d, now: %d)\n",  \ 
                 __FILE__, __LINE__, seconds, old_cacheable,            \ 
                 ([mapping(string:mixed)]REQUESTID->misc)->cacheable);  \ 
  } while(0) 
#  define RAISE_CACHE(seconds) do {                                 \ 
    int old_cacheable =                                                 \ 
      ([mapping(string:mixed)]REQUESTID->misc)->cacheable;              \ 
    ([mapping(string:mixed)]REQUESTID->misc)->cacheable =               \ 
      max(([mapping(string:mixed)]REQUESTID->misc)->cacheable,seconds); \ 
    report_debug("%s:%d raised cacheable to %d (was: %d, now: %d)\n",   \ 
                 __FILE__, __LINE__, seconds, old_cacheable,            \ 
                 ([mapping(string:mixed)]REQUESTID->misc)->cacheable);  \ 
  } while(0) 
#  define NOCACHE() do {                                            \ 
    int old_cacheable =                                                 \ 
      ([mapping(string:mixed)]REQUESTID->misc)->cacheable;              \ 
    ([mapping(string:mixed)]REQUESTID->misc)->cacheable = 0;            \ 
    report_debug("%s:%d set cacheable to 0 (was: %d)\n",                \ 
                 __FILE__, __LINE__, old_cacheable);                    \ 
  } while(0) 
#  define NO_PROTO_CACHE() do {                                             \ 
    ([mapping(string:mixed)]REQUESTID->misc)->no_proto_cache = 1;       \ 
    report_debug("%s:%d disabled proto cache\n", __FILE__, __LINE__);   \ 
  } while(0) 
#  define PROTO_CACHE() do {                                                \ 
    ([mapping(string:mixed)]REQUESTID->misc)->no_proto_cache = 0;       \ 
    report_debug("%s:%d enabled proto cache\n", __FILE__, __LINE__);    \ 
  } while(0) 
#else 
#  define CACHE(seconds)                                            \ 
  ([mapping(string:mixed)]REQUESTID->misc)->cacheable =                 \ 
    min(([mapping(string:mixed)]REQUESTID->misc)->cacheable,seconds) 
#  define RAISE_CACHE(seconds)                                              \ 
  ([mapping(string:mixed)]REQUESTID->misc)->cacheable =                 \ 
    max(([mapping(string:mixed)]REQUESTID->misc)->cacheable,seconds) 
#  define NOCACHE()                                 \ 
  ([mapping(string:mixed)]REQUESTID->misc)->cacheable=0 
#  define NO_PROTO_CACHE()                                  \ 
  ([mapping(string:mixed)]REQUESTID->misc)->no_proto_cache = 1 
#  define PROTO_CACHE()                                             \ 
  ([mapping(string:mixed)]REQUESTID->misc)->no_proto_cache = 0 
#endif /* DEBUG_CACHEABLE */ 
 
#endif  /* !_ROXEN_H_ */