home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume6 / diffmk.p < prev    next >
Text File  |  1989-03-21  |  3KB  |  96 lines
  1. Newsgroups: comp.sources.misc
  2. Subject: v06i076: perl diffbar 
  3. Date: Wed, 15 Mar 89 15:57:46 PST
  4. From: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5. Reply-To: Randal L. Schwartz <merlyn@intelob.intel.com>
  6.  
  7. Posting-number: Volume 6, Issue 76
  8. Submitted-by: Randal L. Schwartz <merlyn@intelob.intel.com>
  9. Archive-name: diffmk.p
  10.  
  11. Here's a program to emulate the 'diffmk' command for those of us that
  12. don't have it.  It's also a chance for me to flex my perl muscles.
  13.  
  14. Requires perl (2.0?) and BSD-style "diff -D...".  See comments for
  15. usage.
  16.  
  17. #! /bin/sh
  18. # This file was wrapped with "dummyshar".  "sh" this file to extract.
  19. # Contents:  diffmk.p
  20. echo extracting 'diffmk.p'
  21. if test -f 'diffmk.p' -a -z "$1"; then echo Not overwriting 'diffmk.p'; else
  22. sed 's/^X//' << \EOF > 'diffmk.p'
  23. X#!/usr/bin/perl
  24. X# original version by merlyn (Randal L. Schwartz @ Stonehenge)
  25. X# LastEditDate = "Wed Mar 15 14:54:56 1989"
  26. X# requires /usr/bin/diff that understands -D
  27. X
  28. X($myname = $0) =~ s!.*/!!; # save this very early
  29. X
  30. Xsub usage {
  31. X    die join("\n",@_) .
  32. X    "\nusage: $myname [-aA] [-cC] [-dD] old-file new-file >marked-file\n";
  33. X}
  34. X
  35. X# defaults:
  36. X$marka = "+"; # lines that are added
  37. X$markc = "|"; # lines that are changed
  38. X$markd = "*"; # deletions (near where they were deleted)
  39. X
  40. Xwhile ($_ = shift) {
  41. X    $marka = $1, next if /^-a(.+)$/;
  42. X    $markc = $1, next if /^-c(.+)$/;
  43. X    $markd = $1, next if /^-d(.+)$/;
  44. X    do usage("unknown flag: $1") if /^(-.*)$/;
  45. X    unshift (@ARGV,$_), last;
  46. X}
  47. X
  48. Xdo usage("missing old-file") unless $#ARGV > -1;
  49. X
  50. Xdo usage("cannot read old-file '$old': $!") unless -r ($old = shift);
  51. X
  52. Xdo usage("missing new-file") unless $#ARGV > -1;
  53. X
  54. Xdo usage("cannot read new-file '$new': $!") unless -r ($new = shift);
  55. X
  56. Xdo usage("extra args") if $#ARGV > -1;
  57. X
  58. X$zzz = "___A_VERY_UNLIKELY_STRING___"; # separator string
  59. X
  60. Xopen(I,"exec /usr/bin/diff -D$zzz $old $new |") || die "cannot open diff: $!";
  61. X
  62. XMAIN: while (<I>) {
  63. X    if (/^#ifdef $zzz/) {
  64. X        print ".mc $marka\n";
  65. X        print while ($_ = <I>) && !/^#endif $zzz/;
  66. X        print ".mc\n";
  67. X        last MAIN if eof;
  68. X        next MAIN;
  69. X    }
  70. X    if (/^#ifndef $zzz/) {
  71. X        while (<I>) {
  72. X            if (/^#else $zzz/) {
  73. X                print ".mc $markc\n";
  74. X                print while ($_ = <I>) && !/^#endif $zzz/;
  75. X                print ".mc\n";
  76. X                last MAIN if eof;
  77. X                next MAIN;
  78. X            }
  79. X            if (/^#endif $zzz/) {
  80. X                print ".mc $markd\n.mc\n";
  81. X                next MAIN;
  82. X            }
  83. X        }
  84. X    }
  85. X    print;
  86. X}
  87. X
  88. Xclose(I);
  89. X
  90. Xexit 0;
  91. EOF
  92. chars=`wc -c < 'diffmk.p'`
  93. if test $chars !=     1636; then echo 'diffmk.p' is $chars characters, should be     1636 characters!; fi
  94. fi
  95. exit 0
  96.