const-c.inc

   1 #define PERL_constant_NOTFOUND  1
   2 #define PERL_constant_NOTDEF    2
   3 #define PERL_constant_ISIV      3
   4 #define PERL_constant_ISNO      4
   5 #define PERL_constant_ISNV      5
   6 #define PERL_constant_ISPV      6
   7 #define PERL_constant_ISPVN     7
   8 #define PERL_constant_ISSV      8
   9 #define PERL_constant_ISUNDEF   9
  10 #define PERL_constant_ISUV      10
  11 #define PERL_constant_ISYES     11
  12
  13 #ifndef NVTYPE
  14 typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
  15 #endif
  16 #ifndef aTHX_
  17 #define aTHX_ /* 5.6 or later define this for threading support.  */
  18 #endif
  19 #ifndef pTHX_
  20 #define pTHX_ /* 5.6 or later define this for threading support.  */
  21 #endif
  22
  23 static int
  24 constant_13 (pTHX_ const char *name, IV *iv_return) {
  25   /* When generated this function returned values for the list of names given
  26      here.  However, subsequent manual editing may have added or removed some.
  27      SERVICE_FILES SERVICE_MUSIC SERVICE_TASKS */
  28   /* Offset 11 gives the best switch position.  */
  29   switch (name[11]) {
  30   case 'E':
  31     if (memEQ(name, "SERVICE_FILES", 13)) {
  32     /*                          ^        */
  33 #ifdef SERVICE_FILES
  34       *iv_return = SERVICE_FILES;
  35       return PERL_constant_ISIV;
  36 #else
  37       return PERL_constant_NOTDEF;
  38 #endif
  39     }
  40     break;
  41   case 'I':
  42     if (memEQ(name, "SERVICE_MUSIC", 13)) {
  43     /*                          ^        */
  44 #ifdef SERVICE_MUSIC
  45       *iv_return = SERVICE_MUSIC;
  46       return PERL_constant_ISIV;
  47 #else
  48       return PERL_constant_NOTDEF;
  49 #endif
  50     }
  51     break;
  52   case 'K':
  53     if (memEQ(name, "SERVICE_TASKS", 13)) {
  54     /*                          ^        */
  55 #ifdef SERVICE_TASKS
  56       *iv_return = SERVICE_TASKS;
  57       return PERL_constant_ISIV;
  58 #else
  59       return PERL_constant_NOTDEF;
  60 #endif
  61     }
  62     break;
  63   }
  64   return PERL_constant_NOTFOUND;
  65 }
  66
  67 static int
  68 constant_14 (pTHX_ const char *name, IV *iv_return) {
  69   /* When generated this function returned values for the list of names given
  70      here.  However, subsequent manual editing may have added or removed some.
  71      SERVICE_EMAILS SERVICE_IMAGES SERVICE_VIDEOS */
  72   /* Offset 11 gives the best switch position.  */
  73   switch (name[11]) {
  74   case 'E':
  75     if (memEQ(name, "SERVICE_VIDEOS", 14)) {
  76     /*                          ^         */
  77 #ifdef SERVICE_VIDEOS
  78       *iv_return = SERVICE_VIDEOS;
  79       return PERL_constant_ISIV;
  80 #else
  81       return PERL_constant_NOTDEF;
  82 #endif
  83     }
  84     break;
  85   case 'G':
  86     if (memEQ(name, "SERVICE_IMAGES", 14)) {
  87     /*                          ^         */
  88 #ifdef SERVICE_IMAGES
  89       *iv_return = SERVICE_IMAGES;
  90       return PERL_constant_ISIV;
  91 #else
  92       return PERL_constant_NOTDEF;
  93 #endif
  94     }
  95     break;
  96   case 'I':
  97     if (memEQ(name, "SERVICE_EMAILS", 14)) {
  98     /*                          ^         */
  99 #ifdef SERVICE_EMAILS
 100       *iv_return = SERVICE_EMAILS;
 101       return PERL_constant_ISIV;
 102 #else
 103       return PERL_constant_NOTDEF;
 104 #endif
 105     }
 106     break;
 107   }
 108   return PERL_constant_NOTFOUND;
 109 }
 110
 111 static int
 112 constant_17 (pTHX_ const char *name, IV *iv_return) {
 113   /* When generated this function returned values for the list of names given
 114      here.  However, subsequent manual editing may have added or removed some.
 115      SERVICE_BOOKMARKS SERVICE_DOCUMENTS SERVICE_PLAYLISTS SERVICE_VFS_FILES
 116      SERVICE_VFS_MUSIC */
 117   /* Offset 14 gives the best switch position.  */
 118   switch (name[14]) {
 119   case 'L':
 120     if (memEQ(name, "SERVICE_VFS_FILES", 17)) {
 121     /*                             ^         */
 122 #ifdef SERVICE_VFS_FILES
 123       *iv_return = SERVICE_VFS_FILES;
 124       return PERL_constant_ISIV;
 125 #else
 126       return PERL_constant_NOTDEF;
 127 #endif
 128     }
 129     break;
 130   case 'N':
 131     if (memEQ(name, "SERVICE_DOCUMENTS", 17)) {
 132     /*                             ^         */
 133 #ifdef SERVICE_DOCUMENTS
 134       *iv_return = SERVICE_DOCUMENTS;
 135       return PERL_constant_ISIV;
 136 #else
 137       return PERL_constant_NOTDEF;
 138 #endif
 139     }
 140     break;
 141   case 'R':
 142     if (memEQ(name, "SERVICE_BOOKMARKS", 17)) {
 143     /*                             ^         */
 144 #ifdef SERVICE_BOOKMARKS
 145       *iv_return = SERVICE_BOOKMARKS;
 146       return PERL_constant_ISIV;
 147 #else
 148       return PERL_constant_NOTDEF;
 149 #endif
 150     }
 151     break;
 152   case 'S':
 153     if (memEQ(name, "SERVICE_PLAYLISTS", 17)) {
 154     /*                             ^         */
 155 #ifdef SERVICE_PLAYLISTS
 156       *iv_return = SERVICE_PLAYLISTS;
 157       return PERL_constant_ISIV;
 158 #else
 159       return PERL_constant_NOTDEF;
 160 #endif
 161     }
 162     if (memEQ(name, "SERVICE_VFS_MUSIC", 17)) {
 163     /*                             ^         */
 164 #ifdef SERVICE_VFS_MUSIC
 165       *iv_return = SERVICE_VFS_MUSIC;
 166       return PERL_constant_ISIV;
 167 #else
 168       return PERL_constant_NOTDEF;
 169 #endif
 170     }
 171     break;
 172   }
 173   return PERL_constant_NOTFOUND;
 174 }
 175
 176 static int
 177 constant_18 (pTHX_ const char *name, IV *iv_return) {
 178   /* When generated this function returned values for the list of names given
 179      here.  However, subsequent manual editing may have added or removed some.
 180      SERVICE_TEXT_FILES SERVICE_VFS_IMAGES SERVICE_VFS_VIDEOS */
 181   /* Offset 13 gives the best switch position.  */
 182   switch (name[13]) {
 183   case 'F':
 184     if (memEQ(name, "SERVICE_TEXT_FILES", 18)) {
 185     /*                            ^           */
 186 #ifdef SERVICE_TEXT_FILES
 187       *iv_return = SERVICE_TEXT_FILES;
 188       return PERL_constant_ISIV;
 189 #else
 190       return PERL_constant_NOTDEF;
 191 #endif
 192     }
 193     break;
 194   case 'I':
 195     if (memEQ(name, "SERVICE_VFS_VIDEOS", 18)) {
 196     /*                            ^           */
 197 #ifdef SERVICE_VFS_VIDEOS
 198       *iv_return = SERVICE_VFS_VIDEOS;
 199       return PERL_constant_ISIV;
 200 #else
 201       return PERL_constant_NOTDEF;
 202 #endif
 203     }
 204     break;
 205   case 'M':
 206     if (memEQ(name, "SERVICE_VFS_IMAGES", 18)) {
 207     /*                            ^           */
 208 #ifdef SERVICE_VFS_IMAGES
 209       *iv_return = SERVICE_VFS_IMAGES;
 210       return PERL_constant_ISIV;
 211 #else
 212       return PERL_constant_NOTDEF;
 213 #endif
 214     }
 215     break;
 216   }
 217   return PERL_constant_NOTFOUND;
 218 }
 219
 220 static int
 221 constant_21 (pTHX_ const char *name, IV *iv_return) {
 222   /* When generated this function returned values for the list of names given
 223      here.  However, subsequent manual editing may have added or removed some.
 224      DATA_STRING_INDEXABLE SERVICE_CONVERSATIONS SERVICE_VFS_DOCUMENTS */
 225   /* Offset 13 gives the best switch position.  */
 226   switch (name[13]) {
 227   case 'N':
 228     if (memEQ(name, "DATA_STRING_INDEXABLE", 21)) {
 229     /*                            ^              */
 230 #ifdef DATA_STRING_INDEXABLE
 231       *iv_return = DATA_STRING_INDEXABLE;
 232       return PERL_constant_ISIV;
 233 #else
 234       return PERL_constant_NOTDEF;
 235 #endif
 236     }
 237     break;
 238   case 'O':
 239     if (memEQ(name, "SERVICE_VFS_DOCUMENTS", 21)) {
 240     /*                            ^              */
 241 #ifdef SERVICE_VFS_DOCUMENTS
 242       *iv_return = SERVICE_VFS_DOCUMENTS;
 243       return PERL_constant_ISIV;
 244 #else
 245       return PERL_constant_NOTDEF;
 246 #endif
 247     }
 248     break;
 249   case 'R':
 250     if (memEQ(name, "SERVICE_CONVERSATIONS", 21)) {
 251     /*                            ^              */
 252 #ifdef SERVICE_CONVERSATIONS
 253       *iv_return = SERVICE_CONVERSATIONS;
 254       return PERL_constant_ISIV;
 255 #else
 256       return PERL_constant_NOTDEF;
 257 #endif
 258     }
 259     break;
 260   }
 261   return PERL_constant_NOTFOUND;
 262 }
 263
 264 static int
 265 constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {
 266   /* Initially switch on the length of the name.  */
 267   /* When generated this function returned values for the list of names given
 268      in this section of perl code.  Rather than manually editing these functions
 269      to add or remove constants, which would result in this comment and section
 270      of code becoming inaccurate, we recommend that you edit this section of
 271      code, and use it to regenerate a new set of constant functions which you
 272      then use to replace the originals.
 273
 274      Regenerate these constant functions by feeding this entire source file to
 275      perl -x
 276
 277 #!/usr/bin/perl -w
 278 use ExtUtils::Constant qw (constant_types C_constant XS_constant);
 279
 280 my $types = {map {($_, 1)} qw(IV)};
 281 my @names = (qw(DATA_DATE DATA_NUMERIC DATA_STRING DATA_STRING_INDEXABLE
 282                SERVICE_APPLICATIONS SERVICE_APPOINTMENTS SERVICE_BOOKMARKS
 283                SERVICE_CONTACTS SERVICE_CONVERSATIONS SERVICE_DEVELOPMENT_FILES
 284                SERVICE_DOCUMENTS SERVICE_EMAILATTACHMENTS SERVICE_EMAILS
 285                SERVICE_FILES SERVICE_FOLDERS SERVICE_HISTORY SERVICE_IMAGES
 286                SERVICE_MUSIC SERVICE_OTHER_FILES SERVICE_PLAYLISTS
 287                SERVICE_PROJECTS SERVICE_TASKS SERVICE_TEXT_FILES
 288                SERVICE_VFS_DEVELOPMENT_FILES SERVICE_VFS_DOCUMENTS
 289                SERVICE_VFS_FILES SERVICE_VFS_FOLDERS SERVICE_VFS_IMAGES
 290                SERVICE_VFS_MUSIC SERVICE_VFS_OTHER_FILES SERVICE_VFS_TEXT_FILES
 291                SERVICE_VFS_VIDEOS SERVICE_VIDEOS));
 292
 293 print constant_types(); # macro defs
 294 foreach (C_constant ("LibTracker::Client", 'constant', 'IV', $types, undef, 3, @names) ) {
 295     print $_, "\n"; # C constant subs
 296 }
 297 print "#### XS Section:\n";
 298 print XS_constant ("LibTracker::Client", $types);
 299 __END__
 300    */
 301
 302   switch (len) {
 303   case 9:
 304     if (memEQ(name, "DATA_DATE", 9)) {
 305 #ifdef DATA_DATE
 306       *iv_return = DATA_DATE;
 307       return PERL_constant_ISIV;
 308 #else
 309       return PERL_constant_NOTDEF;
 310 #endif
 311     }
 312     break;
 313   case 11:
 314     if (memEQ(name, "DATA_STRING", 11)) {
 315 #ifdef DATA_STRING
 316       *iv_return = DATA_STRING;
 317       return PERL_constant_ISIV;
 318 #else
 319       return PERL_constant_NOTDEF;
 320 #endif
 321     }
 322     break;
 323   case 12:
 324     if (memEQ(name, "DATA_NUMERIC", 12)) {
 325 #ifdef DATA_NUMERIC
 326       *iv_return = DATA_NUMERIC;
 327       return PERL_constant_ISIV;
 328 #else
 329       return PERL_constant_NOTDEF;
 330 #endif
 331     }
 332     break;
 333   case 13:
 334     return constant_13 (aTHX_ name, iv_return);
 335     break;
 336   case 14:
 337     return constant_14 (aTHX_ name, iv_return);
 338     break;
 339   case 15:
 340     /* Names all of length 15.  */
 341     /* SERVICE_FOLDERS SERVICE_HISTORY */
 342     /* Offset 8 gives the best switch position.  */
 343     switch (name[8]) {
 344     case 'F':
 345       if (memEQ(name, "SERVICE_FOLDERS", 15)) {
 346       /*                       ^             */
 347 #ifdef SERVICE_FOLDERS
 348         *iv_return = SERVICE_FOLDERS;
 349         return PERL_constant_ISIV;
 350 #else
 351         return PERL_constant_NOTDEF;
 352 #endif
 353       }
 354       break;
 355     case 'H':
 356       if (memEQ(name, "SERVICE_HISTORY", 15)) {
 357       /*                       ^             */
 358 #ifdef SERVICE_HISTORY
 359         *iv_return = SERVICE_HISTORY;
 360         return PERL_constant_ISIV;
 361 #else
 362         return PERL_constant_NOTDEF;
 363 #endif
 364       }
 365       break;
 366     }
 367     break;
 368   case 16:
 369     /* Names all of length 16.  */
 370     /* SERVICE_CONTACTS SERVICE_PROJECTS */
 371     /* Offset 10 gives the best switch position.  */
 372     switch (name[10]) {
 373     case 'N':
 374       if (memEQ(name, "SERVICE_CONTACTS", 16)) {
 375       /*                         ^            */
 376 #ifdef SERVICE_CONTACTS
 377         *iv_return = SERVICE_CONTACTS;
 378         return PERL_constant_ISIV;
 379 #else
 380         return PERL_constant_NOTDEF;
 381 #endif
 382       }
 383       break;
 384     case 'O':
 385       if (memEQ(name, "SERVICE_PROJECTS", 16)) {
 386       /*                         ^            */
 387 #ifdef SERVICE_PROJECTS
 388         *iv_return = SERVICE_PROJECTS;
 389         return PERL_constant_ISIV;
 390 #else
 391         return PERL_constant_NOTDEF;
 392 #endif
 393       }
 394       break;
 395     }
 396     break;
 397   case 17:
 398     return constant_17 (aTHX_ name, iv_return);
 399     break;
 400   case 18:
 401     return constant_18 (aTHX_ name, iv_return);
 402     break;
 403   case 19:
 404     /* Names all of length 19.  */
 405     /* SERVICE_OTHER_FILES SERVICE_VFS_FOLDERS */
 406     /* Offset 15 gives the best switch position.  */
 407     switch (name[15]) {
 408     case 'D':
 409       if (memEQ(name, "SERVICE_VFS_FOLDERS", 19)) {
 410       /*                              ^          */
 411 #ifdef SERVICE_VFS_FOLDERS
 412         *iv_return = SERVICE_VFS_FOLDERS;
 413         return PERL_constant_ISIV;
 414 #else
 415         return PERL_constant_NOTDEF;
 416 #endif
 417       }
 418       break;
 419     case 'I':
 420       if (memEQ(name, "SERVICE_OTHER_FILES", 19)) {
 421       /*                              ^          */
 422 #ifdef SERVICE_OTHER_FILES
 423         *iv_return = SERVICE_OTHER_FILES;
 424         return PERL_constant_ISIV;
 425 #else
 426         return PERL_constant_NOTDEF;
 427 #endif
 428       }
 429       break;
 430     }
 431     break;
 432   case 20:
 433     /* Names all of length 20.  */
 434     /* SERVICE_APPLICATIONS SERVICE_APPOINTMENTS */
 435     /* Offset 17 gives the best switch position.  */
 436     switch (name[17]) {
 437     case 'N':
 438       if (memEQ(name, "SERVICE_APPOINTMENTS", 20)) {
 439       /*                                ^         */
 440 #ifdef SERVICE_APPOINTMENTS
 441         *iv_return = SERVICE_APPOINTMENTS;
 442         return PERL_constant_ISIV;
 443 #else
 444         return PERL_constant_NOTDEF;
 445 #endif
 446       }
 447       break;
 448     case 'O':
 449       if (memEQ(name, "SERVICE_APPLICATIONS", 20)) {
 450       /*                                ^         */
 451 #ifdef SERVICE_APPLICATIONS
 452         *iv_return = SERVICE_APPLICATIONS;
 453         return PERL_constant_ISIV;
 454 #else
 455         return PERL_constant_NOTDEF;
 456 #endif
 457       }
 458       break;
 459     }
 460     break;
 461   case 21:
 462     return constant_21 (aTHX_ name, iv_return);
 463     break;
 464   case 22:
 465     if (memEQ(name, "SERVICE_VFS_TEXT_FILES", 22)) {
 466 #ifdef SERVICE_VFS_TEXT_FILES
 467       *iv_return = SERVICE_VFS_TEXT_FILES;
 468       return PERL_constant_ISIV;
 469 #else
 470       return PERL_constant_NOTDEF;
 471 #endif
 472     }
 473     break;
 474   case 23:
 475     if (memEQ(name, "SERVICE_VFS_OTHER_FILES", 23)) {
 476 #ifdef SERVICE_VFS_OTHER_FILES
 477       *iv_return = SERVICE_VFS_OTHER_FILES;
 478       return PERL_constant_ISIV;
 479 #else
 480       return PERL_constant_NOTDEF;
 481 #endif
 482     }
 483     break;
 484   case 24:
 485     if (memEQ(name, "SERVICE_EMAILATTACHMENTS", 24)) {
 486 #ifdef SERVICE_EMAILATTACHMENTS
 487       *iv_return = SERVICE_EMAILATTACHMENTS;
 488       return PERL_constant_ISIV;
 489 #else
 490       return PERL_constant_NOTDEF;
 491 #endif
 492     }
 493     break;
 494   case 25:
 495     if (memEQ(name, "SERVICE_DEVELOPMENT_FILES", 25)) {
 496 #ifdef SERVICE_DEVELOPMENT_FILES
 497       *iv_return = SERVICE_DEVELOPMENT_FILES;
 498       return PERL_constant_ISIV;
 499 #else
 500       return PERL_constant_NOTDEF;
 501 #endif
 502     }
 503     break;
 504   case 29:
 505     if (memEQ(name, "SERVICE_VFS_DEVELOPMENT_FILES", 29)) {
 506 #ifdef SERVICE_VFS_DEVELOPMENT_FILES
 507       *iv_return = SERVICE_VFS_DEVELOPMENT_FILES;
 508       return PERL_constant_ISIV;
 509 #else
 510       return PERL_constant_NOTDEF;
 511 #endif
 512     }
 513     break;
 514   }
 515   return PERL_constant_NOTFOUND;
 516 }
 517