← Back to branch summary

~ubuntu-branches/ubuntu/trusty/dh-ada-library/trusty-proposed

« back to all changes in this revision

Viewing changes to src/projects.ads

  • Committer: Package Import Robot
  • Author(s): Nicolas Boulenguez
  • Date: 2013-08-23 00:44:25 UTC
  • Revision ID: package-import@ubuntu.com-20130823004425-w1t4xtps284el5xr
Tags: 5.4
* Do not link /usr/share/doc/dbg_pkg -> lib_pkg because replacing a
  directory with a symbolic link causes upgrade problems.
* Configure gnatprj to understand Ada separate units (gtkada).
* Set installed files read-only (templates_parser).
* Handle versioned -dbg package names (xmlada templates_parser),
  until they can obey the Ada policy.
* Handle package where the library name contains an underscore and
  the package name a minus sign (templates-parser).
* Adapt generated project to source naming exceptions (templates_parser).

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/projects.ads
71
71
   --  library project.
72
72
 
73
73
   procedure Iterate_On_Ali_Files
 
74
     --  Process each ALI file. Each Ada unit has an ALI file, named
 
75
     --  after the path of the compiled body, or specification in the
 
76
     --  absence of a body.
 
77
     --  Separate bodies do not have an ALI file.
 
78
     --  If the unit is found in a a name with an usual naming scheme,
 
79
     --  the ALI file is named after the actual file, not the replaced
 
80
     --  one. Renaming an ALI file is not wise, as they contain this
 
81
     --  actual name.
74
82
     (Project : in Project_Record;
75
83
      Process : not null access procedure (Path : in String));
76
84
   No_Ada_Sources : exception;
80
88
      Process : not null access procedure (Option : in String));
81
89
   --  Leading_Library_options are processed first, if any.
82
90
 
 
91
   procedure Iterate_On_Naming_Exceptions
 
92
     (Project : in Project_Record;
 
93
      Process : not null access procedure (Unit    : in String;
 
94
                                           File    : in String;
 
95
                                           Is_Body : in Boolean));
 
96
   --  Separate bodies are reported with Is_Body.
 
97
 
83
98
   procedure Iterate_On_Sources
84
99
     (Project : in Project_Record;
85
100
      Process : not null access procedure (Path : in String));