For [GH #161] - extract_statement_list

hkoba · Mar 21, 2019 · c111555 · c111555
1 parent ec304af
commit c111555
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/Lite/LanguageServer/SpecParser.pm b/Lite/LanguageServer/SpecParser.pm
@@ -5,6 +5,25 @@ use warnings qw(FATAL all NONFATAL misc);
 use File::AddInc;
 use MOP4Import::Base::CLI_JSON -as_base;
 
+sub extract_statement_list {
+  (my MY $self, my ($codeList)) = @_;
+  local $_;
+  my $wordRe = qr{[^\s{}]};
+  my $groupRe = qr{( \{ (?: (?> [^{}]+) | (?-1) )* \} )}x;
+  my $commentRe = qr{/\*\*\n(?:.*?)\*/\n?}sx;
+  my @result;
+  foreach (@$codeList) {
+    while (m{
+              \G(?<comment>$commentRe)?
+              (?<decl>(?:$wordRe+\s+)+)
+              (?<body> $groupRe )
+          }sgx) {
+      push @result, [$+{decl}, $+{comment}, $+{body}];
+    }
+  }
+  @result;
+}
+
 # Lite/LanguageServer/SpecParser.pm --flatten --output=raw extract_codeblock typescript specification.md
 sub extract_codeblock {
   (my MY $self, my $langId, local @ARGV) = @_;