#######################################
# DB Banca di dati.

# Carica la tabella se e' indicato
# il nome, altrimenti
# stampa la tabella aperta.
Db = function (nome)
{if (!missing(nome)) Db..carica(nome)
else if (Db..esiste())
{Db..attach()
cat('\n',FILEDATIBREVE,'\n',sep='')
O.riga()
print(TABELLA)}
else cat('Tabella non esiste.\n')}

Db.cancella = function ()
{assign('MODIFICA',F,pos=1)
if (Db..esiste()) T.eval('rm(TABELLA)')
else cat('Tabella non esiste.\n')}

# Stampa il commento.
Db.comm = function ()
{O.riga(inizio='\n')
if (Db..esiste())
{comm=FILECOMM
if (File.esiste(comm))
cat(File.leggi(comm))
else cat('Commento non esiste.\n')}
else cat('Tabella non esiste.\n')}

# Matrice dei dati da una tabella
# senza le colonne indicate.
# Con senza=0 si ottiene tutta la
# matrice dei dati.
Db.matrice = function (senza=1)
Dt.matrice(TABELLA,senza=senza)

# Se non si usa tab, i nomi delle colonne
# sono contenuti in ...
Db.nuova = function (nome,...,tab)
{if (Db..stessatabella(nome))
cat('Stessa tabella.\n')
else {if (Db..esiste())
Db.salva (messaggio=
  'Salvare la vecchia tabella? (s/n): ')
Db..nome(nome)
if (FILEDATIBREVE %in% Dbe())
Db(nome)
else {if (!missing(tab)) tab=tab
else tab=Dt.nuova(...)
Db.sostcon(tab)}}}