beezwax 0.0.0 → 0.1.0

data/Rakefile

@@ -11,6 +11,7 @@ begin
     gem.homepage = "http://github.com/plardin/beezwax"
     gem.authors = ["Patrick Lardin"]
     gem.add_development_dependency "ffi", ">= 0.6.3"
+    gem.files.include %w(lib/btrieve/*.rb)
     # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
   end
   Jeweler::GemcutterTasks.new

data/VERSION

@@ -1 +1 @@
-0.0.0
+0.1.0

data/lib/btrieve/btrieve_const.rb

@@ -0,0 +1,451 @@
+module BtrCodes
+  PK_KEYS=[:"kid - date",:"kid - time",:"kid - user",:"kid - mult",:"kid - comm"]
+  OK = 0
+  OPEN = 0
+  CLOSE = 1
+  INSERT = 2
+  UPDATE = 3
+  DELETE = 4
+  GET_EQUAL = 5
+  GET_NEXT = 6
+  GET_GREATER_THAN_OR_EQUAL = 9
+  SET_DIRECTORY = 17
+  BEGIN_TRANSACTION = 19
+  END_TRANSACTION = 20
+  ABORT_TRANSACTION = 21
+  STEP_NEXT = 24
+  EOF = 9
+  POS_BLOCK_SIZE = 128
+  NULL_KEY = 0x00
+  NULL_BUFFER = ''
+  NORMAL_MODE = 0x00
+  ACCELERATED_MODE = 0xFF
+  READ_ONLY_MODE = 0xFE
+  VERIFY_MODE = 0xFD
+  EXCLUSIVE_MODE = 0xFC
+  LOCAL_NORMAL_MODE = 0x06
+  LOCAL_ACCELERATED_MODE = 0x07
+  LOCAL_READ_ONLY_MODE = 0x08
+  LOCAL_EXCLUSIVE_MODE = 0x08
+  REMOTE_NORMAL_MODE = 0x63
+  REMOTE_ACCELERATED_MODE = 0x64
+  REMOTE_READ_ONLY_MODE = 0x65
+  REMOTE_EXCLUSIVE_MODE = 0x67
+  NO_CURRENCY_CHANGE = 0xFF
+  MAX_DATATYPE = 200
+
+  EXCEPTION_MESSAGES = {
+    1=>"The operation parameter is invalid.",
+    2=>"The application encountered an I/O error.",
+    3=>"The file is not open.",
+    4=>"The application cannot find the key value.",
+    5=>"The record has a key field containing a duplicate key value.",
+    6=>"The key number parameter is invalid.",
+    7=>"The key number has changed.",
+    8=>"The current positioning is invalid.",
+    9=>"The operation encountered the end-of-file.",
+    10=>"The key field is not modifiable.",
+    11=>"The specified filename is invalid.",
+    12=>"The MicroKernel cannot find the specified file.",
+    13=>"The MicroKernel could not open the extension file for an extended file.",
+    14=>"The MicroKernel cannot create or open the pre-image file.",
+    15=>"The application encountered an I/O error during pre-imaging.",
+    16=>"The application encountered an expansion error.",
+    18=>"The disk is full.",
+    19=>"The application encountered an unrecoverable error.",
+    20=>"The MicroKernel or Btrieve Requester is inactive.",
+    21=>"The key buffer parameter is too short.",
+    22=>"The data buffer parameter is too short.",
+    23=>"The position block parameter is not 128 bytes long.",
+    24=>"The page size or data buffer size is invalid.",
+    25=>"The application cannot create the specified file.",
+    26=>"The number of keys specified is invalid.",
+    27=>"The key position is invalid.",
+    28=>"The record length is invalid.",
+    29=>"The key length is invalid.",
+    30=>"The file specified is not a MicroKernel file.",
+    31=>"The file is already extended.",
+    32=>"The file cannot be extended.",
+    33=>"The MicroKernel cannot unload.",
+    34=>"The specified extension name is invalid.",
+    35=>"The application encountered a directory error.",
+    37=>"Another transaction is active.",
+    38=>"The MicroKernel encountered a transaction control file I/O error.",
+    39=>"A Begin Transaction operation must precede an End/Abort Transaction operation.",
+    40=>"The file access request exceeds the maximum number of files allowed.",
+    41=>"The MicroKernel does not allow the attempted operation.",
+    42=>"A file previously opened in Accelerated mode was not closed.",
+    43=>"The specified record address is invalid.",
+    44=>"The specified key path is invalid.",
+    45=>"The specified key flags are invalid.",
+    46=>"Access to the requested file is denied.",
+    47=>"The number of files opened exceeds the maximum allowed.",
+    48=>"The alternate collating sequence definition is invalid.",
+    49=>"The extended key type is invalid.",
+    50=>"The file owner is already set.",
+    51=>"The owner name is invalid.",
+    52=>"An error occurred while writing to the cache.",
+    53=>"The language interface version is invalid.",
+    54=>"The variable-length portion of the record is corrupt.",
+    55=>"The application specified an invalid attribute for an AUTOINCREMENT key.",
+    56=>"An index is incomplete.",
+    57=>"An expanded memory error occurred.",
+    58=>"The compression buffer length is too short.",
+    59=>"The specified file already exists.",
+    60=>"The specified reject count has been reached.",
+    61=>"The work space is too small.",
+    62=>"The descriptor is incorrect.",
+    63=>"The data buffer parameter specified on an Insert Extended operation is invalid.",
+    64=>"The filter limit has been reached.",
+    65=>"The field offset is incorrect.",
+    66=>"The maximum number of open databases has been exceeded.",
+    67=>"The MicroKernel cannot open the SQL data dictionary files.",
+    68=>"The MicroKernel cannot perform the RI Delete Cascade operation.",
+    69=>"The Delete operation specified a file that is damaged.",
+    71=>"There is a violation of the RI definitions.",
+    72=>"The MicroKernel cannot open the RI referenced file.",
+    73=>"The RI definition is out of sync.",
+    74=>"The MicroKernel aborted the transaction.",
+    76=>"There is a conflict on the referenced file.",
+    77=>"The application encountered a wait error.",
+    78=>"The MicroKernel detected a deadlock condition.",
+    79=>"A programming error occurred.",
+    80=>"The MicroKernel encountered a record-level conflict.",
+    81=>"The MicroKernel encountered a lock error.",
+    82=>"The MicroKernel lost positioning.",
+    83=>"The MicroKernel attempted to update or delete a record that was read outside the transaction.",
+    84=>"The record or page is locked.",
+    85=>"The file is locked.",
+    86=>"The file table is full.",
+    87=>"The handle table is full.",
+    88=>"The application encountered an incompatible mode error.",
+    89=>"A name error occurred.",
+    90=>"The redirected device table is full.",
+    91=>"The application encountered a server error.",
+    92=>"The transaction table is full.",
+    93=>"The record lock types are incompatible.",
+    94=>"The application encountered a permission error.",
+    95=>"The session is no longer valid.",
+    96=>"A communications environment error occurred.",
+    97=>"The data buffer is too small.",
+    98=>"The MicroKernel detected an internal transaction error.",
+    99=>"The Btrieve Requester is unable to access the NetWare Runtime server.",
+    100=>"No cache buffers are available.",
+    101=>"Insufficient operating system memory is available.",
+    102=>"Insufficient stack space is available.",
+    103=>"The chunk offset is too big.",
+    104=>"The MicroKernel does not recognize the locale.",
+    105=>"The file cannot be created with Variable-tail Allocation Tables (VATs).",
+    106=>"The MicroKernel cannot perform a Get Next Chunk operation.",
+    107=>"The application attempted to perform a chunk operation on a pre-v6.0 file.",
+    109=>"An unknown error was encountered either creating or accessing a semaphore.",
+    110=>"The MicroKernel cannot access the archival logging configuration file.",
+    111=>"The specified filename was not found in the archival logging configuration file.",
+    112=>"The specified file is in use by another client.",
+    113=>"The MicroKernel cannot find the archival log for the specified file.",
+    114=>"The archival log for the specified file is invalid.",
+    115=>"The MicroKernel cannot access the archival logging dump file.",
+    116=>"The file is owned by another Microkernel engine acting as a Gateway.",
+    130=>"The MicroKernel ran out of system locks.",
+    132=>"The file has reached its size limit.",
+    133=>"More than 5 concurrent users attempted to access the same data file.",
+    134=>"The MicroKernel cannot read the International Sorting Rule.",
+    135=>"The specified ISR table is corrupt or otherwise invalid.",
+    136=>"The MicroKernel cannot find the specified Alternate Collating Sequence in the file.",
+    138=>"The NULL indicator position is invalid.",
+    139=>"The MicroKernel has detected an unacceptable value in the key number.",
+    140=>"The savepoint ID is invalid.",
+    143=>"The MicroKernel cannot allow unauthorized access to files in a secure MicroKernel database.",
+    146=>"Duplicate system key.",
+    147=>"The log segment is missing.",
+    148=>"A roll forward error occurred.",
+    149=>"SQL Trigger.",
+    161=>"The maximum number of user count licenses has been reached.",
+    162=>"The client table is full. Try increasing the number of Active Clients in the MicroKernel Database Engine System Resource setting.",
+    163=>"The NULL indicator cannot be the last segment.",
+    1001=>"The lock parameter is out of range.",
+    1002=>"A memory allocation error occurred.",
+    1003=>"An invalid memory size parameter was specified.",
+    1004=>"A page size error occurred.",
+    1005=>"The pre-image or lock file drive parameter is invalid.",
+    1006=>"The pre-image buffer parameter is out of range.",
+    1007=>"The files parameter is out of range.",
+    1008=>"The initialization parameter is invalid.",
+    1009=>"The transaction filename parameter is invalid.",
+    1010=>"An error occurred during the access of the transaction control file.",
+    1011=>"The compression buffer parameter is out of range.",
+    1012=>"Invalid /n: option.",
+    1013=>"The task list is full.",
+    1015=>"One of the pointer parameters passed to the MicroKernel is invalid.",
+    1016=>"The MicroKernel is already initialized.",
+    1017=>"The Btrieve Requester is unable to find the resource file WBTRVRES.DLL.",
+    1018=>"The application attempted to call the MicroKernel from a Btrieve callback function.",
+    1019=>"The MicroKernel cancelled the current Btrieve operation at the request of the application's Btrieve callback function.",
+    1020=>"Btrieve Requester Interface communications error.",
+    1021=>"The MicroKernel failed to initialize.",
+    1022=>"The MicroKernel is shutting down.",
+    2000=>"Internal error.",
+    2001=>"The memory allocation is insufficient.",
+    2003=>"The Requester does not allow local access to the specified file.",
+    2004=>"SPX is not installed.",
+    2005=>"An incorrect version of SPX is installed.",
+    2006=>"There is no available SPX connection.",
+    2007=>"A pointer parameter is invalid.",
+    2008=>"Router cannot find engine.",
+    2009=>"Cannot load MicroKernel Router component.",
+    2010=>"Thunk not possible - the Win32 MicroKernel router could not be found or is incompatible.",
+    2011=>"Btrieve requester resource DLL not loaded.",
+    2012=>"The Btrieve requester encountered an operating system error.",
+    2200=>"XLT Winsock Error.",
+    2201=>"XLT RPC Error.",
+    2300=>"No more database names are defined.",
+    2301=>"The database name is invalid.",
+    2302=>"Invalid buffer length.",
+    2303=>"The database name must be unique; the specified database name already exists.",
+    2304=>"The database type is invalid.",
+    2305=>"The specified path for data dictionary or data file locations is invalid.",
+    2306=>"DBNAMES.CFG could not be updated.",
+    2307=>"Cannot open DBNAMES.CFG file.",
+    2308=>"The specified RI flag is invalid.",
+    2309=>"The database is in use.",
+    2312=>"The bound database cannot share table data files.",
+    2313=>"The bound database cannot share data dictionary files.",
+    2314=>"Cannot create DBNAMES.CFG file.",
+    2316=>"Cannot create DDF files for the bound database.",
+    2324=>"Data dictionary files are not bound.",
+    2325=>"Data dictionary files are already bound.",
+    2326=>"Data dictionary files are bound, but do not need to be bound.",
+    2329=>"Data file for a table is not bound.",
+    2330=>"Data file for a table is bound, but does not need to be bound.",
+    2331=>"Not allowed to change data dictionary location and change name at the same time.",
+    2332=>"Not allowed to bind database and change name at the same time.",
+    2333=>"Not allowed to unbind database and change name at the same time.",
+    2334=>"Not allowed to create a data dictionary files and change name at the same time.",
+    2335=>"Not allowed to change data locations and change name at the same time.",
+    2336=>"Not allowed to change data dictionary location and bind database at the same time.",
+    2337=>"Not allowed to change data dictionary location and unbind database at the same time.",
+    2338=>"Not allowed to change the dictionary location and create dictionary files at the same time.",
+    2339=>"Not allowed to create data dictionary files and bind database at the same time.",
+    2340=>"Not allowed to create data dictionary and unbind database at the same time.",
+    2341=>"Not allowed to bind database and change data locations at the same time.",
+    2342=>"Not allowed to unbind database and change data locations at the same time.",
+    2343=>"Named database general error.",
+    3000=>"The MicroKernel router encountered a memory allocation error.",
+    3001=>"Local access is unavailable to the MicroKernel router.",
+    3002=>"The MicroKernel router resource DLL is unavailable.",
+    3003=>"The MicroKernel router detected an incompatible network component.",
+    3004=>"The MicroKernel is not responding to the MicroKernel router.",
+    3005=>"The MicroKernel router encountered an operating system error.",
+    3006=>"The MicroKernel router detected an invalid session.",
+    3008=>"Invalid configuration for MicroKernel router.",
+    3009=>"NETinterface.DLL is not loaded.",
+    3010=>"NetWare API DLLs are not loaded.",
+    3011=>"Thunk not possible - the Win32 MicroKernel router could not be found or is incompatible.",
+    3012=>"Local engine is not accessible to the MicroKernel router.",
+    3013=>"The remote engine is inaccessible to the MicroKernel router because the networking component is not loaded.",
+    3014=>"The MicroKernel router cannot find an engine.",
+    3015=>"The MicroKernel router encountered an initialization error.",
+    3016=>"The MicroKernel router encountered an internal error.",
+    3017=>"Data buffer of the local engine is too small.",
+    3018=>"The file is already closed.",
+    3019=>"The MicroKernel router encountered a semaphore error.",
+    3020=>"An error occurred while loading the MicroKernel.",
+    3021=>"The MicroKernel router received a badly formatted data packet.",
+    3022=>"The MicroKernel router could not send the request to the remote engine because the specified data buffer length resulted in a data packet object that is too large.",
+    3023=>"The task table of the MicroKernel router is full.",
+    3025=>"Cannot load IDS client requester.",
+    3026=>"Incompatible IDS client requester.",
+    3027=>"Connection failure to IDS target server.",
+    3028=>"Login failure to IDS target server.",
+    3029=>"IDS Not Allowed.",
+    3030=>"Remote access not allowed.",
+    3103=>"Server name not found by Pervasive Network Services Layer.",
+    3104=>"The Pervasive Network Services Layer encountered a permission error.",
+    3105=>"No available transport protocol for the Pervasive Network Services Layer.",
+    3106=>"The Pervasive Network Services Layer encountered a connection failure.",
+    3107=>"The Pervasive Network Services Layer is out of memory.",
+    3108=>"The Pervasive Network Services Layer detected an invalid session.",
+    3110=>"The network layer is not connected.",
+    3111=>"Failure during send to the target server.",
+    3112=>"Failure during receive from the target server.",
+    3114=>"The routing table of the Pervasive Network Services Layer is full.",
+    3115=>"Pervasive Network Services Layer encountered a transport failure.",
+    3119=>"No authentication context is available.",
+    3124=>"Pervasive Network Services Layer task table is full.",
+    3125=>"The Pervasive Network Services Layer was unable to resolve the Novell Directory Services name into a NetWare server name.",
+    3126=>"The Pervasive Network Services Layer was unable to resolve the given filename into a valid path.",
+    3127=>"Failure during send to the IDS target server.",
+    3128=>"Failure during receive from the IDS target server.",
+    3131=>"Pervasive Network Services Layer encountered an error while reconnecting.",
+    4083=>"Component not loaded.",
+    4086=>"An internal error occurred. Utilities Requester receive size too small.",
+    7002=>"The key number is invalid.",
+    7003=>"The User Count Manager cannot write to the key file.",
+    7004=>"The User Count Manager cannot write to the specified file.",
+    7005=>"The User Count Manager cannot read the key file.",
+    7006=>"The User Count Manager cannot read the specified file.",
+    7007=>"The User Count Manager encountered a premature end of file.",
+    7008=>"The User Count Manager cannot open the specified file.",
+    7009=>"The User Count Manager cannot modify the specified file.",
+    7010=>"The User Count Manager cannot find the specified file.",
+    7011=>"You cannot increase the user count with the same key number twice.",
+    7012=>"The key file integrity has been compromised.",
+    7013=>"The key type is invalid.",
+    7014=>"The User Count Manager is already in use. Try again later.",
+    7016=>"The User Count Manager cannot read the specified file; the file may be corrupt.",
+    7017=>"UCMGR-310: Serial number synchronization error. Unable to find valid stamp area.",
+    7018=>"UCMGR-311: Serial number synchronization error. Invalid stamp area read.",
+    7019=>"UCMGR-312: Serial number synchronization error. One or more stamp numbers read do not match.",
+    7020=>"UCMGR-313: Serial number synchronization error. Could not write stamp number to one of the files. Make sure the database engine is not loaded and that you have access rights to the files.",
+    7021=>"UCMGR-314: Serial number synchronization error. Files have not been stamped and the user count key file exists.",
+    7022=>"UCMGR-315: Serial number synchronization error. The key file stamp number does not match the stamp number in the other files.",
+    7023=>"UCMGR-316: Serial number synchronization error. Files have been stamped but the user count key file does not exist. If you have made a backup copy of your user count key file (<plat>UCMGR.SYS), please restore it to the database engine directory.",
+    7026=>"The User Count Manager cannot find the diskette key file: UCMGR.KEY.",
+    7028=>"The diskette key has already been applied.",
+    7029=>"The User Count Manager cannot read the diskette key file.",
+    7030=>"DOS partition services are not present.",
+    7031=>"The User Count Manager cannot copy the diskette key file.",
+    7032=>"The User Count Manager cannot open the diskette key file.",
+    7033=>"The User Count Manager cannot write to the diskette key file.",
+    7035=>"The serial numbers do not match.",
+    7036=>"The serial numbers do not match.",
+    7037=>"The serial numbers do not match.",
+    7038=>"The serial numbers do not match.",
+    7039=>"The User Count Manager cannot delete the specified file.",
+    7040=>"The User Count Manager cannot rename the specified file.",
+    7041=>"The User Count Manager is not initialized.",
+    7042=>"The User Count Manager cannot determine the platform.",
+    7046=>"The User Count Manager cannot migrate Btrieve user count.",
+    7048=>"The operation is invalid for Btrieve v6.1x migration.",
+    7049=>"User count license is already unlimited for this product.",
+    7050=>"Incorrect user count resource DLL.",
+    7051=>"Incorrect major version of user count resource DLL.",
+    7052=>"Incorrect minor version of user count resource DLL.",
+    7053=>"Incorrect patch number for user count resource DLL.",
+    7054=>"License key does not match product version.",
+    7061=>"Your Pervasive Database engine expired on <date>. Please contact Pervasive Software for more information.",
+    7062=>"Your Pervasive Database engine will expire on <date> because you have a temporary license key.",
+    7063=>"Your user count license limit has been reached.",
+    7064=>"The license you tried to remove does not exist.",
+    7065=>"The product for which you requested the user count license does not exist.",
+    8001=>"The Services DLL encountered an error while allocating memory.",
+    8002=>"The component ID string was not found.",
+    8003=>"Thunk path is not accessible to the Services DLL.",
+    8005=>"Interface not initialized.",
+    8006=>"The specified component was not found.",
+    8007=>"Error retrieving Win32 version information.",
+    8008=>"Information mismatch in component ID.",
+    8009=>"Required information missing in component ID.",
+    8010=>"Error while opening a file to retrieve component ID.",
+    8012=>"Required information for binding rule is missing.",
+    8013=>"Error locating a component.",
+    8016=>"Invalid instance specified.",
+    8017=>"Invalid version information structure.",
+    8018=>"Item not found by Services DLL.",
+    8019=>"Library not accepting interface requests.",
+    8020=>"Error loading component.",
+    8022=>"Component not initialized.",
+    8023=>"Invalid filename passed to Services DLL.",
+    8024=>"Invalid function name.",
+    8027=>"Required attribute missing in component ID.",
+    8030=>"Return buffer too small for information.",
+    8032=>"Component ID is invalid.",
+    8035=>"Invalid interface for NetWare platform.",
+    8039=>"Invalid operating system handle specified.",
+    8040=>"CRC check on component ID failed.",
+    8500=>"An error occurred during the Smart Components initialization.",
+    8502=>"An error occurred when trying to locate W3UPIXYY.DLL.",
+    8503=>"An invalid W3UPIXYY.DLL has been found.",
+    8504=>"An error occurred when trying to create system semaphore.",
+    8505=>"An initialization error occurred when trying to establish a session with the workstation engine.",
+    8506=>"A fatal error occurred when loading the MicroKernel.",
+    8507=>"No valid session was found.",
+    8508=>"An error occurred when attempting to enable Btrieve access.",
+    8509=>"A timeout occurred during the initialization of the MicroKernel.",
+    8510=>"A fatal error occurred when loading the Scalable SQL engine.",
+    8511=>"An error occurred when attempting to enable SQL access.",
+    8512=>"A timeout occurred during the initialization of the Scalable SQL engine.",
+    8513=>"An error occurred when disabling Btrieve access.",
+    8514=>"An error occurred when unloading the MicroKernel.",
+    8515=>"An error occurred when disabling SQL access.",
+    8516=>"An error occurred when unloading the Scalable SQL engine.",
+    8517=>"An error occurred when closing the session with the workstation engine.",
+    8518=>"An error occurred when attempting to allocate system memory.",
+    8519=>"A fatal error occurred when loading the SRDE.",
+    8520=>"A timeout occurred during the initialization of the SRDE module.",
+    8521=>"An error occurred when unloading the SRDE module.",
+    8590=>"An error occurred in the database manager while initializing Smart Components Manager.",
+    8591=>"The database manager is already loaded.",
+    8592=>"Insufficient memory to load the database manager.",
+    8593=>"An error occurred while the database manager was creating a system thread.",
+    8594=>"Engine cannot be restarted.",
+    10000=>"You have been unexpectedly disconnected from the server.",
+    10001=>"You have been unexpectedly disconnected from the server.",
+    10002=>"You have been unexpectedly disconnected from the server.",
+    10003=>"You have been unexpectedly disconnected from the server.",
+    10004=>"You have been unexpectedly disconnected from the server.",
+    10005=>"You have been unexpectedly disconnected from the server.",
+    10006=>"You have been unexpectedly disconnected from the server.",
+    10007=>"You have been unexpectedly disconnected from the server.",
+    10008=>"You have been unexpectedly disconnected from the server.",
+    10009=>"You have been unexpectedly disconnected from the server.",
+    10010=>"You have been unexpectedly disconnected from the server.",
+    10011=>"You have been unexpectedly disconnected from the server.",
+    10012=>"You have been unexpectedly disconnected from the server.",
+    10013=>"You have been unexpectedly disconnected from the server.",
+    10014=>"You have been unexpectedly disconnected from the server.",
+    10015=>"You have been unexpectedly disconnected from the server.",
+    10016=>"You have been unexpectedly disconnected from the server.",
+    10017=>"You have been unexpectedly disconnected from the server.",
+    10018=>"You have been unexpectedly disconnected from the server.",
+    10019=>"You have been unexpectedly disconnected from the server.",
+    10020=>"You have been unexpectedly disconnected from the server.",
+    10021=>"You have been unexpectedly disconnected from the server.",
+    10022=>"You have been unexpectedly disconnected from the server.",
+    10023=>"You have been unexpectedly disconnected from the server.",
+    10024=>"You have been unexpectedly disconnected from the server.",
+    10025=>"You have been unexpectedly disconnected from the server.",
+    10026=>"You have been unexpectedly disconnected from the server.",
+    10027=>"You have been unexpectedly disconnected from the server.",
+    10028=>"You have been unexpectedly disconnected from the server.",
+    10029=>"You have been unexpectedly disconnected from the server.",
+    10030=>"You have been unexpectedly disconnected from the server.",
+    10031=>"You have been unexpectedly disconnected from the server.",
+    10032=>"You have been unexpectedly disconnected from the server.",
+    10033=>"You have been unexpectedly disconnected from the server.",
+    10034=>"You have been unexpectedly disconnected from the server.",
+    10035=>"You have been unexpectedly disconnected from the server.",
+    10036=>"You have been unexpectedly disconnected from the server.",
+    10037=>"You have been unexpectedly disconnected from the server.",
+    10038=>"You have been unexpectedly disconnected from the server.",
+    10039=>"You have been unexpectedly disconnected from the server.",
+    10040=>"You have been unexpectedly disconnected from the server.",
+    10041=>"You have been unexpectedly disconnected from the server.",
+    10042=>"You have been unexpectedly disconnected from the server.",
+    10043=>"You have been unexpectedly disconnected from the server.",
+    10044=>"You have been unexpectedly disconnected from the server.",
+    10045=>"You have been unexpectedly disconnected from the server.",
+    10046=>"You have been unexpectedly disconnected from the server.",
+    10047=>"You have been unexpectedly disconnected from the server.",
+    10048=>"You have been unexpectedly disconnected from the server.",
+    10049=>"You have been unexpectedly disconnected from the server.",
+    10050=>"You have been unexpectedly disconnected from the server.",
+    10051=>"You have been unexpectedly disconnected from the server.",
+    10052=>"You have been unexpectedly disconnected from the server.",
+    10053=>"You have been unexpectedly disconnected from the server.",
+    10054=>"You have been unexpectedly disconnected from the server.",
+    10055=>"You have been unexpectedly disconnected from the server.",
+    10056=>"You have been unexpectedly disconnected from the server.",
+    10057=>"You have been unexpectedly disconnected from the server.",
+    10058=>"You have been unexpectedly disconnected from the server.",
+    10059=>"You have been unexpectedly disconnected from the server.",
+    10060=>"You have been unexpectedly disconnected from the server.",
+    10061=>"You have been unexpectedly disconnected from the server.",
+    10062=>"You have been unexpectedly disconnected from the server.",
+    10063=>"You have been unexpectedly disconnected from the server.",
+    10064=>"You have been unexpectedly disconnected from the server.",
+    10065=>"Connection attempt timed out."
+  }
+
+end
+

data/lib/btrieve/btrieve_core.rb

@@ -0,0 +1,56 @@
+require 'ffi'
+require_relative 'btrieve_const'
+
+module Btrieve
+  extend FFI::Library
+  include BtrCodes
+
+  if( RUBY_PLATFORM.match('mswin|mingw|cygwin'))
+    ffi_lib 'w3btrv7.dll'
+  elsif(RUBY_PLATFORM.match('linux'))
+    ffi_lib 'libpsqlmif.so'
+  else
+    raise Exception.new("Unknown RUBY_PLATFORM #{RUBY_PLATFORM} to perform FFI calls into PSQL.")
+  end
+
+  attach_function :BTRCALLID, [:int, :pointer, :pointer, :pointer, :pointer, :uchar, :uchar, :pointer], :int
+
+  def btr_op(session, ops, pos_buffer, data_buffer, key_buffer, key_number, valid_return_codes=[0])
+    data_length = [data_buffer.size].pack('L')
+    key_length = key_buffer.size
+    result_code = BTRCALLID(ops, pos_buffer, data_buffer, data_length, key_buffer, key_length, key_number, session.client_id)
+    unless valid_return_codes.include?(result_code)
+      p "ops=#{ops} data_buffer.length=#{data_buffer.length} key_buffer=#{key_buffer}, key_buffer.length=#{key_buffer.length}, key_number=#{key_number}, session.client_id=#{session.client_id}"
+      raise Exception.new("PSQL Exception Code #{result_code} - #{EXCEPTION_MESSAGES[result_code]}")
+    end
+    result_code
+  end
+
+  def self.create_string_buffer(size)
+    0.chr*(size)
+  end
+end
+
+module Timer
+  def timer(&block)
+    start_time = Time.now
+    yield
+    end_time = Time.now
+    end_time - start_time
+  end
+
+  def timer2(out=nil, &block)
+    start_time = Time.now
+    out = yield out
+    [Time.now - start_time, out]
+  end
+end
+
+require_relative 'btrieve_session'
+require_relative 'btrieve_table'
+require_relative 'btrieve_schema'
+require_relative 'btrieve_meta'
+require_relative 'btrieve_record'
+require_relative 'btrieve_model'
+require_relative 'fos_code'
+

data/lib/btrieve/btrieve_meta.rb

@@ -0,0 +1,63 @@
+class BtrieveMeta
+  include Btrieve
+
+  TO_FOS_DATE=lambda{|date|Date.strptime(date,"%Y%m%d").jd-Date.parse("1900/01/01").jd+1}
+  FROM_FOS_DATE=lambda{|day|Date.jd(day.to_i+Date.parse("1900/01/01").jd-1)}
+  TO_FOS_TIME=lambda{|time|time[0,2].to_i*60+time[3,2].to_i}
+  FROM_FOS_TIME=lambda{|time|"#{time.to_i/60}:#{(time.to_i%60).to_s.rjust(2,"0")}"}
+
+  def initialize(session)
+    @session=session
+    @mapping={
+      "passengers"=>{
+#        "birthday"=>{:up=>FROM_FOS_DATE, :down=>TO_FOS_DATE},
+#        "last flown"=>{:up=>FROM_FOS_DATE, :down=>TO_FOS_DATE}
+      },
+      "trip legs"=>{
+#        "dept date act local"=>{:up=>FROM_FOS_DATE, :down=>TO_FOS_DATE},
+#        "dept time act local"=>{:up=>FROM_FOS_TIME, :down=>TO_FOS_TIME},
+#        "arr date act local"=>{:up=>FROM_FOS_DATE, :down=>TO_FOS_DATE},
+#        "arriv time act local"=>{:up=>FROM_FOS_TIME, :down=>TO_FOS_TIME},
+#        "flight time actual"=>{:up=>FROM_FOS_TIME, :down=>TO_FOS_TIME},
+#        "leg type code"=>{:up=>FROM_FOS_CODE('trip_type___'), :down=>TO_FOS_CODE('trip_type___')},
+#        "leg purpose code"=>{:up=>FROM_FOS_CODE('purpose_____'), :down=>TO_FOS_CODE('purpose_____')}
+      }
+    }
+    @codes={}
+    codes_table=@session.get_table("codes")[0]
+    codes_table.each_record(BtrCodes::READ_ONLY_MODE) do |row|
+      group=row[:name]
+      code=row[:code]
+      description=row[:description]
+      value=row[:value]
+      group_map=@codes[group]||={}
+      group_map[value]=FosCode.new(group, value, code, description)
+    end
+  end
+
+  def up(tablename, column_name, value)
+    db_cast(tablename, column_name, value, :up)
+  end
+
+  def down(tablename, column_name, value)
+    db_cast(tablename, column_name, value, :down)
+  end
+
+  private
+
+  def db_cast(tablename, column_name, value, mode)
+    table=@mapping[tablename.to_s]
+    return value if(table.nil?)
+    column=table[column_name.to_s]
+    return value if(column.nil?)
+    column[mode].call(value)
+  end
+
+  def FROM_FOS_CODE(groupname)
+    lambda{|value|@codes[groupname][value]}
+  end
+
+  def TO_FOS_CODE(groupname)
+    lambda{|value|@codes[groupname][value].value}
+  end
+end

data/lib/btrieve/btrieve_model.rb

@@ -0,0 +1,49 @@
+class BtrieveModel
+  include Btrieve
+  def initialize(classname, tablename)
+    session = BtrieveSession.get_session()
+    table = BtrieveTable.new(tablename, session)
+    session.model_classes[classname] = table
+  end
+
+  def self.new_record()
+    BtrieveRecord.new(get_table())
+  end
+
+  def self.find_in_unique_index(match, index_number)
+    get_table().find_in_unique_index(match, index_number)
+  end
+
+  def self.find_in_index(match, index_number)
+    get_table().find_in_index(match, index_number)
+  end
+
+  def self.each_record(mode=ACCELERATED_MODE, &block)
+    get_table().each_record(mode, &block)
+  end
+
+  def self.batch(mode=ACCELERATED_MODE, &block)
+    get_table().batch(mode, &block)
+  end
+
+  def self.one_to_one(association)
+    get_table().schema[:one_to_one][association[:name]]=association
+  end
+
+  def self.one_to_many(association)
+    get_table().schema[:one_to_many][association[:name]]=association
+  end
+
+  private
+
+  def self.get_table()
+    session = BtrieveSession.get_session()
+    session.model_classes[self.name.to_sym]
+  end
+end
+
+def BtrieveModel(classname, tablename)
+  raise Exception.new("The context is not set. Call 'Btrieve::Session.set_context( <pathname> )' before declaring model classes.") unless BtrieveSession.get_session() != nil
+  BtrieveModel.new(classname, tablename)
+  BtrieveModel
+end

data/lib/btrieve/btrieve_record.rb

@@ -0,0 +1,127 @@
+require 'digest/md5'
+
+class BtrieveRecord
+  include Btrieve
+  attr_reader :data_buffer, :btrieve_table
+
+  def initialize(btrieve_table, data_buffer = nil )
+    @btrieve_table = btrieve_table
+    @data_buffer = data_buffer.nil? ? Btrieve.create_string_buffer(@btrieve_table.schema[:record_size]) : data_buffer
+    @session = @btrieve_table.session
+  end
+
+  def insert
+    btr_op(@session, INSERT, @btrieve_table.pos_buffer, @data_buffer, NULL_BUFFER, NO_CURRENCY_CHANGE)
+  end
+
+  def update
+    btr_op(@session, UPDATE, @btrieve_table.pos_buffer, @data_buffer, NULL_BUFFER, NO_CURRENCY_CHANGE)
+  end
+
+  def delete
+    btr_op(@session, DELETE, @btrieve_table.pos_buffer, NULL_BUFFER, NULL_BUFFER, NULL_KEY)
+  end
+
+  def get_attributes(keys)
+    keys.inject({}){|vals, key| vals[key]=self[key]; vals}
+  end
+
+  def get_all_attributes()
+    get_attributes(self.btrieve_table.schema[:columns].keys.sort.inject([]){|array,column|array<<column;array})
+  end
+
+  def primary_key()
+    get_composite_key(PK_KEYS)
+  end
+
+  def foreign_key(prefix)
+    keys=PK_KEYS.map{|key|:"#{prefix} #{key.to_s}"}
+    get_composite_key(keys)
+  end
+
+  def get_unique_reference(association_name)
+    dereference(:one_to_one, association_name) do |map, target, index|
+      fk_columns = map.keys.inject([]){|vals, column| vals << column; vals}
+      fk_values = get_attributes(fk_columns)
+      pk_values = map.keys.inject({}){|vals, column| vals[map[column]] = fk_values[column]; vals}
+      target.find_in_unique_index(pk_values, index)
+    end
+  end
+
+  def get_multiple_references(association_name)
+    dereference(:one_to_many, association_name) do |map, target, index|
+      pk_columns = map.keys.inject([]){|vals, column| vals << map[column] unless map[column] == nil; vals}
+      pk_values = get_attributes(pk_columns)
+      fk_values = map.keys.inject({}){|vals, column| vals[column] = pk_values[map[column]]; vals}
+      target.find_in_index(fk_values, index)
+    end
+  end
+
+  def [](key_name)
+    schema_key=get_schema_key(key_name)
+    return nil if(schema_key.nil?)
+    raw_data=@data_buffer.unpack(schema_key[:unpacker])[0]
+    meta = @session.btrieve_meta
+    return raw_data if meta.nil?    # BS LOC - I'm ashamed
+    meta.up(@btrieve_table.tablename, key_name, raw_data)
+  end
+
+#  def [](key_name)
+#    schema_key = get_schema_key(key_name)
+#    @data_buffer.unpack(schema_key[:unpacker])[0] if schema_key
+#  end
+  
+  def []=(key_name, raw_data)
+    value=@session.btrieve_meta.down(@btrieve_table.tablename, key_name, raw_data)
+    schema_key = get_schema_key(key_name)
+    packer_string = schema_key[:unpacker]
+    match = packer_string.match(/@(\d+)([a-zA-Z]+)(\d*)/)
+    offset = match[1].to_i
+    datatype = match[2]
+    sizeof = BtrieveSchema.sizeof(datatype)
+    sizeof *= match[3].empty? ? 1 : match[3].to_i
+    packer = "#{datatype}#{sizeof}"
+    array = [value]
+    packed_value = array.pack(packer)
+    range = (offset..offset+sizeof-1)
+    @data_buffer[range] = packed_value
+  end
+
+  def to_s()
+    @btrieve_table.schema[:columns].keys.inject('') { |pretty_print, key| pretty_print = "#{pretty_print} #{key}=>#{self[key]}"; pretty_print }
+  end
+
+  def method_missing(symbol)
+    return get_unique_reference(symbol) if(@btrieve_table.schema[:one_to_one][symbol])
+    return get_multiple_references(symbol) if(@btrieve_table.schema[:one_to_many][symbol])
+    super(symbol)
+  end
+
+  def version()
+    Digest::MD5.hexdigest(@data_buffer)
+  end
+
+  private
+
+  def dereference(association_group, association_name, &block)
+    association = @btrieve_table.schema[association_group][association_name]
+    raise Exception.new("Unknown association '#{association_name}' for table '#{@btrieve_table.tablename}'.") unless association != nil
+    map = association[:map]
+    target = eval(association[:class].to_s)
+    index = association[:index]
+    yield(map, target, index)
+  end
+
+  def get_schema_key(key_name)
+    schema_key = @btrieve_table.schema[:columns][key_name]
+    # raising this exception is hurting the dbr process since I use keys that dont exist
+    # raise Exception.new("Unknown column '#{key_name}' for table '#{@btrieve_table.tablename}'.") unless schema_key != nil
+    schema_key
+  end
+
+  def get_composite_key(keys)
+    pk=keys.inject([]){|arr,col|arr<<self[col];arr}
+    pk[2]=pk[2].strip
+    pk.join('.')
+  end
+end

data/lib/btrieve/btrieve_schema.rb

@@ -0,0 +1,128 @@
+class BtrieveSchema
+  include Btrieve
+  attr_reader :session, :xfile_records, :xfield_records
+
+  def initialize(session)
+    @session = session
+    if(!@session.cache[:schemas_loaded])
+      cache_system_table(:'x$file')
+      cache_system_table(:'x$field')
+      cache_system_table(:'x$index')
+      @session.cache[:schemas_loaded] = true
+    end
+  end
+
+  def load_schema(tablename)
+    schema = nil
+    xfile_index = nil
+    @session.cache[:'x$file'].each do |xfile|
+      next unless xfile[:'xf$name'].downcase.strip.to_sym == tablename
+      schema = {:filename=>xfile[:'xf$loc'].downcase.strip, :record_size=>0, :columns=>{}}
+      xfile_index = xfile[:'xf$id']
+      break
+    end
+    xfield_index = []
+    @session.cache[:'x$field'].each do |xfield|
+      next unless xfile_index == xfield[:'xe$file']
+      next unless xfield[:'xe$datatype'] < MAX_DATATYPE
+      id = xfield[:'xe$id']
+      name = xfield[:'xe$name'].strip.downcase
+      offset = xfield[:'xe$offset']
+      size = xfield[:'xe$size']
+      datatype = xfield[:'xe$datatype']
+      datatype = (name == 'kid - mult') ? 14 : datatype # BS line of code...
+      unpacker = BtrieveSchema.unpacker(offset, datatype, size)
+      schema[:columns][name.to_sym] = {:unpacker=>unpacker, :id=>id, :offset=>offset, :datatype=>datatype, :size=>size}
+      schema[:record_size] += size
+      xfield_index[id] = name.to_sym
+    end
+    @session.cache[:'x$index'].each do |xindex|
+      next unless xfile_index == xindex[:'xi$file']
+      indices = schema[:indices] ||= []
+      index = indices[xindex[:'xi$number']] ||= []
+      index[xindex[:'xi$part']] = xfield_index[xindex[:'xi$field']]
+      flags = schema[:index_flags] ||= []
+      flags[xindex[:'xi$number']] = flags[xindex[:'xi$number']].to_i | xindex[:'xi$flags'].to_i
+    end
+    raise Exception.new("Unknown table '#{tablename}'.") if schema.nil?
+    schema[:one_to_one] = {}
+    schema[:one_to_many] = {}
+    schema
+  end
+
+  def self.sizeof(code)
+    SIZEOF[code]
+  end
+
+  private
+
+  SYS_DDF = {
+    :'x$file'=>{:filename=>'file.ddf', :record_size=>97, :columns=>{:'xf$id'=>{:unpacker=>'@0S'}, :'xf$name'=>{:unpacker=>'@2a20'},:'xf$loc'=>{:unpacker=>'@22a64'}, :'xf$flags'=>{:unpacker=>'@86C'},:'xf$reserved'=>{:unpacker=>'@87a10'}}},
+    :'x$field'=>{:filename=>'field.ddf', :record_size=>32, :columns=>{:'xe$id'=>{:unpacker=>'@0S'}, :'xe$file'=>{:unpacker=>'@2S'}, :'xe$name'=>{:unpacker=>'@4a20'}, :'xe$datatype'=>{:unpacker=>'@24C'}, :'xe$offset'=>{:unpacker=>'@25S'}, :'xe$size'=>{:unpacker=>'@27S'}, :'xe$dec'=>{:unpacker=>'@29C'}, :'xe$flags'=>{:unpacker=>'@30S'}}},
+    :'x$index'=>{:filename=>'index.ddf', :record_size=>32, :columns=>{:'xi$file'=>{:unpacker=>'@0S'},:'xi$field'=>{:unpacker=>'@2S'},:'xi$number'=>{:unpacker=>'@4S'},:'xi$part'=>{:unpacker=>'@6S'},:'xi$flags'=>{:unpacker=>'@8S'}}}
+  }
+
+  CHAR = { :name=>'CHAR', :unpacker=>'a' }
+  TINYINT = { :name=>'TINYINT', :unpacker=>'c' }
+  SMALLINT = { :name=>'SMALLINT', :unpacker=>'s' }
+  INTEGER = { :name=>'INTEGER', :unpacker=>'i' }
+  REAL = { :name=>'REAL', :unpacker=>'f' }
+  DOUBLE = { :name=>'DOUBLE', :unpacker=>'d' }
+  DATE = { :name=>'DATE', :unpacker=>'ccs' } #day month year
+  TIME = { :name=>'TIME', :unpacker=>'cccc' } #100th sec min hour
+  BIT = { :name=>'BIT', :unpacker=>'c' }
+  VARCHAR = { :name=>'VARCHAR', :unpacker=>'A' }
+  LONGVARCHAR = { :name=>'LONGVARCHAR', :unpacker=>'A' }
+  UTINYINT = { :name=>'UTINYINT', :unpacker=>'C' }
+  USMALLINT = { :name=>'USMALLINT', :unpacker=>'S' }
+  UINTEGER = { :name=>'UINTEGER', :unpacker=>'I' }
+  UBIGINT = { :name=>'UBIGINT', :unpacker=>'Q' }
+
+  SIZEOF = {'a'=>1, 'c'=>1, 's'=>1, 'i'=>1, 'f'=>1, 'd'=>1, 'ccs'=>4, 'cccc'=>4, 'A'=>1, 'C'=>1, 'S'=>1, 'I'=>1, 'Q'=>1}
+
+  def self.unpacker(offset, datatype, size)
+    offsetter = "@#{offset}"
+    btrtype = lookup(datatype, size)
+    multiplier = btrtype[:name].match('CHAR') ? size : ''
+    "#{offsetter}#{btrtype[:unpacker]}#{multiplier}"
+  end
+
+  def self.readable_type(column)
+    c=column.to_a[0]
+    btrtype = lookup(c[1][:datatype],c[1][:size])
+    [:name=>c[0], :datatype=>btrtype[:name], :size=>c[1][:size]]
+  end
+
+  def self.sort(schema)
+    schema.inject([]){|array,column|array[column[1][:offset]]={column[0]=>column[1]};array}.compact
+  end
+
+  def self.lookup(datatype, size)
+    case datatype
+      when 0 then CHAR
+      when 1 then case size when 1 then TINYINT when 2 then SMALLINT when 4 then INTEGER else raise Exception.new("Unknown BTRTYPE for 'datatype'=#{datatype} and 'size'=#{size}."); end
+      when 2 then case size when 4 then REAL when 8 then DOUBLE else raise Exception.new("Unknown BTRTYPE for 'datatype'=#{datatype} and 'size'=#{size}."); end
+      when 3 then DATE
+      when 4 then TIME
+      when 7 then BIT
+      when 11 then VARCHAR
+      when 12 then LONGVARCHAR
+      when 14 then case size when 1 then UTINYINT when 2 then USMALLINT when 4 then UINTEGER when 8 then UBIGINT else raise Exception.new("Unknown BTRTYPE for 'datatype'=#{datatype} and 'size'=#{size}."); end
+      when 16 then BIT
+      when 21 then LONGVARCHAR
+      else raise Exception.new("Unknown BTRTYPE for 'datatype'=#{datatype} and 'size'=#{size}.")
+    end
+  end
+
+  def cache_system_table(tablename)
+    @session.cache[tablename] = []
+    schema_table = BtrieveTable.new(SYS_DDF[tablename][:filename], @session, SYS_DDF[tablename])
+    schema_table.each_record(ACCELERATED_MODE) {|value| @session.cache[tablename] << value}
+  end
+end
+
+class Array
+  def include_all?(other_array)
+    (self.size == other_array.size) && ((self & other_array).size == self.size)
+  end
+end

data/lib/btrieve/btrieve_session.rb

@@ -0,0 +1,50 @@
+class BtrieveSession
+  SESSIONS = {}
+  include Btrieve
+  attr_reader :pathname, :client_id, :cache, :model_classes, :btrieve_schema, :btrieve_meta
+
+  def self.set_context(pathname)
+    session = get_session
+    if session
+      raise Exception.new("The existing context in the current is set to a different pathname.")  if(session.pathname != pathname)
+    else
+      SESSIONS[Thread.current] = new(pathname)
+    end
+  end
+
+  def self.get_session
+    SESSIONS[Thread.current]
+
+  end
+
+  def transaction(&block)
+    btr_op(self, BEGIN_TRANSACTION, NULL_BUFFER, NULL_BUFFER, NULL_BUFFER, NULL_KEY)
+    begin
+      yield
+    rescue Exception => exception
+      btr_op(self, ABORT_TRANSACTION, NULL_BUFFER, NULL_BUFFER, NULL_BUFFER, NULL_KEY)
+      raise Exception.new("PSQL TX ABORTED!!! - #{exception.message}\n#{exception.backtrace.join("\n\t")}")
+    end
+    btr_op(self, END_TRANSACTION, NULL_BUFFER, NULL_BUFFER, NULL_BUFFER, NULL_KEY)
+  end
+
+  def get_table(url_tablename)
+    tablename=BtrieveTable.url_to_tablename(url_tablename)
+    table=@table_cache[tablename]||=BtrieveTable.new(tablename.to_sym, self)
+    [table,table.version]
+  end
+
+  private
+
+  def initialize(pathname)
+    @cache = {}
+    @model_classes = {}
+    @table_cache = {}
+    @pathname = pathname
+    @client_id = "#{0.chr*12}#{[0x5257].pack('S')}#{rand(65535)}"
+    btr_op(self, SET_DIRECTORY, NULL_BUFFER, NULL_BUFFER, @pathname, NULL_KEY)
+    @btrieve_schema = BtrieveSchema.new(self)
+    @btrieve_meta = BtrieveMeta.new(self)
+  end
+end
+

data/lib/btrieve/btrieve_table.rb

@@ -0,0 +1,115 @@
+require 'digest/md5'
+
+class BtrieveTable
+  include Btrieve
+  attr_reader :tablename, :session, :pos_buffer, :schema
+
+  def initialize(tablename, session, schema = nil)
+    @tablename = tablename
+    @session = session
+    @pos_buffer = Btrieve.create_string_buffer(POS_BLOCK_SIZE)
+    @schema = schema ? schema : @session.btrieve_schema.load_schema(@tablename)
+  end
+
+  def open(mode = NORMAL_MODE)
+    btr_op(@session, OPEN, @pos_buffer, NULL_BUFFER, @schema[:filename], mode)
+  end
+
+  def find_in_unique_index(match, index_number=nil)
+    finder(match, index_number) do |key_buffer, index|
+      btr_record = BtrieveRecord.new(self)
+      batch(){ btr_op(@session, GET_EQUAL, @pos_buffer, btr_record.data_buffer, key_buffer, index) }
+      btr_record
+    end
+  end
+
+  def find_in_index(match, index_number=nil)
+    finder(match, index_number) do |key_buffer, index|
+      absolute_match = match.keys.inject({}){|vals, key| vals[key] = match[key] if(match[key] != nil); vals}
+      absolute_match_keys = absolute_match.keys
+      result = []
+      batch() do
+        btr_record = BtrieveRecord.new(self)
+        btr_op(@session, GET_GREATER_THAN_OR_EQUAL, @pos_buffer, btr_record.data_buffer, key_buffer, index)
+        result << btr_record
+        while(true)
+          btr_record = BtrieveRecord.new(self)
+          op_result = btr_op(@session, GET_NEXT, @pos_buffer, btr_record.data_buffer, key_buffer, index_number, [OK, EOF, 21])
+          break unless btr_record.get_attributes(absolute_match_keys)==absolute_match and op_result!=EOF and op_result!=21
+          result << btr_record
+        end
+      end
+      result
+    end
+  end
+
+  def close
+    btr_op(@session, CLOSE, @pos_buffer, NULL_BUFFER, NULL_BUFFER, NULL_KEY)
+  end
+
+  def each_record(mode = READ_ONLY_MODE, &block)
+    batch(mode) do
+      while(record = step_next) do
+        yield record
+      end
+    end
+  end
+
+  def batch(mode = READ_ONLY_MODE, &block)
+    open(mode)
+    yield
+    close
+  end
+
+  def version()
+    Digest::MD5.hexdigest(BtrieveSchema.sort(schema[:columns]).inject([]){|array,column|array<<BtrieveSchema.readable_type(column);array}.to_s)
+  end
+
+  def self.primary_key_match(pk)
+    vals=pk.split('.')
+    {PK_KEYS[0]=>vals[0].to_i,PK_KEYS[1]=>vals[1].to_i,PK_KEYS[2]=>vals[2],PK_KEYS[3]=>vals[3].to_i,PK_KEYS[4]=>vals[4].to_i}
+  end
+
+  def self.tablename_to_url(tablename)
+    tablename.gsub(' & ','.and.').gsub('a/c ', 'ac.').gsub('es - o','es.o').gsub(' ','.')
+  end
+
+  def self.url_to_tablename(url_tablename)
+    url_tablename.gsub('.and.', ' & ').gsub('ac.', 'a/c ').gsub('es.o','es - o').gsub('.',' ')
+  end
+
+  private
+
+  def step_next
+    btr_record = BtrieveRecord.new(self)
+    result = btr_op(@session, STEP_NEXT, @pos_buffer, btr_record.data_buffer, NULL_BUFFER, NULL_KEY, [OK, EOF])
+    return false if(result == EOF)
+    btr_record
+  end
+
+  def find_matching_index(match)
+    keys = match.keys
+    indices = @schema[:indices]
+    indices.each_index(){ |index| return index if(indices[index].include_all?(keys)) }
+    raise Exception.new("No matching index for #{keys}")
+  end
+
+  def finder(match, index_number = nil, &block)
+    index_number ||= find_matching_index(match)
+    index = @schema[:indices][index_number]
+    columns = @schema[:columns]
+    key_components = index.inject([]) { |vals, key| vals << match[key]; vals}
+    key_packer = index.inject("") do |packer, key|
+      datatype = BtrieveSchema.lookup(columns[key][:datatype], columns[key][:size])
+      if(match[key] != nil)
+        packer += "#{datatype[:unpacker]}#{datatype[:name].match('CHAR') ? columns[key][:size] : ''}"
+      else
+        packer += 'x'*columns[key][:size]
+      end
+      packer
+    end
+    key_buffer = key_components.pack(key_packer)
+    yield(key_buffer, index_number)
+  end
+end
+

data/lib/btrieve/fos_code.rb

@@ -0,0 +1,13 @@
+class FosCode
+  attr_reader :group, :value, :code, :description
+  def initialize(group, value, code, description)
+    @group=group
+    @value=value
+    @code=code
+    @description=description
+  end
+
+  def to_s
+    @description
+  end
+end

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: beezwax
 version: !ruby/object:Gem::Version 
-  hash: 31
+  hash: 27
   prerelease: false
   segments: 
   - 0
+  - 1
   - 0
-  - 0
-  version: 0.0.0
+  version: 0.1.0
 platform: ruby
 authors: 
 - Patrick Lardin
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-08-22 00:00:00 -07:00
+date: 2010-08-23 00:00:00 -07:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -51,6 +51,15 @@ files:
 - Rakefile
 - VERSION
 - lib/beezwax.rb
+- lib/btrieve/btrieve_const.rb
+- lib/btrieve/btrieve_core.rb
+- lib/btrieve/btrieve_meta.rb
+- lib/btrieve/btrieve_model.rb
+- lib/btrieve/btrieve_record.rb
+- lib/btrieve/btrieve_schema.rb
+- lib/btrieve/btrieve_session.rb
+- lib/btrieve/btrieve_table.rb
+- lib/btrieve/fos_code.rb
 - test/helper.rb
 - test/test_beezwax.rb
 has_rdoc: true