rhcl 0.0.1

data/lib/rhcl/parse.y

@@ -0,0 +1,182 @@
+class Rhcl::Parse
+options no_result_var
+rule
+  objectlist : objectitem
+               {
+                 val[0]
+               }
+             | objectlist objectitem
+               {
+                 val[0].deep_merge(val[1])
+               }
+
+  object: LEFTBRACE objectlist RIGHTBRACE
+          {
+            val[1]
+          }
+        | LEFTBRACE RIGHTBRACE
+          {
+            {}
+          }
+
+  objectitem: IDENTIFIER EQUAL number
+              {
+                {val[0] => val[2]}
+              }
+            | IDENTIFIER EQUAL BOOL
+              {
+                {val[0] => val[2]}
+              }
+            | IDENTIFIER EQUAL STRING
+              {
+                {val[0] => val[2]}
+              }
+            | IDENTIFIER EQUAL object
+              {
+                {val[0] => val[2]}
+              }
+            | IDENTIFIER EQUAL list
+              {
+                {val[0] => val[2]}
+              }
+            | block
+              {
+                val[0]
+              }
+
+  block: blockId object
+         {
+           {val[0] => val[1]}
+         }
+       | blockId block
+         {
+           {val[0] => val[1]}
+         }
+
+
+  blockId: IDENTIFIER
+           {
+             val[0]
+           }
+         | STRING
+           {
+             val[0]
+           }
+
+  list: LEFTBRACKET listitems RIGHTBRACKET
+        {
+          val[1]
+        }
+      | LEFTBRACKET RIGHTBRACKET
+        {
+          []
+        }
+
+  listitems: listitem
+             {
+               [val[0]]
+             }
+           | listitems COMMA listitem
+             {
+               val[0] + [val[2]]
+             }
+
+  listitem: number
+            {
+              val[0]
+            }
+          | STRING
+            {
+              val[0]
+            }
+
+  number: INTEGER
+          {
+            val[0]
+          }
+        | FLOAT
+          {
+            val[0]
+          }
+
+---- header
+
+require 'strscan'
+
+---- inner
+
+def initialize(obj)
+  src = obj.is_a?(IO) ? obj.read : obj.to_s
+  @ss = StringScanner.new(src)
+end
+
+def scan
+  tok = nil
+
+  until @ss.eos?
+    if (tok = @ss.scan /\s+/)
+      # nothing to do
+    elsif (tok = @ss.scan(/#/))
+      @ss.scan_until(/\n/)
+    elsif (tok = @ss.scan(%r|/|))
+      case @ss.getch
+      when '/'
+        @ss.scan_until(/(\n|\z)/)
+      when '*'
+        nested = 1
+
+        until nested.zero?
+          case @ss.scan_until(%r{(/\*|\*/|\z)})
+          when %r|/\*\z|
+            nested += 1
+          when %r|\*/\z|
+            nested -= 1
+          else
+            break
+          end
+        end
+      else
+        raise "comment expected, got '#{tok}'"
+      end
+    elsif (tok = @ss.scan(/-?\d+\.\d+/))
+      yield [:FLOAT, tok.to_f]
+    elsif (tok = @ss.scan(/-?\d+/))
+      yield [:INTEGER, tok.to_i]
+    elsif (tok = @ss.scan(/,/))
+      yield [:COMMA, tok]
+    elsif (tok = @ss.scan(/\=/))
+      yield [:EQUAL, tok]
+    elsif (tok = @ss.scan(/\[/))
+      yield [:LEFTBRACKET, tok]
+    elsif (tok = @ss.scan(/\]/))
+      yield [:RIGHTBRACKET, tok]
+    elsif (tok = @ss.scan(/\{/))
+      yield [:LEFTBRACE, tok]
+    elsif (tok = @ss.scan(/\}/))
+      yield [:RIGHTBRACE, tok]
+    elsif (tok = @ss.scan(/"/))
+      yield [:STRING, (@ss.scan_until(/("|\z)/) || '').sub(/"\z/, '')]
+    else
+      identifier = (@ss.scan_until(/(\s|\z)/) || '').sub(/\s\z/, '')
+      token_type = :IDENTIFIER
+
+      if ['true', 'false'].include?(identifier)
+        identifier = !!(identifier =~ /true/)
+        token_type = :BOOL
+      end
+
+      yield [token_type, identifier]
+    end
+  end
+
+  yield [false, '$end']
+end
+private :scan
+
+def parse
+  yyparse self, :scan
+end
+
+def self.parse(obj)
+  self.new(obj).parse
+end

data/lib/rhcl/version.rb

@@ -0,0 +1,3 @@
+module Rhcl
+  VERSION = '0.0.1'
+end

data/rhcl.gemspec

@@ -0,0 +1,26 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'rhcl/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = 'rhcl'
+  spec.version       = Rhcl::VERSION
+  spec.authors       = ['Genki Sugawara']
+  spec.email         = ['sgwr_dts@yahoo.co.jp']
+  spec.summary       = %q{Pure Ruby HCL parser}
+  spec.description   = %q{Pure Ruby HCL parser}
+  spec.homepage      = ''
+  spec.license       = 'MIT'
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ['lib']
+
+  spec.add_dependency 'deep_merge'
+  spec.add_development_dependency 'bundler', '~> 1.5'
+  spec.add_development_dependency 'rake'
+  spec.add_development_dependency 'racc'
+  spec.add_development_dependency 'rspec', '>= 3.0.0'
+end

data/spec/rhcl_dump_spec.rb

@@ -0,0 +1,275 @@
+describe Rhcl do
+  it 'basic' do
+    dumped = Rhcl.dump(
+      {"foo" => "bar"}
+    )
+
+    expect(dumped).to eq 'foo = "bar"'
+  end
+
+  it 'decode_policy' do
+    dumped = Rhcl.dump(
+      {"key"=>
+       {""=>{"policy"=>"read"},
+        "foo/"=>{"policy"=>"write"},
+        "foo/bar/"=>{"policy"=>"read"},
+        "foo/bar/baz"=>{"policy"=>"deny"}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+key {
+  "" {
+    policy = "read"
+  }
+  "foo/" {
+    policy = "write"
+  }
+  "foo/bar/" {
+    policy = "read"
+  }
+  "foo/bar/baz" {
+    policy = "deny"
+  }
+}
+    EOS
+  end
+
+  it 'decode_tf_variable' do
+    dumped = Rhcl.dump(
+      {"variable"=>
+      {"foo"=>{"default"=>"bar", "description"=>"bar"},
+       "amis"=>{"default"=>{"east"=>"foo"}}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+variable {
+  foo {
+    default = "bar"
+    description = "bar"
+  }
+  amis {
+    default {
+      east = "foo"
+    }
+  }
+}
+    EOS
+  end
+
+  it 'empty' do
+    dumped = Rhcl.dump(
+      {"resource"=>{"aws_instance"=>{"db"=>{}}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+resource {
+  aws_instance {
+    db {
+
+    }
+  }
+}
+    EOS
+  end
+
+  it 'flat' do
+    dumped = Rhcl.dump(
+      {"foo"=>"bar", "Key"=>7}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo = "bar"
+Key = 7
+    EOS
+  end
+
+  it 'structure' do
+    dumped = Rhcl.dump(
+      {"foo"=>{"baz"=>{"key"=>7, "foo"=>"bar"}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo {
+  baz {
+    key = 7
+    foo = "bar"
+  }
+}
+    EOS
+  end
+
+  it 'structure2' do
+    dumped = Rhcl.dump(
+      {"foo"=>{"baz"=>{"key"=>7, "foo"=>"bar"}, "key"=>7}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo {
+  baz {
+    key = 7
+    foo = "bar"
+  }
+  key = 7
+}
+    EOS
+  end
+
+  it 'structure_flat' do
+    dumped = Rhcl.dump(
+      {"foo"=>{"baz"=>{"key"=>7, "foo"=>"bar"}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo {
+  baz {
+    key = 7
+    foo = "bar"
+  }
+}
+    EOS
+  end
+
+  it 'structure_flatmap' do
+    dumped = Rhcl.dump(
+      {"foo"=>{"key"=>7, "foo"=>"bar"}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo {
+  key = 7
+  foo = "bar"
+}
+    EOS
+  end
+
+  it 'structure_multi' do
+    dumped = Rhcl.dump(
+      {"foo"=>{"baz"=>{"key"=>7}, "bar"=>{"key"=>12}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo {
+  baz {
+    key = 7
+  }
+  bar {
+    key = 12
+  }
+}
+    EOS
+  end
+
+  it 'array' do
+    dumped = Rhcl.dump(
+      {"foo"=>[1, 2, "baz"], "bar"=>"baz"}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo = [1, 2, "baz"]
+bar = "baz"
+    EOS
+  end
+
+  it 'object' do
+    dumped = Rhcl.dump(
+      {"foo"=>{"bar"=>[1, 2, "baz"]}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo {
+  bar = [1, 2, "baz"]
+}
+    EOS
+  end
+
+  it 'types' do
+    dumped = Rhcl.dump(
+      {"foo"=>"bar",
+       "bar"=>7,
+       "baz"=>[1, 2, 3],
+       "foo2"=>-12,
+       "bar2"=>3.14159,
+       "bar3"=>-3.14159,
+        "hoge"=>true,
+        "fuga"=>false}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+foo = "bar"
+bar = 7
+baz = [1, 2, 3]
+foo2 = -12
+bar2 = 3.14159
+bar3 = -3.14159
+hoge = true
+fuga = false
+    EOS
+  end
+
+  it 'complex' do
+    dumped = Rhcl.dump(
+      {"variable"=>{"foo"=>{"default"=>"bar", "description"=>"bar"}},
+       "provider"=>
+        {"aws"=>{"access_key"=>"foo", "secret_key"=>"bar"},
+         "do"=>{"api_key"=>"${var.foo}"}},
+       "resource"=>
+        {"aws_security_group"=>{"firewall"=>{"count"=>5}},
+         "aws_instance"=>
+          {"web"=>
+            {"ami"=>"${var.foo}",
+             "security_groups"=>["foo", "${aws_security_group.firewall.foo}"],
+             "network_interface"=>
+              {"device_index"=>0, "description"=>"Main network interface"}},
+           "db"=>
+            {"security_groups"=>"${aws_security_group.firewall.*.id}",
+             "VPC"=>"foo",
+             "depends_on"=>["aws_instance.web"]}}},
+       "output"=>{"web_ip"=>{"value"=>"${aws_instance.web.private_ip}"}}}
+    )
+
+    expect(dumped).to eq <<-EOS.strip
+variable {
+  foo {
+    default = "bar"
+    description = "bar"
+  }
+}
+provider {
+  aws {
+    access_key = "foo"
+    secret_key = "bar"
+  }
+  do {
+    api_key = "${var.foo}"
+  }
+}
+resource {
+  aws_security_group {
+    firewall {
+      count = 5
+    }
+  }
+  aws_instance {
+    web {
+      ami = "${var.foo}"
+      security_groups = ["foo", "${aws_security_group.firewall.foo}"]
+      network_interface {
+        device_index = 0
+        description = "Main network interface"
+      }
+    }
+    db {
+      security_groups = "${aws_security_group.firewall.*.id}"
+      VPC = "foo"
+      depends_on = ["aws_instance.web"]
+    }
+  }
+}
+output {
+  web_ip {
+    value = "${aws_instance.web.private_ip}"
+  }
+}
+    EOS
+  end
+end