harby 1.0.0

data/lib/harby.rb

@@ -0,0 +1,17 @@
+$:.unshift File.dirname(__FILE__)
+
+require "polyglot"
+require "treetop"
+
+require "harby/concerns/delegation"
+require "harby/ext/compiled_parser"
+require "harby/ext/syntax_node"
+
+require "harby/grammar/command"
+require "harby/grammar/numeric"
+require "harby/grammar/regex"
+require "harby/grammar/string"
+require "harby/grammar/arguments"
+
+require "harby/null_delegate"
+require "harby/parser"

data/lib/harby/concerns/delegation.rb

@@ -0,0 +1,7 @@
+module Harby
+  module Concerns
+    module Delegation
+      attr_accessor :delegate
+    end
+  end
+end

data/lib/harby/ext/compiled_parser.rb

@@ -0,0 +1,16 @@
+module Treetop
+  module Runtime
+    class CompiledParser
+      include Harby::Concerns::Delegation
+      alias_method :parse_without_reference, :parse
+      
+      def parse(*args)
+        result = parse_without_reference(*args)
+        if delegate && result.respond_to?(:delegate=)
+          result.delegate = delegate
+        end
+        result
+      end
+    end
+  end
+end

data/lib/harby/ext/syntax_node.rb

@@ -0,0 +1,16 @@
+module Treetop
+  module Runtime
+    class SyntaxNode
+      include Harby::Concerns::Delegation
+      alias_method :elements_without_reference, :elements
+      
+      def elements(*args)
+        elements = elements_without_reference(*args) || []
+        @comprehensive_elements = elements.map do |element|
+          element.delegate = delegate
+          element
+        end
+      end
+    end
+  end
+end

data/lib/harby/grammar/arguments.treetop

@@ -0,0 +1,30 @@
+module Harby
+	module Grammar
+		grammar Arguments
+			include Command
+			include Numeric
+			include Regex
+			include String
+			
+			rule arguments
+				first_arg:argument rest_args:(" "+ arg:argument)* {
+					def args
+						[first_arg] + rest_args
+					end
+					
+					def parsed_args
+						@parsed_args ||= args.map { |arg| arg.parsed_value }
+					end
+					
+					def rest_args
+						super.elements.map { |space_and_arg| space_and_arg.arg }
+					end
+				}
+			end
+			
+			rule argument
+				command / numeric / regex / string
+			end
+		end
+	end
+end

data/lib/harby/grammar/command.treetop

@@ -0,0 +1,29 @@
+module Harby
+	module Grammar
+		grammar Command
+			rule command
+				"[" arguments "]" {
+					def args
+						arguments.parsed_args
+					end
+					
+					def name
+						args.first
+					end
+					
+					def parsed_args
+						args[1..-1]
+					end
+					
+					def parsed_value
+						if delegate.respond_to?(:on_command)
+							delegate.on_command(name, parsed_args)
+						else
+							""
+						end
+					end
+				}
+			end
+		end
+	end
+end

data/lib/harby/grammar/numeric.treetop

@@ -0,0 +1,29 @@
+module Harby
+	module Grammar
+		grammar Numeric
+			rule numeric
+				sign? number {
+					def parsed_value
+						text_value =~ /\./ ? float_value : integer_value
+					end
+					
+					def float_value
+						text_value.to_f
+					end
+					
+					def integer_value
+						text_value.to_i
+					end
+				}
+			end
+			
+			rule sign
+				[-+]
+			end
+			
+			rule number
+				[0-9\.]+ ![^0-9\.\] ]
+			end
+		end
+	end
+end

data/lib/harby/grammar/regex.treetop

@@ -0,0 +1,25 @@
+module Harby
+	module Grammar
+		grammar Regex
+			rule regex
+				"/" pattern:("\\/" / !"/" .)+ "/" modifiers:[iIxXmM]* {
+					def parsed_value
+						Regexp.new(pattern.text_value, modifiers)
+					end
+					
+					def modifiers
+						@modifiers ||= super.text_value.downcase.split("").map do |letter|
+							case letter
+							when "i" then Regexp::IGNORECASE
+							when "x" then Regexp::EXTENDED
+							when "m" then Regexp::MULTILINE
+							else nil; end
+						end.compact.uniq.inject(0) do |flags, modifier|
+							flags |= modifier
+						end
+					end
+				}
+			end
+		end
+	end
+end

data/lib/harby/grammar/string.treetop

@@ -0,0 +1,39 @@
+module Harby
+	module Grammar
+		grammar String
+			rule string
+				double_quoted / single_quoted / naked
+			end
+			
+			rule double_quoted
+				'"' value:('\\"' / command / !'"' .)* '"' {
+					def parsed_value
+						value.elements.map do |element|
+							if element.respond_to?(:parsed_value)
+								element.parsed_value
+							else
+								element.text_value.gsub('\\"', '"')
+							end
+						end.join("")
+					end
+				}
+			end
+			
+			rule single_quoted
+				"'" value:("\\'" / !"'" .)* "'" {
+					def parsed_value
+						value.text_value.gsub("\\'", "'")
+					end
+				}
+			end
+			
+			rule naked
+				("\\ " / !" " !"]" .)+ {
+					def parsed_value
+						text_value.gsub("\\ ", " ").gsub("\\/", "/")
+					end
+				}
+			end
+		end
+	end
+end

data/lib/harby/null_delegate.rb

@@ -0,0 +1,5 @@
+module Harby
+  class NullDelegate
+    def handle(*args); end
+  end
+end

data/lib/harby/parser.rb

@@ -0,0 +1,35 @@
+module Harby
+  class Parser
+    attr_reader :parser
+    
+    def initialize(delegate = nil)
+      @parser = Grammar::ArgumentsParser.new
+      @parser.delegate = delegate || NullDelegate.new
+    end
+    
+    def parse(input)
+      result = @parser.parse(input)
+      result ? result.parsed_args : nil
+    end
+    
+    def delegate=(delegate)
+      @parser.delegate = delegate
+    end
+    
+    def delegate
+      @parser.delegate
+    end
+    
+    def failure_reason
+      @parser.failure_reason
+    end
+    
+    def self.parse(input, delegate = nil)
+      new(delegate).parse(input)
+    end
+  end
+  
+  def self.parse(input, delegate = nil)
+    Parser.parse(input, delegate)
+  end
+end

metadata

@@ -0,0 +1,77 @@
+--- !ruby/object:Gem::Specification 
+name: harby
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 1.0.0
+platform: ruby
+authors: 
+- Ross Paffett
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-05-06 00:00:00 -04:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: treetop
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.4.9
+  type: :runtime
+  version_requirements: *id001
+description: A grammar-based parser for textual commands. Ideal for IRC bots.
+email: 
+- ross@rosspaffett.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/harby/concerns/delegation.rb
+- lib/harby/ext/compiled_parser.rb
+- lib/harby/ext/syntax_node.rb
+- lib/harby/null_delegate.rb
+- lib/harby/parser.rb
+- lib/harby.rb
+- lib/harby/grammar/arguments.treetop
+- lib/harby/grammar/command.treetop
+- lib/harby/grammar/numeric.treetop
+- lib/harby/grammar/regex.treetop
+- lib/harby/grammar/string.treetop
+has_rdoc: true
+homepage: http://github.com/raws/harby
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.9.2
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.6.2
+signing_key: 
+specification_version: 3
+summary: Simple textual command parser
+test_files: []
+