openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File wdiff-0.5.2.dif of Package wdiff (Revision 4b7a9bc4b16a551cebd733879e27c976)

Currently displaying revision 4b7a9bc4b16a551cebd733879e27c976 , Show latest

--- configure.in
+++ configure.in
@@ -26,7 +26,7 @@
 AC_DEFINE_UNQUOTED(PAGER_PROGRAM, "$PAGER")
 
 AC_PROG_CC
-AM_PROG_INSTALL
+AC_PROG_INSTALL
 AC_PROG_RANLIB
 
 AC_AIX
--- po/Makefile.in.in
+++ po/Makefile.in.in
@@ -124,9 +124,9 @@
 install-data-no: all
 install-data-yes: all
 	if test -r $(MKINSTALLDIRS); then \
-	  $(MKINSTALLDIRS) $(datadir); \
+	  $(MKINSTALLDIRS) $(DESTDIR)$(datadir); \
 	else \
-	  $(top_srcdir)/mkinstalldirs $(datadir); \
+	  $(top_srcdir)/mkinstalldirs $(DESTDIR)$(datadir); \
 	fi
 	@catalogs='$(CATALOGS)'; \
 	for cat in $$catalogs; do \
@@ -137,25 +137,25 @@
 	  lang=`echo $$cat | sed 's/$(CATOBJEXT)$$//'`; \
 	  dir=$$destdir/$$lang/LC_MESSAGES; \
 	  if test -r $(MKINSTALLDIRS); then \
-	    $(MKINSTALLDIRS) $$dir; \
+	    $(MKINSTALLDIRS) $(DESTDIR)$$dir; \
 	  else \
-	    $(top_srcdir)/mkinstalldirs $$dir; \
+	    $(top_srcdir)/mkinstalldirs $(DESTDIR)$$dir; \
 	  fi; \
 	  if test -r $$cat; then \
-	    $(INSTALL_DATA) $$cat $$dir/$(PACKAGE)$(INSTOBJEXT); \
+	    $(INSTALL_DATA) $$cat $(DESTDIR)$$dir/$(PACKAGE)$(INSTOBJEXT); \
 	    echo "installing $$cat as $$dir/$(PACKAGE)$(INSTOBJEXT)"; \
 	  else \
-	    $(INSTALL_DATA) $(srcdir)/$$cat $$dir/$(PACKAGE)$(INSTOBJEXT); \
+	    $(INSTALL_DATA) $(srcdir)/$$cat $(DESTDIR)$$dir/$(PACKAGE)$(INSTOBJEXT); \
 	    echo "installing $(srcdir)/$$cat as" \
 		 "$$dir/$(PACKAGE)$(INSTOBJEXT)"; \
 	  fi; \
 	  if test -r $$cat.m; then \
-	    $(INSTALL_DATA) $$cat.m $$dir/$(PACKAGE)$(INSTOBJEXT).m; \
+	    $(INSTALL_DATA) $$cat.m $(DESTDIR)$$dir/$(PACKAGE)$(INSTOBJEXT).m; \
 	    echo "installing $$cat.m as $$dir/$(PACKAGE)$(INSTOBJEXT).m"; \
 	  else \
 	    if test -r $(srcdir)/$$cat.m ; then \
 	      $(INSTALL_DATA) $(srcdir)/$$cat.m \
-		$$dir/$(PACKAGE)$(INSTOBJEXT).m; \
+		$(DESTDIR)$$dir/$(PACKAGE)$(INSTOBJEXT).m; \
 	      echo "installing $(srcdir)/$$cat as" \
 		   "$$dir/$(PACKAGE)$(INSTOBJEXT).m"; \
 	    else \
@@ -165,12 +165,12 @@
 	done
 	if test "$(PACKAGE)" = "gettext"; then \
 	  if test -r $(MKINSTALLDIRS); then \
-	    $(MKINSTALLDIRS) $(gettextsrcdir); \
+	    $(MKINSTALLDIRS) $(DESTDIR)$(gettextsrcdir); \
 	  else \
-	    $(top_srcdir)/mkinstalldirs $(gettextsrcdir); \
+	    $(top_srcdir)/mkinstalldirs $(DESTDIR)$(gettextsrcdir); \
 	  fi; \
 	  cd $(srcdir) && \
-	    $(INSTALL_DATA) Makefile.in.in $(gettextsrcdir)/Makefile.in.in; \
+	    $(INSTALL_DATA) Makefile.in.in $(DESTDIR)$(gettextsrcdir)/Makefile.in.in; \
 	else \
 	  : ; \
 	fi
--- src/unify.c
+++ src/unify.c
@@ -20,6 +20,8 @@
 
    Originally written by Wayne Davison <davison@borland.com>.  */
 
+#include <string.h>
+
 #include "system.h"
 #include "getopt.h"
 
--- src/wdiff.c
+++ src/wdiff.c
@@ -16,6 +16,10 @@
    along with this program; if not, write to the Free Software Foundation,
    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
+#ifdef LERMEN_STUFF
+#define LVERSION "L3"
+#endif
+
 #include "system.h"
 
 /* Exit codes values.  */
@@ -52,7 +56,9 @@
 # endif
 #endif
 
-char *strstr ();
+#ifndef strstr
+/*char *strstr ();*/
+#endif
 
 #if HAVE_TPUTS
 # if HAVE_TERMCAP_H
@@ -110,11 +116,15 @@
   {"no-deleted"  , 0, NULL, '1'},
   {"no-inserted" , 0, NULL, '2'},
   {"printer"     , 0, NULL, 'p'},
+  {"punctuation" , 0, NULL, 'P'},
   {"start-delete", 1, NULL, 'w'},
   {"start-insert", 1, NULL, 'y'},
   {"statistics"  , 0, NULL, 's'},
   {"terminal"    , 0, NULL, 't'},
   {"version"     , 0, NULL, 'V'},
+#ifdef LERMEN_STUFF
+  {"context"     , 1, NULL, 'c'},
+#endif
   {NULL          , 0, NULL, 0}
 };
 
@@ -127,6 +137,7 @@
 int inhibit_right;		/* inhibit display of left side words */
 int inhibit_common;		/* inhibit display of common words */
 int ignore_case;		/* ignore case in comparisons */
+int ignore_punct;		/* ignore punctuation (treat as whitespace) */
 int show_statistics;		/* if printing summary statistics */
 int no_wrapping;		/* end/restart strings at end of lines */
 int autopager;			/* if calling the pager automatically */
@@ -222,6 +233,142 @@
 }
 
 
+#ifdef LERMEN_STUFF
+
+/* we intercept output to 'output_file' in order to catch some lines
+ * of context _before_ and _after_ the emphasized parts
+ */
+ 
+#define BUFLINE_SIZE 1024
+struct bufline {
+  struct bufline *next;
+  char line[BUFLINE_SIZE];
+};
+
+static struct bufline *headbufline = 0;
+static struct bufline *tailbufline = 0;
+static int bufcols = 0;
+static int in_emphasize = 0;
+static int context_lines = 0;
+static int bufline_overrun = 0;
+static int behind_emphasize = 0;
+
+static void init_savebuffers(int lines)
+{
+  struct bufline *p;
+  int i;
+
+  if (headbufline) return;
+  context_lines = ++lines;
+  headbufline = p = malloc(sizeof(struct bufline));
+  for (i=0; i<lines; i++) {
+    p->next = malloc(sizeof(struct bufline));
+    p = p->next;
+  }
+  p->next = tailbufline = headbufline;  /* close the circle */    
+}
+
+static inline void inc_headbuf(void)
+{
+  headbufline = headbufline->next;
+  if (headbufline == tailbufline) {
+    bufline_overrun = 1;
+    tailbufline = tailbufline->next;
+  }
+}
+
+static void flush_buflines(void)
+{
+  if (!bufcols && (headbufline == tailbufline)) return;
+  if (bufcols) {
+    headbufline->line[bufcols] = 0;
+    inc_headbuf();
+    bufcols = 0;
+  }
+  while (headbufline != tailbufline) {
+    if (bufline_overrun) {
+      fprintf(output_file, "\n%s\n", SEPARATOR_LINE);
+      bufline_overrun = 0;
+    }
+    fputs(tailbufline->line, output_file);
+    tailbufline = tailbufline->next;
+  }
+}
+
+static inline void save_char(int c)
+{
+  headbufline->line[bufcols++] = c;
+  if (c == '\n') {
+    headbufline->line[bufcols] = 0;
+    inc_headbuf();
+    bufcols = 0;
+  }
+}
+
+static inline int our_putc(int c, FILE *stream)
+{
+  if (context_lines && stream == output_file) {
+    if (!in_emphasize) {
+      if (behind_emphasize) {
+        if (c == '\n') behind_emphasize--;
+      }
+      else {
+        save_char(c);
+        return (int)((unsigned char) c);
+      }
+    }
+  }
+  return putc(c, stream);
+}
+#undef putc
+#define putc our_putc
+
+
+static void real_start_of_delete (void);
+static void real_end_of_delete (void);
+static void real_start_of_insert (void);
+static void real_end_of_insert (void);
+
+static void our_start_of_delete (void)
+{
+  if (context_lines) flush_buflines();
+  in_emphasize = 1;
+  real_start_of_delete();
+}
+static void our_end_of_delete (void)
+{
+  real_end_of_delete();
+  in_emphasize = 0;
+  behind_emphasize = context_lines;
+}
+static void our_start_of_insert (void)
+{
+  if (context_lines) flush_buflines();
+  in_emphasize = 1;
+  real_start_of_insert();
+}
+static void our_end_of_insert (void)
+{
+  real_end_of_insert();
+  in_emphasize = 0;
+  behind_emphasize = context_lines;
+}
+
+#define start_of_delete our_start_of_delete
+#define end_of_delete our_end_of_delete
+#define start_of_insert our_start_of_insert
+#define end_of_insert our_end_of_insert
+
+#else /* not LERMEN_STUFF */
+
+#define start_of_delete real_start_of_delete
+#define end_of_delete real_end_of_delete
+#define start_of_insert real_start_of_insert
+#define end_of_insert real_end_of_insert
+
+#endif
+
+
 /* Terminal initialization.  */
 
 static void
@@ -294,7 +441,7 @@
 `---------------------------*/
 
 static void
-start_of_delete (void)
+real_start_of_delete (void)
 {
 
   /* Avoid any emphasis if it would be useless.  */
@@ -316,7 +463,7 @@
 `-------------------------*/
 
 static void
-end_of_delete (void)
+real_end_of_delete (void)
 {
 
   /* Avoid any emphasis if it would be useless.  */
@@ -338,7 +485,7 @@
 `---------------------------*/
 
 static void
-start_of_insert (void)
+real_start_of_insert (void)
 {
 
   /* Avoid any emphasis if it would be useless.  */
@@ -360,7 +507,7 @@
 `-------------------------*/
 
 static void
-end_of_insert (void)
+real_end_of_insert (void)
 {
 
   /* Avoid any emphasis if it would be useless.  */
@@ -377,6 +524,12 @@
   copy_mode = COPY_NORMAL;
 }
 
+/*----------------------------------------------------------------.
+| We say "white space", but we actually mean space or punctuation |
+`----------------------------------------------------------------*/
+
+#define is_space_or_punct(c) (isspace(c) || ignore_punct && ispunct(c))
+
 /*--------------------------------.
 | Skip over white space on SIDE.  |
 `--------------------------------*/
@@ -387,7 +540,7 @@
   if (interrupted)
     longjmp (signal_label, 1);
 
-  while (isspace (side->character))
+  while (is_space_or_punct (side->character))
     side->character = getc (side->file);
 }
 
@@ -401,7 +554,7 @@
   if (interrupted)
     longjmp (signal_label, 1);
 
-  while (side->character != EOF && !isspace (side->character))
+  while (side->character != EOF && !is_space_or_punct (side->character))
     side->character = getc (side->file);
   side->position++;
 }
@@ -422,7 +575,7 @@
       /* While changing lines, ensure we stop any special display prior
 	 to, and restore the special display after.  When copy_mode is
 	 anything else than COPY_NORMAL, file is always output_file.  We
-	 care underlining whitespace or overstriking it with itself,
+	 care about underlining whitespace or overstriking it with itself,
 	 because "less" understands these things as emphasis requests.  */
 
       switch (copy_mode)
@@ -905,7 +1058,10 @@
 static void
 complete_input_program (void)
 {
-  fclose (input_file);
+  if (input_file) {
+    fclose (input_file);
+    input_file = NULL;
+  }
   wait (NULL);
 }
 
@@ -1007,6 +1163,7 @@
   if (output_file && output_file != stdout)
     {
       fclose (output_file);
+      output_file = NULL;
       wait (NULL);
     }
 
@@ -1037,29 +1194,29 @@
   count_common_right
     = count_total_right - count_isolated_right - count_changed_right;
 
-  printf (_("%s: %d words"), left_side->filename, count_total_left);
+  fprintf (stderr, "%s: %d words", left_side->filename, count_total_left);
   if (count_total_left > 0)
     {
-      printf (_("  %d %d%% common"), count_common_left,
+      fprintf (stderr, "  %d %d%% common", count_common_left,
 	      count_common_left * 100 / count_total_left);
-      printf (_("  %d %d%% deleted"), count_isolated_left,
+      fprintf (stderr, "  %d %d%% deleted", count_isolated_left,
 	      count_isolated_left * 100 / count_total_left);
-      printf (_("  %d %d%% changed"), count_changed_left,
+      fprintf (stderr, "  %d %d%% changed", count_changed_left,
 	      count_changed_left * 100 / count_total_left);
     }
-  printf ("\n");
+  fprintf (stderr, "\n");
 
-  printf (_("%s: %d words"), right_side->filename, count_total_right);
+  fprintf (stderr, _("%s: %d words"), right_side->filename, count_total_right);
   if (count_total_right > 0)
     {
-      printf (_("  %d %d%% common"), count_common_right,
+      fprintf (stderr, "  %d %d%% common", count_common_right,
 	      count_common_right * 100 / count_total_right);
-      printf (_("  %d %d%% inserted"), count_isolated_right,
+      fprintf (stderr, "  %d %d%% inserted", count_isolated_right,
 	      count_isolated_right * 100 / count_total_right);
-      printf (_("  %d %d%% changed"), count_changed_right,
+      fprintf (stderr, "  %d %d%% changed", count_changed_right,
 	      count_changed_right * 100 / count_total_right);
     }
-  printf ("\n");
+  fprintf (stderr, "\n");
 }
 
 
@@ -1111,13 +1268,19 @@
   -V, --version              print program version then exit\n\
   -1, --no-deleted           inhibit output of deleted words\n\
   -2, --no-inserted          inhibit output of inserted words\n\
-  -3, --no-common            inhibit output of common words\n\
+  -3, --no-common            inhibit output of common words\n"));
+#ifdef LERMEN_STUFF
+      printf(_("\
+  -c  --context              like -3, but print given context lines\n"));
+#endif
+      printf(_("\
   -a, --auto-pager           automatically calls a pager\n\
   -h, --help                 print this help\n\
   -i, --ignore-case          fold character case while comparing\n\
   -l, --less-mode            variation of printer mode for \"less\"\n\
   -n, --avoid-wraps          do not extend fields through newlines\n\
   -p, --printer              overstrike as for printers\n\
+  -P, --punctuation          treat punctuation like white space\n\
   -s, --statistics           say how many words deleted, inserted etc.\n\
   -t, --terminal             use termcap as for terminal displays\n\
   -w, --start-delete=STRING  string to mark beginning of delete region\n\
@@ -1171,7 +1334,7 @@
   count_changed_left = 0;
   count_changed_right = 0;
 
-  while (option_char = getopt_long (argc, argv, "123CVahidlnpstw:x:y:z:",
+  while (option_char = getopt_long (argc, argv, "123CVahilnpPstw:x:y:z:c:",
 				    longopts, NULL),
 	 option_char != EOF)
     switch (option_char)
@@ -1193,7 +1356,11 @@
 	exit (EXIT_SUCCESS);
 
       case 'V':
-	printf ("GNU %s %s\n%s\n", PACKAGE, VERSION, copyright);
+#ifdef LERMEN_STUFF
+	printf ("GNU %s %s\n%s\n", VERSION,LVERSION,copyright);
+#else
+	printf ("GNU %s %s\n%s\n", VERSION,"",copyright);
+#endif
 	exit (EXIT_SUCCESS);
 
       case 'a':
@@ -1222,6 +1389,10 @@
 	overstrike = 1;
 	break;
 
+      case 'P':
+	ignore_punct = 1;
+	break;
+
       case 's':
 	show_statistics = 1;
 	break;
@@ -1252,6 +1423,12 @@
 	user_insert_end = optarg;
 	break;
 
+#ifdef LERMEN_STUFF
+      case 'c':
+	init_savebuffers(atoi(optarg));
+	break;
+#endif
+
       default:
 	usage (EXIT_OTHER_REASON);
       }
@@ -1262,6 +1439,13 @@
       usage (EXIT_OTHER_REASON);
     }
 
+#ifdef LERMEN_STUFF
+  if (context_lines) {
+     inhibit_common = 0;
+     if (inhibit_right && inhibit_left) inhibit_right = 0;
+  }
+#endif
+
   /* If find_termcap still undecided, make it true only if autopager is set
      while stdout is directed to a terminal.  This decision might be
      reversed later, if the pager happens to be "less".  */
--- src/xwdiff
+++ src/xwdiff
@@ -0,0 +1,307 @@
+#!/bin/bash
+# the next line restarts using wish \
+exec wish "$0" "$@"
+
+proc positionWindow w {
+  wm geometry $w +100+100
+}
+
+proc positionWindowRelative {w masterw dx dy} {
+  set xx [split [wm geometry $masterw] +]
+  wm geometry $w "+[expr [lindex $xx 1] + $dx]+[expr [lindex $xx 2] + $dy]"
+}
+
+proc positionSubWindow {w} {
+  positionWindowRelative $w . 0 +45
+}
+
+set answer 0
+
+proc ___read_and_display_output { w titletext but1 but2 movto filehandle} {
+    global answer
+    if {$w != ""} {
+      catch {destroy $w}
+      toplevel $w
+      set w_ $w
+    } else {
+      set w_ .
+    }
+    wm title $w_ $titletext
+    wm iconname $w_ $titletext
+    positionWindow $w_
+    set line ""
+
+
+    frame $w.buttons
+    pack  $w.buttons -side bottom -expand y -fill x -pady 2m
+    set answer 0
+    button $w.buttons.but1 -text $but1 -width 20 -command "destroy $w; global answer; set answer 0"
+    if { "$but2" == "" } {
+	pack $w.buttons.but1 -side left -expand 1
+    } else {
+	button $w.buttons.but2 -text $but2 -width 20 -command "destroy $w; global answer; set answer 1"
+	pack $w.buttons.but1 $w.buttons.but2 -side left -expand 1
+    }
+    text $w.text -relief sunken -bd 2 -yscrollcommand "$w.scroll set" -setgrid 1 -height 25 -width 80
+    scrollbar $w.scroll -command "$w.text yview"
+    pack $w.scroll -side right -fill y
+    pack $w.text -expand yes -fill both
+    $w.text configure -background #fff2dc
+    $w.text configure -font -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
+
+    $w.text tag configure overstrike -overstrike on
+    $w.text tag configure boldoverstrike -overstrike on -font -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
+    $w.text tag configure bold -font -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
+#    $w.text tag configure color1 -background black -foreground white
+#    $w.text tag configure color1 -foreground #ff1800
+#    $w.text tag configure color1 -foreground #0000c0
+    $w.text tag configure boldblue -font -*-courier-bold-r-*-*-14-*-*-*-*-*-*-* -foreground #0000b0
+    set instag boldblue
+    set deltag boldoverstrike
+    set tag ""
+    set need_newline 0;
+    while {[eof $filehandle] == 0} {
+       set ret [gets $filehandle line]
+       if {$ret < 0} {
+          continue
+       }
+       if {[string compare "\x1bY1" $line] == 0} {
+         set need_newline 0;
+         set tag $instag
+         continue
+       }
+       if {[string compare "\x1bY0" $line] == 0} {
+         set need_newline 0;
+         set tag ""
+         continue
+       }
+       if {[string compare "\x1bX1" $line] == 0} {
+         set need_newline 0;
+         set tag $deltag
+         continue
+       }
+       if {[string compare "\x1bX0" $line] == 0} {
+         set need_newline 0;
+         set tag ""
+         continue
+       }
+       if {$need_newline} {$w.text insert end "\n"}
+       set need_newline 1;
+       $w.text insert end $line $tag
+    }
+    $w.text yview moveto $movto
+    vwait answer
+    return $answer
+}
+
+set lastsearchtx ""
+set lastcur ""
+
+# textSearch --
+# Search for all instances of a given string in a text widget and
+# apply a given tag to each instance found.
+#
+# Arguments:
+# w -		The window in which to search.  Must be a text widget.
+# string -	The string to search for.  The search is done using
+#		exact matching only;  no special characters.
+# tag -		Tag to apply to each instance of a matching string.
+
+proc textSearch {w string tag} {
+    global lastcur
+    $w tag remove search 0.0 end
+    set lastcur ""
+    if {$string == ""} {
+	return
+    }
+    set cur 1.0
+    while 1 {
+	set cur [$w search -nocase -count length $string $cur end]
+	if {$cur == ""} {
+	    if {$lastcur != ""} {$w yview $lastcur}
+	    break
+	}
+        if {$lastcur == ""} {set lastcur $cur}
+	$w tag add $tag $cur "$cur + $length char"
+	set cur [$w index "$cur + $length char"]
+    }
+}
+
+
+proc textSearchjmp {w string tag} {
+  global lastsearchtx lastcur
+  if { ($lastcur != "") && ([string compare $lastsearchtx $string] == 0) } {
+puts ">$lastcur< >$lastsearchtx<"
+     set lastcur [lindex [$w tag nextrange $tag [expr $lastcur + 1.0] end] 0]
+puts ">$lastcur<"
+     if {$lastcur != ""} {$w yview $lastcur}
+  } else {
+     textSearch $w $string $tag
+     set lastsearchtx $string
+  }
+}
+
+proc gotopos {w pos} {
+  global lastcur
+  $w yview $pos
+  set lastcur [ $w index $pos ]
+}
+
+proc read_and_display_output { w titletext but1 but2 movto filehandle} {
+    global answer lastcur
+    if {$w != ""} {
+      catch {destroy $w}
+      toplevel $w
+      set w_ $w
+    } else {
+      set w_ .
+    }
+    wm title $w_ $titletext
+    wm iconname $w_ $titletext
+    positionWindow $w_
+    set line ""
+
+
+    frame $w.buttons
+    pack  $w.buttons -side bottom -expand y -fill x -pady 2m
+    set answer 0
+    button $w.buttons.but1 -text $but1 -command "destroy $w; global answer; set answer 0"
+    if { "$but2" == "" } {
+	pack $w.buttons.but1 -side left -expand 1
+    } else {
+	button $w.buttons.but2 -text $but2 -width 20 -command "destroy $w; global answer; set answer 1"
+	pack $w.buttons.but1 $w.buttons.but2 -side left -expand 1
+    }
+
+    button $w.buttons.top -text "Go top" -anchor w -command \
+	"gotopos $w.text 1.0"
+    button $w.buttons.bot -text "Go bottom" -anchor w -command \
+	"gotopos $w.text end"
+    pack $w.buttons.top $w.buttons.bot -side left -expand 1
+
+    label $w.buttons.label -textvariable lastcur -anchor w -width 8
+    button $w.buttons.search -text "Search" -anchor w -command \
+	"textSearchjmp $w.text \$searchString search"
+    entry $w.buttons.entry -width 40 -textvariable searchString
+    pack $w.buttons.label $w.buttons.entry $w.buttons.search -side left -padx 2
+    bind $w.buttons.entry <Return> "textSearchjmp $w.text \$searchString search"
+
+    text $w.text -relief sunken -bd 2 -yscrollcommand "$w.scroll set" -setgrid 1 -height 25 -width 80
+    scrollbar $w.scroll -command "$w.text yview"
+    pack $w.scroll -side right -fill y
+    pack $w.text -expand yes -fill both
+    $w.text configure -background #fff2dc
+    $w.text configure -font -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
+
+    $w.text tag configure overstrike -overstrike on
+    $w.text tag configure boldoverstrike -overstrike on -font -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
+    $w.text tag configure bold -font -*-courier-bold-r-*-*-14-*-*-*-*-*-*-*
+#    $w.text tag configure color1 -background black -foreground white
+#    $w.text tag configure color1 -foreground #ff1800
+#    $w.text tag configure color1 -foreground #0000c0
+    $w.text tag configure boldblue -font -*-courier-bold-r-*-*-14-*-*-*-*-*-*-* -foreground #0000b0
+
+$w.text tag configure search -background #c83000 -foreground white \
+       -relief raised -borderwidth 2
+
+    set instag boldblue
+    set deltag boldoverstrike
+    set tag ""
+    set need_newline 0;
+    while {[eof $filehandle] == 0} {
+       set ret [gets $filehandle line]
+       if {$ret < 0} {
+          continue
+       }
+       if {[string compare "\x1bY1" $line] == 0} {
+         set need_newline 0;
+         set tag $instag
+         continue
+       }
+       if {[string compare "\x1bY0" $line] == 0} {
+         set need_newline 0;
+         set tag ""
+         continue
+       }
+       if {[string compare "\x1bX1" $line] == 0} {
+         set need_newline 0;
+         set tag $deltag
+         continue
+       }
+       if {[string compare "\x1bX0" $line] == 0} {
+         set need_newline 0;
+         set tag ""
+         continue
+       }
+       if {$need_newline} {$w.text insert end "\n"}
+       set need_newline 1;
+       $w.text insert end $line $tag
+    }
+    $w.text yview moveto $movto
+    vwait answer
+    return $answer
+}
+
+proc usage {} {
+  puts {
+USAGE:
+  xwdiff oldfile newfile
+  xwdiff -w numcontextlines oldfile newfile >prepared_diff_file
+  xwdiff -view TitleText <prepared_diff_file
+  xwdiff -a numcontextlines oldfile newfile >plain_ascii_diff
+}
+  exit 1
+}
+
+set secondphase "-view"
+set option_W    "-w"
+set option_D    "-a"
+set arg1 [lindex $argv 0]
+
+if { [string compare $arg1 $option_W] == 0 } {
+  set context [lindex $argv 1]
+  set n1 [lindex $argv 2]
+  set n2 [lindex $argv 3]
+  if {$n2 == ""} {usage} 
+  catch {exec wdiff -w "\n\x1bX1\n" -x "\n\x1bX0\n" \
+     -y "\n\x1bY1\n" -z "\n\x1bY0\n" -c $context $n1 $n2 >@ file1 }
+  exit
+}
+
+if { [string compare $arg1 $option_D] == 0 } {
+  set context [lindex $argv 1]
+  set n1 [lindex $argv 2]
+  set n2 [lindex $argv 3]
+  if {$n2 == ""} {usage} 
+#  catch {exec wdiff -w "\n\[---\n" -x "\n---\]\n" \
+#     -y "\n\{+++\n" -z "\n+++\}\n" -c $context $n1 $n2 >@ file1}
+  catch {exec wdiff -w "\n\[OLD\n" -x "\n\\OLD\]\n" \
+     -y "\n\{NEW\n" -z "\n\\NEW\}\n" -c $context $n1 $n2 >@ file1}
+  exit
+}
+
+if { [string compare $arg1 $secondphase] } {
+  set n1 [lindex $argv 0]
+  set n2 [lindex $argv 1]
+  if {$n2 == ""} {usage}
+  catch { exec wdiff -w "\n\x1bX1\n" -x "\n\x1bX0\n" -y "\n\x1bY1\n" \
+     -z "\n\x1bY0\n" -c4 $n1 $n2 | $argv0 $secondphase "xwdiff $n2"}
+  exit
+}
+
+set arg2 [lindex $argv 1]
+if {$arg2 == ""} {usage} 
+
+read_and_display_output "" $arg2 Quit "" 0 file0
+exit
+
+
+
+
+
+
+
+
+
+
+

Places

File wdiff-0.5.2.dif of Package wdiff (Revision 4b7a9bc4b16a551cebd733879e27c976)

Places