selfml 0.0.1

data/.gitignore

@@ -0,0 +1,7 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+*.DS_Store
+*.rbc
+.rbx/*

data/README.markdown

@@ -0,0 +1,20 @@
+# Description
+
+# Install
+
+Comming really soon:
+
+    gem install self-ml
+
+# Documentation
+
+# How to Contribute
+
+1. fork
+2. code
+3. pull request
+
+# Credits
+
+* devyn - helpful support
+* alexgordon - clearing up self-ml grammar

data/lib/selfml/ast.rb

@@ -0,0 +1,69 @@
+module SelfML::AST
+  
+  class Document < Array
+
+    def to_s
+      a = self.map(&:serialize).reject {|n| n.nil? }
+      a.join("\n\n") + "\n"
+    end
+
+  end
+
+  class Node
+    attr_accessor :head , :tail
+    
+    def initialize( head , tail = [] )
+      @head , @tail = head , tail
+    end
+    
+    def serialize level=1
+      tail = @tail.sort.map do |t|
+        case t
+        when Node
+          "\n" + " "*level*4 + "#{t.serialize level+1}"
+        when StringNode
+          " #{t.serialize}"
+        else
+          nil
+        end
+      end
+      
+      "(#{head.serialize}#{tail})"
+    end
+    
+    alias :to_s :serialize
+    
+    def <=> rhs
+      case rhs when Node       then  0
+               when StringNode then  1
+                               else -1 end
+    end
+
+  end
+  
+  class StringNode < String
+    
+    def serialize
+      return "`#{self.gsub("`","``")}`" if self.count("[") != self.count("]")
+      return "[#{self}]"                if self.match(/[#`()\[\]{} ]/)
+
+      self
+    end
+    
+    alias :to_s :serialize
+    
+    def <=> rhs
+      case rhs when StringNode then  0
+               when Node       then -1
+                               else  1 end
+    end
+    
+  end
+  
+  class Comment < String
+    def serialize; nil; end
+    
+    alias :to_s :serialize
+  end
+
+end

data/lib/selfml/parser.rb

@@ -0,0 +1,54 @@
+require 'parslet'
+
+class Parslet::Parser
+  rule(:space)  { match('\s').repeat(1) }
+  rule(:space?) { space.maybe }
+
+  rule(:word)   { match('\w').repeat }
+  rule(:word?)  { word.maybe }  
+end # monkey patching in a couple of helpers
+
+class SelfML::Parser < Parslet::Parser
+  root(:top)
+  rule(:top)  do
+    (space? >> node >> space?).repeat.as(:document)
+  end
+  
+  rule(:node) { comment.as(:comment) | list.as(:list) | string.as(:string)  }
+  
+  # String
+  rule(:string)    { backtick.as(:backticks) | bracketed.as(:brackets) | verbatim.as(:verbatim) }
+  rule(:backtick) do
+    str('`') >> (
+      str('``').as(:ticks) | match('``|[^`]').as(:text)
+    ).repeat >> str('`')
+  end
+  rule(:bracketed) do
+  	str('[') >> (
+  	  bracketed.as(:nested) | match('[^\]]').as(:text)
+    ).repeat >> str(']')
+  end
+  rule(:verbatim)  { str("#").absnt? >> match['^\[\](){}\s'].repeat(1) }
+
+  # List
+  rule(:tail) do
+    (node >> space?).repeat
+  end
+  rule(:list) do
+  	str('(') >> space? >> 
+  	  comment.as(:comment).maybe >> space? >>
+  	  string.as(:head)           >> space? >>
+  	  tail.as(:tail)             >> space? >>
+    space?   >> str(')')
+  end
+  
+  # Comment
+  rule(:comment) { line.as(:line) | block.as(:block) }
+  rule(:line)    { str('#') >> match['^\\n'].repeat.as(:text) >> (str("\n") | any.absnt?) }
+  rule(:block) do
+    str('{#') >> (
+      block.as(:block) |  match['^#}'].as(:text)
+    ).repeat >> str('#}')
+  end
+
+end

data/lib/selfml/transformer.rb

@@ -0,0 +1,49 @@
+require 'parslet'
+
+module SelfML
+
+  class HashTransformer < Parslet::Transform
+    rule(:document => sequence(:d)) { Array(d) }
+  	rule(:list => subtree(:l)) do
+  		head = String(l[:head]).to_sym
+  		tail = Array(l[:tail])
+  
+  		{ head => tail }
+  	end
+  	
+    rule(:string   => simple(:s)) { String(s) }
+    rule(:verbatim => simple(:s)) { String(s) }
+  end
+  
+
+  class Transformer < Parslet::Transform
+  	include AST
+
+    rule(:document => sequence(:doc)) { Document.new(doc) }
+  	rule(:list => subtree(:l)) do
+  		Node.new(
+  			StringNode.new(l[:head]) , Array(l[:tail])
+  		)
+  	end
+
+    # Comments
+  	rule(:comment => simple(:s)    ) { Comment.new(s)             }
+    rule(:block   => simple(:blk)  ) { Comment.new(blk)           }
+    rule(:block   => sequence(:blk)) { Comment.new(blk.reduce :+) }
+    rule(:line    => simple(:ln)   ) { Comment.new(ln)            }
+  	
+  	# Strings
+  	rule(:string    => simple(:s)) { StringNode.new(s) }
+    rule(:verbatim  => simple(:s)) { StringNode.new(s) }
+    
+    rule(:backticks => sequence(:s)) { StringNode.new("#{s}") }
+    rule(:ticks     =>   simple(:s)) { "`" }
+    
+    rule(:brackets => sequence(:b)) { StringNode.new("#{b}")   }
+    rule(:nested   =>   simple(:n)) { StringNode.new(n)        }
+    rule(:nested   => sequence(:n)) { StringNode.new("[#{n}]") }
+    
+    rule(:text => simple(:t)) { StringNode.new(t) }
+  end
+
+end

data/lib/selfml.rb

@@ -0,0 +1,21 @@
+require 'require_relative'
+
+require_relative 'selfml/version'
+
+['parser','ast','transformer'].each do |file|
+  require_relative "selfml/#{file}"
+end
+
+module SelfML
+  
+  def self.parse(s, engine=nil)
+    transformer = engine.new if engine.instance_of? Class
+
+    parser        = Parser.new
+    transformer ||= Transformer.new
+    
+    tree = parser.parse(s)
+    out  = transformer.apply(tree)
+  end
+
+end

data/spec/fixtures/basic.selfml

@@ -0,0 +1,2 @@
+(grandparent (parent child1 child2) (aunt))
+(grandparent (parent child1 child2 child3))

data/spec/fixtures/comments.selfml

@@ -0,0 +1,12 @@
+# This is a line comment at the start of the document
+
+({# This is a block comment with {# a nested block comment#}#}abc)
+
+(# This is a line comment just after a bracket
+def)
+
+(foo{# bar #}bar)
+
+(ghi){#{##}#}(jkl)
+
+(mno)# This is a line comment at the end of the document

data/spec/fixtures/output.basic.selfml

@@ -0,0 +1,6 @@
+(grandparent
+    (parent child1 child2)
+    (aunt))
+
+(grandparent
+    (parent child1 child2 child3))

data/spec/fixtures/output.comments.selfml

@@ -0,0 +1,11 @@
+(abc)
+
+(def)
+
+(foo bar)
+
+(ghi)
+
+(jkl)
+
+(mno)

data/spec/fixtures/output.strings.selfml

@@ -0,0 +1,13 @@
+[This document tests all kinds of strings]
+
+[back ` ticks]
+
+verbatim-strings
+
+[Strings with # signs in them]
+
+[Strings with [nested brackets] in them]
+
+[Strings with all # kinds ` of [shit] (like) {this} {# Should #} still work]
+
+`As should [strings with back `` (ticks) {like} this`

data/spec/fixtures/strings.selfml

@@ -0,0 +1,10 @@
+[This document tests all kinds of strings]
+
+`back `` ticks`
+
+verbatim-strings
+
+[Strings with # signs in them]
+[Strings with [nested brackets] in them]
+[Strings with all # kinds ` of [shit] (like) {this} {# Should #} still work]
+`As should [strings with back `` (ticks) {like} this`

data/spec/spec_helper.rb

@@ -0,0 +1,9 @@
+require 'rubygems'
+require 'minitest/autorun'
+
+def load_fixture name
+  {
+    :input  => File.read("fixtures/#{name}.selfml"),
+    :output => File.read("fixtures/output/#{name}.selfml")
+  }
+end

data/testing.rb

@@ -0,0 +1,44 @@
+require 'rubygems'
+
+require 'require_relative'
+require 'awesome_print'
+require 'differ'
+
+require_relative 'lib/selfml.rb'
+
+### Testing Facilities
+def load_tests(name)
+  [
+    File.read("spec/fixtures/#{name}.selfml") ,
+    File.read("spec/fixtures/output.#{name}.selfml")
+  ]
+end
+
+t = <<-HERE
+([don jon]
+    (music
+        iPod
+        (life)
+        iTunes)
+    (computers
+        iMac
+        [Mac mini])
+    (phones
+        iPhone)
+    (dishwashers))
+HERE
+
+
+basic_in    , basic_out    = load_tests("basic")
+comments_in , comments_out = load_tests("comments")
+strings_in  , strings_out  = load_tests("strings")
+
+puts SelfML.parse(t).to_s
+puts "---"
+a = SelfML.parse(basic_in   ).to_s    
+b = SelfML.parse(strings_in ).to_s 
+c = SelfML.parse(comments_in).to_s
+
+puts a
+puts "=="
+puts basic_out

metadata

@@ -0,0 +1,141 @@
+--- !ruby/object:Gem::Specification 
+name: selfml
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Ricardo Mendes
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-05-07 00:00:00 +01:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: parslet
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: require_relative
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: minitest
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: parslet
+  prerelease: false
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id004
+- !ruby/object:Gem::Dependency 
+  name: require_relative
+  prerelease: false
+  requirement: &id005 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id005
+description: Self-ML is, as the name implies, a self-ml parser. It also has some utilities to aid in building self-ml files.
+email: 
+- rokusu@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- README.markdown
+- lib/selfml.rb
+- lib/selfml/ast.rb
+- lib/selfml/parser.rb
+- lib/selfml/transformer.rb
+- spec/fixtures/basic.selfml
+- spec/fixtures/comments.selfml
+- spec/fixtures/output.basic.selfml
+- spec/fixtures/output.comments.selfml
+- spec/fixtures/output.strings.selfml
+- spec/fixtures/strings.selfml
+- spec/spec_helper.rb
+- testing.rb
+has_rdoc: true
+homepage: ""
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: self-ml
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: self-ml parser
+test_files: 
+- spec/fixtures/basic.selfml
+- spec/fixtures/comments.selfml
+- spec/fixtures/output.basic.selfml
+- spec/fixtures/output.comments.selfml
+- spec/fixtures/output.strings.selfml
+- spec/fixtures/strings.selfml
+- spec/spec_helper.rb