Lines Matching refs:New_Dir
446 New_Dir : String (1 .. New_Directory'Length + 1); variable
461 New_Dir (1 .. New_Directory'Length) := New_Directory;
462 New_Dir (New_Dir'Last) := Directory_Separator;
468 and then New_Dir'Length > 2
469 and then Is_In (New_Dir (1), Dir_Seps)
470 and then Is_In (New_Dir (2), Dir_Seps)
475 exit when Start = New_Dir'Last
476 or else Is_In (New_Dir (Start), Dir_Seps);
482 for J in Start + 1 .. New_Dir'Last loop
486 if not Is_In (New_Dir (J), Dir_Seps) then
492 elsif not Is_In (New_Dir (J - 1), Dir_Seps) then
496 if not Is_Directory (New_Dir (1 .. Last)) then
499 (New_Directory => New_Dir (1 .. Last), Form => Form);
503 if File_Exists (New_Dir (1 .. Last)) then
510 if not Is_Directory (New_Dir (1 .. Last)) then
512 "file """ & New_Dir (1 .. Last) &