-(def-oci-routine ("OCIEnvCreate" OCI-ENV-CREATE)
- int
- (p0 (* t))
- (p1 unsigned-int)
- (p2 (* t))
- (p3 (* t))
- (p4 (* t))
- (p5 (* t))
- (p6 unsigned-long)
- (p7 (* t)))
-
-(def-oci-routine ("OCIHandleAlloc" OCI-HANDLE-ALLOC)
- int
- (parenth (* t)) ; const dvoid *
- (hndlpp (* t)) ; dvoid **
- (type unsigned-long) ; ub4
- (xtramem_sz unsigned-long) ; size_t
- (usrmempp (* t))) ; dvoid **
-
-(def-oci-routine ("OCIServerAttach" OCI-SERVER-ATTACH)
- int
- (srvhp (* t)) ; oci-server
- (errhp (* t)) ; oci-error
- (dblink c-string) ; :in
- (dblink-len unsigned-long) ; int
- (mode unsigned-long)) ; int
-
-
-(def-oci-routine ("OCIHandleFree" OCI-HANDLE-FREE)
- int
- (p0 (* t)) ;; handle
- (p1 unsigned-long)) ;;type
-
-(def-oci-routine ("OCILogon" OCI-LOGON)
- int
- (envhp (* t)) ; env
- (errhp (* t)) ; err
- (svchp (* t)) ; svc
- (username c-string) ; username
- (uname-len unsigned-long) ;
- (passwd c-string) ; passwd
- (password-len unsigned-long) ;
- (dsn c-string) ; datasource
- (dsn-len unsigned-long)) ;
-
-(def-oci-routine ("OCILogoff" OCI-LOGOFF)
- int
- (p0 (* t)) ; svc
- (p1 (* t))) ; err
-
-(def-alien-routine ("OCIErrorGet" OCI-ERROR-GET)
- void
- (p0 (* t))
- (p1 unsigned-long)
- (p2 c-string)
- (p3 (* long))
- (p4 (* t))
- (p5 unsigned-long)
- (p6 unsigned-long))
-
-(def-oci-routine ("OCIStmtPrepare" OCI-STMT-PREPARE)
- int
- (p0 (* t))
- (p1 (* t))
- (p2 c-string)
- (p3 unsigned-long)
- (p4 unsigned-long)
- (p5 unsigned-long))
-
-(def-oci-routine ("OCIStmtExecute" OCI-STMT-EXECUTE)
- int
- (p0 (* t))
- (p1 (* t))
- (p2 (* t))
- (p3 unsigned-long)
- (p4 unsigned-long)
- (p5 (* t))
- (p6 (* t))
- (p7 unsigned-long))
-
-(def-raw-oci-routine ("OCIParamGet" OCI-PARAM-GET)
- int
- (p0 (* t))
- (p1 unsigned-long)
- (p2 (* t))
- (p3 (* t))
- (p4 unsigned-long))
-
-(def-oci-routine ("OCIAttrGet" OCI-ATTR-GET)
- int
- (p0 (* t))
- (p1 unsigned-long)
- (p2 (* t))
- (p3 (* unsigned-long))
- (p4 unsigned-long)
- (p5 (* t)))
+(def-oci-routine ("OCIEnvCreate" oci-env-create)
+ :int
+ (p0 (* :void))
+ (p1 :unsigned-int)
+ (p2 (* :void))
+ (p3 (* :void))
+ (p4 (* :void))
+ (p5 (* :void))
+ (p6 :unsigned-long)
+ (p7 (* :void)))
+
+(def-oci-routine ("OCIHandleAlloc" oci-handle-alloc)
+ :int
+ (parenth (* :void)) ; const dvoid *
+ (hndlpp (* :void)) ; dvoid **
+ (type :unsigned-long) ; ub4
+ (xtramem_sz :unsigned-long) ; size_t
+ (usrmempp (* :void))) ; dvoid **
+
+(def-oci-routine ("OCIServerAttach" oci-server-attach)
+ :int
+ (srvhp (* :void)) ; oci-server
+ (errhp (* :void)) ; oci-error
+ (dblink :cstring) ; :in
+ (dblink-len :unsigned-long) ; int
+ (mode :unsigned-long)) ; int
+
+
+(def-oci-routine ("OCIHandleFree" oci-handle-free)
+ :int
+ (p0 (* :void)) ;; handle
+ (p1 :unsigned-long)) ;;type
+
+(def-oci-routine ("OCILogon" oci-logon)
+ :int
+ (envhp (* :void)) ; env
+ (errhp (* :void)) ; err
+ (svchp (* :void)) ; svc
+ (username :cstring) ; username
+ (uname-len :unsigned-long) ;
+ (passwd :cstring) ; passwd
+ (password-len :unsigned-long) ;
+ (dsn :cstring) ; datasource
+ (dsn-len :unsigned-long)) ;
+
+(def-oci-routine ("OCILogoff" oci-logoff)
+ :int
+ (p0 (* :void)) ; svc
+ (p1 (* :void))) ; err
+
+(uffi:def-function ("OCIErrorGet" oci-error-get)
+ ((p0 (* :void))
+ (p1 :unsigned-long)
+ (p2 :cstring)
+ (p3 (* :long))
+ (p4 (* :void))
+ (p5 :unsigned-long)
+ (p6 :unsigned-long))
+ :returning :void)
+
+(def-oci-routine ("OCIStmtPrepare" oci-stmt-prepare)
+ :int
+ (p0 (* :void))
+ (p1 (* :void))
+ (p2 :cstring)
+ (p3 :unsigned-long)
+ (p4 :unsigned-long)
+ (p5 :unsigned-long))
+
+(def-oci-routine ("OCIStmtExecute" oci-stmt-execute)
+ :int
+ (p0 (* :void))
+ (p1 (* :void))
+ (p2 (* :void))
+ (p3 :unsigned-long)
+ (p4 :unsigned-long)
+ (p5 (* :void))
+ (p6 (* :void))
+ (p7 :unsigned-long))
+
+(def-raw-oci-routine ("OCIParamGet" oci-param-get)
+ :int
+ (p0 (* :void))
+ (p1 :unsigned-long)
+ (p2 (* :void))
+ (p3 (* :void))
+ (p4 :unsigned-long))
+
+(def-oci-routine ("OCIAttrGet" oci-attr-get)
+ :int
+ (p0 (* :void))
+ (p1 :unsigned-long)
+ (p2 (* :void))
+ (p3 (* :unsigned-long))
+ (p4 :unsigned-long)
+ (p5 (* :void)))