cfold

   1 #!/usr/bin/env perl
   2
   3 # cfold
   4 # File ID: 602c35c8-5d37-11df-a51d-90e6ba3022ac
   5 # Inserts fold marks in C source before and after stdin.
   6 # Select text in visual line mode and filter the block through this script.
   7
   8 use strict;
   9 use warnings;
  10
  11 $| = 1;
  12
  13 my $Line = <STDIN>;
  14 my ($Indent, $Title) = ("", "");
  15
  16 defined($ARGV[0]) && ($Title = join(" ", @ARGV) . " ");
  17 $Line =~ /^(\s+)/ && ($Indent = $1);
  18 print("$Indent/* $Title\x7B\x7B\x7B */\n$Line");
  19
  20 while (<STDIN>) {
  21         print($_);
  22 }
  23
  24 print("$Indent/* \x7D\x7D\x7D */\n");