File : marks-scanners-opt.ads

-- Marks.Scanners.Opt (decl)
--
-- Mark-scanning using option-controlled prefixes.
--
-- Copyright (c) 2009 Tidorum Ltd.
--
-- This file is part of Find_Marks.
--
-- Find_Marks is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT 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
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.


with Marks.Scanners.Fixed;


package Marks.Scanners.Opt is

private


   type Opt_Scanner_T is new Fixed.Scanner_T with null record;
   --
   -- Scanning with option-settable prefix strings.


   -- overriding
   procedure Handle_Option (
      Option  : in     String;
      Scanner : in out Opt_Scanner_T;
      Valid   :    out Boolean;
      Chosen  :    out Boolean);


   -- overriding
   function Suffix_Chooses_Me (
      Suffix  : String;
      Scanner : Opt_Scanner_T)
   return Boolean;


end Marks.Scanners.Opt;