namazu-ml(ring)

[Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx>]

Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx> wrote:

>えっと、これは
>
>  % mknmz -sF - <list
>
>のように実行した場合ですよね? (このような使われ方は想定して
>いません) 普通に

と思ったけど、サポートしてみました。

# diff で RCS のタイムスタンプを無視する方法があったような…

-- Satoru Takabayashi

Index: mknmz.pl.in
===================================================================
RCS file: /circus/cvsroot/namazu/src/mknmz.pl.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -c -r1.4 -r1.5
*** mknmz.pl.in	1999/05/04 04:42:38	1.4
--- mknmz.pl.in	1999/05/07 06:14:14	1.5
***************
*** 1,7 ****
  #! @PERL@ -w
  # -*- Perl -*-
  # mknmz - indexer of Namazu
! # $Id: mknmz.pl.in,v 1.4 1999/05/04 04:42:38 satoru Exp $
  #
  # Copyright (C) 1997-1999 Satoru Takabayashi  All rights reserved.
  #     This is free software with ABSOLUTELY NO WARRANTY.
--- 1,7 ----
  #! @PERL@ -w
  # -*- Perl -*-
  # mknmz - indexer of Namazu
! # $Id: mknmz.pl.in,v 1.5 1999/05/07 06:14:14 satoru Exp $
  #
  # Copyright (C) 1997-1999 Satoru Takabayashi  All rights reserved.
  #     This is free software with ABSOLUTELY NO WARRANTY.
***************
*** 622,629 ****
  	    $conf::LANGUAGE = $argv[0];
  	} elsif ($argv[0] =~ /F$/) {
  	    shift @argv;
! 	    @flist = load_target_list($argv[0]);
! 	    print "Loaded: $argv[0]\n" unless $conf::QuietOpt;
  	    $target_loaded = 1;
  	    $target_dir = cwd();
  	} elsif ($argv[0] =~ /t$/) {
--- 622,633 ----
  	    $conf::LANGUAGE = $argv[0];
  	} elsif ($argv[0] =~ /F$/) {
  	    shift @argv;
! 	    if ($CheckPoint{'continue'}) {
! 		@flist = ("dummy");
! 	    } else {
! 		@flist = load_target_list($argv[0]);
! 		print "Loaded: $argv[0]\n" unless $conf::QuietOpt;
! 	    }
  	    $target_loaded = 1;
  	    $target_dir = cwd();
  	} elsif ($argv[0] =~ /t$/) {
***************
*** 1084,1090 ****
  		splice(@list, $mark{$tmp}, 1, "# $tmp");
  		undef $mark{$tmp};
  	    } else {
! 		die "ERROR: malformed NMZ.t format!\n";
  	    }
  	} else {
  	    unless (defined($mark{$line})) {
--- 1088,1094 ----
  		splice(@list, $mark{$tmp}, 1, "# $tmp");
  		undef $mark{$tmp};
  	    } else {
! 		die "ERROR: malformed NMZ.r format!\n";
  	    }
  	} else {
  	    unless (defined($mark{$line})) {