diff options
Diffstat (limited to 'ast/selectfc')
-rwxr-xr-x | ast/selectfc | 29 |
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; } - - } |