clj 0.0.1

data/lib/clj.rb

@@ -0,0 +1,24 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'clj/types'
+require 'clj/parser'
+
+class Clojure
+	def self.parse (*args)
+		Clojure::Parser.new(*args).parse
+	end
+
+	def self.dump (what)
+		raise ArgumentError, 'cannot convert the passed value to clojure' unless what.respond_to? :to_clj
+
+		what.to_clj
+	end
+end

data/lib/clj/parser.rb

@@ -0,0 +1,246 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'strscan'
+
+class Clojure
+
+class Parser < StringScanner
+	STRING = /" ((?:[^\x0-\x1f"\\] |
+		# escaped special characters:
+		\\["\\\/bfnrt] |
+		\\u[0-9a-fA-F]{4} |
+		# match all but escaped special characters:
+		\\[\x20-\x21\x23-\x2e\x30-\x5b\x5d-\x61\x63-\x65\x67-\x6d\x6f-\x71\x73\x75-\xff])*)
+	"/nx
+
+	KEYWORD = /:([^(\[{'^@`~\"\\,\s;)\]}])/
+
+	INTEGER = /(-?0|-?[1-9]\d*)/
+
+	FLOAT = /(-?
+		(?:0|[1-9]\d*)
+		(?:
+			\.\d+(?i:e[+-]?\d+) |
+			\.\d+ |
+			(?i:e[+-]?\d+)
+		)
+	)/x
+
+	RATIONAL = /(#{INTEGER}\/#{INTEGER})/
+
+	REGEXP = /#"((\\.|[^"])+)"/
+
+	VECTOR_OPEN  = /\[/
+	VECTOR_CLOSE = /\]/
+
+	LIST_OPEN  = /\(/
+	LIST_CLOSE = /\)/
+
+	SET_OPEN  = /\#\{/
+	SET_CLOSE = /\}/
+
+	HASH_OPEN  = /\{/
+	HASH_CLOSE = /\}/
+
+	TRUE  = /true/
+	FALSE = /false/
+	NIL   = /nil/
+
+	IGNORE = %r(
+		(?:
+		 //[^\n\r]*[\n\r]| # line comments
+		 /\* # c-style comments
+		 (?:
+			[^*/]| # normal chars
+			/[^*]| # slashes that do not start a nested comment
+			\*[^/]| # asterisks that do not end this comment
+			/(?=\*/) # single slash before this comment's end
+		 )*
+			 \*/ # the End of this comment
+			 |[ \t\r\n,]+ # whitespaces: space, horicontal tab, lf, cr, and comma
+		)+
+	)mx
+
+	UNPARSED = Object.new
+
+	def initialize (source, options = {})
+		super(source)
+
+		@hash_class   = options[:hash_class]   || Hash
+		@vector_class = options[:vector_class] || Array
+		@list_class   = options[:list_class]   || Array
+		@set_class    = options[:set_class]    || Array
+	end
+
+	alias source string
+
+	def parsable? (what)
+		!!case what
+			when :vector then scan(VECTOR_OPEN)
+			when :list   then scan(LIST_OPEN)
+			when :set    then scan(SET_OPEN)
+			when :hash   then scan(HASH_OPEN)
+		end
+	end
+
+	def parse (check = true)
+		reset if check
+
+		result = case
+			when parsable?(:vector) then parse_vector
+			when parsable?(:list)   then parse_list
+			when parsable?(:set)    then parse_set
+			when parsable?(:hash)   then parse_hash
+			else                         parse_value
+		end
+
+		if check && result == UNPARSED
+			raise SyntaxError, 'the string does not contain proper clojure'
+		end
+
+		result
+	end
+
+	def parse_value
+		case
+			when scan(RATIONAL) then Rational(self[1])
+			when scan(FLOAT)    then Float(self[1])
+			when scan(INTEGER)  then Integer(self[1])
+			when scan(REGEXP)   then /#{self[1]}/
+			when scan(STRING)   then parse_string
+			when scan(KEYWORD)  then self[1].to_sym
+			when scan(TRUE)     then true
+			when scan(FALSE)    then false
+			when scan(NIL)      then nil
+			else                UNPARSED
+		end
+	end
+
+	# Unescape characters in strings.
+	UNESCAPE_MAP = Hash.new { |h, k| h[k] = k.chr }
+	UNESCAPE_MAP.update({
+		?"  => '"',
+		?\\ => '\\',
+		?/  => '/',
+		?b  => "\b",
+		?f  => "\f",
+		?n  => "\n",
+		?r  => "\r",
+		?t  => "\t",
+		?u  => nil,
+	})
+
+	def parse_string
+		return '' if self[1].empty?
+
+		self[1].gsub(%r((?:\\[\\bfnrt"/]|(?:\\u(?:[A-Fa-f\d]{4}))+|\\[\x20-\xff]))n) do |c|
+			if u = UNESCAPE_MAP[$&[1]]
+				u
+			else # \uXXXX
+				bytes = EMPTY_8BIT_STRING.dup
+				i = 0
+				while c[6 * i] == ?\\ && c[6 * i + 1] == ?u
+					bytes << c[6 * i + 2, 2].to_i(16) << c[6 * i + 4, 2].to_i(16)
+					i += 1
+				end
+				JSON.iconv('utf-8', 'utf-16be', bytes)
+			end
+		end
+	end
+
+	def parse_vector
+		result = @vector_class.new
+
+		until eos?
+			case
+			when (value = parse(false)) != UNPARSED
+				result << value
+			when scan(VECTOR_CLOSE)
+				break
+			when skip(IGNORE)
+				;
+			else
+				raise SyntaxError, 'wat do'
+			end
+		end
+
+		result
+	end
+
+	def parse_list
+		result = @list_class.new
+
+		until eos?
+			case
+			when (value = parse(false)) != UNPARSED
+				result << value
+			when scan(LIST_CLOSE)
+				break
+			when skip(IGNORE)
+				;
+			else
+				raise SyntaxError, 'wat do'
+			end
+		end
+
+		result
+	end
+
+	def parse_set
+		result = @set_class.new
+
+		until eos?
+			case
+			when (value = parse(false)) != UNPARSED
+				result << value
+			when scan(SET_CLOSE)
+				break
+			when skip(IGNORE)
+				;
+			else
+				raise SyntaxError, 'wat do'
+			end
+		end
+
+		if result.uniq!
+			raise SyntaxError, 'the set contains non unique values'
+		end
+
+		result
+	end
+
+	def parse_hash
+		result = @hash_class.new
+
+		until eos?
+			case
+			when (key = parse(false)) != UNPARSED
+				skip(IGNORE)
+
+				if (value = parse(false)) == UNPARSED
+					raise SyntaxError, 'no value for the hash'
+				end
+
+				result[key] = value
+			when scan(HASH_CLOSE)
+				break
+			when skip(IGNORE)
+				;
+			else
+				raise SyntaxError, 'wat do'
+			end
+		end
+
+		result
+	end
+end
+
+end

data/lib/clj/types.rb

@@ -0,0 +1,45 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+[String, Symbol, Numeric, TrueClass, FalseClass, NilClass].each {|klass|
+	klass.instance_eval {
+		alias_method :to_clj, :inspect
+	}
+}
+
+class Rational
+	alias to_clj to_s
+end
+
+class Regexp
+	def to_clj
+		'#"' + inspect[1 .. -2] + '"'
+	end
+end
+
+if defined? BigDecimal
+	class BigDecimal
+		def to_clj
+			inspect + 'M'
+		end
+	end
+end
+
+class Array
+	def to_clj
+		'[' + map { |o| o.to_clj }.join(' ') + ']'
+	end
+end
+
+class Hash
+	def to_clj
+		'{' + map { |k, v| k.to_clj + ' ' + v.to_clj }.join(' ') + '}'
+	end
+end

metadata

@@ -0,0 +1,70 @@
+--- !ruby/object:Gem::Specification
+name: clj
+version: !ruby/object:Gem::Version
+  prerelease: 
+  version: 0.0.1
+platform: ruby
+authors:
+- meh.
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-02-02 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  version_requirements: &14424 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  prerelease: false
+  requirement: *14424
+  name: rake
+  type: :development
+- !ruby/object:Gem::Dependency
+  version_requirements: &14488 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  prerelease: false
+  requirement: *14488
+  name: rspec
+  type: :development
+description: 
+email: meh@paranoici.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/clj.rb
+- lib/clj/types.rb
+- lib/clj/parser.rb
+homepage: http://github.com/meh/ruby-clj
+licenses: []
+post_install_message: 
+rdoc_options: []
+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: 
+rubygems_version: 1.8.12
+signing_key: 
+specification_version: 3
+summary: Like json, but with clojure sexps.
+test_files: []
+has_rdoc: