From fcbf63e62c627deae76c1b8cb8c0876c536ed811 Mon Sep 17 00:00:00 2001 From: Jari Vetoniemi Date: Mon, 16 Mar 2020 18:49:26 +0900 Subject: Fresh start --- jni/ruby/ext/pathname/Makefile | 283 +++++++ jni/ruby/ext/pathname/depend | 3 + jni/ruby/ext/pathname/extconf.h | 3 + jni/ruby/ext/pathname/extconf.rb | 3 + jni/ruby/ext/pathname/lib/pathname.rb | 579 +++++++++++++ jni/ruby/ext/pathname/pathname.c | 1463 +++++++++++++++++++++++++++++++++ 6 files changed, 2334 insertions(+) create mode 100644 jni/ruby/ext/pathname/Makefile create mode 100644 jni/ruby/ext/pathname/depend create mode 100644 jni/ruby/ext/pathname/extconf.h create mode 100644 jni/ruby/ext/pathname/extconf.rb create mode 100644 jni/ruby/ext/pathname/lib/pathname.rb create mode 100644 jni/ruby/ext/pathname/pathname.c (limited to 'jni/ruby/ext/pathname') diff --git a/jni/ruby/ext/pathname/Makefile b/jni/ruby/ext/pathname/Makefile new file mode 100644 index 0000000..0a2bcb2 --- /dev/null +++ b/jni/ruby/ext/pathname/Makefile @@ -0,0 +1,283 @@ + +SHELL = /bin/sh + +# V=0 quiet, V=1 verbose. other values don't work. +V = 0 +Q1 = $(V:1=) +Q = $(Q1:0=@) +ECHO1 = $(V:1=@:) +ECHO = $(ECHO1:0=@echo) +NULLCMD = : + +#### Start of system configuration section. #### +top_srcdir = $(topdir)/. +srcdir = $(top_srcdir)/ext/pathname +topdir = ../.. +hdrdir = $(top_srcdir)/include +arch_hdrdir = $(extout)/include/$(arch) +PATH_SEPARATOR = : +VPATH = $(srcdir):$(arch_hdrdir)/ruby:$(hdrdir)/ruby +RUBYLIB = +RUBYOPT = - +prefix = $(DESTDIR)/usr/local +rubysitearchprefix = $(rubylibprefix)/$(sitearch) +rubyarchprefix = $(rubylibprefix)/$(arch) +rubylibprefix = $(libdir)/$(RUBY_BASE_NAME) +exec_prefix = $(prefix) +vendorarchhdrdir = $(vendorhdrdir)/$(sitearch) +sitearchhdrdir = $(sitehdrdir)/$(sitearch) +rubyarchhdrdir = $(rubyhdrdir)/$(arch) +vendorhdrdir = $(rubyhdrdir)/vendor_ruby +sitehdrdir = $(rubyhdrdir)/site_ruby +rubyhdrdir = $(includedir)/$(RUBY_VERSION_NAME) +vendorarchdir = $(vendorlibdir)/$(sitearch) +vendorlibdir = $(vendordir)/$(ruby_version) +vendordir = $(rubylibprefix)/vendor_ruby +sitearchdir = $(sitelibdir)/$(sitearch) +sitelibdir = $(sitedir)/$(ruby_version) +sitedir = $(rubylibprefix)/site_ruby +rubyarchdir = $(rubylibdir)/$(arch) +rubylibdir = $(rubylibprefix)/$(ruby_version) +sitearchincludedir = $(includedir)/$(sitearch) +archincludedir = $(includedir)/$(arch) +sitearchlibdir = $(libdir)/$(sitearch) +archlibdir = $(libdir)/$(arch) +ridir = $(datarootdir)/$(RI_BASE_NAME) +mandir = $(datarootdir)/man +localedir = $(datarootdir)/locale +libdir = $(exec_prefix)/lib +psdir = $(docdir) +pdfdir = $(docdir) +dvidir = $(docdir) +htmldir = $(docdir) +infodir = $(datarootdir)/info +docdir = $(datarootdir)/doc/$(PACKAGE) +oldincludedir = $(DESTDIR)/usr/include +includedir = $(prefix)/include +localstatedir = $(prefix)/var +sharedstatedir = $(prefix)/com +sysconfdir = $(prefix)/etc +datadir = $(datarootdir) +datarootdir = $(prefix)/share +libexecdir = $(exec_prefix)/libexec +sbindir = $(exec_prefix)/sbin +bindir = $(exec_prefix)/bin +archdir = $(rubyarchdir) + + +CC = gcc +CXX = g++ +LIBRUBY = $(LIBRUBY_SO) +LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a +LIBRUBYARG_SHARED = -Wl,-R$(libdir) -L$(libdir) -l$(RUBY_SO_NAME) +LIBRUBYARG_STATIC = -Wl,-R$(libdir) -L$(libdir) -l$(RUBY_SO_NAME)-static +empty = +OUTFLAG = -o $(empty) +COUTFLAG = -o $(empty) + +RUBY_EXTCONF_H = extconf.h +cflags = $(optflags) $(debugflags) $(warnflags) +optflags = -O3 -fno-fast-math +debugflags = -ggdb3 +warnflags = -Wall -Wextra -Wno-unused-parameter -Wno-parentheses -Wno-long-long -Wno-missing-field-initializers -Wunused-variable -Wpointer-arith -Wwrite-strings -Wdeclaration-after-statement -Wimplicit-function-declaration -Wdeprecated-declarations -Wno-packed-bitfield-compat +CCDLFLAGS = -fPIC +CFLAGS = $(CCDLFLAGS) $(cflags) -fPIC $(ARCH_FLAG) +INCFLAGS = -I. -I$(arch_hdrdir) -I$(hdrdir) -I$(srcdir) +DEFS = +CPPFLAGS = -DRUBY_EXTCONF_H=\"$(RUBY_EXTCONF_H)\" $(DEFS) $(cppflags) +CXXFLAGS = $(CCDLFLAGS) $(cxxflags) $(ARCH_FLAG) +ldflags = -L. -fstack-protector -rdynamic -Wl,-export-dynamic +dldflags = +ARCH_FLAG = +DLDFLAGS = $(ldflags) $(dldflags) $(ARCH_FLAG) +LDSHARED = $(CC) -shared +LDSHAREDXX = $(CXX) -shared +AR = ar +EXEEXT = + +RUBY_INSTALL_NAME = $(RUBY_BASE_NAME) +RUBY_SO_NAME = ruby +RUBYW_INSTALL_NAME = +RUBY_VERSION_NAME = $(RUBY_BASE_NAME)-$(ruby_version) +RUBYW_BASE_NAME = rubyw +RUBY_BASE_NAME = ruby + +arch = x86_64-linux +sitearch = $(arch) +ruby_version = 2.2.0 +ruby = $(topdir)/miniruby -I'$(topdir)' -I'$(top_srcdir)/lib' -I'$(extout)/$(arch)' -I'$(extout)/common' +RUBY = $(ruby) +ruby_headers = $(hdrdir)/ruby.h $(hdrdir)/ruby/ruby.h $(hdrdir)/ruby/defines.h $(hdrdir)/ruby/missing.h $(hdrdir)/ruby/intern.h $(hdrdir)/ruby/st.h $(hdrdir)/ruby/subst.h $(arch_hdrdir)/ruby/config.h $(RUBY_EXTCONF_H) + +RM = rm -f +RM_RF = $(RUBY) -run -e rm -- -rf +RMDIRS = rmdir --ignore-fail-on-non-empty -p +MAKEDIRS = /bin/mkdir -p +INSTALL = /usr/bin/install -c +INSTALL_PROG = $(INSTALL) -m 0755 +INSTALL_DATA = $(INSTALL) -m 644 +COPY = cp +TOUCH = exit > + +#### End of system configuration section. #### + +preload = + +libpath = . $(topdir) +LIBPATH = -L. -L$(topdir) +DEFFILE = + +CLEANFILES = mkmf.log +DISTCLEANFILES = +DISTCLEANDIRS = + +extout = $(topdir)/.ext +extout_prefix = $(extout)$(target_prefix)/ +target_prefix = +LOCAL_LIBS = +LIBS = $(LIBRUBYARG_SHARED) -lpthread -lgmp -ldl -lcrypt -lm -lc +ORIG_SRCS = pathname.c +SRCS = $(ORIG_SRCS) +OBJS = pathname.o +HDRS = $(srcdir)/extconf.h +TARGET = pathname +TARGET_NAME = pathname +TARGET_ENTRY = Init_$(TARGET_NAME) +DLLIB = $(TARGET).so +EXTSTATIC = +STATIC_LIB = $(TARGET).a + +TIMESTAMP_DIR = $(extout)/.timestamp +BINDIR = $(extout)/bin +RUBYCOMMONDIR = $(extout)/common +RUBYLIBDIR = $(RUBYCOMMONDIR)$(target_prefix) +RUBYARCHDIR = $(extout)/$(arch)$(target_prefix) +HDRDIR = $(extout)/include/ruby$(target_prefix) +ARCHHDRDIR = $(extout)/include/$(arch)/ruby$(target_prefix) + +TARGET_SO = $(RUBYARCHDIR)/$(DLLIB) +CLEANLIBS = $(RUBYARCHDIR)/$(TARGET).so +CLEANOBJS = *.o *.bak + +all: install +static: all +.PHONY: all install static install-so install-rb +.PHONY: clean clean-so clean-static clean-rb + +clean-static:: +clean-rb-default:: +clean-rb:: +clean-so:: +clean: clean-so clean-static clean-rb-default clean-rb + -$(Q)$(RM) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES) .*.time + +distclean-rb-default:: +distclean-rb:: +distclean-so:: +distclean-static:: +distclean: clean distclean-so distclean-static distclean-rb-default distclean-rb + -$(Q)$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log + -$(Q)$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES) + -$(Q)$(RMDIRS) $(DISTCLEANDIRS) 2> /dev/null || true + +realclean: distclean +install: install-so install-rb + +install-so: $(RUBYARCHDIR)/$(DLLIB) +clean-so:: + -$(Q)$(RM) $(RUBYARCHDIR)/$(DLLIB) + -$(Q)$(RMDIRS) $(RUBYARCHDIR) 2> /dev/null || true +clean-static:: + -$(Q)$(RM) $(STATIC_LIB) +install-rb: pre-install-rb install-rb-default +install-rb-default: pre-install-rb-default +pre-install-rb: Makefile +pre-install-rb-default: Makefile +pre-install-rb-default: $(TIMESTAMP_DIR)/.RUBYLIBDIR.time +install-rb-default: $(RUBYLIBDIR)/pathname.rb +$(RUBYLIBDIR)/pathname.rb: $(srcdir)/lib/pathname.rb $(TIMESTAMP_DIR)/.RUBYLIBDIR.time + $(Q) $(COPY) $(srcdir)/lib/pathname.rb $(@D) +clean-rb-default:: + -$(Q)$(RM) $(RUBYLIBDIR)/pathname.rb +pre-install-rb-default: + $(ECHO) installing default pathname libraries +clean-rb-default:: + -$(Q)$(RMDIRS) $(RUBYLIBDIR) 2> /dev/null || true +$(TIMESTAMP_DIR)/.RUBYARCHDIR.time: + $(Q) $(MAKEDIRS) $(@D) $(RUBYARCHDIR) + $(Q) $(TOUCH) $@ +$(TIMESTAMP_DIR)/.RUBYLIBDIR.time: + $(Q) $(MAKEDIRS) $(@D) $(RUBYLIBDIR) + $(Q) $(TOUCH) $@ + +site-install: site-install-so site-install-rb +site-install-so: install-so +site-install-rb: install-rb + +.SUFFIXES: .c .m .cc .mm .cxx .cpp .o .S + +.cc.o: + $(ECHO) compiling $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $< + +.cc.S: + $(ECHO) translating $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $< + +.mm.o: + $(ECHO) compiling $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $< + +.mm.S: + $(ECHO) translating $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $< + +.cxx.o: + $(ECHO) compiling $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $< + +.cxx.S: + $(ECHO) translating $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $< + +.cpp.o: + $(ECHO) compiling $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $< + +.cpp.S: + $(ECHO) translating $(<) + $(Q) $(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -S $< + +.c.o: + $(ECHO) compiling $(<) + $(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -c $< + +.c.S: + $(ECHO) translating $(<) + $(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -S $< + +.m.o: + $(ECHO) compiling $(<) + $(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -c $< + +.m.S: + $(ECHO) translating $(<) + $(Q) $(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -S $< + +$(RUBYARCHDIR)/$(DLLIB): $(OBJS) Makefile $(TIMESTAMP_DIR)/.RUBYARCHDIR.time + $(ECHO) linking shared-object $(DLLIB) + -$(Q)$(RM) $(@) + $(Q) $(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS) + +$(STATIC_LIB): $(OBJS) + -$(Q)$(RM) $(@) + $(ECHO) linking static-library $(@) + $(Q) $(AR) cru $@ $(OBJS) + -$(Q)ranlib $(@) 2> /dev/null || true + +### +$(OBJS): $(RUBY_EXTCONF_H) + +$(OBJS): $(HDRS) $(ruby_headers) \ + $(hdrdir)/ruby/encoding.h \ + $(hdrdir)/ruby/oniguruma.h diff --git a/jni/ruby/ext/pathname/depend b/jni/ruby/ext/pathname/depend new file mode 100644 index 0000000..79b6c53 --- /dev/null +++ b/jni/ruby/ext/pathname/depend @@ -0,0 +1,3 @@ +$(OBJS): $(HDRS) $(ruby_headers) \ + $(hdrdir)/ruby/encoding.h \ + $(hdrdir)/ruby/oniguruma.h diff --git a/jni/ruby/ext/pathname/extconf.h b/jni/ruby/ext/pathname/extconf.h new file mode 100644 index 0000000..cda0cc8 --- /dev/null +++ b/jni/ruby/ext/pathname/extconf.h @@ -0,0 +1,3 @@ +#ifndef EXTCONF_H +#define EXTCONF_H +#endif diff --git a/jni/ruby/ext/pathname/extconf.rb b/jni/ruby/ext/pathname/extconf.rb new file mode 100644 index 0000000..037f100 --- /dev/null +++ b/jni/ruby/ext/pathname/extconf.rb @@ -0,0 +1,3 @@ +require 'mkmf' +have_struct_member("struct stat", "st_birthtimespec", "sys/stat.h") +create_makefile('pathname') diff --git a/jni/ruby/ext/pathname/lib/pathname.rb b/jni/ruby/ext/pathname/lib/pathname.rb new file mode 100644 index 0000000..82541e9 --- /dev/null +++ b/jni/ruby/ext/pathname/lib/pathname.rb @@ -0,0 +1,579 @@ +# +# = pathname.rb +# +# Object-Oriented Pathname Class +# +# Author:: Tanaka Akira +# Documentation:: Author and Gavin Sinclair +# +# For documentation, see class Pathname. +# + +require 'pathname.so' + +class Pathname + + # :stopdoc: + if RUBY_VERSION < "1.9" + TO_PATH = :to_str + else + # to_path is implemented so Pathname objects are usable with File.open, etc. + TO_PATH = :to_path + end + + SAME_PATHS = if File::FNM_SYSCASE.nonzero? + # Avoid #zero? here because #casecmp can return nil. + proc {|a, b| a.casecmp(b) == 0} + else + proc {|a, b| a == b} + end + + + if File::ALT_SEPARATOR + SEPARATOR_LIST = "#{Regexp.quote File::ALT_SEPARATOR}#{Regexp.quote File::SEPARATOR}" + SEPARATOR_PAT = /[#{SEPARATOR_LIST}]/ + else + SEPARATOR_LIST = "#{Regexp.quote File::SEPARATOR}" + SEPARATOR_PAT = /#{Regexp.quote File::SEPARATOR}/ + end + + # :startdoc: + + # chop_basename(path) -> [pre-basename, basename] or nil + def chop_basename(path) # :nodoc: + base = File.basename(path) + if /\A#{SEPARATOR_PAT}?\z/o =~ base + return nil + else + return path[0, path.rindex(base)], base + end + end + private :chop_basename + + # split_names(path) -> prefix, [name, ...] + def split_names(path) # :nodoc: + names = [] + while r = chop_basename(path) + path, basename = r + names.unshift basename + end + return path, names + end + private :split_names + + def prepend_prefix(prefix, relpath) # :nodoc: + if relpath.empty? + File.dirname(prefix) + elsif /#{SEPARATOR_PAT}/o =~ prefix + prefix = File.dirname(prefix) + prefix = File.join(prefix, "") if File.basename(prefix + 'a') != 'a' + prefix + relpath + else + prefix + relpath + end + end + private :prepend_prefix + + # Returns clean pathname of +self+ with consecutive slashes and useless dots + # removed. The filesystem is not accessed. + # + # If +consider_symlink+ is +true+, then a more conservative algorithm is used + # to avoid breaking symbolic linkages. This may retain more +..+ + # entries than absolutely necessary, but without accessing the filesystem, + # this can't be avoided. + # + # See Pathname#realpath. + # + def cleanpath(consider_symlink=false) + if consider_symlink + cleanpath_conservative + else + cleanpath_aggressive + end + end + + # + # Clean the path simply by resolving and removing excess +.+ and +..+ entries. + # Nothing more, nothing less. + # + def cleanpath_aggressive # :nodoc: + path = @path + names = [] + pre = path + while r = chop_basename(pre) + pre, base = r + case base + when '.' + when '..' + names.unshift base + else + if names[0] == '..' + names.shift + else + names.unshift base + end + end + end + pre.tr!(File::ALT_SEPARATOR, File::SEPARATOR) if File::ALT_SEPARATOR + if /#{SEPARATOR_PAT}/o =~ File.basename(pre) + names.shift while names[0] == '..' + end + self.class.new(prepend_prefix(pre, File.join(*names))) + end + private :cleanpath_aggressive + + # has_trailing_separator?(path) -> bool + def has_trailing_separator?(path) # :nodoc: + if r = chop_basename(path) + pre, basename = r + pre.length + basename.length < path.length + else + false + end + end + private :has_trailing_separator? + + # add_trailing_separator(path) -> path + def add_trailing_separator(path) # :nodoc: + if File.basename(path + 'a') == 'a' + path + else + File.join(path, "") # xxx: Is File.join is appropriate to add separator? + end + end + private :add_trailing_separator + + def del_trailing_separator(path) # :nodoc: + if r = chop_basename(path) + pre, basename = r + pre + basename + elsif /#{SEPARATOR_PAT}+\z/o =~ path + $` + File.dirname(path)[/#{SEPARATOR_PAT}*\z/o] + else + path + end + end + private :del_trailing_separator + + def cleanpath_conservative # :nodoc: + path = @path + names = [] + pre = path + while r = chop_basename(pre) + pre, base = r + names.unshift base if base != '.' + end + pre.tr!(File::ALT_SEPARATOR, File::SEPARATOR) if File::ALT_SEPARATOR + if /#{SEPARATOR_PAT}/o =~ File.basename(pre) + names.shift while names[0] == '..' + end + if names.empty? + self.class.new(File.dirname(pre)) + else + if names.last != '..' && File.basename(path) == '.' + names << '.' + end + result = prepend_prefix(pre, File.join(*names)) + if /\A(?:\.|\.\.)\z/ !~ names.last && has_trailing_separator?(path) + self.class.new(add_trailing_separator(result)) + else + self.class.new(result) + end + end + end + private :cleanpath_conservative + + # Returns the parent directory. + # + # This is same as self + '..'. + def parent + self + '..' + end + + # Returns +true+ if +self+ points to a mountpoint. + def mountpoint? + begin + stat1 = self.lstat + stat2 = self.parent.lstat + stat1.dev == stat2.dev && stat1.ino == stat2.ino || + stat1.dev != stat2.dev + rescue Errno::ENOENT + false + end + end + + # + # Predicate method for root directories. Returns +true+ if the + # pathname consists of consecutive slashes. + # + # It doesn't access the filesystem. So it may return +false+ for some + # pathnames which points to roots such as /usr/... + # + def root? + !!(chop_basename(@path) == nil && /#{SEPARATOR_PAT}/o =~ @path) + end + + # Predicate method for testing whether a path is absolute. + # + # It returns +true+ if the pathname begins with a slash. + # + # p = Pathname.new('/im/sure') + # p.absolute? + # #=> true + # + # p = Pathname.new('not/so/sure') + # p.absolute? + # #=> false + def absolute? + !relative? + end + + # The opposite of Pathname#absolute? + # + # It returns +false+ if the pathname begins with a slash. + # + # p = Pathname.new('/im/sure') + # p.relative? + # #=> false + # + # p = Pathname.new('not/so/sure') + # p.relative? + # #=> true + def relative? + path = @path + while r = chop_basename(path) + path, = r + end + path == '' + end + + # + # Iterates over each component of the path. + # + # Pathname.new("/usr/bin/ruby").each_filename {|filename| ... } + # # yields "usr", "bin", and "ruby". + # + # Returns an Enumerator if no block was given. + # + # enum = Pathname.new("/usr/bin/ruby").each_filename + # # ... do stuff ... + # enum.each { |e| ... } + # # yields "usr", "bin", and "ruby". + # + def each_filename # :yield: filename + return to_enum(__method__) unless block_given? + _, names = split_names(@path) + names.each {|filename| yield filename } + nil + end + + # Iterates over and yields a new Pathname object + # for each element in the given path in descending order. + # + # Pathname.new('/path/to/some/file.rb').descend {|v| p v} + # # + # # + # # + # # + # # + # + # Pathname.new('path/to/some/file.rb').descend {|v| p v} + # # + # # + # # + # # + # + # It doesn't access the filesystem. + # + def descend + vs = [] + ascend {|v| vs << v } + vs.reverse_each {|v| yield v } + nil + end + + # Iterates over and yields a new Pathname object + # for each element in the given path in ascending order. + # + # Pathname.new('/path/to/some/file.rb').ascend {|v| p v} + # # + # # + # # + # # + # # + # + # Pathname.new('path/to/some/file.rb').ascend {|v| p v} + # # + # # + # # + # # + # + # It doesn't access the filesystem. + # + def ascend + path = @path + yield self + while r = chop_basename(path) + path, = r + break if path.empty? + yield self.class.new(del_trailing_separator(path)) + end + end + + # + # Appends a pathname fragment to +self+ to produce a new Pathname object. + # + # p1 = Pathname.new("/usr") # Pathname:/usr + # p2 = p1 + "bin/ruby" # Pathname:/usr/bin/ruby + # p3 = p1 + "/etc/passwd" # Pathname:/etc/passwd + # + # # / is aliased to +. + # p4 = p1 / "bin/ruby" # Pathname:/usr/bin/ruby + # p5 = p1 / "/etc/passwd" # Pathname:/etc/passwd + # + # This method doesn't access the file system; it is pure string manipulation. + # + def +(other) + other = Pathname.new(other) unless Pathname === other + Pathname.new(plus(@path, other.to_s)) + end + alias / + + + def plus(path1, path2) # -> path # :nodoc: + prefix2 = path2 + index_list2 = [] + basename_list2 = [] + while r2 = chop_basename(prefix2) + prefix2, basename2 = r2 + index_list2.unshift prefix2.length + basename_list2.unshift basename2 + end + return path2 if prefix2 != '' + prefix1 = path1 + while true + while !basename_list2.empty? && basename_list2.first == '.' + index_list2.shift + basename_list2.shift + end + break unless r1 = chop_basename(prefix1) + prefix1, basename1 = r1 + next if basename1 == '.' + if basename1 == '..' || basename_list2.empty? || basename_list2.first != '..' + prefix1 = prefix1 + basename1 + break + end + index_list2.shift + basename_list2.shift + end + r1 = chop_basename(prefix1) + if !r1 && /#{SEPARATOR_PAT}/o =~ File.basename(prefix1) + while !basename_list2.empty? && basename_list2.first == '..' + index_list2.shift + basename_list2.shift + end + end + if !basename_list2.empty? + suffix2 = path2[index_list2.first..-1] + r1 ? File.join(prefix1, suffix2) : prefix1 + suffix2 + else + r1 ? prefix1 : File.dirname(prefix1) + end + end + private :plus + + # + # Joins the given pathnames onto +self+ to create a new Pathname object. + # + # path0 = Pathname.new("/usr") # Pathname:/usr + # path0 = path0.join("bin/ruby") # Pathname:/usr/bin/ruby + # # is the same as + # path1 = Pathname.new("/usr") + "bin/ruby" # Pathname:/usr/bin/ruby + # path0 == path1 + # #=> true + # + def join(*args) + return self if args.empty? + result = args.pop + result = Pathname.new(result) unless Pathname === result + return result if result.absolute? + args.reverse_each {|arg| + arg = Pathname.new(arg) unless Pathname === arg + result = arg + result + return result if result.absolute? + } + self + result + end + + # + # Returns the children of the directory (files and subdirectories, not + # recursive) as an array of Pathname objects. + # + # By default, the returned pathnames will have enough information to access + # the files. If you set +with_directory+ to +false+, then the returned + # pathnames will contain the filename only. + # + # For example: + # pn = Pathname("/usr/lib/ruby/1.8") + # pn.children + # # -> [ Pathname:/usr/lib/ruby/1.8/English.rb, + # Pathname:/usr/lib/ruby/1.8/Env.rb, + # Pathname:/usr/lib/ruby/1.8/abbrev.rb, ... ] + # pn.children(false) + # # -> [ Pathname:English.rb, Pathname:Env.rb, Pathname:abbrev.rb, ... ] + # + # Note that the results never contain the entries +.+ and +..+ in + # the directory because they are not children. + # + def children(with_directory=true) + with_directory = false if @path == '.' + result = [] + Dir.foreach(@path) {|e| + next if e == '.' || e == '..' + if with_directory + result << self.class.new(File.join(@path, e)) + else + result << self.class.new(e) + end + } + result + end + + # Iterates over the children of the directory + # (files and subdirectories, not recursive). + # + # It yields Pathname object for each child. + # + # By default, the yielded pathnames will have enough information to access + # the files. + # + # If you set +with_directory+ to +false+, then the returned pathnames will + # contain the filename only. + # + # Pathname("/usr/local").each_child {|f| p f } + # #=> # + # # # + # # # + # # # + # # # + # # # + # # # + # # # + # + # Pathname("/usr/local").each_child(false) {|f| p f } + # #=> # + # # # + # # # + # # # + # # # + # # # + # # # + # # # + # + # Note that the results never contain the entries +.+ and +..+ in + # the directory because they are not children. + # + # See Pathname#children + # + def each_child(with_directory=true, &b) + children(with_directory).each(&b) + end + + # + # Returns a relative path from the given +base_directory+ to the receiver. + # + # If +self+ is absolute, then +base_directory+ must be absolute too. + # + # If +self+ is relative, then +base_directory+ must be relative too. + # + # This method doesn't access the filesystem. It assumes no symlinks. + # + # ArgumentError is raised when it cannot find a relative path. + # + def relative_path_from(base_directory) + dest_directory = self.cleanpath.to_s + base_directory = base_directory.cleanpath.to_s + dest_prefix = dest_directory + dest_names = [] + while r = chop_basename(dest_prefix) + dest_prefix, basename = r + dest_names.unshift basename if basename != '.' + end + base_prefix = base_directory + base_names = [] + while r = chop_basename(base_prefix) + base_prefix, basename = r + base_names.unshift basename if basename != '.' + end + unless SAME_PATHS[dest_prefix, base_prefix] + raise ArgumentError, "different prefix: #{dest_prefix.inspect} and #{base_directory.inspect}" + end + while !dest_names.empty? && + !base_names.empty? && + SAME_PATHS[dest_names.first, base_names.first] + dest_names.shift + base_names.shift + end + if base_names.include? '..' + raise ArgumentError, "base_directory has ..: #{base_directory.inspect}" + end + base_names.fill('..') + relpath_names = base_names + dest_names + if relpath_names.empty? + Pathname.new('.') + else + Pathname.new(File.join(*relpath_names)) + end + end +end + + +class Pathname # * Find * + # + # Iterates over the directory tree in a depth first manner, yielding a + # Pathname for each file under "this" directory. + # + # Returns an Enumerator if no block is given. + # + # Since it is implemented by the standard library module Find, Find.prune can + # be used to control the traversal. + # + # If +self+ is +.+, yielded pathnames begin with a filename in the + # current directory, not +./+. + # + # See Find.find + # + def find(ignore_error: true) # :yield: pathname + return to_enum(__method__, ignore_error: ignore_error) unless block_given? + require 'find' + if @path == '.' + Find.find(@path, ignore_error: ignore_error) {|f| yield self.class.new(f.sub(%r{\A\./}, '')) } + else + Find.find(@path, ignore_error: ignore_error) {|f| yield self.class.new(f) } + end + end +end + + +class Pathname # * FileUtils * + # Creates a full path, including any intermediate directories that don't yet + # exist. + # + # See FileUtils.mkpath and FileUtils.mkdir_p + def mkpath + require 'fileutils' + FileUtils.mkpath(@path) + nil + end + + # Recursively deletes a directory, including all directories beneath it. + # + # See FileUtils.rm_r + def rmtree + # The name "rmtree" is borrowed from File::Path of Perl. + # File::Path provides "mkpath" and "rmtree". + require 'fileutils' + FileUtils.rm_r(@path) + nil + end +end + diff --git a/jni/ruby/ext/pathname/pathname.c b/jni/ruby/ext/pathname/pathname.c new file mode 100644 index 0000000..982ef0f --- /dev/null +++ b/jni/ruby/ext/pathname/pathname.c @@ -0,0 +1,1463 @@ +#include "ruby.h" +#include "ruby/encoding.h" + +static VALUE rb_cPathname; +static ID id_at_path, id_to_path; + +static VALUE +get_strpath(VALUE obj) +{ + VALUE strpath; + strpath = rb_ivar_get(obj, id_at_path); + if (!RB_TYPE_P(strpath, T_STRING)) + rb_raise(rb_eTypeError, "unexpected @path"); + return strpath; +} + +static void +set_strpath(VALUE obj, VALUE val) +{ + rb_ivar_set(obj, id_at_path, val); +} + +/* + * Create a Pathname object from the given String (or String-like object). + * If +path+ contains a NULL character (\0), an ArgumentError is raised. + */ +static VALUE +path_initialize(VALUE self, VALUE arg) +{ + VALUE str; + if (RB_TYPE_P(arg, T_STRING)) { + str = arg; + } + else { + str = rb_check_funcall(arg, id_to_path, 0, NULL); + if (str == Qundef) + str = arg; + StringValue(str); + } + if (memchr(RSTRING_PTR(str), '\0', RSTRING_LEN(str))) + rb_raise(rb_eArgError, "pathname contains null byte"); + str = rb_obj_dup(str); + + set_strpath(self, str); + OBJ_INFECT(self, str); + return self; +} + +/* + * call-seq: + * pathname.freeze -> obj + * + * Freezes this Pathname. + * + * See Object.freeze. + */ +static VALUE +path_freeze(VALUE self) +{ + rb_call_super(0, 0); + rb_str_freeze(get_strpath(self)); + return self; +} + +/* + * call-seq: + * pathname.taint -> obj + * + * Taints this Pathname. + * + * See Object.taint. + */ +static VALUE +path_taint(VALUE self) +{ + rb_call_super(0, 0); + rb_obj_taint(get_strpath(self)); + return self; +} + +/* + * call-seq: + * pathname.untaint -> obj + * + * Untaints this Pathname. + * + * See Object.untaint. + */ +static VALUE +path_untaint(VALUE self) +{ + rb_call_super(0, 0); + rb_obj_untaint(get_strpath(self)); + return self; +} + +/* + * Compare this pathname with +other+. The comparison is string-based. + * Be aware that two different paths (foo.txt and ./foo.txt) + * can refer to the same file. + */ +static VALUE +path_eq(VALUE self, VALUE other) +{ + if (!rb_obj_is_kind_of(other, rb_cPathname)) + return Qfalse; + return rb_str_equal(get_strpath(self), get_strpath(other)); +} + +/* + * Provides a case-sensitive comparison operator for pathnames. + * + * Pathname.new('/usr') <=> Pathname.new('/usr/bin') + * #=> -1 + * Pathname.new('/usr/bin') <=> Pathname.new('/usr/bin') + * #=> 0 + * Pathname.new('/usr/bin') <=> Pathname.new('/USR/BIN') + * #=> 1 + * + * It will return +-1+, +0+ or +1+ depending on the value of the left argument + * relative to the right argument. Or it will return +nil+ if the arguments + * are not comparable. + */ +static VALUE +path_cmp(VALUE self, VALUE other) +{ + VALUE s1, s2; + char *p1, *p2; + char *e1, *e2; + if (!rb_obj_is_kind_of(other, rb_cPathname)) + return Qnil; + s1 = get_strpath(self); + s2 = get_strpath(other); + p1 = RSTRING_PTR(s1); + p2 = RSTRING_PTR(s2); + e1 = p1 + RSTRING_LEN(s1); + e2 = p2 + RSTRING_LEN(s2); + while (p1 < e1 && p2 < e2) { + int c1, c2; + c1 = (unsigned char)*p1++; + c2 = (unsigned char)*p2++; + if (c1 == '/') c1 = '\0'; + if (c2 == '/') c2 = '\0'; + if (c1 != c2) { + if (c1 < c2) + return INT2FIX(-1); + else + return INT2FIX(1); + } + } + if (p1 < e1) + return INT2FIX(1); + if (p2 < e2) + return INT2FIX(-1); + return INT2FIX(0); +} + +/* :nodoc: */ +static VALUE +path_hash(VALUE self) +{ + return INT2FIX(rb_str_hash(get_strpath(self))); +} + +/* + * call-seq: + * pathname.to_s -> string + * pathname.to_path -> string + * + * Return the path as a String. + * + * to_path is implemented so Pathname objects are usable with File.open, etc. + */ +static VALUE +path_to_s(VALUE self) +{ + return rb_obj_dup(get_strpath(self)); +} + +/* :nodoc: */ +static VALUE +path_inspect(VALUE self) +{ + const char *c = rb_obj_classname(self); + VALUE str = get_strpath(self); + return rb_sprintf("#<%s:%"PRIsVALUE">", c, str); +} + +/* + * Return a pathname which is substituted by String#sub. + * + * path1 = Pathname.new('/usr/bin/perl') + * path1.sub('perl', 'ruby') + * #=> # + */ +static VALUE +path_sub(int argc, VALUE *argv, VALUE self) +{ + VALUE str = get_strpath(self); + + if (rb_block_given_p()) { + str = rb_block_call(str, rb_intern("sub"), argc, argv, 0, 0); + } + else { + str = rb_funcall2(str, rb_intern("sub"), argc, argv); + } + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * Return a pathname with +repl+ added as a suffix to the basename. + * + * If self has no extension part, +repl+ is appended. + * + * Pathname.new('/usr/bin/shutdown').sub_ext('.rb') + * #=> # + */ +static VALUE +path_sub_ext(VALUE self, VALUE repl) +{ + VALUE str = get_strpath(self); + VALUE str2; + long extlen; + const char *ext; + const char *p; + + StringValue(repl); + p = RSTRING_PTR(str); + extlen = RSTRING_LEN(str); + ext = ruby_enc_find_extname(p, &extlen, rb_enc_get(str)); + if (ext == NULL) { + ext = p + RSTRING_LEN(str); + } + else if (extlen <= 1) { + ext += extlen; + } + str2 = rb_str_subseq(str, 0, ext-p); + rb_str_append(str2, repl); + OBJ_INFECT(str2, str); + return rb_class_new_instance(1, &str2, rb_obj_class(self)); +} + +/* Facade for File */ + +/* + * Returns the real (absolute) pathname for +self+ in the actual + * filesystem. + * + * Does not contain symlinks or useless dots, +..+ and +.+. + * + * All components of the pathname must exist when this method is + * called. + * + */ +static VALUE +path_realpath(int argc, VALUE *argv, VALUE self) +{ + VALUE basedir, str; + rb_scan_args(argc, argv, "01", &basedir); + str = rb_funcall(rb_cFile, rb_intern("realpath"), 2, get_strpath(self), basedir); + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * Returns the real (absolute) pathname of +self+ in the actual filesystem. + * + * Does not contain symlinks or useless dots, +..+ and +.+. + * + * The last component of the real pathname can be nonexistent. + */ +static VALUE +path_realdirpath(int argc, VALUE *argv, VALUE self) +{ + VALUE basedir, str; + rb_scan_args(argc, argv, "01", &basedir); + str = rb_funcall(rb_cFile, rb_intern("realdirpath"), 2, get_strpath(self), basedir); + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * call-seq: + * pathname.each_line {|line| ... } + * pathname.each_line(sep=$/ [, open_args]) {|line| block } -> nil + * pathname.each_line(limit [, open_args]) {|line| block } -> nil + * pathname.each_line(sep, limit [, open_args]) {|line| block } -> nil + * pathname.each_line(...) -> an_enumerator + * + * Iterates over each line in the file and yields a String object for each. + */ +static VALUE +path_each_line(int argc, VALUE *argv, VALUE self) +{ + VALUE args[4]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "03", &args[1], &args[2], &args[3]); + if (rb_block_given_p()) { + return rb_block_call(rb_cIO, rb_intern("foreach"), 1+n, args, 0, 0); + } + else { + return rb_funcall2(rb_cIO, rb_intern("foreach"), 1+n, args); + } +} + +/* + * call-seq: + * pathname.read([length [, offset]]) -> string + * pathname.read([length [, offset]], open_args) -> string + * + * Returns all data from the file, or the first +N+ bytes if specified. + * + * See IO.read. + * + */ +static VALUE +path_read(int argc, VALUE *argv, VALUE self) +{ + VALUE args[4]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "03", &args[1], &args[2], &args[3]); + return rb_funcall2(rb_cIO, rb_intern("read"), 1+n, args); +} + +/* + * call-seq: + * pathname.binread([length [, offset]]) -> string + * + * Returns all the bytes from the file, or the first +N+ if specified. + * + * See IO.binread. + * + */ +static VALUE +path_binread(int argc, VALUE *argv, VALUE self) +{ + VALUE args[3]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "02", &args[1], &args[2]); + return rb_funcall2(rb_cIO, rb_intern("binread"), 1+n, args); +} + +/* + * call-seq: + * pathname.write(string, [offset] ) => fixnum + * pathname.write(string, [offset], open_args ) => fixnum + * + * Writes +contents+ to the file. + * + * See IO.write. + * + */ +static VALUE +path_write(int argc, VALUE *argv, VALUE self) +{ + VALUE args[4]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "03", &args[1], &args[2], &args[3]); + return rb_funcall2(rb_cIO, rb_intern("write"), 1+n, args); +} + +/* + * call-seq: + * pathname.binwrite(string, [offset] ) => fixnum + * pathname.binwrite(string, [offset], open_args ) => fixnum + * + * Writes +contents+ to the file, opening it in binary mode. + * + * See IO.binwrite. + * + */ +static VALUE +path_binwrite(int argc, VALUE *argv, VALUE self) +{ + VALUE args[4]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "03", &args[1], &args[2], &args[3]); + return rb_funcall2(rb_cIO, rb_intern("binwrite"), 1+n, args); +} + +/* + * call-seq: + * pathname.readlines(sep=$/ [, open_args]) -> array + * pathname.readlines(limit [, open_args]) -> array + * pathname.readlines(sep, limit [, open_args]) -> array + * + * Returns all the lines from the file. + * + * See IO.readlines. + * + */ +static VALUE +path_readlines(int argc, VALUE *argv, VALUE self) +{ + VALUE args[4]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "03", &args[1], &args[2], &args[3]); + return rb_funcall2(rb_cIO, rb_intern("readlines"), 1+n, args); +} + +/* + * call-seq: + * pathname.sysopen([mode, [perm]]) -> fixnum + * + * See IO.sysopen. + * + */ +static VALUE +path_sysopen(int argc, VALUE *argv, VALUE self) +{ + VALUE args[3]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "02", &args[1], &args[2]); + return rb_funcall2(rb_cIO, rb_intern("sysopen"), 1+n, args); +} + +/* + * call-seq: + * pathname.atime -> time + * + * Returns the last access time for the file. + * + * See File.atime. + */ +static VALUE +path_atime(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("atime"), 1, get_strpath(self)); +} + +#if defined(HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC) || defined(_WIN32) +/* + * call-seq: + * pathname.birthtime -> time + * + * Returns the birth time for the file. + * If the platform doesn't have birthtime, returns ctime. + * + * See File.birthtime. + */ +static VALUE +path_birthtime(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("birthtime"), 1, get_strpath(self)); +} +#else +# define path_birthtime rb_f_notimplement +#endif + +/* + * call-seq: + * pathname.ctime -> time + * + * Returns the last change time, using directory information, not the file itself. + * + * See File.ctime. + */ +static VALUE +path_ctime(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("ctime"), 1, get_strpath(self)); +} + +/* + * call-seq: + * pathname.mtime -> time + * + * Returns the last modified time of the file. + * + * See File.mtime. + */ +static VALUE +path_mtime(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("mtime"), 1, get_strpath(self)); +} + +/* + * call-seq: + * pathname.chmod -> integer + * + * Changes file permissions. + * + * See File.chmod. + */ +static VALUE +path_chmod(VALUE self, VALUE mode) +{ + return rb_funcall(rb_cFile, rb_intern("chmod"), 2, mode, get_strpath(self)); +} + +/* + * call-seq: + * pathname.lchmod -> integer + * + * Same as Pathname.chmod, but does not follow symbolic links. + * + * See File.lchmod. + */ +static VALUE +path_lchmod(VALUE self, VALUE mode) +{ + return rb_funcall(rb_cFile, rb_intern("lchmod"), 2, mode, get_strpath(self)); +} + +/* + * call-seq: + * pathname.chown -> integer + * + * Change owner and group of the file. + * + * See File.chown. + */ +static VALUE +path_chown(VALUE self, VALUE owner, VALUE group) +{ + return rb_funcall(rb_cFile, rb_intern("chown"), 3, owner, group, get_strpath(self)); +} + +/* + * call-seq: + * pathname.lchown -> integer + * + * Same as Pathname.chown, but does not follow symbolic links. + * + * See File.lchown. + */ +static VALUE +path_lchown(VALUE self, VALUE owner, VALUE group) +{ + return rb_funcall(rb_cFile, rb_intern("lchown"), 3, owner, group, get_strpath(self)); +} + +/* + * call-seq: + * pathname.fnmatch(pattern, [flags]) -> string + * pathname.fnmatch?(pattern, [flags]) -> string + * + * Return +true+ if the receiver matches the given pattern. + * + * See File.fnmatch. + */ +static VALUE +path_fnmatch(int argc, VALUE *argv, VALUE self) +{ + VALUE str = get_strpath(self); + VALUE pattern, flags; + if (rb_scan_args(argc, argv, "11", &pattern, &flags) == 1) + return rb_funcall(rb_cFile, rb_intern("fnmatch"), 2, pattern, str); + else + return rb_funcall(rb_cFile, rb_intern("fnmatch"), 3, pattern, str, flags); +} + +/* + * call-seq: + * pathname.ftype -> string + * + * Returns "type" of file ("file", "directory", etc). + * + * See File.ftype. + */ +static VALUE +path_ftype(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("ftype"), 1, get_strpath(self)); +} + +/* + * call-seq: + * pathname.make_link(old) + * + * Creates a hard link at _pathname_. + * + * See File.link. + */ +static VALUE +path_make_link(VALUE self, VALUE old) +{ + return rb_funcall(rb_cFile, rb_intern("link"), 2, old, get_strpath(self)); +} + +/* + * Opens the file for reading or writing. + * + * See File.open. + */ +static VALUE +path_open(int argc, VALUE *argv, VALUE self) +{ + VALUE args[4]; + int n; + + args[0] = get_strpath(self); + n = rb_scan_args(argc, argv, "03", &args[1], &args[2], &args[3]); + if (rb_block_given_p()) { + return rb_block_call(rb_cFile, rb_intern("open"), 1+n, args, 0, 0); + } + else { + return rb_funcall2(rb_cFile, rb_intern("open"), 1+n, args); + } +} + +/* + * Read symbolic link. + * + * See File.readlink. + */ +static VALUE +path_readlink(VALUE self) +{ + VALUE str; + str = rb_funcall(rb_cFile, rb_intern("readlink"), 1, get_strpath(self)); + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * Rename the file. + * + * See File.rename. + */ +static VALUE +path_rename(VALUE self, VALUE to) +{ + return rb_funcall(rb_cFile, rb_intern("rename"), 2, get_strpath(self), to); +} + +/* + * Returns a File::Stat object. + * + * See File.stat. + */ +static VALUE +path_stat(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("stat"), 1, get_strpath(self)); +} + +/* + * See File.lstat. + */ +static VALUE +path_lstat(VALUE self) +{ + return rb_funcall(rb_cFile, rb_intern("lstat"), 1, get_strpath(self)); +} + +/* + * call-seq: + * pathname.make_symlink(old) + * + * Creates a symbolic link. + * + * See File.symlink. + */ +static VALUE +path_make_symlink(VALUE self, VALUE old) +{ + return rb_funcall(rb_cFile, rb_intern("symlink"), 2, old, get_strpath(self)); +} + +/* + * Truncates the file to +length+ bytes. + * + * See File.truncate. + */ +static VALUE +path_truncate(VALUE self, VALUE length) +{ + return rb_funcall(rb_cFile, rb_intern("truncate"), 2, get_strpath(self), length); +} + +/* + * Update the access and modification times of the file. + * + * See File.utime. + */ +static VALUE +path_utime(VALUE self, VALUE atime, VALUE mtime) +{ + return rb_funcall(rb_cFile, rb_intern("utime"), 3, atime, mtime, get_strpath(self)); +} + +/* + * Returns the last component of the path. + * + * See File.basename. + */ +static VALUE +path_basename(int argc, VALUE *argv, VALUE self) +{ + VALUE str = get_strpath(self); + VALUE fext; + if (rb_scan_args(argc, argv, "01", &fext) == 0) + str = rb_funcall(rb_cFile, rb_intern("basename"), 1, str); + else + str = rb_funcall(rb_cFile, rb_intern("basename"), 2, str, fext); + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * Returns all but the last component of the path. + * + * See File.dirname. + */ +static VALUE +path_dirname(VALUE self) +{ + VALUE str = get_strpath(self); + str = rb_funcall(rb_cFile, rb_intern("dirname"), 1, str); + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * Returns the file's extension. + * + * See File.extname. + */ +static VALUE +path_extname(VALUE self) +{ + VALUE str = get_strpath(self); + return rb_funcall(rb_cFile, rb_intern("extname"), 1, str); +} + +/* + * Returns the absolute path for the file. + * + * See File.expand_path. + */ +static VALUE +path_expand_path(int argc, VALUE *argv, VALUE self) +{ + VALUE str = get_strpath(self); + VALUE dname; + if (rb_scan_args(argc, argv, "01", &dname) == 0) + str = rb_funcall(rb_cFile, rb_intern("expand_path"), 1, str); + else + str = rb_funcall(rb_cFile, rb_intern("expand_path"), 2, str, dname); + return rb_class_new_instance(1, &str, rb_obj_class(self)); +} + +/* + * Returns the #dirname and the #basename in an Array. + * + * See File.split. + */ +static VALUE +path_split(VALUE self) +{ + VALUE str = get_strpath(self); + VALUE ary, dirname, basename; + ary = rb_funcall(rb_cFile, rb_intern("split"), 1, str); + ary = rb_check_array_type(ary); + dirname = rb_ary_entry(ary, 0); + basename = rb_ary_entry(ary, 1); + dirname = rb_class_new_instance(1, &dirname, rb_obj_class(self)); + basename = rb_class_new_instance(1, &basename, rb_obj_class(self)); + return rb_ary_new3(2, dirname, basename); +} + +/* + * See FileTest.blockdev?. + */ +static VALUE +path_blockdev_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("blockdev?"), 1, get_strpath(self)); +} + +/* + * See FileTest.chardev?. + */ +static VALUE +path_chardev_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("chardev?"), 1, get_strpath(self)); +} + +/* + * See FileTest.executable?. + */ +static VALUE +path_executable_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("executable?"), 1, get_strpath(self)); +} + +/* + * See FileTest.executable_real?. + */ +static VALUE +path_executable_real_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("executable_real?"), 1, get_strpath(self)); +} + +/* + * See FileTest.exist?. + */ +static VALUE +path_exist_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("exist?"), 1, get_strpath(self)); +} + +/* + * See FileTest.grpowned?. + */ +static VALUE +path_grpowned_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("grpowned?"), 1, get_strpath(self)); +} + +/* + * See FileTest.directory?. + */ +static VALUE +path_directory_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("directory?"), 1, get_strpath(self)); +} + +/* + * See FileTest.file?. + */ +static VALUE +path_file_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("file?"), 1, get_strpath(self)); +} + +/* + * See FileTest.pipe?. + */ +static VALUE +path_pipe_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("pipe?"), 1, get_strpath(self)); +} + +/* + * See FileTest.socket?. + */ +static VALUE +path_socket_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("socket?"), 1, get_strpath(self)); +} + +/* + * See FileTest.owned?. + */ +static VALUE +path_owned_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("owned?"), 1, get_strpath(self)); +} + +/* + * See FileTest.readable?. + */ +static VALUE +path_readable_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("readable?"), 1, get_strpath(self)); +} + +/* + * See FileTest.world_readable?. + */ +static VALUE +path_world_readable_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("world_readable?"), 1, get_strpath(self)); +} + +/* + * See FileTest.readable_real?. + */ +static VALUE +path_readable_real_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("readable_real?"), 1, get_strpath(self)); +} + +/* + * See FileTest.setuid?. + */ +static VALUE +path_setuid_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("setuid?"), 1, get_strpath(self)); +} + +/* + * See FileTest.setgid?. + */ +static VALUE +path_setgid_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("setgid?"), 1, get_strpath(self)); +} + +/* + * See FileTest.size. + */ +static VALUE +path_size(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("size"), 1, get_strpath(self)); +} + +/* + * See FileTest.size?. + */ +static VALUE +path_size_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("size?"), 1, get_strpath(self)); +} + +/* + * See FileTest.sticky?. + */ +static VALUE +path_sticky_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("sticky?"), 1, get_strpath(self)); +} + +/* + * See FileTest.symlink?. + */ +static VALUE +path_symlink_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("symlink?"), 1, get_strpath(self)); +} + +/* + * See FileTest.writable?. + */ +static VALUE +path_writable_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("writable?"), 1, get_strpath(self)); +} + +/* + * See FileTest.world_writable?. + */ +static VALUE +path_world_writable_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("world_writable?"), 1, get_strpath(self)); +} + +/* + * See FileTest.writable_real?. + */ +static VALUE +path_writable_real_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("writable_real?"), 1, get_strpath(self)); +} + +/* + * See FileTest.zero?. + */ +static VALUE +path_zero_p(VALUE self) +{ + return rb_funcall(rb_mFileTest, rb_intern("zero?"), 1, get_strpath(self)); +} + +static VALUE +glob_i(RB_BLOCK_CALL_FUNC_ARGLIST(elt, klass)) +{ + return rb_yield(rb_class_new_instance(1, &elt, klass)); +} + +/* + * Returns or yields Pathname objects. + * + * Pathname.glob("config/" "*.rb") + * #=> [#, #, ..] + * + * See Dir.glob. + */ +static VALUE +path_s_glob(int argc, VALUE *argv, VALUE klass) +{ + VALUE args[2]; + int n; + + n = rb_scan_args(argc, argv, "11", &args[0], &args[1]); + if (rb_block_given_p()) { + return rb_block_call(rb_cDir, rb_intern("glob"), n, args, glob_i, klass); + } + else { + VALUE ary; + long i; + ary = rb_funcall2(rb_cDir, rb_intern("glob"), n, args); + ary = rb_convert_type(ary, T_ARRAY, "Array", "to_ary"); + for (i = 0; i < RARRAY_LEN(ary); i++) { + VALUE elt = RARRAY_AREF(ary, i); + elt = rb_class_new_instance(1, &elt, klass); + rb_ary_store(ary, i, elt); + } + return ary; + } +} + +/* + * Returns the current working directory as a Pathname. + * + * Pathname.getwd + * #=> # + * + * See Dir.getwd. + */ +static VALUE +path_s_getwd(VALUE klass) +{ + VALUE str; + str = rb_funcall(rb_cDir, rb_intern("getwd"), 0); + return rb_class_new_instance(1, &str, klass); +} + +/* + * Return the entries (files and subdirectories) in the directory, each as a + * Pathname object. + * + * The results contains just the names in the directory, without any trailing + * slashes or recursive look-up. + * + * pp Pathname.new('/usr/local').entries + * #=> [#, + * # #, + * # #, + * # #, + * # #, + * # #, + * # #, + * # #, + * # #, + * # #, + * # #] + * + * The result may contain the current directory # and + * the parent directory #. + * + * If you don't want +.+ and +..+ and + * want directories, consider Pathname#children. + */ +static VALUE +path_entries(VALUE self) +{ + VALUE klass, str, ary; + long i; + klass = rb_obj_class(self); + str = get_strpath(self); + ary = rb_funcall(rb_cDir, rb_intern("entries"), 1, str); + ary = rb_convert_type(ary, T_ARRAY, "Array", "to_ary"); + for (i = 0; i < RARRAY_LEN(ary); i++) { + VALUE elt = RARRAY_AREF(ary, i); + elt = rb_class_new_instance(1, &elt, klass); + rb_ary_store(ary, i, elt); + } + return ary; +} + +/* + * Create the referenced directory. + * + * See Dir.mkdir. + */ +static VALUE +path_mkdir(int argc, VALUE *argv, VALUE self) +{ + VALUE str = get_strpath(self); + VALUE vmode; + if (rb_scan_args(argc, argv, "01", &vmode) == 0) + return rb_funcall(rb_cDir, rb_intern("mkdir"), 1, str); + else + return rb_funcall(rb_cDir, rb_intern("mkdir"), 2, str, vmode); +} + +/* + * Remove the referenced directory. + * + * See Dir.rmdir. + */ +static VALUE +path_rmdir(VALUE self) +{ + return rb_funcall(rb_cDir, rb_intern("rmdir"), 1, get_strpath(self)); +} + +/* + * Opens the referenced directory. + * + * See Dir.open. + */ +static VALUE +path_opendir(VALUE self) +{ + VALUE args[1]; + + args[0] = get_strpath(self); + return rb_block_call(rb_cDir, rb_intern("open"), 1, args, 0, 0); +} + +static VALUE +each_entry_i(RB_BLOCK_CALL_FUNC_ARGLIST(elt, klass)) +{ + return rb_yield(rb_class_new_instance(1, &elt, klass)); +} + +/* + * Iterates over the entries (files and subdirectories) in the directory, + * yielding a Pathname object for each entry. + */ +static VALUE +path_each_entry(VALUE self) +{ + VALUE args[1]; + + args[0] = get_strpath(self); + return rb_block_call(rb_cDir, rb_intern("foreach"), 1, args, each_entry_i, rb_obj_class(self)); +} + +static VALUE +unlink_body(VALUE str) +{ + return rb_funcall(rb_cDir, rb_intern("unlink"), 1, str); +} + +static VALUE +unlink_rescue(VALUE str, VALUE errinfo) +{ + return rb_funcall(rb_cFile, rb_intern("unlink"), 1, str); +} + +/* + * Removes a file or directory, using File.unlink if +self+ is a file, or + * Dir.unlink as necessary. + */ +static VALUE +path_unlink(VALUE self) +{ + VALUE eENOTDIR = rb_const_get_at(rb_mErrno, rb_intern("ENOTDIR")); + VALUE str = get_strpath(self); + return rb_rescue2(unlink_body, str, unlink_rescue, str, eENOTDIR, (VALUE)0); +} + +/* + * :call-seq: + * Pathname(path) -> pathname + * + * Creates a new Pathname object from the given string, +path+, and returns + * pathname object. + * + * In order to use this constructor, you must first require the Pathname + * standard library extension. + * + * require 'pathname' + * Pathname("/home/zzak") + * #=> # + * + * See also Pathname::new for more information. + */ +static VALUE +path_f_pathname(VALUE self, VALUE str) +{ + return rb_class_new_instance(1, &str, rb_cPathname); +} + +/* + * + * Pathname represents the name of a file or directory on the filesystem, + * but not the file itself. + * + * The pathname depends on the Operating System: Unix, Windows, etc. + * This library works with pathnames of local OS, however non-Unix pathnames + * are supported experimentally. + * + * A Pathname can be relative or absolute. It's not until you try to + * reference the file that it even matters whether the file exists or not. + * + * Pathname is immutable. It has no method for destructive update. + * + * The goal of this class is to manipulate file path information in a neater + * way than standard Ruby provides. The examples below demonstrate the + * difference. + * + * *All* functionality from File, FileTest, and some from Dir and FileUtils is + * included, in an unsurprising way. It is essentially a facade for all of + * these, and more. + * + * == Examples + * + * === Example 1: Using Pathname + * + * require 'pathname' + * pn = Pathname.new("/usr/bin/ruby") + * size = pn.size # 27662 + * isdir = pn.directory? # false + * dir = pn.dirname # Pathname:/usr/bin + * base = pn.basename # Pathname:ruby + * dir, base = pn.split # [Pathname:/usr/bin, Pathname:ruby] + * data = pn.read + * pn.open { |f| _ } + * pn.each_line { |line| _ } + * + * === Example 2: Using standard Ruby + * + * pn = "/usr/bin/ruby" + * size = File.size(pn) # 27662 + * isdir = File.directory?(pn) # false + * dir = File.dirname(pn) # "/usr/bin" + * base = File.basename(pn) # "ruby" + * dir, base = File.split(pn) # ["/usr/bin", "ruby"] + * data = File.read(pn) + * File.open(pn) { |f| _ } + * File.foreach(pn) { |line| _ } + * + * === Example 3: Special features + * + * p1 = Pathname.new("/usr/lib") # Pathname:/usr/lib + * p2 = p1 + "ruby/1.8" # Pathname:/usr/lib/ruby/1.8 + * p3 = p1.parent # Pathname:/usr + * p4 = p2.relative_path_from(p3) # Pathname:lib/ruby/1.8 + * pwd = Pathname.pwd # Pathname:/home/gavin + * pwd.absolute? # true + * p5 = Pathname.new "." # Pathname:. + * p5 = p5 + "music/../articles" # Pathname:music/../articles + * p5.cleanpath # Pathname:articles + * p5.realpath # Pathname:/home/gavin/articles + * p5.children # [Pathname:/home/gavin/articles/linux, ...] + * + * == Breakdown of functionality + * + * === Core methods + * + * These methods are effectively manipulating a String, because that's + * all a path is. None of these access the file system except for + * #mountpoint?, #children, #each_child, #realdirpath and #realpath. + * + * - + + * - #join + * - #parent + * - #root? + * - #absolute? + * - #relative? + * - #relative_path_from + * - #each_filename + * - #cleanpath + * - #realpath + * - #realdirpath + * - #children + * - #each_child + * - #mountpoint? + * + * === File status predicate methods + * + * These methods are a facade for FileTest: + * - #blockdev? + * - #chardev? + * - #directory? + * - #executable? + * - #executable_real? + * - #exist? + * - #file? + * - #grpowned? + * - #owned? + * - #pipe? + * - #readable? + * - #world_readable? + * - #readable_real? + * - #setgid? + * - #setuid? + * - #size + * - #size? + * - #socket? + * - #sticky? + * - #symlink? + * - #writable? + * - #world_writable? + * - #writable_real? + * - #zero? + * + * === File property and manipulation methods + * + * These methods are a facade for File: + * - #atime + * - #birthtime + * - #ctime + * - #mtime + * - #chmod(mode) + * - #lchmod(mode) + * - #chown(owner, group) + * - #lchown(owner, group) + * - #fnmatch(pattern, *args) + * - #fnmatch?(pattern, *args) + * - #ftype + * - #make_link(old) + * - #open(*args, &block) + * - #readlink + * - #rename(to) + * - #stat + * - #lstat + * - #make_symlink(old) + * - #truncate(length) + * - #utime(atime, mtime) + * - #basename(*args) + * - #dirname + * - #extname + * - #expand_path(*args) + * - #split + * + * === Directory methods + * + * These methods are a facade for Dir: + * - Pathname.glob(*args) + * - Pathname.getwd / Pathname.pwd + * - #rmdir + * - #entries + * - #each_entry(&block) + * - #mkdir(*args) + * - #opendir(*args) + * + * === IO + * + * These methods are a facade for IO: + * - #each_line(*args, &block) + * - #read(*args) + * - #binread(*args) + * - #readlines(*args) + * - #sysopen(*args) + * + * === Utilities + * + * These methods are a mixture of Find, FileUtils, and others: + * - #find(&block) + * - #mkpath + * - #rmtree + * - #unlink / #delete + * + * + * == Method documentation + * + * As the above section shows, most of the methods in Pathname are facades. The + * documentation for these methods generally just says, for instance, "See + * FileTest.writable?", as you should be familiar with the original method + * anyway, and its documentation (e.g. through +ri+) will contain more + * information. In some cases, a brief description will follow. + */ +void +Init_pathname(void) +{ + id_at_path = rb_intern("@path"); + id_to_path = rb_intern("to_path"); + + rb_cPathname = rb_define_class("Pathname", rb_cObject); + rb_define_method(rb_cPathname, "initialize", path_initialize, 1); + rb_define_method(rb_cPathname, "freeze", path_freeze, 0); + rb_define_method(rb_cPathname, "taint", path_taint, 0); + rb_define_method(rb_cPathname, "untaint", path_untaint, 0); + rb_define_method(rb_cPathname, "==", path_eq, 1); + rb_define_method(rb_cPathname, "===", path_eq, 1); + rb_define_method(rb_cPathname, "eql?", path_eq, 1); + rb_define_method(rb_cPathname, "<=>", path_cmp, 1); + rb_define_method(rb_cPathname, "hash", path_hash, 0); + rb_define_method(rb_cPathname, "to_s", path_to_s, 0); + rb_define_method(rb_cPathname, "to_path", path_to_s, 0); + rb_define_method(rb_cPathname, "inspect", path_inspect, 0); + rb_define_method(rb_cPathname, "sub", path_sub, -1); + rb_define_method(rb_cPathname, "sub_ext", path_sub_ext, 1); + rb_define_method(rb_cPathname, "realpath", path_realpath, -1); + rb_define_method(rb_cPathname, "realdirpath", path_realdirpath, -1); + rb_define_method(rb_cPathname, "each_line", path_each_line, -1); + rb_define_method(rb_cPathname, "read", path_read, -1); + rb_define_method(rb_cPathname, "binread", path_binread, -1); + rb_define_method(rb_cPathname, "readlines", path_readlines, -1); + rb_define_method(rb_cPathname, "write", path_write, -1); + rb_define_method(rb_cPathname, "binwrite", path_binwrite, -1); + rb_define_method(rb_cPathname, "sysopen", path_sysopen, -1); + rb_define_method(rb_cPathname, "atime", path_atime, 0); + rb_define_method(rb_cPathname, "birthtime", path_birthtime, 0); + rb_define_method(rb_cPathname, "ctime", path_ctime, 0); + rb_define_method(rb_cPathname, "mtime", path_mtime, 0); + rb_define_method(rb_cPathname, "chmod", path_chmod, 1); + rb_define_method(rb_cPathname, "lchmod", path_lchmod, 1); + rb_define_method(rb_cPathname, "chown", path_chown, 2); + rb_define_method(rb_cPathname, "lchown", path_lchown, 2); + rb_define_method(rb_cPathname, "fnmatch", path_fnmatch, -1); + rb_define_method(rb_cPathname, "fnmatch?", path_fnmatch, -1); + rb_define_method(rb_cPathname, "ftype", path_ftype, 0); + rb_define_method(rb_cPathname, "make_link", path_make_link, 1); + rb_define_method(rb_cPathname, "open", path_open, -1); + rb_define_method(rb_cPathname, "readlink", path_readlink, 0); + rb_define_method(rb_cPathname, "rename", path_rename, 1); + rb_define_method(rb_cPathname, "stat", path_stat, 0); + rb_define_method(rb_cPathname, "lstat", path_lstat, 0); + rb_define_method(rb_cPathname, "make_symlink", path_make_symlink, 1); + rb_define_method(rb_cPathname, "truncate", path_truncate, 1); + rb_define_method(rb_cPathname, "utime", path_utime, 2); + rb_define_method(rb_cPathname, "basename", path_basename, -1); + rb_define_method(rb_cPathname, "dirname", path_dirname, 0); + rb_define_method(rb_cPathname, "extname", path_extname, 0); + rb_define_method(rb_cPathname, "expand_path", path_expand_path, -1); + rb_define_method(rb_cPathname, "split", path_split, 0); + rb_define_method(rb_cPathname, "blockdev?", path_blockdev_p, 0); + rb_define_method(rb_cPathname, "chardev?", path_chardev_p, 0); + rb_define_method(rb_cPathname, "executable?", path_executable_p, 0); + rb_define_method(rb_cPathname, "executable_real?", path_executable_real_p, 0); + rb_define_method(rb_cPathname, "exist?", path_exist_p, 0); + rb_define_method(rb_cPathname, "grpowned?", path_grpowned_p, 0); + rb_define_method(rb_cPathname, "directory?", path_directory_p, 0); + rb_define_method(rb_cPathname, "file?", path_file_p, 0); + rb_define_method(rb_cPathname, "pipe?", path_pipe_p, 0); + rb_define_method(rb_cPathname, "socket?", path_socket_p, 0); + rb_define_method(rb_cPathname, "owned?", path_owned_p, 0); + rb_define_method(rb_cPathname, "readable?", path_readable_p, 0); + rb_define_method(rb_cPathname, "world_readable?", path_world_readable_p, 0); + rb_define_method(rb_cPathname, "readable_real?", path_readable_real_p, 0); + rb_define_method(rb_cPathname, "setuid?", path_setuid_p, 0); + rb_define_method(rb_cPathname, "setgid?", path_setgid_p, 0); + rb_define_method(rb_cPathname, "size", path_size, 0); + rb_define_method(rb_cPathname, "size?", path_size_p, 0); + rb_define_method(rb_cPathname, "sticky?", path_sticky_p, 0); + rb_define_method(rb_cPathname, "symlink?", path_symlink_p, 0); + rb_define_method(rb_cPathname, "writable?", path_writable_p, 0); + rb_define_method(rb_cPathname, "world_writable?", path_world_writable_p, 0); + rb_define_method(rb_cPathname, "writable_real?", path_writable_real_p, 0); + rb_define_method(rb_cPathname, "zero?", path_zero_p, 0); + rb_define_singleton_method(rb_cPathname, "glob", path_s_glob, -1); + rb_define_singleton_method(rb_cPathname, "getwd", path_s_getwd, 0); + rb_define_singleton_method(rb_cPathname, "pwd", path_s_getwd, 0); + rb_define_method(rb_cPathname, "entries", path_entries, 0); + rb_define_method(rb_cPathname, "mkdir", path_mkdir, -1); + rb_define_method(rb_cPathname, "rmdir", path_rmdir, 0); + rb_define_method(rb_cPathname, "opendir", path_opendir, 0); + rb_define_method(rb_cPathname, "each_entry", path_each_entry, 0); + rb_define_method(rb_cPathname, "unlink", path_unlink, 0); + rb_define_method(rb_cPathname, "delete", path_unlink, 0); + rb_undef_method(rb_cPathname, "=~"); + rb_define_global_function("Pathname", path_f_pathname, 1); +} -- cgit v1.2.3