SoloCodigo

Programación General => Otros Lenguajes de Programación => ADA => Mensaje iniciado por: slayer925 en Jueves 27 de Abril de 2006, 22:18

Título: Sequential En Un .ads
Publicado por: slayer925 en Jueves 27 de Abril de 2006, 22:18
Hola a todos! Soy nuevo en este foro. Le he estado echando un ojo y me parece q esta de p.m.  Tengo un problema con una practica, pero no os asusteis, es solo un problemilla:

Necesito crear un package de esos aparte no? Y este necesita trabajar con tipos secuenciales de datos de tipo X (en mi caso tpFavorito)

al ser:

with
use
generic
package
  private
    type
end package

y el tema es insertar esto:

  -> package Sequential_Favoritos is new ada.sequential_io(tpFavorito);
  -> use Sequential_Favoritos;
  -> subtype tpFicheroFavoritos is Sequential_Favoritos.file_type;

Si el tpFavorito esta definido como private... donde defino lo demas?

el package Sequential_Favoritos is new ada.sequential_io(tpFavorito); me supongo que sera dentro del private y el subtype, al no ser un type, sera despues de package Nombre is. El problemas es el use, que no se donde meterlo para que se me haga visible todo y correcto. Una ayuda plis
Título: Re: Sequential En Un .ads
Publicado por: gandalfelgris en Viernes 28 de Abril de 2006, 01:52
Hola compañero,
                         Tu error es que el tipo de datos sequential no se puede declarar en un .ads. Hay que declararlo en un .adb

Te mando el .ads y .adb de un paquete que funciona correctamente. trata de aplicarlo a tu problema.

Deseando que esta ayuda te sea util me despido

Primero te envio el .ads

Atentamente
Título: Re: Sequential En Un .ads
Publicado por: gandalfelgris en Viernes 28 de Abril de 2006, 01:53
Ahora te va el .adb

Atentamente
Título: Re: Sequential En Un .ads
Publicado por: slayer925 en Viernes 28 de Abril de 2006, 23:47
Ostia tio muchisimas gracias. Ya no tendre mas quebraderos de cabeza.  Muchas asias ;-)
Título: Re: Sequential En Un .ads
Publicado por: slayer925 en Sábado 29 de Abril de 2006, 00:20
Oye sigo teniendo un problema, y es que en el ads tengo funciones y procedimientos que trabajan con parametros de entrada y/o salida de tpFicheroSecuencialFavoritos:

   procedure AnyadirDesdeFichero(f: in out S_Favoritos.file_type;
                                 g: in out tpFicheroTexto);

No se como definir f en el .ads si no defino antes el tipo tpFicheroSecuencialFavoritos.
Tampoco lo pued definir (o al menos no se) como private, porque se define como subtipo, y no como tipo. Como se podria solucionar?
Título: Re: Sequential En Un .ads
Publicado por: slayer925 en Sábado 29 de Abril de 2006, 00:44
Te envio dos ficheros para q se vea mejor:

.ADS