home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / gcc-lib / m68k-amigaos / 2.7.2.1 / adainclude / a-stwifi.ads < prev    next >
Encoding:
Text File  |  1995-10-17  |  7.5 KB  |  230 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                         GNAT RUNTIME COMPONENTS                          --
  4. --                                                                          --
  5. --               A D A . S T R I N G S . W I D E _ F I X E D                --
  6. --                                                                          --
  7. --                                 S p e c                                  --
  8. --                                                                          --
  9. --                            $Revision: 1.8 $                              --
  10. --                                                                          --
  11. --           Copyright (c) 1992,1993,1994 NYU, All Rights Reserved          --
  12. --                                                                          --
  13. -- GNAT is free software;  you can  redistribute it  and/or modify it under --
  14. -- terms of the  GNU General Public License as published  by the Free Soft- --
  15. -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  16. -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
  17. -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  18. -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  19. -- for  more details.  You should have  received  a copy of the GNU General --
  20. -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
  21. -- to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. --
  22. --                                                                          --
  23. ------------------------------------------------------------------------------
  24.  
  25.  
  26. with Ada.Strings.Wide_Maps;
  27.  
  28. package Ada.Strings.Wide_Fixed is
  29. pragma Preelaborate (Wide_Fixed);
  30.  
  31.    -------------------------------------------------------------------
  32.    -- Copy Procedure for Wide_Strings of Possibly Different Lengths --
  33.    -------------------------------------------------------------------
  34.  
  35.    procedure Move
  36.      (Source  : in  Wide_String;
  37.       Target  : out Wide_String;
  38.       Drop    : in  Truncation := Error;
  39.       Justify : in  Alignment  := Left;
  40.       Pad     : in  Wide_Character  := Ada.Strings.Wide_Space);
  41.  
  42.    ------------------------
  43.    -- Search Subprograms --
  44.    ------------------------
  45.  
  46.    function Index
  47.      (Source  : in Wide_String;
  48.       Pattern : in Wide_String;
  49.       Going   : in Direction := Forward;
  50.       Mapping : in Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
  51.       return    Natural;
  52.  
  53.    function Index
  54.      (Source  : in Wide_String;
  55.       Pattern : in Wide_String;
  56.       Going   : in Direction := Forward;
  57.       Mapping : in Wide_Maps.Wide_Character_Mapping_Function)
  58.       return    Natural;
  59.  
  60.    function Index
  61.      (Source : in Wide_String;
  62.       Set    : in Wide_Maps.Wide_Character_Set;
  63.       Test   : in Membership := Inside;
  64.       Going  : in Direction  := Forward)
  65.       return   Natural;
  66.  
  67.    function Index_Non_Blank
  68.      (Source : in Wide_String;
  69.       Going  : in Direction := Forward)
  70.       return   Natural;
  71.  
  72.    function Count
  73.      (Source  : in Wide_String;
  74.       Pattern : in Wide_String;
  75.       Mapping : in Wide_Maps.Wide_Character_Mapping := Wide_Maps.Identity)
  76.       return    Natural;
  77.  
  78.    function Count
  79.      (Source   : in Wide_String;
  80.       Pattern  : in Wide_String;
  81.       Mapping  : in Wide_Maps.Wide_Character_Mapping_Function)
  82.       return     Natural;
  83.  
  84.    function Count
  85.      (Source : in Wide_String;
  86.       Set    : in Wide_Maps.Wide_Character_Set)
  87.       return   Natural;
  88.  
  89.    procedure Find_Token
  90.      (Source : in Wide_String;
  91.       Set    : in Wide_Maps.Wide_Character_Set;
  92.       Test   : in Membership;
  93.       First  : out Positive;
  94.       Last   : out Natural);
  95.  
  96.    -----------------------------------------
  97.    -- Wide_String Translation Subprograms --
  98.    -----------------------------------------
  99.  
  100.    function Translate
  101.      (Source  : in Wide_String;
  102.       Mapping : in Wide_Maps.Wide_Character_Mapping)
  103.       return    Wide_String;
  104.  
  105.    procedure Translate
  106.      (Source  : in out Wide_String;
  107.       Mapping : in Wide_Maps.Wide_Character_Mapping);
  108.  
  109.    function Translate
  110.      (Source  : in Wide_String;
  111.       Mapping : in Wide_Maps.Wide_Character_Mapping_Function)
  112.       return    Wide_String;
  113.  
  114.    procedure Translate
  115.      (Source  : in out Wide_String;
  116.       Mapping : in Wide_Maps.Wide_Character_Mapping_Function);
  117.  
  118.    --------------------------------------------
  119.    -- Wide_String Transformation Subprograms --
  120.    --------------------------------------------
  121.  
  122.    function Replace_Slice
  123.      (Source : in Wide_String;
  124.       Low    : in Positive;
  125.       High   : in Natural;
  126.       By     : in Wide_String)
  127.       return   Wide_String;
  128.  
  129.    procedure Replace_Slice
  130.      (Source  : in out Wide_String;
  131.       Low     : in Positive;
  132.       High    : in Natural;
  133.       By      : in Wide_String;
  134.       Drop    : in Truncation := Error;
  135.       Justify : in Alignment  := Left;
  136.       Pad     : in Wide_Character  := Ada.Strings.Wide_Space);
  137.  
  138.    function Insert
  139.      (Source   : in Wide_String;
  140.       Before   : in Positive;
  141.       New_Item : in Wide_String)
  142.       return     Wide_String;
  143.  
  144.    procedure Insert
  145.      (Source   : in out Wide_String;
  146.       Before   : in Positive;
  147.       New_Item : in Wide_String;
  148.       Drop     : in Truncation := Error);
  149.  
  150.    function Overwrite
  151.      (Source   : in Wide_String;
  152.       Position : in Positive;
  153.       New_Item : in Wide_String)
  154.       return     Wide_String;
  155.  
  156.    procedure Overwrite
  157.      (Source   : in out Wide_String;
  158.       Position : in Positive;
  159.       New_Item : in Wide_String;
  160.       Drop     : in Truncation := Right);
  161.  
  162.    function Delete
  163.      (Source  : in Wide_String;
  164.       From    : in Positive;
  165.       Through : in Natural)
  166.       return    Wide_String;
  167.  
  168.    procedure Delete
  169.      (Source  : in out Wide_String;
  170.       From    : in Positive;
  171.       Through : in Natural;
  172.       Justify : in Alignment := Left;
  173.       Pad     : in Wide_Character := Ada.Strings.Wide_Space);
  174.  
  175.    --------------------------------------
  176.    -- Wide_String Selector Subprograms --
  177.    --------------------------------------
  178.  
  179.    function Trim
  180.      (Source : in Wide_String;
  181.       Side   : in Trim_End)
  182.       return   Wide_String;
  183.  
  184.    procedure Trim
  185.      (Source  : in out Wide_String;
  186.       Side    : in Trim_End;
  187.       Justify : in Alignment      := Left;
  188.       Pad     : in Wide_Character := Wide_Space);
  189.  
  190.    function Trim
  191.      (Source : in Wide_String;
  192.       Left   : in Wide_Maps.Wide_Character_Set;
  193.       Right  : in Wide_Maps.Wide_Character_Set)
  194.       return   Wide_String;
  195.  
  196.    procedure Trim
  197.      (Source  : in out Wide_String;
  198.       Left    : in Wide_Maps.Wide_Character_Set;
  199.       Right   : in Wide_Maps.Wide_Character_Set;
  200.       Justify : in Alignment := Ada.Strings.Left;
  201.       Pad     : in Wide_Character := Ada.Strings.Wide_Space);
  202.  
  203.    function Head
  204.      (Source : in Wide_String;
  205.       Count  : in Natural;
  206.       Pad    : in Wide_Character := Ada.Strings.Wide_Space)
  207.       return   Wide_String;
  208.  
  209.    function Tail
  210.      (Source : in Wide_String;
  211.       Count  : in Natural;
  212.       Pad    : in Wide_Character := Ada.Strings.Wide_Space)
  213.       return   Wide_String;
  214.  
  215.    ---------------------------------------
  216.    -- Wide_String Constructor Functions --
  217.    ---------------------------------------
  218.  
  219.    function "*"
  220.      (Left  : in Natural;
  221.       Right : in Wide_Character)
  222.       return  Wide_String;
  223.  
  224.    function "*"
  225.      (Left  : in Natural;
  226.       Right : in Wide_String)
  227.       return Wide_String;
  228.  
  229. end Ada.Strings.Wide_Fixed;
  230.