error_constants.pl

#!/usr/bin/perl
use PLCB_ConfUtil;
BEGIN {
    PLCB_ConfUtil::env_from_tmpflags();
}

use ExtUtils::H2PM;
module "Couchbase::Client::Errors";
use_export;

include "sys/types.h";
include "libcouchbase/couchbase.h";
my @constant_basenames = qw(
    SUCCESS
    AUTH_CONTINUE
    AUTH_ERROR
    DELTA_BADVAL
    E2BIG
    EBUSY
    EINTERNAL
    EINVAL
    ENOMEM
    ERANGE
    ERROR
    ETMPFAIL
    KEY_EEXISTS
    KEY_ENOENT
    LIBEVENT_ERROR
    NETWORK_ERROR
    NOT_MY_VBUCKET
    NOT_STORED
    NOT_SUPPORTED
    UNKNOWN_COMMAND
    UNKNOWN_HOST
    PROTOCOL_ERROR
    ETIMEDOUT
    CONNECT_ERROR
    BUCKET_ENOENT
);
foreach my $cbase (@constant_basenames) {
    constant('LIBCOUCHBASE_'.$cbase, name => 'COUCHBASE_'.$cbase);
}

write_output $ARGV[0];