self-ml 0.0.1

data/.autotest

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+
+require 'autotest/restart'
+
+# Autotest.add_hook :initialize do |at|
+#   at.extra_files << "../some/external/dependency.rb"
+#
+#   at.libs << ":../some/external"
+#
+#   at.add_exception 'vendor'
+#
+#   at.add_mapping(/dependency.rb/) do |f, _|
+#     at.files_matching(/test_.*rb$/)
+#   end
+#
+#   %w(TestA TestB).each do |klass|
+#     at.extra_class_map[klass] = "test/test_misc.rb"
+#   end
+# end
+
+# Autotest.add_hook :run_command do |at|
+#   system "rake build"
+# end

data/History.txt

@@ -0,0 +1,3 @@
+=== 0.0.1 / 2011-08-06
+
+Wrote the first version of the SelfML parser in ruby.

data/Manifest.txt

@@ -0,0 +1,7 @@
+.autotest
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/self-ml.rb
+test/test_self_ml.rb

data/README.txt

@@ -0,0 +1,61 @@
+= SelfML-ruby
+
+* https://github.com/fileability/self-ml
+
+== DESCRIPTION:
+
+A SelfML parser in Ruby.
+
+== FEATURES/PROBLEMS:
+
+* parses SelfML
+
+== SYNOPSIS:
+
+Parses SelfML, like 
+    (food
+        (fruit Apple Banana Orange)
+        (veggies Potato Carrot Onion))
+
+
+== REQUIREMENTS:
+
+* parslet
+
+== INSTALL:
+
+* gem install self-ml
+
+== DEVELOPERS:
+
+After checking out the source, run:
+
+  $ rake newb
+
+This task will install any missing dependencies, run the tests/specs,
+and generate the RDoc.
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2011 FIX
+
+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/Rakefile

@@ -0,0 +1,12 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+Hoe.spec 'self-ml' do
+  developer('Indigo Casson', 'atamiser@gmail.com')
+
+  # self.rubyforge_name = 'Rubyx' # if different than 'Ruby'
+end
+
+# vim: syntax=ruby

data/lib/self-ml.rb

@@ -0,0 +1,133 @@
+
+require 'parslet'
+require 'pp'
+
+# SelfML is a simple, human writable, machine readable, configuration
+# language. This is the ruby implementation.
+module SelfML
+  # The current version.
+  VERSION = "0.0.1"
+
+  module_function
+  # Parse a SelfML document inputed as a string.
+  # Returns an array. That array will contain both strings an arrays,
+  # and so on.
+  #
+  #    SelfML.parse("(test awesome x)") #=> [["test", "awesome", "x"]] 
+  #
+  #    SelfML.parse("(x (1 2 3) [This is a test])") 
+  #        #=> [[:x, [1, 2, 3], "This is a test"]]
+  def parse(string)
+    Transformer.new.apply(Parser.new.parse(string))
+  end
+
+  # This is a slightly heavier weight way of parsing SelfML strings.
+  #
+  #    ml = SelfML::Document.new
+  #    ml.parse("test") #=> ["test"]
+  #
+  # This might be slightly more efficient (what with alocating parser
+  # and transformer resources) but it's more verbose.
+  class Document
+    # Create a new document object, with which, you can parse SelfML
+    # documents.
+    def initialize
+      @parser = Parser.new
+      @transformer = Transformer.new
+    end
+
+    # Parse a string of SelfML. See SelfML#parse for more information on
+    # SelfML parsing.
+    def parse(string)
+      @transformer.apply(@parser.parse(string))
+    end
+  end
+
+  # This is the parser for SelfML. Looking at this might be useful. This
+  # outputs a strange, verbose parse tree full of hashes, arrays, and
+  # symbols. See SelfML::Transformer to convert this tree into useable
+  # data.
+  class Parser < Parslet::Parser
+    # Whitespace stuff
+    rule(:space)      { match('\s').repeat(1) }
+    rule(:space?)     { space.maybe }
+
+    rule(:line_comment) { match("#.+\n") }
+    rule(:block_comment) {
+      str("{#") >>
+      (str("#}").absent? >> any).repeat >>
+      str("#}")
+    }
+
+    # String literals
+    rule(:word_literal) { match('[^\(\)\[\]\{\}#` \n]').repeat(1).as(:literal) }
+    rule(:bracket_literal) { 
+      str("[") >> 
+      space? >> 
+      (
+        (str("]").absent? >> any) # []] and [[] are valid, shouldn't be
+      ).repeat.as(:literal) >> 
+      str("]") >>
+      space? 
+    }
+
+    rule(:backtick_literal) { 
+      str("`") >> 
+      space? >> 
+      (
+        (str("`").absent? >> any).as(:tmp_literal) |
+        (str("``")).as(:double_backtick)
+      ).repeat.as(:backtick_literal) >> 
+      str("`") >>
+      space? 
+    }
+    rule(:literal) { ( bracket_literal | backtick_literal | word_literal ) >> space? }
+
+    rule(:subnodes) { str("(") >> nodes >> space? >> str(")") >> space? }
+
+    rule(:line_comment) {
+      str("#") >>
+      (str("\n").absent? >> any).repeat.maybe >> 
+      str("\n")
+    }
+
+    # Node!
+    rule(:node) { ( literal | line_comment | block_comment | subnodes.as(:nodes) ) >> space? }
+
+    # Root stuff
+    rule(:nodes) { node.repeat }
+    root(:nodes)
+  end
+
+  # This is the transformer for SelfML. This takes the parse tree and
+  # converts it to useful data.
+  class Transformer < Parslet::Transform
+    rule(:backtick_literal => subtree(:x)) do
+      x.map do |y|  
+        if y.has_key?(:double_backtick)
+          '`'
+        else
+          y[:tmp_literal]
+        end
+      end.join("")
+    end
+
+    rule(:literal => simple(:y)) do
+      x = y.to_s
+      if x =~ /[0-9]+/
+        x.to_i
+      elsif x.split(" ").length == 1
+        x.to_sym
+      else
+        x
+      end
+    end
+    
+    rule(:nodes => subtree(:x)) { x }
+
+  end
+end
+
+if $0 == __FILE__
+  pp SelfML.parse(IO.readlines(ARGV.first).join(''))
+end

data/test/test_self_ml.rb

@@ -0,0 +1,40 @@
+require "test/unit"
+require "self-ml"
+
+class TestSelfML < Test::Unit::TestCase
+  def parse(string)
+    SelfML.parse(string)
+  end
+
+  def test_single_literals
+    assert_equal([:test], parse("test"))
+    assert_equal([:awesome], parse("awesome"))
+  end
+
+  def test_numbers
+    assert_equal([1], parse("1"))
+    assert_equal([1234], parse("1234"))
+  end
+
+  def test_brackets
+    assert_equal(["This is a test"], parse("[This is a test]"))
+    assert_equal(["This is pretty cool"], parse("[This is pretty cool]"))
+  end
+
+  def test_backticks
+    assert_equal(["This is a test"], parse("`This is a test`"))
+    assert_equal(["This is a ` test"], parse("`This is a `` test`"))
+    assert_equal([""], parse("``"))
+  end
+
+  def test_groups
+    assert_equal([[:test]], parse("(test)"))
+    assert_equal([[:test, :awesome]], parse("(test awesome)"))
+  end
+
+  def test_recursive_groups
+    assert_equal([[:test, [:awesome]]], parse("(test (awesome))"))
+    assert_equal([[:test, [1, 2, 3], [:qwer, :asdf, :zxcv]]], parse("(test (1 2 3) (qwer asdf zxcv))"))
+    assert_equal([[1, 2, 3, 4], [5, 6, 7, 8]], parse("(1 2 3 4) (5 6 7 8)"))
+  end
+end

metadata

@@ -0,0 +1,111 @@
+--- !ruby/object:Gem::Specification
+name: self-ml
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Indigo Casson
+autorequire: 
+bindir: bin
+cert_chain:
+- ! '-----BEGIN CERTIFICATE-----
+
+  MIIDMjCCAhqgAwIBAgIBADANBgkqhkiG9w0BAQUFADA/MREwDwYDVQQDDAhhdGFt
+
+  aXNlcjEVMBMGCgmSJomT8ixkARkWBWdtYWlsMRMwEQYKCZImiZPyLGQBGRYDY29t
+
+  MB4XDTExMDgwNzAzMDYxMVoXDTEyMDgwNjAzMDYxMVowPzERMA8GA1UEAwwIYXRh
+
+  bWlzZXIxFTATBgoJkiaJk/IsZAEZFgVnbWFpbDETMBEGCgmSJomT8ixkARkWA2Nv
+
+  bTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAKNm6LW3D89zuX8mc+3E
+
+  dP6GcHB0d2UOPjkK56fgIsFVL7/iZW5WWKC48oZNW/Xj5kdV/UJUeObpHkUjfIlM
+
+  7Enjly2L4Dx6ksBrumZm3rIAMXSkqusjGrOAhhKW5nEREai3mvOgC1IF4vbg+wK0
+
+  57uFypWnVQKuEmdZZxtx/4WqxR265ANY+tmzVzZ/yzNLOSdZd8O/t1SBeFWyeJR7
+
+  yK640vPTj0EXJg8WQX8isIJQo++FhNutbX1rdwQV8z1yiiN8k3kV9uNyulI6YoRB
+
+  uVYChQ+vSZuGtoFLEYIlHrRDtpV9Fz0czNoMiSh26PKjyfE8ApHuXz17+owMphQA
+
+  qDkCAwEAAaM5MDcwCQYDVR0TBAIwADAdBgNVHQ4EFgQUN94xcCFdEJsU9VnUQ2hx
+
+  kl3okEcwCwYDVR0PBAQDAgSwMA0GCSqGSIb3DQEBBQUAA4IBAQB3QwcdeoeQEroJ
+
+  zRlxHCUCmVcgmdprEGcP/kyQyKsWjn6L9Meq2eehBIcKDui86ZUVxthDcR9jikM6
+
+  Z0k83Ozuz7BeAax6yHOpCw9ffo/CSfYcQda6iKMKkE0uJjEZBUYLqr+2IzqsvftW
+
+  IYFOJB0i8EsYWApaom3HcGc4AEQsWTMwmz2AofaYhLx/L9blsIA+yq+TJ4aCAMzj
+
+  4R8pYP5HnGmdzD9Ae+fhw4xPyuyI5dT8vxbaQLpK1ev1xPe6ibDZ5Sb41OAd2teX
+
+  cp2ZVwyMXrsOlwoNJiRrAWkRXLVZwb/p+/goBVOdvNyEojn+CgHNFySmXGKuYxEn
+
+  9Dfv1Urv
+
+  -----END CERTIFICATE-----
+
+'
+date: 2011-08-07 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: &18951520 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '2.10'
+  type: :development
+  prerelease: false
+  version_requirements: *18951520
+description: A SelfML parser in Ruby.
+email:
+- atamiser@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files:
+- History.txt
+- Manifest.txt
+- README.txt
+files:
+- .autotest
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/self-ml.rb
+- test/test_self_ml.rb
+- .gemtest
+homepage: https://github.com/fileability/self-ml
+licenses: []
+post_install_message: 
+rdoc_options:
+- --main
+- README.txt
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: self-ml
+rubygems_version: 1.8.7
+signing_key: 
+specification_version: 3
+summary: A SelfML parser in Ruby.
+test_files:
+- test/test_self_ml.rb