Lines Matching refs:New_Dir
430 New_Dir : String (1 .. New_Directory'Length + 1); variable
445 New_Dir (1 .. New_Directory'Length) := New_Directory;
446 New_Dir (New_Dir'Last) := Directory_Separator;
452 and then New_Dir'Length > 2
453 and then Is_In (New_Dir (1), Dir_Seps)
454 and then Is_In (New_Dir (2), Dir_Seps)
459 exit when Start = New_Dir'Last
460 or else Is_In (New_Dir (Start), Dir_Seps);
466 for J in Start + 1 .. New_Dir'Last loop
470 if not Is_In (New_Dir (J), Dir_Seps) then
476 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
480 if not Is_Directory (New_Dir (1 .. Last)) then
483 (New_Directory => New_Dir (1 .. Last), Form => Form);
487 if File_Exists (New_Dir (1 .. Last)) then
494 if not Is_Directory (New_Dir (1 .. Last)) then
496 "file """ & New_Dir (1 .. Last) &