commout

   1 #!/usr/bin/env perl
   2
   3 #=======================================================================
   4 # commout
   5 # File ID: 998d8948-5d37-11df-86c9-90e6ba3022ac
   6 # Kommenterer ut stdin.
   7 #=======================================================================
   8
   9 use strict;
  10 use warnings;
  11
  12 my $comm_pattern = "";
  13 my $is_c    = 0;
  14 my $is_dbk  = 0;
  15 my $is_l    = 0;
  16 my $is_html = 0;
  17 my $is_pre  = 0;
  18 my $is_re   = 0;
  19 my $prog_name = "commout";
  20 my $spc_str = "";
  21 my $Kommentar = "";
  22
  23 if ($#ARGV > -1) {
  24     $_ = $ARGV[0];
  25     /^--h/ && &print_help(0) ||
  26     /^dbk$/i && ($is_dbk = 1) ||
  27     /^html$/i && ($is_html = 1) ||
  28     /^pre$/i && ($is_pre = 1) ||
  29     /^re$/i && ($is_re = 1, $is_pre = 1) ||
  30     /^c$/i && ($is_c = 1) ||
  31     /^l$/i && ($is_l = 1) ||
  32     ($comm_pattern = $ARGV[0]);
  33 } else {
  34     $comm_pattern = '#';
  35 }
  36
  37 if ($is_l) {
  38     my $Element = defined($ARGV[1]) ? $ARGV[1] : "l";
  39     while (<STDIN>) {
  40         chomp;
  41         print("<$Element>$_</$Element>\n");
  42     }
  43     exit 0;
  44 }
  45
  46 defined($ARGV[1]) && ($spc_str = " ", $Kommentar = $ARGV[1]);
  47
  48 $is_dbk && print("<!--$spc_str" . $Kommentar . " !-!\n") ||
  49 $is_html && print("<!--$spc_str" . $Kommentar . " \x7B\x7B\x7B\n") ||
  50 $is_pre && printf("%s<pre>\n", $is_re ? "" : "<p>") ||
  51 $is_c && printf("/*$spc_str" . $Kommentar . "\n");
  52
  53 my $Bck = "";
  54 while (<STDIN>) {
  55     ($is_dbk || $is_html || $is_pre || $is_c) || s/^([\t ]*)/$1$comm_pattern /;
  56     print;
  57     $Bck = $_;
  58 }
  59
  60 if ($is_html || $is_c) {
  61     # Hvis stdin ikke slutta med newline, skrives en space.
  62     $Bck =~ /\n$/ || print(" ");
  63 }
  64
  65 $is_dbk && print("-->\n") ||
  66 $is_html && print("\x7D\x7D\x7D -->\n") ||
  67 $is_pre && print("</pre>\n") ||
  68 $is_c && print(" */\n");
  69
  70 sub print_help {
  71     my $Retval = shift;
  72
  73     print <<END;
  74 Syntax:
  75
  76 $prog_name
  77   For bruk i bl.a. perl og sh. Setter '#' foran hver linje.
  78
  79 $prog_name dbk ["Overskrift"]
  80   dbk-filer.
  81
  82 $prog_name html ["Overskrift"]
  83   HTML-source.
  84
  85 $prog_name pre
  86   Også til html, men <p><pre> brukes istedenfor.
  87
  88 $prog_name re
  89   Som "pre", men uten <p> i begynnelsen.
  90
  91 $prog_name c
  92   C-kode. Setter inn /* */ .
  93
  94 $prog_name l [tag]
  95   XML-elementer. Setter inn <l> hvis ingenting skrives som parametere.
  96
  97 $prog_name [andre_ting]
  98   Setter [andre_ting] foran hver linje.
  99
 100 END
 101     exit($Retval);
 102 } # print_help()
 103
 104 # vim: set ts=4 sw=4 sts=4 et fenc=utf8 fo+=w2 :