mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 05:30:37 +01:00
+ update of oracle bindings
git-svn-id: trunk@2540 -
This commit is contained in:
joost
parent
90146185e3
commit
3574454490
13
.gitattributes
vendored
13
.gitattributes
vendored
@ -1607,7 +1607,20 @@ packages/base/oracle/example/oraclew.pp svneol=native#text/plain
|
||||
packages/base/oracle/example/test01.pp svneol=native#text/plain
|
||||
packages/base/oracle/fpmake.inc svneol=native#text/plain
|
||||
packages/base/oracle/fpmake.pp svneol=native#text/plain
|
||||
packages/base/oracle/nzerror.inc -text
|
||||
packages/base/oracle/nzt.inc -text
|
||||
packages/base/oracle/oci.inc -text
|
||||
packages/base/oracle/oci.pp -text
|
||||
packages/base/oracle/oci1.inc -text
|
||||
packages/base/oracle/ociap.inc -text
|
||||
packages/base/oracle/ocidfn.inc -text
|
||||
packages/base/oracle/ocidyn.pp -text
|
||||
packages/base/oracle/oraoci.pp svneol=native#text/plain
|
||||
packages/base/oracle/oratypes.pp -text
|
||||
packages/base/oracle/orl.inc -text
|
||||
packages/base/oracle/oro_implementation.inc -text
|
||||
packages/base/oracle/oro_interface.inc -text
|
||||
packages/base/oracle/ort.inc -text
|
||||
packages/base/pasjpeg/Makefile svneol=native#text/plain
|
||||
packages/base/pasjpeg/Makefile.fpc svneol=native#text/plain
|
||||
packages/base/pasjpeg/PasJpeg.raw -text
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/02/04]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/02/12]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince powerpc64-linux
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince powerpc64-linux
|
||||
BSDs = freebsd netbsd openbsd darwin
|
||||
UNIXs = linux $(BSDs) solaris qnx
|
||||
LIMIT83fs = go32v2 os2 emx watcom
|
||||
@ -233,118 +233,121 @@ PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages/base $(FPCDIR)/packages/ext
|
||||
override PACKAGE_NAME=oracle
|
||||
override PACKAGE_VERSION=2.0.0
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-go32v2)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-win32)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-os2)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-freebsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-beos)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netbsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-solaris)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-qnx)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netware)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-openbsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-darwin)
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-emx)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-watcom)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-freebsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-netbsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-amiga)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-atari)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-openbsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-palmos)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-netbsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-macos)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-darwin)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-morphos)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-netbsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-solaris)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-palmos)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-linux)
|
||||
override TARGET_UNITS+=oraoci
|
||||
override TARGET_UNITS+=oci ocidyn oratypes oraoci
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_EXAMPLEDIRS+=example
|
||||
@ -382,6 +385,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
override TARGET_EXAMPLEDIRS+=example
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-darwin)
|
||||
override TARGET_EXAMPLEDIRS+=example
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-emx)
|
||||
override TARGET_EXAMPLEDIRS+=example
|
||||
endif
|
||||
@ -1263,6 +1269,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-darwin)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-emx)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
endif
|
||||
@ -1983,6 +1992,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
TARGET_EXAMPLEDIRS_EXAMPLE=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-darwin)
|
||||
TARGET_EXAMPLEDIRS_EXAMPLE=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-emx)
|
||||
TARGET_EXAMPLEDIRS_EXAMPLE=1
|
||||
endif
|
||||
|
||||
@ -7,7 +7,7 @@ name=oracle
|
||||
version=2.0.0
|
||||
|
||||
[target]
|
||||
units=oraoci
|
||||
units=oci ocidyn oratypes oraoci
|
||||
exampledirs=example
|
||||
|
||||
[require]
|
||||
|
||||
@ -1,20 +1,21 @@
|
||||
These units provides interface to Oracle Call Interface.
|
||||
Object workaround (TOraDatabase etc...) is on the way.
|
||||
These units provides interface to Oracle Call Interface.
|
||||
|
||||
Unit oraclew contains some procedures and functions,
|
||||
For the older 'oraoci' unit to compile you need oracle
|
||||
server installed, these units was tested and performed
|
||||
on Oracle 8.0.1.5 Standard server. One developer license
|
||||
of Oracle server is free of charge...
|
||||
|
||||
Unit oraclew contains some procedures and functions,
|
||||
which makes usage of oraoci not so painfull... But -
|
||||
if you wanna to program in RAW OCI, you really can ;)
|
||||
|
||||
To compile you need oracle server installed, these units
|
||||
was tested and performed on Oracle 8.0.1.5 Standard
|
||||
server. One developer license of Oracle server is free
|
||||
of charge...
|
||||
The oci and ocidyn units are a complete conversion from
|
||||
Oracle's .h files. The former links statically to the
|
||||
library, the latter dynamically.
|
||||
|
||||
You need to have oracle lib directory in ldpath, too,
|
||||
or you can this path set in Makefile.fpc (is commented
|
||||
there)
|
||||
|
||||
After all this, run 'make examples' and enjoy!
|
||||
|
||||
Pavel Stingl
|
||||
stingp1.eti@mail.cez.cz
|
||||
Joost van der Sluis,
|
||||
joost@cnoc.nl
|
||||
|
||||
658
packages/base/oracle/nzerror.inc
Normal file
658
packages/base/oracle/nzerror.inc
Normal file
@ -0,0 +1,658 @@
|
||||
{
|
||||
Automatically converted by H2Pas 1.0.0 from nzerror.h
|
||||
The following command line parameters were used:
|
||||
-p
|
||||
-D
|
||||
-l
|
||||
jojo.so
|
||||
nzerror.h
|
||||
}
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
{ DISABLE check_long_lines }
|
||||
{
|
||||
* $Header: nzerror.h 30-jan-2005.21:20:26 skalyana Exp $
|
||||
*
|
||||
* Copyright (c) 1995, 2005, Oracle. All rights reserved.
|
||||
}
|
||||
{ ENABLE check_long_lines }
|
||||
{
|
||||
NAME
|
||||
nzerror.h - error numbers for the Oracle Security Server
|
||||
DESCRIPTION
|
||||
None.
|
||||
PUBLIC FUNCTION(S)
|
||||
None.
|
||||
PRIVATE FUNCTION(S)
|
||||
None.
|
||||
NOTES
|
||||
A pragma is used to silence olint about the enum value names not being
|
||||
unique within 7 characters. This limit is being changed to 30.
|
||||
MODIFIED
|
||||
skalyana 01/30/05 -
|
||||
rchahal 07/16/04 - add cert label
|
||||
rchahal 07/06/04 -
|
||||
rchahal 10/15/03 - bug 2513821
|
||||
rchahal 08/14/03 - new error range (43000 - 43499)
|
||||
skalyana 08/25/03 - Error changes
|
||||
rchahal 06/27/03 - RSA errors
|
||||
rchahal 05/27/03 - convert wallet
|
||||
skalyana 03/07/03 - Move FIPS errors
|
||||
rchahal 02/28/03 - bug 2648177
|
||||
rchahal 01/20/03 - use sltsky
|
||||
rchahal 11/11/02 - pkcs11 support
|
||||
skalyana 11/29/02 - Add mutex errors
|
||||
akoyfman 11/01/02 - adding crl cache
|
||||
rchahal 10/23/02 - crldp error
|
||||
rchahal 10/15/02 - fetch crl from ldap
|
||||
rchahal 10/07/02 - crl support
|
||||
akoyfman 10/16/02 - Update with SSL PLus 4.2 errors
|
||||
skalyana 10/04/02 - Certicom SSL Plus 4.2 Upgrade changes
|
||||
akoyfman 08/06/02 - adding sso wallet errors
|
||||
akoyfman 07/12/02 - adding secret store errors
|
||||
skalyana 07/07/02 - Add more errors for FIPS self tests
|
||||
skalyana 07/01/02 - Add more errors
|
||||
skalyana 06/03/02 - Add NZ error for self test failure.
|
||||
ajacobs 02/22/01 - Add some entrust errors
|
||||
vle 02/09/01 - add error mesg
|
||||
lkethana 08/11/00 - Extension Errors
|
||||
lkethana 07/30/00 - add pkcs12 errors
|
||||
lkethana 06/17/00 - mult cert errors
|
||||
lkethana 06/11/00 - multiple cert support
|
||||
rturlapa 03/29/00 - Add error meesage for Entrust Login failure.
|
||||
rwessman 07/07/99 - Deleted include of sslerrs.h. It caused the RDBMS bu
|
||||
rwessman 07/02/99 - fixed merge errors
|
||||
rwessman 07/01/99 - moved NZOS errors to nzerror to make them visible
|
||||
supriya 12/16/98 - add new error for cert chain.
|
||||
arswamin 12/04/98 - add NZERROR_NO_MATCHING_PRIVATE_KEY
|
||||
qdinh 11/12/98 - add NZERROR_VALIDITY_EXPIRED.
|
||||
arswamin 06/17/98 - add INIT_FAILED
|
||||
sdange 06/10/98 - change wrong password to bad password
|
||||
amthakur 06/09/98 - adding error messages
|
||||
wliau 03/10/97 - Add new error message for snzdfo.c.
|
||||
rwessman 03/14/97 - Consolidated PL/SQL toolkit errors into generic erro
|
||||
rwessman 02/26/97 - Added NZERROR_UNSUPPORTED. Corrected values of
|
||||
errors outside the valid range.
|
||||
asriniva 03/02/97 - Fix olint warning
|
||||
rwessman 02/26/97 - Added NZERROR_UNSUPPORTED
|
||||
rwessman 01/02/97 - Changed PLSQL package errors to be TK_PLSQL to
|
||||
separate them from the errors generated by the
|
||||
Oracle interface.
|
||||
rwessman 12/30/96 - Merged in PL/SQL toolkit errors
|
||||
sdange 11/14/96 - (Added NZERROR_DECRYPT_FAILED to the enum list)
|
||||
rwessman 12/02/96 -
|
||||
rwessman 11/25/96 - Added error messages for PL/SQL functions.
|
||||
asriniva 10/31/96 - Include oratypes.h
|
||||
asriniva 10/29/96 - Fix numbering.
|
||||
asriniva 10/29/96 - Fix error numbers
|
||||
asriniva 10/29/96 - Correct type-o
|
||||
asriniva 10/28/96 - Add more TK errors
|
||||
asriniva 10/28/96 - Convert OKAPI errors to TK errors.
|
||||
rwessman 10/17/96 - still more OSS TK errors
|
||||
asriniva 10/16/96 - OKAPI errors
|
||||
asriniva 10/15/96 - OSSTK errors
|
||||
rwessman 10/15/96 - Added more OSS TK errors
|
||||
asriniva 10/09/96 - Add OSSTK errors.
|
||||
rwessman 09/05/96 - Added errors for PL/SQL functions.
|
||||
wliau 09/05/96 - correct error numbers.
|
||||
$Log: $
|
||||
* Revision 1.26 1996/07/15 23:07:23 wliau
|
||||
* Added NZERROR_AUTH_SHARED_MEMORY
|
||||
*
|
||||
* Revision 1.25 1996/07/01 20:40:15 asriniva
|
||||
* Finished RSA verify/sign.
|
||||
*
|
||||
* Revision 1.24 1996/06/27 20:39:41 rwessman
|
||||
* Added more errors.
|
||||
*
|
||||
* Revision 1.23 1996/05/31 17:33:40 rwessman
|
||||
* Updated nzerror.h to contain bug # for olint enum bug.
|
||||
*
|
||||
* Revision 1.22 1996/05/31 17:12:30 rwessman
|
||||
* Assigned values to the various errors.
|
||||
*
|
||||
* Revision 1.21 1996/05/13 20:46:58 ggilchri
|
||||
* Added more attribute related error conditions
|
||||
*
|
||||
}
|
||||
{ ORATYPES }
|
||||
{
|
||||
** Errors - when an error is added here, a message corresponding to the
|
||||
** error number must be added to the message file.
|
||||
** New errors must be assigned numbers, otherwise the compiler can assign any
|
||||
** value that it wants, which may lead to invalid error numbers being
|
||||
** generated.
|
||||
** The number range currently assigned to the OSS is 28750 - 29249
|
||||
** New number range 43000 - 43499
|
||||
}
|
||||
{ A catchall for errors }
|
||||
{ No more memory }
|
||||
{ Failed to init data source }
|
||||
{ Failed to terminate data source }
|
||||
{ Store object in data source failed }
|
||||
{ Failed to obtain object from data source }
|
||||
{ Callback failed to allocate memory }
|
||||
{ Attempted to ask for 0 bytes of memory }
|
||||
{ Callback failed to free memory }
|
||||
{ Open of file failed }
|
||||
{ Creation of list failed }
|
||||
{ No list element found }
|
||||
{ Addition of list element failed }
|
||||
{ Retrieval of an unknown parameter type }
|
||||
{ Retrieval of parameter failed }
|
||||
{ Data method list does not exist }
|
||||
{ Failed to terminate }
|
||||
{ Bad version number }
|
||||
{ Bad magic number }
|
||||
{ Data retrieval method specified does not exist }
|
||||
{The data source is already initialized }
|
||||
{ The data source is not initialized }
|
||||
{ File ID is bad }
|
||||
{ Failed to write magic and version }
|
||||
{ Failed to write to file }
|
||||
{ Failed to close file }
|
||||
{ The buffer supplied by the caller is too small }
|
||||
{ NL failed in creating a binding }
|
||||
{ A parameter was in a bad format }
|
||||
{ No method was specified for a data type }
|
||||
{ Illegal method for data type }
|
||||
{ No method specified when required }
|
||||
{ Data source is not allocated }
|
||||
{ Invalid parameter name }
|
||||
{ Could not translate OSD file name }
|
||||
{ Selected parameter is non-existent }
|
||||
{ Encrypted private key decryption failure } { Private key encryption failed }
|
||||
{ Incorrect input or unknown error } { Type of name requested is not available }
|
||||
{ Failure to generate an NLS string }
|
||||
{ Failed to verify a certificate }
|
||||
{ an OCI call to process some plsql failed }
|
||||
{ an OCI call to bind an internal var. failed }
|
||||
{ failed to init role retrieval }
|
||||
{ Did not complete role retrieval }
|
||||
{ Data method specified not supported }
|
||||
{ Invalid data type specified for key }
|
||||
{ Number of sub-keys to bind does not match count in initialized key }
|
||||
{ Failed to retreieve authentication information from the shared memory }
|
||||
{ RIO Open Failed }
|
||||
{ RIO object type invalid }
|
||||
{ RIO mode invalid }
|
||||
{ RIO io set or numberinvalid }
|
||||
{ RIO close failed }
|
||||
{ RIO retrieve failed }
|
||||
{ RIO store failed }
|
||||
{ RIO update failed }
|
||||
{ RIO info failed }
|
||||
{ RIO delete failed }
|
||||
{ Key descriptor create failed }
|
||||
{ access descriptor invalid }
|
||||
{ record invalid }
|
||||
{ record type and AD type not matched }
|
||||
{ A number passed to PL/SQL could not be converted to real format }
|
||||
{ A number in machine format could not be converted to Oracle format }
|
||||
{ A password was not provided to a PL/SQL function }
|
||||
{ A PL/SQL function returned an error }
|
||||
{ The package context was not specified to a PL/SQL function }
|
||||
{ The user's distinguished name was not provided to a PL/SQL function }
|
||||
{ The state of either a signature or decryption/encryption was not provided }
|
||||
{ An input buffer was specified to a PL/SQL function }
|
||||
{ No seed was specified to the PL/SQL seed initialization function }
|
||||
{ Number of bytes was not specified to the PL/SQL random number generator }
|
||||
{ Invalid encryption/decryption/signature state passed }
|
||||
{ No crypto engine function was passed in }
|
||||
{ An invalid crypto engine function was passed in }
|
||||
{ An invalid cipher type was passed in }
|
||||
{ An invalid identity type was specified }
|
||||
{ No cipher type was specified }
|
||||
{ No identity type was specified }
|
||||
{ No data unit format was specified }
|
||||
{ Invalid data unit format was provided to function }
|
||||
{ Not enough info (usually parameters) provided to a PL/SQL function }
|
||||
{ Buffer provided by PL/SQL is too small for data to be returned }
|
||||
{ Identity descriptor not present or too small }
|
||||
{ Wallet has not been opened yet }
|
||||
{ No wallet descriptor specified to PL/SQL function }
|
||||
{ No identity descriptor specified to PL/SQL function }
|
||||
{ No persona descriptor was specified to PL/SQL function }
|
||||
{ Wallet was already opened }
|
||||
{ Operation is not supported }
|
||||
{ Bad file permission specified }
|
||||
{ OSD error when opening file }
|
||||
{ cert + privkey + tp files do not exist }
|
||||
{ no certificate }
|
||||
{ no private-key }
|
||||
{ no clear key-file }
|
||||
{ no encrypted priv key }
|
||||
{ no trustpoints }
|
||||
{ no clear trustpoints }
|
||||
{ no encrypted trustpoints }
|
||||
{ bad password }
|
||||
{ init failed or
|
||||
module loading failed }
|
||||
{****************************** SSL ERRORS ******************************* }
|
||||
{
|
||||
* In order to allow SSL errors to be mapped to Oracle errors, space is
|
||||
* provided here. One Oracle error is provided for each SSL error to make
|
||||
* error handling easier. A macro is provided to do the conversion.
|
||||
* NOTE: ANY CHANGE IN SSL ERRORS MUST BE REFLECTED HERE.
|
||||
* To add an SSL error, use the following formula to calculate the Oracle
|
||||
* error:
|
||||
* new_oracle_error = (new_ssl_error - SSLMemoryError) + NZERROR_SSLMemoryErr
|
||||
* or numerically:
|
||||
* new_oracle_error = (new_ssl_error - -7000) + 28854
|
||||
}
|
||||
{ ============>>> ENTRUST ERRORS }
|
||||
{ ============>>> NZERRORS CONTINUED }
|
||||
{ ============>>> PKI VENDORS ERRORS 29050 - 29099 }
|
||||
{ ============>>> SSL Errors CONTINUED }
|
||||
{ ============>>> PKCS12 error 29100 - 29149 }
|
||||
{ ===========>>> SSL Errors CONTINUED 29135 - 29139 }
|
||||
{ ==========>>> Mutex Errors 29138 - 29139 }
|
||||
{ ============>>> EXTENSIONS Errors 29140 - 29149 }
|
||||
{ ============>>> FIPS ERRORS 29150 - 29175 }
|
||||
{ ============>>> CRL ERRORS 29176 - 29200 }
|
||||
{CRL signature verification failed } {Cert is not in CRL - cert is not revoked } {Cert is in CRL - cert is revoked } {Cert revocation check failed } { ldap_open failed }
|
||||
{ ldap_bind failed }
|
||||
{ ldap_search failed }
|
||||
{ ldap_result failed }
|
||||
{ ldap_first_attribute failed }
|
||||
{ ldap_get_values_len failed }
|
||||
{ unsupported validation mechanism }
|
||||
{ ldap_count_entries failed }
|
||||
{ No entry found in OID }
|
||||
{ Multiple entries in OID }
|
||||
{ Validation mechanism not set in OID }
|
||||
{ No CRL found using CRLDP mechanism }
|
||||
{ No CRL found in the cache }
|
||||
{ CRL nextUpdate time is in the past }
|
||||
{ ============>>> ADD ERRORS HERE -- NOTE DECREASING numbers }
|
||||
{ for nztCompareDN }
|
||||
{ unable to create a cert chain
|
||||
* with the existing TPs for the
|
||||
* cert to be installed.
|
||||
}
|
||||
{ No matching cert_req was
|
||||
* found the corresponding to
|
||||
* the privatekey which
|
||||
* matches the cert to be
|
||||
* installed }
|
||||
{ we are attempting to
|
||||
* install a cert again into
|
||||
* a persona which already
|
||||
* has it installed.
|
||||
}
|
||||
{ could not find a matching
|
||||
* persona-private(privatekey) in
|
||||
* the Persona, for the given
|
||||
* cert(public key).
|
||||
}
|
||||
{ certificate validity date expired }
|
||||
{ Couldn't determine # of bytes needed }
|
||||
{ Magic number found in header does not match expected }
|
||||
{ Header length passed in not sufficient for message header }
|
||||
{ Crypto engine failed to initialize }
|
||||
{ Crypto engine key initialization failed }
|
||||
{ Count not encode key object }
|
||||
{ Could not decode key into object }
|
||||
{ Crypto engine failed to get key info }
|
||||
{ Couldn't seed random number generator }
|
||||
{ Couldn't finish algorithm }
|
||||
{ Couldn't apply algorithm to data }
|
||||
{ Couldn't init CE for algorithm }
|
||||
{ Have no idea what algorithm you want }
|
||||
{ Cannot grow output buffer block }
|
||||
{ Key not large enough for data }
|
||||
{ Unknown key type. }
|
||||
{ Wallet resource locator not specified to PL/SQL function }
|
||||
{ Unknown crypto engine function }
|
||||
{ Unknown TDU format }
|
||||
{ Object must be open }
|
||||
{ Bad WRL type }
|
||||
{ Bad state specified for the crypto engine }
|
||||
{ After 29249, use error numbers in block 43000 - 43499 }
|
||||
{ PKCS #11 library not found }
|
||||
{ can't find token with given label }
|
||||
{ passphrase is incorrect/expired }
|
||||
{ C_GetFunctionList returned error }
|
||||
{ C_Initialize returned error }
|
||||
{ No tokens present }
|
||||
{ C_GetSlotList returned error }
|
||||
{ C_GetTokenInfo returned error }
|
||||
{ Symbol not found in PKCS11 lib }
|
||||
{ Token login failed }
|
||||
{ Change providers error }
|
||||
{ Error trying to find private key on token }
|
||||
{ Key pair gen error }
|
||||
{ Wallet already contains
|
||||
pkcs11 info }
|
||||
{ No cert found on token }
|
||||
{No user cert found on token }
|
||||
{No cert found on token with given certificate label. }
|
||||
{Multiple certs found on token with given certificate label. }
|
||||
{Cert with given cert is not a user cert because no corresponding pvt key found on token }
|
||||
{ RSA ERRORS 43050 - 43059 }
|
||||
{ C_BindService returned error }
|
||||
{ B_CreateKeyObject returned error }
|
||||
{ C_GetCertFields returned error }
|
||||
{ C_CreatePKCS10Object returned error }
|
||||
{ C_SetPKCS10Fields returned error }
|
||||
{ C_SignCertRequest returned error }
|
||||
{ C_GetPKCS10DER returned error }
|
||||
{ C_InitializeCertC returned error }
|
||||
{ C_InsertPrivateKey returned error }
|
||||
{ RSA error. See trace output }
|
||||
{ slts ERRORS 43060 - 43069 }
|
||||
{ sltsini() returned error }
|
||||
{ sltskyc() returned error }
|
||||
{ sltster() returned error }
|
||||
{ sltskys() returned error }
|
||||
{ bad sso header length }
|
||||
{ wallet not empty }
|
||||
{ Last available error }
|
||||
{ MAXIMUM ERROR NUMBER IS 43499 }
|
||||
{
|
||||
* DO NOT JUST INSERT NEW ERRORS IN ANY OLD PLACE. New errors should be
|
||||
* added such the current error retains their integer values. Duplicate
|
||||
* values will cause compiler errors.
|
||||
}
|
||||
|
||||
type
|
||||
|
||||
Pnzerror = ^nzerror;
|
||||
nzerror = (NZERROR_OK := 0,NZERROR_GENERIC := 28750,
|
||||
NZERROR_NO_MEMORY := 28751,NZERROR_DATA_SOURCE_INIT_FAILED := 28752,
|
||||
NZERROR_DATA_SOURCE_TERM_FAILED := 28753,
|
||||
NZERROR_OBJECT_STORE_FAILED := 28754,NZERROR_OBJECT_GET_FAILED := 28755,
|
||||
NZERROR_MEMORY_ALLOC_FAILED := 28756,NZERROR_MEMORY_ALLOC_0_BYTES := 28757,
|
||||
NZERROR_MEMORY_FREE_FAILED := 28758,NZERROR_FILE_OPEN_FAILED := 28759,
|
||||
NZERROR_LIST_CREATION_FAILED := 28760,
|
||||
NZERROR_NO_ELEMENT := 28761,NZERROR_ELEMENT_ADD_FAILED := 28762,
|
||||
NZERROR_PARAMETER_BAD_TYPE := 28763,NZERROR_PARAMETER_RETRIEVAL := 28764,
|
||||
NZERROR_NO_LIST := 28765,NZERROR_TERMINATE_FAIL := 28766,
|
||||
NZERROR_BAD_VERSION_NUMBER := 28767,NZERROR_BAD_MAGIC_NUMBER := 28768,
|
||||
NZERROR_METHOD_NOT_FOUND := 28769,NZERROR_ALREADY_INITIALIZED := 28770,
|
||||
NZERROR_NOT_INITIALIZED := 28771,NZERROR_BAD_FILE_ID := 28772,
|
||||
NZERROR_WRITE_MAGIC_VERSION := 28773,NZERROR_FILE_WRITE_FAILED := 28774,
|
||||
NZERROR_FILE_CLOSE_FAILED := 28775,NZERROR_OUTPUT_BUFFER_TOO_SMALL := 28776,
|
||||
NZERROR_BINDING_CREATION_FAILED := 28777,
|
||||
NZERROR_PARAMETER_MALFORMED := 28778,NZERROR_PARAMETER_NO_METHOD := 28779,
|
||||
NZERROR_BAD_PARAMETER_METHOD := 28780,
|
||||
NZERROR_PARAMETER_NO_DATA := 28781,NZERROR_NOT_ALLOCATED := 28782,
|
||||
NZERROR_INVALID_PARAMETER := 28783,NZERROR_FILE_NAME_TRANSLATION := 28784,
|
||||
NZERROR_NO_SUCH_PARAMETER := 28785,NZERROR_DECRYPT_FAILED := 28786,
|
||||
NZERROR_ENCRYPT_FAILED := 28787,NZERROR_INVALID_INPUT := 28788,
|
||||
NZERROR_NAME_TYPE_NOT_FOUND := 28789,NZERROR_NLS_STRING_OPEN_FAILED := 28790,
|
||||
NZERROR_CERTIFICATE_VERIFY := 28791,NZERROR_OCI_PLSQL_FAILED := 28792,
|
||||
NZERROR_OCI_BIND_FAILED := 28793,NZERROR_ATTRIBUTE_INIT := 28794,
|
||||
NZERROR_ATTRIBUTE_FINISH_FAILED := 28795,
|
||||
NZERROR_UNSUPPORTED_METHOD := 28796,NZERROR_INVALID_KEY_DATA_TYPE := 28797,
|
||||
NZEROR_BIND_SUBKEY_COUNT := 28798,NZERROR_AUTH_SHARED_MEMORY := 28799,
|
||||
NZERROR_RIO_OPEN := 28800,NZERROR_RIO_OBJECT_TYPE := 28801,
|
||||
NZERROR_RIO_MODE := 28802,NZERROR_RIO_IO := 28803,
|
||||
NZERROR_RIO_CLOSE := 28804,NZERROR_RIO_RETRIEVE := 28805,
|
||||
NZERROR_RIO_STORE := 28806,NZERROR_RIO_UPDATE := 28807,
|
||||
NZERROR_RIO_INFO := 28808,NZERROR_RIO_DELETE := 28809,
|
||||
NZERROR_KD_CREATE := 28810,NZERROR_RIO_ACCESS_DESCRIPTOR := 28811,
|
||||
NZERROR_RIO_RECORD := 28812,NZERROR_RIO_RECORD_TYPE := 28813,
|
||||
NZERROR_PLSQL_ORACLE_TO_REAL := 28814,
|
||||
NZERROR_PLSQL_REAL_TO_ORACLE := 28815,
|
||||
NZERROR_TK_PLSQL_NO_PASSWORD := 28816,
|
||||
NZERROR_TK_PLSQL_GENERIC := 28817,NZERROR_TK_PLSQL_NO_CONTEXT := 28818,
|
||||
NZERROR_TK_PLSQL_NO_DIST_NAME := 28819,
|
||||
NZERROR_TK_PLSQL_NO_STATE := 28820,NZERROR_TK_PLSQL_NO_INPUT := 28821,
|
||||
NZERROR_TK_PLSQL_NO_SEED := 28822,NZERROR_TK_PLSQL_NO_BYTES := 28823,
|
||||
NZERROR_TK_INVALID_STATE := 28824,NZERROR_TK_PLSQL_NO_ENG_FUNC := 28825,
|
||||
NZERROR_TK_INV_ENG_FUNC := 28826,NZERROR_TK_INV_CIPHR_TYPE := 28827,
|
||||
NZERROR_TK_INV_IDENT_TYPE := 28828,NZERROR_TK_PLSQL_NO_CIPHER_TYPE := 28829,
|
||||
NZERROR_TK_PLSQL_NO_IDENT_TYPE := 28830,
|
||||
NZERROR_TK_PLSQL_NO_DATA_FMT := 28831,
|
||||
NZERROR_TK_INV_DATA_FMT := 28832,NZERROR_TK_PLSQL_INSUFF_INFO := 28833,
|
||||
NZERROR_TK_PLSQL_BUF_TOO_SMALL := 28834,
|
||||
NZERROR_TK_PLSQL_INV_IDENT_DESC := 28835,
|
||||
NZERROR_TK_PLSQL_WALLET_NOTOPEN := 28836,
|
||||
NZERROR_TK_PLSQL_NO_WALLET := 28837,NZERROR_TK_PLSQL_NO_IDENTITY := 28838,
|
||||
NZERROR_TK_PLSQL_NO_PERSONA := 28839,NZERROR_TK_PLSQL_WALLET_OPEN := 28840,
|
||||
NZERROR_UNSUPPORTED := 28841,NZERROR_FILE_BAD_PERMISSION := 28842,
|
||||
NZERROR_FILE_OSD_ERROR := 28843,NZERROR_NO_WALLET := 28844,
|
||||
NZERROR_NO_CERTIFICATE_ALERT := 28845,
|
||||
NZERROR_NO_PRIVATE_KEY := 28846,NZERROR_NO_CLEAR_PRIVATE_KEY_FILE := 28847,
|
||||
NZERROR_NO_ENCRYPTED_PRIVATE_KEY_FILE := 28848,
|
||||
NZERROR_NO_TRUSTPOINTS := 28849,NZERROR_NO_CLEAR_TRUSTPOINT_FILE := 28850,
|
||||
NZERROR_NO_ENCRYPTED_TRUSTPOINT_FILE := 28851,
|
||||
NZERROR_BAD_PASSWORD := 28852,NZERROR_INITIALIZATION_FAILED := 28853,
|
||||
NZERROR_SSLMemoryErr := 28854,NZERROR_SSLUnsupportedErr := 28855,
|
||||
NZERROR_SSLOverflowErr := 28856,NZERROR_SSLUnknownErr := 28857,
|
||||
NZERROR_SSLProtocolErr := 28858,NZERROR_SSLNegotiationErr := 28859,
|
||||
NZERROR_SSLFatalAlert := 28860,NZERROR_SSLWouldBlockErr := 28861,
|
||||
NZERROR_SSLIOErr := 28862,NZERROR_SSLSessionNotFoundErr := 28863,
|
||||
NZERROR_SSLConnectionClosedGraceful := 28864,
|
||||
NZERROR_SSLConnectionClosedError := 28865,
|
||||
NZERROR_ASNBadEncodingErr := 28866,NZERROR_ASNIntegerTooBigErr := 28867,
|
||||
NZERROR_X509CertChainInvalidErr := 28868,
|
||||
NZERROR_X509CertExpiredErr := 28869,NZERROR_X509NamesNotEqualErr := 28870,
|
||||
NZERROR_X509CertChainIncompleteErr := 28871,
|
||||
NZERROR_X509DataNotFoundErr := 28872,NZERROR_SSLBadParameterErr := 28873,
|
||||
NZERROR_SSLIOClosedOverrideGoodbyeKiss := 28874,
|
||||
NZERROR_X509MozillaSGCErr := 28875,NZERROR_X509IESGCErr := 28876,
|
||||
NZERROR_ImproperServerCredentials := 28877,
|
||||
NZERROR_ImproperClientCredentials := 28878,
|
||||
NZERROR_NoProtocolSideSet := 28879,NZERROR_setPersonaFailed := 28880,
|
||||
NZERROR_setCertFailed := 28881,NZERROR_setVKeyFailed := 28882,
|
||||
NZERROR_setTPFailed := 28883,NZERROR_BadCipherSuite := 28884,
|
||||
NZERROR_NoKeyPairForKeyUsage := 28885,
|
||||
NZERROR_EntrustLoginFailed := 28890,NZERROR_EntrustGetInfoFailed := 28891,
|
||||
NZERROR_EntrustLoadCertificateFailed := 28892,
|
||||
NZERROR_EntrustGetNameFailed := 28893,
|
||||
NZERROR_CertNotInstalled := 29000,NZERROR_ServerDNMisMatched := 29002,
|
||||
NZERROR_ServerDNMisConfigured := 29003,
|
||||
NZERROR_CIC_ERR_SSL_ALERT_CB_FAILURE := 29004,
|
||||
NZERROR_CIC_ERR_SSL_BAD_CERTIFICATE := 29005,
|
||||
NZERROR_CIC_ERR_SSL_BAD_CERTIFICATE_REQUEST := 29006,
|
||||
NZERROR_CIC_ERR_SSL_BAD_CLEAR_KEY_LEN := 29007,
|
||||
NZERROR_CIC_ERR_SSL_BAD_DHPARAM_KEY_LENGTH := 29008,
|
||||
NZERROR_CIC_ERR_SSL_BAD_ENCRYPTED_KEY_LEN := 29009,
|
||||
NZERROR_CIC_ERR_SSL_BAD_EXPORT_KEY_LENGTH := 29010,
|
||||
NZERROR_CIC_ERR_SSL_BAD_FINISHED_MESSAGE := 29011,
|
||||
NZERROR_CIC_ERR_SSL_BAD_KEY_ARG_LEN := 29012,
|
||||
NZERROR_CIC_ERR_SSL_BAD_MAC := 29013,NZERROR_CIC_ERR_SSL_BAD_MAX_FRAGMENT_LENGTH_EXTENSION := 29014,
|
||||
NZERROR_CIC_ERR_SSL_BAD_MESSAGE_LENGTH := 29015,
|
||||
NZERROR_CIC_ERR_SSL_BAD_PKCS1_PADDING := 29016,
|
||||
NZERROR_CIC_ERR_SSL_BAD_PREMASTER_SECRET_LENGTH := 29017,
|
||||
NZERROR_CIC_ERR_SSL_BAD_PREMASTER_SECRET_VERSION := 29018,
|
||||
NZERROR_CIC_ERR_SSL_BAD_PROTOCOL_VERSION := 29019,
|
||||
NZERROR_CIC_ERR_SSL_BAD_RECORD_LENGTH := 29020,
|
||||
NZERROR_CIC_ERR_SSL_BAD_SECRET_KEY_LEN := 29021,
|
||||
NZERROR_CIC_ERR_SSL_BAD_SIDE := 29022,
|
||||
NZERROR_CIC_ERR_SSL_BUFFERS_NOT_EMPTY := 29023,
|
||||
NZERROR_CIC_ERR_SSL_CERTIFICATE_VALIDATE_FAILED := 29024,
|
||||
NZERROR_CIC_ERR_SSL_CERT_CHECK_CALLBACK := 29025,
|
||||
NZERROR_CIC_ERR_SSL_DECRYPT_FAILED := 29026,
|
||||
NZERROR_CIC_ERR_SSL_ENTROPY_COLLECTION := 29027,
|
||||
NZERROR_CIC_ERR_SSL_FAIL_SERVER_VERIFY := 29028,
|
||||
NZERROR_CIC_ERR_SSL_HANDSHAKE_ALREADY_COMPLETED := 29029,
|
||||
NZERROR_CIC_ERR_SSL_HANDSHAKE_REQUESTED := 29030,
|
||||
NZERROR_CIC_ERR_SSL_HANDSHAKE_REQUIRED := 29031,
|
||||
NZERROR_CIC_ERR_SSL_INCOMPLETE_IDENTITY := 29032,
|
||||
NZERROR_CIC_ERR_SSL_INVALID_PFX := 29033,
|
||||
NZERROR_CIC_ERR_SSL_NEEDS_CIPHER_OR_CLIENTAUTH := 29034,
|
||||
NZERROR_CIC_ERR_SSL_NEEDS_PRNG := 29035,
|
||||
NZERROR_CIC_ERR_SSL_NOT_SUPPORTED := 29036,
|
||||
NZERROR_CIC_ERR_SSL_NO_CERTIFICATE := 29037,
|
||||
NZERROR_CIC_ERR_SSL_NO_MATCHING_CERTIFICATES := 29038,
|
||||
NZERROR_CIC_ERR_SSL_NO_MATCHING_CIPHER_SUITES := 29039,
|
||||
NZERROR_CIC_ERR_SSL_NO_SUPPORTED_CIPHER_SUITES := 29040,
|
||||
NZERROR_CIC_ERR_SSL_NULL_CB := 29041,NZERROR_CIC_ERR_SSL_READ_BUFFER_NOT_EMPTY := 29042,
|
||||
NZERROR_CIC_ERR_SSL_READ_REQUIRED := 29043,
|
||||
NZERROR_CIC_ERR_SSL_RENEGOTIATION_ALREADY_REQUESTED := 29044,
|
||||
NZERROR_CIC_ERR_SSL_RENEGOTIATION_REFUSED := 29045,
|
||||
NZERROR_CIC_ERR_SSL_RESUMABLE_SESSION := 29046,
|
||||
NZERROR_CIC_ERR_SSL_TLS_EXTENSION_MISMATCH := 29047,
|
||||
NZERROR_CIC_ERR_SSL_UNEXPECTED_MSG := 29048,
|
||||
NZERROR_CIC_ERR_SSL_UNKNOWN_RECORD := 29049,
|
||||
NZERROR_CIC_ERR_SSL_UNSUPPORTED_CLIENT_AUTH_MODE := 29050,
|
||||
NZERROR_CIC_ERR_SSL_UNSUPPORTED_PUBKEY_TYPE := 29051,
|
||||
NZERROR_CIC_ERR_SSL_WRITE_BUFFER_NOT_EMPTY := 29052,
|
||||
NZERROR_CIC_ERR_PKCS12_MISSING_ALG := 29053,
|
||||
NZERROR_CIC_ERR_PKCS_AUTH_FAILED := 29054,
|
||||
NZERROR_CIC_ERR_PKCS_BAD_CONTENT_TYPE := 29055,
|
||||
NZERROR_CIC_ERR_PKCS_BAD_INPUT := 29056,
|
||||
NZERROR_CIC_ERR_PKCS_BAD_PADDING := 29057,
|
||||
NZERROR_CIC_ERR_PKCS_BAD_SN := 29058,NZERROR_CIC_ERR_PKCS_BAD_SN_LENGTH := 29059,
|
||||
NZERROR_CIC_ERR_PKCS_BAD_VERSION := 29060,
|
||||
NZERROR_CIC_ERR_PKCS_BASE := 29061,NZERROR_CIC_ERR_PKCS_FIELD_NOT_PRESENT := 29062,
|
||||
NZERROR_CIC_ERR_PKCS_NEED_CERTVAL := 29063,
|
||||
NZERROR_CIC_ERR_PKCS_NEED_PASSWORD := 29064,
|
||||
NZERROR_CIC_ERR_PKCS_NEED_PKC := 29065,
|
||||
NZERROR_CIC_ERR_PKCS_NEED_PRV_KEY := 29066,
|
||||
NZERROR_CIC_ERR_PKCS_NEED_TRUSTED := 29067,
|
||||
NZERROR_CIC_ERR_PKCS_UNSUPPORTED_CERT_FORMAT := 29068,
|
||||
NZERROR_CIC_ERR_PKCS_UNSUP_PRVKEY_TYPE := 29069,
|
||||
NZERROR_CIC_ERR_CODING_BAD_PEM := 29070,
|
||||
NZERROR_CIC_ERR_CODING_BASE := 29071,NZERROR_CIC_ERR_DER_BAD_ENCODING := 29072,
|
||||
NZERROR_CIC_ERR_DER_BAD_ENCODING_LENGTH := 29073,
|
||||
NZERROR_CIC_ERR_DER_BASE := 29074,NZERROR_CIC_ERR_DER_ELEMENT_TOO_LONG := 29075,
|
||||
NZERROR_CIC_ERR_DER_INDEFINITE_LENGTH := 29076,
|
||||
NZERROR_CIC_ERR_DER_NO_MORE_ELEMENTS := 29077,
|
||||
NZERROR_CIC_ERR_DER_OBJECT_TOO_LONG := 29078,
|
||||
NZERROR_CIC_ERR_DER_TAG_SIZE := 29079,
|
||||
NZERROR_CIC_ERR_DER_TIME_OUT_OF_RANGE := 29080,
|
||||
NZERROR_CIC_ERR_DER_UNUSED_BITS_IN_BIT_STR := 29081,
|
||||
NZERROR_CIC_ERR_GENERAL_BASE := 29082,
|
||||
NZERROR_CIC_ERR_HASH_BASE := 29083,NZERROR_CIC_ERR_ILLEGAL_PARAM := 29084,
|
||||
NZERROR_CIC_ERR_MEM_NOT_OURS := 29085,
|
||||
NZERROR_CIC_ERR_MEM_OVERRUN := 29086,NZERROR_CIC_ERR_MEM_UNDERRUN := 29087,
|
||||
NZERROR_CIC_ERR_MEM_WAS_FREED := 29088,
|
||||
NZERROR_CIC_ERR_NOT_FOUND := 29090,NZERROR_CIC_ERR_NO_PTR := 29091,
|
||||
NZERROR_CIC_ERR_TIMEOUT := 29092,NZERROR_CIC_ERR_UNIT_MASK := 29093,
|
||||
NZERROR_CIC_ERR_BAD_CTX := 29094,NZERROR_CIC_ERR_BAD_INDEX := 29095,
|
||||
NZERROR_CIC_ERR_BAD_LENGTH := 29096,NZERROR_CIC_ERR_CODING_BAD_ENCODING := 29097,
|
||||
NZERROR_CIC_ERR_SSL_NO_CLIENT_AUTH_MODES := 29098,
|
||||
NZERROR_LOCKEYID_CREATE_FAILED := 29100,
|
||||
NZERROR_P12_ADD_PVTKEY_FAILED := 29101,
|
||||
NZERROR_P12_ADD_CERT_FAILED := 29102,NZERROR_P12_WLT_CREATE_FAILED := 29103,
|
||||
NZERROR_P12_ADD_CERTREQ_FAILED := 29104,
|
||||
NZERROR_P12_WLT_EXP_FAILED := 29105,NZERROR_P12_WLT_IMP_FAILED := 29106,
|
||||
NZERROR_P12_CREATE_FAILED := 29107,NZERROR_P12_DEST_FAILED := 29107,
|
||||
NZERROR_P12_RAND_ERROR := 29108,NZERROR_P12_PVTKEY_CRT_FAILED := 29109,
|
||||
NZERROR_P12_INVALID_BAG := 29110,NZERROR_P12_INVALID_INDEX := 29111,
|
||||
NZERROR_P12_GET_CERT_FAILED := 29112,NZERROR_P12_GET_PVTKEY_FAILED := 29113,
|
||||
NZERROR_P12_IMP_PVTKEY_FAILED := 29114,
|
||||
NZERROR_P12_EXP_PVTKEY_FAILED := 29115,
|
||||
NZERROR_P12_GET_ATTRIB_FAILED := 29116,
|
||||
NZERROR_P12_ADD_ATTRIB_FAILED := 29117,
|
||||
NZERROR_P12_CRT_ATTRIB_FAILED := 29118,
|
||||
NZERROR_P12_IMP_CERT_FAILED := 29119,NZERROR_P12_EXP_CERT_FAILED := 29120,
|
||||
NZERROR_P12_ADD_SECRET_FAILED := 29121,
|
||||
NZERROR_P12_ADD_PKCS11INFO_FAILED := 29122,
|
||||
NZERROR_P12_GET_PKCS11INFO_FAILED := 29123,
|
||||
NZERROR_P12_MULTIPLE_PKCS11_LIBNAME := 29124,
|
||||
NZERROR_P12_MULTIPLE_PKCS11_TOKENLABEL := 29125,
|
||||
NZERROR_P12_MULTIPLE_PKCS11_TOKENPASSPHRASE := 29126,
|
||||
NZERROR_P12_UNKNOWN_PKCS11INFO := 29127,
|
||||
NZERROR_P12_PKCS11_LIBNAME_NOT_SET := 29128,
|
||||
NZERROR_P12_PKCS11_TOKENLABEL_NOT_SET := 29129,
|
||||
NZERROR_P12_PKCS11_TOKENPASSPHRASE_NOT_SET := 29130,
|
||||
NZERROR_P12_MULTIPLE_PKCS11_CERTLABEL := 29131,
|
||||
NZERROR_CIC_ERR_RANDOM := 29135,NZERROR_CIC_ERR_SMALL_BUFFER := 29136,
|
||||
NZERROR_CIC_ERR_SSL_BAD_CONTEXT := 29137,
|
||||
NZERROR_MUTEX_INITIALIZE_FAILED := 29138,
|
||||
NZERROR_MUTEX_DESTROY_FAILED := 29139,
|
||||
NZERROR_BS_CERTOBJ_CREAT_FAILED := 29140,
|
||||
NZERROR_BS_DER_IMP_FAILED := 29141,NZERROR_DES_SELF_TEST_FAILED := 29150,
|
||||
NZERROR_3DES_SELF_TEST_FAILED := 29151,
|
||||
NZERROR_SHA_SELF_TEST_FAILED := 29152,
|
||||
NZERROR_RSA_SELF_TEST_FAILED := 29153,
|
||||
NZERROR_DRNG_SELF_TEST_FAILED := 29154,
|
||||
NZERROR_CKEYPAIR_SELF_TEST_FAILED := 29155,
|
||||
NZERROR_CRNG_SELF_TEST_FAILED := 29156,
|
||||
NZERROR_FIPS_PATHNAME_ERROR := 29157,NZERROR_FIPS_LIB_OPEN_FAILED := 29158,
|
||||
NZERROR_FIPS_LIB_READ_ERROR := 29159,NZERROR_FIPS_LIB_DIFFERS := 29160,
|
||||
NZERROR_DAC_SELF_TEST_FAILED := 29161,
|
||||
NZERROR_NONFIPS_CIPHERSUITE := 29162,NZERROR_VENDOR_NOT_SUPPORTED_FIPS_MODE := 29163,
|
||||
NZERROR_EXTERNAL_PKCS12_NOT_SUPPORTED_FIPS_MODE := 29164,
|
||||
NZERROR_AES_SELF_TEST_FAILED := 29165,
|
||||
NZERROR_CRL_SIG_VERIFY_FAILED := 29176,
|
||||
NZERROR_CERT_NOT_IN_CRL := 29177,NZERROR_CERT_IN_CRL := 29178,
|
||||
NZERROR_CERT_IN_CRL_CHECK_FAILED := 29179,
|
||||
NZERROR_INVALID_CERT_STATUS_PROTOCOL := 29180,
|
||||
NZERROR_LDAP_OPEN_FAILED := 29181,NZERROR_LDAP_BIND_FAILED := 29182,
|
||||
NZERROR_LDAP_SEARCH_FAILED := 29183,NZERROR_LDAP_RESULT_FAILED := 29184,
|
||||
NZERROR_LDAP_FIRSTATTR_FAILED := 29185,
|
||||
NZERROR_LDAP_GETVALUESLEN_FAILED := 29186,
|
||||
NZERROR_LDAP_UNSUPPORTED_VALMEC := 29187,
|
||||
NZERROR_LDAP_COUNT_ENTRIES_FAILED := 29188,
|
||||
NZERROR_LDAP_NO_ENTRY_FOUND := 29189,NZERROR_LDAP_MULTIPLE_ENTRIES_FOUND := 29190,
|
||||
NZERROR_OID_INFO_NOT_SET := 29191,NZERROR_LDAP_VALMEC_NOT_SET := 29192,
|
||||
NZERROR_CRLDP_NO_CRL_FOUND := 29193,NZERROR_CRL_NOT_IN_CACHE := 29194,
|
||||
NZERROR_CRL_EXPIRED := 29195,NZERROR_DN_MATCH := 29222,
|
||||
NZERROR_CERT_CHAIN_CREATION := 29223,NZERROR_NO_MATCHING_CERT_REQ := 29224,
|
||||
NZERROR_CERT_ALREADY_INSTALLED := 29225,
|
||||
NZERROR_NO_MATCHING_PRIVATE_KEY := 29226,
|
||||
NZERROR_VALIDITY_EXPIRED := 29227,NZERROR_TK_BYTES_NEEDED := 29228,
|
||||
NZERROR_TK_BAD_MAGIC_NUMBER := 29229,NZERROR_TK_BAD_HEADER_LENGTH := 29230,
|
||||
NZERROR_TK_CE_INIT := 29231,NZERROR_TK_CE_KEYINIT := 29232,
|
||||
NZERROR_TK_CE_ENCODE_KEY := 29233,NZERROR_TK_CE_DECODE_KEY := 29234,
|
||||
NZERROR_TK_CE_GEYKEYINFO := 29235,NZERROR_TK_SEED_RANDOM := 29236,
|
||||
NZERROR_TK_CE_ALGFINISH := 29237,NZERROR_TK_CE_ALGAPPLY := 29238,
|
||||
NZERROR_TK_CE_ALGINIT := 29239,NZERROR_TK_ALGORITHM := 29240,
|
||||
NZERROR_TK_CANNOT_GROW := 29241,NZERROR_TK_KEYSIZE := 29242,
|
||||
NZERROR_TK_KEYTYPE := 29243,NZERROR_TK_PLSQL_NO_WRL := 29244,
|
||||
NZERROR_TK_CE_FUNC := 29245,NZERROR_TK_TDU_FORMAT := 29246,
|
||||
NZERROR_TK_NOTOPEN := 29247,NZERROR_TK_WRLTYPE := 29248,
|
||||
NZERROR_TK_CE_STATE := 29249,NZERROR_PKCS11_LIBRARY_NOT_FOUND := 43000,
|
||||
NZERROR_PKCS11_TOKEN_NOT_FOUND := 43001,
|
||||
NZERROR_PKCS11_BAD_PASSPHRASE := 43002,
|
||||
NZERROR_PKCS11_GET_FUNC_LIST := 43003,
|
||||
NZERROR_PKCS11_INITIALIZE := 43004,NZERROR_PKCS11_NO_TOKENS_PRESENT := 43005,
|
||||
NZERROR_PKCS11_GET_SLOT_LIST := 43006,
|
||||
NZERROR_PKCS11_GET_TOKEN_INFO := 43008,
|
||||
NZERROR_PKCS11_SYMBOL_NOT_FOUND := 43009,
|
||||
NZERROR_PKCS11_TOKEN_LOGIN_FAILED := 43011,
|
||||
NZERROR_PKCS11_CHANGE_PROVIDERS_ERROR := 43013,
|
||||
NZERROR_PKCS11_GET_PRIVATE_KEY_ERROR := 43014,
|
||||
NZERROR_PKCS11_CREATE_KEYPAIR_ERROR := 43015,
|
||||
NZERROR_PKCS11_WALLET_CONTAINS_P11_INFO := 43016,
|
||||
NZERROR_PKCS11_NO_CERT_ON_TOKEN := 43017,
|
||||
NZERROR_PKCS11_NO_USER_CERT_ON_TOKEN := 43018,
|
||||
NZERROR_PKCS11_NO_CERT_ON_TOKEN_WITH_GIVEN_LABEL := 43019,
|
||||
NZERROR_PKCS11_MULTIPLE_CERTS_ON_TOKEN_WITH_GIVEN_LABEL := 43020,
|
||||
NZERROR_PKCS11_CERT_WITH_LABEL_NOT_USER_CERT := 43021,
|
||||
NZERROR_BIND_SERVICE_ERROR := 43050,NZERROR_CREATE_KEY_OBJ_ERROR := 43051,
|
||||
NZERROR_GET_CERT_FIELDS := 43052,NZERROR_CREATE_PKCS10_OBJECT := 43053,
|
||||
NZERROR_SET_PKCS10_FIELDS := 43054,NZERROR_SIGN_CERT_REQUEST := 43055,
|
||||
NZERROR_GET_PKCS10_DER := 43056,NZERROR_INITIALIZE_CERTC := 43057,
|
||||
NZERROR_INSERT_PRIVATE_KEY := 43058,NZERROR_RSA_ERROR := 43059,
|
||||
NZERROR_SLTSCTX_INIT_FAILED := 43060,NZERROR_SLTSKYC_FAILED := 43061,
|
||||
NZERROR_SLTSCTX_TERM_FAILED := 43062,NZERROR_SLTSKYS_FAILED := 43063,
|
||||
NZERROR_INVALID_HEADER_LENGTH := 43070,
|
||||
NZERROR_WALLET_CONTAINS_USER_CREDENTIALS := 43071,
|
||||
NZERROR_LAST_ERROR := 43499,NZERROR_THIS_MUST_BE_LAST
|
||||
);
|
||||
{
|
||||
* Macro to convert SSL errors to Oracle errors. As SSL errors are negative
|
||||
* and Oracle numbers are positive, the following needs to be done.
|
||||
* 1. The base error number, which is the highest, is added to the
|
||||
* SSL error to get the index into the number range.
|
||||
* 2. The result is added to the base Oracle number to get the Oracle error.
|
||||
}
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
// function NZERROR_SSL_TO_ORACLE(ssl_error_ : longint) : longint;
|
||||
|
||||
{implementation
|
||||
|
||||
function NZERROR_SSL_TO_ORACLE(ssl_error_ : longint) : longint;
|
||||
var
|
||||
if_local1 : longint;
|
||||
(* result types are not known *)
|
||||
begin
|
||||
if ssl_error_=SSLNoErr then
|
||||
if_local1:=NZERROR_OK
|
||||
else
|
||||
if_local1:=nzerror((ssl_error_-SSLMemoryErr)+(uword(NZERROR_SSLMemoryErr)));
|
||||
NZERROR_SSL_TO_ORACLE:=if_local1;
|
||||
end;
|
||||
|
||||
|
||||
end.}
|
||||
2707
packages/base/oracle/nzt.inc
Normal file
2707
packages/base/oracle/nzt.inc
Normal file
File diff suppressed because it is too large
Load Diff
3914
packages/base/oracle/oci.inc
Normal file
3914
packages/base/oracle/oci.inc
Normal file
File diff suppressed because it is too large
Load Diff
8
packages/base/oracle/oci.pp
Normal file
8
packages/base/oracle/oci.pp
Normal file
@ -0,0 +1,8 @@
|
||||
unit oci;
|
||||
|
||||
{$UNDEF LinkDynamically}
|
||||
|
||||
{$i oci.inc}
|
||||
|
||||
end.
|
||||
|
||||
183
packages/base/oracle/oci1.inc
Normal file
183
packages/base/oracle/oci1.inc
Normal file
@ -0,0 +1,183 @@
|
||||
|
||||
{
|
||||
Automatically converted by H2Pas 1.0.0 from oci1.h
|
||||
The following command line parameters were used:
|
||||
-p
|
||||
-D
|
||||
-l
|
||||
jojo.so
|
||||
oci1.h
|
||||
}
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
{
|
||||
* $Header: oci1.h 02-dec-97.19:29:14 skabraha Exp $
|
||||
}
|
||||
{ Copyright (c) Oracle Corporation 1997, 1998. All Rights Reserved. } { NOTE: See 'header_template.doc' in the 'doc' dve under the 'forms'
|
||||
directory for the header file template that includes instructions.
|
||||
}
|
||||
{
|
||||
NAME
|
||||
oci1.h - Cartridge Service definitions
|
||||
|
||||
DESCRIPTION
|
||||
<short description of component this file declares/defines>
|
||||
|
||||
RELATED DOCUMENTS
|
||||
|
||||
INSPECTION STATUS
|
||||
Inspection date:
|
||||
Inspection status:
|
||||
Estimated increasing cost defects per page:
|
||||
Rule sets:
|
||||
|
||||
ACCEPTANCE REVIEW STATUS
|
||||
Review date:
|
||||
Review status:
|
||||
Reviewers:
|
||||
|
||||
PUBLIC FUNCTION(S)
|
||||
<list of external functions declared/defined - with one-line descriptions>
|
||||
|
||||
PRIVATE FUNCTION(S)
|
||||
<list of static functions defined in .c file - with one-line descriptions>
|
||||
|
||||
EXAMPLES
|
||||
|
||||
NOTES
|
||||
<other useful comments, qualifications, etc.>
|
||||
|
||||
MODIFIED (MM/DD/YY)
|
||||
nramakri 01/16/98 - remove #ifdef NEVER clause
|
||||
ewaugh 12/18/97 - Turn type wrappers into functions.
|
||||
skabraha 12/02/97 - Adding data structures & constants for OCIFile
|
||||
rhwu 12/02/97 - OCI Thread
|
||||
nramakri 12/15/97 - move to core4
|
||||
ewaugh 12/11/97 - add OCIFormat package constants
|
||||
ssamu 12/10/97 - do not include s.h
|
||||
nramakri 11/19/97 - add OCIExtract definitions
|
||||
ssamu 11/14/97 - creation
|
||||
|
||||
}
|
||||
{---------------------------------------------------------------------------
|
||||
PUBLIC TYPES AND CONSTANTS
|
||||
--------------------------------------------------------------------------- }
|
||||
{ Constants required by the OCIFormat package. }
|
||||
{
|
||||
#define OCIFormatUb1(variable) OCIFormatTUb1(), &(variable)
|
||||
#define OCIFormatUb2(variable) OCIFormatTUb2(), &(variable)
|
||||
#define OCIFormatUb4(variable) OCIFormatTUb4(), &(variable)
|
||||
#define OCIFormatUword(variable) OCIFormatTUword(), &(variable)
|
||||
#define OCIFormatUbig_ora(variable) OCIFormatTUbig_ora(), &(variable)
|
||||
#define OCIFormatSb1(variable) OCIFormatTSb1(), &(variable)
|
||||
#define OCIFormatSb2(variable) OCIFormatTSb2(), &(variable)
|
||||
#define OCIFormatSb4(variable) OCIFormatTSb4(), &(variable)
|
||||
#define OCIFormatSword(variable) OCIFormatTSword(), &(variable)
|
||||
#define OCIFormatSbig_ora(variable) OCIFormatTSbig_ora(), &(variable)
|
||||
#define OCIFormatEb1(variable) OCIFormatTEb1(), &(variable)
|
||||
#define OCIFormatEb2(variable) OCIFormatTEb2(), &(variable)
|
||||
#define OCIFormatEb4(variable) OCIFormatTEb4(), &(variable)
|
||||
#define OCIFormatEword(variable) OCIFormatTEword(), &(variable)
|
||||
#define OCIFormatChar(variable) OCIFormatTChar(), &(variable)
|
||||
#define OCIFormatText(variable) OCIFormatTText(), (variable)
|
||||
#define OCIFormatDouble(variable) OCIFormatTDouble(), &(variable)
|
||||
#define OCIFormatDvoid(variable) OCIFormatTDvoid(), (variable)
|
||||
#define OCIFormatEnd OCIFormatTEnd()
|
||||
}
|
||||
|
||||
const
|
||||
OCIFormatDP = 6;
|
||||
{----------------- Public Constants for OCIFile ------------------------- }
|
||||
{ flags for open. }
|
||||
{ flags for mode }
|
||||
{ open for read only }
|
||||
OCI_FILE_READ_ONLY = 1;
|
||||
{ open for write only }
|
||||
OCI_FILE_WRITE_ONLY = 2;
|
||||
{ open for read & write }
|
||||
OCI_FILE_READ_WRITE = 3;
|
||||
{ flags for create }
|
||||
{ the file should exist }
|
||||
OCI_FILE_EXIST = 0;
|
||||
{ create if the file doesn't exist }
|
||||
OCI_FILE_CREATE = 1;
|
||||
{ the file should not exist }
|
||||
OCI_FILE_EXCL = 2;
|
||||
{ create if the file doesn't exist,
|
||||
else truncate file the file to 0 }
|
||||
OCI_FILE_TRUNCATE = 4;
|
||||
{ open the file in append mode }
|
||||
OCI_FILE_APPEND = 8;
|
||||
{ flags for seek }
|
||||
{ seek from the beginning of the file }
|
||||
OCI_FILE_SEEK_BEGINNING = 1;
|
||||
{ seek from the current position }
|
||||
OCI_FILE_SEEK_CURRENT = 2;
|
||||
{ seek from the end of the file }
|
||||
OCI_FILE_SEEK_END = 3;
|
||||
{ seek forward }
|
||||
OCI_FILE_FORWARD = 1;
|
||||
{ seek backward }
|
||||
OCI_FILE_BACKWARD = 2;
|
||||
{ file type }
|
||||
{ binary file }
|
||||
OCI_FILE_BIN = 0;
|
||||
{ text file }
|
||||
OCI_FILE_TEXT = 1;
|
||||
{ standard i/p }
|
||||
OCI_FILE_STDIN = 2;
|
||||
{ standard o/p }
|
||||
OCI_FILE_STDOUT = 3;
|
||||
{ standard error }
|
||||
OCI_FILE_STDERR = 4;
|
||||
{ Represents an open file }
|
||||
type
|
||||
POCIFileObject = pointer;
|
||||
|
||||
{--------------------- OCI Thread Object Definitions------------------------ }
|
||||
POCIThreadContext = pointer; // OCIThread Context
|
||||
POCIThreadMutex = pointer; // OCIThread Mutual Exclusion Lock
|
||||
POCIThreadKey = pointer; // OCIThread Key for Thread-Specific Data
|
||||
POCIThreadID = pointer; // OCIThread Thread ID
|
||||
POCIThreadHandle = pointer; // OCIThread Thread Handle
|
||||
{-------------------- OCI Thread Callback Function Pointers ---------------- }
|
||||
{ OCIThread Key Destructor Function Type }
|
||||
|
||||
OCIThreadKeyDestFunc = procedure ;cdecl;
|
||||
{ Flags passed into OCIExtractFromXXX routines to direct processing }
|
||||
{ matching is case sensitive }
|
||||
|
||||
const
|
||||
OCI_EXTRACT_CASE_SENSITIVE = $1;
|
||||
{ unique abbreviations for keys
|
||||
are allowed }
|
||||
OCI_EXTRACT_UNIQUE_ABBREVS = $2;
|
||||
{ if multiple values for a key
|
||||
exist, this determines if the
|
||||
new value should be appended
|
||||
to (or replace) the current
|
||||
list of values }
|
||||
OCI_EXTRACT_APPEND_VALUES = $4;
|
||||
{ Constants passed into OCIExtractSetKey routine }
|
||||
{ key can accept multiple values }
|
||||
OCI_EXTRACT_MULTIPLE = $8;
|
||||
{ key type is boolean }
|
||||
OCI_EXTRACT_TYPE_BOOLEAN = 1;
|
||||
{ key type is string }
|
||||
OCI_EXTRACT_TYPE_STRING = 2;
|
||||
{ key type is integer }
|
||||
OCI_EXTRACT_TYPE_INTEGER = 3;
|
||||
{ key type is ocinum }
|
||||
OCI_EXTRACT_TYPE_OCINUM = 4;
|
||||
{---------------------------------------------------------------------------
|
||||
PRIVATE TYPES AND CONSTANTS
|
||||
--------------------------------------------------------------------------- }
|
||||
{---------------------------------------------------------------------------
|
||||
PUBLIC FUNCTIONS
|
||||
--------------------------------------------------------------------------- }
|
||||
{---------------------------------------------------------------------------
|
||||
PRIVATE FUNCTIONS
|
||||
--------------------------------------------------------------------------- }
|
||||
|
||||
|
||||
10997
packages/base/oracle/ociap.inc
Normal file
10997
packages/base/oracle/ociap.inc
Normal file
File diff suppressed because it is too large
Load Diff
336
packages/base/oracle/ocidfn.inc
Normal file
336
packages/base/oracle/ocidfn.inc
Normal file
@ -0,0 +1,336 @@
|
||||
|
||||
{
|
||||
Automatically converted by H2Pas 1.0.0 from ocidfn.h
|
||||
The following command line parameters were used:
|
||||
-p
|
||||
-D
|
||||
-l
|
||||
jojo.so
|
||||
ocidfn.h
|
||||
}
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
{
|
||||
* $Header: ocidfn.h 25-nov-2002.11:03:03 srseshad Exp $
|
||||
}
|
||||
{ Copyright (c) 1991, 2002, Oracle Corporation. All rights reserved. }
|
||||
{ Copyright (c) 1991, 2002, Oracle Corporation. All rights reserved. }
|
||||
{
|
||||
NAME
|
||||
ocidfn.h - OCI Definations
|
||||
NOTES
|
||||
Shipped to users.
|
||||
MODIFIED (MM/DD/YY)
|
||||
srseshad 11/25/02 - change binary float/double codes
|
||||
srseshad 11/14/02 - Add SQLT_IBFLOAT, SQLT_IBDOUBLE
|
||||
mxyang 09/17/02 - grabtrans 'mmorsi_obj_float'
|
||||
srseshad 09/06/02 - Add binary float/double
|
||||
aahluwal 06/04/02 - bug 2360115
|
||||
kmuthukk 05/02/00 - add SQLT_PNTY
|
||||
amangal 07/30/99 - Merge into 8.1.6 : Bug 879031
|
||||
tnbui 07/28/99 - Remove SQLT_TIMESTAMP_ITZ
|
||||
tnbui 07/21/99 - SQLT_TIMESTAMP_LTZ
|
||||
tnbui 06/16/99 - TIMESTAMP WITH IMPLICIT TIME ZONE
|
||||
whe 04/07/99 - bug#810075
|
||||
whe 03/19/99 - lrg 32079 etc.: move HDA def from ocidem.h to ocidfn.
|
||||
skmishra 05/10/98 -
|
||||
vyanaman 04/16/98 - update sql92 datatypes
|
||||
khnguyen 01/16/98 -
|
||||
khnguyen 12/23/97 - SQLT* for datetimes and intervals
|
||||
tanguyen 08/19/97 -
|
||||
dchatter 03/18/97 - porting exception 390897
|
||||
dchatter 05/02/97 - merge porting exception
|
||||
dalpern 12/04/96 - SQLCS_LIT_NULL added
|
||||
cxcheng 11/14/96 - add SQLT_BFILE/SQLT_CFILE to fix compile prob
|
||||
cxcheng 11/12/96 - add SQLT_NCO for named collection
|
||||
lchidamb 10/17/96 - add SQLT_VST and SQLT_ODT
|
||||
sgollapu 10/14/96 - Mutual exclusion of ocidfn and sqldef
|
||||
sgollapu 10/07/96 - OCI Simplification
|
||||
aroy 09/09/96 - add SQLCS* definitions
|
||||
slari 08/07/96 - add SQLT_RDD, rowid descriptor
|
||||
slari 06/12/96 - remove SQLT_TTBL
|
||||
dchatter 04/21/96 - prepare for merge into main
|
||||
slari 08/24/95 - b299432, define CDA_SIZE
|
||||
zwalcott 02/28/96 - add SQLT_BFILEE and SQLT_CFILEE.
|
||||
lchidamb 02/22/96 - make dtys consistent with dtydef.h
|
||||
lchidamb 02/16/96 - add SQLT_BFILEE and SQLT_CFILEE
|
||||
lchidamb 01/30/96 - rename new datatypes for v8
|
||||
lchidamb 09/06/95 - add new datatypes
|
||||
slari 05/11/95 - add OCI_EV_DEF and OCI_EV_TSF
|
||||
dchatter 04/06/95 - add ifdef flags around OCI_flags
|
||||
dchatter 03/08/95 - piece values
|
||||
dchatter 03/06/95 - merge changes from branch 1.2.720.3
|
||||
jfbrown 02/17/95 - merge changes from branch 1.2.720.2
|
||||
dchatter 02/08/95 - olog call modes
|
||||
jfbrown 02/03/95 - remove non-printable characters
|
||||
lchidamb 12/06/94 - merge changes from branch 1.2.720.1
|
||||
lchidamb 10/04/94 - added field chk to cda_head, cda_def
|
||||
dchatter 07/05/94 - SQLT_CUR added
|
||||
rkooi2 11/27/92 - Changing e* datatypes to s*
|
||||
rkooi2 10/26/92 - More portability mods
|
||||
rkooi2 10/22/92 - Added #ifndef ORATYPES ...
|
||||
rkooi2 10/18/92 - Changes to make it portable.
|
||||
sjain 03/16/92 - Creation
|
||||
}
|
||||
{
|
||||
* ocidfn.h
|
||||
*
|
||||
* Common header file for OCI C sample programs.
|
||||
* This header declares the cursor and logon data area structure.
|
||||
* The types used are defined in <oratypes.h>.
|
||||
*
|
||||
}
|
||||
{ The cda_head struct is strictly PRIVATE. It is used
|
||||
internally only. Do not use this struct in OCI programs. }
|
||||
type
|
||||
Pdvoid = pointer;
|
||||
Ppdvoid = ^Pdvoid;
|
||||
PPpdvoid = ^PPdvoid;
|
||||
|
||||
type
|
||||
Pcda_head = ^cda_head;
|
||||
cda_head = record
|
||||
v2_rc : sb2;
|
||||
ft : ub2;
|
||||
rpc : ub4;
|
||||
peo : ub2;
|
||||
fc : ub1;
|
||||
rcs1 : ub1;
|
||||
rc : ub2;
|
||||
wrn : ub1;
|
||||
rcs2 : ub1;
|
||||
rcs3 : sword;
|
||||
rid : record
|
||||
rd : record
|
||||
rcs4 : ub4;
|
||||
rcs5 : ub2;
|
||||
rcs6 : ub1;
|
||||
end;
|
||||
rcs7 : ub4;
|
||||
rcs8 : ub2;
|
||||
end;
|
||||
ose : sword;
|
||||
chk : ub1;
|
||||
rcsp : Pdvoid;
|
||||
end;
|
||||
|
||||
{
|
||||
** Size of HDA area:
|
||||
** 512 for 64 bit arquitectures
|
||||
** 256 for 32 bit arquitectures
|
||||
}
|
||||
{ $if defined(SS_64BIT_SERVER) || defined(__64BIT__)}
|
||||
|
||||
// const
|
||||
// HDA_SIZE = 512;
|
||||
{ $else}
|
||||
|
||||
const
|
||||
HDA_SIZE = 256;
|
||||
{ $endif}
|
||||
{ $if defined(SS_64BIT_SERVER) || defined(__64BIT__)}
|
||||
|
||||
// const
|
||||
// CDA_SIZE = 88;
|
||||
{ $else}
|
||||
|
||||
const
|
||||
CDA_SIZE = 64;
|
||||
{ $endif}
|
||||
{ the real CDA, padded to CDA_SIZE bytes in size }
|
||||
{ V2 return code }
|
||||
{ SQL function type }
|
||||
{ rows processed count }
|
||||
{ parse error offset }
|
||||
{ OCI function code }
|
||||
{ filler area }
|
||||
{ V7 return code }
|
||||
{ warning flags }
|
||||
{ reserved }
|
||||
{ reserved }
|
||||
{ rowid structure }
|
||||
{ OSD dependent error }
|
||||
{ pointer to reserved area }
|
||||
{ ub1 rcs9[CDA_SIZE - sizeof (struct cda_head)]; filler }
|
||||
|
||||
type
|
||||
Pcda_def = ^cda_def;
|
||||
cda_def = record
|
||||
v2_rc : sb2;
|
||||
ft : ub2;
|
||||
rpc : ub4;
|
||||
peo : ub2;
|
||||
fc : ub1;
|
||||
rcs1 : ub1;
|
||||
rc : ub2;
|
||||
wrn : ub1;
|
||||
rcs2 : ub1;
|
||||
rcs3 : sword;
|
||||
rid : record
|
||||
rd : record
|
||||
rcs4 : ub4;
|
||||
rcs5 : ub2;
|
||||
rcs6 : ub1;
|
||||
end;
|
||||
rcs7 : ub4;
|
||||
rcs8 : ub2;
|
||||
end;
|
||||
ose : sword;
|
||||
chk : ub1;
|
||||
rcsp : Pdvoid;
|
||||
end;
|
||||
|
||||
{ the logon data area (LDA)
|
||||
is the same shape as the CDA }
|
||||
Lda_def = cda_Def;
|
||||
PLda_def = ^Lda_def;
|
||||
{ OCI Environment Modes for opinit call }
|
||||
{ default single-threaded environment }
|
||||
|
||||
const
|
||||
OCI_EV_DEF = 0;
|
||||
{ thread-safe environment }
|
||||
OCI_EV_TSF = 1;
|
||||
{ OCI Logon Modes for olog call }
|
||||
{ default login }
|
||||
OCI_LM_DEF = 0;
|
||||
{ non-blocking logon }
|
||||
OCI_LM_NBL = 1;
|
||||
{
|
||||
* since sqllib uses both ocidef and ocidfn the following defines
|
||||
* need to be guarded
|
||||
}
|
||||
|
||||
{ OCI_*_PIECE defines the piece types that are returned or set
|
||||
}
|
||||
{ there or this is the only piece }
|
||||
|
||||
const
|
||||
OCI_ONE_PIECE = 0;
|
||||
{ the first of many pieces }
|
||||
OCI_FIRST_PIECE = 1;
|
||||
{ the next of many pieces }
|
||||
OCI_NEXT_PIECE = 2;
|
||||
{ the last piece of this column }
|
||||
OCI_LAST_PIECE = 3;
|
||||
|
||||
{ input data types }
|
||||
{ (ORANET TYPE) character string }
|
||||
|
||||
const
|
||||
SQLT_CHR = 1;
|
||||
{ (ORANET TYPE) oracle numeric }
|
||||
SQLT_NUM = 2;
|
||||
{ (ORANET TYPE) integer }
|
||||
SQLT_INT = 3;
|
||||
{ (ORANET TYPE) Floating point number }
|
||||
SQLT_FLT = 4;
|
||||
{ zero terminated string }
|
||||
SQLT_STR = 5;
|
||||
{ NUM with preceding length byte }
|
||||
SQLT_VNU = 6;
|
||||
{ (ORANET TYPE) Packed Decimal Numeric }
|
||||
SQLT_PDN = 7;
|
||||
{ long }
|
||||
SQLT_LNG = 8;
|
||||
{ Variable character string }
|
||||
SQLT_VCS = 9;
|
||||
{ Null/empty PCC Descriptor entry }
|
||||
SQLT_NON = 10;
|
||||
{ rowid }
|
||||
SQLT_RID = 11;
|
||||
{ date in oracle format }
|
||||
SQLT_DAT = 12;
|
||||
{ binary in VCS format }
|
||||
SQLT_VBI = 15;
|
||||
{ Native Binary float }
|
||||
SQLT_BFLOAT = 21;
|
||||
{ NAtive binary double }
|
||||
SQLT_BDOUBLE = 22;
|
||||
{ binary data(DTYBIN) }
|
||||
SQLT_BIN = 23;
|
||||
{ long binary }
|
||||
SQLT_LBI = 24;
|
||||
{ unsigned integer }
|
||||
SQLT_UIN = 68;
|
||||
{ Display sign leading separate }
|
||||
SQLT_SLS = 91;
|
||||
{ Longer longs (char) }
|
||||
SQLT_LVC = 94;
|
||||
{ Longer long binary }
|
||||
SQLT_LVB = 95;
|
||||
{ Ansi fixed char }
|
||||
SQLT_AFC = 96;
|
||||
{ Ansi Var char }
|
||||
SQLT_AVC = 97;
|
||||
{ binary float canonical }
|
||||
SQLT_IBFLOAT = 100;
|
||||
{ binary double canonical }
|
||||
SQLT_IBDOUBLE = 101;
|
||||
{ cursor type }
|
||||
SQLT_CUR = 102;
|
||||
{ rowid descriptor }
|
||||
SQLT_RDD = 104;
|
||||
{ label type }
|
||||
SQLT_LAB = 105;
|
||||
{ oslabel type }
|
||||
SQLT_OSL = 106;
|
||||
{ named object type }
|
||||
SQLT_NTY = 108;
|
||||
{ ref type }
|
||||
SQLT_REF = 110;
|
||||
{ character lob }
|
||||
SQLT_CLOB = 112;
|
||||
{ binary lob }
|
||||
SQLT_BLOB = 113;
|
||||
{ binary file lob }
|
||||
SQLT_BFILEE = 114;
|
||||
{ character file lob }
|
||||
SQLT_CFILEE = 115;
|
||||
{ result set type }
|
||||
SQLT_RSET = 116;
|
||||
{ named collection type (varray or nested table) }
|
||||
SQLT_NCO = 122;
|
||||
{ OCIString type }
|
||||
SQLT_VST = 155;
|
||||
{ OCIDate type }
|
||||
SQLT_ODT = 156;
|
||||
{ datetimes and intervals }
|
||||
{ ANSI Date }
|
||||
SQLT_DATE = 184;
|
||||
{ TIME }
|
||||
SQLT_TIME = 185;
|
||||
{ TIME WITH TIME ZONE }
|
||||
SQLT_TIME_TZ = 186;
|
||||
{ TIMESTAMP }
|
||||
SQLT_TIMESTAMP = 187;
|
||||
{ TIMESTAMP WITH TIME ZONE }
|
||||
SQLT_TIMESTAMP_TZ = 188;
|
||||
{ INTERVAL YEAR TO MONTH }
|
||||
SQLT_INTERVAL_YM = 189;
|
||||
{ INTERVAL DAY TO SECOND }
|
||||
SQLT_INTERVAL_DS = 190;
|
||||
{ TIMESTAMP WITH LOCAL TZ }
|
||||
SQLT_TIMESTAMP_LTZ = 232;
|
||||
{ pl/sql representation of named types }
|
||||
SQLT_PNTY = 241;
|
||||
{ cxcheng: this has been added for backward compatibility -
|
||||
it needs to be here because ocidfn.h can get included ahead of sqldef.h }
|
||||
{ binary file lob }
|
||||
SQLT_FILE = SQLT_BFILEE;
|
||||
SQLT_CFILE = SQLT_CFILEE;
|
||||
SQLT_BFILE = SQLT_BFILEE;
|
||||
{ CHAR/NCHAR/VARCHAR2/NVARCHAR2/CLOB/NCLOB char set "form" information }
|
||||
{ for CHAR, VARCHAR2, CLOB w/o a specified set }
|
||||
SQLCS_IMPLICIT = 1;
|
||||
{ for NCHAR, NCHAR VARYING, NCLOB }
|
||||
SQLCS_NCHAR = 2;
|
||||
{ for CHAR, etc, with "CHARACTER SET ..." syntax }
|
||||
SQLCS_EXPLICIT = 3;
|
||||
{ for PL/SQL "flexible" parameters }
|
||||
SQLCS_FLEXIBLE = 4;
|
||||
{ for typecheck of NULL and empty_clob() lits }
|
||||
SQLCS_LIT_NULL = 5;
|
||||
|
||||
|
||||
8
packages/base/oracle/ocidyn.pp
Normal file
8
packages/base/oracle/ocidyn.pp
Normal file
@ -0,0 +1,8 @@
|
||||
unit OCIdyn;
|
||||
|
||||
{$DEFINE LinkDynamically}
|
||||
|
||||
{$i oci.inc}
|
||||
|
||||
end.
|
||||
|
||||
282
packages/base/oracle/oratypes.pp
Normal file
282
packages/base/oracle/oratypes.pp
Normal file
@ -0,0 +1,282 @@
|
||||
|
||||
unit oratypes;
|
||||
interface
|
||||
|
||||
{
|
||||
Automatically converted by H2Pas 1.0.0 from oratypes.h
|
||||
The following command line parameters were used:
|
||||
-p
|
||||
-D
|
||||
-l
|
||||
jojo
|
||||
oratypes.h
|
||||
}
|
||||
|
||||
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
|
||||
Type
|
||||
PLongint = ^Longint;
|
||||
PSmallInt = ^SmallInt;
|
||||
PByte = ^Byte;
|
||||
PWord = ^Word;
|
||||
PDWord = ^DWord;
|
||||
PDouble = ^Double;
|
||||
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
|
||||
{ $RCSfile: oratypes.h $ $Date: 20-jul-00.13:44:19
|
||||
----------------------------------------------------------------------
|
||||
Copyright (c) 1982, 2003, Oracle. All rights reserved.
|
||||
---------------------------------------------------------------------- }
|
||||
{$define ORATYPES}
|
||||
{$define SX_ORACLE}
|
||||
{$define SX3_ORACLE}
|
||||
|
||||
{$ifndef ORASTDDEF}
|
||||
{ $include <stddef.h>}
|
||||
{ $define ORASTDDEF}
|
||||
{$endif}
|
||||
|
||||
{$ifndef ORALIMITS}
|
||||
{ $include <limits.h>}
|
||||
{ $define ORALIMITS}
|
||||
{$endif}
|
||||
|
||||
|
||||
// Not needed for pascal
|
||||
{ const
|
||||
TRUE = 1;
|
||||
FALSE = 0; }
|
||||
|
||||
{ --- Signed/Unsigned one-byte scalar (sb1/ub1) --- }
|
||||
|
||||
type
|
||||
|
||||
Pub1 = ^ub1;
|
||||
ub1 = byte;
|
||||
|
||||
Psb1 = ^sb1;
|
||||
sb1 = shortint;
|
||||
|
||||
Peb1 = ^eb1;
|
||||
eb1 = char;
|
||||
|
||||
const
|
||||
UB1MAXVAL:ub1 = 255;
|
||||
UB1MINVAL:ub1 = 0;
|
||||
SB1MAXVAL:sb1 = 127;
|
||||
SB1MINVAL:sb1 = -128;
|
||||
MINUB1MAXVAL:ub1 = 255;
|
||||
MAXUB1MINVAL:ub1 = 0;
|
||||
MINSB1MAXVAL:sb1 = 127;
|
||||
MAXSB1MINVAL:sb1 = -127;
|
||||
EB1MAXVAL:eb1 = #255;
|
||||
EB1MINVAL:eb1 = #0;
|
||||
MINEB1MAXVAL:eb1 =#127;
|
||||
MAXEB1MINVAL:eb1 =#0;
|
||||
|
||||
const
|
||||
UB1BITS = 8;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function UB1MASK : longint;
|
||||
{ return type might be wrong }
|
||||
|
||||
{ backwards compatibility }
|
||||
type
|
||||
|
||||
Pb1 = ^b1;
|
||||
b1 = sb1;
|
||||
|
||||
const
|
||||
B1MAXVAL:b1 = 127; // was SB1MAXVAL
|
||||
B1MINVAL:b1 = -128; // was SB1MINVAL
|
||||
{ --- Signed/Unsigned two-byte scalar (sb2/ub2) --- }
|
||||
|
||||
type
|
||||
|
||||
Pub2 = ^ub2;
|
||||
ub2 = word;
|
||||
|
||||
Psb2 = ^sb2;
|
||||
sb2 = smallint;
|
||||
|
||||
Peb2 = ^eb2;
|
||||
eb2 = smallint;
|
||||
|
||||
const
|
||||
UB2MAXVAL:ub2 = 65535;
|
||||
UB2MINVAL:ub2 = 0;
|
||||
SB2MAXVAL:sb2 = 32767;
|
||||
SB2MINVAL:sb2 = -32768;
|
||||
MINUB2MAXVAL:ub2 = 65535;
|
||||
MAXUB2MINVAL:ub2 = 0;
|
||||
MINSB2MAXVAL:sb2 = 32767;
|
||||
MAXSB2MINVAL:sb2 = -32767;
|
||||
EB2MAXVAL:eb2 = 32767;
|
||||
EB2MINVAL:eb2 = 0;
|
||||
MINEB2MAXVAL:eb2 = 32767;
|
||||
MAXEB2MINVAL:eb2 = 0;
|
||||
|
||||
{ backwards compatibility }
|
||||
type
|
||||
|
||||
Pb2 = ^b2;
|
||||
b2 = sb2;
|
||||
|
||||
const
|
||||
B2MAXVAL = 32767; // was SB2MAXVAL
|
||||
B2MINVAL = -32768; // was SB2MINVAL;
|
||||
{ --- Signed/Unsigned four-byte scalar (sb4/ub4) --- }
|
||||
|
||||
type
|
||||
|
||||
Pub4 = ^ub4;
|
||||
ub4 = dword;
|
||||
|
||||
Psb4 = ^sb4;
|
||||
sb4 = longint;
|
||||
|
||||
Peb4 = ^eb4;
|
||||
eb4 = longint;
|
||||
|
||||
|
||||
const
|
||||
UB4MAXVAL:ub4 = 4294967295;
|
||||
UB4MINVAL:ub4 = 0;
|
||||
SB4MAXVAL:sb4 = 2147483647;
|
||||
SB4MINVAL:sb4 = -2147483648;
|
||||
MINUB4MAXVAL:ub4 = 4294967295;
|
||||
MAXUB4MINVAL:ub4 = 0;
|
||||
MINSB4MAXVAL:sb4 = 2147483647;
|
||||
MAXSB4MINVAL:sb4 = -2147483647;
|
||||
EB4MAXVAL:eb4 = 2147483647;
|
||||
EB4MINVAL:eb4 =0;
|
||||
MINEB4MAXVAL:eb4 = 2147483647;
|
||||
MAXEB4MINVAL:eb4 = 0;
|
||||
|
||||
{ --- Signed/Unsigned eight-byte scalar (orasb8/oraub8) --- }
|
||||
type
|
||||
|
||||
Poraub8 = ^oraub8;
|
||||
oraub8 = qword;
|
||||
|
||||
Porasb8 = ^orasb8;
|
||||
orasb8 = int64;
|
||||
|
||||
type
|
||||
|
||||
Pub8 = ^ub8;
|
||||
ub8 = oraub8;
|
||||
|
||||
Psb8 = ^sb8;
|
||||
sb8 = orasb8;
|
||||
|
||||
const
|
||||
ORAUB8MINVAL:oraub8=0;
|
||||
ORAUB8MAXVAL:oraub8=18446744073709551615;
|
||||
ORASB8MINVAL:orasb8=-9223372036854775808;
|
||||
ORASB8MAXVAL:orasb8= 9223372036854775807;
|
||||
MAXORAUB8MINVAL:oraub8=0;
|
||||
MINORAUB8MAXVAL:oraub8=18446744073709551615;
|
||||
MAXORASB8MINVAL:orasb8=-9223372036854775807;
|
||||
MINORASB8MAXVAL:orasb8=9223372036854775807;
|
||||
|
||||
{ backwards compatibility }
|
||||
|
||||
type
|
||||
|
||||
Pb4 = ^b4;
|
||||
b4 = sb4;
|
||||
|
||||
const
|
||||
B4MAXVAL = 2147483647; // was SB4MAXVAL
|
||||
B4MINVAL = -2147483648; // was SB4MINVAL
|
||||
{ --- Character pointer --- }
|
||||
|
||||
type
|
||||
Poratext = ^oratext;
|
||||
oratext = char;
|
||||
|
||||
|
||||
type
|
||||
|
||||
Ptext = ^text;
|
||||
text = oratext;
|
||||
|
||||
type
|
||||
Putext = ^utext;
|
||||
utext = word;
|
||||
|
||||
{ --- Other data types --- }
|
||||
type
|
||||
|
||||
Peword = ^eword;
|
||||
eword = longint;
|
||||
|
||||
Puword = ^uword;
|
||||
uword = dword;
|
||||
|
||||
Psword = ^sword;
|
||||
sword = longint;
|
||||
|
||||
|
||||
const
|
||||
EWORDMAXVAL:eword = 2147483647;
|
||||
EWORDMINVAL:eword = 0;
|
||||
UWORDMAXVAL:uword = 4294967295;
|
||||
UWORDMINVAL:uword = 0;
|
||||
SWORDMAXVAL:sword = 2147483647;
|
||||
SWORDMINVAL:sword = -2147483648;
|
||||
MINEWORDMAXVAL:eword = 2147483647;
|
||||
MAXEWORDMINVAL:eword = 0;
|
||||
MINUWORDMAXVAL:uword = 4294967295;
|
||||
MAXUWORDMINVAL:uword = 0;
|
||||
MINSWORDMAXVAL:sword = 2147483647;
|
||||
MAXSWORDMINVAL:sword = -2147483647;
|
||||
|
||||
|
||||
type
|
||||
|
||||
Pubig_ora = ^ubig_ora;
|
||||
ubig_ora = dword;
|
||||
|
||||
Psbig_ora = ^sbig_ora;
|
||||
sbig_ora = longint;
|
||||
|
||||
const
|
||||
UBIG_ORAMAXVAL:ubig_ora = 2147483647;
|
||||
UBIG_ORAMINVAL:ubig_ora = 0;
|
||||
SBIG_ORAMAXVAL:sbig_ora = 2147483647;
|
||||
SBIG_ORAMINVAL:sbig_ora = -2147483648;
|
||||
MINUBIG_ORAMAXVAL:ubig_ora = 4294967295;
|
||||
MAXUBIG_ORAMINVAL:ubig_ora = 0;
|
||||
MINSBIG_ORAMAXVAL:sbig_ora = 2147483647;
|
||||
MAXSBIG_ORAMINVAL:sbig_ora = -2147483647;
|
||||
|
||||
(* error
|
||||
#define UBIGORABITS (UB1BITS * sizeof(ubig_ora))
|
||||
in define line 272 *)
|
||||
|
||||
type
|
||||
|
||||
lgenfp_t = procedure (_para1:pointer);cdecl;
|
||||
|
||||
const
|
||||
SIZE_TMAXVAL = 2147483647; // was UBIG_ORAMAXVAL;
|
||||
|
||||
// const
|
||||
// MINSIZE_TMAXVAL:size_t = 4294967295;
|
||||
|
||||
implementation
|
||||
|
||||
function UB1MASK : longint;
|
||||
{ return type might be wrong }
|
||||
begin
|
||||
// UB1MASK:=(1 shl (uword(CHAR_BIT)))-1;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
end.
|
||||
3911
packages/base/oracle/orl.inc
Normal file
3911
packages/base/oracle/orl.inc
Normal file
File diff suppressed because it is too large
Load Diff
644
packages/base/oracle/oro_implementation.inc
Normal file
644
packages/base/oracle/oro_implementation.inc
Normal file
@ -0,0 +1,644 @@
|
||||
|
||||
//implementation
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_IND_NOTNULL : OCIInd;
|
||||
begin
|
||||
OCI_IND_NOTNULL:=OCIInd(0);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_IND_NULL : OCIInd;
|
||||
begin
|
||||
OCI_IND_NULL:=OCIInd(-(1));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_IND_BADNULL : OCIInd;
|
||||
begin
|
||||
OCI_IND_BADNULL:=OCIInd(-(2));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_IND_NOTNULLABLE : OCIInd;
|
||||
begin
|
||||
OCI_IND_NOTNULLABLE:=OCIInd(-(3));
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_BEGIN : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_BEGIN:=OCIDuration(10);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_NULL : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_NULL:=OCIDuration(OCI_DURATION_BEGIN-1);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_DEFAULT : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_DEFAULT:=OCIDuration(OCI_DURATION_BEGIN-2);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_USER_CALLBACK : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_USER_CALLBACK:=OCIDuration(OCI_DURATION_BEGIN-3);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_NEXT : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_NEXT:=OCIDuration(OCI_DURATION_BEGIN-4);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_SESSION : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_SESSION:=OCIDuration(OCI_DURATION_BEGIN);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_TRANS : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_TRANS:=OCIDuration(OCI_DURATION_BEGIN+1);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_CALL : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_CALL:=OCIDuration(OCI_DURATION_BEGIN+2);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_STATEMENT : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_STATEMENT:=OCIDuration(OCI_DURATION_BEGIN+3);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_CALLOUT : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_CALLOUT:=OCIDuration(OCI_DURATION_BEGIN+4);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_DURATION_PROCESS : OCIDuration;
|
||||
begin
|
||||
OCI_DURATION_PROCESS:=OCIDuration(OCI_DURATION_BEGIN-5);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_OBJECTCOPY_NOREF : ub1;
|
||||
begin
|
||||
OCI_OBJECTCOPY_NOREF:=ub1($01);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_OBJECTFREE_FORCE : ub2;
|
||||
begin
|
||||
OCI_OBJECTFREE_FORCE:=ub2($0001);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_OBJECTFREE_NONULL : ub2;
|
||||
begin
|
||||
OCI_OBJECTFREE_NONULL:=ub2($0002);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_OBJECTFREE_HEADER : ub2;
|
||||
begin
|
||||
OCI_OBJECTFREE_HEADER:=ub2($0004);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_OBJECT_IS_UPDATED(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_OBJECT_IS_UPDATED:=bit(flag,OCI_OBJECT_UPDATED);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_OBJECT_IS_DELETED(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_OBJECT_IS_DELETED:=bit(flag,OCI_OBJECT_DELETED);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_OBJECT_IS_NEW(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_OBJECT_IS_NEW:=bit(flag,OCI_OBJECT_NEW);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_OBJECT_IS_DIRTY(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_OBJECT_IS_DIRTY:=bit(flag,(OCI_OBJECT_UPDATED or OCI_OBJECT_NEW) or OCI_OBJECT_DELETED);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_INLINE(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_INLINE:=bit(flag,OCI_TYPEMETHOD_INLINE);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_CONSTANT(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_CONSTANT:=bit(flag,OCI_TYPEMETHOD_CONSTANT);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_VIRTUAL(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_VIRTUAL:=bit(flag,OCI_TYPEMETHOD_VIRTUAL);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_CONSTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_CONSTRUCTOR:=bit(flag,OCI_TYPEMETHOD_CONSTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_DESTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_DESTRUCTOR:=bit(flag,OCI_TYPEMETHOD_DESTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_OPERATOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_OPERATOR:=bit(flag,OCI_TYPEMETHOD_OPERATOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_SELFISH(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_SELFISH:=bit(flag,OCI_TYPEMETHOD_SELFISH);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_MAP(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_MAP:=bit(flag,OCI_TYPEMETHOD_MAP);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_ORDER(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_ORDER:=bit(flag,OCI_TYPEMETHOD_ORDER);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_RNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_RNDS:=bit(flag,OCI_TYPEMETHOD_RNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_WNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_WNDS:=bit(flag,OCI_TYPEMETHOD_WNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_RNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_RNPS:=bit(flag,OCI_TYPEMETHOD_RNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_WNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_WNPS:=bit(flag,OCI_TYPEMETHOD_WNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_ABSTRACT(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_ABSTRACT:=bit(flag,OCI_TYPEMETHOD_ABSTRACT);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_OVERRIDING(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_OVERRIDING:=bit(flag,OCI_TYPEMETHOD_OVERRIDING);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_METHOD_IS_PIPELINED(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_METHOD_IS_PIPELINED:=bit(flag,OCI_TYPEMETHOD_PIPELINED);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_INLINE(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_INLINE:=bit(flag,OCI_TYPEMETHOD_INLINE);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_CONSTANT(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_CONSTANT:=bit(flag,OCI_TYPEMETHOD_CONSTANT);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_VIRTUAL(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_VIRTUAL:=bit(flag,OCI_TYPEMETHOD_VIRTUAL);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_CONSTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_CONSTRUCTOR:=bit(flag,OCI_TYPEMETHOD_CONSTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_DESTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_DESTRUCTOR:=bit(flag,OCI_TYPEMETHOD_DESTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_OPERATOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_OPERATOR:=bit(flag,OCI_TYPEMETHOD_OPERATOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_SELFISH(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_SELFISH:=bit(flag,OCI_TYPEMETHOD_SELFISH);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_MAP(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_MAP:=bit(flag,OCI_TYPEMETHOD_MAP);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_ORDER(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_ORDER:=bit(flag,OCI_TYPEMETHOD_ORDER);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_RNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_RNDS:=bit(flag,OCI_TYPEMETHOD_RNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_WNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_WNDS:=bit(flag,OCI_TYPEMETHOD_WNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_RNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_RNPS:=bit(flag,OCI_TYPEMETHOD_RNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_WNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_WNPS:=bit(flag,OCI_TYPEMETHOD_WNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_ABSTRACT(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_ABSTRACT:=bit(flag,OCI_TYPEMETHOD_ABSTRACT);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_OVERRIDING(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_OVERRIDING:=bit(flag,OCI_TYPEMETHOD_OVERRIDING);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_IS_PIPELINED(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_IS_PIPELINED:=bit(flag,OCI_TYPEMETHOD_PIPELINED);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_INLINE(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_INLINE:=bis(flag,OCI_TYPEMETHOD_INLINE);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_CONSTANT(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_CONSTANT:=bis(flag,OCI_TYPEMETHOD_CONSTANT);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_VIRTUAL(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_VIRTUAL:=bis(flag,OCI_TYPEMETHOD_VIRTUAL);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_CONSTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_CONSTRUCTOR:=bis(flag,OCI_TYPEMETHOD_CONSTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_DESTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_DESTRUCTOR:=bis(flag,OCI_TYPEMETHOD_DESTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_OPERATOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_OPERATOR:=bis(flag,OCI_TYPEMETHOD_OPERATOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_SELFISH(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_SELFISH:=bis(flag,OCI_TYPEMETHOD_SELFISH);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_MAP(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_MAP:=bis(flag,OCI_TYPEMETHOD_MAP);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_ORDER(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_ORDER:=bis(flag,OCI_TYPEMETHOD_ORDER);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_RNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_RNDS:=bis(flag,OCI_TYPEMETHOD_RNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_WNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_WNDS:=bis(flag,OCI_TYPEMETHOD_WNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_RNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_RNPS:=bis(flag,OCI_TYPEMETHOD_RNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_SET_WNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_SET_WNPS:=bis(flag,OCI_TYPEMETHOD_WNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_INLINE(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_INLINE:=bic(flag,OCI_TYPEMETHOD_INLINE);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_CONSTANT(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_CONSTANT:=bic(flag,OCI_TYPEMETHOD_CONSTANT);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_VIRTUAL(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_VIRTUAL:=bic(flag,OCI_TYPEMETHOD_VIRTUAL);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_CONSTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_CONSTRUCTOR:=bic(flag,OCI_TYPEMETHOD_CONSTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_DESTRUCTOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_DESTRUCTOR:=bic(flag,OCI_TYPEMETHOD_DESTRUCTOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_OPERATOR(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_OPERATOR:=bic(flag,OCI_TYPEMETHOD_OPERATOR);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_SELFISH(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_SELFISH:=bic(flag,OCI_TYPEMETHOD_SELFISH);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_MAP(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_MAP:=bic(flag,OCI_TYPEMETHOD_MAP);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_ORDER(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_ORDER:=bic(flag,OCI_TYPEMETHOD_ORDER);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_RNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_RNDS:=bic(flag,OCI_TYPEMETHOD_RNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_WNDS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_WNDS:=bic(flag,OCI_TYPEMETHOD_WNDS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_RNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_RNPS:=bic(flag,OCI_TYPEMETHOD_RNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname(params) para_def_expr }
|
||||
{ argument types are unknown }
|
||||
{ return type might be wrong }
|
||||
function OCI_TYPEMETHOD_CLEAR_WNPS(flag : longint) : longint;
|
||||
begin
|
||||
// OCI_TYPEMETHOD_CLEAR_WNPS:=bic(flag,OCI_TYPEMETHOD_WNPS);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_NUMBER_DEFAULTPREC : ub1;
|
||||
begin
|
||||
OCI_NUMBER_DEFAULTPREC:=ub1(0);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_NUMBER_DEFAULTSCALE : sb1;
|
||||
begin
|
||||
OCI_NUMBER_DEFAULTSCALE:=sb1(MAXSB1MINVAL);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_COHERENCY_NONE : OCIRefreshOpt;
|
||||
begin
|
||||
OCI_COHERENCY_NONE:=OCIRefreshOpt(2);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_COHERENCY_NULL : OCIRefreshOpt;
|
||||
begin
|
||||
OCI_COHERENCY_NULL:=OCIRefreshOpt(4);
|
||||
end;
|
||||
|
||||
{ was #define dname def_expr }
|
||||
function OCI_COHERENCY_ALWAYS : OCIRefreshOpt;
|
||||
begin
|
||||
OCI_COHERENCY_ALWAYS:=OCIRefreshOpt(5);
|
||||
end;
|
||||
|
||||
|
||||
1201
packages/base/oracle/oro_interface.inc
Normal file
1201
packages/base/oracle/oro_interface.inc
Normal file
File diff suppressed because it is too large
Load Diff
2676
packages/base/oracle/ort.inc
Normal file
2676
packages/base/oracle/ort.inc
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user