← Back to branch summary

~ubuntu-branches/ubuntu/precise/grass/precise

« back to all changes in this revision

Viewing changes to swig/perl/fallback/const-c.inc

  • Committer: Bazaar Package Importer
  • Author(s): Francesco Paolo Lovergine
  • Date: 2011-04-13 17:08:41 UTC
  • mfrom: (8.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20110413170841-ss1t9bic0d0uq0gz
Tags: 6.4.1-1
* New upstream version.
* Now build-dep on libjpeg-dev and current libreadline6-dev.
* Removed patch swig: obsolete.
* Policy bumped to 3.9.2, without changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
swig/perl/fallback/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 (pTHX_ const char *name, STRLEN len, IV *iv_return) {
25
 
  /* Initially switch on the length of the name.  */
26
 
  /* When generated this function returned values for the list of names given
27
 
     in this section of perl code.  Rather than manually editing these functions
28
 
     to add or remove constants, which would result in this comment and section
29
 
     of code becoming inaccurate, we recommend that you edit this section of
30
 
     code, and use it to regenerate a new set of constant functions which you
31
 
     then use to replace the originals.
32
 
 
33
 
     Regenerate these constant functions by feeding this entire source file to
34
 
     perl -x
35
 
 
36
 
#!/usr/bin/perl -w
37
 
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
38
 
 
39
 
my $types = {map {($_, 1)} qw(IV)};
40
 
my @names = (qw(CONCAVE CONVEX));
41
 
 
42
 
print constant_types(); # macro defs
43
 
foreach (C_constant ("Geo::Vector", 'constant', 'IV', $types, undef, 3, @names) ) {
44
 
    print $_, "\n"; # C constant subs
45
 
}
46
 
print "#### XS Section:\n";
47
 
print XS_constant ("Geo::Vector", $types);
48
 
__END__
49
 
   */
50
 
 
51
 
  switch (len) {
52
 
  case 6:
53
 
    if (memEQ(name, "CONVEX", 6)) {
54
 
#ifdef CONVEX
55
 
      *iv_return = CONVEX;
56
 
      return PERL_constant_ISIV;
57
 
#else
58
 
      return PERL_constant_NOTDEF;
59
 
#endif
60
 
    }
61
 
    break;
62
 
  case 7:
63
 
    if (memEQ(name, "CONCAVE", 7)) {
64
 
#ifdef CONCAVE
65
 
      *iv_return = CONCAVE;
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