[Acdo-commit] CVS: acdo/src/test Makefile,NONE,2.0 prueba_base_datos.adb,NONE,2.0 prueba_leerdirectorio.adb,NONE,2.0 prueba_preferencias.adb,NONE,2.0

[Cesar P. T. <or...@us...>]

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;