SoloCodigo

Hola compañeros de foro. Soy un nuevo compañero vuestro y tengo un problema con el que espero me podais ayudar. Se trata de que no consigo saber como leer en Ada desde un fichero de texto caracter a caracter. Haciendo el siguiente codigo:

While not End_Of_File loop
   while not End_Of_Line loop
      get (fichero,car);
      put(fichero_Sal,car);
   end loop;
end loop;
Por supuesto despues de haber declarado todas las variables e instanciado el paquete Ada.Text_Io con el with, se me queda en un bucle infinito.

Por favor espero que alguien pueda decirme como va esto pues estoy atascado y lo necesito para una practica.

Atentamente

gandalfelgris

 Marks
 Creo que puedes resolver por este metodo.... aunke se puede mejorar mas.
.
.
.
.
while not end_of_file(FILE) loop
      get_line(FILE,TO_STRING(RISTRA));
       put_line(FILE2,TO_STRING(RISTRA));
end loop;



un salu2
Marks