steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-31 02:52:18 -05:00
parent cde71318ab
commit 9c62b5901f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/oracle/oracle.factor
View File

@ -6,7 +6,7 @@
USING: alien alien.c-types alien.strings combinators kernel math USING: alien alien.c-types alien.strings combinators kernel math
namespaces oracle.liboci prettyprint sequences namespaces oracle.liboci prettyprint sequences
io.encodings.ascii ; io.encodings.ascii accessors ;
IN: oracle IN: oracle
@ -102,9 +102,9 @@ C: <connection> connection
: oci-log-on ( -- ) : oci-log-on ( -- )
env get err get svc get env get err get svc get
con get connection-username dup length swap ascii malloc-string swap con get username>> dup length swap ascii malloc-string swap
con get connection-password dup length swap ascii malloc-string swap con get password>> dup length swap ascii malloc-string swap
con get connection-db dup length swap ascii malloc-string swap con get db>> dup length swap ascii malloc-string swap
OCILogon check-result ; OCILogon check-result ;
! ========================================================= ! =========================================================
@ -112,18 +112,18 @@ C: <connection> connection
! ========================================================= ! =========================================================
: attach-to-server ( -- ) : attach-to-server ( -- )
srv get err get con get connection-db dup length OCI_DEFAULT srv get err get con get db>> dup length OCI_DEFAULT
OCIServerAttach check-result ; OCIServerAttach check-result ;
: set-service-attribute ( -- ) : set-service-attribute ( -- )
svc get OCI_HTYPE_SVCCTX srv get 0 OCI_ATTR_SERVER err get OCIAttrSet check-result ; svc get OCI_HTYPE_SVCCTX srv get 0 OCI_ATTR_SERVER err get OCIAttrSet check-result ;
: set-username-attribute ( -- ) : set-username-attribute ( -- )
ses get OCI_HTYPE_SESSION con get connection-username dup length swap ascii malloc-string swap ses get OCI_HTYPE_SESSION con get username>> dup length swap ascii malloc-string swap
OCI_ATTR_USERNAME err get OCIAttrSet check-result ; OCI_ATTR_USERNAME err get OCIAttrSet check-result ;
: set-password-attribute ( -- ) : set-password-attribute ( -- )
ses get OCI_HTYPE_SESSION con get connection-password dup length swap ascii malloc-string swap ses get OCI_HTYPE_SESSION con get password>> dup length swap ascii malloc-string swap
OCI_ATTR_PASSWORD err get OCIAttrSet check-result ; OCI_ATTR_PASSWORD err get OCIAttrSet check-result ;
: set-attributes ( -- ) : set-attributes ( -- )