adabrowse/adabrowse_4.0.3/ad-projects-impl_yes.adb

115    package ASU renames Ada.Strings.Unbounded;  packspec
124    Output_Directory            : ASU.Unbounded_String;
125    Tree_Directory              : ASU.Unbounded_String;
126    Source_Directories          : ASU.Unbounded_String;
128    Project_File_Name           : ASU.Unbounded_String;
242          Unit_Name : ASU.Unbounded_String;
243          Spec_Name : ASU.Unbounded_String;
244          Body_Name : ASU.Unbounded_String;
258         (Unit_Name => ASU.To_Unbounded_String (Unit_Name),
259          Spec_Name => ASU.To_Unbounded_String (Spec_Name),
260          Body_Name => ASU.To_Unbounded_String (Body_Name));
338                if ASU.Length (Unit.Spec_Name) > 0 then
341                     (File, "--  " & ASU.To_String (Unit.Unit_Name));
343                     (File, ASU.To_String (Unit.Spec_Name));
347                if ASU.Length (Unit.Spec_Name) > 0 then
353                     (File, '"' & Quote (ASU.To_String (Unit.Spec_Name)) & '"');
355                if ASU.Length (Unit.Body_Name) > 0 then
361                     (File, '"' & Quote (ASU.To_String (Unit.Body_Name)) & '"');
379         (Path   : in out ASU.Unbounded_String;
392                Path := ASU.To_Unbounded_String (Option & Directories);
557             File_Name : ASU.Unbounded_String;
564             if ASU.Length (File_Name) > 0 then
565                Put_Line (File, ASU.To_String (File_Name));
571                          Util.Pathes.Name (ASU.To_String (File_Name))));
577                      if Line = ASU.To_String (File_Name) then
584                         Open (File, In_File, ASU.To_String (File_Name));
593                         Open (File, In_File, ASU.To_String (File_Name));
708         ASU.To_Unbounded_String
712         ASU.To_Unbounded_String
715         ASU.To_Unbounded_String (Get_Tree_Directory (Project));
727             File_Name           : ASU.Unbounded_String;
747                "project " & Util.Pathes.Base_Name (ASU.To_String (File_Name)));
758                       ASU.To_String (Tree_Directory) & """;");
772                Util.Pathes.Base_Name (ASU.To_String (File_Name)) & ';');
778                  ("Temp project file " & ASU.To_String (File_Name) &
871       return ASU.To_String (Source_Directories);
878       return ASU.To_String (Tree_Directory);
885       return ASU.To_String (Output_Directory);
892       return ASU.To_String (Project_File_Name);
914                   ASU.To_String (Project_File_Name));
921                      ASU.To_String (Project_File_Name) & """:" &