[Gd-chatter] r11456 - in trunk/libraries/database/odbc-ffi: . docs

[agent at gwydiondylan.org]

Author: agent
Date: Mon Sep 24 04:50:03 2007
New Revision: 11456

Modified:
   trunk/libraries/database/odbc-ffi/Makefile
   trunk/libraries/database/odbc-ffi/docs/html_source.zip
   trunk/libraries/database/odbc-ffi/module-odbc-ffi.dylan
   trunk/libraries/database/odbc-ffi/odbc-ffi-consts.dylan
Log:
Job: minor
Added <SQLUINTEGER*> to ODBC FFI.



Modified: trunk/libraries/database/odbc-ffi/Makefile
==============================================================================
--- trunk/libraries/database/odbc-ffi/Makefile	(original)
+++ trunk/libraries/database/odbc-ffi/Makefile	Mon Sep 24 04:50:03 2007
@@ -9,5 +9,4 @@
 
 clean:
 	-rm -f *.o *.s *.a *.c *.mak *.el *~ odbc-ffi.lib.du
-	-rm -rf .libs
 	-rm -f *-melange.dylan

Modified: trunk/libraries/database/odbc-ffi/docs/html_source.zip
==============================================================================
Binary files. No diff available.

Modified: trunk/libraries/database/odbc-ffi/module-odbc-ffi.dylan
==============================================================================
--- trunk/libraries/database/odbc-ffi/module-odbc-ffi.dylan	(original)
+++ trunk/libraries/database/odbc-ffi/module-odbc-ffi.dylan	Mon Sep 24 04:50:03 2007
@@ -14,7 +14,8 @@
     $SQL-NULL-HDESC,
     $SQL-NULL-HENV,
     $SQL-NULL-HSTMT,
-    <intval>
+    <intval>,
+    <SQLUINTEGER*>
 end module;
 
   
\ No newline at end of file

Modified: trunk/libraries/database/odbc-ffi/odbc-ffi-consts.dylan
==============================================================================
--- trunk/libraries/database/odbc-ffi/odbc-ffi-consts.dylan	(original)
+++ trunk/libraries/database/odbc-ffi/odbc-ffi-consts.dylan	Mon Sep 24 04:50:03 2007
@@ -9,3 +9,25 @@
 define constant $SQL-NULL-HANDLE = as(<SQLHANDLE>, 0);
 
 define constant <intval> = <anonymous-379>; /* SQL_INTERVAL_STRUCT.intval */
+
+define functional class <SQLUINTEGER*> (<statically-typed-pointer>) end;
+
+define sealed domain make (singleton(<SQLUINTEGER*>));
+
+define inline method pointer-value
+    (ptr :: <SQLUINTEGER*>, #key index = 0)
+ => (result :: <SQLUINTEGER>);
+  unsigned-long-at(ptr, offset: index * 4);
+end method pointer-value;
+
+define inline method pointer-value-setter
+    (value :: <SQLUINTEGER>, ptr :: <SQLUINTEGER*>, #key index = 0)
+ => (result :: <SQLUINTEGER>);
+  unsigned-long-at(ptr, offset: index * 4) := value;
+  value;
+end method pointer-value-setter;
+
+define method content-size (value :: subclass(<SQLUINTEGER*>)) => (result :: <integer>);
+  4;
+end method content-size;
+