databa5

/* databa5.pro */
/* esempio gestione database */
/* scrivere dati in file dba */
/* aggiungere dati in file dba */
/* modificare dati in file dba */
/* file usato scrivere nome.dba */
/* modifica di dato in posizione indicata */

nowarnings
domains
file = salvafile
Dato = symbol
Nome = string
Posizione = real
Modo = integer

predicates
scrive
modifica
aggiunge
finestra
goal finestra,scrive,
aggiunge,aggiunge,aggiunge,modifica.

clauses
finestra:-
makewindow(1,5,1,"",1,1,20,50).
scrive:-
write("scrivi nome da registrare \n"),
readln(Dato),
write("scrivi nome del file.dba \n"),
readln(Nome),
disk("A:"),
openwrite(salvafile,Nome),
writedevice(salvafile),
write(Dato,"\n"),
closefile(salvafile).

aggiunge:-
write("scrivi termine da aggiungere \n"),
readln(Dato),
write("scrivi nome del file.dba\n"),
readln(Nome),
disk("A:"),
openappend(salvafile,Nome),
writedevice(salvafile),
write(Dato,"\n"),
closefile(salvafile).

modifica:-
write("scrivi termine da sostituire \n"),
write("ad altro termine in posizione \n"),
write("da indicare con filepos \n"),
readln(Dato),
write("scrivi nome del file.dba\n"),
readln(Nome),
write("scrivi posizione dato \n"),
readreal(Posizione),
write("scrivi modo 0,1 \n"),
readint(Modo),
disk("A:"),
openmodify(salvafile,Nome),
writedevice(salvafile),
filepos(salvafile,2,1),
write(Dato,"\n"),
closefile(salvafile).