diff options
Diffstat (limited to 'gcc/ada/a-strsea.ads')
| -rw-r--r-- | gcc/ada/a-strsea.ads | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/gcc/ada/a-strsea.ads b/gcc/ada/a-strsea.ads index c176d12d626..457b452f202 100644 --- a/gcc/ada/a-strsea.ads +++ b/gcc/ada/a-strsea.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -61,8 +61,34 @@ pragma Preelaborate (Search); Test : Membership := Inside; Going : Direction := Forward) return Natural; + function Index + (Source : String; + Pattern : String; + From : Positive; + Going : Direction := Forward; + Mapping : Maps.Character_Mapping := Maps.Identity) return Natural; + + function Index + (Source : String; + Pattern : String; + From : Positive; + Going : Direction := Forward; + Mapping : Maps.Character_Mapping_Function) return Natural; + + function Index + (Source : String; + Set : Maps.Character_Set; + From : Positive; + Test : Membership := Inside; + Going : Direction := Forward) return Natural; + + function Index_Non_Blank + (Source : String; + Going : Direction := Forward) return Natural; + function Index_Non_Blank (Source : String; + From : Positive; Going : Direction := Forward) return Natural; function Count |