extattr 0.1 → 0.4

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 0a1d94f6586158eb3abf46fb3fc8d43edd251763379f32e57f77ebfaa1db0a6f
+  data.tar.gz: 80e8c90ee1e866018f7ddc06d621f733f33276b5beaeac8cd9687da3a086a9a1
+SHA512:
+  metadata.gz: ccd9f917160b92b4cc52e02d56505b5824750a73442b8bad7d71041e3e5bd3f0b81dc2a93b5db14312093df65e12fca78085b7f0fc91c2263c53571821ff5679
+  data.tar.gz: 0b68f33f665fc50938567a64f8adb3ecdec402c699b3bc26e143a41a73ffd489c6b5d6ffdfc5ee813a82f26bef9ff9b1df4e3850ff2bb853274525fefcb86d74

data/HISTORY.ja.md

@@ -0,0 +1,49 @@
+# extattr-0.4
+
+  - Ruby 3 の `Ractor` への対応 (thanks @okeeblow, https://github.com/dearblue/ruby-extattr/pull/1)
+  - `bin/extattr` コマンドラインプログラムを削除
+
+    まだ小さな不具合があり、調整が必要です。
+    独立した gem `extattr-cli` として提供することを計画しています。
+
+
+# extattr-0.3
+
+extattr-0.2 との互換性はありません。
+
+  - `ExtAttr` モジュールを追加して実装をそちらに移動
+      - `File` クラスに対するメソッドの追加は、リファインメント機能によって拡張されます。
+        ```ruby
+        using ExtAttr
+        ```
+      - `File::EXTATTR_VERSION` 定数は冗長と判断し削除しました。
+  - `ExtAttr::Accessor` クラスの追加
+      - 拡張属性の操作に特化したオブジェクトを扱えるようになりました。
+  - `bin/extattr` コマンドラインプログラムの追加
+  - mingw でライブラリを構築する時 C 実行時ライブラリを静的リンクするように変更
+
+# extattr-0.2
+
+  * セーフレベルに関する改善
+      * `$SAFE` と汚染状態を確認するようになりました
+      * 汚染状態を伝播させるようになりました
+  * バージョン情報と実装 API に関する情報の取得
+      * `File::EXTATTR_VERSION` 定数によって、バージョン情報が取得できるようになりました
+      * `File::EXTATTR_IMPLEMENT` 定数によって、実装に関する情報が取得できるようになりました
+  * 機能の改善
+      * `File.extattr_each` / `File#extattr_each` によって、ファイル拡張属性の名前と値を繰り返し取得できるようになりました
+  * Windows 版に関する改善
+      * `File::EXTATTR_NAMESPACE_SYSTEM` によって、本来の拡張ファイル属性の操作が行えるようになりました
+      (NtQueryEaFile / NtSetEaFile)
+
+# extattr-0.1.2
+
+# extattr-0.1.1
+
+# extattr-0.1
+
+はじめてのりりーす
+
+  * 拡張ファイル属性の一覧、取得、設定、削除を行うことが出来ます
+  * **セキュリティリスクあり**: `$SAFE` の確認や汚染状態の伝播を行ないません
+  * Windows 版では、NTFS ADS に対する操作となります。`File::EXTATTR_NAMESPACE_USER` のみが有効です

data/{LICENSE.txt → LICENSE.md}

@@ -1,3 +1,8 @@
+
+extattr license (2-clause BSD License)
+
+- - - -
+
 Copyright (c) 2012, dearblue. All rights reserved.
 
 Redistribution and use in source and binary forms, with or

data/QUICKREF.ja.md

@@ -0,0 +1,112 @@
+# Quick Reference
+
+メソッド名に『!』がついているものはシンボリックリンクに対する操作となります。
+
+キーワード引数の `namespace` を与えると、拡張属性の名前空間を指定できます。
+
+与えられる値:
+
+  - `ExtAttr::USER`
+  - `ExtAttr::SYSTEM`
+  - `user` 又は `system` を文字列かシンボルで (大文字小文字は区別されない)
+  - `nil` (`ExtAttr::USER` と等価)
+
+規定値は `ExtAttr::USER` です。
+
+
+## モジュール `ExtAttr`
+
+  - `ExtAttr.list(path, namespace) -> array`
+  - `ExtAttr.list!(path, namespace) -> array`
+  - `ExtAttr.size(path, namespace, name) -> integer`
+  - `ExtAttr.size!(path, namespace, name) -> integer`
+  - `ExtAttr.get(path, namespace, name) -> string`
+  - `ExtAttr.get!(path, namespace, name) -> string`
+  - `ExtAttr.set(path, namespace, name, value) -> nil`
+  - `ExtAttr.set!(path, namespace, name, value) -> nil`
+  - `ExtAttr.delete(path, namespace, name) -> nil`
+  - `ExtAttr.delete!(path, namespace, name) -> nil`
+  - `ExtAttr.open(path) -> a ExtAttr::Accessor instance`
+  - `ExtAttr.open(path) { |ea| ... } -> returned value from yield block`
+  - `ExtAttr.each(path, namespace) -> an ExtAttr::Accessor instance`
+  - `ExtAttr.each(path, namespace = ExtAttr::USER) -> an enumerator instance`
+  - `ExtAttr.each(path, namespace = ExtAttr::USER) { |name, data| ... } -> path`
+  - `ExtAttr.each!(path, namespace = ExtAttr::USER) -> an enumerator instance`
+  - `ExtAttr.each!(path, namespace = ExtAttr::USER) { |name, data| ... } -> path`
+
+
+## クラス `ExtAttr::Accessor`
+
+  - `ExtAttr::Accessor#each(namespace: ExtAttr::USER) -> an enumerator instance`
+  - `ExtAttr::Accessor#each(namespace: ExtAttr::USER) { |name, data| ... } -> path`
+  - `ExtAttr::Accessor#list(namespace: ExtAttr::USER) -> array`
+  - `ExtAttr::Accessor#size(name, namespace: ExtAttr::USER) -> integer`
+  - `ExtAttr::Accessor#get(name, namespace: ExtAttr::USER) -> string`
+  - `ExtAttr::Accessor#set(name, data, namespace: ExtAttr::USER) -> nil`
+  - `ExtAttr::Accessor#delete(name, namespace: ExtAttr::USER) -> nil`
+
+
+## リファインメント `using ExtAttr`
+
+リファインメント機能を使うことにより、`File` が拡張されます。
+
+### 拡張属性オブジェクトを生成する
+
+```ruby:ruby
+File.extattr(path) -> an ExtAttr::Accessor instance
+File#extattr -> an ExtAttr::Accessor instance
+```
+
+### 拡張属性の属性名を取得
+
+```ruby:ruby
+File.extattr_list(path, namespace: ExtAttr::USER) -> array
+File.extattr_list(path, namespace: ExtAttr::USER) { |name| ... } -> nil
+File.extattr_list!(path, namespace: ExtAttr::USER) -> array
+File.extattr_list!(path, namespace: ExtAttr::USER) { |name| ... } -> nil
+File#extattr_list(namespace: ExtAttr::USER) -> array
+File#extattr_list(namespace: ExtAttr::USER) { |name| ... } -> nil
+```
+
+### 拡張属性の要素の大きさを取得
+
+```ruby:ruby
+File.extattr_size(path, name, namespace: ExtAttr::USER) -> size
+File.extattr_size!(path, name, namespace: ExtAttr::USER) -> size
+File#extattr_size(name, namespace: ExtAttr::USER) -> size
+```
+
+### 拡張属性の要素を取得
+
+```ruby:ruby
+File.extattr_get(path, name, namespace: ExtAttr::USER) -> data (String)
+File.extattr_get!(path, name, namespace: ExtAttr::USER) -> data (String)
+File#extattr_get(name, namespace: ExtAttr::USER) -> data (String)
+```
+
+### 拡張属性の要素を設定
+
+```ruby:ruby
+File.extattr_set(path, name, data, namespace: ExtAttr::USER) -> nil
+File.extattr_set!(path, name, data, namespace: ExtAttr::USER) -> nil
+File#extattr_set(name, data, namespace: ExtAttr::USER) -> nil
+```
+
+### 拡張属性の要素を削除
+
+```ruby:ruby
+File.extattr_delete(path, name, namespace: ExtAttr::USER) -> nil
+File.extattr_delete!(path, name, namespace: ExtAttr::USER) -> nil
+File#extattr_delete(name, namespace: ExtAttr::USER) -> nil
+```
+
+### 拡張属性の属性名と要素を列挙する
+
+```ruby:ruby
+File.extattr_each(path, namespace: ExtAttr::USER) -> Enumerator
+File.extattr_each(path, namespace: ExtAttr::USER) { |name, data| ... } -> nil
+File.extattr_each!(path, namespace: ExtAttr::USER) -> Enumerator
+File.extattr_each!(path, namespace: ExtAttr::USER) { |name, data| ... } -> nil
+File#extattr_each(namespace: ExtAttr::USER) -> Enumerator
+File#extattr_each(namespace: ExtAttr::USER) { |name, data| ... } -> file
+```

data/README.md

@@ -0,0 +1,84 @@
+# extattr - filesystem extended attributes manipurator for Ruby
+
+extattr is filesystem extended attributes manipurator for Ruby on FreeBSD, GNU/Linux and Microsoft Windows.
+
+  - [Quick Reference](QUICKREF.ja.md) (in Japanese)
+  - [HISTORY](HISTORY.ja.md) (in Japanese)
+
+extattr はファイルシステムの拡張属性を操作するライブラリで、FreeBSD、GNU/Linux、Windows に対応しています。
+
+サポートされる環境で、統一的なメソッドを提供します。
+
+実装については、以下のようになっています。
+
+  * FreeBSD: extattr (`extattr_list`, `extattr_get`, `extattr_set`, `extattr_delete`)
+  * GNU/Linux: xattr (`listxattr`, `getxattr`, `setxattr`, `removexattr`)
+  * Microsoft Windows: NTFS ADS (代替データストリーム) / 拡張ファイル属性 (`NtQueryEaFile`, `NtSetEaFile`)
+
+
+## Tested system
+
+  * PC-BSD/AMD64 10.0
+  * lubuntu 13.10 (i386)
+  * Microsoft Windows XP Professional SP3
+  * Microsoft Windows 7 Professional SP1
+
+
+## GNU/Linux における特記事項
+
+  * GNU/Linux で利用されている名前空間〈security〉〈trusted〉には未対応です。
+
+
+## Microsoft Windows における特記事項
+
+  * Windows XP 以降を必要とします。Win2k でも動作するかもしれません (未検証)。<br>
+    Windows 9x シリーズでは `require "extattr"` の段階で例外が発生すると思われます (未検証)。
+  * ``ExtAttr::USER`` は (比較的よく利用される) NTFS ADS に対する操作で、``ExtAttr::SYSTEM`` が本来の (あまり利用されていない) 拡張ファイル属性に対する操作となります。
+  * リパースポイント (ジャンクションやシンボリックリンク) に対する NTFS ADS は要素の取得や設定、削除は出来ません。<br>
+    必ずリンク先に対する操作となります (やり方がわかりません)。
+  * 64 KiB を超える NTFS ADS は取得も設定も出来ません。<br>
+    これは『拡張属性』と捉えた場合、巨大なデータを扱えるべきではないという考えによるためです
+    (本当のところは FreeBSD の拡張属性が最大 64KiB 弱であることが由来です)。
+  * 巨大な NTFS ADS を扱いたい場合は、``File.open`` でファイルとして扱えるので自由に読み書きできます。<br>
+    これは Ruby に限ったことではなく、Windows による仕様です。<br>
+    この場合の与えるファイル名は、``path + ":" + name`` という形になります。
+
+    ``` ruby:ruby
+    filepath = "sample.txt"
+    extattrname = "category"
+    ntfs_ads_name = filepath + ":" + extattrname
+    File.open(ntfs_ads_name, "r") do |file|
+      ...
+    end
+    ```
+
+## 既知のバグ
+
+  * ``extattr_list`` のブロック内で ``extattr_set`` ``extattr_delete`` を行うと正確な列挙がされない場合がある
+
+    解決方法: ``extattr_set`` か ``extattr_delete`` のどちらかを同時に利用したい場合、``extattr_list.each`` を用いてください。
+
+
+## 参考資料
+
+  * extattr
+      * <https://www.freebsd.org/cgi/man.cgi?query=extattr&sektion=2>
+  * xattr
+      * <https://linuxjm.osdn.jp/html/LDP_man-pages/man2/listxattr.2.html>
+  * windows
+      * <https://msdn.microsoft.com/en-us/library/cc232069.aspx>
+      * <https://undocumented.ntinternals.net/UserMode/Undocumented%20Functions/NT%20Objects/File/FILE_INFORMATION_CLASS.html>
+      * <https://undocumented.ntinternals.net/UserMode/Undocumented%20Functions/NT%20Objects/File/NtQueryInformationFile.html>
+      * <https://undocumented.ntinternals.net/UserMode/Undocumented%20Functions/NT%20Objects/File/NtQueryEaFile.html>
+      * <https://undocumented.ntinternals.net/UserMode/Undocumented%20Functions/NT%20Objects/File/NtSetEaFile.html>
+      * FileTest <http://www.zezula.net/en/fstools/filetest.html> <https://github.com/ladislav-zezula/FileTest>
+
+## Specification
+
+  - package name: [extattr](https://rubygems.org/gems/extattr)
+  - Author: dearblue
+  - Version: 0.4
+  - Product quality: technical preview
+  - License: [2-clause BSD License](LICENSE.md)
+  - Project page: <https://github.com/dearblue/ruby-extattr>
+  - Support Ruby: Ruby 2.5+

data/Rakefile

@@ -0,0 +1,212 @@
+
+require "pathname"
+require "rake/clean"
+
+docnames = "{README,LICENSE,CHANGELOG,Changelog,HISTORY}"
+doctypes = "{,.txt,.rd,.rdoc,.md,.markdown}"
+cexttypes = "{c,C,cc,cxx,cpp,h,H,hh}"
+
+DOC = FileList["#{docnames}{,.ja}#{doctypes}"] +
+      FileList["{contrib,ext}/**/#{docnames}{,.ja}#{doctypes}"] +
+      FileList["ext/**/*.#{cexttypes}"]
+EXT = FileList["ext/**/*"]
+BIN = FileList["bin/*"]
+LIB = FileList["lib/**/*.rb"]
+SPEC = FileList["spec/**/*"]
+TEST = FileList["test/**/*"]
+EXAMPLE = FileList["examples/**/*"]
+GEMSTUB_SRC = "gemstub.rb"
+RAKEFILE = [File.basename(__FILE__), GEMSTUB_SRC]
+EXTRA = []
+EXTCONF = FileList["ext/**/extconf.rb"]
+EXTCONF.reject! { |n| !File.file?(n) }
+EXTMAP = {}
+
+load GEMSTUB_SRC
+
+EXTMAP.dup.each_pair do |dir, name|
+  EXTMAP[Pathname.new(dir).cleanpath.to_s] = Pathname.new(name).cleanpath.to_s
+end
+
+GEMSTUB.extensions += EXTCONF
+GEMSTUB.executables += FileList["bin/*"].map { |n| File.basename n }
+GEMSTUB.executables.sort!
+
+PACKAGENAME = "#{GEMSTUB.name}-#{GEMSTUB.version}"
+GEMFILE = "#{PACKAGENAME}.gem"
+GEMSPEC = "#{PACKAGENAME}.gemspec"
+
+GEMSTUB.files += DOC + EXT + EXTCONF + BIN + LIB + SPEC + TEST + EXAMPLE + RAKEFILE + EXTRA
+GEMSTUB.files.sort!
+if GEMSTUB.rdoc_options.nil? || GEMSTUB.rdoc_options.empty?
+  readme = %W(.md .markdown .rd .rdoc .txt #{""}).map { |ext| "README#{ext}" }.find { |m| DOC.find { |n| n == m } }
+  GEMSTUB.rdoc_options = %w(--charset UTF-8) + (readme ? %W(-m #{readme}) : [])
+end
+GEMSTUB.extra_rdoc_files += DOC + LIB + EXT.reject { |n| n.include?("/externals/") || !%w(.h .hh .c .cc .cpp .cxx).include?(File.extname(n)) }
+GEMSTUB.extra_rdoc_files.sort!
+
+GEMSTUB_TRYOUT = GEMSTUB.dup
+GEMSTUB_TRYOUT.version = "#{GEMSTUB.version}#{Time.now.strftime(".TRYOUT.%Y%m%d.%H%M%S")}"
+PACKAGENAME_TRYOUT = "#{GEMSTUB.name}-#{GEMSTUB_TRYOUT.version}"
+GEMFILE_TRYOUT = "#{PACKAGENAME_TRYOUT}.gem"
+GEMSPEC_TRYOUT = "#{PACKAGENAME_TRYOUT}.gemspec"
+
+CLEAN << GEMSPEC << GEMSPEC_TRYOUT
+CLOBBER << GEMFILE
+
+task :default => :tryout do
+  $stderr.puts <<-EOS
+#{__FILE__}:#{__LINE__}:
+\ttype ``rake release'' to build release package.
+  EOS
+end
+
+desc "build tryout package"
+task :tryout
+
+desc "build release package"
+task :release => :all
+
+unless EXTCONF.empty?
+  RUBYSET ||= (ENV["RUBYSET"] || "").split(",")
+
+  if RUBYSET.nil? || RUBYSET.empty?
+    $stderr.puts <<-EOS
+#{__FILE__}:
+|
+| If you want binary gem package, launch rake with ``RUBYSET`` enviroment
+| variable for set ruby interpreters by comma separated.
+|
+|   e.g.) $ rake RUBYSET=ruby
+|     or) $ rake RUBYSET=ruby21,ruby22,ruby23
+|
+    EOS
+  else
+    platforms = RUBYSET.map { |ruby| `#{ruby} --disable-gems -e "puts RUBY_PLATFORM"`.chomp }
+    platforms1 = platforms.uniq
+    unless platforms1.size == 1 && !platforms1[0].empty?
+      abort <<-EOS
+#{__FILE__}:#{__LINE__}: different platforms:
+#{RUBYSET.zip(platforms).map { |ruby, platform| "%24s => %s" % [ruby, platform] }.join("\n")}
+ABORTED.
+      EOS
+    end
+    PLATFORM = platforms1[0]
+
+    RUBY_VERSIONS = RUBYSET.map do |ruby|
+      ver = `#{ruby} --disable-gems -e "puts RUBY_VERSION"`.slice(/\d+\.\d+/)
+      raise "failed ruby checking - ``#{ruby}''" unless $?.success?
+      [ver, ruby]
+    end
+
+    SOFILES_SET = RUBY_VERSIONS.map { |(ver, ruby)|
+      EXTCONF.map { |extconf|
+        extdir = Pathname.new(extconf).cleanpath.dirname.to_s
+        case
+        when soname = EXTMAP[extdir.sub(/^ext\//i, "")]
+          soname = soname.sub(/\.so$/i, "")
+        when extdir == "ext" || extdir == "."
+          soname = GEMSTUB.name
+        else
+          soname = File.basename(extdir)
+        end
+
+        [ruby, File.join("lib", "#{soname.sub(/(?<=\/)|^(?!.*\/)/, "#{ver}/")}.so"), extconf]
+      }
+    }.flatten(1)
+    SOFILES = SOFILES_SET.map { |(ruby, sopath, extconf)| sopath }
+
+    GEMSTUB_NATIVE = GEMSTUB.dup
+    GEMSTUB_NATIVE.files += SOFILES
+    GEMSTUB_NATIVE.platform = Gem::Platform.new(PLATFORM).to_s
+    GEMSTUB_NATIVE.extensions.clear
+    GEMFILE_NATIVE = "#{GEMSTUB_NATIVE.name}-#{GEMSTUB_NATIVE.version}-#{GEMSTUB_NATIVE.platform}.gem"
+    GEMSPEC_NATIVE = "#{GEMSTUB_NATIVE.name}-#{GEMSTUB_NATIVE.platform}.gemspec"
+
+    task :all => ["native-gem", GEMFILE]
+
+    desc "build binary gem package"
+    task "native-gem" => GEMFILE_NATIVE
+
+    desc "generate binary gemspec"
+    task "native-gemspec" => GEMSPEC_NATIVE
+
+    file GEMFILE_NATIVE => DOC + EXT + EXTCONF + BIN + LIB + SPEC + TEST + EXAMPLE + SOFILES + RAKEFILE + [GEMSPEC_NATIVE] do
+      sh "gem build #{GEMSPEC_NATIVE}"
+    end
+
+    file GEMSPEC_NATIVE => RAKEFILE do
+      File.write(GEMSPEC_NATIVE, GEMSTUB_NATIVE.to_ruby, mode: "wb")
+    end
+
+    desc "build c-extension libraries"
+    task "sofiles" => SOFILES
+
+    SOFILES_SET.each do |(ruby, soname, extconf)|
+      sodir = File.dirname(soname)
+      makefile = File.join(sodir, "Makefile")
+
+      CLEAN << GEMSPEC_NATIVE << sodir
+      CLOBBER << GEMFILE_NATIVE
+
+      directory sodir
+
+      desc "generate Makefile for binary extension library"
+      file makefile => [sodir, extconf] do
+        rel_extconf = Pathname.new(extconf).relative_path_from(Pathname.new(sodir)).to_s
+        cd sodir do
+          sh *%W"#{ruby} #{rel_extconf} --ruby=#{ruby} #{ENV["EXTCONF"]}"
+        end
+      end
+
+      desc "build binary extension library"
+      file soname => [makefile] + EXT do
+        cd sodir do
+          sh "make"
+        end
+      end
+    end
+  end
+end
+
+
+task :all => GEMFILE
+task :tryout => GEMFILE_TRYOUT
+
+desc "generate local rdoc"
+task :rdoc => DOC + LIB do
+  sh *(%w(rdoc) + GEMSTUB.rdoc_options + DOC + LIB)
+end
+
+desc "launch rspec"
+task rspec: :all do
+  sh "rspec"
+end
+
+desc "build gem package"
+task gem: GEMFILE
+
+desc "generate gemspec"
+task gemspec: GEMSPEC
+
+desc "print package name"
+task "package-name" do
+  puts PACKAGENAME
+end
+
+file GEMFILE => DOC + EXT + EXTCONF + BIN + LIB + SPEC + TEST + EXAMPLE + RAKEFILE + [GEMSPEC] do
+  sh "gem build #{GEMSPEC}"
+end
+
+file GEMFILE_TRYOUT => DOC + EXT + EXTCONF + BIN + LIB + SPEC + TEST + EXAMPLE + RAKEFILE + [GEMSPEC_TRYOUT] do
+#file GEMFILE_TRYOUT do
+  sh "gem build #{GEMSPEC_TRYOUT}"
+end
+
+file GEMSPEC => RAKEFILE do
+  File.write(GEMSPEC, GEMSTUB.to_ruby, mode: "wb")
+end
+
+file GEMSPEC_TRYOUT => RAKEFILE do
+  File.write(GEMSPEC_TRYOUT, GEMSTUB_TRYOUT.to_ruby, mode: "wb")
+end

data/ext/extattr-extattr.h

@@ -0,0 +1,192 @@
+#include <sys/types.h>
+#include <sys/extattr.h>
+
+
+static void
+extattr_list_name(const char list[], size_t size, VALUE infection_source, void (*func)(void *, VALUE), void *userdata)
+{
+    // Each list entry consists of a single byte containing the length of
+    // the attribute name, followed by the attribute name.
+    // The attribute name is not terminated by ASCII 0 (nul).
+    const char *ptr = list;
+    const char *end = list + size;
+
+    while (ptr < end) {
+        size_t len = (uint8_t)*ptr ++;
+        if (ptr + len > end) { return; }
+        VALUE v = rb_str_new(ptr, len);
+        OBJ_INFECT(v, infection_source);
+        func(userdata, v);
+        ptr += len;
+    }
+}
+
+static int
+get_extattr_list_size(ssize_t (*extattr_list)(), intptr_t d, VALUE filesrc, int namespace1)
+{
+    int size = extattr_list(d, namespace1, NULL, 0);
+    if (size < 0) { aux_sys_fail(filesrc, "extattr_list"); }
+    return size;
+}
+
+static VALUE
+extattr_list_common(ssize_t (*extattr_list)(), intptr_t d, VALUE filesrc, int namespace1)
+{
+    size_t size = get_extattr_list_size(extattr_list, d, filesrc, namespace1);
+    VALUE buf;
+    char *ptr = ALLOCV(buf, size);
+
+    ssize_t size1 = extattr_list(d, namespace1, ptr, size);
+    if (size1 < 0) { aux_sys_fail(filesrc, "extattr_list"); }
+
+    VALUE list = Qnil;
+    if (rb_block_given_p()) {
+        extattr_list_name(ptr, size1, filesrc,
+                          (void (*)(void *, VALUE))rb_yield_values, (void *)(1));
+    } else {
+        list = rb_ary_new();
+        OBJ_INFECT(list, filesrc);
+        extattr_list_name(ptr, size1, filesrc,
+                          (void (*)(void *, VALUE))rb_ary_push, (void *)list);
+    }
+    ALLOCV_END(buf);
+
+    return list;
+}
+
+static VALUE
+file_extattr_list_main(VALUE file, int fd, int namespace1)
+{
+    return extattr_list_common(extattr_list_fd, fd, file, namespace1);
+}
+
+static VALUE
+file_s_extattr_list_main(VALUE path, int namespace1)
+{
+    return extattr_list_common(extattr_list_file, (intptr_t)StringValueCStr(path), path, namespace1);
+}
+
+static VALUE
+file_s_extattr_list_link_main(VALUE path, int namespace1)
+{
+    return extattr_list_common(extattr_list_link, (intptr_t)StringValueCStr(path), path, namespace1);
+}
+
+
+static VALUE
+extattr_size_common(ssize_t (*extattr_get)(), intptr_t d, int namespace1, VALUE name)
+{
+    ssize_t size = extattr_get(d, namespace1, StringValueCStr(name), NULL, 0);
+    if (size < 0) { rb_sys_fail("extattr_get call error"); }
+    return SIZET2NUM(size);
+}
+
+static VALUE
+file_extattr_size_main(VALUE file, int fd, int namespace1, VALUE name)
+{
+    return extattr_size_common(extattr_get_fd, fd, namespace1, name);
+}
+
+static VALUE
+file_s_extattr_size_main(VALUE path, int namespace1, VALUE name)
+{
+    return extattr_size_common(extattr_get_file, (intptr_t)StringValueCStr(path), namespace1, name);
+}
+
+static VALUE
+file_s_extattr_size_link_main(VALUE path, int namespace1, VALUE name)
+{
+    return extattr_size_common(extattr_get_link, (intptr_t)StringValueCStr(path), namespace1, name);
+}
+
+
+static VALUE
+extattr_get_common(ssize_t (*extattr_get)(), intptr_t d, VALUE path, int namespace1, VALUE name)
+{
+    ssize_t size = extattr_get(d, namespace1, StringValueCStr(name), NULL, 0);
+    if (size < 0) { rb_sys_fail(StringValueCStr(path)); }
+    VALUE buf = rb_str_buf_new(size);
+    size = extattr_get(d, namespace1, StringValueCStr(name), StringValueCStr(buf), size);
+    if (size < 0) { rb_sys_fail(StringValueCStr(path)); }
+    rb_str_set_len(buf, size);
+    return buf;
+}
+
+static VALUE
+file_extattr_get_main(VALUE file, int fd, int namespace1, VALUE name)
+{
+    return extattr_get_common(extattr_get_fd, fd, RFILE(file)->fptr->pathv, namespace1, name);
+}
+
+static VALUE
+file_s_extattr_get_main(VALUE path, int namespace1, VALUE name)
+{
+    return extattr_get_common(extattr_get_file, (intptr_t)StringValueCStr(path), path, namespace1, name);
+}
+
+static VALUE
+file_s_extattr_get_link_main(VALUE path, int namespace1, VALUE name)
+{
+    return extattr_get_common(extattr_get_link, (intptr_t)StringValueCStr(path), path, namespace1, name);
+}
+
+
+static VALUE
+extattr_set_common(ssize_t (*extattr_set)(), intptr_t d, int namespace1, VALUE name, VALUE data)
+{
+    int status = extattr_set(d, namespace1, StringValueCStr(name), StringValueCStr(data), RSTRING_LEN(data));
+    if (status < 0) { rb_sys_fail("extattr_set call error"); }
+    return Qnil;
+}
+
+static VALUE
+file_extattr_set_main(VALUE file, int fd, int namespace1, VALUE name, VALUE data)
+{
+    return extattr_set_common(extattr_set_fd, fd, namespace1, name, data);
+}
+
+static VALUE
+file_s_extattr_set_main(VALUE path, int namespace1, VALUE name, VALUE data)
+{
+    return extattr_set_common(extattr_set_file, (intptr_t)StringValueCStr(path), namespace1, name, data);
+}
+
+static VALUE
+file_s_extattr_set_link_main(VALUE path, int namespace1, VALUE name, VALUE data)
+{
+    return extattr_set_common(extattr_set_link, (intptr_t)StringValueCStr(path), namespace1, name, data);
+}
+
+
+static VALUE
+extattr_delete_common(int (*extattr_delete)(), intptr_t d, int namespace1, VALUE name)
+{
+    int status = extattr_delete(d, namespace1, StringValueCStr(name), NULL, 0);
+    if (status < 0) { rb_sys_fail("extattr_delete call error"); }
+    return Qnil;
+}
+
+static VALUE
+file_extattr_delete_main(VALUE file, int fd, int namespace1, VALUE name)
+{
+    return extattr_delete_common(extattr_delete_fd, fd, namespace1, name);
+}
+
+static VALUE
+file_s_extattr_delete_main(VALUE path, int namespace1, VALUE name)
+{
+    return extattr_delete_common(extattr_delete_file, (intptr_t)StringValueCStr(path), namespace1, name);
+}
+
+static VALUE
+file_s_extattr_delete_link_main(VALUE path, int namespace1, VALUE name)
+{
+    return extattr_delete_common(extattr_delete_link, (intptr_t)StringValueCStr(path), namespace1, name);
+}
+
+
+static void
+extattr_init_implement(void)
+{
+    rb_define_const(mExtAttr, "IMPLEMENT", rb_str_freeze(rb_str_new_cstr("extattr")));
+}