Changeset 38
- Timestamp:
- Jun 4, 2014, 1:33:50 PM (8 years ago)
- Location:
- trunk/forge/source/wiki
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/forge/source/wiki/forge-wiki-parsers.adb
r37 r38 74 74 Total_Groups : Positive; 75 75 Markup_Group : Natural; 76 Offset_Group: Positive;76 Text_Group : Positive; 77 77 Parser_Tag : Ada.Tags.Tag; 78 78 end record; … … 152 152 (if Block.Markup_Group = 0 then 0 153 153 else Group + Block.Markup_Group), 154 Offset_Group => Group + Block.Offset_Group,154 Text_Group => Group + Block.Text_Group, 155 155 Is_Start => Is_Start, 156 156 Parser_Tag => Block.Parser_Tag)); … … 215 215 <= Match.Last_Index (Item.Match_Group) 216 216 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); 219 219 220 220 if Item.Is_Start … … 321 321 (Regexp_String : League.Strings.Universal_String; 322 322 Total_Groups : Positive; 323 Offset_Group: Positive;323 Text_Group : Positive; 324 324 Tag : Ada.Tags.Tag) is 325 325 begin 326 Paragraph_Registry := 327 (Regexp_String, Total_Groups, 0, Offset_Group, Tag); 326 Paragraph_Registry := (Regexp_String, Total_Groups, 0, Text_Group, Tag); 328 327 end Register_Paragraph_Block_Parser; 329 328 … … 336 335 Total_Groups : Positive; 337 336 Markup_Group : Natural; 338 Offset_Group: Positive;337 Text_Group : Positive; 339 338 Tag : Ada.Tags.Tag) is 340 339 begin 341 340 Block_Registry.Append 342 ((Regexp_String, Total_Groups, Markup_Group, Offset_Group, Tag));341 ((Regexp_String, Total_Groups, Markup_Group, Text_Group, Tag)); 343 342 end Register_Block_Parser; 344 343 -
trunk/forge/source/wiki/forge-wiki-parsers.ads
r30 r38 69 69 Total_Groups : Positive; 70 70 Markup_Group : Natural; 71 Offset_Group: Positive;71 Text_Group : Positive; 72 72 Tag : Ada.Tags.Tag); 73 73 -- Registers custom block parser. Regexp_String is regular expression to 74 -- detect start of custom block. Offset_Group is number of group in regular74 -- detect start of custom block. Text_Group is number of group in regular 75 75 -- expression which is used to detect position of first significant 76 76 -- character of text on block's start line. Total_Groups is total number of … … 81 81 (Regexp_String : League.Strings.Universal_String; 82 82 Total_Groups : Positive; 83 Offset_Group: Positive;83 Text_Group : Positive; 84 84 Tag : Ada.Tags.Tag); 85 85 -- Register custom block parser for base paragraph block. Only one parser … … 91 91 Match_Group : Positive; 92 92 Markup_Group : Natural; 93 Offset_Group: Positive;93 Text_Group : Positive; 94 94 -- Regular expression's groups to extract: 95 95 -- - matching of block element's regular expression 96 96 -- - markup part of block element (it is optional part) 97 -- - start of text after markup part97 -- - text part of block element 98 98 Is_Start : Boolean; 99 99 -- Regular expression detects start of new block element of this kind.
Note:
See TracChangeset
for help on using the changeset viewer.