Top Prev Next Up Down

Y2018.Text.Jets.MatchPack

001| with Ada.Containers;
002| with Ada.Containers.Ordered_Maps;
003| with Ada.Finalization; use Ada.Finalization;
004| with Y2018.Text.Jets.RangeVectorPack; use Y2018.Text.Jets.RangeVectorPack;
005| with Y2018.Text.Jets.JetsTool; use Y2018.Text.Jets.JetsTool;
006| with Y2018.Text.Core; use Y2018.Text.Core;
007| with Y2018.Text.Core.CVarPack; use Y2018.Text.Core.CVarPack;
008| with Ada.Containers.Vectors;
009| package Y2018.Text.Jets.MatchPack is
010| __type Match_TY is tagged private;
011| __type MatchID2RE_ID_Elem_TY is record
012| _____mid:MatchID; -- KEY
013| _____re:RE_Elem_AC;
014| _____ia:I_A;
015| _____val_J:Integer;
016| __end record;
017| __function MatchID2RE_ID_less(Left, Right : MatchID) return Boolean;
018| __function MatchID2RE_ID_equal(Left, Right : MatchID2RE_ID_Elem_TY) return Boolean;
019| __package MatchID2RE_ID_TY is new Ada.Containers.Ordered_Maps(
020| _____Key_Type=> MatchID,
021| _____Element_Type=> MatchID2RE_ID_Elem_TY,
022| _____"<" => MatchID2RE_ID_less,
023| _____"=" => MatchID2RE_ID_equal);
024| _____
025| __procedure insert(match:in out Match_TY;f:Integer;l:Integer;re:RE_Elem_AC);
026| __procedure getMatch(match:Match_TY;q:in out I_A_ARRAY);
027| __function getMatch(match:Match_TY) return I_A_ARRAY;
028| __function getCList(match:Match_TY;s : CFix:=Null_CFix) return CList.map;
029| __function hasMatch(match:Match_TY;mid:MatchID:=0) return Boolean;
030| __function firstMap(match:Match_TY) return MatchID2RE_ID_TY.Cursor;
031| __function size(match:Match_TY) return Integer;
032| __procedure Initialize (match:in out Match_TY);
033| __private type Match_TY is tagged
034| __record
035| _____map:MatchID2RE_ID_TY.map;
036| _____id:MatchID;
037| __end record;
038| end Y2018.Text.Jets.MatchPack;