1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

Add a few constants

This commit is contained in:
Kenichi Ishigaki 2020-12-06 01:59:56 +09:00
parent 09278cad8e
commit fa6fa30878
3 changed files with 146 additions and 1 deletions

View file

@ -5,6 +5,34 @@ MODULE = DBD::SQLite PACKAGE = DBD::SQLite::Constants
PROTOTYPES: ENABLE
#if SQLITE_VERSION_NUMBER >= 3034000
IV
_const_allowed_return_values_from_sqlite3_txn_state_3034000()
ALIAS:
SQLITE_TXN_NONE = SQLITE_TXN_NONE
SQLITE_TXN_READ = SQLITE_TXN_READ
SQLITE_TXN_WRITE = SQLITE_TXN_WRITE
CODE:
RETVAL = ix;
OUTPUT:
RETVAL
#else
IV
_const_allowed_return_values_from_sqlite3_txn_state_3034000_zero()
ALIAS:
SQLITE_TXN_NONE = 1
SQLITE_TXN_READ = 2
SQLITE_TXN_WRITE = 3
CODE:
RETVAL = 0;
OUTPUT:
RETVAL
#endif
IV
_const_authorizer_action_codes()
ALIAS:
@ -1130,6 +1158,30 @@ _const_extended_result_codes_3032000_zero()
#endif
#if SQLITE_VERSION_NUMBER >= 3034000
IV
_const_extended_result_codes_3034000()
ALIAS:
SQLITE_IOERR_CORRUPTFS = SQLITE_IOERR_CORRUPTFS
CODE:
RETVAL = ix;
OUTPUT:
RETVAL
#else
IV
_const_extended_result_codes_3034000_zero()
ALIAS:
SQLITE_IOERR_CORRUPTFS = 1
CODE:
RETVAL = 0;
OUTPUT:
RETVAL
#endif
IV
_const_flags_for_file_open_operations()
ALIAS:
@ -1264,6 +1316,30 @@ _const_flags_for_file_open_operations_3031000_zero()
#endif
#if SQLITE_VERSION_NUMBER >= 3033000
IV
_const_flags_for_file_open_operations_3033000()
ALIAS:
SQLITE_OPEN_SUPER_JOURNAL = SQLITE_OPEN_SUPER_JOURNAL
CODE:
RETVAL = ix;
OUTPUT:
RETVAL
#else
IV
_const_flags_for_file_open_operations_3033000_zero()
ALIAS:
SQLITE_OPEN_SUPER_JOURNAL = 1
CODE:
RETVAL = 0;
OUTPUT:
RETVAL
#endif
#if SQLITE_VERSION_NUMBER >= 3008003
IV
@ -1718,3 +1794,27 @@ _const__flags_for_file_open_operations_3031000_zero()
#endif
#if SQLITE_VERSION_NUMBER >= 3033000
IV
_const__flags_for_file_open_operations_3033000()
ALIAS:
OPEN_SUPER_JOURNAL = SQLITE_OPEN_SUPER_JOURNAL
CODE:
RETVAL = ix;
OUTPUT:
RETVAL
#else
IV
_const__flags_for_file_open_operations_3033000_zero()
ALIAS:
OPEN_SUPER_JOURNAL = 1
CODE:
RETVAL = 0;
OUTPUT:
RETVAL
#endif

View file

@ -8,6 +8,13 @@ use warnings;
use base 'Exporter';
use DBD::SQLite;
our @EXPORT_OK = (
# allowed_return_values_from_sqlite3_txn_state
qw/
SQLITE_TXN_NONE
SQLITE_TXN_READ
SQLITE_TXN_WRITE
/,
# authorizer_action_codes
qw/
SQLITE_ALTER_TABLE
@ -118,6 +125,7 @@ our @EXPORT_OK = (
SQLITE_IOERR_CLOSE
SQLITE_IOERR_COMMIT_ATOMIC
SQLITE_IOERR_CONVPATH
SQLITE_IOERR_CORRUPTFS
SQLITE_IOERR_DATA
SQLITE_IOERR_DELETE
SQLITE_IOERR_DELETE_NOENT
@ -167,6 +175,7 @@ our @EXPORT_OK = (
SQLITE_OPEN_READONLY
SQLITE_OPEN_READWRITE
SQLITE_OPEN_SHAREDCACHE
SQLITE_OPEN_SUPER_JOURNAL
SQLITE_OPEN_URI
/,
@ -344,6 +353,7 @@ our %EXPORT_TAGS = (
SQLITE_IOERR_CLOSE
SQLITE_IOERR_COMMIT_ATOMIC
SQLITE_IOERR_CONVPATH
SQLITE_IOERR_CORRUPTFS
SQLITE_IOERR_DATA
SQLITE_IOERR_DELETE
SQLITE_IOERR_DELETE_NOENT
@ -404,6 +414,7 @@ our %EXPORT_TAGS = (
SQLITE_OPEN_READONLY
SQLITE_OPEN_READWRITE
SQLITE_OPEN_SHAREDCACHE
SQLITE_OPEN_SUPER_JOURNAL
SQLITE_OPEN_URI
SQLITE_PERM
SQLITE_PRAGMA
@ -426,12 +437,21 @@ our %EXPORT_TAGS = (
SQLITE_SUBTYPE
SQLITE_TOOBIG
SQLITE_TRANSACTION
SQLITE_TXN_NONE
SQLITE_TXN_READ
SQLITE_TXN_WRITE
SQLITE_UPDATE
SQLITE_VERSION_NUMBER
SQLITE_WARNING
SQLITE_WARNING_AUTOINDEX
/],
allowed_return_values_from_sqlite3_txn_state => [qw/
SQLITE_TXN_NONE
SQLITE_TXN_READ
SQLITE_TXN_WRITE
/],
authorizer_action_codes => [qw/
SQLITE_ALTER_TABLE
SQLITE_ANALYZE
@ -537,6 +557,7 @@ our %EXPORT_TAGS = (
SQLITE_IOERR_CLOSE
SQLITE_IOERR_COMMIT_ATOMIC
SQLITE_IOERR_CONVPATH
SQLITE_IOERR_CORRUPTFS
SQLITE_IOERR_DATA
SQLITE_IOERR_DELETE
SQLITE_IOERR_DELETE_NOENT
@ -585,6 +606,7 @@ our %EXPORT_TAGS = (
SQLITE_OPEN_READONLY
SQLITE_OPEN_READWRITE
SQLITE_OPEN_SHAREDCACHE
SQLITE_OPEN_SUPER_JOURNAL
SQLITE_OPEN_URI
/],
@ -672,12 +694,24 @@ DBD::SQLite::Constants - common SQLite constants
=head1 DESCRIPTION
You can import necessary SQLite constants from this module. Available tags are C<all>, C<authorizer_action_codes>, C<authorizer_return_codes>, C<version> (C<compile_time_library_version_numbers>), C<database_connection_configuration_options>, C<extended_result_codes>, C<file_open> (C<flags_for_file_open_operations>), C<function_flags>, C<datatypes> (C<fundamental_datatypes>), C<result_codes>, C<run_time_limit_categories>. See L<http://sqlite.org/c3ref/constlist.html> for the complete list of constants.
You can import necessary SQLite constants from this module. Available tags are C<all>, C<allowed_return_values_from_sqlite3_txn_state>, C<authorizer_action_codes>, C<authorizer_return_codes>, C<version> (C<compile_time_library_version_numbers>), C<database_connection_configuration_options>, C<extended_result_codes>, C<file_open> (C<flags_for_file_open_operations>), C<function_flags>, C<datatypes> (C<fundamental_datatypes>), C<result_codes>, C<run_time_limit_categories>. See L<http://sqlite.org/c3ref/constlist.html> for the complete list of constants.
This module does not export anything by default.
=head1 CONSTANTS
=head2 allowed_return_values_from_sqlite3_txn_state
=over 4
=item SQLITE_TXN_NONE
=item SQLITE_TXN_READ
=item SQLITE_TXN_WRITE
=back
=head2 authorizer_action_codes
=over 4
@ -962,6 +996,8 @@ This module does not export anything by default.
=item SQLITE_CORRUPT_INDEX
=item SQLITE_IOERR_CORRUPTFS
=back
=head2 file_open (flags_for_file_open_operations)
@ -988,6 +1024,8 @@ This module does not export anything by default.
=item SQLITE_OPEN_NOFOLLOW
=item SQLITE_OPEN_SUPER_JOURNAL
=back
=head2 function_flags

View file

@ -179,6 +179,11 @@ my %since = (
IOERR_DATA => '3032000',
BUSY_TIMEOUT => '3032000',
CORRUPT_INDEX => '3032000',
OPEN_SUPER_JOURNAL => '3033000',
TXN_NONE => '3034000',
TXN_READ => '3034000',
TXN_WRITE => '3034000',
IOERR_CORRUPTFS => '3034000',
status_parameters_for_prepared_statements => '3006004',
extended_result_codes => '3006005',
@ -193,6 +198,7 @@ my %since = (
checkpoint_mode_values => '3008008',
prepared_statement_scan_status_opcodes => '3008008',
sql_trace_event_codes => '3014000',
allowed_return_values_from_sqlite3_txn_state => '3034000',
);
my %until = (
@ -267,6 +273,7 @@ sub extract_constants {
if (/^\*\* CAPI3REF: (.+)/) {
$tag = lc $1;
$tag =~ s/[ \-]+/_/g;
$tag =~ s/[\[\]]//g;
($tag) = $tag =~ /^(\w+)/;
$tag =~ s/_$//;
if ($tag =~ /^($ignore_tag_re)/) {