- ;; Actually, oci-server-version returns the client version, not the server versions
- ;; will use "SELECT VERSION FROM V$INSTANCE" to get actual server version.
- (let (db server-version client-version)
- (declare (ignorable server-version))
- (uffi:with-foreign-object (buf '(:array :unsigned-char #.+errbuf-len+))
- (oci-server-version (deref-vp svchp)
- (deref-vp errhp)
- (uffi:char-array-to-pointer buf)
- +errbuf-len+ +oci-htype-svcctx+)
- (setf client-version (uffi:convert-from-foreign-string buf))
- ;; This returns the client version, not the server version, so diable it
- #+ignore
- (oci-server-version (deref-vp srvhp)
- (deref-vp errhp)
- (uffi:char-array-to-pointer buf)
- +errbuf-len+ +oci-htype-server+)
- #+ignore
- (setf server-version (uffi:convert-from-foreign-string buf)))
- (setq db (make-instance 'oracle-database
- :name (database-name-from-spec connection-spec
- database-type)
- :connection-spec connection-spec
- :envhp envhp
- :errhp errhp
- :database-type :oracle
- :svchp svchp
- :dsn data-source-name
- :user user
- :client-version client-version
- :server-version server-version
- :major-client-version (major-client-version-from-string
- client-version)
- :major-server-version (major-client-version-from-string
- server-version)))