Menu
▾
▴
acdo-commit — commits
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
(4) |
May
(101) |
Jun
(39) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|---|
|
From: Juan M. P. B. <ju...@us...> - 2001-05-18 05:30:31
|
Update of /cvsroot/acdo/acdo In directory usw-pr-cvs1:/tmp/cvs-serv19529 Modified Files: TODO Log Message: He hecho los call-backs del navegador y he arreglado bastantes cosas Index: TODO =================================================================== RCS file: /cvsroot/acdo/acdo/TODO,v retrieving revision 2.0 retrieving revision 2.1 diff -C2 -r2.0 -r2.1 *** TODO 2001/05/10 19:28:43 2.0 --- TODO 2001/05/18 05:30:28 2.1 *************** *** 1,4 **** ! 5 mayo 2001: Completar el navegador Chequear todo - Añadir función en el módulo base de datos para poder modificar el tamaño de un directorio. Y modificar dispositivo para que utilice esta función. --- 1,3 ---- ! 18 mayo 2001: Completar el navegador Chequear todo |
|
From: Juan M. P. B. <ju...@us...> - 2001-05-18 05:30:31
|
Update of /cvsroot/acdo/acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv19529/src/gui
Modified Files:
globales.ads navegador_pkg.adb
Log Message:
He hecho los call-backs del navegador y he arreglado bastantes cosas
Index: globales.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/globales.ads,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** globales.ads 2001/05/10 19:01:09 2.1
--- globales.ads 2001/05/18 05:30:28 2.2
***************
*** 4,7 ****
--- 4,9 ----
--Fichero: globales.ads
--Fecha: 1 Mayo 2001
+ --Modificado: Juan Manuel Perie
+ --Fecha modificacion: 18 Mayo 2001
--Proyecto: ACDO
--Descripción:
***************
*** 15,17 ****
--- 17,21 ----
desde_buscar : boolean;
glIdentificador: integer; -- identificador de un item para pasarlo entre el navegador y la ventana agregar
+ son_temas : boolean;
+
end globales;
Index: navegador_pkg.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/gui/navegador_pkg.adb,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** navegador_pkg.adb 2001/05/17 19:39:46 2.1
--- navegador_pkg.adb 2001/05/18 05:30:28 2.2
***************
*** 5,8 ****
--- 5,10 ----
--Modificado por: Óscar Bonilla
--Fecha modificación: 17 Mayo 2001
+ --Modificado por: Juan Manuel Perie
+ --Fecha modificacion: 18 Mayo 2001
--Fichero: navegador_pkg.adb
--Proyecto: ACDO
***************
*** 25,28 ****
--- 27,32 ----
with preferencias;
with navegador_pkg.completar_lista; use navegador_pkg.completar_lista;
+ with ada.text_IO; use ada.text_IO;
+ with ada.integer_text_IO; use ada.integer_text_IO;
package body Navegador_Pkg is
***************
*** 36,44 ****
procedure Initialize (Navegador : access Navegador_Record'Class) is
pragma Suppress (All_Checks);
! nombreTema: ustring;
! fin: boolean;
! item : tpitem_access;
! prefs: tppreferencias;
! entero: gint;
begin
preferencias.dar(prefs);
--- 40,48 ----
procedure Initialize (Navegador : access Navegador_Record'Class) is
pragma Suppress (All_Checks);
! nombreTema: ustring;
! fin: boolean;
! item : tpitem_access;
! prefs: tppreferencias;
! entero: gint;
begin
preferencias.dar(prefs);
***************
*** 183,186 ****
--- 187,191 ----
else -- buscamos los temas
-- ocultamos las columnas que no nos interesan
+ son_temas := true;
Set_Column_Visibility (Navegador.Lista, 1, false);
Set_Column_Visibility (Navegador.Lista, 2, false);
***************
*** 195,199 ****
recuperar (nombreTema, fin);
while not fin loop
! entero := append (Navegador.Lista, "" + "" + "" + ustrings.S(nombreTema));
recuperar (nombreTema, fin);
end loop;
--- 200,204 ----
recuperar (nombreTema, fin);
while not fin loop
! entero := append(Navegador.Lista, "" + "" + "" + ustrings.S(nombreTema) + "" + "" + "" + "" + "");
recuperar (nombreTema, fin);
end loop;
|
|
From: Juan M. P. B. <ju...@us...> - 2001-05-18 05:30:31
|
Update of /cvsroot/acdo/acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv19529/src/pkg
Modified Files:
base_datos.adb navegador_pkg-completar_lista.adb
Log Message:
He hecho los call-backs del navegador y he arreglado bastantes cosas
Index: base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.adb,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** base_datos.adb 2001/05/17 11:28:07 2.1
--- base_datos.adb 2001/05/18 05:30:28 2.2
***************
*** 9,13 ****
with postgresql; use postgresql;
with preferencias; use preferencias;
- with ada.text_IO; use ada.text_IO;
package body base_datos is
--- 9,12 ----
Index: navegador_pkg-completar_lista.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/navegador_pkg-completar_lista.adb,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** navegador_pkg-completar_lista.adb 2001/05/17 19:39:46 1.1
--- navegador_pkg-completar_lista.adb 2001/05/18 05:30:28 1.2
***************
*** 3,6 ****
--- 3,8 ----
--Autores: Óscar Bonilla, César Pérez
--Fecha: 17 Mayo 2001
+ --Modificado: Juan Manuel Perie
+ --Fecha: 18 Mayo 2001
--Fichero: navegador_pkg-completar_lista.adb
--Proyecto: ACDO
***************
*** 22,26 ****
procedure rellenar_lista (item : tpItem) is
! itemDirectorio, itemVolumen : tpitem_access;
cad : ustring;
entero : gint;
--- 24,28 ----
procedure rellenar_lista (item : tpItem) is
! itemDirectorio, itemVolumen, itemFichero : tpitem_access;
cad : ustring;
entero : gint;
***************
*** 28,50 ****
case item.tipo is
when DIRECTORIO =>
! itemVolumen := new tpItem(VOLUMEN);
! itemVolumen.identificador := item.volumen;
! completar(itemVolumen.all);
! cad := U(S(itemVolumen.titulo)&":"&S(item.nombre_completo_dir));
! entero := append (Navegador.Lista, item.identificador'img + "D" + S(itemVolumen.codigo) + S(cad) + item.tamanyo_dir'img + S(item.fecha_dir) + S(itemVolumen.tema) + S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! free(itemVolumen);
when FICHERO =>
! itemDirectorio := new tpitem(DIRECTORIO);
! itemDirectorio.identificador := item.padre_fich;
! completar(itemDirectorio.all);
! itemVolumen := new tpItem(VOLUMEN);
! itemVolumen.identificador := itemDirectorio.volumen;
! completar(itemVolumen.all);
! cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir)&"/"&S(item.nombre_fich));
! entero := append (Navegador.Lista, item.identificador'img + "F" + S(itemVolumen.codigo) + S(cad) + item.tamanyo_fich'img + S(item.fecha_fich) + S(itemVolumen.tema) + S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! free(itemDirectorio);
! free(itemVolumen);
when VOLUMEN =>
! entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion) + S(item.tema) + S(item.descripcion) + S(item.tipo_dispositivo));
end case;
end rellenar_lista;
--- 30,72 ----
case item.tipo is
when DIRECTORIO =>
! itemVolumen := new tpItem(VOLUMEN);
! itemDirectorio := new tpitem(DIRECTORIO);
! itemDirectorio.all := item;
! completar(itemDirectorio.all);
! itemVolumen.identificador := itemDirectorio.volumen;
! completar(itemVolumen.all);
! cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir));
! entero := append (Navegador.Lista, itemDirectorio.identificador'img +
! "D" + S(itemVolumen.codigo) + S(cad) + itemDirectorio.tamanyo_dir'img
! + S(itemDirectorio.fecha_dir) + S(itemVolumen.tema) +
! S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! free(itemVolumen);
! free(itemDirectorio);
when FICHERO =>
! itemDirectorio := new tpitem(DIRECTORIO);
! itemFichero := new tpitem(FICHERO);
! itemFichero.all := item;
! completar(itemFichero.all);
! itemDirectorio.identificador := itemFichero.padre_fich;
! completar(itemDirectorio.all);
! itemVolumen := new tpItem(VOLUMEN);
! itemVolumen.identificador := itemDirectorio.volumen;
! completar(itemVolumen.all);
! cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir)&"/"&S(itemFichero.nombre_fich));
! entero := append (Navegador.Lista, itemFichero.identificador'img +
! "F" + S(itemVolumen.codigo) + S(cad) + itemFichero.tamanyo_fich'img
! + S(itemFichero.fecha_fich) + S(itemVolumen.tema) +
! S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
! free(itemDirectorio);
! free(itemVolumen);
! free(itemFichero);
when VOLUMEN =>
! itemVolumen := new tpitem(VOLUMEN);
! itemVolumen.all := item;
! completar(itemVolumen.all);
! entero := append (Navegador.Lista, itemVolumen.identificador'img + "V" +
! S(itemVolumen.codigo) + S(itemVolumen.titulo) + "" +
! S(itemVolumen.fecha_insercion) + S(itemVolumen.tema) +
! S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
end case;
end rellenar_lista;
|
|
From: Cesar P. T. <or...@us...> - 2001-05-17 19:55:54
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv9801
Modified Files:
navegador_pkg-callbacks.adb
Log Message:
navegador completo.
Index: navegador_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/Attic/navegador_pkg-callbacks.adb,v
retrieving revision 2.3
retrieving revision 2.4
diff -C2 -r2.3 -r2.4
*** navegador_pkg-callbacks.adb 2001/05/17 19:39:46 2.3
--- navegador_pkg-callbacks.adb 2001/05/17 19:55:52 2.4
***************
*** 3,6 ****
--- 3,8 ----
--Autores: María Bazús, César Pérez, Marta Tolosa
--Fecha: 5 Mayo 2001
+ --Modificado por: Óscar Bonilla y César Pérez
+ --Fecha modificación: 17 Mayo 2001
--Fichero: navegador_pkg-callbacks.adb
--Proyecto: ACDO
***************
*** 13,17 ****
with Gtk.Accel_Group; use Gtk.Accel_Group;
with Gtk.Object; use Gtk.Object;
- with Gtk.Gentry; use Gtk.Gentry;
with Gtk.Enums; use Gtk.Enums;
with Gtk.Style; use Gtk.Style;
--- 15,18 ----
***************
*** 24,29 ****
with Gtk.GEntry; use Gtk.GEntry;
with navegador_pkg; use navegador_pkg;
-
package body Navegador_Pkg.Callbacks is
--- 25,34 ----
with Gtk.GEntry; use Gtk.GEntry;
with navegador_pkg; use navegador_pkg;
+ with gdk.font; use gdk.font;
+ with gdk.color; use gdk.color;
+ with gtk.text;
+ with ada.strings.fixed; use ada.strings.fixed;
+ with navegador_pkg.completar_lista; use navegador_pkg.completar_lista;
package body Navegador_Pkg.Callbacks is
***************
*** 52,56 ****
is
item: tpitem_access;
- glIdentificador : integer;
begin
item := new tpitem(VOLUMEN);
--- 57,60 ----
***************
*** 62,70 ****
modoAgregar := MODIFICAR;
-- mostramos los datos de la lista en la ventana de agregar.
! Set_Text (agregar.Titulo, Get_Text (Navegador.Lista, nFila, 3)); -- FIXME: solo texto hasta los dos puntos
Set_Text (agregar.Fecha, Get_Text (Navegador.Lista, nFila, 5));
Set_Text (agregar.Tema, Get_Text (Navegador.Lista, nFila, 6));
Set_Text (agregar.Codigo, Get_Text (Navegador.Lista, nFila, 2));
! --Set_Text (agregar.Descripcion, Get_Text (Navegador.Lista, nFila, 7));
Set_Text (agregar.Medio, Get_Text (Navegador.Lista, nFila, 8));
glIdentificador := integer'value (Get_Text (Navegador.Lista, nFila, 0));
--- 66,75 ----
modoAgregar := MODIFICAR;
-- mostramos los datos de la lista en la ventana de agregar.
! Set_Text (agregar.Titulo, head(Get_Text (Navegador.Lista, nFila, 3), index(Get_text(navegador.lista, nfila, 3), ":")));
Set_Text (agregar.Fecha, Get_Text (Navegador.Lista, nFila, 5));
Set_Text (agregar.Tema, Get_Text (Navegador.Lista, nFila, 6));
Set_Text (agregar.Codigo, Get_Text (Navegador.Lista, nFila, 2));
! gtk.text.Insert (agregar.descripcion, Gdk.Font.Null_Font, Gdk.Color.Null_color, Gdk.Color.Null_Color, Get_text(Navegador.Lista, nFila, 7), -1);
!
Set_Text (agregar.Medio, Get_Text (Navegador.Lista, nFila, 8));
glIdentificador := integer'value (Get_Text (Navegador.Lista, nFila, 0));
***************
*** 82,94 ****
begin
-- FIXME: Chapuza, V debería ser una constante definida en algún lugar
- <<<<<<< navegador_pkg-callbacks.adb
- -- if get_text (Navegador.Lista) = "V" then
- =======
if get_text (Navegador.Lista, nFila, 1) = "V" then
- >>>>>>> 2.1
item := new tpitem(VOLUMEN);
item.identificador := integer'value (get_text(Navegador.Lista, nFila, 0));
borrar (item.all);
! --end if;
end On_Borrar_Clicked;
--- 87,95 ----
begin
-- FIXME: Chapuza, V debería ser una constante definida en algún lugar
if get_text (Navegador.Lista, nFila, 1) = "V" then
item := new tpitem(VOLUMEN);
item.identificador := integer'value (get_text(Navegador.Lista, nFila, 0));
borrar (item.all);
! end if;
end On_Borrar_Clicked;
***************
*** 129,137 ****
evento : Gdk_Event := To_Event (Params, 1);
boton: guint;
- <<<<<<< navegador_pkg-callbacks.adb
- tipo: Gdk.Types.Gdk_Event_Type;
- =======
tipo: gdk.Types.Gdk_Event_Type;
! >>>>>>> 2.1
begin
boton := Get_Button (evento);
--- 130,136 ----
evento : Gdk_Event := To_Event (Params, 1);
boton: guint;
tipo: gdk.Types.Gdk_Event_Type;
! fin : boolean := FALSE;
! item : tpItem_access;
begin
boton := Get_Button (evento);
***************
*** 139,143 ****
if tipo = gdk_2Button_press then
if not desde_buscar then -- preparamos la ventana para directorios,
! -- volúmenes y ficheros
desde_buscar := false;
Set_Column_Visibility (Navegador.Lista, 1, true);
--- 138,142 ----
if tipo = gdk_2Button_press then
if not desde_buscar then -- preparamos la ventana para directorios,
! -- volúmenes y ficheros
desde_buscar := false;
Set_Column_Visibility (Navegador.Lista, 1, true);
***************
*** 150,156 ****
Set_Column_Title (Navegador.Lista, 3, -("Ruta"));
end if;
- -- FIXME
-- coger datos de la lista, buscar y llamar al procedimiento
-- que actualize la lista
end if;
return True; -- si false le pasa el evento al padre de este widget
--- 149,159 ----
Set_Column_Title (Navegador.Lista, 3, -("Ruta"));
end if;
-- coger datos de la lista, buscar y llamar al procedimiento
-- que actualize la lista
+ recuperar (item, fin);
+ while not fin loop
+ rellenar_lista(item.all);
+ recuperar(item, fin);
+ end loop;
end if;
return True; -- si false le pasa el evento al padre de este widget
|
|
From: ?scar B. Gonz?l. <bo...@us...> - 2001-05-17 19:39:48
|
Update of /cvsroot/acdo//acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv3265/src/pkg
Added Files:
navegador_pkg-completar_lista.adb
navegador_pkg-completar_lista.ads
Log Message:
Navegador completo.
--- NEW FILE ---
--------------------------------------------------------------------------
--TILDURE
--Autores: Óscar Bonilla, César Pérez
--Fecha: 17 Mayo 2001
--Fichero: navegador_pkg-completar_lista.adb
--Proyecto: ACDO
--Descripción: funcion para rellenar la lista de la ventana del navegador
--------------------------------------------------------------------------
with navegador_pkg; use navegador_pkg;
with datos; use datos;
with ustrings; use ustrings;
with base_datos; use base_datos;
with unchecked_deallocation;
with Gtk.Enums; use Gtk.Enums;
with Glib; use Glib;
with gtkada.types; use gtkada.types;
package body navegador_pkg.completar_lista is
procedure Free is new
unchecked_deallocation(tpitem, tpitem_access );
procedure rellenar_lista (item : tpItem) is
itemDirectorio, itemVolumen : tpitem_access;
cad : ustring;
entero : gint;
begin
case item.tipo is
when DIRECTORIO =>
itemVolumen := new tpItem(VOLUMEN);
itemVolumen.identificador := item.volumen;
completar(itemVolumen.all);
cad := U(S(itemVolumen.titulo)&":"&S(item.nombre_completo_dir));
entero := append (Navegador.Lista, item.identificador'img + "D" + S(itemVolumen.codigo) + S(cad) + item.tamanyo_dir'img + S(item.fecha_dir) + S(itemVolumen.tema) + S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
free(itemVolumen);
when FICHERO =>
itemDirectorio := new tpitem(DIRECTORIO);
itemDirectorio.identificador := item.padre_fich;
completar(itemDirectorio.all);
itemVolumen := new tpItem(VOLUMEN);
itemVolumen.identificador := itemDirectorio.volumen;
completar(itemVolumen.all);
cad := U(S(itemVolumen.titulo)&":"&S(itemDirectorio.nombre_completo_dir)&"/"&S(item.nombre_fich));
entero := append (Navegador.Lista, item.identificador'img + "F" + S(itemVolumen.codigo) + S(cad) + item.tamanyo_fich'img + S(item.fecha_fich) + S(itemVolumen.tema) + S(itemVolumen.descripcion) + S(itemVolumen.tipo_dispositivo));
free(itemDirectorio);
free(itemVolumen);
when VOLUMEN =>
entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion) + S(item.tema) + S(item.descripcion) + S(item.tipo_dispositivo));
end case;
end rellenar_lista;
end navegador_pkg.completar_lista;
--- NEW FILE ---
--------------------------------------------------------------------------
--TILDURE
--Autores: Óscar Bonilla, César Pérez
--Fecha: 17 Mayo 2001
--Fichero: navegador_pkg-completar_lista.ads
--Proyecto: ACDO
--Descripción: funcion para rellenar la lista de la ventana del navegador
--------------------------------------------------------------------------
with datos; use datos;
package navegador_pkg.completar_lista is
procedure rellenar_lista (item : tpItem);
--Se le pasa un item y lo inserta al final de la lista del navegador
end navegador_pkg.completar_lista;
|
|
From: ?scar B. Gonz?l. <bo...@us...> - 2001-05-17 19:39:48
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv3265/src/gui
Modified Files:
navegador_pkg.adb principal_pkg-callbacks.adb
Log Message:
Navegador completo.
Index: navegador_pkg.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/navegador_pkg.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** navegador_pkg.adb 2001/05/10 19:59:31 2.0
--- navegador_pkg.adb 2001/05/17 19:39:46 2.1
***************
*** 3,9 ****
--Autores: María Bazús, César Pérez, Marta Tolosa
--Fecha: 5 Mayo 2001
! --Fichero: navegador_pkg-callbacks.adb
--Proyecto: ACDO
! --Descripción: callbacks de la ventana del navegador
--------------------------------------------------------------------------
with Glib; use Glib;
--- 3,11 ----
--Autores: María Bazús, César Pérez, Marta Tolosa
--Fecha: 5 Mayo 2001
! --Modificado por: Óscar Bonilla
! --Fecha modificación: 17 Mayo 2001
! --Fichero: navegador_pkg.adb
--Proyecto: ACDO
! --Descripción: ventana del navegador
--------------------------------------------------------------------------
with Glib; use Glib;
***************
*** 22,25 ****
--- 24,28 ----
with ustrings; use ustrings;
with preferencias;
+ with navegador_pkg.completar_lista; use navegador_pkg.completar_lista;
package body Navegador_Pkg is
***************
*** 35,39 ****
nombreTema: ustring;
fin: boolean;
! item: tpitem_access;
prefs: tppreferencias;
entero: gint;
--- 38,42 ----
nombreTema: ustring;
fin: boolean;
! item : tpitem_access;
prefs: tppreferencias;
entero: gint;
***************
*** 172,191 ****
if desde_buscar then
- -- FIXME: Pasar todo este código a una función, tb será utilizado por los
- -- callbacks de esta misma ventana.
- -- FIXME: hay que añadir el medio en la posición 8 de la lista
recuperar (item, fin);
while not fin loop
! case item.tipo is
! when DIRECTORIO => -- FIXME: buscar volumen, tema y descripcion
! --entero := append (Navegador.Lista, item.identificador'img + "D" + S(volumen) & ":" & S(item.nombre_completo_dir) + item.tamanyo_dir'img + S(fecha) + S(tema) + S(descripcion));
! entero := append (Navegador.Lista, item.identificador'img + "D");
! when FICHERO => -- FIXME: buscar volumen, directorio, tema y descripción
! entero := append (Navegador.Lista, item.identificador'img + "F");
! when VOLUMEN =>
! --entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion) + S(tema) + S(descripcion));
! entero := append (Navegador.Lista, item.identificador'img + "V" + S(item.codigo) + S(item.titulo) + "" + S(item.fecha_insercion));
! end case;
end loop;
else -- buscamos los temas
-- ocultamos las columnas que no nos interesan
--- 175,184 ----
if desde_buscar then
recuperar (item, fin);
while not fin loop
! rellenar_lista(item.all);
! recuperar(item, fin);
end loop;
+
else -- buscamos los temas
-- ocultamos las columnas que no nos interesan
***************
*** 202,206 ****
recuperar (nombreTema, fin);
while not fin loop
! entero := append (Navegador.Lista, "" + "" + "" +ustrings.S(nombreTema));
end loop;
end if;
--- 195,200 ----
recuperar (nombreTema, fin);
while not fin loop
! entero := append (Navegador.Lista, "" + "" + "" + ustrings.S(nombreTema));
! recuperar (nombreTema, fin);
end loop;
end if;
Index: principal_pkg-callbacks.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/principal_pkg-callbacks.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** principal_pkg-callbacks.adb 2001/05/10 19:59:31 2.0
--- principal_pkg-callbacks.adb 2001/05/17 19:39:46 2.1
***************
*** 24,28 ****
with navegador_pkg; use navegador_pkg;
with acercade_pkg; use acercade_pkg;
- with utiles; use utiles;
with ustrings; use ustrings;
with gtk.gentry; use gtk.gentry;
--- 24,27 ----
***************
*** 30,33 ****
--- 29,33 ----
with gtk.check_button; use gtk.check_button;
with base_datos;
+ with gtk.main; use gtk.main;
package body Principal_Pkg.Callbacks is
***************
*** 44,48 ****
is
begin
! salir;
end On_Principal_Destroy;
--- 44,49 ----
is
begin
! base_datos.desconectar;
! Main_Quit;
end On_Principal_Destroy;
***************
*** 129,133 ****
is
begin
! salir;
end On_Salir_Clicked;
--- 130,135 ----
is
begin
! base_datos.desconectar;
! Main_Quit;
end On_Salir_Clicked;
|
|
From: ?scar B. Gonz?l. <bo...@us...> - 2001-05-17 19:39:48
|
Update of /cvsroot/acdo//acdo/src/gui In directory usw-pr-cvs1:/tmp/cvs-serv3265/acdo/src/gui Modified Files: navegador_pkg-callbacks.adb Log Message: Navegador completo. |
|
From: Cesar P. T. <or...@us...> - 2001-05-17 19:35:11
|
Update of /cvsroot/acdo//acdo/src/gui In directory usw-pr-cvs1:/tmp/cvs-serv1755/src/gui Removed Files: navegador_pkg-callbacks.adb Log Message: arreglando conflictos --- navegador_pkg-callbacks.adb DELETED --- |
|
From: ?scar B. Gonz?l. <bo...@us...> - 2001-05-17 18:41:06
|
Update of /cvsroot/acdo//acdo/src/pkg In directory usw-pr-cvs1:/tmp/cvs-serv20596 Removed Files: utiles.adb utiles.ads Log Message: Hemos quitado los ficheros utiles.adb y utiles.ads, al ser inutiles. --- utiles.adb DELETED --- --- utiles.ads DELETED --- |
|
From: Juan M. P. B. <ju...@us...> - 2001-05-17 13:10:45
|
Update of /cvsroot/acdo/acdo/src/test
In directory usw-pr-cvs1:/tmp/cvs-serv14530/src/test
Modified Files:
prueba_base_datos.adb
Log Message:
Añadida la función completar de la base de datos
Index: prueba_base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/test/prueba_base_datos.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** prueba_base_datos.adb 2001/05/10 19:59:32 2.0
--- prueba_base_datos.adb 2001/05/17 11:28:07 2.1
***************
*** 19,22 ****
--- 19,23 ----
unitem : tpitem_access;
+ otroitem : tpitem_access;
criterios : tpbusqueda;
resul : tpbusqresul;
***************
*** 37,41 ****
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...");
--- 38,42 ----
unitem.descripcion := U("Es un volumen de prueba");
unitem.fecha_insercion := U("25/4/01");
! unitem.tipo_dispositivo := U("Zip");
put_line("Vamos a insertar...");
***************
*** 44,47 ****
--- 45,54 ----
volid := id;
+
+ otroitem := new tpitem(VOLUMEN);
+ otroitem.identificador := volid;
+ completar(otroitem.all);
+ put("["); put(otroitem.titulo); put("]"); new_line;
+
unitem := new tpitem(DIRECTORIO);
unitem.padre_dir := -1;
|
|
From: Juan M. P. B. <ju...@us...> - 2001-05-17 13:08:44
|
Update of /cvsroot/acdo/acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv14530/src/pkg
Modified Files:
base_datos.adb base_datos.ads
Log Message:
Añadida la función completar de la base de datos
Index: base_datos.adb
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** base_datos.adb 2001/05/10 19:59:32 2.0
--- base_datos.adb 2001/05/17 11:28:07 2.1
***************
*** 9,12 ****
--- 9,13 ----
with postgresql; use postgresql;
with preferencias; use preferencias;
+ with ada.text_IO; use ada.text_IO;
package body base_datos is
***************
*** 233,236 ****
--- 234,278 ----
end if;
end borrar;
+
+ procedure completar(item: in out tpitem) is
+ -- Dado un item con el identificador y el tipo del item lo completa
+
+ res : tppgresultado;
+
+ begin
+ if estado = DESCONECTADO then
+ raise ERROR_ESTADO;
+ else
+ if item.tipo = VOLUMEN then
+ consulta(conexion, res, "select idVol,titulo,tema,fecha,codigo,medio,descripcion,idraiz from volumen where idvol=" & integer'image(item.identificador) & ";");
+ item.titulo := campo(res, 1, 2);
+ item.tema := campo(res, 1, 3);
+ item.fecha_insercion := campo(res, 1, 4);
+ item.codigo := campo(res, 1, 5);
+ item.tipo_dispositivo := campo(res, 1, 6);
+ item.descripcion := campo(res, 1, 7);
+ if S(campo(res, 1, 8)) = "" then
+ item.dir_raiz := -1;
+ else
+ item.dir_raiz := integer'value(S(campo(res, 1, 8)));
+ end if;
+ elsif item.tipo = DIRECTORIO then
+ consulta(conexion, res, "select idDir,nombre,nombre_completo,fecha,tamanyo,idvol,idpadre from directorio where iddir=" & integer'image(item.identificador) & ";");
+ item.nombre_dir := campo(res, 1, 2);
+ item.nombre_completo_dir := campo(res, 1, 3);
+ item.fecha_dir := campo(res, 1, 4);
+ item.tamanyo_dir := integer'value(S(campo(res, 1, 5)));
+ item.volumen := integer'value(S(campo(res, 1, 6)));
+ item.padre_dir := integer'value(S(campo(res, 1, 7)));
+ else
+ consulta(conexion, res, "select idFich,nombre,fecha,tamanyo,idDir from fichero where idfich=" & integer'image(item.identificador) & ";");
+ item.nombre_fich := campo(res, 1, 2);
+ item.fecha_fich := campo(res, 1, 3);
+ item.tamanyo_fich := integer'value(S(campo(res, 1, 4)));
+ item.padre_fich := integer'value(S(campo(res, 1, 5)));
+ end if;
+ end if;
+ end completar;
+
procedure buscar(criterios: tpbusqueda) is
Index: base_datos.ads
===================================================================
RCS file: /cvsroot/acdo/acdo/src/pkg/base_datos.ads,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** base_datos.ads 2001/05/10 19:59:32 2.0
--- base_datos.ads 2001/05/17 11:28:07 2.1
***************
*** 31,34 ****
--- 31,37 ----
procedure borrar(item: tpitem);
+ procedure completar(item: in out tpitem);
+ -- Dado un item con el identificador y el tipo del item lo completa
+
procedure buscar(criterios: tpbusqueda);
-- Busca ficheros
|
|
From: Cesar P. T. <or...@us...> - 2001-05-17 10:18:40
|
Update of /cvsroot/acdo//acdo/src/gui/.gate/autocdorganizer
In directory usw-pr-cvs1:/tmp/cvs-serv3497/acdo/src/gui/.gate/autocdorganizer
Modified Files:
conflicts.txt preferencias_pkg.adb
Log Message:
cambio en el orden de los botones de la ventana preferencias
Index: conflicts.txt
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/.gate/autocdorganizer/conflicts.txt,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** conflicts.txt 2001/05/10 19:59:31 2.0
--- conflicts.txt 2001/05/17 10:18:38 2.1
***************
*** 3,5 ****
Conflicts have been kept in the following files to help merging manually:
- navegador_pkg.adb
--- 3,4 ----
Index: preferencias_pkg.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/.gate/autocdorganizer/preferencias_pkg.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** preferencias_pkg.adb 2001/05/10 19:59:31 2.0
--- preferencias_pkg.adb 2001/05/17 10:18:38 2.1
***************
*** 143,161 ****
Gtk_New (Preferencias.Modificar, -"Modificar");
Set_Relief (Preferencias.Modificar, Relief_Normal);
! Set_UPosition (Preferencias.Modificar, 296, 208);
Set_USize (Preferencias.Modificar, 96, 32);
Button_Callback.Connect
(Preferencias.Modificar, "clicked",
Button_Callback.To_Marshaller (On_Modificar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Modificar, 296, 208);
Gtk_New (Preferencias.Cancelar, -"Cancelar");
Set_Relief (Preferencias.Cancelar, Relief_Normal);
! Set_UPosition (Preferencias.Cancelar, 200, 208);
Set_USize (Preferencias.Cancelar, 96, 32);
Button_Callback.Connect
(Preferencias.Cancelar, "clicked",
Button_Callback.To_Marshaller (On_Cancelar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Cancelar, 200, 208);
Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
--- 143,161 ----
Gtk_New (Preferencias.Modificar, -"Modificar");
Set_Relief (Preferencias.Modificar, Relief_Normal);
! Set_UPosition (Preferencias.Modificar, 200, 208);
Set_USize (Preferencias.Modificar, 96, 32);
Button_Callback.Connect
(Preferencias.Modificar, "clicked",
Button_Callback.To_Marshaller (On_Modificar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Modificar, 200, 208);
Gtk_New (Preferencias.Cancelar, -"Cancelar");
Set_Relief (Preferencias.Cancelar, Relief_Normal);
! Set_UPosition (Preferencias.Cancelar, 296, 208);
Set_USize (Preferencias.Cancelar, 96, 32);
Button_Callback.Connect
(Preferencias.Cancelar, "clicked",
Button_Callback.To_Marshaller (On_Cancelar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Cancelar, 296, 208);
Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
|
|
From: Cesar P. T. <or...@us...> - 2001-05-17 10:18:40
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv3497/acdo/src/gui
Modified Files:
preferencias_pkg.adb
Log Message:
cambio en el orden de los botones de la ventana preferencias
Index: preferencias_pkg.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/preferencias_pkg.adb,v
retrieving revision 2.1
retrieving revision 2.2
diff -C2 -r2.1 -r2.2
*** preferencias_pkg.adb 2001/05/10 19:01:09 2.1
--- preferencias_pkg.adb 2001/05/17 10:18:38 2.2
***************
*** 143,161 ****
Gtk_New (Preferencias.Modificar, -"Modificar");
Set_Relief (Preferencias.Modificar, Relief_Normal);
! Set_UPosition (Preferencias.Modificar, 296, 208);
Set_USize (Preferencias.Modificar, 96, 32);
Button_Callback.Connect
(Preferencias.Modificar, "clicked",
Button_Callback.To_Marshaller (On_Modificar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Modificar, 296, 208);
Gtk_New (Preferencias.Cancelar, -"Cancelar");
Set_Relief (Preferencias.Cancelar, Relief_Normal);
! Set_UPosition (Preferencias.Cancelar, 200, 208);
Set_USize (Preferencias.Cancelar, 96, 32);
Button_Callback.Connect
(Preferencias.Cancelar, "clicked",
Button_Callback.To_Marshaller (On_Cancelar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Cancelar, 200, 208);
Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
--- 143,161 ----
Gtk_New (Preferencias.Modificar, -"Modificar");
Set_Relief (Preferencias.Modificar, Relief_Normal);
! Set_UPosition (Preferencias.Modificar, 200, 208);
Set_USize (Preferencias.Modificar, 96, 32);
Button_Callback.Connect
(Preferencias.Modificar, "clicked",
Button_Callback.To_Marshaller (On_Modificar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Modificar, 200, 208);
Gtk_New (Preferencias.Cancelar, -"Cancelar");
Set_Relief (Preferencias.Cancelar, Relief_Normal);
! Set_UPosition (Preferencias.Cancelar, 296, 208);
Set_USize (Preferencias.Cancelar, 96, 32);
Button_Callback.Connect
(Preferencias.Cancelar, "clicked",
Button_Callback.To_Marshaller (On_Cancelar_Clicked'Access));
! Put (Preferencias.Fixed2, Preferencias.Cancelar, 296, 208);
Gtk_New (Preferencias.Administrador, -"Mostrar utilidades de administración.");
|
|
From: Cesar P. T. <or...@us...> - 2001-05-17 10:18:40
|
Update of /cvsroot/acdo//acdo/src
In directory usw-pr-cvs1:/tmp/cvs-serv3497/acdo/src
Modified Files:
autocdorganizer.glade
Log Message:
cambio en el orden de los botones de la ventana preferencias
Index: autocdorganizer.glade
===================================================================
RCS file: /cvsroot/acdo//acdo/src/autocdorganizer.glade,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** autocdorganizer.glade 2001/05/10 19:35:20 2.0
--- autocdorganizer.glade 2001/05/17 10:18:37 2.1
***************
*** 223,227 ****
<class>GtkButton</class>
<name>modificar</name>
! <x>296</x>
<y>208</y>
<width>96</width>
--- 223,227 ----
<class>GtkButton</class>
<name>modificar</name>
! <x>200</x>
<y>208</y>
<width>96</width>
***************
*** 241,245 ****
<class>GtkButton</class>
<name>cancelar</name>
! <x>200</x>
<y>208</y>
<width>96</width>
--- 241,245 ----
<class>GtkButton</class>
<name>cancelar</name>
! <x>296</x>
<y>208</y>
<width>96</width>
|
|
From: Cesar P. T. <or...@us...> - 2001-05-17 00:50:12
|
Update of /cvsroot/acdo//acdo/src/gui
In directory usw-pr-cvs1:/tmp/cvs-serv1022/acdo/src/gui
Modified Files:
autocdorganizer_intl.adb
Log Message:
Eliminamos internacionalización para que vaya con gtkada 1.2.10
Index: autocdorganizer_intl.adb
===================================================================
RCS file: /cvsroot/acdo//acdo/src/gui/autocdorganizer_intl.adb,v
retrieving revision 2.0
retrieving revision 2.1
diff -C2 -r2.0 -r2.1
*** autocdorganizer_intl.adb 2001/05/10 19:59:31 2.0
--- autocdorganizer_intl.adb 2001/05/17 00:50:07 2.1
***************
*** 1,3 ****
! with Gtkada.Intl; use Gtkada.Intl;
package body Autocdorganizer_Intl is
--- 1,3 ----
! --with Gtkada.Intl; use Gtkada.Intl;
package body Autocdorganizer_Intl is
***************
*** 5,9 ****
function "-" (Msg : String) return String is
begin
! return Dgettext ("Autocdorganizer", Msg);
end "-";
--- 5,10 ----
function "-" (Msg : String) return String is
begin
! -- return Dgettext ("Autocdorganizer", Msg);
! return (Msg);
end "-";
|
|
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;
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:35
|
Update of /cvsroot/acdo//acdo/src/pkg
In directory usw-pr-cvs1:/tmp/cvs-serv9661/src/pkg
Modified Files:
Tag: 2.0
Makefile base_datos.adb base_datos.ads datos.ads
dispositivo.ads infofich.c preferencias.adb preferencias.ads
ustrings.adb ustrings.ads utiles.adb utiles.ads
Log Message:
cambio de revisión
--- NEW FILE ---
all:
clean:
rm -f *.o *~ *.ali
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: base_datos.adb
-- Fecha: 25 de abril de 2001
-- Proyecto: acdo
-- Descripción: Transacciones de la base de datos de acdo (implementación)
-----------------------------------------------------------------------------
with postgresql; use postgresql;
with preferencias; use preferencias;
package body base_datos is
type tpestado is (DESCONECTADO, CONECTADO, CONSULTADO);
type tpbuscado is (FICHEROS, TEMAS, VOLUMENES, SUBDIRS, SUBFICH);
-- Si la última búsqueda es:
-- · un fichero con unos criterios
-- · la lista de temas
-- · los volumenes de un tema
-- · los subitems de un directorio (primero directorios)
-- · los subitems de un directorio (después ficheros)
conexion : tppgconexion;
resultado : tppgresultado;
fila : integer; -- La que está lista para leer
estado : tpestado := DESCONECTADO;
buscado : tpbuscado;
resultado_fich : tppgresultado; -- En búsquedas de subitems, los directorios
-- se pondrán en resultado y los ficheros
-- en resultado_fich
procedure conectar is
p : tppreferencias;
begin
preferencias.dar(p);
if estado /= DESCONECTADO then
desconectar(conexion);
else
conectar(conexion,
S(p.bd_servidor),
Integer'image(p.bd_puerto),
S(p.bd_nombre),
S(p.bd_usuario),
S(p.bd_password));
end if;
estado := CONECTADO;
end conectar;
procedure desconectar is
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
desconectar(conexion);
estado := DESCONECTADO;
end if;
end desconectar;
procedure insertar(item: tpitem; identificador : out integer) is
-- Devuelve el identificador del item encontrado
resultado_id : tppgresultado;
p : tppreferencias;
begin
dar(p);
if estado /= CONECTADO then
raise ERROR_ESTADO;
else
case item.tipo is
when VOLUMEN =>
consulta(conexion, resultado_id, "begin;");
consulta(conexion, resultado_id, "insert into volumen(titulo,tema," &
"fecha,codigo,medio,descripcion) values ('" &
S(item.titulo) & "','" & S(item.tema) & "','" &
S(item.fecha_insercion) & "','" &
S(item.codigo) & "','" & S(p.medio) & "','" &
S(item.descripcion) & "');");
consulta(conexion,resultado_id,
"select currval('volumen_idvol_seq');");
-- No hay condición de carrera. currval es almacenado en cada uno
-- de los back-ends del servidor.
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado_id, "rollback;");
else
identificador := Integer'value(S(campo(resultado_id, 1, 1)));
consulta(conexion, resultado_id, "commit;");
end if;
when DIRECTORIO =>
consulta(conexion, resultado_id, "begin;");
consulta(conexion, resultado_id, "lock table volumen in share mode;");
consulta(conexion, resultado_id,
"lock table directorio in exclusive mode;");
consulta(conexion, resultado_id, "select idvol from volumen where " &
"idvol = '" & Integer'image(item.volumen) & "';");
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado_id, "rollback;");
else
if item.padre_dir /= -1 then
-- Es un directorio normal
consulta(conexion, resultado_id, "select iddir from directorio " &
"where iddir = '" & Integer'image(item.padre_dir) & "';");
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado, "rollback;");
else
consulta(conexion, resultado_id, "insert into directorio(" &
"nombre,nombre_completo,fecha,tamanyo,idVol," &
"idPadre) values ('" & S(item.nombre_dir) & "','" &
S(item.nombre_completo_dir)&"','" & S(item.fecha_dir) &
"'," & Integer'image(item.tamanyo_dir) & ",'" &
Integer'image(item.volumen) & "','" &
Integer'image(item.padre_dir) & "');");
consulta(conexion, resultado_id,
"select currval('directorio_iddir_seq');");
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado, "rollback;");
else
identificador := Integer'value(S(campo(resultado_id, 1,1)));
consulta(conexion, resultado, "commit;");
end if;
end if;
else
-- Es un directorio raiz
consulta(conexion, resultado_id, "insert into directorio(" &
"nombre,nombre_completo,fecha,tamanyo,idVol," &
"idPadre) values ('" & S(item.nombre_dir) & "','" &
S(item.nombre_completo_dir) & "','" & S(item.fecha_dir) &
"'," & Integer'image(item.tamanyo_dir) & ",'" &
Integer'image(item.volumen) & "',-1);");
consulta(conexion, resultado_id,
"select currval('directorio_iddir_seq');");
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado, "rollback;");
else
identificador := Integer'value(S(campo(resultado_id, 1,1)));
consulta(conexion, resultado_id, "update volumen set idraiz = "&
integer'image(identificador) & " where idvol = " &
integer'image(item.volumen) & ";");
consulta(conexion, resultado, "commit;");
end if;
end if;
end if;
when FICHERO =>
consulta(conexion, resultado_id, "begin;");
consulta(conexion, resultado_id, "lock table directorio " &
"in share mode;");
consulta(conexion, resultado_id, "select iddir from directorio " &
"where iddir = '" & Integer'image(item.padre_fich) & "';");
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado_id, "rollback;");
else
consulta(conexion, resultado_id, "insert into fichero(nombre," &
"fecha,tamanyo,iddir) values ('" & S(item.nombre_fich) &
"','" & S(item.fecha_fich) & "'," &
Integer'image(item.tamanyo_fich) & "," &
Integer'image(item.padre_fich) & ");");
consulta(conexion, resultado_id,
"select currval('fichero_idfich_seq');");
if num_filas(resultado_id) /= 1 then
identificador := -1;
consulta(conexion, resultado_id, "rollback;");
else
identificador := Integer'value(S(campo(resultado_id, 1, 1)));
consulta(conexion, resultado_id, "commit;");
end if;
end if;
end case;
end if;
end insertar;
procedure modificar(item: tpitem) is
resultado_id : tppgresultado;
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
if item.tipo = VOLUMEN then
consulta(conexion, resultado_id, "update volumen set titulo = '" &
S(item.titulo) & "', tema = '" & S(item.tema) & "', fecha = '"
& S(item.fecha_insercion) & "', codigo = '" & S(item.codigo) &
"', medio = '" & S(item.tipo_dispositivo)&"', descripcion = '"&
S(item.descripcion) & "' where idvol = " &
Integer'image(item.identificador) & ";");
else
consulta(conexion, resultado_id, "update directorio set nombre = '" &
S(item.nombre_dir) & "', nombre_completo='" &
S(item.nombre_completo_dir) & "', fecha='" &
S(item.fecha_dir) & "', tamanyo='" &
integer'image(item.tamanyo_dir) & "' where idDir = " &
integer'image(item.identificador) & ";");
end if;
end if;
end modificar;
procedure borrar(item: tpitem) is
res : tppgresultado;
idvol : ustring;
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
if item.tipo = VOLUMEN then
idvol := U(integer'image(item.identificador));
consulta(conexion, res, "begin;");
consulta(conexion, res, "lock table volumen in exclusive mode;");
consulta(conexion, res, "lock table directorio in exclusive mode;");
consulta(conexion, res, "lock table fichero in exclusive mode;");
consulta(conexion, res, "delete from fichero where idDir in " &
"(select iddir from directorio where idvol = " & S(idvol) &
");");
consulta(conexion, res, "delete from directorio where idvol = '"
& S(idvol) & "';");
consulta(conexion, res, "delete from volumen where idvol = '" &
S(idvol) & "';");
consulta(conexion, res, "commit;");
end if;
end if;
end borrar;
procedure buscar(criterios: tpbusqueda) is
-- Busca ficheros
condicion : ustring;
sentencia : ustring;
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
condicion := U("");
if S(criterios.nombre) /= "" then
condicion := U(S(condicion) & " and (fichero.nombre like '%" &
S(criterios.nombre) & "%')");
end if;
if S(criterios.fecha_ant) /= "" then
condicion := U(S(condicion) & " and (fichero.fecha <= '" &
S(criterios.fecha_ant) & "')");
end if;
if S(criterios.fecha_post) /= "" then
condicion := U(S(condicion) & " and (fichero.fecha >= '" &
S(criterios.fecha_post) & "')");
end if;
if criterios.tama_menor /= 0 then
condicion := U(S(condicion) & " and (fichero.tamanyo <= '" &
integer'image(criterios.tama_menor) & "')");
end if;
if criterios.tama_mayor /= 0 then
condicion := U(S(condicion) & " and (fichero.tamanyo >= '" &
integer'image(criterios.tama_mayor) & "')");
end if;
if S(criterios.tema) /= "" then
condicion := U(S(condicion) & " and (fichero.tema = '" &
S(criterios.tema) & "')");
end if;
if S(criterios.codigo) /= "" then
condicion := U(S(condicion) & " and (fichero.codigo = '" &
S(criterios.codigo) & "')");
end if;
if S(criterios.medio) /= "" then
condicion := U(S(condicion) & " and (fichero.medio = '" &
S(criterios.medio) & "')");
end if;
-- En condicion tenemos el where
sentencia := U("select fichero.nombre, fichero.tamanyo, fichero.fecha," &
"directorio.nombre_completo, volumen.titulo from " &
"fichero,directorio,volumen where " &
"(fichero.iddir = directorio.iddir) and " &
"(directorio.idvol = volumen.idvol) " & S(condicion) & ";");
consulta(conexion, resultado, S(sentencia));
fila := 1;
estado := CONSULTADO;
buscado := FICHEROS;
end if;
end buscar;
procedure buscar is
-- Busca los temas
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
consulta(conexion, resultado, "select distinct tema from volumen;");
fila := 1;
estado := CONSULTADO;
buscado := TEMAS;
end if;
end buscar;
procedure buscar(tema: ustring) is
-- Busca volumenes de un tema
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
consulta(conexion, resultado, "select idvol,titulo,tema,fecha, " &
"codigo,medio,descripcion,idraiz from volumen where tema = '" &
S(tema) & "';");
fila := 1;
estado := CONSULTADO;
buscado := VOLUMENES;
end if;
end buscar;
procedure buscar(item: tpitem) is
-- Busca subitems de un item
begin
if estado = DESCONECTADO then
raise ERROR_ESTADO;
else
if item.tipo = DIRECTORIO then
consulta(conexion, resultado, "select iddir, nombre, nombre_completo," &
"fecha, tamanyo, idVol, idPadre from directorio where " &
"iddir = " & integer'image(item.identificador) & ";");
consulta(conexion, resultado_fich, "select idfich, nombre, fecha," &
"tamanyo,iddir from fichero where iddir = " &
integer'image(item.identificador) & ";");
else
-- Es un volumen
consulta(conexion, resultado, "select iddir, nombre, nombre_completo," &
"directorio.fecha, tamanyo, directorio.idVol, idPadre from " &
"volumen,directorio where (directorio.iddir = volumen.idraiz)"&
" and (directorio.idvol = " &
integer'image(item.identificador) & ");");
consulta(conexion, resultado_fich, "select idfich, fichero.nombre, " &
"fichero.fecha,fichero.tamanyo,fichero.iddir from fichero," &
"directorio where (fichero.iddir = directorio.iddir) " &
"and (directorio.idpadre = -1) and (directorio.idvol = " &
integer'image(item.identificador) & ");");
end if;
estado := CONSULTADO;
buscado := SUBDIRS;
fila := 1;
end if;
end buscar;
-- Cuando fin sea true en item no habrá nada
procedure recuperar(item: out tpitem_access; fin: out boolean) is
-- Para recuperar items
begin
if estado /= CONSULTADO then
raise ERROR_ESTADO;
else
case buscado is
when FICHEROS =>
-- Recupera en otro recuperar
raise ERROR_ESTADO;
when TEMAS =>
-- Recupera en otro recuperar
raise ERROR_ESTADO;
when VOLUMENES =>
if fila > num_filas(resultado) then
fin := true;
else
item := new tpitem(VOLUMEN);
item.identificador := integer'value(S(campo(resultado,fila,1)));
item.titulo := campo(resultado,fila,2);
item.tema := campo(resultado,fila,3);
item.fecha_insercion := campo(resultado,fila,4);
item.codigo := campo(resultado,fila,5);
item.tipo_dispositivo := campo(resultado,fila,6);
item.descripcion := campo(resultado,fila,7);
item.dir_raiz := integer'value(S(campo(resultado,fila,8)));
fin := false;
fila := fila + 1;
end if;
when SUBDIRS =>
if fila > num_filas(resultado) then
fila := 1;
buscado := SUBFICH;
recuperar(item,fin);
else
item := new tpitem(DIRECTORIO);
item.identificador := integer'value(S(campo(resultado,fila,1)));
item.padre_dir := integer'value(S(campo(resultado,fila,7)));
item.nombre_dir := campo(resultado,fila,2);
item.nombre_completo_dir := campo(resultado,fila,3);
item.tamanyo_dir := integer'value(S(campo(resultado,fila,5)));
item.fecha_dir := campo(resultado,fila,4);
fin := false;
fila := fila + 1;
end if;
when SUBFICH =>
if fila > num_filas(resultado_fich) then
fin := true;
else
item := new tpitem(FICHERO);
item.identificador := integer'value(S(campo(resultado_fich,
fila,1)));
item.padre_fich := integer'value(S(campo(resultado_fich,fila,5)));
item.nombre_fich := campo(resultado_fich,fila,2);
item.tamanyo_fich:=integer'value(S(campo(resultado_fich,fila,4)));
item.fecha_fich := campo(resultado_fich,fila,3);
fin := false;
fila := fila + 1;
end if;
end case;
end if;
end recuperar;
procedure recuperar(tema: out ustring; fin: out boolean) is
-- Para recuperar temas
begin
if estado /= CONSULTADO or buscado /= TEMAS then
raise ERROR_ESTADO;
else
if fila > num_filas(resultado) then
fin := true;
else
tema := campo(resultado,fila,1);
fin := false;
fila := fila + 1;
end if;
end if;
end recuperar;
procedure recuperar(fichero: out tpbusqresul; fin: out boolean) is
begin
if estado /= CONSULTADO or buscado /= FICHEROS then
raise ERROR_ESTADO;
else
if fila > num_filas(resultado) then
fin := true;
else
fichero.nombre_fich := campo(resultado, fila, 1);
fichero.tamanyo_fich := integer'value(S(campo(resultado, fila, 2)));
fichero.fecha_fich := campo(resultado, fila, 3);
fichero.nombre_completo_dir := campo(resultado, fila, 4);
fichero.titulo := campo(resultado, fila, 5);
fin := false;
fila := fila + 1;
end if;
end if;
end recuperar;
end base_datos;
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: Base_datos.ads
-- Fecha: 24 de abril de 2001
-- Proyecto: acdo
-- Descripción: Transacciones de la base de datos de acdo
-----------------------------------------------------------------------------
with datos; use datos;
with ustrings; use ustrings;
package base_datos is
ERROR_ESTADO : exception;
-- Se lanza cuando se he intentado hacer una consulta sin estar conectado,
-- cuando se accede a datos de una consulta no realizada o cuando se
-- intenta recuperar un tema que no se ha consultado
procedure conectar;
procedure desconectar;
procedure insertar(item: tpitem; identificador : out integer);
-- Devuelve el identificador del item encontrado
-- Si ha habido error devuelve -1 en identificador
-- Si se inserta un directorio raiz se debe poner item.padre_dir a -1
-- El medio lo saca de las preferencias
procedure modificar(item: tpitem);
-- item debe ser un volumen o directorio
-- modifica el item del identificador dado con el resto de los
-- datos del item
procedure borrar(item: tpitem);
procedure buscar(criterios: tpbusqueda);
-- Busca ficheros
procedure buscar;
-- Busca los temas
procedure buscar(tema: ustring);
-- Busca volumenes de un tema
procedure buscar(item: tpitem);
-- Busca subitems de un item
-- Cuando fin sea true en item no habrá nada
procedure recuperar(item: out tpitem_access; fin: out boolean);
-- Para recuperar items
procedure recuperar(tema: out ustring; fin: out boolean);
-- Para recuperar temas
procedure recuperar(fichero: out tpbusqresul; fin: out boolean);
-- Para recuperar busquedas
end base_datos;
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: datos.ads
-- Fecha: 24 de abril de 2001
-- Proyecto: acdo
-- Descripción: Estructuras de datos de acdo
-----------------------------------------------------------------------------
with ustrings; use ustrings;
package datos is
type tptipo_item is (VOLUMEN,DIRECTORIO,FICHERO);
type tpitem(tipo : tptipo_item) is record
identificador : integer;
case tipo is
when VOLUMEN => titulo : ustring;
tema : ustring;
codigo : ustring;
descripcion : ustring;
fecha_insercion : ustring;
tipo_dispositivo : ustring;
dir_raiz : integer;
when DIRECTORIO => padre_dir : integer;
volumen : integer;
nombre_dir : ustring;
nombre_completo_dir : ustring;
tamanyo_dir : integer;
fecha_dir : ustring;
when FICHERO => padre_fich : integer;
nombre_fich : ustring;
tamanyo_fich : integer;
fecha_fich : ustring;
end case;
end record;
type tpitem_access is access tpitem;
type tppreferencias is record
ruta : ustring;
medio : ustring;
bd_usuario : ustring;
bd_password : ustring;
bd_servidor : ustring;
bd_puerto : integer;
bd_nombre : ustring;
administrador : boolean;
end record;
type tpbusqueda is record
nombre : ustring;
fecha_ant, fecha_post : ustring;
tama_menor, tama_mayor : integer; -- KBytes
tema : ustring;
codigo : ustring;
medio : ustring;
end record;
type tpbusqresul is record
nombre_fich : ustring;
tamanyo_fich : integer;
fecha_fich : ustring;
nombre_completo_dir : ustring;
titulo : ustring;
end record;
end datos;
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: dispositivo.ads
-- Fecha: 24 de abril de 2001
-- Proyecto: acdo
-- Descripción: Módulo que inserta automáticamente un volumen en la base de
-- datos
-- Modificado por: César Pérez Turrado <44...@ce...>
-- Fecha modificación: 27 abril 2001
-- Motivo modificación: añadidas exepciones.
-----------------------------------------------------------------------------
with datos; use datos;
package dispositivo is
ERROR_FS : exception;
-- Se lanza cuando no se ha podido acceder al sistema de archivos.
ERROR_BD : exception;
-- Se lanza cuando ha habido algún error con la base de datos.
procedure insertar(volumen : tpitem);
end dispositivo;
--- NEW FILE ---
/********************************************************************
* TILDURE
* Autor: César Pérez Turrado (44...@ce...)
* Fichero: infofich.c
* Fecha: 30 de abril de 2001
* Proyecto: acdo
* Descripción: Funciones para obtener información de un fichero
* Estás funciones son conformes (al menos deberían) a:
* SVr4, SVID, POSIX, X/OPEN y BSD 4.3 + ansi C
********************************************************************/
#include <sys/stat.h>
#include <unistd.h>
#include <time.h>
#include <string.h>
#include <stdlib.h>
#include <locale.h>
#include <dirent.h>
#include <sys/types.h>
struct stDatosFichero {
char *nombre;
int tamanyo;
int directorio;
char *fecha;
int final;
};
static struct stDatosFichero datosFichero;
static DIR *dirinfo;
static struct dirent *fichinfo;
void abrirdirectorio (char *fichero)
{
dirinfo = opendir (fichero);
}
void leerdirectorio (char *fichero)
{
struct stat datos;
char c[300];
char *localizacion;
struct tm *fecha;
DIR *dirinfoAux;
char tmp[25];
localizacion = getenv ("LC_ALL");
setlocale(LC_ALL, localizacion);
fichinfo = readdir (dirinfo);
while (fichinfo != NULL && fichinfo->d_name[0] == '.') {
fichinfo = readdir (dirinfo);
}
if (fichinfo != NULL) {
datosFichero.final = 0;
sprintf (c, "%s/%s", fichero, fichinfo->d_name);
stat (c, &datos);
fecha = localtime (&datos.st_mtime);
strftime (tmp, 25, "%d/%m/%Y", fecha);
datosFichero.tamanyo = datos.st_size;
datosFichero.nombre = strdup (fichinfo->d_name);
datosFichero.fecha = strdup (tmp);
dirinfoAux = opendir (c);
if (dirinfoAux == NULL)
datosFichero.directorio = 0;
else
datosFichero.directorio = 1;
} else
datosFichero.final = 1;
}
int fichfinal ()
{
return (datosFichero.final);
}
char *fichnombre ()
{
return (datosFichero.nombre);
}
int fichdirectorio ()
{
return (datosFichero.directorio);
}
char *fichfecha ()
{
return (datosFichero.fecha);
}
int fichtamanyo ()
{
return (datosFichero.tamanyo);
}
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: César Pérez Turrado (44...@ce...)
-- Fichero: preferencias.adb
-- Fecha: 1 de mayo de 2001
-- Proyecto: acdo
-- Descripción: Módulo para la gestión de las preferencias del programa
-- segunda versión: no utiliza xml
-----------------------------------------------------------------------------
with datos; use datos;
with ustrings; use ustrings;
with ada.strings.fixed; use ada.strings.fixed;
with ada.strings.bounded; use ada.strings.bounded;
with ada.io_exceptions; use ada.io_exceptions;
with ada.sequential_io;
package body preferencias is
PACKAGE pcad255 IS NEW generic_bounded_length(255);
USE pcad255;
type tpSpreferencias is record
ruta: bounded_string;
medio: bounded_string;
bd_usuario: bounded_string;
bd_password: bounded_string;
bd_servidor: bounded_string;
bd_puerto: integer := 0;
bd_nombre: bounded_string;
administrador: boolean := false;
end record;
package esDatos is new ada.sequential_io(tpSpreferencias);
use esDatos;
type tpfDatos is new esDatos.file_type;
nfichero : constant string := "acdo.cfg";
p : tpSpreferencias;
procedure leer is
fichero: tpfDatos;
begin
open(fichero, in_file, nfichero);
read(fichero, p);
close(fichero);
exception
when others =>
p.ruta := to_bounded_string("");
p.medio := to_bounded_string("");
p.bd_usuario := to_bounded_string("");
p.bd_password := to_bounded_string("");
p.bd_servidor := to_bounded_string("");
p.bd_puerto := 0;
p.bd_nombre := to_bounded_string("");
p.administrador := false;
end leer;
procedure guardar(preferencias : tppreferencias) is
fichero: tpfDatos;
begin
create (fichero, out_file, nfichero);
p.ruta := to_bounded_string(ustrings.S(preferencias.ruta));
p.medio := to_bounded_string(ustrings.S(preferencias.medio));
p.bd_usuario := to_bounded_string(ustrings.S(preferencias.bd_usuario));
p.bd_password := to_bounded_string(ustrings.S(preferencias.bd_password));
p.bd_servidor := to_bounded_string(ustrings.S(preferencias.bd_servidor));
p.bd_puerto := preferencias.bd_puerto;
p.bd_nombre := to_bounded_string(ustrings.S(preferencias.bd_nombre));
p.administrador := preferencias.administrador;
write (fichero, p);
close (fichero);
end guardar;
procedure dar(preferencias : out tppreferencias) is
begin
preferencias.ruta := U(to_string(p.ruta));
preferencias.medio := U(to_string(p.medio));
preferencias.bd_usuario := U(to_string(p.bd_usuario));
preferencias.bd_password := U(to_string(p.bd_password));
preferencias.bd_servidor := U(to_string(p.bd_servidor));
preferencias.bd_puerto := p.bd_puerto;
preferencias.bd_nombre := U(to_string(p.bd_nombre));
preferencias.administrador := p.administrador;
end dar;
end preferencias;
--- NEW FILE ---
-----------------------------------------------------------------------------
-- TILDURE
-- Autor: Juan Manuel Perié Buil (44...@ce...)
-- Fichero: preferencias.ads
-- Fecha: 24 de abril de 2001
-- Proyecto: acdo
-- Descripción: Módulo para la gestión de las preferencias del programa
-----------------------------------------------------------------------------
with datos; use datos;
package preferencias is
procedure leer;
procedure guardar(preferencias : tppreferencias);
procedure dar(preferencias : out tppreferencias);
end preferencias;
--- NEW FILE ---
--
-- Copyright (C) 1996 Ada Resource Association (ARA), Columbus, Ohio.
-- Author: David A. Wheeler
--
package body Ustrings is
Input_Line_Buffer_Length : constant := 1024;
-- If an input line is longer, Get_Line will recurse to read in the line.
procedure Swap(Left, Right : in out Unbounded_String) is
-- Implement Swap. This is the portable but slow approach.
Temporary : Unbounded_String;
begin
Temporary := Left;
Left := Right;
Right := Temporary;
end Swap;
function Empty(S : Unbounded_String) return Boolean is
-- returns True if Length(S)=0.
begin
return (Length(S) = 0);
end Empty;
-- Implement Unbounded_String I/O by calling Text_IO String routines.
-- Get_Line gets a line of text, limited only by the maximum number of
-- characters in an Unbounded_String. It reads characters into a buffer
-- and if that isn't enough, recurses to read the rest.
procedure Get_Line (File : in File_Type; Item : out Unbounded_String) is
function More_Input return Unbounded_String is
Input : String (1 .. Input_Line_Buffer_Length);
Last : Natural;
begin
Get_Line (File, Input, Last);
if Last < Input'Last then
return To_Unbounded_String (Input(1..Last));
else
return To_Unbounded_String (Input(1..Last)) & More_Input;
end if;
end More_Input;
begin
Item := More_Input;
end Get_Line;
procedure Get_Line(Item : out Unbounded_String) is
begin
Get_Line(Current_Input, Item);
end Get_Line;
procedure Put(File : in File_Type; Item : in Unbounded_String) is
begin
Put(File, To_String(Item));
end Put;
procedure Put(Item : in Unbounded_String) is
begin
Put(Current_Output, To_String(Item));
end Put;
procedure Put_Line(File : in File_Type; Item : in Unbounded_String) is
begin
Put(File, Item);
New_Line(File);
end Put_Line;
procedure Put_Line(Item : in Unbounded_String) is
begin
Put(Current_Output, Item);
New_Line;
end Put_Line;
end Ustrings;
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright and authorship notice appear in all
-- copies and that both that copyright notice and this permission notice
-- appear in supporting documentation.
--
-- The ARA makes no representations about the suitability of this software
-- for any purpose. It is provided "as is" without express
-- or implied warranty.
--
--- NEW FILE ---
--
-- Copyright (C) 1996 Ada Resource Association (ARA), Columbus, Ohio.
-- Author: David A. Wheeler
--
with Text_IO, Ada.Strings.Unbounded;
use Text_IO, Ada.Strings.Unbounded;
package Ustrings is
-- This package provides a simpler way to work with type
-- Unbounded_String, since this type will be used very often.
-- Most users will want to ALSO with "Ada.Strings.Unbounded".
-- Ideally this would be a child package of "Ada.Strings.Unbounded".
--
-- This package provides the following simplifications:
-- + Shortens the type name from "Unbounded_String" to "Ustring".
-- + Creates shorter function names for To_Unbounded_String, i.e.
-- To_Ustring(U) and U(S). "U" is not a very readable name, but
-- it's such a common operation that a short name seems appropriate
-- (this function is needed every time a String constant is used).
-- It also creates S(U) as the reverse of U(S).
-- + Adds other subprograms, currently just "Swap".
-- + Other packages can use this package to provide other simplifications.
subtype Ustring is Unbounded_String;
function To_Ustring(Source : String) return Unbounded_String
renames To_Unbounded_String;
function U(Source : String) return Unbounded_String
renames To_Unbounded_String;
function S(Source : Unbounded_String) return String
renames To_String;
-- "Swap" is important for reuse in some other packages, so we'll define it.
procedure Swap(Left, Right : in out Unbounded_String);
function Empty(S : Unbounded_String) return Boolean;
-- returns True if Length(S)=0.
pragma Inline(Empty);
-- I/O Routines.
procedure Get_Line(File : in File_Type; Item : out Unbounded_String);
procedure Get_Line(Item : out Unbounded_String);
procedure Put(File : in File_Type; Item : in Unbounded_String);
procedure Put(Item : in Unbounded_String);
procedure Put_Line(File : in File_Type; Item : in Unbounded_String);
procedure Put_Line(Item : in Unbounded_String);
end Ustrings;
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright and authorship notice appear in all
-- copies and that both that copyright notice and this permission notice
-- appear in supporting documentation.
--
-- The ARA makes no representations about the suitability of this software
-- for any purpose. It is provided "as is" without express
-- or implied warranty.
--
--- NEW FILE ---
--------------------------------------------------------------------------
--TILDURE
--Autores: César Pérez Turrado <44...@ce...>
--Fichero: utiles.ads
--Fecha: 1 Mayo 2001
--Proyecto: ACDO
--Descripción:
--------------------------------------------------------------------------
with base_datos; use base_datos;
with Gtk.Main; use Gtk.Main;
package body utiles is
procedure salir is
begin
desconectar;
Main_Quit;
end;
end utiles;
--- NEW FILE ---
--------------------------------------------------------------------------
--TILDURE
--Autores: César Pérez Turrado <44...@ce...>
--Fichero: utiles.ads
--Fecha: 1 Mayo 2001
--Proyecto: ACDO
--Descripción:
--------------------------------------------------------------------------
package utiles is
procedure salir;
end utiles;
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:35
|
Update of /cvsroot/acdo//acdo/install/instalar-acdo/pixmaps
In directory usw-pr-cvs1:/tmp/cvs-serv9661/install/instalar-acdo/pixmaps
Modified Files:
Tag: 2.0
acdo.xpm
Log Message:
cambio de revisión
--- NEW FILE ---
/* XPM */
static char * acdo_xpm[] = {
"350 100 6603 2",
" c None",
". c #DFC1CE",
"+ c #E6C5CE",
"@ c #E6C4CE",
"# c #ECCBD5",
"$ c #E6C7CE",
"% c #ECCDD5",
"& c #E5C7CF",
"* c #ECC6CF",
"= c #E5C3C8",
"- c #E5BFC9",
"; c #E5BCC2",
"> c #E5BCC3",
", c #E4B8C3",
"' c #EBBBC3",
") c #E4BACA",
[...6667 lines suppressed...]
"yxkwzxn,Ax3~$&D+D+c0o*D4D4je!ae0L9BxN'0m=3w=CxDxv=W=A_G3a!#o} } agag[ [ [ E,C *!*)G1G1&)ExFxFxYlO]6>b /%F=S,k8Gx}/w*.)i6P=HxN=~%J=mrqs<t0v$r]xIxT#*@&e'jx y A G1fk=)B,)@Jx$!y=x=]@`#KxLxL H#^ x0h*7~h*`9MxNx`_.<.5OxO{PxZ#@uF*Bw$$BwN|QxRxq{q{@w4~HiSxTxUxVxWxXxYxZx`x$' ya%Iog@~$~4g7-5G0G0=bG0.y+y+_@nd9e;@y#y()-m(:J}h7$y2.z@<h]w3.3.!50x};('< |41 `=R+%y%y#q7^t;h.M}a-a-0^)9z+/2N~I6|'&y&ys%>=yrNsN@wv+vwv:w0$x.0$yvx.R@y.C.Ssnt*yV@=yW@-y-yY@K.;y>yL.P:}8,y'y)y!y~y{y]yH<^y[6/yd5(yixAv<dixz9Wwn4_y:y<y<y5wZw[y}y|yy21y2y3y4y5y6yew7yL%T;|#ejs4I7s4=a=a&7=am1wgg]Em8y >9y0yG-i]t2q266ay2+2+eheh1+1+1+o51{,~by)~)~Hmcybyby4mv+O-d+b,O-O-:(=7t]f,v+=7p+2*2*k+m+R$h+k#k#h+k#g+i+j+i+r5j+m+l+p+o#v+Dcu+dym#:f:fo#w+eyasw+ie",
"zxkw+&mo#&_0)9u,u,c0H27bwfw,!a!aRaL9]/4g#%fy[<S(~@A*P5Q{[;#3S+} f6[ G4[ Y#]aC *!=!am6!-!v|6!6!g{J3J36>a F=@)mkU]k{gyhyn{{!Hxiy{;jykyp #@r .@ @lyH2^&&e0 &hy >!//L]=)Z#B,myG ~@~@J A,A,x=x0#%7~7~nyZ9oypyNxd{1<`#P{P{VeqyS+@uF*@uBwb!dvdvc!Rx4@I_4~rysyDwtyuyvywyxyZxi&k&!$z+23;.;.~4*bfa''''=b=b-b.yG}!2<$yyzyxd{'$_Ay`5By,5_4z@$y3.Cy3.[3{2};('('[)S ;)F*DyDy3&#$#$t;g.a-J0W'0^>]1)u#d^'.&y2)x;zqs.t.t.t.:wxvt.xvx.0$Q@<rR@S@S@j-ntc(NeEyG.X@X@J.FyFyGyW0X0zaHyIyCaJyno~bKyfx1wK<c5(yLy;,Av<dMyNyT!BvDvDv:yOy,vZwZwYwYw`wPyQyy26y5y;*T;D$7o<b;+;+s4n2&7n2n2&7&7Kam1!(h10#ycgw+c$>E9Ry66o2l5f#2+#x1+n51+_*w41{,~,~Hm4m3{q]4m4m3{l#l#O-c+O-v+n#:(v+h==[t]n#2*v+p+n+i+i+i+i+g+f+i+f+j+i+k+p#m+w+w+2*v+o#Dcs+s+n#n#v+}~}~:f>an#",
"Syn,Ty#&:ix#Y-u,s_H2H2H2!akew,Ra7dL9@!9mUy[<[<] J B*P5Q{W,9&} S+[ [ S+E1Y#C V,VyWyWy-!7!Xyv|-!g{6>6>[[=;O2h>h>U]Bi&@Yy!!b~Zy`yF6 z&r.z.s+zH=h u V:Y+b b (/>!>!hk>@=)C,@z#z$z~@KxH 7~H ,&}<@bZ9Z9%zZ9#27~_e]@P{P{.w.w:%T R+V 3%@udv&zdvb!` c! .@qc!*z*z1o=z-z2x;z>z$' y!$c@!$)$;.X{Y(*b*bfa_hq_3cud.yb9nmq@zyzy:-2$<.Ay`51.1.2.y@3.3.y@{2[3};(':)S+S+S+urY,;@3&3&t;t;x[a-|3;_;_0^Qib-ymv!i@]$~$,z'zy&Os8$Bq8$O@v.b$z.z.z.5hS@S@SsS@nt)z!z~z{zX@;yH.t^H.x<]z~b_0_0^zCae2/z(zJ<58581wAv4]S.U.T.;,MyBv_zBvU!>#~,:z<z~,<z[z}z}z4y x1y|z1z2zD$:#D$C$;+||n2n2n2&7dhn2KaZdm1N$56]+gwgw_+O$<+Ry66u3u32+f#1+1+f#u2_*1{,~6,3{3{3{=[3zq]3{3{O-O-e,O-w3f,f,:(q]3+Mml#m#r+ &w+l+j+r5j+l+j+k+j+n+m+m+m+p+w+w+o#w+v+n#A]k_dyn#eyt+[~t+m#Z^_~",
"o,4z@ #&#&)9& g8E35zH27b!aw,!aRaI]I]Lr) #%,t6zi/w~B*a!P+W,.$[ } [ :%:%Y#D h|=)*!Wy$nv|7z7zv0-!g{V#b v5!hh>h>k88zU]ts_;9z(ajbll]/!;eq}pnr0zazS'@lbzczAglkO]VlEx'<(xdzC,M{wwK('^K]Nx5959@b@bR(`9`9x0#%1>w~x=]@@8Ve:@:@S ;)R+V F*Y,dvAwBwBwZ q>c!OuZ ezr> lfzfz=z9*$.a%)$!$!$}:;.G8~4gz*bfafa''=b3c1^F~*s_.<$athzov3^<.`5v@1.iz1.z@3.,8I0[3m;C*[)('S+jzY#kzkzlz3&3&})h.|3>_;_;_0^f&0^z[|''.~$DeDe~$x;AqBqBqUjt%Ujt%Zomzkt;q9)[wnz22Z~H!)zi%,dy+s9S/ozs9ncncncZ[pz<0qz.9rz48szJ<y9Pw&#*#S.l)U.T.<df'BvtzWw>#Z.U!~,4w8uuz@+7wvzwzxz4=z$Z.%+D$D$<b;+&9r4yzn2&7&7n2&7Ka/{/{a__+0#zzAzErS^<+66[+u3Bz1+2+1+o5o5_*m]o1b#,~3{0sq]r]r]Cz3{3{b,d+w3l#f,f,:(q]:(!}O-n# &n#n# &p+l+l+l+w+n+w+n+w+w+3*o#v+}~Bc[~n#Dcn#t+9(k__~N)0(_~_~_~_~N)",
"Dz.&u#D+@ & '/4}:[H2H2D4Ezje'aL'[>M'@!) ,&.:fs7~A,B*%%P+: P+} R+R+:%[gD D =)V,(x=!$n7z7!Fz-!Gzoj6>J3v5S]S]Hz)hU]}/IzR,n{M3jbJz`]KzLzMznrfqP=!!tsk{@)NzlkOzXl/p(p(x9!0!K{PzQzVcRzK]R(`9Sz`9i/#%u{H#u{u{~@J B*P+.n:@9&R+89S *:F*Y,dvY,BwAwq>c!2@{m` ` NuTz7@3~Uz4;Vzf!. . )$;.X{d@Y(Y(*b-5A>G03c])B>R*b9_.q&WzBsxbC><.Cev@|.v@2.x@x@,8qmm;m;[)('%l('jzXzurYz3&Zz`zt;#$|3y/y/hbf&0^z+. '.']24De;-:$DeX5 ABqDq[mZ>Xi9)9)Ow;qlt;q.A+AZ~Z~J!@A#A$A%AW8S/S/&A*A&AV0X0v^=A4848.958*{$#-A&#R!*#R!T.4]<df'Bv<|Ww4wU!~,'#}s`.`.;A>A{#,A'A)A!A-*H%|#C$;+||<#X<n2n2s4`f=aKaf]!( [N$_+S%~A3s_{{A<+U%[+|+[+2+e#e#o5ygm]m]b#,~[{,~0sr]=[]A3{^AN-O-l#w3:(:(Rhq]:(t]q]n#t]u1n#t+Z^n#l#w+l+o#p+l#o#v+v+o#o#ieo#/A>an#n#[~z]Z^p1p_m_N)N)9(i_9(t+",
"+ u#.&@ 0{g8& B1u,7bH2H2D4w,jeI]~af|M'(A_A:A@:] w~]@( _ C*_ | R+[ [gR+<AD =)P'(x=!WyUrW9UrFzi>M2R7N2~9S]S])h)h.m[A}A|AX:<!1AJz2AFgpe3A4Afq_j5A6A7A#)vu8AR_9AT_!/0AmdaAL5bA.<'^j(%!~@~@v=v=7~#%#%v=^ / Q{X=X=9&_ m>R [ %m[ 3%F*Y,b!BwBwdv3@3@2@Y 1@` e&cA7@;$#-dA=.8%e@)$X{&0;.'2;.Y5*b*bG0''G01^;b*sR*q&eAfAzj:-3^:-v@|.2.|.|.x@3.egZ*gAm;[):)%l('S+jza&hA1bJ~J~D*J~y/y/y/f&f&z+|:z+!$;-Q}k@;-;-]$$dTjCqDq9jiAjA(.5'Y$kgQskA`~L[lANd>j~z>jkcs9_@t^x7x7!b!bzaX0X0}0 9*{P!O.30_=%#%#S.R!AvD%;,<df':|WwWwDv5]7u'#Kl,#`.]#,A{#y$y$$+%+H%-*C$di&9;+W<;+&7n2n2=an2=a/{Laa_ [S%mAnAoA_+S^_+[+|+2+|+3+e#1+yge#*[m]b#6,[{,~3{0sI90s]A,~f,w3f,:(:(:(q]q]t]h_t]-[-[N)Z^t+t+r+u+>ao#o#ie}~:ft+n#>a>a[~6lt+9(][9(j_k_j_^~_~r+[~n#n#u+u+[~",
"0;}:0{A+C]C3C3s5s5H2H27bUh<> ;e0L'bs) g*pAqAy0] ]@K ( 8f: $r!R+Y#[g:%D D =)=)Q'$n$n7!UrUr7z5!M2O]h6rAS]+rJg</sAtA|!Y73/n8uA(j:7vA.'3gwABj{!m{}AxAVkP]i}yAzAAAH{BACAt~v~L{J ~@J I ~@W=,&v=i(/ ^ / M N'B*X=X=Q{9&m> $89<@R+U 2%@uY,BwZ,S{@qc!1@Y Z e&A~DA3;;$&.EAF8a9X{FA=8)4~4Y5Y5Y(*bfa{)A>0;G0])GA^.U*HAIApv:-:-j%v@w@|.2.izx@t&egI0m;m;[)[)[)jzjzf{hAhAxi3&J~7^*]=]y/4>:iA/O*)_JA`(KAn@S*k@S*:$4:R}LAZ-!'Xo,bQfQst@e;.|MANA:]OA%e,d.{[]X0X@J.I.x7]dx<!by7O!0ew^O.O.*{O.30_dV&%#=,R!*#U.U.D%MykxWwg'5]PA~,,#Kl8u,#{#@+!,y$%+QA%9'{%9<#G7r4r4f1f1n2n2&7z)`f^{=af]Xs_+b=RASANv_+_+c#[+Yb|+2+Bze#_*ygo5m]m]b#b#b#0s0s=[0s0sr]3{f,v+3{q]:(-[t]s+LmN)jjLm0kj_j_Z^j_Z^_~N)[~>an#[~m#z][~m#Z^0(k_J:-/m_j_9(m#}~v+n#v+u+n#q+m#u+j=",
"0;0{}:C]D]qwB1u,s5hiH24}Ezw,'aL'Whf|TAt=UAesVA#;K %%: _ : _ [ S+:%:%Y#D D V,WAL]U,$n7!-!UrUr5!YlO]Yljn#)XA</YAZA`A B{jMcXc.B+B@B#B$B%B+lEi&B{jgl*Bm~`lid=Bye-B=^q,9!zp<%Z# wJ ]@B*K K i(i(^ O+R:/ M -)X=9& $ $ $m> $0&Z=| U #$U F*@uZ,dv2@1@` {mY Z e&1@$u_m&.&.F8F8&0=8Y(;B'2;.Y5'2*b2cA>''3c])m&*s<${-atAs>Bf;j%Ce}.|.|.|.1.y@,8,8[3m;m;(': :'[)jzf{;)hA]s3&#q7^{m{m{m:iA/,B(m'B)B5j=uat}kat4kl7WiM6l7%d%dl!p7!BV~RfKd~BLe}5o^7eZ~{Bw%e$|wJ.Y@v^K.K.|8|8}8]B`8w^O.z7O._=^b^b^b%#=,n$=,n$U.q$U.<d6ug'Dv'#,#`.}sKl8u]#]#8u=*%+%+%9%9'{G7X<^BW<;+f1dhn2z)`fn2Kaf]{*a_0#E-/BZs(B.>c#U%|+|+|+|+1+f#o5o5_*m]m],~_B|{Hm0s=[3{0s0s3{4mv+4mn#n#t]s+wi-7:B<Bjj[B3|y23|J:k_l_m_k_9(9(_~6{p_-7q5l_-70(N)0(N)n#iev+o#iev+o#p+w+w+j=j=v+",
"0;{)0{d|0{d|d(s5D3H2hihiUh8bL'.;f|L'>h}B|Bu=0}$%J ( W,9&: $S+`=[ Y#Y#k/<%U==)Q'.4U1'<'<7!1BXtYlYlXt<pP]2B3B4B4B5B6B7B8B9Bnd0BaBbBcBdBeBfBqhgBhBiBJgjBP]R_kB'<7!Q'=)5&D D !&X=X=6&z=S:/ R:R:R:-)-)z_Q{u5#4P 9&Q+ $ag0&Z=R+2%2%F*@uY,Z,Y,5%q>5%Z lBZ e&1@f&&.&.&.F8W{X{(^X{R|Y(Y5!4Y('2'2{)ea])a;._])mBnBoB]-S}_-2$[.:h:h|.2._4pB3.t&[3fg_'|h[)[)D,f{-k*nur5%^r#q{mkpkp:i(rqBrBrBsBtBsBuBvBvBwBW}f<L6SgT}m9Fhcc)0xBt@yB~'Qs2222G!8'ntzBD.D.PbO!O&O&${ABM!AB`8`85kBBSdP!CBDBQ._=of^bGan$=,U.D%D%<dMy<|g't$i'U!G%Z.EB8u]#]#**%+%+%+%90]%9f1dif1X<f1Jan2dhdhz)JaC-g]a_f]d8stFBF-+cT%O$[+u3u3|+2+f#GB1+_*_*fhb#v2b#b#Gm=[s]s]=[Gm8r4m4m8rDct]jj:BHBHBIB^}IBJBReRe'[4|>[-7q5-/a(-70(N)[~m#A]m#[~[~[~u+v+v+2*p+p+w+m+m+m+2*i=p+i=i=",
"0;C]{)D]>/B1B1:[s5hihi7b`-<> ;I][>) 4gg*KBes$%^ O ( : 9&: P Y#S+Y#E1Y#k/D =)=)Q'8!'<7!J+'<LB0/0gR_xocmi}MBNBPcOBsenkPBQBRBSBTB8!vA`,@!:!DoUBm{VBrjWBf|XBYl&)6!amQ'C 5&D 5&Y#X=X=6&6&7}N z_-)YBz_-)-)y_A_G3G3#3 $9& $Hf89[ U *:Y,Y,Z,`,Y,Z ` 4%lBZ =]e&Z *.&.&.&.F8_^W{W{p/'2'2Y(Y5'2'2fa0;A>0;1^B>^.!2U*AsAs}$2$i%[.}.:h|._4t&y@t&<3[3fgm;[)[)[)ZB-kf{`B*n_oezF+2oVo$& C.C+C@C#C$CBk%C&C&C*Co@=C:$3hraF/]_-CXo7)5';C5'>C|^8'F!8'8'C.zBD.K&O!O!O&O&O&cjC;cj5k,C'CBBz7Sdz7Sd:d)C^bV&=,(bR!D%U.a1f'kxg'!Ct$Z.`.F%~C8u**]#8uUb%+%+%+%9G70]X<W<W<W<X<&7dhdh&7^{`f^{/{!(^+h1b={CZsT%O$V%[+|+u3|+o2_*f#_*u2_*fhm]b#b#b#8rs]=[]Cs]4n4njos]=[Jm0k^C<B<B/CJ:NkNkNk+e+e_}(CZ^A]m#s+_~A][~v+n#Dcn#Dcn#v+n#v+v+p+2*p+2*m+m+m+m+m+|*S$|*o+",
")7$ {)>/D]B1d(B14}hiH24}_C<> ;L'WhWh) t=:C|B)&$%K ( K X=6&X=VeY#Y#Y#Y#D C,[c&f5~Z)J+a/Omye<Ck}S_t|d[d[[C$^}C|C1C2C~j3C4CQu5Cqk:u[0Q 6C7C8Ci~R,9C0C@)bl`$(/9~j>aC3>}gD D Y#Y#X=X=W,6&6&Q6N z_z_0j-)z_y_G3G3#3P 9&9& $Z=Z=[ 2%U F*`,`,Y,F*Z 4%Z Z 4%Z Y 4%&.0^&.v!f7D~W{p/Y('2Y('2d@'2*b2ceaA>0;])m&b9r@{-bCoBs&_-j%[.j%T|cC:3}-t&t&t&[3m;a<dCeCeC:oeCU,@qfCgC.'G+Gn-n(rhC,niCjCkClC,]mCnCoCpCEk,lqCqCLA$d,bEq5'iAjA9)ltrC5hsC+,j-C.B.2uD.tCO!O!O&55O&M.uCC;'C'CvCBBSdSdSdSd)CQ.V&V&=,=,=,D%D%U.<d!C!C<|F%Z.F%Z.Z.**8u%+**%+Yd%+9]H7b80]W<X<W<X<W<z)dhn2z)Ja`f^{f]{*{*_+E-wCxC(*T%c#[+c#p2p2p2J-_*_*_*_*m][{Un]C]C2n]CyC5nzCACLmJm5njjjjBC3lBCdy$kJms]6n$kSe(CSe6lDcDc[~u+m#u+n#}~:fv+ie2*p+2*p+2*p+o+p+p+m+m+m+m+j+m+m+1*S$|*",
"+ f8B]D]D]B1d|:[D3H2hi4}Ez ; ;I]f|Wh!7t=<<CC1>$%x=K B*A_B*J J DCV=<%O'5&<%dz[c.4.49q!/EC.BFCGCHCICd[d[JCKCLCVkMCNCOC3CPCQCRCwAi;SCabTCUCV'VCPCVBtsM'Nzb (/y j>aCWC=)<;5&D D y~X=[;6&7}M W,N z_z_z_z_y_G3X=u59&#oP $890&[ U 2%F*Y,Y,[83%Z ` 5%1@1@Z Z {mf&$uC~v!=.f7(^W{Y('2Y5Y(!4Y('22cA>0;0;1^._b9}${-XCYCq@_-_-j%<.(:ZC|-|-`Ck;H> DI~_';mdCD,D,]r:o.D+D@D#D$D%D-n(r&D*D'n-l=DmC= mC-D;D>DFlFl>f>fGb,D7)'D)D7)XiOwOwz.5hR@+,j-u7ntB;K&D.v^v^O&C;O&cjM.55.#'C'CSdSdSdSdO.!D_=~Dz%=,R!n$D%U.D%<dkx<|{DE%Z.`.G%,#,#8u8u=***$+'{9]%+H7e1X<X<W<f1X<Jan2dhz)`f^{^{/{a_{*L$E-]D^D{AT%T%c#e=t2e=K-K-/D%>K-F)|{b#1mUnGmGmPq2n(D_D_D7nq1:Djjjjs+joOls]Pl6nDc6nDc<D<D[~[~v+v+n#[Dv+Q-Dcv+o#o#o#m+p+m+p+2*C4v+j=2*p+p+p+m+S$m+|*m+j+S$",
")7$ $ $ D]3}B1:[D34}H2H2Uh<>je.;w_M+@%UA}D|D#;7~z=K ]@B*x=W=%!<%L{O'<%B,K{l<1D2D3DH{4D5DusE(%)6D:c7D3!8D#)#)mk9Dk{Ci0D;$aD.&llbDSCQ WecDdDX:W:Ci0CM'b a (/j>9~D8L]WAD <;D j/pdS:B*7}A_M M N M z_-)-)-)G3G3G3u5P G39&89;)[ U 3%F*F*F*[8Bw5%4%ez5%` =]` eD8@f&RiN~f7D~;.;.Y(d@'2Y(!4d@*b*b{)A>G0a;a;<$g%atfDgDf;xbt@j%:-<.[-%_H~H>IsGjH>F>WphDA#B#iDjDjDkD@qlD7^U Vo5%mDnD{mW'W'oD>]RipDqDrDsDDetD>fqC1~uDiA(.Eq5'jAOwz.mz5h+,sCB.j-:82uB;D.vDc4vDM!wDciM.M..#M.'CBBz7z7SdSd:d!Dz%:dR!R!l)D%U.;,<d<d[|{D>#i'F%uzG%`.**y$xD]#H%=*yDH7b8b8=+X<<#W<X<Jaz)n2n2z)`f=ag]g]0#S%/BzDAD.>_{b#c#90e=I-i]{qK-PlF)K-y'_{BDCDDD%k_D_DED5n-[Hmcy=[t]=[Dcn#n#n#Dcv+n#[DF):f:fn#FDv+Dcv+:f}~t+u+n#:fo#m+w+p+p+2*o+2*l#p+j=p+i=o+i=p+|*o+m+m+S$",
"1~$ $ f8A+d(3}B1E3)aH24}`-jeI]*&f|GDHDIDUAf*JDJDA,A,A,J H d{'^KDLDAp1qJ{MDNDCpODPDQD-Bl}6!Fx%)+bJ3O]J3@)!h@)@)0~k{VB.)!!U'V'llWaKzw7TCiyV'^7n{}A|[M'Nza y y j>G13>C <%D '@A*J A*x6z=B*O+-)z_M / M / R:G3y~u5X=#4G3H3;)89S 2%$$F*F*3%F*`,5%ez4%` 5%ezNuPu:iD+dAN~D~D~;.)4d@Y(d@'2~4!4*b2c0;G01^m&._RDSDsBatTDUDVDC>C>]'D>WD+]-dXDYDXDZD&f`D EYp.E+E@E$naCS %y7^Z #$7^>_J0>_J0;]J#>]N~N~O}2)2)DeW>De#EGb1~7),b,b,bE}OwOwmzz.R@+,C.C.C.w%D.U@yaJ.$EU6${M!${5k'CM.O!O.*{TdSd*{!D30%E:d&El)R!T.D%z9<d<d}=[|i'i'uzF%`.G%uz;A{#;A%p$+yDb8b8b8H7<#X<<#W<s4Jan2z)^{=aI7{*a_E-*E=E/B-E;E;E{A{A{AO$2d>EFr^q3d^qIq,E'E)E(q!EED~ExpGm4mbyHm-[l#v+l#v+l#v+v+l#v+v+v+l#v+v+n#q+n#Q-n#v+v+m#m#m#l#o#o#w+m+m+p+p+p+p+v+p+l#j=v+j=C42*p+2*o+|*",
"+ $ $ A+A+3}3}s_E3u,u,D4o*dk.;*&D1{E]E^E/E(ERt1>VtVtH 8~d{_EW2:E<E[E}E[E|E1E2E~k=^!/'<VlFx&)T,(/J3J3O]#)!hn(Y+zoR=@l>;P=P=O=3E{;KzQ TClljb{!n{4Erj@)F=Agy y y ;@>@,@Z#D D N5J x6J B*A_^ s}u{/ / M z_/ G3X=X=G3P X=Y#89;)R+U V 2%@u3%V [81@1@ez5%ezA~A~5E:i$uRiRi=.D~;.FAd@d@d@X{~4;.;'-5*0*0a;m&!26E7E8E9E0EaEC>`k`k d.d+]bE1D'fcEH[QDH[dEeEB#tqfC:o-k)m| /r#$t;#$#$J0{m>_>_R>R>|'fEu;|'|'gE&yx;DeqCGbGb!'!',bhE5'9)g-ktz.R@R@R@S@T@c(D.D.!6J.U6J.M!ci}8>|V6O!O!O.Sd*{SdO.30:dz%30m)R!l)U.U.T.D%My}=[siEt$,#uzG%uz{#{#;A;A$+=*=*%+b8b8<#<#<#<#||s4;+;+s4I7I7E${*h1*EjEkElEmElu{Ajuju2d3d>EnEoEpEqErEsEtEqEuEDDNqzC2ns]|lbyHmbyO-l#l#v+n#l#l#d+d+O-b,d+O-p+o+2*p+n#Dcn#n#n#n#m#9(n#v+p+3*m+m+m+m+w+m+o#p+p+l#v+C4v+p+o+v+q+l#",
"Th@ $ $ $ C3u,E3u,H2u,o*{$.;*&*&) vEwExERtyEzEAEBE8d8~d{*cCEDE<EEEFE|EGE1qHEs~`qr~'<T_-!;!Fx57T,`$6>J3O2S]@)n(bqR=VBw*P=,;[&IE6~<1JEP{c~KEjl+^LE5v#)K46>,!y ;k_%k*k*[gY#Y#D y~w~J B*B*^ s}^ u{O+/ -)R:S:pdG3y~G3X=[ 89<@[ #$|@V 2%@$V F*5%1@5%2@2@A~A~5E$u= H6RiH6=.;.;.;.)4;.~4;.Y(;'g7F}a;m&m&^.[$8EOjaEMENEOEPEQE.d+]RE;&SEcETEUEVEWEZDXEOk]r!&-k!&;)|;%yD*#$%=t;>_|3y/J0J#L~|'N~/2|'u;u;gEW>#E)2EeEe-CG/)0ta8)5'E}5hktR@<wA.A;A;TstCtCv^v^u^J.M!M!}8>|}8V6]Bw^z7TdTdz7:d*{:d30R!R!*#D%n$;#T. *YE[sF%i',#G%'#{#{#{#;A8uZEYd=*Yd%+=+=+=+r4;+r4;+n2;+I78=E${*{*^+K$kE`E F.Fmu+F@Fku3dj]#F$FsEqE%F&FqE*F=F-FVn6r-[s]-[3{,~byo1l#h=O-l#w3:(v+l#O-O-v+f,O-m+m+o+q+Q-m#9(9(A]z]N)k_u+n#l#p+3*m+3*n+l+l+3*m+m+p+p+l#v+p+p+v+q+v+",
".&}:@ @ }:B+g8Y-Y-a*a*o*a*.;.;{/vu;F>F,F]E'FzE)FAE't!F~FNr{F]F^F(eMDJ{1q@zs~[c.4$n-!v|-!&)J4j>57g{/FrA3!S]S]mkU]Bi+)l{i6{!V'(FX=%m`,P{7C_F:FW:~j1!@sNzO]X+j>y m*3>]a>jY#Y#Y#Vez=B*J J s}v=#%O+#%i(M i(W=pdB*O{pdO{Y#89Z=[ 2%2%F*U V 3%<F5%ezez` 5%[FNuPu:i:idAH6f!a9)$)$&0e@G8)$)$P*P*g7P*a;a;^.6<}F|F1F7E2FNE3FOEbt^uct;s4F'f5F-dl<&fZD6FOkdCD,jzS+Y#;)`=D*t;D**]Vo=]D+y/0^W'0^Qiu#. i3'.2)~$442h3hEe$d7FXoEqXoB!C!Ow9)Q@+,R@I&C.8F9FtCtCO!0e0eM!J.}8]dqcX0]BX0:6O.:6h3z7*{<6}6d5m)R!=,D%D%D%<dW.[s}=0Fi'uzuz`.G%>A;A{#;Amp$+Yd-*'{C$C$&9[#&9C$C-E$E$I7E$E$E$^+/vaFbFcFjEdFmueF+FAtfFBt4sgFpEhFFr'EiF=F]CVnUnGm0s3{q]3{Hmo1)~w33{=[q]=[:(:(n#:(q]=[q]=7n#v+ &u+z]A]9(u+Dc[~u+[~N)u+o#v+k+p+m+k+p+|*q#m+m+m+2*2*p+v+v+q+u+n#",
"+ @ $ @ @ & u,* D+`$`${$- &&&&=&*tjFkFlFmFnFyEnyoFpFqFrFsFe/tFuFwwvFd/X_)@$o[cwFWy-!-!;!J4FxN]T,Yl.rO]@)#)@)) bqsjVB.)xFU'mn^.yFKzzFmlwAjbAFPCOCVkBFWha T,j>j>=!l(,@Y#Y#5&A*A*A*W=A*W=#%v=i/#%Q7v=s}i(Q7v=.0I x~y~Y#<@R{R+2%U 2%n>V V @u5%5%5%ezezA~A~5E$uv!v!N~=.=.;.)$)$;.;.,.~$d%d%>-l&~-~-n&4tCFDFEFFFGFMEHFIFJFKFLFMF,sNFn<ecn<B,OF<)_odCq!S+S+S+|;Z=%y6^#${msmJ0J0{mJ0xqL~KjN~N~:m2)x;qD>fDe8lG/LA!'7F)D)DxB949)mzE}+,+,U8R@T@tCtCK&ya$E$E]d$E]dx7qcV0X0v9}0h3:6PFx910X/20B7m)*#4]U.D%U.D%QF[s[sZ.i'G%G%uzuz{#{#;A8u9]9]yD%+%+=+C$C$;+;+>+E$P%P%8='+'+'+J7stRFSFTFUFBtVFmAWFXFYF:vZF6s^q`F0k`F*pE:{(doUn>~3{3{3{,~o1byw2l#4mF)v+v+n#v+F)O-F)v+v+Mlv+p+}~v+n#[~z][~n#DcDcDc[~^~v+w+l#p+p+j=m+m+m+m+2*j=j=j=q+j=q+n#u+t+",
"0;$ 0{$ $ Y-u,s_Z-a*F+`$ %c*&&.%N+ G.GxE+G@G4v#G$GSttF%G&G^t&Gww*GK{v~0!0![c[cVyWy;!;!Fxj>j>j>(/b lkJ3lk,oM'S,knR=gy=G~!P=fqOp-G;GabTCwAjb;$R,CiU]BFP]O]O],!y G1Q'D,5&<%<%J J x=~@7~v=Y9R(,&7~,&,&`9,&v=,&$!!^Vey~!&R{z~S+U 2%U n>3%@$3%Z 1@5%5%1@A~A~1@>]z[|'v!F8D~X{;.;.)$;.X{,.P*i@d%i@R*~-b;].>G,GOjgD'G)G!G~G{G]GJdPE^G'secm^WpbpUpUpdCdC:)S+('r!| 1 1 t;t;h.]m>_:kyl:kL~3j|'1)v!2)|'/Gx;/G(G>fGbLA!'iA5'5'`>94t@9)9)<wR@C.8'j-zBw%w%X0J.-yx7t^!b(0Z[_Gza_G:G<Gi:x9i:5_A^PwB7Av4]m);,U.D%U.QF}=YEE%Z.,#G%G%,#{#{#]#yD[Gp39]%9b8di=+=+C$;+||>+E$3#P%Q%8='+Y;]+UF}G`E|G1GOv2G3Gmu+F4G5G;E8s0kJm3dF:{q{qUnUn6,3{,~,~by)~)~)~O-d+!}l#!}h=!}O-!}O-h=l#v+p+o#p+o#}~v+n#[~n#}~n#n#q+^~m#v+v+3*m+p+v+2*2*v+v+v+v+:fn#[~u+A]N)m#",
"0;$ $ $ @ g8Y-= Y-- a*`$.%C1*&L+E#6G8g7G8Goy't9G`9BE^tVt^tA,$;0GLDX_aGv~v~bG[can39&)G1y z z z -@a a lky*NzM'S,gmtstsa~2[T'fqOp-GqmcGdGiyjb2[5AVB0Cc -reGO]&)l}hkwF9!C,0!E $;~@%!J ,&`9}<@b}<Y9fGBE@bSt`9AEN{%!A}1<VePxgGY#3%#$3%D*@$D*V *]2o1@2@2@A~J*eD&.>]v!/2F8D~;.;.)$&0)$'.)$).P*d%]$)2m&l@:$N8hGiGjGkGbtlGmGPEnG:unG^'F>oGYD_:pGbpbpD,dCf{qG[)1 ['N>N>la#=g.g.]mh.:k:kL~[:z[z[|'z[1)/Gx;/G/G,zrG1~!'DqiA7)jAmzB!sG9)8'@|SsKbZ~)zJ!{=HyX@t^J.x<&A]z~btGBauGvG`0wG~yxGj:/z5_fx(y(yyGm);,q$;,50YE50$+E%0F,#'#{#{#K;xD%+yD9]zG%9b8=+=+C$&9C$HkC-'+E$P%4#Q%{*9#J$AG~ABGCG`EAtDGj]@F;Eju;E.ey'EG3dE:FGqpqpGmUnUno1Hm)~d+b,b,b,f=c+c+!}d+!}!}O-c+!}!}O-!}2*o#p+o#o#w+}~v+n#o#}~v+:fw+N)}}v+v+m#o#Q-n#n#[~q+Dcn#[~v+m#9(Z^_~Z^"};
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:34
|
Update of /cvsroot/acdo//acdo/doc/Idea Inicial
In directory usw-pr-cvs1:/tmp/cvs-serv9661/doc/Idea Inicial
Modified Files:
Tag: 2.0
AutoCD Organizer - Idea inicial.doc ideaInicial.tgz
Log Message:
cambio de revisión
***** Bogus filespec: Inicial
***** Bogus filespec: AutoCD
***** Bogus filespec: Organizer
***** Bogus filespec: -
***** Bogus filespec: Idea
--- NEW FILE ---
--- NEW FILE ---
FÔl>Èãk|Û¶¾Ñ7 }³g<É¢Y
À5åó`âø
F|øµâéèB
-ÄlK+Â "b'D,DD:ÄUk¯ Ú $à©! ¡¿EÒ!.AÜÀ~ð×:z^õ@örU²'ì}¹g3ÿVÊ
LÆÉb(Qc<!P*vài¦J T hQ"n`=!ĵa`0Ý(ïç©¢¯ï¼ÿ¤ÿ7Å`°ÃûéÍ¡ï«_<Ý?&ü¤ÿÓ$~Ö £öýBhÇÆL9½
.Z z:MR
bjh bÚiø8}«
<ì÷¼4ÿ¹éUÜÃS*bµzii][TºV#B S ;çfÛrwÏ$;$¿'óجfàþìÒ c¥Ûgë#L\®nñ{×½ºGßW ÚßçfÈê?q*¼LvâÖ#ójý'lLþc,Ô®Úõ>ä·»
|£>cÖ&w R°knãç(ª´¾ÞçQ;ÙÌ$µdÕ¹§Ôw«ãæFýàgN
g¬hIVõ$Nth¦§qÉB;û*·Èytº÷%ïà;É$ÂqzHjóLG¶Û³ 'eeå&îWÌ/¼Ù¹#D³öNÙ^èõqô
÷UY]åmk¼É<qB×4ëĬ93:
8ÉÝï÷+<ZN
7 !×Ödn8_£ÚipMcG×ñÔý&Á®Ftúëtã¹óli k T Ö°I¥xuÉððÚ}1ÛúÙõìÇ´Ò§mç}²6Í!0ÂVSÒ\¨KñÂðÚk¬_xµ©9é_yÛ~2ËÄÃ5¢¢Í _?¾¤qZÙÂÝƪ·g Zg*»õè5æC_å¸ÍÄ¥ëíÇd÷Ül|ñ¡4Æçü½ ûC'jûLï¡Dc¼P¥0Ål0Aßåd4-±ôl:ÏãÃvh¿©üPA°e ¡wee;Ï3N0Þ ¨á«QAªwÝãÝ74×½í½o§VFwó¾iñÙçÒÀËU»*
á r MÎ
)¨u~æa:åÞý}»5ç×\# {%òÚÞR*Yñ¬[&ÌÂNzÃoÒR¡<ÐÐý¾ánÉ1UG*R/vTΩY¥ I©Àl`¨ÝIPlܹXçiëúòÆzmâ8í¶
O½`ÌÏIöήh<Rd è±þ qRLÃÛÚå¿ÆLb1ïVÈY0¯úÎ3¹cü»NÄ(cNäJ· {ùÊGê¨
e¢±²áÚïÉÎXòüßÕ RÎ wsÈK=[ ©ÂNÍÛé?fÂYs?õ
½¿`Gwù Þ©_ ÊØ
ýX,§ó GéRuq,»ÖGØféî;F.Ìò¨²+ų;8ý<ò¼ckTÄC«ó§ØSýï}-í¶±Õáì'¯3çßÉ%kü
ÝGìgíð^]b£ïiÖ¼Ë0:1Q%öVýkÄ+44ïV}<1É 'Dܶ}z°[°à}aaÙö²ª
¨°åÆ»ÂÔ o1íÒ³uÓ»¶·O=ëµ\C[ö_8¹(qBvk òábר~Å4'b¯¥uT85L=(ÿÇý ; ûµÉJÇÛ2Läu-ù}Ûcóa)´uÆnIrÎ<J9çiëÛ=ö^»oÐ|2¯+Ûyey²"]@
Ë(ns-tÎ_©r-Ýøêܤ2àö»N¿·j|%ÃL\lC 8: Ô«l| ¾øû{vtÌ况¸ºH&ñ¢ÝjZoØxù »8Sª°¡oãlçäÍ©ø¢9
{,Jn* `·×X-WÈK¶>¶
G·Î~fK-èMþPò°å 9#ÒV-)|¹æû«NÖèÔßÞ|×åâ éå¼ãN»ÎÎHÄyKEF Mómúà ºuë+^Õ_;}Óôº±Öd¨¾µi^ï«s3W|:ûv_»F2.¾N®$e¾î¬-ðIYÏðÊÐ×a¥HMJ¸²iù
ûÇ»4)ùê5µÌZª+ß !c̱²ö¯÷s÷@¼[zgÏjõho_¨UfzYjÚzÊM[¯w Çõ¿Ú{°ªvmt®EïEé
ô&½Wé½4é½KQ&½tÒ{G¤té EþæÜgï}ιwï{ï»ïýÿßúñdÌdfdf& óòÄ![>!oúø§z¾×^>fW&ìPLª-,¼Uùì¬SncÁunLÊÜ ¾yOÀa8ÁµwR,U
qÞIâ3Wg
¼I?èððÃiãº1{?C
öx>wÄ'òöç[°?"+l¨ÙzL~«Ë·Ñ-äªüÓûßôÚ}¾çRÖY íNõíÕ«ººoøMj=@µwóTÑ
iÄ/ï<M¢¦ÆÍ~'²¯çnù,ÑÐÅ
8,0ZÖc8Ëêg·({"2 f"·ûNå!_RùÜÆîÇ .k¯.&$K»ØæqvÕø øÙìÖw=32v°céFäåßx É{¡
ËI ÷(÷¼©É5¿- ?ë¤fn}ǵº4Ok õÇe7gbGå8\(±0cí#hI¢Æ¾¤ÇÀ¨3 (ÓÁÎqcó^uÔ8'LI¢ÎëUyáÐpÃ)óÅ
1tê
»Þ¸ú(÷¼Ù*6i»<zÜÜ EØ?XrFIvÈ离Röµ( yòà/þ/9úò»¾ÅâcâG7[b`ÑeÞ ß$ç gúòÑÄl¢wîÝE;iÿTwCL^KG5®BÔ¤Dc²*¨Ý¸¸ÕxÕ hØ(¶ùalf½ðñ2^$Ó Ð UÝðWú¸JØlÖÊ}£B,®=ë¶ÈìôÕݶ§7íK(Õ$N¨ìüñqW
xª/ëïÝÍNHõXc¡A ÁîÙ襻lºWY¨ÏÖÂßi]³ÎfNO×
V{qmÆ¥çö'Wê¯ë¢«}Ã1ػۡÅ*÷æcZ/1(Ù^iÌ"·;¾^Qµéve.xÉvéVUI,Ù©â§)¿ãᮥ(;}ÅkK|'!Ëkn\èlt?EÃð¤
©oÜuK#G³ì£L»Q¢T°êa6"O/*'·øí§æ¬H=Ò¼ÌÆßÔ_Ð6m¡H /Ò4d¾°µLW2w6¿:õõ9þÓK·ëDEük 1GUñÞ÷L®þxem«;÷ø8v1>}7 _¨±d×÷
ûM{ÌÓ %Þ7×°ÕiÆ÷fܾ
øÎ:è60×ùv Âf~ÒtnÖÍ̽p_åñQMì^È×ø²s[K«²_33*fúiy;sAý&ÃHòzÜ
A©Zé; ûï /Òá.¶fÿPðze>¡¡ÈIS³Íïg¯8h¢Y<ðÜb0ô°Ø%yLj]§è[z/4võ^\j5=Í1ôâèî¬ïpY¡ÃbÝø*ãÕgÏ:±
ÒÞ3yÓúÆpÙ95ÞM|= 8M@ÛIdFPJàEëîøÄGñ À¥!ÀWQß<²$Üæ
Ð9³6õt|`À~òfY×;gëÄqòÉÂÉuï¶á
ÄÌ
×BÇYßnªGk| p®(ï¨R¾Xó¼Aîúø]·C ï6÷Þ +â-pÄ©
eÞ>\?y'è0B¾È˽GZ½^Gð84]ö2Kx¤°ÕW¸?½«dñ|Ì ì[¹Ìé55Ó I ûÅb¥#sŹ%óE\¦ÓsÂ4^Sî}í G « yfTGcÔÌgc¤(U¾<|ÃòZ5pÛðû ®o¥ ø%ø¼2zB js¡vUì[
S4I_óao\Aî Ûg$ +4¬k_MªZ\«@yÖo{Ï
U{ùWîuκù-Fà ùXDFl?£@».®Þ^£×g/L»ÙþE9x2áyÚ;ì±'e®\ϳ*§=ð.Im ;ón¿rÑÎ×-Ûÿç+¡a±°Oá¹íHýöÁ?ТdC¦þN'õFg'ø\å¸áÞxµ{Ê¡ùbD´QÞZLdBMná¤#!gpeæ§ò2Jô¼q÷§Þx,õ/Ýñ³ï¬WAFþ<wçvu@ ywLäúG¢=ßÇÕ/Wlj7ÓX,
· ÜÙò25qã z× L[6½_Ù$ áÛàMÏÚzs5m3ÛBÈ·ºaUôÌ0íáqϦÝÚìOÐud`Ñ7¤¤LoôØ×ïY-ZZ5`«HåEÊݱQýDvYòÆ\Úç£÷ ò%_9/¾¿Õ|å&8º`*¼â½¸¾_!üCúKXèòaú}îÚ¡xÿ´ ÆÙ[ܾ޵5xlÿÙÁ.ÕôAþsbO!B/§±©ú1l¥dg¡ûÓßwýfS,®eIÒÓÊÍ8¸FæÞP©2ØsÌÙO
yuíx§æ ó³ÓQFcª]¤}ßBbøéÇOJwïxÉR ÿJfÉ;[ÌòÃ${÷:&)z3¬*ßÌÛÇÚ¼GDvcµ[§óáhÒç bKt.âÞkw~ú=æEo+j¡ÓäÞ8×>¼WÔÃ~-Däí´ÔO¿°"}rG½PÖÈ\Öæt÷þç̱Ot
·ç8¤[ñMz:ã®7ìkº¸´aqeö{s䯼/&÷>´}Dâ¢YT¨0
¤Ë;Ý·×kü|Vt´û^°þ48Jeàq%þ>óõ%·\¾í±~<^ÖóctÜ_mMY4£3CB·Ö¥Ì¨@zû¢d) éò£îEn£0lÊÕݱÎA=¡Lá:ªgØ
ö°®ý iQò³oáÉÛy
éÝzÜ:¶ù~â.Gûx·yÇ.|.Ñssä,KþS'¾ ¬å²âÒÀiÓbÕ µ7[ç
;Q>h°Q§
sË×¾ÅÙÆB2»øD7Rl¥ZÿÄÏwJ<f (>NÓÀøia pwÿv$ûÈôýò[ÈþÁ;% q3Ç^OZ´âB¼Â¬a÷uFðÙ¾`Ù+X¢þpF%ÅÎC§IÏÐáõ| E º@g¢z¦6¶4w ÷k<ååÆì¯bÛô täYÂGoÏM]àÿú,_Té
ñ]ÒÔA%ü±'Ùp{·ðTºÎv[*Å£ÀIÑ8í7?V0Õ"_"üôDr±Ó|»µ;&3©ÔHêÁ+E>¾|NÄÖAÏÄ×>ÄUë«r!ÉjZ >X:9(j(fÿ0ÿcÒeVz}ÄoNªó²~ÜÏ϶ÂQh'#YôÎÍóbo|ÛÀ.iJ²Yûþÿbun¬ëã3~ôôí¾]Ààtë;]æÉîï9ߪ&ã÷WÞ¤ P^x(F°QÎËÐþ{TËÏcPZ"X
#lËZgí=U[Ê(\_Û¤yAͧÿQp}ÐÉ2ælnvôõN"Ò« ?ñ>Ü` ¦ RMc"
Çãâ¼4Ô°Ù\ú
Iæâ©Å
K j=q=/Äî¹.o&Vqf®>¼^kA^C ð¨§P|Ü·"ê|? íÿ-Â0Y:` Í Ï/Ãf ¸µ> ââwÓIi6GÒwæ
¡µ-8]hÏbGQlvõ
¯Ø4ç¬c÷vx´^ÃLâ
ÝÚ4ö¯ä
HÜ?Õ 9å
®üdz}}¤Æv¦D wì5ÿp¢;ÖIøæw²gQþ61=ÜDtcBðñ=§Ï6÷0%_
¥j ¾},ûΪ4³ên×{2û
ÐKÑ(æä·rmß©Wq.¢U Óc*HcãrEÂó:\ÆÝ v£$\[)-þöÀÛ×èðíÏ"ü;KÞ£ ÊW÷¹ÅÇ×CGÁ'íÄ-?vc¥ÞôôÛëÊÄþÉ$y
ý¨¬iÇZ\k1ä®;çð\ÁK^Cfe=ؼÂbeO&¥Ê
>dpM_¼Í²7þ}q-Ó«e´ÔbæGâW¢· "æÓö}|{6»³ÐZå
5æ[âÒ*é6fï î;øåvÁä ÈÉ©ÓbßÂH¯ ^ê/w¬W
E¢
÷¼¥ \ëx8C;# rp.T6Ý{«Ï?£2eÃeô9!;¹EWZ°û RFS2ÜK¹"²}_®v¯ùEþèËBÕpÛ{_< zÉÚ«ñÑ"¿¸!+¾B$JåèJùÏÁÅ_â»°i®|,À¦3 ã ]_ Ùnúmöþl߸)X'Ó2 Ñ RM×:m¼vÕZ£µñ ÃM}ÏÏ{$
'o5,ºb6®]1ðjx$ùÊÞc w¹q9+Æ
Âw ½
ÅH¸Úűn/7smÁ?¢¡÷ÎÓ»ìaÓQW©
@hóºFLè=8ÚµÅßVjpñé]$[¤Íÿdû<ôÊÝå
éÒe9] â»ùÂqôlþ===Þ'CòOóµ+7Võlåî¬f8Ū^_ {ÐzKÙÊ\?¾v¿-J|¿`c´EÉËÌÛ ei©¨]ªÑ?¹}ÀY×´Lô=¬ª«;ÈðàþõM"¿ìÅ®
>µ.
5eZöÑn»Ï(u$ÓòýÔ¬cGÊm¼w"kÜ¥ó-ÖÖeêsKõ¨xwí·6ÈïÁ%¨¨%d°ó÷XÕÁç
kÐE
ªØɹ# ö¦þø
JÙè]§¨®¡È÷áv)µÎ¤« }AG¼d2§ÞÞ¹K·fÿÒH|ÛÃ
ßî6ª Jv öA~è jÕÃFæñ
NïKnc¬ ü{Qj·¸Án4k½C7É{É[7_^M Ei·ÒK&FÚdùz4~[÷Ú?¬N¼òJ7ðÑ`ªa(fqëeá>AÏMÓÛ"°pÚáºJü9#$¥r«7Ð;6½aÌùãĨ˺·xÄÌïºEϹ<B¤X¶©Q ~dÝç×Ç·9öÕñËö'ËϸïÞuë/ö\]Np~t _§ù¡õ²·fÞ³ å"JÚ_ßµ¯¥ÇÆK(Æ)Ð ^d¼<§y
ÙKz¶sví :J=}~ûk#M¦Ùý!] àûÄtrHÜï9üJ÷í Ëd m)® UZþ#ÿ85Ø
4=»üüBÃʲÝ<ò`î$þrz+Ýò´½6Ê$ìü
MÂ/ ï38û`=0K
Õ£=½¬ÏU3ß< 3Ó ÃBF6Ç cÞܯÌåV?ö:JبÅ:}©½P¸¾¼e¿|ÍA/Ò¥Ü~/yú
{H±VVï Ãy¾Û&
1'ëï¼w¿Î|C1C$·TcYETÐû-Ò¿.ï`ùòöå¼Ãá³=<-fk[²i)Ȧ³ Äx²94{´Kè°±uߺâÌÂÇ5ü¾ÈáMóM 6znTjCÓè
ê,ªðE
d¶'jrX&
mhº£>c
OxLD<i|)$ÜïoB¾èÍ1kÓ¨¼g]ÁæÔ´ïúT§WðQÃV[ѤWqmÏÞñ³yBÕ¸¶÷Rêø(iw°çÚýïXÚtðzi àu%
[ÕZ~ÇêÝÆðIÖ' ÖÚô<5ÝÈ-äÒXÌlèýI¨$ :OvóT©8ä1~ßö~õp
ZU»³wRy°xeìrý3<ëzÜ^ç ÓÊuj©0R¯*Ú4¾ã¦udöGª_¹¶q³®¼º²!ÕFôîC
ü]¤F°ÇðÛ5Rì ðÜ"1ò[k;ÙKÁ[r ôøq
+úb©µ öh wSµß^BMqQíá×"1²þr¹7¾
ÎHUTU\Æ·÷n8OÌ_@îWñé. Ñå²P
a<>®ß·h¸~oo0åx®Æèõ ºcºÞÈg"31;÷X9kV¥#ñ]¤R) J ¶{KöKÑÌÃÕ%e$ÇeESBón
× í(^î¦Äï·}p8ÕÒ³Ä8®À.û.ã£%u@Öbln©BÍÉìãÍ}=<öÕÅV;óÂG£ÒìÇ.ü¨¨ÿ¸ÿÅYì
ªDû# Gëå:u^=:d!2F#=- d2
óöýÖhO¹émlÖ£wGÿÛh¤¨ÉÇ97KoÍ ~?Û|¯t;ÌÇè;¯
grD'£ùl¤Éì/+M ¦2±$7ÇboLìÔÕøþt[4ïh0t?jW:Ø)4²öÞKiøÆ×K®ÿºiú!ðÉ £âðÑØäDÏæ&0Ç1Ë Ëat§©ùêFMË6ýÏQaxÂ;o"O~¬c
J]VÐa4íuùìÍEZý$6óÌׯcÆb&}¦2*rgkI& LVé÷f¸3ÆËÑH4«òçù[nØáp
NK/+EÖ÷ §½³300õ«krTøèÈpú:¤"&&é}[{÷
F2Ü
Èòw?}Öó¥»dçúñ GÝKSÆQá®-Ï)
ZO ®+l1ï~öòèÍtOÿê+mgUa]ñáÈì·Î.ÉJW·ÌmäÃ9Ï«º³Ó)PÒß/~àuëøRÁ¢´jÜÈ<Õë
&¥Û<d`ÙE®Jø9zb!û;.8SóYê\;³ÊªOìËÖ½ÛåVö±E</ns´ë.ôápr·Þeëå[V¿sáq;;De¹JË*|bS£qH¹ÅÎèñF±ó)ýîBXI
vÑ]vE÷|×â¦Þ[÷ºU³03v0'ÚÄäîù9ïwöªôë
=×qÙl®±÷½'}¦Þó^(¥¨ .koôyÌ´röb¿¬ó@ß"HG ë%ÇMBëfÊT½îqÛh{9¢,3Ìññî}ÝoÃvÔØ3ñwbü±vÅ|.OY J«gÞigggà
ÝåÉ
è,¯ñ^Sö, ;ÁÒ¬Fë«¢\¯ÉB%8zLs^
ÏlÿqpÖï..þ(£Â%>©KÍ;¡¹
°Liñ@±# ÓýxªÀ½ê»¬"@ Tjãò±òÕºÕQ1_ãóìd-cÇT $ÉÞà Z«<,rÊj°sËWTT¡ûÙW¾ý~3çD&¼/²#Z°ä²GB#EVükÙÜ:ÅçsåïïHV1åÙåàÆbêêùÚÍå²ìoWA°Å«$Nç<[®Ø¢k)P)±B2ÉBµ´ú¯ÆÚ6'n?e©Pg4óì¹êÕS£)ym'OgÙÖü̳o¬IO«ò&]43°Öd^»ÌŧØjûzlE7)jëûȦ]sµ½ÚêgY|6b¨Õ¸ÎzùÍóô &U]Ç\â%f8$?}ê¹³ x¹ÅÚ£â{EjÀ$|yUncAnn¨ÝÎÓóg iªLmª ·ùe?U2O,½zùø³røâøåäR¶Z¢#Å MãVürâ¸e
°yt·²ÊW
ÙjÝÑè'3 >²N,0Tdª7"o»]tV¿ÚR@Íæy)¶>O1ÓVñV*xkÄo£>I¸ÜÞѨøROÙ´è)ܨÎ+ÓÓÚÊr¯èƪTMUÕ#Ê×Æá9®OËXäÝùåý¸¶ZpÞYiåå½è!ª¨úhÕîã§3ÉôÍ;©Êî
ðl`3à°
7P¼gÚöb1 îÀéñ@2
4;· 9ÚQí
R'HÏ
9?vàoê_-táüìÔsÅù¾ÐAçaÐ^о·@o`À¤ úAZ Ú $IA
H4hZüsÑNu~&Úàß
ý ¢%n)ò¹hÐxC¢iC%
Ø¢4@:=íÏûV}@ìãOûCûÓþÍö¼·CõA2ᬰG´ûLèn£ù¹åßp^øÿ8ºä¬ÐXçÿÑËVþý¬¶"ONrÁê¿Åúµ¶ó>
üÿZ~Þãµü!Ê9ÁÁú
iÓ;/ öüèSÿåw
ýg|®Ó§3Hæ`( ô6}Ò .OýgÏ,*0îY¢àÓx® ]=;A¿%°uçì©#ñOºfõj ò3ýCÿR ©ÿ¡ôC äCÛ ¬-ãó)BH *ÚÅóTcÐgyz
c°sAÈñG9NDüÿqhM I"ð¯°ÿj°P÷µ2¨s¢¢`ÆÖ Ùîà/þ»¤g±Îº2ø¯íw~¨)IGàpT$d8rÿ Ù»
lOg©Àß äG¨|mO
*Õò|Àª(¥Aý¿¨
ö
¹§3T¥ù
?
å=üÑÖæ 콨díLX
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:34
|
Update of /cvsroot/acdo//acdo/doc/presentaciones
In directory usw-pr-cvs1:/tmp/cvs-serv9661/doc/presentaciones
Modified Files:
Tag: 2.0
Tildure - ACDO - presentación producto - v1.0.zip
Log Message:
cambio de revisión
***** Bogus filespec: Tildure
***** Bogus filespec: -
***** Bogus filespec: ACDO
***** Bogus filespec: -
***** Bogus filespec: presentación
***** Bogus filespec: producto
***** Bogus filespec: -
--- NEW FILE ---
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:34
|
Update of /cvsroot/acdo//acdo/doc/Análisis/viejos
In directory usw-pr-cvs1:/tmp/cvs-serv9661/doc/Análisis/viejos
Modified Files:
Tag: 2.0
ACDO_An lisis(T¡tulo)_1.doc
Log Message:
cambio de revisión
--- NEW FILE ---
ÐÏࡱá
mH
Dt»ÝÛ
6¯S§36åéDÄ9àL &Ó³ Ýäç)¯
I¨>3Erþ¾H5L.w<YQoÙlÖëõKbÄ.g¨§wÕð¼+ A$¨ÈíWÃ]
¾_ ¶aÃ~ì³
9l(d
q
| ½§P²'@d
@aè;uí5
©ö~«
hºr"¥EÐsH5Lr¥,B!H¥R©TÊêQ7cf¥G¤½
k<Jrc·¡µE÷éën¨pV!Ær`Æ(#Ð2\¸¦²
Äx««ÏÙRK¤0OÄKV ³Ì°®P
è9ãÌó&ÑGD
§tu§QȪ;°øuSO]<¡ >VpÎd ²ìEÇMñ~& Êú5½0CÙ|Ð}гví± /qJ ¤uÆyEªa
"ÉäL&cÛJoe>ýÆyG¢ y=
ÐG]Bè'.Z*?ï ð 6Ü1F ÓieÝÅ+8äÉnG¡w}ü
8iqS5®la 3,ï
tte»z½<UlMAÅ
ô¯^¦}zaæÞ JVÒU#RïOÓëÂeÄ1,¼ B¼'2¦N@ £ëê÷Å/o± SDÿ!¿në>7ºYfùb§¡xîA½.!@×H ÍïÑA$(dè®®\1Ã:Èk»ê£1f&$ʸ©æáo.ÍNØ Tª½º~ 2ËÆ
üî9÷páø#±Èð½áäwë7}R=Ëí<¬UÚ¬ÿõNWW¸ÑY4¥à¶Æ-¾óV'×îßQ²S²ÉpUúÌ-M$éÚk2Ъê忯rVVÅt 9`4ÎCigyó'^xgóI
"¡g ½M~²|ùáQß[Æ àà3Õýbã~Öµ®pç½ÜènR*%ÒÈ >¢Ì°-Û{#~5nrÀbªàà"Èe²&
"éZ{¨óÿqÞ;cæÿ){/mLBe®íÜ0´ðSCCW]ñÙÒs·¶Ç¹Pµ¨ö ¿JTÜÐ÷vülD{ÅwÎ
ít×Âÿkè
mkA#ë
â¼(¥WG3KÛÛ
Cï ?ÑÛõK*Û®^½Æë¹çí·Ñmho
"S(®RÎ:ë)_Èãv綶²ý}gô
B!Ýä)CTÆ»[Å«o?#ëÆâPÞÁSÉ Û±µu5¦¸àyÁDBð°þs8ô tX¬Zµúò~DUg÷ú yôq!´Ð3¦".B!ò$Fì"Yú7ØJ¸Ü^ùܺwüfçQ_µí»©®ÞDq4¸¥Ø¶ÐHO&8éúkß³xA]箵Ñè`oÇÞ¾Qâä`N!lfËîÓù~
ºêl»Mð¢.i^ô`ózdcv3 ÉÎIÞäéd|¸Á?~¿{&0Äý%¢ð¥ p >~º¿ëAÉí]sãÍ7ßw«
°Q×Ff«J`lRØE,ä¢ÚýÌ
S"ÙÌÃ^Øöø w{E²Y -QÒ
Þ`óy-KÖ¸ÝùhÇM{'ëP/«ú óÔh,ëËG7Í4â^ÙÇOÚöBè$tC{í`ø
8ůÃ$V6ïÿàW?üh»Í2@ö#àFø¯\Q¶q
ù0©0±£wÑ-Z]èÔ°ôä3GÄcÍÈ)¿úVttÅ 5¥Ñ{3©¶êÌ° {üm
kÒó]{IöÝøåoFçΣ¨À@öËC:#F:;û+ô©
¨<XÃ6N¹º
-hº÷¥
cAÇ×QATZèÖ/
¾?\ðÈ#»àÜ3çötíwAƯ,ôQJ Ö^Ô#/qðCWß(ÇymWãÞ¥¨·-Ü!x¿®µ ~
ÙÙåBd¨X7ÿ½cÒL¨Õ«è
8FôîÞBT©
®J^B³ôÄE'LoÊú¢Kã´ô«¿£Ë[6Ym¬CtýúN8ÔsÛò®B@[vq4µÐ
½Cð
Î=±TáQnxYÁ[^pª ç}$sp·¾+Å1¢wgw(7¶ð¶a2E Å[]YK.MÙNåÕß:ì¬VO b¡á=OÛ§ov¡$ÈÆm çýÞAX³öê
S
ã§)È·%ÓØ8ï'!&ÕR¢+Bå8>4Õ¿ð²Kíи¦,RqÆq®5$ ¢a]]êí
W\[±æ¼S¾û¯Ï_°ÜúassË~ü\øôôù9/¤ n ¥Â]óAÁû
E Õ£ØÆÔINþ=Éj²¥¹ZLzÌo»
E U¢ljÝT*;& 3|ø0
$sÃ-È<Âõݺ¶U×Zeþ¹+Vú±O|ñد´KqtéÝÈ0Z¬¼·OÓXZ
n0°¼gÕwS©äpLzL&UHá.îf·gä.å9H¹jÕ](\CÅiÅ8Ì°¼+ é¡°-C ópÒå¢ú=}~Íð˦ÄK]Uåâr·é$ïã|?AúsשÊK !¢*´ Ò^Ѷq¾OAß
§
é1æ ¿²8`b2ïàD%
ÍÍÍï{ÿÕK¬X¸ðø¹Íó¬Ac²õë¤qR)ë$Ä;RjfA¼úÅX úïÙÃOze{]Ãèúù¯ÆFÇ*~*:ÆÒc-ZdµA̹ÑóËw$
q8r`Éò¦ù×JM ˤǼ¶«QH Bÿäý}}ó/oidi4
j[òɹçîñ©->é\74³õ+Þ¶råR+Q":)Ö¾Ãà2¶8âð¨ï¿67ª¬È9ÚgéW¿Èê|*Ôñc]o¿â²¥ÖÁ¨\·iùþ
wÞ
<ö4wLG"`Ñ!Tè ÇX5¯À ÎÝÔêGÙN¨jôÓ R*ïùT3<Q°nÜ®R:dS
®dl X¶l$ÒGõ1£[<'_2
Å¹Þ VÔETluN@ Òõ×µð²UHssË#<avuħ>¾bã9u'y¿*V)ê2dbût Uäa=ò¼ù³TÚ¢üü¾'dÈà
·vöÄy¢.ò+ ÇÉCDàF®mÕ"OËÁÚ ÖÝy×ÝÀ>?Ñl ç{3ãlÀT÷k¯ 1rÁúuÓR
Î=ñ_¿óůÞza¼Íùþ±K
®RŨÌFT¢` äÆ`ilÇ9zW_×Cý]Ê
ݱýåÇ þwÉjÇS__ïõz}>ßïollljjjjj1cªªMMM@@QÏÇ«¯¯÷x<üv¿ºÞ`QàÞDbÈp¥³öL½ÂYÙÔ³Ïn $Ñ_
_DssË>ü#)}õå§ÿð»ûM#\Ò1f¥·ªªÛÞ~¿ß¤·©áa¼ÝÞ¹\Τw*J$DÂR:«kïn
5ÔàD<¶éO¾Ñþ¢Ém·Û]_____ßÐÐÐÐÐ (J &½@cc£Ïçóù|^¯×¤w]] §÷ØÚ[~$nuÓÉ3½d*Ù?ÊóyßU#y
5 1ÉøÎ7Z_íùL:%íjSu#¢4¹½^¯$°ü×ãñÈ¿ÊE¸u.Ç´-Å <çÖ¨¹÷x<õõÈ<±ÑÑCûzû
qLg²¹Ü_f¡k
5ü"ËfÒétR$¹H®2É5Ddfã!©ne¸¹Ø2ékÎô¶joÞ^¯7N3ÆZæÏ
46Äb1Î9ç<L&Ét:N§H.Ýs¹\5{ Ý÷4UÀÕPÃ_*x³MÈ &×LUjZæ±"l ¯Òn§·ËåÊçóVn[´w½×ëee2L&#ËåäYò`ù¹\½®x½5n×ðîCeÛ2ÏÌTÎÌ>¯ÁIoi¢ÚÛd¸ãÑvIsí
\^[~nã¶Õ©.õ¶ôºÕè]C
QÞÖ¨é?·ùÕ$ÃQ±jc¦
2
ð
ð
ð
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:59:33
|
Update of /cvsroot/acdo//acdo/doc
In directory usw-pr-cvs1:/tmp/cvs-serv9661/doc
Modified Files:
Tag: 2.0
plantilla ficha.doc
Log Message:
cambio de revisión
***** Bogus filespec: plantilla
--- NEW FILE ---
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:35:22
|
Update of /cvsroot/acdo//acdo/src
In directory usw-pr-cvs1:/tmp/cvs-serv5523
Modified Files:
Tag: 2.0
COPYING autocdorganizer.glade
Log Message:
cambio de revisión
--- NEW FILE ---
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
675 Mass Ave, Cambridge, MA 02139, USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19yy name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
<signature of Ty Coon>, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Library General
Public License instead of this License.
--- NEW FILE ---
<?xml version="1.0"?>
<GTK-Interface>
<project>
<name>autocdorganizer</name>
<program_name>autocdorganizer</program_name>
<directory></directory>
<source_directory>gui</source_directory>
<pixmaps_directory>pixmaps</pixmaps_directory>
<language>Ada 95</language>
<gnome_support>False</gnome_support>
<gettext_support>True</gettext_support>
</project>
<widget>
<class>GtkWindow</class>
<name>preferencias</name>
<width>400</width>
<height>255</height>
[...1498 lines suppressed...]
<name>cerrar</name>
<x>3</x>
<y>2</y>
<width>72</width>
<height>32</height>
<can_focus>True</can_focus>
<signal>
<name>clicked</name>
<handler>on_cerrar_clicked</handler>
<last_modification_time>Sat, 05 May 2001 21:41:05 GMT</last_modification_time>
</signal>
<label>Cerrar</label>
<relief>GTK_RELIEF_NORMAL</relief>
</widget>
</widget>
</widget>
</widget>
</widget>
</GTK-Interface>
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:34:51
|
Update of /cvsroot/acdo//acdo/install/instalar-acdo/src
In directory usw-pr-cvs1:/tmp/cvs-serv5423
Modified Files:
Tag: 2.0
acdo.xpm callbacks_instalar_acdo.ads instalar_acdo.adb
instalar_acdo_intl.adb instalar_acdo_intl.ads
ventana_pkg-callbacks.adb ventana_pkg-callbacks.ads
ventana_pkg.adb ventana_pkg.ads
Log Message:
cambio de revisión
--- NEW FILE ---
/* XPM */
static char * acdo_xpm[] = {
"350 100 6603 2",
" c None",
". c #DFC1CE",
"+ c #E6C5CE",
"@ c #E6C4CE",
"# c #ECCBD5",
"$ c #E6C7CE",
"% c #ECCDD5",
"& c #E5C7CF",
"* c #ECC6CF",
"= c #E5C3C8",
"- c #E5BFC9",
"; c #E5BCC2",
"> c #E5BCC3",
", c #E4B8C3",
"' c #EBBBC3",
") c #E4BACA",
[...6667 lines suppressed...]
"yxkwzxn,Ax3~$&D+D+c0o*D4D4je!ae0L9BxN'0m=3w=CxDxv=W=A_G3a!#o} } agag[ [ [ E,C *!*)G1G1&)ExFxFxYlO]6>b /%F=S,k8Gx}/w*.)i6P=HxN=~%J=mrqs<t0v$r]xIxT#*@&e'jx y A G1fk=)B,)@Jx$!y=x=]@`#KxLxL H#^ x0h*7~h*`9MxNx`_.<.5OxO{PxZ#@uF*Bw$$BwN|QxRxq{q{@w4~HiSxTxUxVxWxXxYxZx`x$' ya%Iog@~$~4g7-5G0G0=bG0.y+y+_@nd9e;@y#y()-m(:J}h7$y2.z@<h]w3.3.!50x};('< |41 `=R+%y%y#q7^t;h.M}a-a-0^)9z+/2N~I6|'&y&ys%>=yrNsN@wv+vwv:w0$x.0$yvx.R@y.C.Ssnt*yV@=yW@-y-yY@K.;y>yL.P:}8,y'y)y!y~y{y]yH<^y[6/yd5(yixAv<dixz9Wwn4_y:y<y<y5wZw[y}y|yy21y2y3y4y5y6yew7yL%T;|#ejs4I7s4=a=a&7=am1wgg]Em8y >9y0yG-i]t2q266ay2+2+eheh1+1+1+o51{,~by)~)~Hmcybyby4mv+O-d+b,O-O-:(=7t]f,v+=7p+2*2*k+m+R$h+k#k#h+k#g+i+j+i+r5j+m+l+p+o#v+Dcu+dym#:f:fo#w+eyasw+ie",
"zxkw+&mo#&_0)9u,u,c0H27bwfw,!a!aRaL9]/4g#%fy[<S(~@A*P5Q{[;#3S+} f6[ G4[ Y#]aC *!=!am6!-!v|6!6!g{J3J36>a F=@)mkU]k{gyhyn{{!Hxiy{;jykyp #@r .@ @lyH2^&&e0 &hy >!//L]=)Z#B,myG ~@~@J A,A,x=x0#%7~7~nyZ9oypyNxd{1<`#P{P{VeqyS+@uF*@uBwb!dvdvc!Rx4@I_4~rysyDwtyuyvywyxyZxi&k&!$z+23;.;.~4*bfa''''=b=b-b.yG}!2<$yyzyxd{'$_Ay`5By,5_4z@$y3.Cy3.[3{2};('('[)S ;)F*DyDy3&#$#$t;g.a-J0W'0^>]1)u#d^'.&y2)x;zqs.t.t.t.:wxvt.xvx.0$Q@<rR@S@S@j-ntc(NeEyG.X@X@J.FyFyGyW0X0zaHyIyCaJyno~bKyfx1wK<c5(yLy;,Av<dMyNyT!BvDvDv:yOy,vZwZwYwYw`wPyQyy26y5y;*T;D$7o<b;+;+s4n2&7n2n2&7&7Kam1!(h10#ycgw+c$>E9Ry66o2l5f#2+#x1+n51+_*w41{,~,~Hm4m3{q]4m4m3{l#l#O-c+O-v+n#:(v+h==[t]n#2*v+p+n+i+i+i+i+g+f+i+f+j+i+k+p#m+w+w+2*v+o#Dcs+s+n#n#v+}~}~:f>an#",
"Syn,Ty#&:ix#Y-u,s_H2H2H2!akew,Ra7dL9@!9mUy[<[<] J B*P5Q{W,9&} S+[ [ S+E1Y#C V,VyWyWy-!7!Xyv|-!g{6>6>[[=;O2h>h>U]Bi&@Yy!!b~Zy`yF6 z&r.z.s+zH=h u V:Y+b b (/>!>!hk>@=)C,@z#z$z~@KxH 7~H ,&}<@bZ9Z9%zZ9#27~_e]@P{P{.w.w:%T R+V 3%@udv&zdvb!` c! .@qc!*z*z1o=z-z2x;z>z$' y!$c@!$)$;.X{Y(*b*bfa_hq_3cud.yb9nmq@zyzy:-2$<.Ay`51.1.2.y@3.3.y@{2[3};(':)S+S+S+urY,;@3&3&t;t;x[a-|3;_;_0^Qib-ymv!i@]$~$,z'zy&Os8$Bq8$O@v.b$z.z.z.5hS@S@SsS@nt)z!z~z{zX@;yH.t^H.x<]z~b_0_0^zCae2/z(zJ<58581wAv4]S.U.T.;,MyBv_zBvU!>#~,:z<z~,<z[z}z}z4y x1y|z1z2zD$:#D$C$;+||n2n2n2&7dhn2KaZdm1N$56]+gwgw_+O$<+Ry66u3u32+f#1+1+f#u2_*1{,~6,3{3{3{=[3zq]3{3{O-O-e,O-w3f,f,:(q]3+Mml#m#r+ &w+l+j+r5j+l+j+k+j+n+m+m+m+p+w+w+o#w+v+n#A]k_dyn#eyt+[~t+m#Z^_~",
"o,4z@ #&#&)9& g8E35zH27b!aw,!aRaI]I]Lr) #%,t6zi/w~B*a!P+W,.$[ } [ :%:%Y#D h|=)*!Wy$nv|7z7zv0-!g{V#b v5!hh>h>k88zU]ts_;9z(ajbll]/!;eq}pnr0zazS'@lbzczAglkO]VlEx'<(xdzC,M{wwK('^K]Nx5959@b@bR(`9`9x0#%1>w~x=]@@8Ve:@:@S ;)R+V F*Y,dvAwBwBwZ q>c!OuZ ezr> lfzfz=z9*$.a%)$!$!$}:;.G8~4gz*bfafa''=b3c1^F~*s_.<$athzov3^<.`5v@1.iz1.z@3.,8I0[3m;C*[)('S+jzY#kzkzlz3&3&})h.|3>_;_;_0^f&0^z[|''.~$DeDe~$x;AqBqBqUjt%Ujt%Zomzkt;q9)[wnz22Z~H!)zi%,dy+s9S/ozs9ncncncZ[pz<0qz.9rz48szJ<y9Pw&#*#S.l)U.T.<df'BvtzWw>#Z.U!~,4w8uuz@+7wvzwzxz4=z$Z.%+D$D$<b;+&9r4yzn2&7&7n2&7Ka/{/{a__+0#zzAzErS^<+66[+u3Bz1+2+1+o5o5_*m]o1b#,~3{0sq]r]r]Cz3{3{b,d+w3l#f,f,:(q]:(!}O-n# &n#n# &p+l+l+l+w+n+w+n+w+w+3*o#v+}~Bc[~n#Dcn#t+9(k__~N)0(_~_~_~_~N)",
"Dz.&u#D+@ & '/4}:[H2H2D4Ezje'aL'[>M'@!) ,&.:fs7~A,B*%%P+: P+} R+R+:%[gD D =)V,(x=!$n7z7!Fz-!Gzoj6>J3v5S]S]Hz)hU]}/IzR,n{M3jbJz`]KzLzMznrfqP=!!tsk{@)NzlkOzXl/p(p(x9!0!K{PzQzVcRzK]R(`9Sz`9i/#%u{H#u{u{~@J B*P+.n:@9&R+89S *:F*Y,dvY,BwAwq>c!2@{m` ` NuTz7@3~Uz4;Vzf!. . )$;.X{d@Y(Y(*b-5A>G03c])B>R*b9_.q&WzBsxbC><.Cev@|.v@2.x@x@,8qmm;m;[)('%l('jzXzurYz3&Zz`zt;#$|3y/y/hbf&0^z+. '.']24De;-:$DeX5 ABqDq[mZ>Xi9)9)Ow;qlt;q.A+AZ~Z~J!@A#A$A%AW8S/S/&A*A&AV0X0v^=A4848.958*{$#-A&#R!*#R!T.4]<df'Bv<|Ww4wU!~,'#}s`.`.;A>A{#,A'A)A!A-*H%|#C$;+||<#X<n2n2s4`f=aKaf]!( [N$_+S%~A3s_{{A<+U%[+|+[+2+e#e#o5ygm]m]b#,~[{,~0sr]=[]A3{^AN-O-l#w3:(:(Rhq]:(t]q]n#t]u1n#t+Z^n#l#w+l+o#p+l#o#v+v+o#o#ieo#/A>an#n#[~z]Z^p1p_m_N)N)9(i_9(t+",
"+ u#.&@ 0{g8& B1u,7bH2H2D4w,jeI]~af|M'(A_A:A@:] w~]@( _ C*_ | R+[ [gR+<AD =)P'(x=!WyUrW9UrFzi>M2R7N2~9S]S])h)h.m[A}A|AX:<!1AJz2AFgpe3A4Afq_j5A6A7A#)vu8AR_9AT_!/0AmdaAL5bA.<'^j(%!~@~@v=v=7~#%#%v=^ / Q{X=X=9&_ m>R [ %m[ 3%F*Y,b!BwBwdv3@3@2@Y 1@` e&cA7@;$#-dA=.8%e@)$X{&0;.'2;.Y5*b*bG0''G01^;b*sR*q&eAfAzj:-3^:-v@|.2.|.|.x@3.egZ*gAm;[):)%l('S+jza&hA1bJ~J~D*J~y/y/y/f&f&z+|:z+!$;-Q}k@;-;-]$$dTjCqDq9jiAjA(.5'Y$kgQskA`~L[lANd>j~z>jkcs9_@t^x7x7!b!bzaX0X0}0 9*{P!O.30_=%#%#S.R!AvD%;,<df':|WwWwDv5]7u'#Kl,#`.]#,A{#y$y$$+%+H%-*C$di&9;+W<;+&7n2n2=an2=a/{Laa_ [S%mAnAoA_+S^_+[+|+2+|+3+e#1+yge#*[m]b#6,[{,~3{0sI90s]A,~f,w3f,:(:(:(q]q]t]h_t]-[-[N)Z^t+t+r+u+>ao#o#ie}~:ft+n#>a>a[~6lt+9(][9(j_k_j_^~_~r+[~n#n#u+u+[~",
"0;}:0{A+C]C3C3s5s5H2H27bUh<> ;e0L'bs) g*pAqAy0] ]@K ( 8f: $r!R+Y#[g:%D D =)=)Q'$n$n7!UrUr7z5!M2O]h6rAS]+rJg</sAtA|!Y73/n8uA(j:7vA.'3gwABj{!m{}AxAVkP]i}yAzAAAH{BACAt~v~L{J ~@J I ~@W=,&v=i(/ ^ / M N'B*X=X=Q{9&m> $89<@R+U 2%@uY,BwZ,S{@qc!1@Y Z e&A~DA3;;$&.EAF8a9X{FA=8)4~4Y5Y5Y(*bfa{)A>0;G0])GA^.U*HAIApv:-:-j%v@w@|.2.izx@t&egI0m;m;[)[)[)jzjzf{hAhAxi3&J~7^*]=]y/4>:iA/O*)_JA`(KAn@S*k@S*:$4:R}LAZ-!'Xo,bQfQst@e;.|MANA:]OA%e,d.{[]X0X@J.I.x7]dx<!by7O!0ew^O.O.*{O.30_dV&%#=,R!*#U.U.D%MykxWwg'5]PA~,,#Kl8u,#{#@+!,y$%+QA%9'{%9<#G7r4r4f1f1n2n2&7z)`f^{=af]Xs_+b=RASANv_+_+c#[+Yb|+2+Bze#_*ygo5m]m]b#b#b#0s0s=[0s0sr]3{f,v+3{q]:(-[t]s+LmN)jjLm0kj_j_Z^j_Z^_~N)[~>an#[~m#z][~m#Z^0(k_J:-/m_j_9(m#}~v+n#v+u+n#q+m#u+j=",
"0;0{}:C]D]qwB1u,s5hiH24}Ezw,'aL'Whf|TAt=UAesVA#;K %%: _ : _ [ S+:%:%Y#D D V,WAL]U,$n7!-!UrUr5!YlO]Yljn#)XA</YAZA`A B{jMcXc.B+B@B#B$B%B+lEi&B{jgl*Bm~`lid=Bye-B=^q,9!zp<%Z# wJ ]@B*K K i(i(^ O+R:/ M -)X=9& $ $ $m> $0&Z=| U #$U F*@uZ,dv2@1@` {mY Z e&1@$u_m&.&.F8F8&0=8Y(;B'2;.Y5'2*b2cA>''3c])m&*s<${-atAs>Bf;j%Ce}.|.|.|.1.y@,8,8[3m;m;(': :'[)jzf{;)hA]s3&#q7^{m{m{m:iA/,B(m'B)B5j=uat}kat4kl7WiM6l7%d%dl!p7!BV~RfKd~BLe}5o^7eZ~{Bw%e$|wJ.Y@v^K.K.|8|8}8]B`8w^O.z7O._=^b^b^b%#=,n$=,n$U.q$U.<d6ug'Dv'#,#`.}sKl8u]#]#8u=*%+%+%9%9'{G7X<^BW<;+f1dhn2z)`fn2Kaf]{*a_0#E-/BZs(B.>c#U%|+|+|+|+1+f#o5o5_*m]m],~_B|{Hm0s=[3{0s0s3{4mv+4mn#n#t]s+wi-7:B<Bjj[B3|y23|J:k_l_m_k_9(9(_~6{p_-7q5l_-70(N)0(N)n#iev+o#iev+o#p+w+w+j=j=v+",
"0;{)0{d|0{d|d(s5D3H2hihiUh8bL'.;f|L'>h}B|Bu=0}$%J ( W,9&: $S+`=[ Y#Y#k/<%U==)Q'.4U1'<'<7!1BXtYlYlXt<pP]2B3B4B4B5B6B7B8B9Bnd0BaBbBcBdBeBfBqhgBhBiBJgjBP]R_kB'<7!Q'=)5&D D !&X=X=6&z=S:/ R:R:R:-)-)z_Q{u5#4P 9&Q+ $ag0&Z=R+2%2%F*@uY,Z,Y,5%q>5%Z lBZ e&1@f&&.&.&.F8W{X{(^X{R|Y(Y5!4Y('2'2{)ea])a;._])mBnBoB]-S}_-2$[.:h:h|.2._4pB3.t&[3fg_'|h[)[)D,f{-k*nur5%^r#q{mkpkp:i(rqBrBrBsBtBsBuBvBvBwBW}f<L6SgT}m9Fhcc)0xBt@yB~'Qs2222G!8'ntzBD.D.PbO!O&O&${ABM!AB`8`85kBBSdP!CBDBQ._=of^bGan$=,U.D%D%<dMy<|g't$i'U!G%Z.EB8u]#]#**%+%+%+%90]%9f1dif1X<f1Jan2dhdhz)JaC-g]a_f]d8stFBF-+cT%O$[+u3u3|+2+f#GB1+_*_*fhb#v2b#b#Gm=[s]s]=[Gm8r4m4m8rDct]jj:BHBHBIB^}IBJBReRe'[4|>[-7q5-/a(-70(N)[~m#A]m#[~[~[~u+v+v+2*p+p+w+m+m+m+2*i=p+i=i=",
"0;C]{)D]>/B1B1:[s5hihi7b`-<> ;I][>) 4gg*KBes$%^ O ( : 9&: P Y#S+Y#E1Y#k/D =)=)Q'8!'<7!J+'<LB0/0gR_xocmi}MBNBPcOBsenkPBQBRBSBTB8!vA`,@!:!DoUBm{VBrjWBf|XBYl&)6!amQ'C 5&D 5&Y#X=X=6&6&7}N z_-)YBz_-)-)y_A_G3G3#3 $9& $Hf89[ U *:Y,Y,Z,`,Y,Z ` 4%lBZ =]e&Z *.&.&.&.F8_^W{W{p/'2'2Y(Y5'2'2fa0;A>0;1^B>^.!2U*AsAs}$2$i%[.}.:h|._4t&y@t&<3[3fgm;[)[)[)ZB-kf{`B*n_oezF+2oVo$& C.C+C@C#C$CBk%C&C&C*Co@=C:$3hraF/]_-CXo7)5';C5'>C|^8'F!8'8'C.zBD.K&O!O!O&O&O&cjC;cj5k,C'CBBz7Sdz7Sd:d)C^bV&=,(bR!D%U.a1f'kxg'!Ct$Z.`.F%~C8u**]#8uUb%+%+%+%9G70]X<W<W<W<X<&7dhdh&7^{`f^{/{!(^+h1b={CZsT%O$V%[+|+u3|+o2_*f#_*u2_*fhm]b#b#b#8rs]=[]Cs]4n4njos]=[Jm0k^C<B<B/CJ:NkNkNk+e+e_}(CZ^A]m#s+_~A][~v+n#Dcn#Dcn#v+n#v+v+p+2*p+2*m+m+m+m+m+|*S$|*o+",
")7$ {)>/D]B1d(B14}hiH24}_C<> ;L'WhWh) t=:C|B)&$%K ( K X=6&X=VeY#Y#Y#Y#D C,[c&f5~Z)J+a/Omye<Ck}S_t|d[d[[C$^}C|C1C2C~j3C4CQu5Cqk:u[0Q 6C7C8Ci~R,9C0C@)bl`$(/9~j>aC3>}gD D Y#Y#X=X=W,6&6&Q6N z_z_0j-)z_y_G3G3#3P 9&9& $Z=Z=[ 2%U F*`,`,Y,F*Z 4%Z Z 4%Z Y 4%&.0^&.v!f7D~W{p/Y('2Y('2d@'2*b2ceaA>0;])m&b9r@{-bCoBs&_-j%[.j%T|cC:3}-t&t&t&[3m;a<dCeCeC:oeCU,@qfCgC.'G+Gn-n(rhC,niCjCkClC,]mCnCoCpCEk,lqCqCLA$d,bEq5'iAjA9)ltrC5hsC+,j-C.B.2uD.tCO!O!O&55O&M.uCC;'C'CvCBBSdSdSdSd)CQ.V&V&=,=,=,D%D%U.<d!C!C<|F%Z.F%Z.Z.**8u%+**%+Yd%+9]H7b80]W<X<W<X<W<z)dhn2z)Ja`f^{f]{*{*_+E-wCxC(*T%c#[+c#p2p2p2J-_*_*_*_*m][{Un]C]C2n]CyC5nzCACLmJm5njjjjBC3lBCdy$kJms]6n$kSe(CSe6lDcDc[~u+m#u+n#}~:fv+ie2*p+2*p+2*p+o+p+p+m+m+m+m+j+m+m+1*S$|*",
"+ f8B]D]D]B1d|:[D3H2hi4}Ez ; ;I]f|Wh!7t=<<CC1>$%x=K B*A_B*J J DCV=<%O'5&<%dz[c.4.49q!/EC.BFCGCHCICd[d[JCKCLCVkMCNCOC3CPCQCRCwAi;SCabTCUCV'VCPCVBtsM'Nzb (/y j>aCWC=)<;5&D D y~X=[;6&7}M W,N z_z_z_z_y_G3X=u59&#oP $890&[ U 2%F*Y,Y,[83%Z ` 5%1@1@Z Z {mf&$uC~v!=.f7(^W{Y('2Y5Y(!4Y('22cA>0;0;1^._b9}${-XCYCq@_-_-j%<.(:ZC|-|-`Ck;H> DI~_';mdCD,D,]r:o.D+D@D#D$D%D-n(r&D*D'n-l=DmC= mC-D;D>DFlFl>f>fGb,D7)'D)D7)XiOwOwz.5hR@+,j-u7ntB;K&D.v^v^O&C;O&cjM.55.#'C'CSdSdSdSdO.!D_=~Dz%=,R!n$D%U.D%<dkx<|{DE%Z.`.G%,#,#8u8u=***$+'{9]%+H7e1X<X<W<f1X<Jan2dhz)`f^{^{/{a_{*L$E-]D^D{AT%T%c#e=t2e=K-K-/D%>K-F)|{b#1mUnGmGmPq2n(D_D_D7nq1:Djjjjs+joOls]Pl6nDc6nDc<D<D[~[~v+v+n#[Dv+Q-Dcv+o#o#o#m+p+m+p+2*C4v+j=2*p+p+p+m+S$m+|*m+j+S$",
")7$ $ $ D]3}B1:[D34}H2H2Uh<>je.;w_M+@%UA}D|D#;7~z=K ]@B*x=W=%!<%L{O'<%B,K{l<1D2D3DH{4D5DusE(%)6D:c7D3!8D#)#)mk9Dk{Ci0D;$aD.&llbDSCQ WecDdDX:W:Ci0CM'b a (/j>9~D8L]WAD <;D j/pdS:B*7}A_M M N M z_-)-)-)G3G3G3u5P G39&89;)[ U 3%F*F*F*[8Bw5%4%ez5%` =]` eD8@f&RiN~f7D~;.;.Y(d@'2Y(!4d@*b*b{)A>G0a;a;<$g%atfDgDf;xbt@j%:-<.[-%_H~H>IsGjH>F>WphDA#B#iDjDjDkD@qlD7^U Vo5%mDnD{mW'W'oD>]RipDqDrDsDDetD>fqC1~uDiA(.Eq5'jAOwz.mz5h+,sCB.j-:82uB;D.vDc4vDM!wDciM.M..#M.'CBBz7z7SdSd:d!Dz%:dR!R!l)D%U.;,<d<d[|{D>#i'F%uzG%`.**y$xD]#H%=*yDH7b8b8=+X<<#W<X<Jaz)n2n2z)`f=ag]g]0#S%/BzDAD.>_{b#c#90e=I-i]{qK-PlF)K-y'_{BDCDDD%k_D_DED5n-[Hmcy=[t]=[Dcn#n#n#Dcv+n#[DF):f:fn#FDv+Dcv+:f}~t+u+n#:fo#m+w+p+p+2*o+2*l#p+j=p+i=o+i=p+|*o+m+m+S$",
"1~$ $ f8A+d(3}B1E3)aH24}`-jeI]*&f|GDHDIDUAf*JDJDA,A,A,J H d{'^KDLDAp1qJ{MDNDCpODPDQD-Bl}6!Fx%)+bJ3O]J3@)!h@)@)0~k{VB.)!!U'V'llWaKzw7TCiyV'^7n{}A|[M'Nza y y j>G13>C <%D '@A*J A*x6z=B*O+-)z_M / M / R:G3y~u5X=#4G3H3;)89S 2%$$F*F*3%F*`,5%ez4%` 5%ezNuPu:iD+dAN~D~D~;.)4d@Y(d@'2~4!4*b2c0;G01^m&._RDSDsBatTDUDVDC>C>]'D>WD+]-dXDYDXDZD&f`D EYp.E+E@E$naCS %y7^Z #$7^>_J0>_J0;]J#>]N~N~O}2)2)DeW>De#EGb1~7),b,b,bE}OwOwmzz.R@+,C.C.C.w%D.U@yaJ.$EU6${M!${5k'CM.O!O.*{TdSd*{!D30%E:d&El)R!T.D%z9<d<d}=[|i'i'uzF%`.G%uz;A{#;A%p$+yDb8b8b8H7<#X<<#W<s4Jan2z)^{=aI7{*a_E-*E=E/B-E;E;E{A{A{AO$2d>EFr^q3d^qIq,E'E)E(q!EED~ExpGm4mbyHm-[l#v+l#v+l#v+v+l#v+v+v+l#v+v+n#q+n#Q-n#v+v+m#m#m#l#o#o#w+m+m+p+p+p+p+v+p+l#j=v+j=C42*p+2*o+|*",
"+ $ $ A+A+3}3}s_E3u,u,D4o*dk.;*&D1{E]E^E/E(ERt1>VtVtH 8~d{_EW2:E<E[E}E[E|E1E2E~k=^!/'<VlFx&)T,(/J3J3O]#)!hn(Y+zoR=@l>;P=P=O=3E{;KzQ TClljb{!n{4Erj@)F=Agy y y ;@>@,@Z#D D N5J x6J B*A_^ s}u{/ / M z_/ G3X=X=G3P X=Y#89;)R+U V 2%@u3%V [81@1@ez5%ezA~A~5E:i$uRiRi=.D~;.FAd@d@d@X{~4;.;'-5*0*0a;m&!26E7E8E9E0EaEC>`k`k d.d+]bE1D'fcEH[QDH[dEeEB#tqfC:o-k)m| /r#$t;#$#$J0{m>_>_R>R>|'fEu;|'|'gE&yx;DeqCGbGb!'!',bhE5'9)g-ktz.R@R@R@S@T@c(D.D.!6J.U6J.M!ci}8>|V6O!O!O.Sd*{SdO.30:dz%30m)R!l)U.U.T.D%My}=[siEt$,#uzG%uz{#{#;A;A$+=*=*%+b8b8<#<#<#<#||s4;+;+s4I7I7E${*h1*EjEkElEmElu{Ajuju2d3d>EnEoEpEqErEsEtEqEuEDDNqzC2ns]|lbyHmbyO-l#l#v+n#l#l#d+d+O-b,d+O-p+o+2*p+n#Dcn#n#n#n#m#9(n#v+p+3*m+m+m+m+w+m+o#p+p+l#v+C4v+p+o+v+q+l#",
"Th@ $ $ $ C3u,E3u,H2u,o*{$.;*&*&) vEwExERtyEzEAEBE8d8~d{*cCEDE<EEEFE|EGE1qHEs~`qr~'<T_-!;!Fx57T,`$6>J3O2S]@)n(bqR=VBw*P=,;[&IE6~<1JEP{c~KEjl+^LE5v#)K46>,!y ;k_%k*k*[gY#Y#D y~w~J B*B*^ s}^ u{O+/ -)R:S:pdG3y~G3X=[ 89<@[ #$|@V 2%@$V F*5%1@5%2@2@A~A~5E$u= H6RiH6=.;.;.;.)4;.~4;.Y(;'g7F}a;m&m&^.[$8EOjaEMENEOEPEQE.d+]RE;&SEcETEUEVEWEZDXEOk]r!&-k!&;)|;%yD*#$%=t;>_|3y/J0J#L~|'N~/2|'u;u;gEW>#E)2EeEe-CG/)0ta8)5'E}5hktR@<wA.A;A;TstCtCv^v^u^J.M!M!}8>|}8V6]Bw^z7TdTdz7:d*{:d30R!R!*#D%n$;#T. *YE[sF%i',#G%'#{#{#{#;A8uZEYd=*Yd%+=+=+=+r4;+r4;+n2;+I78=E${*{*^+K$kE`E F.Fmu+F@Fku3dj]#F$FsEqE%F&FqE*F=F-FVn6r-[s]-[3{,~byo1l#h=O-l#w3:(v+l#O-O-v+f,O-m+m+o+q+Q-m#9(9(A]z]N)k_u+n#l#p+3*m+3*n+l+l+3*m+m+p+p+l#v+p+p+v+q+v+",
".&}:@ @ }:B+g8Y-Y-a*a*o*a*.;.;{/vu;F>F,F]E'FzE)FAE't!F~FNr{F]F^F(eMDJ{1q@zs~[c.4$n-!v|-!&)J4j>57g{/FrA3!S]S]mkU]Bi+)l{i6{!V'(FX=%m`,P{7C_F:FW:~j1!@sNzO]X+j>y m*3>]a>jY#Y#Y#Vez=B*J J s}v=#%O+#%i(M i(W=pdB*O{pdO{Y#89Z=[ 2%2%F*U V 3%<F5%ezez` 5%[FNuPu:i:idAH6f!a9)$)$&0e@G8)$)$P*P*g7P*a;a;^.6<}F|F1F7E2FNE3FOEbt^uct;s4F'f5F-dl<&fZD6FOkdCD,jzS+Y#;)`=D*t;D**]Vo=]D+y/0^W'0^Qiu#. i3'.2)~$442h3hEe$d7FXoEqXoB!C!Ow9)Q@+,R@I&C.8F9FtCtCO!0e0eM!J.}8]dqcX0]BX0:6O.:6h3z7*{<6}6d5m)R!=,D%D%D%<dW.[s}=0Fi'uzuz`.G%>A;A{#;Amp$+Yd-*'{C$C$&9[#&9C$C-E$E$I7E$E$E$^+/vaFbFcFjEdFmueF+FAtfFBt4sgFpEhFFr'EiF=F]CVnUnGm0s3{q]3{Hmo1)~w33{=[q]=[:(:(n#:(q]=[q]=7n#v+ &u+z]A]9(u+Dc[~u+[~N)u+o#v+k+p+m+k+p+|*q#m+m+m+2*2*p+v+v+q+u+n#",
"+ @ $ @ @ & u,* D+`$`${$- &&&&=&*tjFkFlFmFnFyEnyoFpFqFrFsFe/tFuFwwvFd/X_)@$o[cwFWy-!-!;!J4FxN]T,Yl.rO]@)#)@)) bqsjVB.)xFU'mn^.yFKzzFmlwAjbAFPCOCVkBFWha T,j>j>=!l(,@Y#Y#5&A*A*A*W=A*W=#%v=i/#%Q7v=s}i(Q7v=.0I x~y~Y#<@R{R+2%U 2%n>V V @u5%5%5%ezezA~A~5E$uv!v!N~=.=.;.)$)$;.;.,.~$d%d%>-l&~-~-n&4tCFDFEFFFGFMEHFIFJFKFLFMF,sNFn<ecn<B,OF<)_odCq!S+S+S+|;Z=%y6^#${msmJ0J0{mJ0xqL~KjN~N~:m2)x;qD>fDe8lG/LA!'7F)D)DxB949)mzE}+,+,U8R@T@tCtCK&ya$E$E]d$E]dx7qcV0X0v9}0h3:6PFx910X/20B7m)*#4]U.D%U.D%QF[s[sZ.i'G%G%uzuz{#{#;A8u9]9]yD%+%+=+C$C$;+;+>+E$P%P%8='+'+'+J7stRFSFTFUFBtVFmAWFXFYF:vZF6s^q`F0k`F*pE:{(doUn>~3{3{3{,~o1byw2l#4mF)v+v+n#v+F)O-F)v+v+Mlv+p+}~v+n#[~z][~n#DcDcDc[~^~v+w+l#p+p+j=m+m+m+m+2*j=j=j=q+j=q+n#u+t+",
"0;$ 0{$ $ Y-u,s_Z-a*F+`$ %c*&&.%N+ G.GxE+G@G4v#G$GSttF%G&G^t&Gww*GK{v~0!0![c[cVyWy;!;!Fxj>j>j>(/b lkJ3lk,oM'S,knR=gy=G~!P=fqOp-G;GabTCwAjb;$R,CiU]BFP]O]O],!y G1Q'D,5&<%<%J J x=~@7~v=Y9R(,&7~,&,&`9,&v=,&$!!^Vey~!&R{z~S+U 2%U n>3%@$3%Z 1@5%5%1@A~A~1@>]z[|'v!F8D~X{;.;.)$;.X{,.P*i@d%i@R*~-b;].>G,GOjgD'G)G!G~G{G]GJdPE^G'secm^WpbpUpUpdCdC:)S+('r!| 1 1 t;t;h.]m>_:kyl:kL~3j|'1)v!2)|'/Gx;/G(G>fGbLA!'iA5'5'`>94t@9)9)<wR@C.8'j-zBw%w%X0J.-yx7t^!b(0Z[_Gza_G:G<Gi:x9i:5_A^PwB7Av4]m);,U.D%U.QF}=YEE%Z.,#G%G%,#{#{#]#yD[Gp39]%9b8di=+=+C$;+||>+E$3#P%Q%8='+Y;]+UF}G`E|G1GOv2G3Gmu+F4G5G;E8s0kJm3dF:{q{qUnUn6,3{,~,~by)~)~)~O-d+!}l#!}h=!}O-!}O-h=l#v+p+o#p+o#}~v+n#[~n#}~n#n#q+^~m#v+v+3*m+p+v+2*2*v+v+v+v+:fn#[~u+A]N)m#",
"0;$ $ $ @ g8Y-= Y-- a*`$.%C1*&L+E#6G8g7G8Goy't9G`9BE^tVt^tA,$;0GLDX_aGv~v~bG[can39&)G1y z z z -@a a lky*NzM'S,gmtstsa~2[T'fqOp-GqmcGdGiyjb2[5AVB0Cc -reGO]&)l}hkwF9!C,0!E $;~@%!J ,&`9}<@b}<Y9fGBE@bSt`9AEN{%!A}1<VePxgGY#3%#$3%D*@$D*V *]2o1@2@2@A~J*eD&.>]v!/2F8D~;.;.)$&0)$'.)$).P*d%]$)2m&l@:$N8hGiGjGkGbtlGmGPEnG:unG^'F>oGYD_:pGbpbpD,dCf{qG[)1 ['N>N>la#=g.g.]mh.:k:kL~[:z[z[|'z[1)/Gx;/G/G,zrG1~!'DqiA7)jAmzB!sG9)8'@|SsKbZ~)zJ!{=HyX@t^J.x<&A]z~btGBauGvG`0wG~yxGj:/z5_fx(y(yyGm);,q$;,50YE50$+E%0F,#'#{#{#K;xD%+yD9]zG%9b8=+=+C$&9C$HkC-'+E$P%4#Q%{*9#J$AG~ABGCG`EAtDGj]@F;Eju;E.ey'EG3dE:FGqpqpGmUnUno1Hm)~d+b,b,b,f=c+c+!}d+!}!}O-c+!}!}O-!}2*o#p+o#o#w+}~v+n#o#}~v+:fw+N)}}v+v+m#o#Q-n#n#[~q+Dcn#[~v+m#9(Z^_~Z^"};
--- NEW FILE ---
with Gtk.Handlers;
with Gtk.Button; use Gtk.Button;
package Callbacks_Instalar_Acdo is
package Button_Callback is new
Gtk.Handlers.Callback (Gtk_Button_Record);
end Callbacks_Instalar_Acdo;
--- NEW FILE ---
with Gtk; use Gtk;
with Gtk.Main;
with Gtk.Widget; use Gtk.Widget;
with Ventana_Pkg; use Ventana_Pkg;
procedure Instalar_Acdo is
begin
Gtk.Main.Set_Locale;
Gtk.Main.Init;
Gtk_New (Ventana);
Show_All (Ventana);
Gtk.Main.Main;
end Instalar_Acdo;
--- NEW FILE ---
with Gtkada.Intl; use Gtkada.Intl;
package body Instalar_Acdo_Intl is
function "-" (Msg : String) return String is
begin
return Dgettext ("Instalar_Acdo", Msg);
end "-";
end Instalar_Acdo_Intl;
--- NEW FILE ---
package Instalar_Acdo_Intl is
function "-" (Msg : String) return String;
-- Convenient shortcut to the Gettext function.
end Instalar_Acdo_Intl;
--- NEW FILE ---
with System; use System;
with Glib; use Glib;
with Gdk.Event; use Gdk.Event;
with Gdk.Types; use Gdk.Types;
with Gtk.Accel_Group; use Gtk.Accel_Group;
with Gtk.Object; use Gtk.Object;
with Gtk.Enums; use Gtk.Enums;
with Gtk.Style; use Gtk.Style;
with Gtk.Widget; use Gtk.Widget;
package body Ventana_Pkg.Callbacks is
use Gtk.Arguments;
------------------------
-- On_Aceptar_Clicked --
------------------------
procedure On_Aceptar_Clicked
(Object : access Gtk_Button_Record'Class)
is
begin
null;
end On_Aceptar_Clicked;
end Ventana_Pkg.Callbacks;
--- NEW FILE ---
with Gtk.Arguments;
with Gtk.Widget; use Gtk.Widget;
package Ventana_Pkg.Callbacks is
procedure On_Aceptar_Clicked
(Object : access Gtk_Button_Record'Class);
end Ventana_Pkg.Callbacks;
--- NEW FILE ---
with Glib; use Glib;
with Gtk; use Gtk;
with Gdk.Types; use Gdk.Types;
with Gtk.Widget; use Gtk.Widget;
with Gtk.Enums; use Gtk.Enums;
with Gtkada.Handlers; use Gtkada.Handlers;
with Callbacks_Instalar_Acdo; use Callbacks_Instalar_Acdo;
with Instalar_Acdo_Intl; use Instalar_Acdo_Intl;
with Ventana_Pkg.Callbacks; use Ventana_Pkg.Callbacks;
package body Ventana_Pkg is
procedure Gtk_New (Ventana : out Ventana_Access) is
begin
Ventana := new Ventana_Record;
Ventana_Pkg.Initialize (Ventana);
end Gtk_New;
procedure Initialize (Ventana : access Ventana_Record'Class) is
pragma Suppress (All_Checks);
begin
Gtk.Window.Initialize (Ventana, Window_Toplevel);
Set_Title (Ventana, -"AutoCD Organizer - Instalación");
Set_Policy (Ventana, False, False, False);
Set_Position (Ventana, Win_Pos_None);
Set_Modal (Ventana, False);
Set_USize (Ventana, 350, 100);
Gtk_New (Ventana.Fixed1);
Add (Ventana, Ventana.Fixed1);
Gtk_New (Ventana.Entry1);
Set_Editable (Ventana.Entry1, True);
Set_Max_Length (Ventana.Entry1, 0);
Set_Text (Ventana.Entry1, -"");
Set_Visibility (Ventana.Entry1, True);
Set_UPosition (Ventana.Entry1, 16, 56);
Set_USize (Ventana.Entry1, 248, 24);
Put (Ventana.Fixed1, Ventana.Entry1, 16, 56);
Gtk_New (Ventana.Aceptar, -"Aceptar");
Set_Relief (Ventana.Aceptar, Relief_Normal);
Set_UPosition (Ventana.Aceptar, 272, 56);
Set_USize (Ventana.Aceptar, 48, 24);
Button_Callback.Connect
(Ventana.Aceptar, "clicked",
Button_Callback.To_Marshaller (On_Aceptar_Clicked'Access));
Put (Ventana.Fixed1, Ventana.Aceptar, 272, 56);
Gtk_New (Ventana.Viewport1);
Set_Shadow_Type (Ventana.Viewport1, Shadow_In);
Set_UPosition (Ventana.Viewport1, 16, 33);
Set_USize (Ventana.Viewport1, 152, 19);
Put (Ventana.Fixed1, Ventana.Viewport1, 16, 33);
Gtk_New (Ventana.Label1, -("Introduzca directorio destino:"));
Set_Alignment (Ventana.Label1, 0.5, 0.5);
Set_Padding (Ventana.Label1, 0, 0);
Set_Justify (Ventana.Label1, Justify_Right);
Set_Line_Wrap (Ventana.Label1, True);
Add (Ventana.Viewport1, Ventana.Label1);
Ventana.Pixmap1 := Create_Pixmap ("acdo.xpm", Ventana);
Set_Alignment (Ventana.Pixmap1, 0.5, 0.5);
Set_Padding (Ventana.Pixmap1, 0, 0);
Set_UPosition (Ventana.Pixmap1, 0, 0);
Set_USize (Ventana.Pixmap1, 352, 104);
Put (Ventana.Fixed1, Ventana.Pixmap1, 0, 0);
end Initialize;
end Ventana_Pkg;
--- NEW FILE ---
with Gtk.Window; use Gtk.Window;
with Gtk.Fixed; use Gtk.Fixed;
with Gtk.GEntry; use Gtk.GEntry;
with Gtk.Button; use Gtk.Button;
with Gtk.Viewport; use Gtk.Viewport;
with Gtk.Label; use Gtk.Label;
with Gtk.Pixmap; use Gtk.Pixmap;
package Ventana_Pkg is
type Ventana_Record is new Gtk_Window_Record with record
Fixed1 : Gtk_Fixed;
Entry1 : Gtk_Entry;
Aceptar : Gtk_Button;
Viewport1 : Gtk_Viewport;
Label1 : Gtk_Label;
Pixmap1 : Gtk_Pixmap;
end record;
type Ventana_Access is access all Ventana_Record'Class;
procedure Gtk_New (Ventana : out Ventana_Access);
procedure Initialize (Ventana : access Ventana_Record'Class);
Ventana : Ventana_Access;
end Ventana_Pkg;
|
|
From: Cesar P. T. <or...@us...> - 2001-05-10 19:34:06
|
Update of /cvsroot/acdo//acdo/install/instalar-acdo
In directory usw-pr-cvs1:/tmp/cvs-serv5316
Modified Files:
Tag: 2.0
instalar-acdo.glade instalar_acdo.sh instalar_acdo.txt
Log Message:
cambio de revisión
--- NEW FILE ---
<?xml version="1.0"?>
<GTK-Interface>
<project>
<name>Instalar-acdo</name>
<program_name>instalar-acdo</program_name>
<directory></directory>
<source_directory>src</source_directory>
<pixmaps_directory>pixmaps</pixmaps_directory>
<language>Ada 95</language>
<gnome_support>False</gnome_support>
<gettext_support>True</gettext_support>
</project>
<widget>
<class>GtkWindow</class>
<name>ventana</name>
<width>350</width>
<height>100</height>
<title>AutoCD Organizer - Instalación</title>
<type>GTK_WINDOW_TOPLEVEL</type>
<position>GTK_WIN_POS_NONE</position>
<modal>False</modal>
<allow_shrink>False</allow_shrink>
<allow_grow>False</allow_grow>
<auto_shrink>False</auto_shrink>
<widget>
<class>GtkFixed</class>
<name>fixed1</name>
<widget>
<class>GtkEntry</class>
<name>entry1</name>
<x>16</x>
<y>56</y>
<width>248</width>
<height>24</height>
<can_focus>True</can_focus>
<editable>True</editable>
<text_visible>True</text_visible>
<text_max_length>0</text_max_length>
<text></text>
</widget>
<widget>
<class>GtkButton</class>
<name>Aceptar</name>
<x>272</x>
<y>56</y>
<width>48</width>
<height>24</height>
<can_focus>True</can_focus>
<signal>
<name>clicked</name>
<handler>on_Aceptar_clicked</handler>
<last_modification_time>Wed, 09 May 2001 15:15:37 GMT</last_modification_time>
</signal>
<label>Aceptar</label>
<relief>GTK_RELIEF_NORMAL</relief>
</widget>
<widget>
<class>GtkViewport</class>
<name>viewport1</name>
<x>16</x>
<y>33</y>
<width>152</width>
<height>19</height>
<shadow_type>GTK_SHADOW_IN</shadow_type>
<widget>
<class>GtkLabel</class>
<name>label1</name>
<label>Introduzca directorio destino:</label>
<justify>GTK_JUSTIFY_RIGHT</justify>
<wrap>True</wrap>
<xalign>0.5</xalign>
<yalign>0.5</yalign>
<xpad>0</xpad>
<ypad>0</ypad>
</widget>
</widget>
<widget>
<class>GtkPixmap</class>
<name>pixmap1</name>
<x>0</x>
<y>0</y>
<width>352</width>
<height>104</height>
<filename>acdo.xpm</filename>
<xalign>0.5</xalign>
<yalign>0.5</yalign>
<xpad>0</xpad>
<ypad>0</ypad>
<build_insensitive>True</build_insensitive>
</widget>
</widget>
</widget>
</GTK-Interface>
--- NEW FILE ---
#!/bin/sh
skip=17
tmpfile=`tempfile -d /tmp -p gz` || {
echo 'cannot create a temporary file' >&2
exit 1
}
rm -f $tmpfile
mkdir $tmpfile
/bin/chmod 700 $tmpfile
if /usr/bin/tail +$skip $0 | "/bin"/gzip -cd > $tmpfile/instalar.tar; then
cd $tmpfile; tar xvf instalar.tar;
./instalar_acdo
/bin/rm -rf $tmpfile
else
echo Cannot decompress $0; exit 1
fi; exit $res
--- NEW FILE ---
Para hacer el script de instalación:
1.- Comprimir un directorio llamado acdo con el binario y las imágenes del programa y llamarlo acdo.tgz
2.- Comprimir el anterior fichero (acdo.tgz), el binario de instalación y las imágenes del binario de instalación. Llamar a este fichero pepito.tgz
3.- Construcción del script de instalación:
cat instalar_acdo.sh > instalar
cat pepito.tgz >> instalar
chmod 0777 instalar
|
