aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/a-strsea.ads
diff options
context:
space:
mode:
authorRichard Kenner <kenner@gcc.gnu.org>2001-10-02 09:55:47 -0400
committerRichard Kenner <kenner@gcc.gnu.org>2001-10-02 09:55:47 -0400
commitd23b8f573b3dcbfc04d13387885059de809aec50 (patch)
tree2984031fa75d4e716ac1f562efe5ae818a291ca8 /gcc/ada/a-strsea.ads
parent84481f762f0682e5f45b2f360446e1c7e333c880 (diff)
downloadgcc-d23b8f573b3dcbfc04d13387885059de809aec50.zip
gcc-d23b8f573b3dcbfc04d13387885059de809aec50.tar.gz
gcc-d23b8f573b3dcbfc04d13387885059de809aec50.tar.bz2
New Language: Ada
From-SVN: r45953
Diffstat (limited to 'gcc/ada/a-strsea.ads')
-rw-r--r--gcc/ada/a-strsea.ads100
1 files changed, 100 insertions, 0 deletions
diff --git a/gcc/ada/a-strsea.ads b/gcc/ada/a-strsea.ads
new file mode 100644
index 0000000..9819bf4
--- /dev/null
+++ b/gcc/ada/a-strsea.ads
@@ -0,0 +1,100 @@
+------------------------------------------------------------------------------
+-- --
+-- GNAT RUN-TIME COMPONENTS --
+-- --
+-- A D A . S T R I N G S . S E A R C H --
+-- --
+-- S p e c --
+-- --
+-- $Revision: 1.10 $ --
+-- --
+-- Copyright (C) 1992-1997 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- --
+-- ware Foundation; either version 2, or (at your option) any later ver- --
+-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
+-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
+-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
+-- for more details. You should have received a copy of the GNU General --
+-- Public License distributed with GNAT; see file COPYING. If not, write --
+-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
+-- MA 02111-1307, USA. --
+-- --
+-- As a special exception, if other files instantiate generics from this --
+-- unit, or you link this unit with other files to produce an executable, --
+-- this unit does not by itself cause the resulting executable to be --
+-- covered by the GNU General Public License. This exception does not --
+-- however invalidate any other reasons why the executable file might be --
+-- covered by the GNU Public License. --
+-- --
+-- GNAT was originally developed by the GNAT team at New York University. --
+-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- --
+------------------------------------------------------------------------------
+
+-- This package contains the search functions from Ada.Strings.Fixed. They
+-- are separated out because they are shared by Ada.Strings.Bounded and
+-- Ada.Strings.Unbounded, and we don't want to drag other irrelevant stuff
+-- from Ada.Strings.Fixed when using the other two packages. We make this
+-- a private package, since user programs should access these subprograms
+-- via one of the standard string packages.
+
+with Ada.Strings.Maps;
+
+private package Ada.Strings.Search is
+pragma Preelaborate (Search);
+
+ function Index
+ (Source : in String;
+ Pattern : in String;
+ Going : in Direction := Forward;
+ Mapping : in Maps.Character_Mapping := Maps.Identity)
+ return Natural;
+
+ function Index
+ (Source : in String;
+ Pattern : in String;
+ Going : in Direction := Forward;
+ Mapping : in Maps.Character_Mapping_Function)
+ return Natural;
+
+ function Index
+ (Source : in String;
+ Set : in Maps.Character_Set;
+ Test : in Membership := Inside;
+ Going : in Direction := Forward)
+ return Natural;
+
+ function Index_Non_Blank
+ (Source : in String;
+ Going : in Direction := Forward)
+ return Natural;
+
+ function Count
+ (Source : in String;
+ Pattern : in String;
+ Mapping : in Maps.Character_Mapping := Maps.Identity)
+ return Natural;
+
+ function Count
+ (Source : in String;
+ Pattern : in String;
+ Mapping : in Maps.Character_Mapping_Function)
+ return Natural;
+
+ function Count
+ (Source : in String;
+ Set : in Maps.Character_Set)
+ return Natural;
+
+
+ procedure Find_Token
+ (Source : in String;
+ Set : in Maps.Character_Set;
+ Test : in Membership;
+ First : out Positive;
+ Last : out Natural);
+
+end Ada.Strings.Search;