mtree 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: e07ec004e1b016ffad3ce93f09d80009859db4d73afbc6aa0657514a032d1a55
+  data.tar.gz: d33eea6de1e3fc2934d404d0d7b684f78b5c99e0ee63d4a98326429320e9d05e
+SHA512:
+  metadata.gz: 3f26621da0b4658b23199632b7722d3b62fc5375933f82679c86092867e9bf89158f053bdae016ba4ff822c39aa182ac149a03a5a3691843f9430b84ed27c5d9
+  data.tar.gz: 61048a3f80af78a046aac04b0ef2886c13ad9a933e8d4b5e3aee50b4027f670163777ef5d6f96380e5e67d7584aadff4a2f0521020d67bd624fb1102ac037faa

data/.gitignore

@@ -0,0 +1,13 @@
+/.bundle/
+/.yardoc
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+/Gemfile.lock
+/parser.output
+
+# rspec failure tracking
+.rspec_status

data/.rspec

@@ -0,0 +1,3 @@
+--format documentation
+--color
+--require spec_helper

data/.rubocop.yml

@@ -0,0 +1,16 @@
+AllCops:
+  Exclude:
+    - 'lib/mtree/parser.tab.rb'
+
+Metrics/LineLength:
+  Enabled: false
+
+Metrics/BlockLength:
+  Exclude:
+    - 'spec/**/*.rb'
+
+Style/Documentation:
+  Enabled: false
+
+Style/TrailingCommaInHashLiteral:
+  Enabled: false

data/.travis.yml

@@ -0,0 +1,9 @@
+---
+sudo: false
+language: ruby
+cache: bundler
+rvm:
+  - 2.3
+  - 2.4
+  - 2.5
+before_install: gem install bundler -v 1.16.3

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,74 @@
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+In the interest of fostering an open and welcoming environment, we as
+contributors and maintainers pledge to making participation in our project and
+our community a harassment-free experience for everyone, regardless of age, body
+size, disability, ethnicity, gender identity and expression, level of experience,
+nationality, personal appearance, race, religion, or sexual identity and
+orientation.
+
+## Our Standards
+
+Examples of behavior that contributes to creating a positive environment
+include:
+
+* Using welcoming and inclusive language
+* Being respectful of differing viewpoints and experiences
+* Gracefully accepting constructive criticism
+* Focusing on what is best for the community
+* Showing empathy towards other community members
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery and unwelcome sexual attention or
+advances
+* Trolling, insulting/derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or electronic
+  address, without explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+  professional setting
+
+## Our Responsibilities
+
+Project maintainers are responsible for clarifying the standards of acceptable
+behavior and are expected to take appropriate and fair corrective action in
+response to any instances of unacceptable behavior.
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+## Scope
+
+This Code of Conduct applies both within project spaces and in public spaces
+when an individual is representing the project or its community. Examples of
+representing a project or community include using an official project e-mail
+address, posting via an official social media account, or acting as an appointed
+representative at an online or offline event. Representation of a project may be
+further defined and clarified by project maintainers.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting the project team at romain@opus-codium.fr. All
+complaints will be reviewed and investigated and will result in a response that
+is deemed necessary and appropriate to the circumstances. The project team is
+obligated to maintain confidentiality with regard to the reporter of an incident.
+Further details of specific enforcement policies may be posted separately.
+
+Project maintainers who do not follow or enforce the Code of Conduct in good
+faith may face temporary or permanent repercussions as determined by other
+members of the project's leadership.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
+available at [http://contributor-covenant.org/version/1/4][version]
+
+[homepage]: http://contributor-covenant.org
+[version]: http://contributor-covenant.org/version/1/4/

data/Gemfile

@@ -0,0 +1,6 @@
+source 'https://rubygems.org'
+
+git_source(:github) { |repo_name| "https://github.com/#{repo_name}" }
+
+# Specify your gem's dependencies in mtree.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2018 Romain Tartière
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,45 @@
+# Mtree
+
+[![Build Status](https://travis-ci.com/opus-codium/mtree.svg?branch=master)](https://travis-ci.com/opus-codium/mtree)
+
+This gem allows mtree styled hierarchy specifications — as found in the BSD world — to be parsed and updated from a Ruby program.  It also provide a `mtree` command with is backward compatible with [FreeBSD's `mtree(1)`](https://www.freebsd.org/cgi/man.cgi?query=mtree).
+
+Not all the flags of FreeBSD `mtree(1)` are currently supported, the effor being driven by opus-labs' requirements.  Pull requests are accepted though, and we will be happy to merge your contribution!
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'mtree'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install mtree
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Development
+
+After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake spec` to run the tests. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
+
+To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+
+## Contributing
+
+Bug reports and pull requests are welcome on GitHub at https://github.com/opus-codium/mtree. This project is intended to be a safe, welcoming space for collaboration, and contributors are expected to adhere to the [Contributor Covenant](http://contributor-covenant.org) code of conduct.
+
+## License
+
+The gem is available as open source under the terms of the [MIT License](https://opensource.org/licenses/MIT).
+
+## Code of Conduct
+
+Everyone interacting in the Mtree project’s codebases, issue trackers, chat rooms and mailing lists is expected to follow the [code of conduct](https://github.com/smortex/mtree/blob/master/CODE_OF_CONDUCT.md).

data/Rakefile

@@ -0,0 +1,11 @@
+require 'bundler/gem_tasks'
+require 'rspec/core/rake_task'
+
+RSpec::Core::RakeTask.new(:spec)
+
+task default: :spec
+
+desc "Generate the mtree parser's code"
+task :parser do
+  sh 'racc lib/mtree/parser.y'
+end

data/bin/console

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+require 'bundler/setup'
+require 'mtree'
+
+# You can add fixtures and/or initialization code here to make experimenting
+# with your gem easier. You can also use a different console, if you like.
+
+# (If you use this, don't forget to add pry to your Gemfile!)
+# require "pry"
+# Pry.start
+
+require 'irb'
+IRB.start(__FILE__)

data/bin/setup

@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+set -euo pipefail
+IFS=$'\n\t'
+set -vx
+
+bundle install
+
+# Do any other automated setup that you need to do here

data/exe/mtree

@@ -0,0 +1,96 @@
+#!/usr/bin/env ruby
+
+require 'mtree'
+
+require 'optparse'
+
+options = {
+  action: :check,
+  group_mapping: {},
+  user_mapping: {},
+}
+
+OptionParser.new do |opts|
+  opts.banner = 'usage: mtree options'
+
+  opts.on('-e', 'Noop.  For compatibility only') do
+  end
+  opts.on('-f', '--file=FILE', 'Read the specification from FILE instead of standard input') do |specification|
+    options[:specification] = specification
+  end
+
+  opts.on('-p', '--path=PATH', 'Use the file hierarchy rooted in PATH, instead of the current directory') do |path|
+    options[:root] = path
+  end
+
+  opts.on('-j', 'Indent the output 4 spaces each time a directory level is descended') do
+    options[:indent] = true
+  end
+
+  opts.on('-u', '--update') do
+    options[:action] = :update
+  end
+
+  # Extensions
+
+  opts.on('--check', 'Checks that the files hierarchy match the specification') do
+    options[:action] = :check
+  end
+
+  opts.on('--print', 'Print the transformed specification') do
+    options[:action] = :print
+  end
+
+  opts.on('--leaves', 'Only consider leaves of the specification') do
+    options[:leaves] = true
+  end
+
+  opts.on('--map-gname=MAPPING', 'Apply from:to MAPPING to the gname field') do |mapping|
+    mapping.split(',').each do |tuple|
+      from, to = tuple.split(':', 2)
+      options[:group_mapping][from] = to
+    end
+  end
+
+  opts.on('--map-uname=MAPPING', 'Apply from:to MAPPING to the uname field') do |mapping|
+    mapping.split(',').each do |tuple|
+      from, to = tuple.split(':', 2)
+      options[:user_mapping][from] = to
+    end
+  end
+
+  opts.on('--symlink-to=DESTINATION', '') do |destination|
+    options[:symlink_to] = destination
+  end
+end.parse!
+
+parser = Mtree::Parser.new
+parser.parse_file(options[:specification])
+specifications = parser.specifications
+
+specifications.leaves! if options[:leaves]
+
+options[:group_mapping].each do |from, to|
+  specifications.each do |specification|
+    specification.gname = to if specification.gname == from
+  end
+end
+
+options[:user_mapping].each do |from, to|
+  specifications.each do |specification|
+    specification.uname = to if specification.uname == from
+  end
+end
+
+if options[:symlink_to]
+  specifications.symlink_to!(options[:symlink_to])
+end
+
+case options[:action]
+when :update
+  specifications.enforce(options[:root] || '.')
+when :check
+  exit specifications.match?(options[:root] || '.') ? 0 : 2
+when :print
+  puts specifications.to_s(indent: options[:indent])
+end

data/lib/mtree.rb

@@ -0,0 +1,7 @@
+require 'mtree/file_specification'
+require 'mtree/parser.tab'
+require 'mtree/version'
+
+module Mtree
+  # Your code goes here...
+end

data/lib/mtree/file_specification.rb

@@ -0,0 +1,200 @@
+module Mtree
+  class FileSpecification
+    # VALID_ATTRIBUTES = %i[cksum device flags gid gname link md5 mode nlink nochange optional rmd160 sha1 sha256 sha384 sha512 size tags time type uid uname].freeze
+    VALID_ATTRIBUTES = %i[gid gname link mode nochange optional type uid uname].freeze
+
+    VALID_ATTRIBUTES.each do |attr|
+      define_method(attr) do
+        @attributes[attr]
+      end
+
+      define_method("#{attr}=") do |value|
+        @attributes[attr] = value
+      end
+    end
+
+    attr_accessor :filename
+    attr_accessor :relative_path
+    attr_accessor :children
+
+    def initialize(filename, attributes = {})
+      @filename = filename
+      @relative_path = filename
+      if (invalid_keys = attributes.keys - VALID_ATTRIBUTES) != []
+        raise "Unsupported attribute: #{invalid_keys.first}"
+      end
+      @attributes = attributes
+      @children = []
+    end
+
+    def match?(root)
+      res = true
+      problems = []
+
+      begin
+        @attributes.each do |attr, expected|
+          actual = send("current_#{attr}", root)
+
+          if expected != actual
+            problems << { attr: attr, expected: expected, actual: actual }
+          end
+        end
+      rescue Errno::ENOENT
+        puts "#{relative_path} missing"
+        res = false
+      end
+
+      if problems.any? && !nochange
+        puts("#{relative_path}:")
+        puts(problems.map { |problem| format("\t%<attr>s (%<expected>s, %<actual>s)", problem) })
+        res = false
+      end
+
+      children.each do |child|
+        res &= child.match?(root)
+      end
+
+      res
+    end
+
+    def each(&block)
+      yield(self)
+
+      children.each do |child|
+        child.each(&block)
+      end
+    end
+
+    def enforce(root)
+      if exist?(root)
+        update(root) unless nochange
+      else
+        create(root)
+      end
+
+      children.each do |child|
+        child.enforce(root)
+      end
+    end
+
+    def exist?(root)
+      current_type(root) == type
+    end
+
+    def create(root)
+      case type
+      when 'dir'  then FileUtils.mkdir_p(full_filename(root))
+      when 'file' then FileUtils.touch(full_filename(root))
+      when 'link' then FileUtils.ln_s(link, full_filename(root), force: true)
+      end
+      update(root)
+    end
+
+    def update(root)
+      FileUtils.chown(uname, gname, full_filename(root)) if uname || gname
+      FileUtils.chmod(mode, full_filename(root)) if mode
+    end
+
+    def <<(child)
+      children << child
+
+      child.relative_path = File.join(relative_path, child.filename)
+    end
+
+    def leaves!
+      if children.any?
+        self.nochange = true
+        children.each(&:leaves!)
+      end
+      self
+    end
+
+    def symlink_to!(destination)
+      unless nochange
+        @attributes = {
+          type: 'link',
+          link: File.join(destination, relative_path).sub(%r{/\.$}, '').sub(%r{/\./}, '/'),
+        }
+      end
+      children.each do |child|
+        child.symlink_to!(destination)
+      end
+      self
+    end
+
+    def to_s(options = {})
+      descendent = ''
+      if children.any?
+        descendent = children.map do |child|
+          child.to_s(options)
+        end.join
+        descendent.gsub!(/^/, '    ') if options[:indent]
+      end
+
+      "#{filename} #{attributes}\n#{descendent}..\n"
+    end
+
+    def attributes
+      parts = []
+
+      parts << format('gid=%d', gid)     if gid
+      parts << format('gname=%s', gname) if gname
+      parts << format('link=%s', link)   if link
+      parts << format('mode=0%o', mode)  if mode
+      parts << 'nochange'                if nochange
+      parts << 'optional'                if optional
+      parts << format('type=%s', type)   if type
+      parts << format('uid=%d', uid)     if uid
+      parts << format('uname=%s', uname) if uname
+
+      parts.join(' ')
+    end
+
+    private
+
+    def full_filename(root)
+      File.join(root, @relative_path)
+    end
+
+    def file_stat(root)
+      File.stat(full_filename(root))
+    end
+
+    def current_gid(root)
+      file_stat(root).gid
+    end
+
+    def current_gname(root)
+      Etc.getgrgid(current_gid(root)).name
+    end
+
+    def current_mode(root)
+      file_stat(root).mode & 0o7777
+    end
+
+    def current_nochange(_root)
+      true
+    end
+
+    def current_type(root)
+      t = file_stat(root).ftype
+
+      case t
+      when 'blockSpecial'     then 'block'
+      when 'characterSpecial' then 'char'
+      when 'directory'        then 'dir'
+      else t
+      end
+    rescue Errno::ENOENT
+      nil
+    end
+
+    def current_uid(root)
+      file_stat(root).uid
+    end
+
+    def current_uname(root)
+      Etc.getpwuid(current_uid(root)).name
+    end
+  end
+end

data/lib/mtree/parser.tab.rb

@@ -0,0 +1,303 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by Racc 1.4.14
+# from Racc grammer file "".
+#
+
+require 'racc/parser.rb'
+
+
+require 'strscan'
+
+module Mtree
+  class Parser < Racc::Parser
+
+module_eval(<<'...end parser.y/module_eval...', 'parser.y', 33)
+
+attr_accessor :yydebug
+attr_accessor :defaults
+
+attr_reader :specifications
+
+def initialize
+  super
+  @defaults = {}
+  @path_components = []
+  @specifications = nil
+end
+
+def parse(text)
+  s = StringScanner.new(text)
+
+  tokens = []
+  until s.eos? do
+    case
+    when s.scan(/#.*/);                   # Ignore comment
+    when s.scan(/[[:blank:]]+/);          # Ignore blanks
+    when s.scan(/\n/);                    tokens << [:LINE_BREAK, s.matched]
+    when s.scan(/\.\./);                  tokens << [:DOT_DOT, s.matched]
+    when s.scan(/\/set\b/);               tokens << [:SET, s.matched]
+    when s.scan(/gid=([[:digit:]]+)/);    tokens << [:GID, s[1]]
+    when s.scan(/gname=([[:alnum:]]+)/);  tokens << [:GNAME, s[1]]
+    when s.scan(/mode=([[:digit:]]+)/);   tokens << [:MODE, s[1]]
+    when s.scan(/nochange\b/);            tokens << [:NOCHANGE, s[1]]
+    when s.scan(/tags=([[:print:]]+)\b/); tokens << [:TAGS, s[1]]
+    when s.scan(/type=(dir|file)/);       tokens << [:TYPE, s[1]]
+    when s.scan(/uid=([[:digit:]]+)/);    tokens << [:UID, s[1]]
+    when s.scan(/uname=([[:alnum:]]+)/);  tokens << [:UNAME, s[1]]
+    when s.scan(/[^[:space:]]+/);         tokens << [:IDENTIFIER, s.matched]
+    else
+      raise "No match: #{s.rest}"
+    end
+  end
+
+  define_singleton_method(:next_token) { tokens.shift }
+
+  tokens << [false, false]
+
+  # tokens.each do |t|
+  #   puts t.inspect
+  # end
+
+  do_parse
+end
+
+def parse_file(filename)
+  parse(File.read(filename))
+end
+...end parser.y/module_eval...
+##### State transition tables begin ###
+
+racc_action_table = [
+    14,    12,     8,    16,    17,    18,    19,    20,    21,    22,
+    23,    24,    13,   nil,    16,    17,    18,    19,    20,    21,
+    22,    23,     4,     7,     5,     6,     4,     7,     5,     6 ]
+
+racc_action_check = [
+    10,     6,     1,    10,    10,    10,    10,    10,    10,    10,
+    10,    11,     8,   nil,    11,    11,    11,    11,    11,    11,
+    11,    11,     2,     2,     2,     2,     0,     0,     0,     0 ]
+
+racc_action_pointer = [
+    24,     2,    20,   nil,   nil,   nil,    -2,   nil,    12,   nil,
+    -3,     8,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil ]
+
+racc_action_default = [
+    -2,   -19,    -1,    -4,   -10,   -10,   -19,    -8,   -19,    -3,
+   -19,   -19,    -7,    25,    -5,    -9,   -11,   -12,   -13,   -14,
+   -15,   -16,   -17,   -18,    -6 ]
+
+racc_goto_table = [
+     3,     1,     9,    10,    11,     2 ]
+
+racc_goto_check = [
+     3,     1,     3,     4,     4,     2 ]
+
+racc_goto_pointer = [
+   nil,     1,     5,     0,    -1,   nil ]
+
+racc_goto_default = [
+   nil,   nil,   nil,   nil,   nil,    15 ]
+
+racc_reduce_table = [
+  0, 0, :racc_error,
+  1, 15, :_reduce_1,
+  0, 15, :_reduce_none,
+  2, 16, :_reduce_none,
+  1, 16, :_reduce_none,
+  3, 17, :_reduce_5,
+  3, 17, :_reduce_6,
+  2, 17, :_reduce_7,
+  1, 17, :_reduce_none,
+  2, 18, :_reduce_9,
+  0, 18, :_reduce_10,
+  1, 19, :_reduce_11,
+  1, 19, :_reduce_12,
+  1, 19, :_reduce_13,
+  1, 19, :_reduce_14,
+  1, 19, :_reduce_15,
+  1, 19, :_reduce_16,
+  1, 19, :_reduce_17,
+  1, 19, :_reduce_18 ]
+
+racc_reduce_n = 19
+
+racc_shift_n = 25
+
+racc_token_table = {
+  false => 0,
+  :error => 1,
+  :SET => 2,
+  :LINE_BREAK => 3,
+  :IDENTIFIER => 4,
+  :DOT_DOT => 5,
+  :GID => 6,
+  :GNAME => 7,
+  :MODE => 8,
+  :NOCHANGE => 9,
+  :TAGS => 10,
+  :TYPE => 11,
+  :UID => 12,
+  :UNAME => 13 }
+
+racc_nt_base = 14
+
+racc_use_result_var = true
+
+Racc_arg = [
+  racc_action_table,
+  racc_action_check,
+  racc_action_default,
+  racc_action_pointer,
+  racc_goto_table,
+  racc_goto_check,
+  racc_goto_default,
+  racc_goto_pointer,
+  racc_nt_base,
+  racc_reduce_table,
+  racc_token_table,
+  racc_shift_n,
+  racc_reduce_n,
+  racc_use_result_var ]
+
+Racc_token_to_s_table = [
+  "$end",
+  "error",
+  "SET",
+  "LINE_BREAK",
+  "IDENTIFIER",
+  "DOT_DOT",
+  "GID",
+  "GNAME",
+  "MODE",
+  "NOCHANGE",
+  "TAGS",
+  "TYPE",
+  "UID",
+  "UNAME",
+  "$start",
+  "target",
+  "expressions",
+  "expression",
+  "attributes",
+  "attribute" ]
+
+Racc_debug_parser = false
+
+##### State transition tables end #####
+
+# reduce 0 omitted
+
+module_eval(<<'.,.,', 'parser.y', 2)
+  def _reduce_1(val, _values, result)
+     if @path_components.any? then raise 'Malformed specifications' end 
+    result
+  end
+.,.,
+
+# reduce 2 omitted
+
+# reduce 3 omitted
+
+# reduce 4 omitted
+
+module_eval(<<'.,.,', 'parser.y', 8)
+  def _reduce_5(val, _values, result)
+     @defaults.merge!(val[1]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 9)
+  def _reduce_6(val, _values, result)
+     spec = Mtree::FileSpecification.new(val[0], @defaults.merge(val[1])); if @specifications.nil? then @specifications = spec end; if @path_components.last then @path_components.last << spec end; @path_components.push(spec) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 10)
+  def _reduce_7(val, _values, result)
+     @path_components.pop 
+    result
+  end
+.,.,
+
+# reduce 8 omitted
+
+module_eval(<<'.,.,', 'parser.y', 13)
+  def _reduce_9(val, _values, result)
+     result = val[0].merge(val[1]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 14)
+  def _reduce_10(val, _values, result)
+     result = {} 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 16)
+  def _reduce_11(val, _values, result)
+     result = { gid:      Integer(val[0]) } 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 17)
+  def _reduce_12(val, _values, result)
+     result = { gname:    val[0] } 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 18)
+  def _reduce_13(val, _values, result)
+     result = { mode:     Integer(val[0], 8) } 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 19)
+  def _reduce_14(val, _values, result)
+     result = { nochange: true } 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 20)
+  def _reduce_15(val, _values, result)
+     result = {} 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 21)
+  def _reduce_16(val, _values, result)
+     result = { type:     val[0] } 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 22)
+  def _reduce_17(val, _values, result)
+     result = { uid:      Integer(val[0]) } 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 23)
+  def _reduce_18(val, _values, result)
+     result = { uname:    val[0] } 
+    result
+  end
+.,.,
+
+def _reduce_none(val, _values, result)
+  val[0]
+end
+
+  end   # class Parser
+  end   # module Mtree

data/lib/mtree/parser.y

@@ -0,0 +1,84 @@
+class Mtree::Parser
+rule
+  target: expressions { if @path_components.any? then raise 'Malformed specifications' end }
+        |
+
+  expressions: expressions expression
+             | expression
+
+  expression: SET attributes LINE_BREAK         { @defaults.merge!(val[1]) }
+            | IDENTIFIER attributes LINE_BREAK  { spec = Mtree::FileSpecification.new(val[0], @defaults.merge(val[1])); if @specifications.nil? then @specifications = spec end; if @path_components.last then @path_components.last << spec end; @path_components.push(spec) } # @path_components.push(val[0]); @specifications.push() }
+            | DOT_DOT LINE_BREAK                { @path_components.pop }
+            | LINE_BREAK
+
+  attributes: attributes attribute { result = val[0].merge(val[1]) }
+            |                      { result = {} }
+
+  attribute: GID      { result = { gid:      Integer(val[0]) } }
+           | GNAME    { result = { gname:    val[0] } }
+           | MODE     { result = { mode:     Integer(val[0], 8) } }
+           | NOCHANGE { result = { nochange: true } }
+	   | TAGS     { result = {} }
+           | TYPE     { result = { type:     val[0] } }
+           | UID      { result = { uid:      Integer(val[0]) } }
+           | UNAME    { result = { uname:    val[0] } }
+end
+
+
+---- header
+
+require 'strscan'
+
+---- inner
+
+attr_accessor :yydebug
+attr_accessor :defaults
+
+attr_reader :specifications
+
+def initialize
+  super
+  @defaults = {}
+  @path_components = []
+  @specifications = nil
+end
+
+def parse(text)
+  s = StringScanner.new(text)
+
+  tokens = []
+  until s.eos? do
+    case
+    when s.scan(/#.*/);                   # Ignore comment
+    when s.scan(/[[:blank:]]+/);          # Ignore blanks
+    when s.scan(/\n/);                    tokens << [:LINE_BREAK, s.matched]
+    when s.scan(/\.\./);                  tokens << [:DOT_DOT, s.matched]
+    when s.scan(/\/set\b/);               tokens << [:SET, s.matched]
+    when s.scan(/gid=([[:digit:]]+)/);    tokens << [:GID, s[1]]
+    when s.scan(/gname=([[:alnum:]]+)/);  tokens << [:GNAME, s[1]]
+    when s.scan(/mode=([[:digit:]]+)/);   tokens << [:MODE, s[1]]
+    when s.scan(/nochange\b/);            tokens << [:NOCHANGE, s[1]]
+    when s.scan(/tags=([[:print:]]+)\b/); tokens << [:TAGS, s[1]]
+    when s.scan(/type=(dir|file)/);       tokens << [:TYPE, s[1]]
+    when s.scan(/uid=([[:digit:]]+)/);    tokens << [:UID, s[1]]
+    when s.scan(/uname=([[:alnum:]]+)/);  tokens << [:UNAME, s[1]]
+    when s.scan(/[^[:space:]]+/);         tokens << [:IDENTIFIER, s.matched]
+    else
+      raise "No match: #{s.rest}"
+    end
+  end
+
+  define_singleton_method(:next_token) { tokens.shift }
+
+  tokens << [false, false]
+
+  # tokens.each do |t|
+  #   puts t.inspect
+  # end
+
+  do_parse
+end
+
+def parse_file(filename)
+  parse(File.read(filename))
+end

data/lib/mtree/version.rb

@@ -0,0 +1,3 @@
+module Mtree
+  VERSION = '1.0.0'.freeze
+end

data/mtree.gemspec

@@ -0,0 +1,30 @@
+lib = File.expand_path('lib', __dir__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'mtree/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = 'mtree'
+  spec.version       = Mtree::VERSION
+  spec.authors       = ['Romain Tartière']
+  spec.email         = ['romain@opus-codium.org']
+
+  spec.summary       = 'Manage a directory hierarchy'
+  spec.description   = 'This is a ruby utility and library providing the mtree(1) features found on BSDs.'
+  spec.homepage      = 'https://github.com/opus-codium/mtree'
+  spec.license       = 'MIT'
+
+  # Specify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added into git.
+  spec.files         = Dir.chdir(File.expand_path(__dir__)) do
+    `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  end
+  spec.bindir        = 'exe'
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ['lib']
+
+  spec.add_development_dependency 'bundler', '~> 1.16'
+  spec.add_development_dependency 'racc'
+  spec.add_development_dependency 'rake', '~> 10.0'
+  spec.add_development_dependency 'rspec', '~> 3.0'
+  spec.add_development_dependency 'simplecov'
+end

metadata

@@ -0,0 +1,134 @@
+--- !ruby/object:Gem::Specification
+name: mtree
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Romain Tartière
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2018-08-31 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.16'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.16'
+- !ruby/object:Gem::Dependency
+  name: racc
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: This is a ruby utility and library providing the mtree(1) features found
+  on BSDs.
+email:
+- romain@opus-codium.org
+executables:
+- mtree
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".rspec"
+- ".rubocop.yml"
+- ".travis.yml"
+- CODE_OF_CONDUCT.md
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- exe/mtree
+- lib/mtree.rb
+- lib/mtree/file_specification.rb
+- lib/mtree/parser.tab.rb
+- lib/mtree/parser.y
+- lib/mtree/version.rb
+- mtree.gemspec
+homepage: https://github.com/opus-codium/mtree
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.7.7
+signing_key: 
+specification_version: 4
+summary: Manage a directory hierarchy
+test_files: []