For [GH #161] - extract codeblock

Lite/LanguageServer/SpecParser.pm

@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+package YATT::Lite::LanguageServer::SpecParser;
+use strict;
+use warnings qw(FATAL all NONFATAL misc);
+use File::AddInc;
+use MOP4Import::Base::CLI_JSON -as_base;
+
+# Lite/LanguageServer/SpecParser.pm --flatten --output=raw extract_codeblock typescript specification.md
+sub extract_codeblock {
+  (my MY $self, my $langId, local @ARGV) = @_;
+  local $_;
+  my ($chunk, @result);
+  while (<<>>) {
+    my $line = s{^```$langId\b}{} .. s{^```}{}
+      or next;
+    my $end = $line =~ /E0/;
+    s/\r//;
+    $chunk .= $_ if $line >= 2 and not $end;
+    if ($end) {
+      push @result, $chunk;
+      $chunk = "";
+    }
+  }
+  @result;
+}
+
+MY->run(\@ARGV) unless caller;
+1;