← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/adacontrol/jaunty

« back to all changes in this revision

Viewing changes to src/string_matching_gnat.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2006-10-12 19:17:22 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20061012191722-fo5bcn4k5r0iubgd
Tags: 1.5r24-1

* New upstream release.
* debian/control (Depends): add gnat-4.1.
  (Enhances): add gnat-gps.
* debian/adacontrol.gpr: build pfni.
* debian/rules: install the new gnat-gps plug-in, and pfni.
* debian/pfni.1: new.
* patches/gps-integration.patch: new.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/string_matching_gnat.adb
41
41
   function Compile (Pattern     : Wide_String;
42
42
                     Ignore_Case : Boolean := False) return Compiled_Pattern
43
43
   is
44
 
      use Gnat.Regpat, Ada.Exceptions, Ada.Characters.Handling;
 
44
      use GNAT.Regpat, Ada.Exceptions, Ada.Characters.Handling;
45
45
   begin
46
46
      -- Call the inherited "Compile":
47
47
      if Ignore_Case then
59
59
   ------------------------------
60
60
 
61
61
   function Match (Source : Wide_String; Pattern : Compiled_Pattern) return Boolean is
62
 
      use Gnat.Regpat, Ada.Characters.Handling;
 
62
      use Ada.Characters.Handling;
63
63
      String_Source : constant String := To_String (Source);
64
64
   begin
65
65
      -- We do not use the version of Match that returns a boolean, because it was not
76
76
                   Pattern     : Wide_String;
77
77
                   Ignore_Case : Boolean := False) return Boolean
78
78
   is
79
 
      --Compiled_Pat : constant Compiled_Pattern := Compile (Pattern, Ignore_Case);
80
79
   begin
81
80
      return Match (Source, Compile (Pattern, Ignore_Case));
82
81
   end Match;