home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / checknews < prev    next >
Encoding:
Text File  |  1991-05-16  |  1.8 KB  |  75 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # checknews -- pipe to words for formatting.
  4. # by Tom Christiansen <tchrist@convex.com>
  5.  
  6. &getwin;
  7.  
  8. #$ARGV[0] eq '-c' && ($chopit++, shift);
  9. $chopit++;
  10.  
  11. $WIDTH = ($cols > 80) ? 20: 13;
  12.  
  13. die "can't fork: $!" unless defined ($pid = open(WORDS, "|-"));
  14. if ($pid) {
  15.     select(WORDS);
  16.     open(RN, "rn -t -s750 -c @ARGV|");
  17.     @newsgroups = <RN>;
  18.     $chopit = 0  if @newsgroups < 5;
  19.     for (@newsgroups) {
  20.     next unless ($_, $count) = /^(\S+): (\d+)/;
  21.     0 while $chopit && $WIDTH < length && s/\b(\w)[^.]+\./$1./;
  22.     $_ = sprintf("%3d %s\n", $count, $_);
  23.     s/ +$//;
  24.     print;
  25.     }
  26.     close WORDS;
  27.     wait;
  28.     exit $?;
  29. } 
  30.  
  31.  
  32. ##################################################################
  33. # from here on in is my basic "words" script...  included here
  34. # so that checknews is self-contained.  some versions of pr
  35. # are smart enough to do this.  sadly, ours is not one of them.
  36.  
  37. sub eol { ($elt+1) % $cols == 0; }    # is this the last elt on line?
  38.  
  39. $maxlen = 1;    # widest string yet seen
  40.  
  41.  
  42.  
  43. while (<STDIN>) {     # read stdin into $_
  44.     s/\s+$//;
  45.     $maxlen = $mylen if (($mylen = length($_)) > $maxlen);
  46.     push(list, $_);
  47. } 
  48.  
  49. $maxlen += 1;  # spaces
  50.  
  51. $cols = int($cols / $maxlen);
  52. $rows = int(($#list+$cols) / $cols);
  53. $mask = sprintf("%%-%ds ", $maxlen);
  54.  
  55. for ($elt = 0; $elt < $rows * $cols; $elt++) { 
  56.     $target =  ($elt%$cols) * $rows + int(($elt/$cols));
  57.     $piece = sprintf($mask, $target < ($#list+1) ? $list[$target] : "");
  58.     $piece =~ s/\s+$// if do eol();  # don't blank pad to eol of line
  59.     print $piece;
  60.     print "\n" if do eol();
  61. }
  62.  
  63. print "\n" if do eol();
  64.  
  65. exit 0;
  66.  
  67. sub getwin {
  68.     $TIOCGWINSZ = 0x40087468;  # should be require sys/ioctl.pl
  69.     if (ioctl(STDOUT, $TIOCGWINSZ, $winsize)) {
  70.     ($rows, $cols, $xpixel, $ypixel) = unpack('S4', $winsize);
  71.     } else {
  72.     $cols = 80;
  73.     }
  74. }
  75.