(26 . 19)(26 . 15)
13 return S(S'First..S'First+Prefix'Length-1) = Prefix;
14 end;
15
16 function Path_Prefix(Pathname: String;
17 Suffix: Positive) return String is
18 function Directory_Name(Pathname: String) return String is
19 Pos: Natural := Pathname'Last;
20 begin
21 for I in 1..Suffix loop
22 Pos := Ada.Strings.Fixed.Index(Pathname, "/",
23 From => Pos,
24 Going => Ada.Strings.Backward);
25 if Pos = 0 then
26 return Pathname;
27 end if;
28 Pos := Pos - 1;
29 end loop;
30 Pos := Ada.Strings.Fixed.Index(Pathname, "/",
31 From => Pos,
32 Going => Ada.Strings.Backward);
33 if Pos = 0 then
34 return Dirs.Current_Directory;
35 end if;
36 return Pathname(Pathname'First .. Pos);
37 end;
38
(623 . 8)(619 . 8)
40 Close(In_F);
41 Dirs.Delete_File(To_F_Name);
42 else
43 if not Dirs.Exists(Path_Prefix(To_F_Name, 1)) then
44 Dirs.Create_Path(Path_Prefix(To_F_Name, 1));
45 if not Dirs.Exists(Directory_Name(To_F_Name)) then
46 Dirs.Create_Path(Directory_Name(To_F_Name));
47 end if;
48 end if;
49 case Op is
(651 . 6)(647 . 7)
51 begin
52 Read_Loop:
53 loop
54 exit Read_Loop when End_Of_File;
55 declare
56 S: String := Get_Line;
57 begin
(659 . 7)(656 . 6)
59 H: Header := Get_Header;
60 begin
61 Process_Hunks_For_Header(H);
62 exit Read_Loop when End_Of_File;
63 end;
64 else
65 Put_Line("Prelude: " & S);