29 lines
659 B
Ada
29 lines
659 B
Ada
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
procedure Simple_FASTA is
|
|
|
|
Current: Character;
|
|
|
|
begin
|
|
Get(Current);
|
|
if Current /= '>' then
|
|
raise Constraint_Error with "'>' expected";
|
|
end if;
|
|
while not End_Of_File loop -- read name and string
|
|
Put(Get_Line & ": "); -- read name and write directly to output
|
|
Read_String:
|
|
loop
|
|
exit Read_String when End_Of_File; -- end of input
|
|
Get(Current);
|
|
if Current = '>' then -- next name
|
|
New_Line;
|
|
exit Read_String;
|
|
else
|
|
Put(Current & Get_Line);
|
|
-- read part of string and write directly to output
|
|
end if;
|
|
end loop Read_String;
|
|
end loop;
|
|
|
|
end Simple_FASTA;
|