home *** CD-ROM | disk | FTP | other *** search
/ Superpower (Alt) / SUPERPOWER.iso / q / patch / mbq090 / _conv.pl < prev    next >
Encoding:
Perl Script  |  1996-08-17  |  1.8 KB  |  56 lines
  1. #!/usr/bin/perl
  2.  
  3. #
  4. # conv.pl
  5. #
  6. # Copyright (C) 1996 Johannes Plass
  7. # 
  8. # This program is free software; you can redistribute it and/or modify
  9. # it under the terms of the GNU General Public License as published by
  10. # the Free Software Foundation; either version 2 of the License, or
  11. # (at your option) any later version.
  12. # 
  13. # This program is distributed in the hope that it will be useful,
  14. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. # GNU General Public License for more details.
  17. #
  18. # You should have received a copy of the GNU General Public License
  19. # along with this program; if not, write to the Free Software
  20. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21. # 
  22. # Author:   Johannes Plass (plass@dipmza.physik.uni-mainz.de)
  23. #
  24.  
  25. $addcr=0; # strip cr by default
  26. if ($ARGV[0] =~ /.*dos/) { $addcr=1; }
  27.  
  28. $qc_files = "*.qc *.qh progs.src progdefs.h";
  29. $listfile="sources.list";
  30. unlink($listfile);
  31. system("ls -1 $qc_files > $listfile");
  32. open (LISTFILE,  "<" . $listfile) || die "no list of files";
  33. while ($srcfile=<LISTFILE>) {
  34.     chop $srcfile;
  35.     $destfile = "$srcfile.tmp";
  36.     if ($addcr) { print("Adding CR to $srcfile.\n"); }
  37.     else        { print("Stripping CR from $srcfile.\n"); }
  38.     unlink($destfile);
  39.     open (DESTFILE,  ">" . "$destfile") || die "cannot open destfile";
  40.     if (open (SRCFILE,  "<" . "$srcfile") || die "cannot open srcfile") {
  41.     while ($line = <SRCFILE>) {
  42.         if ($addcr) {
  43.         if ($line =~ /^.*[^\r]$/) { $line =~ s/^(.*)$/$1\r/;   }        
  44.         } else {
  45.         if ($line =~ /^.*\r+$/)   { $line =~ s/^(.*?)\r+$/$1/; }
  46.         }
  47.         print DESTFILE $line;
  48.         }
  49.     }
  50.     close SRCFILE;
  51.     close DESTFILE;
  52.     system("mv $destfile $srcfile");
  53. }
  54. close LISTFILE;
  55. unlink($listfile);
  56.