|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:36
|
Update of /cvsroot/acdo//acdo/src/test
In directory usw-pr-cvs1:/tmp/cvs-serv9661/src/test
Modified Files:
Tag: 2.0
Makefile prueba_base_datos.adb prueba_leerdirectorio.adb
prueba_preferencias.adb
Log Message:
cambio de revisión
--- NEW FILE ---
#############################################################################
## TILDURE
## Autor: Juan Manuel Perié Buil
## Fichero: Makefile
## Fecha: 24 de abril de 2001
## Proyecto: acdo
## Descripción: Makefile de los programas de prueba de los paquetes
#############################################################################
all: prueba_preferencias prueba_base_datos prueba_leerdirectorio
clean:
rm -f *.o *~ *.ali prueba_preferencias prueba_base_datos prueba_leerdirectorio
prueba_preferencias: ../pkg/*.adb ../pkg/*.ads *.adb
gnatmake prueba_preferencias -I../pkg/ `gtkada-config`
prueba_base_datos: ../pkg/*.adb ../pkg/*.ads *.adb ../lib/pgada/pgada_linux/*.ads ../lib/pgada/pgada_linux/*.adb
gnatmake prueba_base_datos -I../pkg/ -I../lib/pgada/pgada_linux/ `gtkada-config` -largs ../lib/pgada/pgada_linux/libpq.a -lcrypt
prueba_leerdirectorio: ../pkg/infofich.c prueba_leerdirectorio.adb
gcc -c ../pkg/infofich.c
gnatmake -O3 prueba_leerdirectorio -I../pkg/ -largs infofich.o
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: preferencias.ads
-- Fecha: 25 de abril de 2001
-- Proyecto: acdo
-- Descripción: Programa de prueba del paquete base_datos
----------------------------------------------------------------------------
with base_datos; use base_datos;
with ada.text_IO; use ada.text_IO;
with ustrings; use ustrings;
with ada.integer_text_IO; use ada.integer_text_IO;
with datos; use datos;
with preferencias;
procedure prueba_base_datos is
volid, id, dirid, dirid2 : integer;
unitem : tpitem_access;
criterios : tpbusqueda;
resul : tpbusqresul;
tema : ustring;
fin : boolean;
begin
preferencias.leer;
put_line("Vamos a conectar...");
conectar;
put_line("Conectado.");
unitem := new tpitem(VOLUMEN);
unitem.titulo := U("titulo prueba");
unitem.tema := U("mi tema de prueba");
unitem.codigo := U("9832");
unitem.descripcion := U("Es un volumen de prueba");
unitem.fecha_insercion := U("25/4/01");
unitem.tipo_dispositivo := U("Cipy");
put_line("Vamos a insertar...");
insertar(unitem.all,id);
put("Insertado. Id="); put(id); new_line;
volid := id;
unitem := new tpitem(DIRECTORIO);
unitem.padre_dir := -1;
unitem.volumen := volid;
unitem.nombre_dir := U("directorio 1");
unitem.nombre_completo_dir := U("/directorio 1/");
unitem.tamanyo_dir := 3;
unitem.fecha_dir := U("25/4/2001");
insertar(unitem.all,id);
put("Insertado. Id="); put(id); new_line;
dirid := id;
put_line("Vamos a modificarlo...");
unitem.identificador := dirid;
unitem.tamanyo_dir := 7;
modificar(unitem.all);
put_line("Modificado.");
unitem.padre_dir := dirid;
unitem.volumen := volid;
unitem.nombre_dir := U("directorio 2");
unitem.nombre_completo_dir := U("/directorio 1/directorio 2/");
unitem.tamanyo_dir := 300;
unitem.fecha_dir := U("27/4/2001");
insertar(unitem.all,id);
put("Insertado. Id="); put(id); new_line;
dirid2 := id;
unitem := new tpitem(FICHERO);
unitem.padre_fich := dirid;
unitem.nombre_fich := U("fichero");
unitem.tamanyo_fich := 300;
unitem.fecha_fich := U("29/4/2001");
insertar(unitem.all,id);
put("Insertado. Id="); put(id); new_line;
put_line("Vamos a buscar los temas...");
buscar;
put_line("Buscados. Vamos a listarlos...");
recuperar(tema,fin);
while fin = false loop
put("["); put(S(tema)); put("]"); new_line;
recuperar(tema,fin);
end loop;
put_line("Listados. Vamos a buscar los volumenes del último tema...");
buscar(tema);
put_line("Buscados. Vamos a listarlos...");
unitem := new tpitem(VOLUMEN);
recuperar(unitem,fin);
while fin = false loop
put("["); put(S(unitem.titulo)); put("]"); new_line;
recuperar(unitem,fin);
end loop;
put_line("Listados. Vamos a listar el volumen...");
unitem := new tpitem(VOLUMEN);
unitem.identificador := volid;
buscar(unitem.all);
put_line("consultado. Vamos a recuperar...");
recuperar(unitem,fin);
while fin = false loop
if unitem.tipo = FICHERO then
put("[F]["); put(S(unitem.nombre_fich)); put("]");
put(unitem.tamanyo_fich); new_line;
else
put("[D]["); put(S(unitem.nombre_dir)); put("]");
put(unitem.tamanyo_dir); new_line;
end if;
recuperar(unitem,fin);
end loop;
put_line("Listados. Vamos a listar el directorio raiz...");
unitem := new tpitem(DIRECTORIO);
unitem.identificador := dirid;
buscar(unitem.all);
put_line("consultado. Vamos a recuperar...");
recuperar(unitem,fin);
while fin = false loop
if unitem.tipo = FICHERO then
put("[F]["); put(S(unitem.nombre_fich)); put("]");
put(unitem.tamanyo_fich); new_line;
else
put("[D]["); put(S(unitem.nombre_dir)); put("]");
put(unitem.tamanyo_dir); new_line;
end if;
recuperar(unitem,fin);
end loop;
put_line("Listados. Vamos a listar el directorio1...");
unitem := new tpitem(DIRECTORIO);
unitem.identificador := dirid2;
buscar(unitem.all);
put_line("consultado. Vamos a recuperar...");
recuperar(unitem,fin);
while fin = false loop
if unitem.tipo = FICHERO then
put("[F]["); put(S(unitem.nombre_fich)); put("]");
put(unitem.tamanyo_fich); new_line;
else
put("[D]["); put(S(unitem.nombre_dir)); put("]");
put(unitem.tamanyo_dir); new_line;
end if;
recuperar(unitem,fin);
end loop;
put_line("Recuperados. Vamos a buscar...");
criterios.nombre := U("");
criterios.fecha_ant := U("20/7/04");
criterios.fecha_post := U("");
criterios.tama_menor := 0;
criterios.tama_mayor := 0;
criterios.tema := U("");
criterios.codigo := U("");
criterios.medio := U("");
buscar(criterios);
put_line("Buscados. Vamos a recuperar...");
recuperar(resul,fin);
while not fin loop
put('['); put(S(resul.titulo)); put(']');
put('['); put(S(resul.nombre_completo_dir)); put(']');
put('['); put(S(resul.nombre_fich)); put(']'); new_line;
recuperar(resul,fin);
end loop;
put_line("Recuperados. Vamos a borrar...");
unitem := new tpitem(VOLUMEN);
unitem.identificador := volid;
borrar(unitem.all);
put_line("Borrado...");
put_line("Vamos a desconectar...");
desconectar;
put_line("Desconectado.");
end prueba_base_datos;
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: César Pérez Turrado (44...@ce...)
-- Fichero: prueba_leerdirectorio.adb
-- Fecha: 27 de abril de 2001
-- Proyecto: acdo
-- Descripción: Programa de prueba para leer directorios. Será de utilidad
-- para el módulo dispositivo
-- Nota: mientras que se utilice gnat no hay ningún problema al no traducir
-- los enteros de c a ada y viceversa
-----------------------------------------------------------------------------
with Ada.Text_IO; use ada.text_io;
with ustrings; use ustrings;
with Interfaces.C.Strings; use Interfaces.C.Strings;
procedure prueba_leerdirectorio is
-- funciones de c
-- las cadenas son cadenas de c para utilizarlas hay que concatenar ASCII.NUL
procedure abrirdirectorio (fichero: string);
pragma import (C, abrirdirectorio);
procedure leerdirectorio (fichero: string);
pragma import (C, leerdirectorio);
function fichfecha return chars_ptr;
pragma import (C, fichfecha);
function fichtamanyo return integer;
pragma import ( C, fichtamanyo);
function fichfinal return integer;
pragma import ( C, fichfinal);
function fichnombre return chars_ptr;
pragma import (C, fichnombre);
function fichdirectorio return integer;
pragma import (C, fichdirectorio);
cadena: ustring;
nombreptr: chars_ptr;
fechaptr: chars_ptr;
tamanyo: integer;
nombre: ustring;
fecha: ustring;
begin
put_line ("Introduzca el directorio que desea analizar");
get_line (cadena);
abrirdirectorio (ustrings.S(cadena) & ASCII.NUL);
Put_line("El directorio " & ustrings.S(cadena) & " contiene estos ficheros:");
loop
leerdirectorio (ustrings.S(cadena) & ASCII.NUL);
exit when fichfinal = 1;
fechaptr := fichfecha;
nombreptr := fichnombre;
tamanyo := fichtamanyo;
--tamanyo := tamanyo / 1024;
nombre := U(value(nombreptr));
fecha := U(value(fechaptr));
put(S(nombre) & " Tamaño: " & tamanyo'img & "B. Fecha: " & S(fecha));
if fichdirectorio = 0 then
put_line (". No es un directorio");
else
put_line (". Es un directorio");
end if;
end loop;
exception
when STORAGE_ERROR => -- el directorio no existe => error
put_line ("Error al analizar el directorio " & ustrings.S(cadena));
when OTHERS =>
put_line ("Error desconocido");
end prueba_leerdirectorio;
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: prueba_preferencias.adb
-- Fecha: 24 de abril de 2001
-- Proyecto: acdo
-- Descripción: Programa de prueba del módulo de preferencias
-- Modificado por: César Pérez Turrado <44...@ce...)
-- Fecha modifiacion: 1 de mayo de 2001
-- Motivo de la modificación: ya no usamos xml
-----------------------------------------------------------------------------
with preferencias; use preferencias;
with datos; use datos;
with ada.text_IO; use ada.text_IO;
with ada.integer_text_IO; use ada.integer_text_IO;
with ustrings; use ustrings;
procedure prueba_preferencias is
p,p2,p3 : tppreferencias;
linea : ustring;
begin
leer;
dar(p3);
put_line(p3.ruta);
put_line(p3.medio);
put_line(p3.bd_usuario);
put_line(p3.bd_password);
put(p3.bd_puerto); new_line;
put_line(p3.bd_nombre);
if p3.administrador then
put_line("True");
else
put_line("False");
end if;
p.ruta := U("Ruta/de/prueba");
p.medio := U("ZIP de prueba");
p.bd_servidor := U("culebrilla");
p.bd_usuario := U("php");
p.bd_password := U("php");
p.bd_puerto := 5432;
p.bd_nombre := U("acdo");
p.administrador := true;
guardar(p);
leer;
dar(p2);
put_line(p2.ruta);
put_line(p2.medio);
put_line(p2.bd_servidor);
put_line(p2.bd_usuario);
put_line(p2.bd_password);
put(p2.bd_puerto); new_line;
put_line(p2.bd_nombre);
if p2.administrador then
put_line("True");
else
put_line("False");
end if;
end prueba_preferencias;
|