[ruby-list:37081] setup.rb: Patch to ignore CVS,*~,...

< ^ > P N |<>|^_>< --- | ~ ...Help
This is a multi-part message in MIME format.

--Multipart_Mon__10_Feb_2003_15:22:16_+0900_08281008
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit

﹛ヶ唳匹允﹝

﹛ [ruby-list:30270] setup.rb 及旦伊永玉匹手腔狨今木化中凶﹜
install.rb/setup.rb 匹 .bak .org .rej CVS/ RCS/ 午中勻凶打立毛蟻仃卅中井
午中丹杽鎖卞勾中化匹允﹝

﹛ tarball 匹ミ幵允月端反丐日井元戶綽馱諵𧘇中汝磥洶═諵峇エ馱活阬 譆犯奴伊弁玄伉毛殖戈旦汁伉□曉匹釩�仄化中月凜卞手 install.rb/setup.rb
毛銀中凶中樺昍互丐曰引允﹝支反曰打立反奶件旦玄□伙及覆擂井日中④砟鴗阬
杅互丐曰互凶中午閤中引允﹝

﹛午中丹歹仃匹﹜ setup-3.1.2 卞覆允月由永民毛迨牏楔縑ㄓ酗鴗豸銴瞗阬

  疰譆附 狙皸狙臏蜧蠈 狙蜧蠈 ㄙ 恐狙濿氃 狙蠈狙瀌
午中勻凶白央奶伙互奶件旦玄□伙及覆擂井日咫鴗牏飽阬

﹛午仇欠匹﹜ src/*.rb 井日 install.rb/setup.rb 毛綜月杅芊互葦尥井日卅井
勻凶及匹允互﹜升丹允木壬恌中及匹仄斤丹井〝﹛午曰丐尹內﹜

  for type in setup install; do
    cat src/in.$type.rb \
      | ruby -ne 'if ($_ %r"setup/(\w+)") then system("cat",
"src/#{$1}.rb") else print($_) end' \
      > $type.rb
  done

午中丹氘卞戲嶽仄化中引允﹝

-- 
shirai / korinkan.co.jp

Shirai,Kaoru
  Korinkan Ltd.



--Multipart_Mon__10_Feb_2003_15:22:16_+0900_08281008
Content-Type: text/plain;
 namevsignore.diff"
Content-Disposition: attachment;
 filenamevsignore.diff"
Content-Transfer-Encoding: 7bit

diff -x CVS -x tmp -x *~ -Nru setup-3.1.2.orig/src/fileop.rb setup-3.1.2/src/fileop.rb
--- setup-3.1.2.orig/src/fileop.rb	Tue May  7 13:52:44 2002
+++ setup-3.1.2/src/fileop.rb	Mon Feb 10 14:52:29 2003
@@ -1,3 +1,31 @@
+module CvsIgnore
+  PATTERNS  w( RCS CVS *~ *.bak *.BAK core *.core #* .#* *.orig *.rej *.old )
+
+  class << self
+    def match?(fpath)
+      matched  alse
+      filename  ile.basename(fpath)
+      CvsIgnore::PATTERNS.each do |pattern|
+        matched  lob_match(pattern, filename)
+        break if matched
+      end
+      matched
+    end
+
+    def glob_match(pat, str)
+      case pat[0]
+      when nil
+        not str[0]
+      when ?*
+        glob_match(pat[1..-1], str) || str[0] && glob_match(pat, str[1..-1])
+      when ??
+        str[0] && glob_match(pat[1..-1], str[1..-1])
+      else
+        pat[0] str[0] && glob_match(pat[1..-1], str[1..-1])
+      end
+    end
+  end
+end
 
 module FileOperations
 
@@ -102,13 +130,20 @@
 
   def all_files( dname )
     Dir.open( dname ) {|d|
-        return d.find_all {|n| File.file? "#{dname}/#{n}" }
+      return d.find_all {|n|
+        path  #{dname}/#{n}"
+        File.file?(path) && !(CvsIgnore.match?(path))
+      }
     }
   end
 
   def all_dirs( dname )
     Dir.open( dname ) {|d|
-        return d.find_all {|n| dir? "#{dname}/#{n}" } - %w(. ..)
+      dirs  .find_all {|n|
+        path  #{dname}/#{n}"
+        dir?(path) && !(CvsIgnore.match?(path))
+      }
+      return (dirs - %w(. ..))
     }
   end
 



--Multipart_Mon__10_Feb_2003_15:22:16_+0900_08281008--