support FIND REGEX RESULTS

[larshp]

https://github.com/abaplint/transpiler/blob/master/packages/runtime/src/statements/find.ts

[larshp]

basic test case,

TYPES: BEGIN OF ty_submatch,
         offset TYPE i,
         length TYPE i,
       END OF ty_submatch.

TYPES: BEGIN OF ty_match,
         line       TYPE i,
         offset     TYPE i,
         length     TYPE i,
         submatches TYPE STANDARD TABLE OF ty_submatch WITH DEFAULT KEY,
       END OF ty_match.

DATA lt_matches TYPE STANDARD TABLE OF ty_match WITH DEFAULT KEY.
DATA ls_match LIKE LINE OF lt_matches.
DATA ls_submatch LIKE LINE OF ls_match-submatches.

FIND REGEX |bar| IN |hello bar world| RESULTS lt_matches.
ASSERT lines( lt_matches ) = 1.
READ TABLE lt_matches INDEX 1 INTO ls_match.
ASSERT ls_match-line = 0.
ASSERT ls_match-offset = 6.
ASSERT ls_match-length = 3.
ASSERT lines( ls_match-submatches ) = 0.

FIND REGEX |(bar)| IN |hello bar world| RESULTS lt_matches.
ASSERT lines( lt_matches ) = 1.
READ TABLE lt_matches INDEX 1 INTO ls_match.
ASSERT lines( ls_match-submatches ) = 1.
READ TABLE ls_match-submatches INDEX 1 INTO ls_submatch.
ASSERT ls_submatch-offset = 6.
ASSERT ls_submatch-length = 3.

[larshp]

done, closing