#######################################
# Funzioni ausiliarie da non usare nei comandi.

Db..attach = function ()
T.eval('attach(TABELLA)')

# Se nome e' un intero i > 0, viene caricato
# Dbe()[i].
Db..carica = function (nome)
{e=Dbe()
if (O.interopositivo(nome)) nome=e[nome]
if (Db..esiste()) Db.salva()
Db..nome(nome)
if (FILEDATIBREVE %in% e)
{comando=paste('load("',FILEDATI,'")',
  sep='')
T.eval(comando)
Db..attach(); Db()}
else cat('File non esiste.\n')}

Db..esiste = function ()
exists('TABELLA')

Db..nome = function (nome)
{assign('FILEDATIBREVE',nome,pos=1)
dati=paste(CARTELLADATI,nome,sep='')
assign('FILEDATI',dati,pos=1)
write=paste(CARTELLAWRITE,nome,sep='')
assign('FILEWRITE',write,pos=1)
comm=paste(CARTELLACOMM,nome,sep='')
assign('FILECOMM',comm,pos=1)}

Db..stessatabella = function (nome)
{if (!Db..esiste()) return(F)
(nome==FILEDATIBREVE)}