minilang_refi 0.0.1

data/lib/minilang_refi.rb

@@ -0,0 +1,290 @@
+# encoding: UTF-8
+
+## === std stuff
+#if(__FILE__ == $0)
+	#local_dir = File.expand_path(File.dirname(__FILE__) )
+	#global_libs_dir = "C:/files/dev/libs/ruby"
+	#$: << local_dir # my local requires
+	#$: << global_libs_dir # my global requires
+	#require 'general_libs/helper.rb' # timing, styling, monkey-patches (String,Hash,Array)
+#end
+## ===
+
+#require 'minival_refi'
+
+require 'polyglot'
+require 'treetop'
+#require 'pp'
+require 'string_extensions_refi'
+
+
+p = File.join(File.dirname(__FILE__),'/minilang_refi/minilang_grammar.treetop')
+Treetop.load(p)
+
+class MinilangGrammarParser
+	def get_errors
+		[failure_reason,failure_line,failure_column]
+	end
+end
+
+#			g1: new_values = each({in:[1,2,3],as:i,do:concat(["(",i,")"])});
+#			g2: insert(concat(["<tr>", each({in:cur_cols,as:cur_col,do:concat(["<td>",var_map[cur_col],"</td>"])}) , "</tr>"]));
+#			c3: tdx_cols = regex_select( {from: col_labels, where: tdx_cols_regex} ) ;
+
+module Refi
+
+class MinilangEnv
+	@@rf_cache = {}
+	@@funs = {
+		"prepare" => proc{|env,args|
+			env.prepare(args[:n],args[:stmt])
+		},
+		"run" => proc{|env,args|
+			next env.prepare_run(args[:n])
+		},
+		"set" => proc{|env,args|
+			deref = args[:deref] || []
+			env.set(args[:n],args[:v],deref)
+		},
+		"get" => proc{|env,args|
+			next env.get(args[:n])
+		},
+		"get_m" => proc{|env,args|
+			next env.get_m(args[:n])
+		},
+		"get_l" => proc{|env,args|
+			next env.get_l(args[:n])
+		},
+		"get_e" => proc{|env,args|
+			next env.get_e(args[:n])
+		},
+		"insert" => proc{|env,args|
+			env.text << args[:v].to_s
+		},
+		"read_file" => proc{|env,args|
+			pn = args[:pn]
+			rf = @@rf_cache[pn]
+			unless rf
+				rf = env.read_file args[:pn].to_s
+				@@rf_cache[pn] = rf
+			end
+			next rf
+			#next env.read_file args[:pn].to_s
+		},
+		"print" => proc{|env,args|
+			puts args[:v].to_s
+		},
+		"pp" => proc{|env,args|
+			pp env
+		},
+		"concat" => proc{|env,args|
+			ary = args[:ary]
+			concat_str = ary.inject(''){|memo,i|
+				memo << i
+			}
+			next concat_str
+		},
+		"get_export_type" => proc{|env,args|
+			next env.get_export_type
+		},
+		"get_keys" => proc{|env,args|
+			m = args[:map]
+			res = m.keys
+			next res
+		},
+		"regex_select" => proc{|env,args|
+			from = args[:from]
+			where = args[:where]
+			res = []
+			from.each{|e|
+				if e.match(where) 
+					res << e
+				end
+			}
+			next res
+		},
+		"group" => proc{|env,args|
+			ary = args[:ary].dup
+			ary_size = ary.size
+			amount = args[:amount]
+			fill = args[:fill]
+			res = []
+			while !ary.empty?
+				res.push ary.shift(amount)
+			end
+			if fill
+				fills = ary_size % amount
+				fills.times{
+					res[-1].push(fill)
+				}
+			end
+			next res
+		},
+		"loop" => proc{|env,args|
+			l_var_name = args[:l_var]
+			ary = args[:ary].dup
+			env.create_loop(l_var_name,ary)
+			next nil
+		},
+	}
+	attr_accessor :text
+	def initialize(creator,p)
+		@creator = creator
+		@export_type = p[:export_type] || $Log.tlog({id: 'err1030'})
+		#dperr( 'E777', 'export type not passed to minilang env init')
+		@text = ''
+		@vars = {} # local
+		@vars_m = {} # var_map
+		@vars_l = {} # loop
+		@vars_e = {} # each
+		@iter_vars = {}
+		@prep_stmts = {}
+	end
+	def consume_text
+		t = @text
+		@text = ''
+		return t
+	end
+	def set_var_map var_map
+		@vars_m = var_map
+	end
+	def pretty_print(pp)
+		puts "<vars>"
+		pp @vars
+		puts "</vars>"
+		puts "<text>"
+		pp @text
+		puts "</text>"
+	end
+	def call_fun(fun_name,fun_args)
+		res = @@funs[fun_name].call(self,fun_args)
+		return res
+	end
+	def get name
+		return @vars[name]
+	end
+	def get_m name
+		unless name
+			return @vars_m
+		else
+			return @vars_m[name]
+		end
+	end
+	def get_e name
+		return @vars_e[name]
+	end
+	def get_l name
+		return @vars_l[name]
+	end
+	def read_file pn
+		return @creator.read_file pn
+	end
+	def create_loop(l_var_name,ary)
+		@creator.create_loop(l_var_name,ary)
+	end
+	def set_e(var_name,var_value,deref)
+		if deref == []
+			@vars_e[var_name] = var_value
+			return
+		else
+			v_e = deref.pop
+			v = @vars_e[var_name]
+			deref.each{|d|
+				v = v[d]
+			}
+			v[v_e] = var_value
+			return
+		end
+	end
+	def set_l(var_name,var_value) #,deref)
+		#if deref == []
+			@vars_l[var_name] = var_value
+			return
+		#else
+		#	v_e = deref.pop
+		#	v = @vars_l[var_name]
+		#	deref.each{|d|
+		#		v = v[d]
+		#	}
+		#	v[v_e] = var_value
+		#	return
+		#end
+	end
+	def set(var_name,var_value,deref)
+		if deref == []
+			@vars[var_name] = var_value
+		else
+			v_e = deref.pop
+			v = @vars[var_name]
+			deref.each{|d|
+				v = v[d]
+			}
+			v[v_e] = var_value
+		end
+		return nil
+	end
+	def set_iter_var(var_ref,val)
+		@iter_vars[var_ref] = val
+	end
+	def parse_str str
+		parse_res = MinilangScript.new(str)
+		if(parse_res.valid)
+			return parse_res
+		else
+			dparn 1223, "invalid string (was not executed)"
+			parse_res.report_errors
+			return nil
+		end
+	end
+	def prepare(name,str)
+		@prep_stmts[name] = parse_str(str)
+	end
+	def prepare_run(name)
+		@prep_stmts[name].run(self)
+	end
+	def run_str str
+		parse_res = parse_str(str)
+		return parse_res.run(self)
+	end
+end
+class MinilangScript
+	def initialize(str)
+		@parser = MinilangGrammarParser.new
+		@parse_result = @parser.parse(str)
+		@val = nil
+	end
+	def valid
+		return true if @parse_result
+		return false
+	end
+	def assert_valid
+		unless valid	
+			report_errors
+			dperr 1010,"#{self.class} assert_valid failed"
+		end
+	end
+	def report_errors
+		pp @parser.get_errors
+    # TODO logger
+	end
+	def compute_val
+		@val = @parse_result.content
+	end
+	def get_val
+		return @val || compute_val
+	end
+	def run env
+		return @parse_result.run(env)
+	end
+end
+
+#test_class = MinilangScript
+## === std testing
+#if(__FILE__ == $0)
+	#puts "#{__FILE__} was called as single app"
+	#puts 'execute the test method'
+	#test_class.test()
+#end
+## ===
+
+end # module Refi

metadata

@@ -0,0 +1,108 @@
+--- !ruby/object:Gem::Specification 
+name: minilang_refi
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Robert Fey
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-07-26 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: polyglot
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 3
+        - 1
+        version: 0.3.1
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: treetop
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 4
+        - 9
+        version: 1.4.9
+  type: :runtime
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: string_extensions_refi
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 1
+        - 0
+        version: 0.1.0
+  type: :runtime
+  version_requirements: *id003
+description: minilang is used in a couple of my projects and I can't recommend anyone to use it as of now
+email: feyrob@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/minilang_refi.rb
+has_rdoc: true
+homepage: http://rubygems.org/gems/minilang_refi
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: nowarning
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: minilang is a very bad programming language (my first) which tries to prevent users from writing code that does not return
+test_files: []
+