Newsgroups: fj.sources,fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!news.iij.ad.jp!dnp-news!dps-dnp-news!pix!a_kuroe
From: a_kuroe@gaken.dnp.co.jp (Akihiko Kuroe)
Subject: RATS (aRchiving cAT Series) v1.00 to v1.01 diff
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <D4uoox.Gyw@pix.gaken.dnp.co.jp>
Followup-To: fj.sources.d
Sender: news@pix.gaken.dnp.co.jp (Usenet ews/.nameNews System)
Reply-To: rats@kuroe.aoba.yokohama.jp
Organization: IIRI , Dai Nippon Printing Co.,Ltd. , Tokyo , Japan
X-Newsreader: gn [Version 1.32 beta Jan.11,1994 (Unix)]
References: <D4qsGs.G1q@pix.gaken.dnp.co.jp>
Mime-Version: 1.0
Date: Fri, 3 Mar 1995 06:00:32 GMT
Lines: 157
Xref: galaxy.trc.rwcp.or.jp fj.sources:3051 fj.lang.perl:352
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=352&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B9u9>!wBgF|K\0u:~$G$9!#$5$C$=$/%P%0$,O*8+$7$?$N$G!"=$@5$7$^$9!#(B

$B!V(B=DIR:$B!W%?%0$G;XDj$9$k%G%#%l%/%H%jL>$NKvHx$,!V(B/$B!W$G$J$$>l9g!"(B
$B:G8e$N(B1$BJ8;z$,Mn$A$F$$$?(B($B$H$$$&$+!V(B/$B!W$KCV$-49$($i$l$F$$$?(B)$B!#(B

$B<+8JE83+$r9T$J$&>l9g$HI8=`F~NO$rE83+$9$k>l9g$K!V(B>>STDOUT$B!W$N(B
$BItJ,$rI=<($7$J$+$C$?(B($B$3$l$O;EMM$@$H8@$$D%$C$F$bNI$+$C$?$1$I(B)$B!#(B

$B0J>e$NE@$r=$@5$7$F$"$j$^$9!#(B

anonymous ftp$B$KCV$$$F2<$5$k$H$$$&J}$K$O!":#2s$N=$@5$rH?1G$7$?(B
$B%Q%C%1!<%8$rAw$j$^$9$N$G!"%a!<%k$GO"Mm$7$F2<$5$$!#(B

*** ../rats100/rat.docWed Mar  1 01:00:00 1995
--- rat.docFri Mar  3 01:01:00 1995
***************
*** 1,2 ****
! $B!|(Brat (current version: 1.00)
  
--- 1,2 ----
! $B!|(Brat (current version: 1.01)
  
*** ../rats100/unrat.docWed Mar  1 01:00:00 1995
--- unrat.docFri Mar  3 01:01:00 1995
***************
*** 1,2 ****
! $B!|(Bunrat (current version: 1.00)
  
--- 1,2 ----
! $B!|(Bunrat (current version: 1.01)
  
*** ../rats100/ratWed Mar  1 01:00:00 1995
--- ratFri Mar  3 01:01:00 1995
***************
*** 5,7 ****
  #
! $usage  = "<<rat v1.00>>\n";
  $usage .= "usage: rat [options] [FILE ...]\n";
--- 5,7 ----
  #
! $usage  = "<<rat v1.01>>\n";
  $usage .= "usage: rat [options] [FILE ...]\n";
***************
*** 216,218 ****
  #
! # rat's self-extract-archive-file unit
  # Copyright 1995  Akihiko Kuroe <a_kuroe@kuroe.aoba.yokohama.jp>
--- 216,218 ----
  #
! # rat's self-extract-archive-file unit (19950303)
  # Copyright 1995  Akihiko Kuroe <a_kuroe@kuroe.aoba.yokohama.jp>
***************
*** 232,233 ****
--- 232,236 ----
      }
+     if (/^=+BEGIN:\s*>+STD/o) {
+         $oo = 2; next;
+     }
      if (/^=+END/io) {
***************
*** 236,239 ****
      unless ($oo) {
!         $ee = 1 if (/^=+NO_ESC/io);
!         next;
      }
--- 239,241 ----
      unless ($oo) {
!         $ee = 1 if (/^=+NO_ESC/io); next;
      }
***************
*** 241,243 ****
      $_ = unpack(u, $_) if $uu;
!     print OUT;
  }
--- 243,246 ----
      $_ = unpack(u, $_) if $uu;
!     print OUT    if ($oo == 1);
!     print STDERR if ($oo == 2);
  }
*** ../rats100/unratWed Mar  1 01:00:00 1995
--- unratFri Mar  3 01:01:00 1995
***************
*** 5,7 ****
  #
! $usage  = "<<unrat v1.00>>\n";
  $usage .= "usage: unrat [options] [FILE ...]\n";
--- 5,7 ----
  #
! $usage  = "<<unrat v1.01>>\n";
  $usage .= "usage: unrat [options] [FILE ...]\n";
***************
*** 34,35 ****
--- 34,41 ----
  if ($ARGV[0] eq '') {
+     if ($opt == 1) { #list
+         print STDERR ">>> file list of STDIN <<<\n";
+     }
+     else {
+         print STDERR ">>> extract from STDIN <<<\n";
+     }
      while (<STDIN>) {
***************
*** 79,81 ****
          &chk_tags;
!         next if ($fname =~ />+STD/o);
          next if ($opt == 1); #list
--- 85,90 ----
          &chk_tags;
!         if ($fname =~ />+STD/o) {
!             $open_flg = 2;
!             next;
!         }
          next if ($opt == 1); #list
***************
*** 105,107 ****
              $dname =~ s/\\/\//g;
!             $dname =~ s/[^\/]$/\//g;
          }
--- 114,116 ----
              $dname =~ s/\\/\//g;
!             $dname =~ s/([^\/])$/$1\//g;
          }
***************
*** 112,125 ****
      s/^= =/=/ unless ($opt_n || $noesc_flg);
!     if ($fname =~ />+STD/o) {
!         print STDERR;
!         next;
!     }
!     next if ($opt == 1); #list
!     if ($enc) {
!         binmode FILE;
!         print FILE unpack(u, $_);
!     }
!     else {
!         print FILE;
!     }
  }
--- 121,125 ----
      s/^= =/=/ unless ($opt_n || $noesc_flg);
!     $_ = unpack(u, $_) if ($enc);
!     print FILE   if ($open_flg == 1);
!     print STDERR if ($open_flg == 2);
  }
***************
*** 221,222 ****
--- 221,223 ----
      }
+     binmode FILE if ($enc);
  }

$B!t$7$+$7!"(Bv1.00$B$,$?$C$?(B2$BF|$NL?$@$H$$$&$N$b>p$1$J$$!D!D!#(B(^^;;
--
/** Office: <a_kuroe@gaken.dnp.co.jp> **********/
/*  Univ:   <a_kuroe@hoffman.cc.sophia.ac.jp>  */
/*  Home:   <a_kuroe@kuroe.aoba.yokohama.jp>   */
/****************[Akihiko Kuroe]****************/
