Changeset 38


Ignore:
Timestamp:
Jun 4, 2014, 1:33:50 PM (7 years ago)
Author:
vadim.godunko
Message:

Rename members and parameter to reflect change in semantic.

Location:
trunk/forge/source/wiki
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/forge/source/wiki/forge-wiki-parsers.adb

    r37 r38  
    7474      Total_Groups  : Positive;
    7575      Markup_Group  : Natural;
    76       Offset_Group  : Positive;
     76      Text_Group    : Positive;
    7777      Parser_Tag    : Ada.Tags.Tag;
    7878   end record;
     
    152152              (if Block.Markup_Group = 0 then 0
    153153                 else Group + Block.Markup_Group),
    154             Offset_Group => Group + Block.Offset_Group,
     154            Text_Group   => Group + Block.Text_Group,
    155155            Is_Start     => Is_Start,
    156156            Parser_Tag   => Block.Parser_Tag));
     
    215215                 <= Match.Last_Index (Item.Match_Group)
    216216            then
    217                Text_First := Match.First_Index (Item.Offset_Group);
    218                Text_Last  := Match.Last_Index (Item.Offset_Group);
     217               Text_First := Match.First_Index (Item.Text_Group);
     218               Text_Last  := Match.Last_Index (Item.Text_Group);
    219219
    220220               if Item.Is_Start
     
    321321    (Regexp_String : League.Strings.Universal_String;
    322322     Total_Groups  : Positive;
    323      Offset_Group  : Positive;
     323     Text_Group    : Positive;
    324324     Tag           : Ada.Tags.Tag) is
    325325   begin
    326       Paragraph_Registry :=
    327        (Regexp_String, Total_Groups, 0, Offset_Group, Tag);
     326      Paragraph_Registry := (Regexp_String, Total_Groups, 0, Text_Group, Tag);
    328327   end Register_Paragraph_Block_Parser;
    329328
     
    336335     Total_Groups  : Positive;
    337336     Markup_Group  : Natural;
    338      Offset_Group  : Positive;
     337     Text_Group    : Positive;
    339338     Tag           : Ada.Tags.Tag) is
    340339   begin
    341340      Block_Registry.Append
    342        ((Regexp_String, Total_Groups, Markup_Group, Offset_Group, Tag));
     341       ((Regexp_String, Total_Groups, Markup_Group, Text_Group, Tag));
    343342   end Register_Block_Parser;
    344343
  • trunk/forge/source/wiki/forge-wiki-parsers.ads

    r30 r38  
    6969     Total_Groups  : Positive;
    7070     Markup_Group  : Natural;
    71      Offset_Group  : Positive;
     71     Text_Group    : Positive;
    7272     Tag           : Ada.Tags.Tag);
    7373   --  Registers custom block parser. Regexp_String is regular expression to
    74    --  detect start of custom block. Offset_Group is number of group in regular
     74   --  detect start of custom block. Text_Group is number of group in regular
    7575   --  expression which is used to detect position of first significant
    7676   --  character of text on block's start line. Total_Groups is total number of
     
    8181    (Regexp_String : League.Strings.Universal_String;
    8282     Total_Groups  : Positive;
    83      Offset_Group  : Positive;
     83     Text_Group    : Positive;
    8484     Tag           : Ada.Tags.Tag);
    8585   --  Register custom block parser for base paragraph block. Only one parser
     
    9191      Match_Group  : Positive;
    9292      Markup_Group : Natural;
    93       Offset_Group : Positive;
     93      Text_Group  : Positive;
    9494      --  Regular expression's groups to extract:
    9595      --   - matching of block element's regular expression
    9696      --   - markup part of block element (it is optional part)
    97       --   - start of text after markup part
     97      --   - text part of block element
    9898      Is_Start     : Boolean;
    9999      --  Regular expression detects start of new block element of this kind.
Note: See TracChangeset for help on using the changeset viewer.