Rewrote spec2md in python.

Better to only require python, not python and perl.

1 files changed, 0 insertions, 36 deletions

diff --git a/spec2md.pl b/spec2md.pl
deleted file mode 100644
index 313f86f..0000000
--- a/spec2md.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-
-my $stage = 0;
-my $example = 0;
-my @match;
-my $section = "";
-
-while (<STDIN>) {
-  if (/^\.$/) {
-    if ($stage == 0) {
-      $example++;
-      print "\n<div class=\"example\" id=\"example-$example\" data-section=\"$section\">\n";
-      print "<div class=\"examplenum\"><a href=\"#example-$example\">Example $example</a>&nbsp;&nbsp;<a class=\"dingus\" title=\"open in interactive dingus\">(interact)</a></div>\n\n";
-      print "````````````````````````````````````````````````````````` markdown\n";
-    } elsif ($stage == 1) {
-      print "`````````````````````````````````````````````````````````\n\n";
-      print "````````````````````````````````````````````````````````` html\n";
-    } elsif ($stage == 2) {
-      print "`````````````````````````````````````````````````````````\n\n";
-      print "</div>\n\n";
-    } else {
-      die "Encountered unknown stage $stage";
-    }
-    $stage = ($stage + 1) % 3;
-  } else {
-    if ($stage == 0 && (@match = ($_ =~ /^#{1,6} *(.*)/))) {
-        $section = $match[0];
-    }
-    if ($stage != 0) {
-      $_ =~ s/ /␣/g;
-    }
-    print $_;
-  }
-}