OpenEuphoria

Re: Additions to EDS (ATTN Rob)

• Posted by Bunjo Man <a.c.harper at BTINTERNET.COM> Jun 18, 2000
• 461 views

I am in the process of writing an on-line front end to EDS with a few extra
facilities (built into the calling code rather than DATABASE.E). However I
did add the following code to DATABASE.E which may be of use:


global function db_return_currentdb()
sequence db_return
integer current
if current_db > 0 then
   current=find(current_db,db_file_nums)
   db_return=sprintf("%s",{db_names[current]})
else
   db_return="No database open"
end if
return db_return
end function

global function db_return_currenttable()
sequence db_return
object current
integer pointer
if current_table > 0 then
   safe_seek(current_table)
   pointer = get4()
   safe_seek(pointer)
   current = get_string()
   db_return = sprintf("%s",{current})
else
   db_return = "No tables current"
end if

return db_return
end function


global function db_return_alldbworking()
sequence db_return
db_return={}
if length(db_names)>0 then
   for count = 1 to length(db_names) do
      db_return = db_return & sprintf("%s",{db_names[count]})
      if count<length(db_names) then
         db_return = db_return & ','
      end if
   end for
   --? db_return
   --key=wait_key()
else
   db_return="No databases loaded"
end if
return db_return
end function

global function db_return_alldb()
object db_return
db_return={}
if length(db_names)>0 then
   for count = 1 to length(db_names) do
   db_return=db_return & sprintf("%s",{db_names[count]})
   if count < length(db_names) then db_return=db_return & ',' end if
   end for
else
   db_return="No databases loaded"
end if
return db_return
end function

If they are useful please feel free to adopt/change/ignore. I will post the
on-line front end in a few weeks.