/dports/lang/asis/asis-gpl-2016-src/tools/tool_utils/ |
H A D | asis_ul-string_utilities.adb | 569 procedure Move_File (Old_Name : String; New_Name : String) is 583 Rename_File (Old_Name, New_Name, Success); 585 if Is_Writable_File (Directories.Containing_Directory (New_Name)) then 586 if Is_Regular_File (New_Name) then 587 Delete_File (New_Name, Success); 589 raise Program_Error with "unable to overwrite " & New_Name; 592 Rename_File (Old_Name, New_Name, Success); 595 "unable to move " & Old_Name & " to " & New_Name; 598 Copy_File (Old_Name, New_Name, Success, Mode => Overwrite); 602 "unable to copy " & Old_Name & " to " & New_Name;
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1064 procedure Rename (Old_Name, New_Name : String) is 1073 elsif not Is_Valid_Path_Name (New_Name) then 1074 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1081 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1083 "new name """ & New_Name 1089 Rename_File (Old_Name, New_Name, Success); 1101 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | a-direct.adb | 1056 procedure Rename (Old_Name, New_Name : String) is 1065 elsif not Is_Valid_Path_Name (New_Name) then 1066 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1073 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1075 "new name """ & New_Name 1081 Rename_File (Old_Name, New_Name, Success); 1093 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1064 procedure Rename (Old_Name, New_Name : String) is 1073 elsif not Is_Valid_Path_Name (New_Name) then 1074 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1081 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1083 "new name """ & New_Name 1089 Rename_File (Old_Name, New_Name, Success); 1101 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1064 procedure Rename (Old_Name, New_Name : String) is 1073 elsif not Is_Valid_Path_Name (New_Name) then 1074 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1081 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1083 "new name """ & New_Name 1089 Rename_File (Old_Name, New_Name, Success); 1101 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | a-direct.adb | 1056 procedure Rename (Old_Name, New_Name : String) is 1065 elsif not Is_Valid_Path_Name (New_Name) then 1066 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1073 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1075 "new name """ & New_Name 1081 Rename_File (Old_Name, New_Name, Success); 1093 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | a-direct.adb | 1052 procedure Rename (Old_Name, New_Name : String) is 1061 elsif not Is_Valid_Path_Name (New_Name) then 1062 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1069 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1071 "new name """ & New_Name 1077 Rename_File (Old_Name, New_Name, Success); 1089 "file """ & Containing_Directory (New_Name) & """ not found";
|
H A D | restrict.adb | 776 New_Name : Name_Id; variable 781 New_Name := Name_Simple_Barriers; 784 New_Name := Name_Max_Entry_Queue_Length; 787 New_Name := Name_No_Dynamic_Attachment; 790 New_Name := Name_No_Requeue_Statements; 793 New_Name := Name_No_Task_Attributes_Package; 802 Error_Msg_Name_1 := New_Name; 806 return New_Name;
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | a-direct.adb | 1052 procedure Rename (Old_Name, New_Name : String) is 1061 elsif not Is_Valid_Path_Name (New_Name) then 1062 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1069 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1071 "new name """ & New_Name 1077 Rename_File (Old_Name, New_Name, Success); 1089 "file """ & Containing_Directory (New_Name) & """ not found";
|
H A D | restrict.adb | 776 New_Name : Name_Id; variable 781 New_Name := Name_Simple_Barriers; 784 New_Name := Name_Max_Entry_Queue_Length; 787 New_Name := Name_No_Dynamic_Attachment; 790 New_Name := Name_No_Requeue_Statements; 793 New_Name := Name_No_Task_Attributes_Package; 802 Error_Msg_Name_1 := New_Name; 806 return New_Name;
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1064 procedure Rename (Old_Name, New_Name : String) is 1073 elsif not Is_Valid_Path_Name (New_Name) then 1074 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1081 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1083 "new name """ & New_Name 1089 Rename_File (Old_Name, New_Name, Success); 1101 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1064 procedure Rename (Old_Name, New_Name : String) is 1073 elsif not Is_Valid_Path_Name (New_Name) then 1074 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1081 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1083 "new name """ & New_Name 1089 Rename_File (Old_Name, New_Name, Success); 1101 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1064 procedure Rename (Old_Name, New_Name : String) is 1073 elsif not Is_Valid_Path_Name (New_Name) then 1074 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1081 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1083 "new name """ & New_Name 1089 Rename_File (Old_Name, New_Name, Success); 1101 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1175 procedure Rename (Old_Name, New_Name : String) is 1184 elsif not Is_Valid_Path_Name (New_Name) then 1185 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1192 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1194 "new name """ & New_Name 1200 Rename_File (Old_Name, New_Name, Success); 1212 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc6-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly4.1/5.1.0/adainclude/ |
H A D | a-direct.adb | 1065 procedure Rename (Old_Name, New_Name : String) is 1074 elsif not Is_Valid_Path_Name (New_Name) then 1075 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1082 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1084 "new name """ & New_Name 1090 Rename_File (Old_Name, New_Name, Success); 1102 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | a-direct.adb | 1065 procedure Rename (Old_Name, New_Name : String) is 1074 elsif not Is_Valid_Path_Name (New_Name) then 1075 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1082 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1084 "new name """ & New_Name 1090 Rename_File (Old_Name, New_Name, Success); 1102 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1165 procedure Rename (Old_Name, New_Name : String) is 1174 elsif not Is_Valid_Path_Name (New_Name) then 1175 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1182 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1184 "new name """ & New_Name 1190 Rename_File (Old_Name, New_Name, Success); 1202 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1164 procedure Rename (Old_Name, New_Name : String) is 1173 elsif not Is_Valid_Path_Name (New_Name) then 1174 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1181 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1183 "new name """ & New_Name 1189 Rename_File (Old_Name, New_Name, Success); 1201 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1165 procedure Rename (Old_Name, New_Name : String) is 1174 elsif not Is_Valid_Path_Name (New_Name) then 1175 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1182 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1184 "new name """ & New_Name 1190 Rename_File (Old_Name, New_Name, Success); 1202 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1164 procedure Rename (Old_Name, New_Name : String) is 1173 elsif not Is_Valid_Path_Name (New_Name) then 1174 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1181 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1183 "new name """ & New_Name 1189 Rename_File (Old_Name, New_Name, Success); 1201 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1164 procedure Rename (Old_Name, New_Name : String) is 1173 elsif not Is_Valid_Path_Name (New_Name) then 1174 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1181 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1183 "new name """ & New_Name 1189 Rename_File (Old_Name, New_Name, Success); 1201 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc9-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly5.5/9.1.0/adainclude/ |
H A D | a-direct.adb | 1175 procedure Rename (Old_Name, New_Name : String) is 1184 elsif not Is_Valid_Path_Name (New_Name) then 1185 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1192 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1194 "new name """ & New_Name 1200 Rename_File (Old_Name, New_Name, Success); 1212 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1165 procedure Rename (Old_Name, New_Name : String) is 1174 elsif not Is_Valid_Path_Name (New_Name) then 1175 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1182 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1184 "new name """ & New_Name 1190 Rename_File (Old_Name, New_Name, Success); 1202 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1164 procedure Rename (Old_Name, New_Name : String) is 1173 elsif not Is_Valid_Path_Name (New_Name) then 1174 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1181 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1183 "new name """ & New_Name 1189 Rename_File (Old_Name, New_Name, Success); 1201 "file """ & Containing_Directory (New_Name) & """ not found";
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/libgnat/ |
H A D | a-direct.adb | 1175 procedure Rename (Old_Name, New_Name : String) is 1184 elsif not Is_Valid_Path_Name (New_Name) then 1185 raise Name_Error with "invalid new path name """ & New_Name & '"'; 1192 elsif Is_Regular_File (New_Name) or else Is_Directory (New_Name) then 1194 "new name """ & New_Name 1200 Rename_File (Old_Name, New_Name, Success); 1212 "file """ & Containing_Directory (New_Name) & """ not found";
|