| /dports/lang/asis/asis-gpl-2016-src/tools/gnattest/ |
| H A D | gnattest-skeleton-source_table.ads | 102 function Source_Present (Source_Name : String) return Boolean;
115 function Get_Source_Suffixless_Name (Source_Name : String) return String;
116 function Get_Source_Output_Dir (Source_Name : String) return String;
117 function Get_Source_Stub_Dir (Source_Name : String) return String;
118 function Get_Source_Stub_Data_Spec (Source_Name : String) return String;
119 function Get_Source_Stub_Data_Body (Source_Name : String) return String;
120 function Get_Source_Body (Source_Name : String) return String;
121 function Get_Source_Project_Name (Source_Name : String) return String;
123 procedure Mark_Sourse_Stubbed (Source_Name : String);
124 function Source_Stubbed (Source_Name : String) return Boolean;
[all …]
|
| H A D | gnattest-harness-source_table.adb | 168 function Get_Source_Full_Name (Source_Name : String) return String is
171 (SF_Table, Source_Name).Full_Source_Name.all;
177 function Get_Source_Status (Source_Name : String) return SF_Status is
180 (SF_Table, Source_Name).Status;
186 function Get_Source_Suffixless_Name (Source_Name : String) return String is
189 (SF_Table, Source_Name).Suffixless_Name.all;
281 procedure Set_Source_Status (Source_Name : String;
285 SF_Rec := Source_File_Table.Element (SF_Table, Source_Name);
287 Replace (SF_Table, Source_Name, SF_Rec);
293 function Source_Present (Source_Name : String) return Boolean is
[all …]
|
| H A D | gnattest-harness-source_table.ads | 86 function Source_Present (Source_Name : String) return Boolean;
96 procedure Set_Source_Status (Source_Name : String; New_Status : SF_Status);
98 function Get_Source_Status (Source_Name : String) return SF_Status;
99 function Get_Source_Full_Name (Source_Name : String) return String;
100 function Get_Source_Suffixless_Name (Source_Name : String) return String;
|
| H A D | gnattest-skeleton-source_table.adb | 983 (Name => Source_Name,
993 & Source_Name
1015 (Name => Source_Name,
1031 (Name => Source_Name,
1047 (Name => Source_Name,
1063 (Name => Source_Name,
1079 (Name => Source_Name,
1094 (Name => Source_Name,
1109 (Name => Source_Name,
1220 (Name => Source_Name,
[all …]
|
| /dports/lang/asis/asis-gpl-2016-src/tools/gnatpp/ |
| H A D | asis_ul-source_table-processing-asis_processing.adb | 62 (Source_Name (SF),
66 when Default => Source_Name (SF) & PP_Suffix,
217 Containing_Directory (Source_Name (SF))
230 Is_Regular_File (Source_Name (SF) & NPP_Suffix)
234 To_Wide_String (Source_Name (SF) & NPP_Suffix));
245 Put (Standard_Error, To_Wide_String (Source_Name (SF)));
253 (Name => Source_Name (SF),
254 Pathname => Source_Name (SF) & NPP_Suffix,
261 Put (Standard_Error, To_Wide_String (Source_Name (SF)));
|
| H A D | gnatpp-processing-prepare_context.adb | 42 (new String'(Source_Name (SF)),
71 "System in "& Source_Name (SF));
76 Put ("(" & Source_Name (SF) & ")");
84 Put ("(" & Source_Name (SF) & ")");
|
| /dports/lang/asis/asis-gpl-2016-src/tools/gnat2xml/ |
| H A D | gnat2xml-gnat2tokens.adb | 44 Source_Name : constant String := Argument (X);
50 Put ("-- Processing \1\n", Source_Name);
51 Read_Ada_File (Buf, Source_Name, BOM_Seen, Expand_Tabs => True);
|
| /dports/textproc/adabrowse/adabrowse_4.0.3/ |
| H A D | util-files.adb | 74 Source_Name : constant String := Name (From); constant
76 if Source_Name'Length = 0 then
80 Copy (From, Source_Name, Overwrite, Buffer);
82 Copy (From, Concat (To, Source_Name), Overwrite, Buffer);
|
| H A D | ad-parameters.adb | 286 function Source_Name subprogram
291 end Source_Name;
306 (ASF.Translate (Util.Pathes.Base_Name (Source_Name), To_Unit));
|
| /dports/lang/asis/asis-gpl-2016-src/tools/tool_utils/ |
| H A D | asis_ul-source_table.adb | 93 Source_Name : String_Loc; component
158 (Source_Name => Nil_String_Loc,
525 (new String'(Source_Name (SF)),
540 (new String'(Source_Name (SF)),
636 SF_Name = Source_Name (Next_SF)
1027 Arg_Name = To_Lower (Source_Name (Next_SF))
1069 Info (Source_Name (SF));
1362 Source_Table (SF).Source_Name := Enter_String (N);
1440 function Source_Name (SF : SF_Id) return String is subprogram
1442 return Get_String (Source_Table (SF).Source_Name);
[all …]
|
| H A D | asis_ul-source_table-processing.adb | 190 Source_Name (Needed_SF));
277 Source_Name (SF));
303 Error ("cannot process RTL unit " & Source_Name (SF) &
387 Error ("unknown bug detected when processing " & Source_Name (SF));
|
| /dports/devel/matreshka/matreshka-0.7.0/source/league/ |
| H A D | matreshka-internals-translator-xliff_readers.adb | 59 Source_Name : constant League.Strings.Universal_String constant
104 and Local_Name = Source_Name
174 and Local_Name = Source_Name
|
| /dports/ports-mgmt/synth/synth-2.12/src/ |
| H A D | replicant.adb | 663 AD.Copy_File (Source_Name => mm & group,
679 AD.Copy_File (Source_Name => mmetc & passwd,
681 AD.Copy_File (Source_Name => mmetc & maspwd,
683 AD.Copy_File (Source_Name => mmetc & spwd,
685 AD.Copy_File (Source_Name => mmetc & pwd,
705 AD.Copy_File (Source_Name => mtree & usr,
707 AD.Copy_File (Source_Name => mtree & var,
809 AD.Copy_File (Source_Name => original,
825 AD.Copy_File (Source_Name => etc_rcconf,
841 AD.Copy_File (Source_Name => etc_rcsubr,
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
| H A D | a-direct.adb | 301 (Source_Name : String;
312 if not Is_Valid_Path_Name (Source_Name) then
314 "invalid source path name """ & Source_Name & '"';
320 elsif not Is_Regular_File (Source_Name) then
321 raise Name_Error with '"' & Source_Name & """ is not a file";
381 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
384 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
| H A D | a-direct.adb | 301 (Source_Name : String;
312 if not Is_Valid_Path_Name (Source_Name) then
314 "invalid source path name """ & Source_Name & '"';
320 elsif not Is_Regular_File (Source_Name) then
321 raise Name_Error with '"' & Source_Name & """ is not a file";
381 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
384 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 289 (Source_Name : String;
300 if not Is_Valid_Path_Name (Source_Name) then
302 "invalid source path name """ & Source_Name & '"';
308 elsif not Is_Regular_File (Source_Name) then
309 raise Name_Error with '"' & Source_Name & """ is not a file";
369 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
372 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/ |
| H A D | a-direct.adb | 301 (Source_Name : String;
312 if not Is_Valid_Path_Name (Source_Name) then
314 "invalid source path name """ & Source_Name & '"';
320 elsif not Is_Regular_File (Source_Name) then
321 raise Name_Error with '"' & Source_Name & """ is not a file";
381 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
384 raise Use_Error with "copy of """ & Source_Name & """ failed";
|
| /dports/lang/gcc6-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly4.1/5.1.0/adainclude/ |
| H A D | a-direct.adb | 298 (Source_Name : String;
309 if not Is_Valid_Path_Name (Source_Name) then
311 "invalid source path name """ & Source_Name & '"';
317 elsif not Is_Regular_File (Source_Name) then
318 raise Name_Error with '"' & Source_Name & """ is not a file";
378 Copy_File (Source_Name, Target_Name, Success, Mode, Preserve);
381 raise Use_Error with "copy of """ & Source_Name & """ failed";
|