Top Prev Next Up Down
ExPsi and ExPsi_PSECT
Code after precompilation:
001| with
Ada.Text_IO;
002| with Y2018.Text.Core; use
Y2018.Text.Core;
003| with Y2018.Text.Core.Str; use
Y2018.Text.Core.Str;
004| with Y2018.Text.Core.UTF;
005| with Y2018.Text.Jets; use
Y2018.Text.Jets;
006| with Y2018.Text.Jets.MatchPack;
007| with Y2018.Text.Jets.PatternPack;
008| with Y2018.Text.TestQ; use
Y2018.Text.TestQ;
009| with GNAT.Source_Info;
010|
011| with ExPsi_PSECT;
012| procedure ExPsi is
013| __patternvalue :
CFix:=ExPsi_PSECT.DHHHHH3E9;
014| __sourcevalue :
CFix:=ExPsi_PSECT.DHHHHH3EA;
015| __m :
Y2018.Text.Jets.MatchPack.Match_TY;
016| __jAC: PatternPack.Pattern_AC;
017| __nextPos : Integer;
018| begin
019| __jAC:=new PatternPack.Pattern;
020|
__PatternPack.compileM(jAC,patternvalue);
021| __if
PatternPack.matches(jAC,1,nextPos,sourcevalue,m) then
022| _____declare
023|
________r:Y2018.Text.Jets.I_A_ARRAY(0 .. MatchPack.size(m) - 1);
024| _____begin
025| ________MatchPack.getMatch(m,r);
026| ________for i in r'First(1) ..
r'Last(1) loop
027| ___________Ada.Text_IO.Put_Line
(Integer'image(i) & "|" & subIA(sourcevalue,r(i)));
028| ________end loop;
029| _____end;
030| __else
031| _____Ada.Text_IO.Put_Line
("FAIL");
032| __end if;
033| end ExPsi;
and corresponding ExPsi_PSECT:
001| --
GENERATED CODE --
002| with Y2018.Text.Core; use
Y2018.Text.Core;
003| package ExPsi_PSECT is
004| DHHHHH3E9:constant
CFix:=(CodePoint'Val(16#5E#),CodePoint'Val(16#2E#),CodePoint'Val(16#2A#),CodePoint'Val(16#3F#),
CodePoint'Val(16#28#),CodePoint'Val(16#50#),CodePoint'Val(16#5B#),CodePoint'Val(16#5C#),
CodePoint'Val(16#77#),CodePoint'Val(16#5D#),CodePoint'Val(16#2A#),CodePoint'Val(16#29#),
CodePoint'Val(16#2E#),CodePoint'Val(16#2A#));
005| DHHHHH3EA:constant
CFix:=(CodePoint'Val(16#45#),CodePoint'Val(16#78#),CodePoint'Val(16#50#),CodePoint'Val(16#73#),
CodePoint'Val(16#69#),CodePoint'Val(16#20#),CodePoint'Val(16#70#),CodePoint'Val(16#72#),
CodePoint'Val(16#6F#),CodePoint'Val(16#63#),CodePoint'Val(16#65#),CodePoint'Val(16#64#),
CodePoint'Val(16#75#),CodePoint'Val(16#72#),CodePoint'Val(16#65#));
006| end ExPsi_PSECT;
"ExPsi procedure"c
corresponds to DHHHHH3E9 constant
"^.*?(P[\w]*).*"c corresponds to
DHHHHH3EA constant