U/perl/dbm64.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 1998 Jarkko Hietaniemi
   4 ?RCS:
   5 ?RCS: You may distribute under the terms of either the GNU General Public
   6 ?RCS: License or the Artistic License, as specified in the README file.
   7 ?RCS:
   8 ?MAKE:d_dbminit64 d_dbmclose64 d_fetch64 d_store64 d_delete64 \
   9         d_firstkey64 d_nextkey64: Inlibc use64bitint Setvar test
  10 ?MAKE:  -pick add $@ %<
  11 ?S:d_dbminit64:
  12 ?S:     This variable conditionally defines the HAS_DBMINIT64 symbol, which
  13 ?S:     indicates to the C program that the dbminit64() routine is available.
  14 ?S:.
  15 ?S:d_dbmclose64:
  16 ?S:     This variable conditionally defines the HAS_DBMCLOSE64 symbol, which
  17 ?S:     indicates to the C program that the dbmclose64() routine is available.
  18 ?S:.
  19 ?S:d_fetch64:
  20 ?S:     This variable conditionally defines the HAS_FETCH64 symbol, which
  21 ?S:     indicates to the C program that the fetch64() routine is available.
  22 ?S:.
  23 ?S:d_delete64:
  24 ?S:     This variable conditionally defines the HAS_DELETE64 symbol, which
  25 ?S:     indicates to the C program that the delete64() routine is available.
  26 ?S:.
  27 ?S:d_store64:
  28 ?S:     This variable conditionally defines the HAS_STORE64 symbol, which
  29 ?S:     indicates to the C program that the store64() routine is available.
  30 ?S:.
  31 ?S:d_firstkey64:
  32 ?S:     This variable conditionally defines the HAS_FIRSTKEY64 symbol, which
  33 ?S:     indicates to the C program that the firstkey64() routine is available.
  34 ?S:.
  35 ?S:d_nextkey64:
  36 ?S:     This variable conditionally defines the HAS_NEXTKEY64 symbol, which
  37 ?S:     indicates to the C program that the nextkey64() routine is available.
  38 ?S:.
  39 ?C:HAS_DBMINIT64:
  40 ?C:     This symbol, if defined, indicates that the dbminit64 routine is
  41 ?C:     available to open dbm files larger than 2 gigabytes.
  42 ?C:.
  43 ?C:HAS_DBMCLOSE64:
  44 ?C:     This symbol, if defined, indicates that the dbmclose64 routine is
  45 ?C:     available to close dbm files larger than 2 gigabytes.
  46 ?C:.
  47 ?C:HAS_FETCH64:
  48 ?C:     This symbol, if defined, indicates that the fetch64 routine is
  49 ?C:     available to fetch from dbm files larger than 2 gigabytes.
  50 ?C:.
  51 ?C:HAS_STORE64:
  52 ?C:     This symbol, if defined, indicates that the store64 routine is
  53 ?C:     available to store to dbm files larger than 2 gigabytes.
  54 ?C:.
  55 ?C:HAS_DELETE64:
  56 ?C:     This symbol, if defined, indicates that the delete64 routine is
  57 ?C:     available to delete from dbm files larger than 2 gigabytes.
  58 ?C:.
  59 ?C:HAS_FIRSTKEY64:
  60 ?C:     This symbol, if defined, indicates that the firstkey64 routine is
  61 ?C:     available to firstkey in dbm files larger than 2 gigabytes.
  62 ?C:.
  63 ?C:HAS_NEXTKEY64:
  64 ?C:     This symbol, if defined, indicates that the nextkey64 routine is
  65 ?C:     available to nextkey in dbm files larger than 2 gigabytes.
  66 ?C:.
  67 ?H:#$d_dbminit64   HAS_DBMINIT64        /**/
  68 ?H:#$d_dbmclose64  HAS_DBMCLOSE64       /**/
  69 ?H:#$d_fetch64     HAS_FETCH64          /**/
  70 ?H:#$d_store64     HAS_STORE64          /**/
  71 ?H:#$d_delete64    HAS_DELETE64         /**/
  72 ?H:#$d_firstkey64  HAS_FIRSTKEY64       /**/
  73 ?H:#$d_nextkey64   HAS_NEXTKEY64        /**/
  74 ?H:.
  75 ?T:xxx
  76 ?LINT:set d_dbminit64
  77 ?LINT:set d_dbmclose64
  78 ?LINT:set d_fetch64
  79 ?LINT:set d_store64
  80 ?LINT:set d_delete64
  81 ?LINT:set d_firstkey64
  82 ?LINT:set d_nextkey64
  83 : Check if DBM has 64bit functions
  84 if $test X"$use64bitint" = X"$define"; then
  85         : see if dbminit64 exists
  86         set dbminit64 d_dbminit64
  87         eval $inlibc
  88
  89         : see if dbmclose64 exists
  90         set dbmclose64 d_dbmclose64
  91         eval $inlibc
  92
  93         : see if fetch64 exists
  94         set fetch64 d_fetch64
  95         eval $inlibc
  96
  97         : see if store64 exists
  98         set store64 d_store64
  99         eval $inlibc
 100
 101         : see if delete64 exists
 102         set delete64 d_delete64
 103         eval $inlibc
 104
 105         : see if firstkey64 exists
 106         set firstkey64 d_firstkey64
 107         eval $inlibc
 108
 109         : see if nextkey64 exists
 110         set nextkey64 d_nextkey64
 111         eval $inlibc
 112 else
 113         val="$undef"
 114         for xxx in d_dbminit64 d_dbmclose64 d_fetch64 d_store64 d_delete64 d_firstkey64 d_nextkey64
 115         do
 116                 set $xxx
 117                 eval $setvar
 118         done
 119 fi
 120