init

Telegram/ThirdParty/range-v3/doc/unpreprocess.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $file = "";
+my $first = 1;
+my $emit = 0;
+
+while(<>) {
+    if ($first) {
+        $_ =~ m/^#\s*\d+\s+"(.*)"/;
+        $file = $1;
+        $first = 0;
+    } elsif ($_ =~ m/^#\s*\d+\s+"(.*)"/) {
+        $emit = ($1 eq $file);
+    } elsif ($emit) {
+        print $_;
+    }
+}