From ec304afac711970b50fddf542052948d1d71396e Mon Sep 17 00:00:00 2001
From: "Kobayasi, Hiroaki" <buribullet@gmail.com>
Date: Thu, 21 Mar 2019 19:37:27 +0900
Subject: [PATCH] For [GH #161] - extract codeblock

---
 Lite/LanguageServer/SpecParser.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 Lite/LanguageServer/SpecParser.pm

diff --git a/Lite/LanguageServer/SpecParser.pm b/Lite/LanguageServer/SpecParser.pm
new file mode 100755
index 00000000..b890e717
--- /dev/null
+++ b/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;