update ast

1 files changed, 0 insertions, 29 deletions

diff --git a/ast/selectfc b/ast/selectfc
deleted file mode 100755
index abf0dc7..0000000
--- a/ast/selectfc
+++ /dev/null
@@ -1,29 +0,0 @@
-#! /usr/bin/env perl
-
-   $key = "c";
-   $select = 1;
-
-#  Read switches.
-   while ( $_ = $ARGV[0], /^-/ ) {
-      shift;
-      last if /^--$/;
-      if ( /^-f/ ) { $key = "f" };
-   }
-
-#  Read input lines.
-   line: while (<>) {
-
-#  Detect start of prologue and initialise prologue text.
-      if ( /^[fc]\+ *$/ ) {
-         $select = 0;
-         if ( /^$key\+ *$/o ) { $select = 1; }
-         next line;
-      }
-
-#  Detect end of prologue.
-      if ( /^[fc]- *$/ ) { $select = 1; next line }
-
-#  Process the prologue contents.
-      if ( $select ) { print; }
-
-   }