ruby-list

　白井です。

　 [ruby-list:30270] setup.rb のスレッドでも議論されていた、
install.rb/setup.rb で .bak .org .rej CVS/ RCS/ といったゴミを弾けないか
という問題についてです。

　 tarball で配布する際はあらかじめ削除するという手があるのですが、 CVS
ディレクトリを含むソースツリー上で開発している時にも install.rb/setup.rb
を使いたい場面があります。やはりゴミはインストールの対象から除いてくれた
方がありがたいと思います。

　というわけで、 setup-3.1.2 に対するパッチを書きました。これにより、

  RCS CVS *~ *.bak *.BAK core *.core #* .#* *.orig *.rej *.old

といったファイルがインストールの対象から除かれます。

　ところで、 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.

Attachments (1)

cvsignore.diff (1.5 KB, text/x-diff)

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 = false
+      filename = File.basename(fpath)
+      CvsIgnore::PATTERNS.each do |pattern|
+        matched = glob_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 = d.find_all {|n|
+        path = "#{dname}/#{n}"
+        dir?(path) && !(CvsIgnore.match?(path))
+      }
+      return (dirs - %w(. ..))
     }
   end

Thread

Prev Next

In This Thread

Prev Next

[#37041] [ANN] Exerb/Exerb-CC 2.6.0 — Yuya Kato <yuya-ml@4th.to>

[#37047] String#each_byte — Take_tk <ggb03124@...>

[#37052] 改行が認識されない？ — 金光雅夫 （KANEMITSU Masao） <masao-k@...>

[#37058] Re: Local variables & blocks — matz@... (Yukihiro Matsumoto)

[#37064] Net::ProtoServerError — j.meguro@...

[#37065] UDPから受信出来ない。 — Toru MITANI <toru@...>

[#37067] easy access for CGI query — Wakou Aoyama <wakou@...>

[#37073] [ANN] Ruby-GNOME2-0.3.0 — Masao Mutoh <mutoh@...>

[#37079] [ANN] ruby syntax file for GNU Source-highlight — Noritsugu Nakamura <nnakamur@...>

[#37081] setup.rb: Patch to ignore CVS,*~,... — "Shirai,Kaoru" <shirai@...>

[#37091] [RNN] raaimport-0.0.20030211 released — MoonWolf <moonwolf@...>

[#37092] [ANN] 第2回RHG読書会@東京 — TAKAHASHI Masayoshi <maki@...>

[#37101] RubyでQuotaを設定したい — Asuka Ito <asuka@...>

[#37114] 配列とべき集合 — Masahiro Sato <msato@...>

[#37131] Ruby/SDLで複数のmpegを扱うには — katata@...

[#37132] httpd-2 下の eruby について — Kazuhiko <kazuhiko@...>

[#37133] 商用利用とライセンス — "松尾尚典" <matsuo.hisanori@...>

[#37135] TMailと..なFrom行 — ICHIKAWA Manabu <ichikawa@...>

[#37137] [ANN] RAA/2.3.1 — "U.Nakamura" <usa@...>

[#37139] [ANN] oocp 1.0.0 — Shin-ichiro HARA <sinara@...>

[#37153] rubyからJavaScriptの関数を起動する方法は? — "Masakazu Fujimoto" <masakazu@...>

[#37162] Rubyの10年 — matz@... (Yukihiro Matsumoto)

[#37171] setup.rb 3.1.4 — Minero Aoki <aamine@...>

[#37179] — "松尾尚典" <matsuo.hisanori@...>

[#37186] puts (4)*2 でエラー — Masahiro Sato <msato@...>

[#37188] String#[] の挙動がおかしい場合がある？ — "Masahiro TATSUMI (巽 雅洋)" <tatsumi@...>

[#37198] [ANN] oocp 2.0.0 — Shin-ichiro HARA <sinara@...>

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

Attachments (1)

Thread

In This Thread

[#37052] 改行が認識されない？ — 金光雅夫（KANEMITSU Masao） <masao-k@...>

[#37188] String#[] の挙動がおかしい場合がある？ — "Masahiro TATSUMI (巽雅洋)" <tatsumi@...>