← Back to branch summary

~ubuntu-branches/ubuntu/trusty/net-snmp/trusty

« back to all changes in this revision

Viewing changes to perl/agent/default_store/default_store.xs

  • Committer: Bazaar Package Importer
  • Author(s): Steve Kowalik
  • Date: 2007-12-08 14:59:50 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20071208145950-u1tykhpw56nyzqik
Tags: 5.4.1~dfsg-4ubuntu1
* Merge from debian unstable.
* Remaining Ubuntu changes:
  - Remove stop links from rc0 and rc6
  - Munge Maintainer field as per spec.
* Ubuntu changes dropped:
  - Symlink common files between the packages, CDBS ought to handle that
    for us automatically.
* The latest Debian changes has dropped history from the changelog. Slot in
  the Ubuntu changes as best I can. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
perl/agent/default_store/default_store.xs
4
4
 
5
5
#include <net-snmp/agent/ds_agent.h>
6
6
 
 
7
 
 
8
/* autogenerated by "gen" from const-c.inc */
 
9
 
 
10
#define PERL_constant_NOTFOUND  1
 
11
#define PERL_constant_NOTDEF    2
 
12
#define PERL_constant_ISIV      3
 
13
#define PERL_constant_ISNO      4
 
14
#define PERL_constant_ISNV      5
 
15
#define PERL_constant_ISPV      6
 
16
#define PERL_constant_ISPVN     7
 
17
#define PERL_constant_ISSV      8
 
18
#define PERL_constant_ISUNDEF   9
 
19
#define PERL_constant_ISUV      10
 
20
#define PERL_constant_ISYES     11
 
21
 
 
22
#ifndef NVTYPE
 
23
typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
 
24
#endif
 
25
#ifndef aTHX_
 
26
#define aTHX_ /* 5.6 or later define this for threading support.  */
 
27
#endif
 
28
#ifndef pTHX_
 
29
#define pTHX_ /* 5.6 or later define this for threading support.  */
 
30
#endif
 
31
 
7
32
static int
8
 
not_here(char *s)
9
 
{
10
 
    croak("%s not implemented on this architecture", s);
11
 
    return -1;
12
 
}
13
 
 
14
 
static double
15
 
constant_NETSNMP_DS_AGENT_P(char *name, int len, int arg)
16
 
{
17
 
    switch (name[18 + 0]) {
18
 
    case 'E':
19
 
        if (strEQ(name + 18, "ERL_INIT_FILE")) {        /* NETSNMP_DS_AGENT_P removed */
20
 
#ifdef NETSNMP_DS_AGENT_PERL_INIT_FILE
21
 
            return NETSNMP_DS_AGENT_PERL_INIT_FILE;
22
 
#else
23
 
            goto not_there;
24
 
#endif
25
 
        }
26
 
    case 'O':
27
 
        if (strEQ(name + 18, "ORTS")) { /* NETSNMP_DS_AGENT_P removed */
 
33
constant_22 (pTHX_ const char *name, IV *iv_return) {
 
34
  /* When generated this function returned values for the list of names given
 
35
     here.  However, subsequent manual editing may have added or removed some.
 
36
     NETSNMP_DS_AGENT_FLAGS NETSNMP_DS_AGENT_PORTS NETSNMP_DS_SMUX_SOCKET */
 
37
  /* Offset 17 gives the best switch position.  */
 
38
  switch (name[17]) {
 
39
  case 'F':
 
40
    if (memEQ(name, "NETSNMP_DS_AGENT_FLAGS", 22)) {
 
41
    /*                                ^           */
 
42
#ifdef NETSNMP_DS_AGENT_FLAGS
 
43
      *iv_return = NETSNMP_DS_AGENT_FLAGS;
 
44
      return PERL_constant_ISIV;
 
45
#else
 
46
      return PERL_constant_NOTDEF;
 
47
#endif
 
48
    }
 
49
    break;
 
50
  case 'O':
 
51
    if (memEQ(name, "NETSNMP_DS_SMUX_SOCKET", 22)) {
 
52
    /*                                ^           */
 
53
#ifdef NETSNMP_DS_SMUX_SOCKET
 
54
      *iv_return = NETSNMP_DS_SMUX_SOCKET;
 
55
      return PERL_constant_ISIV;
 
56
#else
 
57
      return PERL_constant_NOTDEF;
 
58
#endif
 
59
    }
 
60
    break;
 
61
  case 'P':
 
62
    if (memEQ(name, "NETSNMP_DS_AGENT_PORTS", 22)) {
 
63
    /*                                ^           */
28
64
#ifdef NETSNMP_DS_AGENT_PORTS
29
 
            return NETSNMP_DS_AGENT_PORTS;
30
 
#else
31
 
            goto not_there;
32
 
#endif
33
 
        }
34
 
    case 'R':
35
 
        if (strEQ(name + 18, "ROGNAME")) {      /* NETSNMP_DS_AGENT_P removed */
36
 
#ifdef NETSNMP_DS_AGENT_PROGNAME
37
 
            return NETSNMP_DS_AGENT_PROGNAME;
38
 
#else
39
 
            goto not_there;
40
 
#endif
41
 
        }
42
 
    }
43
 
    errno = EINVAL;
44
 
    return 0;
45
 
 
46
 
not_there:
47
 
    errno = ENOENT;
48
 
    return 0;
49
 
}
50
 
 
51
 
static double
52
 
constant_NETSNMP_DS_AGENT_A(char *name, int len, int arg)
53
 
{
54
 
    if (18 + 6 >= len ) {
55
 
        errno = EINVAL;
56
 
        return 0;
57
 
    }
58
 
    switch (name[18 + 6]) {
59
 
    case 'M':
60
 
        if (strEQ(name + 18, "GENTX_MASTER")) { /* NETSNMP_DS_AGENT_A removed */
 
65
      *iv_return = NETSNMP_DS_AGENT_PORTS;
 
66
      return PERL_constant_ISIV;
 
67
#else
 
68
      return PERL_constant_NOTDEF;
 
69
#endif
 
70
    }
 
71
    break;
 
72
  }
 
73
  return PERL_constant_NOTFOUND;
 
74
}
 
75
 
 
76
static int
 
77
constant_24 (pTHX_ const char *name, IV *iv_return) {
 
78
  /* When generated this function returned values for the list of names given
 
79
     here.  However, subsequent manual editing may have added or removed some.
 
80
     NETSNMP_DS_AGENT_GROUPID NETSNMP_DS_AGENT_VERBOSE NETSNMP_DS_NOTIF_LOG_CTX
 
81
     */
 
82
  /* Offset 19 gives the best switch position.  */
 
83
  switch (name[19]) {
 
84
  case 'G':
 
85
    if (memEQ(name, "NETSNMP_DS_NOTIF_LOG_CTX", 24)) {
 
86
    /*                                  ^           */
 
87
#ifdef NETSNMP_DS_NOTIF_LOG_CTX
 
88
      *iv_return = NETSNMP_DS_NOTIF_LOG_CTX;
 
89
      return PERL_constant_ISIV;
 
90
#else
 
91
      return PERL_constant_NOTDEF;
 
92
#endif
 
93
    }
 
94
    break;
 
95
  case 'O':
 
96
    if (memEQ(name, "NETSNMP_DS_AGENT_GROUPID", 24)) {
 
97
    /*                                  ^           */
 
98
#ifdef NETSNMP_DS_AGENT_GROUPID
 
99
      *iv_return = NETSNMP_DS_AGENT_GROUPID;
 
100
      return PERL_constant_ISIV;
 
101
#else
 
102
      return PERL_constant_NOTDEF;
 
103
#endif
 
104
    }
 
105
    break;
 
106
  case 'R':
 
107
    if (memEQ(name, "NETSNMP_DS_AGENT_VERBOSE", 24)) {
 
108
    /*                                  ^           */
 
109
#ifdef NETSNMP_DS_AGENT_VERBOSE
 
110
      *iv_return = NETSNMP_DS_AGENT_VERBOSE;
 
111
      return PERL_constant_ISIV;
 
112
#else
 
113
      return PERL_constant_NOTDEF;
 
114
#endif
 
115
    }
 
116
    break;
 
117
  }
 
118
  return PERL_constant_NOTFOUND;
 
119
}
 
120
 
 
121
static int
 
122
constant_30 (pTHX_ const char *name, IV *iv_return) {
 
123
  /* When generated this function returned values for the list of names given
 
124
     here.  However, subsequent manual editing may have added or removed some.
 
125
     NETSNMP_DS_AGENT_AGENTX_MASTER NETSNMP_DS_AGENT_CACHE_TIMEOUT
 
126
     NETSNMP_DS_AGENT_LEAVE_PIDFILE NETSNMP_DS_AGENT_STRICT_DISMAN */
 
127
  /* Offset 27 gives the best switch position.  */
 
128
  switch (name[27]) {
 
129
  case 'I':
 
130
    if (memEQ(name, "NETSNMP_DS_AGENT_LEAVE_PIDFILE", 30)) {
 
131
    /*                                          ^         */
 
132
#ifdef NETSNMP_DS_AGENT_LEAVE_PIDFILE
 
133
      *iv_return = NETSNMP_DS_AGENT_LEAVE_PIDFILE;
 
134
      return PERL_constant_ISIV;
 
135
#else
 
136
      return PERL_constant_NOTDEF;
 
137
#endif
 
138
    }
 
139
    break;
 
140
  case 'M':
 
141
    if (memEQ(name, "NETSNMP_DS_AGENT_STRICT_DISMAN", 30)) {
 
142
    /*                                          ^         */
 
143
#ifdef NETSNMP_DS_AGENT_STRICT_DISMAN
 
144
      *iv_return = NETSNMP_DS_AGENT_STRICT_DISMAN;
 
145
      return PERL_constant_ISIV;
 
146
#else
 
147
      return PERL_constant_NOTDEF;
 
148
#endif
 
149
    }
 
150
    break;
 
151
  case 'O':
 
152
    if (memEQ(name, "NETSNMP_DS_AGENT_CACHE_TIMEOUT", 30)) {
 
153
    /*                                          ^         */
 
154
#ifdef NETSNMP_DS_AGENT_CACHE_TIMEOUT
 
155
      *iv_return = NETSNMP_DS_AGENT_CACHE_TIMEOUT;
 
156
      return PERL_constant_ISIV;
 
157
#else
 
158
      return PERL_constant_NOTDEF;
 
159
#endif
 
160
    }
 
161
    break;
 
162
  case 'T':
 
163
    if (memEQ(name, "NETSNMP_DS_AGENT_AGENTX_MASTER", 30)) {
 
164
    /*                                          ^         */
61
165
#ifdef NETSNMP_DS_AGENT_AGENTX_MASTER
62
 
            return NETSNMP_DS_AGENT_AGENTX_MASTER;
63
 
#else
64
 
            goto not_there;
65
 
#endif
66
 
        }
67
 
    case 'P':
68
 
        if (strEQ(name + 18, "GENTX_PING_INTERVAL")) {  /* NETSNMP_DS_AGENT_A removed */
69
 
#ifdef NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
70
 
            return NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL;
71
 
#else
72
 
            goto not_there;
73
 
#endif
74
 
        }
 
166
      *iv_return = NETSNMP_DS_AGENT_AGENTX_MASTER;
 
167
      return PERL_constant_ISIV;
 
168
#else
 
169
      return PERL_constant_NOTDEF;
 
170
#endif
75
171
    }
76
 
    errno = EINVAL;
77
 
    return 0;
78
 
 
79
 
not_there:
80
 
    errno = ENOENT;
81
 
    return 0;
 
172
    break;
 
173
  }
 
174
  return PERL_constant_NOTFOUND;
82
175
}
83
176
 
84
 
static double
85
 
constant(char *name, int len, int arg)
86
 
{
87
 
    errno = 0;
88
 
    if (0 + 17 >= len ) {
89
 
        errno = EINVAL;
90
 
        return 0;
91
 
    }
92
 
    switch (name[0 + 17]) {
93
 
    case 'A':
94
 
        if (!strnEQ(name + 0,"NETSNMP_DS_AGENT_", 17))
95
 
            break;
96
 
        return constant_NETSNMP_DS_AGENT_A(name, len, arg);
97
 
    case 'D':
98
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_DISABLE_PERL")) { /*  removed */
99
 
#ifdef NETSNMP_DS_AGENT_DISABLE_PERL
100
 
            return NETSNMP_DS_AGENT_DISABLE_PERL;
101
 
#else
102
 
            goto not_there;
103
 
#endif
104
 
        }
105
 
    case 'F':
106
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_FLAGS")) {        /*  removed */
107
 
#ifdef NETSNMP_DS_AGENT_FLAGS
108
 
            return NETSNMP_DS_AGENT_FLAGS;
109
 
#else
110
 
            goto not_there;
111
 
#endif
112
 
        }
113
 
    case 'G':
114
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_GROUPID")) {      /*  removed */
115
 
#ifdef NETSNMP_DS_AGENT_GROUPID
116
 
            return NETSNMP_DS_AGENT_GROUPID;
117
 
#else
118
 
            goto not_there;
119
 
#endif
120
 
        }
121
 
    case 'H':
122
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_H")) {    /*  removed */
123
 
#ifdef NETSNMP_DS_AGENT_H
124
 
            return NETSNMP_DS_AGENT_H;
125
 
#else
126
 
            goto not_there;
127
 
#endif
128
 
        }
129
 
    case 'I':
130
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_INTERNAL_SECNAME")) {     /*  removed */
131
 
#ifdef NETSNMP_DS_AGENT_INTERNAL_SECNAME
132
 
            return NETSNMP_DS_AGENT_INTERNAL_SECNAME;
133
 
#else
134
 
            goto not_there;
135
 
#endif
136
 
        }
137
 
    case 'N':
138
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_NO_ROOT_ACCESS")) {       /*  removed */
 
177
static int
 
178
constant_31 (pTHX_ const char *name, IV *iv_return) {
 
179
  /* When generated this function returned values for the list of names given
 
180
     here.  However, subsequent manual editing may have added or removed some.
 
181
     NETSNMP_DS_AGENT_AGENTX_RETRIES NETSNMP_DS_AGENT_AGENTX_TIMEOUT
 
182
     NETSNMP_DS_AGENT_NO_ROOT_ACCESS NETSNMP_DS_AGENT_PERL_INIT_FILE */
 
183
  /* Offset 27 gives the best switch position.  */
 
184
  switch (name[27]) {
 
185
  case 'C':
 
186
    if (memEQ(name, "NETSNMP_DS_AGENT_NO_ROOT_ACCESS", 31)) {
 
187
    /*                                          ^          */
139
188
#ifdef NETSNMP_DS_AGENT_NO_ROOT_ACCESS
140
 
            return NETSNMP_DS_AGENT_NO_ROOT_ACCESS;
141
 
#else
142
 
            goto not_there;
143
 
#endif
144
 
        }
145
 
    case 'P':
146
 
        if (!strnEQ(name + 0,"NETSNMP_DS_AGENT_", 17))
147
 
            break;
148
 
        return constant_NETSNMP_DS_AGENT_P(name, len, arg);
149
 
    case 'Q':
150
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_QUIT_IMMEDIATELY")) {     /*  removed */
 
189
      *iv_return = NETSNMP_DS_AGENT_NO_ROOT_ACCESS;
 
190
      return PERL_constant_ISIV;
 
191
#else
 
192
      return PERL_constant_NOTDEF;
 
193
#endif
 
194
    }
 
195
    break;
 
196
  case 'E':
 
197
    if (memEQ(name, "NETSNMP_DS_AGENT_AGENTX_TIMEOUT", 31)) {
 
198
    /*                                          ^          */
 
199
#ifdef NETSNMP_DS_AGENT_AGENTX_TIMEOUT
 
200
      *iv_return = NETSNMP_DS_AGENT_AGENTX_TIMEOUT;
 
201
      return PERL_constant_ISIV;
 
202
#else
 
203
      return PERL_constant_NOTDEF;
 
204
#endif
 
205
    }
 
206
    break;
 
207
  case 'F':
 
208
    if (memEQ(name, "NETSNMP_DS_AGENT_PERL_INIT_FILE", 31)) {
 
209
    /*                                          ^          */
 
210
#ifdef NETSNMP_DS_AGENT_PERL_INIT_FILE
 
211
      *iv_return = NETSNMP_DS_AGENT_PERL_INIT_FILE;
 
212
      return PERL_constant_ISIV;
 
213
#else
 
214
      return PERL_constant_NOTDEF;
 
215
#endif
 
216
    }
 
217
    break;
 
218
  case 'R':
 
219
    if (memEQ(name, "NETSNMP_DS_AGENT_AGENTX_RETRIES", 31)) {
 
220
    /*                                          ^          */
 
221
#ifdef NETSNMP_DS_AGENT_AGENTX_RETRIES
 
222
      *iv_return = NETSNMP_DS_AGENT_AGENTX_RETRIES;
 
223
      return PERL_constant_ISIV;
 
224
#else
 
225
      return PERL_constant_NOTDEF;
 
226
#endif
 
227
    }
 
228
    break;
 
229
  }
 
230
  return PERL_constant_NOTFOUND;
 
231
}
 
232
 
 
233
static int
 
234
constant_33 (pTHX_ const char *name, IV *iv_return) {
 
235
  /* When generated this function returned values for the list of names given
 
236
     here.  However, subsequent manual editing may have added or removed some.
 
237
     NETSNMP_DS_AGENT_INTERNAL_SECNAME NETSNMP_DS_AGENT_INTERNAL_VERSION
 
238
     NETSNMP_DS_AGENT_QUIT_IMMEDIATELY */
 
239
  /* Offset 31 gives the best switch position.  */
 
240
  switch (name[31]) {
 
241
  case 'L':
 
242
    if (memEQ(name, "NETSNMP_DS_AGENT_QUIT_IMMEDIATELY", 33)) {
 
243
    /*                                              ^        */
151
244
#ifdef NETSNMP_DS_AGENT_QUIT_IMMEDIATELY
152
 
            return NETSNMP_DS_AGENT_QUIT_IMMEDIATELY;
153
 
#else
154
 
            goto not_there;
155
 
#endif
156
 
        }
157
 
    case 'R':
158
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_ROLE")) { /*  removed */
 
245
      *iv_return = NETSNMP_DS_AGENT_QUIT_IMMEDIATELY;
 
246
      return PERL_constant_ISIV;
 
247
#else
 
248
      return PERL_constant_NOTDEF;
 
249
#endif
 
250
    }
 
251
    break;
 
252
  case 'M':
 
253
    if (memEQ(name, "NETSNMP_DS_AGENT_INTERNAL_SECNAME", 33)) {
 
254
    /*                                              ^        */
 
255
#ifdef NETSNMP_DS_AGENT_INTERNAL_SECNAME
 
256
      *iv_return = NETSNMP_DS_AGENT_INTERNAL_SECNAME;
 
257
      return PERL_constant_ISIV;
 
258
#else
 
259
      return PERL_constant_NOTDEF;
 
260
#endif
 
261
    }
 
262
    break;
 
263
  case 'O':
 
264
    if (memEQ(name, "NETSNMP_DS_AGENT_INTERNAL_VERSION", 33)) {
 
265
    /*                                              ^        */
 
266
#ifdef NETSNMP_DS_AGENT_INTERNAL_VERSION
 
267
      *iv_return = NETSNMP_DS_AGENT_INTERNAL_VERSION;
 
268
      return PERL_constant_ISIV;
 
269
#else
 
270
      return PERL_constant_NOTDEF;
 
271
#endif
 
272
    }
 
273
    break;
 
274
  }
 
275
  return PERL_constant_NOTFOUND;
 
276
}
 
277
 
 
278
static int
 
279
constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {
 
280
  /* Initially switch on the length of the name.  */
 
281
  /* When generated this function returned values for the list of names given
 
282
     in this section of perl code.  Rather than manually editing these functions
 
283
     to add or remove constants, which would result in this comment and section
 
284
     of code becoming inaccurate, we recommend that you edit this section of
 
285
     code, and use it to regenerate a new set of constant functions which you
 
286
     then use to replace the originals.
 
287
 
 
288
     Regenerate these constant functions by feeding this entire source file to
 
289
     perl -x
 
290
 
 
291
#!/usr/bin/perl -w
 
292
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
 
293
 
 
294
my $types = {map {($_, 1)} qw(IV)};
 
295
my @names = (qw(NETSNMP_DS_AGENT_AGENTX_MASTER
 
296
               NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
 
297
               NETSNMP_DS_AGENT_AGENTX_RETRIES NETSNMP_DS_AGENT_AGENTX_TIMEOUT
 
298
               NETSNMP_DS_AGENT_CACHE_TIMEOUT NETSNMP_DS_AGENT_DISABLE_PERL
 
299
               NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS
 
300
               NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS
 
301
               NETSNMP_DS_AGENT_FLAGS NETSNMP_DS_AGENT_GROUPID
 
302
               NETSNMP_DS_AGENT_INTERNAL_SECLEVEL
 
303
               NETSNMP_DS_AGENT_INTERNAL_SECNAME
 
304
               NETSNMP_DS_AGENT_INTERNAL_VERSION NETSNMP_DS_AGENT_LEAVE_PIDFILE
 
305
               NETSNMP_DS_AGENT_MAX_GETBULKREPEATS
 
306
               NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES
 
307
               NETSNMP_DS_AGENT_NO_CACHING
 
308
               NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS
 
309
               NETSNMP_DS_AGENT_NO_ROOT_ACCESS NETSNMP_DS_AGENT_PERL_INIT_FILE
 
310
               NETSNMP_DS_AGENT_PORTS NETSNMP_DS_AGENT_PROGNAME
 
311
               NETSNMP_DS_AGENT_QUIT_IMMEDIATELY NETSNMP_DS_AGENT_ROLE
 
312
               NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES
 
313
               NETSNMP_DS_AGENT_STRICT_DISMAN NETSNMP_DS_AGENT_USERID
 
314
               NETSNMP_DS_AGENT_VERBOSE NETSNMP_DS_AGENT_X_DIR_PERM
 
315
               NETSNMP_DS_AGENT_X_SOCKET NETSNMP_DS_AGENT_X_SOCK_GROUP
 
316
               NETSNMP_DS_AGENT_X_SOCK_PERM NETSNMP_DS_AGENT_X_SOCK_USER
 
317
               NETSNMP_DS_APP_DONT_LOG NETSNMP_DS_NOTIF_LOG_CTX
 
318
               NETSNMP_DS_SMUX_SOCKET));
 
319
 
 
320
print constant_types(); # macro defs
 
321
foreach (C_constant ("NetSNMP::agent::default_store", 'constant', 'IV', $types, undef, 3, @names) ) {
 
322
    print $_, "\n"; # C constant subs
 
323
}
 
324
print "#### XS Section:\n";
 
325
print XS_constant ("NetSNMP::agent::default_store", $types);
 
326
__END__
 
327
   */
 
328
 
 
329
  switch (len) {
 
330
  case 21:
 
331
    if (memEQ(name, "NETSNMP_DS_AGENT_ROLE", 21)) {
159
332
#ifdef NETSNMP_DS_AGENT_ROLE
160
 
            return NETSNMP_DS_AGENT_ROLE;
 
333
      *iv_return = NETSNMP_DS_AGENT_ROLE;
 
334
      return PERL_constant_ISIV;
161
335
#else
162
 
            goto not_there;
 
336
      return PERL_constant_NOTDEF;
163
337
#endif
164
 
        }
165
 
    case 'U':
166
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_USERID")) {       /*  removed */
 
338
    }
 
339
    break;
 
340
  case 22:
 
341
    return constant_22 (aTHX_ name, iv_return);
 
342
    break;
 
343
  case 23:
 
344
    /* Names all of length 23.  */
 
345
    /* NETSNMP_DS_AGENT_USERID NETSNMP_DS_APP_DONT_LOG */
 
346
    /* Offset 18 gives the best switch position.  */
 
347
    switch (name[18]) {
 
348
    case 'S':
 
349
      if (memEQ(name, "NETSNMP_DS_AGENT_USERID", 23)) {
 
350
      /*                                 ^           */
167
351
#ifdef NETSNMP_DS_AGENT_USERID
168
 
            return NETSNMP_DS_AGENT_USERID;
169
 
#else
170
 
            goto not_there;
171
 
#endif
172
 
        }
173
 
    case 'V':
174
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_VERBOSE")) {      /*  removed */
175
 
#ifdef NETSNMP_DS_AGENT_VERBOSE
176
 
            return NETSNMP_DS_AGENT_VERBOSE;
177
 
#else
178
 
            goto not_there;
179
 
#endif
180
 
        }
181
 
    case 'X':
182
 
        if (strEQ(name + 0, "NETSNMP_DS_AGENT_X_SOCKET")) {     /*  removed */
 
352
        *iv_return = NETSNMP_DS_AGENT_USERID;
 
353
        return PERL_constant_ISIV;
 
354
#else
 
355
        return PERL_constant_NOTDEF;
 
356
#endif
 
357
      }
 
358
      break;
 
359
    case 'T':
 
360
      if (memEQ(name, "NETSNMP_DS_APP_DONT_LOG", 23)) {
 
361
      /*                                 ^           */
 
362
#ifdef NETSNMP_DS_APP_DONT_LOG
 
363
        *iv_return = NETSNMP_DS_APP_DONT_LOG;
 
364
        return PERL_constant_ISIV;
 
365
#else
 
366
        return PERL_constant_NOTDEF;
 
367
#endif
 
368
      }
 
369
      break;
 
370
    }
 
371
    break;
 
372
  case 24:
 
373
    return constant_24 (aTHX_ name, iv_return);
 
374
    break;
 
375
  case 25:
 
376
    /* Names all of length 25.  */
 
377
    /* NETSNMP_DS_AGENT_PROGNAME NETSNMP_DS_AGENT_X_SOCKET */
 
378
    /* Offset 19 gives the best switch position.  */
 
379
    switch (name[19]) {
 
380
    case 'O':
 
381
      if (memEQ(name, "NETSNMP_DS_AGENT_PROGNAME", 25)) {
 
382
      /*                                  ^            */
 
383
#ifdef NETSNMP_DS_AGENT_PROGNAME
 
384
        *iv_return = NETSNMP_DS_AGENT_PROGNAME;
 
385
        return PERL_constant_ISIV;
 
386
#else
 
387
        return PERL_constant_NOTDEF;
 
388
#endif
 
389
      }
 
390
      break;
 
391
    case 'S':
 
392
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCKET", 25)) {
 
393
      /*                                  ^            */
183
394
#ifdef NETSNMP_DS_AGENT_X_SOCKET
184
 
            return NETSNMP_DS_AGENT_X_SOCKET;
185
 
#else
186
 
            goto not_there;
187
 
#endif
188
 
        }
189
 
    }
190
 
    errno = EINVAL;
191
 
    return 0;
192
 
 
193
 
not_there:
194
 
    errno = ENOENT;
195
 
    return 0;
 
395
        *iv_return = NETSNMP_DS_AGENT_X_SOCKET;
 
396
        return PERL_constant_ISIV;
 
397
#else
 
398
        return PERL_constant_NOTDEF;
 
399
#endif
 
400
      }
 
401
      break;
 
402
    }
 
403
    break;
 
404
  case 27:
 
405
    /* Names all of length 27.  */
 
406
    /* NETSNMP_DS_AGENT_NO_CACHING NETSNMP_DS_AGENT_X_DIR_PERM */
 
407
    /* Offset 24 gives the best switch position.  */
 
408
    switch (name[24]) {
 
409
    case 'E':
 
410
      if (memEQ(name, "NETSNMP_DS_AGENT_X_DIR_PERM", 27)) {
 
411
      /*                                       ^         */
 
412
#ifdef NETSNMP_DS_AGENT_X_DIR_PERM
 
413
        *iv_return = NETSNMP_DS_AGENT_X_DIR_PERM;
 
414
        return PERL_constant_ISIV;
 
415
#else
 
416
        return PERL_constant_NOTDEF;
 
417
#endif
 
418
      }
 
419
      break;
 
420
    case 'I':
 
421
      if (memEQ(name, "NETSNMP_DS_AGENT_NO_CACHING", 27)) {
 
422
      /*                                       ^         */
 
423
#ifdef NETSNMP_DS_AGENT_NO_CACHING
 
424
        *iv_return = NETSNMP_DS_AGENT_NO_CACHING;
 
425
        return PERL_constant_ISIV;
 
426
#else
 
427
        return PERL_constant_NOTDEF;
 
428
#endif
 
429
      }
 
430
      break;
 
431
    }
 
432
    break;
 
433
  case 28:
 
434
    /* Names all of length 28.  */
 
435
    /* NETSNMP_DS_AGENT_X_SOCK_PERM NETSNMP_DS_AGENT_X_SOCK_USER */
 
436
    /* Offset 27 gives the best switch position.  */
 
437
    switch (name[27]) {
 
438
    case 'M':
 
439
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCK_PER", 27)) {
 
440
      /*                                          M      */
 
441
#ifdef NETSNMP_DS_AGENT_X_SOCK_PERM
 
442
        *iv_return = NETSNMP_DS_AGENT_X_SOCK_PERM;
 
443
        return PERL_constant_ISIV;
 
444
#else
 
445
        return PERL_constant_NOTDEF;
 
446
#endif
 
447
      }
 
448
      break;
 
449
    case 'R':
 
450
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCK_USE", 27)) {
 
451
      /*                                          R      */
 
452
#ifdef NETSNMP_DS_AGENT_X_SOCK_USER
 
453
        *iv_return = NETSNMP_DS_AGENT_X_SOCK_USER;
 
454
        return PERL_constant_ISIV;
 
455
#else
 
456
        return PERL_constant_NOTDEF;
 
457
#endif
 
458
      }
 
459
      break;
 
460
    }
 
461
    break;
 
462
  case 29:
 
463
    /* Names all of length 29.  */
 
464
    /* NETSNMP_DS_AGENT_DISABLE_PERL NETSNMP_DS_AGENT_X_SOCK_GROUP */
 
465
    /* Offset 21 gives the best switch position.  */
 
466
    switch (name[21]) {
 
467
    case 'B':
 
468
      if (memEQ(name, "NETSNMP_DS_AGENT_DISABLE_PERL", 29)) {
 
469
      /*                                    ^              */
 
470
#ifdef NETSNMP_DS_AGENT_DISABLE_PERL
 
471
        *iv_return = NETSNMP_DS_AGENT_DISABLE_PERL;
 
472
        return PERL_constant_ISIV;
 
473
#else
 
474
        return PERL_constant_NOTDEF;
 
475
#endif
 
476
      }
 
477
      break;
 
478
    case 'C':
 
479
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCK_GROUP", 29)) {
 
480
      /*                                    ^              */
 
481
#ifdef NETSNMP_DS_AGENT_X_SOCK_GROUP
 
482
        *iv_return = NETSNMP_DS_AGENT_X_SOCK_GROUP;
 
483
        return PERL_constant_ISIV;
 
484
#else
 
485
        return PERL_constant_NOTDEF;
 
486
#endif
 
487
      }
 
488
      break;
 
489
    }
 
490
    break;
 
491
  case 30:
 
492
    return constant_30 (aTHX_ name, iv_return);
 
493
    break;
 
494
  case 31:
 
495
    return constant_31 (aTHX_ name, iv_return);
 
496
    break;
 
497
  case 33:
 
498
    return constant_33 (aTHX_ name, iv_return);
 
499
    break;
 
500
  case 34:
 
501
    if (memEQ(name, "NETSNMP_DS_AGENT_INTERNAL_SECLEVEL", 34)) {
 
502
#ifdef NETSNMP_DS_AGENT_INTERNAL_SECLEVEL
 
503
      *iv_return = NETSNMP_DS_AGENT_INTERNAL_SECLEVEL;
 
504
      return PERL_constant_ISIV;
 
505
#else
 
506
      return PERL_constant_NOTDEF;
 
507
#endif
 
508
    }
 
509
    break;
 
510
  case 35:
 
511
    if (memEQ(name, "NETSNMP_DS_AGENT_MAX_GETBULKREPEATS", 35)) {
 
512
#ifdef NETSNMP_DS_AGENT_MAX_GETBULKREPEATS
 
513
      *iv_return = NETSNMP_DS_AGENT_MAX_GETBULKREPEATS;
 
514
      return PERL_constant_ISIV;
 
515
#else
 
516
      return PERL_constant_NOTDEF;
 
517
#endif
 
518
    }
 
519
    break;
 
520
  case 37:
 
521
    /* Names all of length 37.  */
 
522
    /* NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
 
523
       NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES */
 
524
    /* Offset 26 gives the best switch position.  */
 
525
    switch (name[26]) {
 
526
    case 'L':
 
527
      if (memEQ(name, "NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES", 37)) {
 
528
      /*                                         ^                 */
 
529
#ifdef NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES
 
530
        *iv_return = NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES;
 
531
        return PERL_constant_ISIV;
 
532
#else
 
533
        return PERL_constant_NOTDEF;
 
534
#endif
 
535
      }
 
536
      break;
 
537
    case 'N':
 
538
      if (memEQ(name, "NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL", 37)) {
 
539
      /*                                         ^                 */
 
540
#ifdef NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
 
541
        *iv_return = NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL;
 
542
        return PERL_constant_ISIV;
 
543
#else
 
544
        return PERL_constant_NOTDEF;
 
545
#endif
 
546
      }
 
547
      break;
 
548
    }
 
549
    break;
 
550
  case 39:
 
551
    /* Names all of length 39.  */
 
552
    /* NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS
 
553
       NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES */
 
554
    /* Offset 21 gives the best switch position.  */
 
555
    switch (name[21]) {
 
556
    case 'N':
 
557
      if (memEQ(name, "NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES", 39)) {
 
558
      /*                                    ^                        */
 
559
#ifdef NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES
 
560
        *iv_return = NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES;
 
561
        return PERL_constant_ISIV;
 
562
#else
 
563
        return PERL_constant_NOTDEF;
 
564
#endif
 
565
      }
 
566
      break;
 
567
    case 'O':
 
568
      if (memEQ(name, "NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS", 39)) {
 
569
      /*                                    ^                        */
 
570
#ifdef NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS
 
571
        *iv_return = NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS;
 
572
        return PERL_constant_ISIV;
 
573
#else
 
574
        return PERL_constant_NOTDEF;
 
575
#endif
 
576
      }
 
577
      break;
 
578
    }
 
579
    break;
 
580
  case 42:
 
581
    if (memEQ(name, "NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS", 42)) {
 
582
#ifdef NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS
 
583
      *iv_return = NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS;
 
584
      return PERL_constant_ISIV;
 
585
#else
 
586
      return PERL_constant_NOTDEF;
 
587
#endif
 
588
    }
 
589
    break;
 
590
  case 46:
 
591
    if (memEQ(name, "NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS", 46)) {
 
592
#ifdef NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS
 
593
      *iv_return = NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS;
 
594
      return PERL_constant_ISIV;
 
595
#else
 
596
      return PERL_constant_NOTDEF;
 
597
#endif
 
598
    }
 
599
    break;
 
600
  }
 
601
  return PERL_constant_NOTFOUND;
196
602
}
197
603
 
198
604
 
199
 
MODULE = NetSNMP::agent::default_store          PACKAGE = NetSNMP::agent::default_store         
200
 
 
201
 
 
202
 
double
203
 
constant(sv,arg)
 
605
 
 
606
/* autogenerated by "gen" from const-xs.inc */
 
607
 
 
608
MODULE = NetSNMP::agent::default_store         PACKAGE = NetSNMP::agent::default_store
 
609
 
 
610
void
 
611
constant(sv)
204
612
    PREINIT:
 
613
#ifdef dXSTARG
 
614
        dXSTARG; /* Faster if we have it.  */
 
615
#else
 
616
        dTARGET;
 
617
#endif
205
618
        STRLEN          len;
 
619
        int             type;
 
620
        IV              iv;
 
621
        /* NV           nv;     Uncomment this if you need to return NVs */
 
622
        /* const char   *pv;    Uncomment this if you need to return PVs */
206
623
    INPUT:
207
 
        SV *            sv
208
 
        char *          s = SvPV(sv, len);
209
 
        int             arg
210
 
    CODE:
211
 
        RETVAL = constant(s,len,arg);
212
 
    OUTPUT:
213
 
        RETVAL
 
624
        SV *            sv;
 
625
        const char *    s = SvPV(sv, len);
 
626
    PPCODE:
 
627
        /* Change this to constant(aTHX_ s, len, &iv, &nv);
 
628
           if you need to return both NVs and IVs */
 
629
        type = constant(aTHX_ s, len, &iv);
 
630
      /* Return 1 or 2 items. First is error message, or undef if no error.
 
631
           Second, if present, is found value */
 
632
        switch (type) {
 
633
        case PERL_constant_NOTFOUND:
 
634
          sv = sv_2mortal(newSVpvf("%s is not a valid NetSNMP::agent::default_store macro", s));
 
635
          PUSHs(sv);
 
636
          break;
 
637
        case PERL_constant_NOTDEF:
 
638
          sv = sv_2mortal(newSVpvf(
 
639
            "Your vendor has not defined NetSNMP::agent::default_store macro %s, used", s));
 
640
          PUSHs(sv);
 
641
          break;
 
642
        case PERL_constant_ISIV:
 
643
          EXTEND(SP, 1);
 
644
          PUSHs(&PL_sv_undef);
 
645
          PUSHi(iv);
 
646
          break;
 
647
        /* Uncomment this if you need to return NOs
 
648
        case PERL_constant_ISNO:
 
649
          EXTEND(SP, 1);
 
650
          PUSHs(&PL_sv_undef);
 
651
          PUSHs(&PL_sv_no);
 
652
          break; */
 
653
        /* Uncomment this if you need to return NVs
 
654
        case PERL_constant_ISNV:
 
655
          EXTEND(SP, 1);
 
656
          PUSHs(&PL_sv_undef);
 
657
          PUSHn(nv);
 
658
          break; */
 
659
        /* Uncomment this if you need to return PVs
 
660
        case PERL_constant_ISPV:
 
661
          EXTEND(SP, 1);
 
662
          PUSHs(&PL_sv_undef);
 
663
          PUSHp(pv, strlen(pv));
 
664
          break; */
 
665
        /* Uncomment this if you need to return PVNs
 
666
        case PERL_constant_ISPVN:
 
667
          EXTEND(SP, 1);
 
668
          PUSHs(&PL_sv_undef);
 
669
          PUSHp(pv, iv);
 
670
          break; */
 
671
        /* Uncomment this if you need to return SVs
 
672
        case PERL_constant_ISSV:
 
673
          EXTEND(SP, 1);
 
674
          PUSHs(&PL_sv_undef);
 
675
          PUSHs(sv);
 
676
          break; */
 
677
        /* Uncomment this if you need to return UNDEFs
 
678
        case PERL_constant_ISUNDEF:
 
679
          break; */
 
680
        /* Uncomment this if you need to return UVs
 
681
        case PERL_constant_ISUV:
 
682
          EXTEND(SP, 1);
 
683
          PUSHs(&PL_sv_undef);
 
684
          PUSHu((UV)iv);
 
685
          break; */
 
686
        /* Uncomment this if you need to return YESs
 
687
        case PERL_constant_ISYES:
 
688
          EXTEND(SP, 1);
 
689
          PUSHs(&PL_sv_undef);
 
690
          PUSHs(&PL_sv_yes);
 
691
          break; */
 
692
        default:
 
693
          sv = sv_2mortal(newSVpvf(
 
694
            "Unexpected return type %d while processing NetSNMP::agent::default_store macro %s, used",
 
695
               type, s));
 
696
          PUSHs(sv);
 
697
        }
 
698
 
 
699
 
214
700