@@ -768,7 +768,7 @@ function syslib.getselectorentries(pathspec, options)
768768end
769769
770770function syslib .getself ()
771- if syslib .path == " " or nil then
771+ if syslib .selfpath == " " then
772772 return " 'selfpath' key value of syslib.config.lua is not a valid object."
773773 else
774774 return syslib .getobject (syslib .selfpath )
@@ -784,18 +784,29 @@ function syslib.getstoreid(store)
784784 return syslib :main (' GETSTOREID' )
785785end
786786
787+ local sysDB = {}
787788function syslib .getsystemdb ()
788- local sysdb = {}
789- function sysdb :query (sqlcmd )
789+
790+ sysDB .__index = sysDB
791+ local obj = {}
792+ setmetatable (obj , sysDB )
793+ function obj :query (sqlcmd )
790794 headerSetter ({' GETSYSTEMDB' , sqlcmd })
791- return syslib :main (' GETSYSTEMDB' )
795+ local data , errmsg = syslib :main (' GETSYSTEMDB' )
796+
797+ local cursor = {}
798+ function cursor :fetch (tb , modestring )
799+ if tb == nil or type (tb ) ~= " table" then tb = {} end
800+ if modestring == nil or type (modestring ) ~= " string" then modestring = " n" end
801+ local row = data [1 ]
802+ table.remove (data , 1 )
803+ return row
804+ end
805+ return cursor
792806 end
793- return sysdb
794- -- headerSetter({'GETSYSTEMDB'})
795- -- return syslib:main('GETSYSTEMDB')
807+ return obj
796808end
797809
798-
799810function syslib .gettcpconnections (version )
800811 headerSetter ({' GETTCPCONNECTIONS' , version })
801812 return syslib :main (' GETTCPCONNECTIONS' )
0 commit comments