| 1 | use strict;
|
|---|
| 2 | use warnings;
|
|---|
| 3 |
|
|---|
| 4 | use ExtUtils::MakeMaker ;
|
|---|
| 5 | use ExtUtils::Constant qw(WriteConstants);
|
|---|
| 6 | use Config ;
|
|---|
| 7 |
|
|---|
| 8 | # OS2 is a special case, so check for it now.
|
|---|
| 9 | my $OS2 = "-DOS2" if $Config{'osname'} eq 'os2' ;
|
|---|
| 10 |
|
|---|
| 11 | my $LIB = "-ldb" ;
|
|---|
| 12 | # so is win32
|
|---|
| 13 | $LIB = "-llibdb" if $^O eq 'MSWin32' ;
|
|---|
| 14 |
|
|---|
| 15 | WriteMakefile(
|
|---|
| 16 | NAME => 'DB_File',
|
|---|
| 17 | LIBS => ["-L/usr/local/lib $LIB"],
|
|---|
| 18 | MAN3PODS => {}, # Pods will be built by installman.
|
|---|
| 19 | #INC => '-I/usr/local/include',
|
|---|
| 20 | VERSION_FROM => 'DB_File.pm',
|
|---|
| 21 | OBJECT => 'version$(OBJ_EXT) DB_File$(OBJ_EXT)',
|
|---|
| 22 | XSPROTOARG => '-noprototypes',
|
|---|
| 23 | DEFINE => $OS2 || "",
|
|---|
| 24 | INC => ($^O eq "MacOS" ? "-i ::::db:include" : ""),
|
|---|
| 25 | 'depend' => {'version$(OBJ_EXT)' => 'version.c'},
|
|---|
| 26 | 'clean' => {FILES => 'constants.h constants.xs'},
|
|---|
| 27 | );
|
|---|
| 28 |
|
|---|
| 29 | my @names = qw(
|
|---|
| 30 | BTREEMAGIC
|
|---|
| 31 | BTREEVERSION
|
|---|
| 32 | DB_LOCK
|
|---|
| 33 | DB_SHMEM
|
|---|
| 34 | DB_TXN
|
|---|
| 35 | HASHMAGIC
|
|---|
| 36 | HASHVERSION
|
|---|
| 37 | MAX_PAGE_NUMBER
|
|---|
| 38 | MAX_PAGE_OFFSET
|
|---|
| 39 | MAX_REC_NUMBER
|
|---|
| 40 | RET_ERROR
|
|---|
| 41 | RET_SPECIAL
|
|---|
| 42 | RET_SUCCESS
|
|---|
| 43 | R_CURSOR
|
|---|
| 44 | R_DUP
|
|---|
| 45 | R_FIRST
|
|---|
| 46 | R_FIXEDLEN
|
|---|
| 47 | R_IAFTER
|
|---|
| 48 | R_IBEFORE
|
|---|
| 49 | R_LAST
|
|---|
| 50 | R_NEXT
|
|---|
| 51 | R_NOKEY
|
|---|
| 52 | R_NOOVERWRITE
|
|---|
| 53 | R_PREV
|
|---|
| 54 | R_RECNOSYNC
|
|---|
| 55 | R_SETCURSOR
|
|---|
| 56 | R_SNAPSHOT
|
|---|
| 57 | __R_UNUSED
|
|---|
| 58 | );
|
|---|
| 59 |
|
|---|
| 60 | # Check the constants above all appear in @EXPORT in DB_File.pm
|
|---|
| 61 | my %names = map { $_, 1} @names;
|
|---|
| 62 | open F, "<DB_File.pm" or die "Cannot open DB_File.pm: $!\n";
|
|---|
| 63 | while (<F>)
|
|---|
| 64 | {
|
|---|
| 65 | last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
|
|---|
| 66 | }
|
|---|
| 67 |
|
|---|
| 68 | while (<F>)
|
|---|
| 69 | {
|
|---|
| 70 | last if /^\s*\)/ ;
|
|---|
| 71 | /(\S+)/ ;
|
|---|
| 72 | delete $names{$1} if defined $1 ;
|
|---|
| 73 | }
|
|---|
| 74 | close F ;
|
|---|
| 75 |
|
|---|
| 76 | if ( keys %names )
|
|---|
| 77 | {
|
|---|
| 78 | my $missing = join ("\n\t", sort keys %names) ;
|
|---|
| 79 | die "The following names are missing from \@EXPORT in DB_File.pm\n" .
|
|---|
| 80 | "\t$missing\n" ;
|
|---|
| 81 | }
|
|---|
| 82 |
|
|---|
| 83 |
|
|---|
| 84 | WriteConstants( NAME => 'DB_File',
|
|---|
| 85 | NAMES => \@names,
|
|---|
| 86 | C_FILE => 'constants.h',
|
|---|
| 87 | XS_FILE => 'constants.xs',
|
|---|
| 88 | );
|
|---|
