rubimc 0.2.1

data/lib/rubimc/controllers.rb

@@ -0,0 +1,46 @@
+# ToDo: replace Controllers to MCUs
+class Controllers
+	def self.all # list of USER`s microcontrolles
+		@@controllers_array
+	end
+
+	@@controllers_array = []
+	def self.inherited(child_class) # hook when define class
+		@@controllers_array << child_class if child_class.is_real_controller?
+	end
+
+	def self.is_real_controller?
+		false
+	end
+
+	def self.print_cc_layout(position)
+		if position == :before_main
+			RubimCode.pout "/**************************************************************"
+			RubimCode.pout " * This code was generated by RubimC micro-framework"
+			RubimCode.pout " * RubimC version: #{RubimCode::VERSION}"
+			RubimCode.pout " * Author: Evgeny Danilov"
+			RubimCode.pout " * File created at #{Time.now}"
+			RubimCode.pout " **************************************************************/"
+			RubimCode.pout
+			RubimCode.pout "#include <stdbool.h>"
+			RubimCode.pout "#include <stdio.h>"
+			RubimCode.pout
+			yield if block_given?
+			RubimCode.pout
+			RubimCode.pout "int main(int argc, char *argv[]) {"
+			RubimCode.level += 1
+		else
+			RubimCode.pout
+			RubimCode.pout "return 1;"
+			RubimCode.level -= 1
+			RubimCode.pout "}"
+		end
+	end
+
+	def self.find_mcu(name)
+		series_array = Controllers.descendants
+		real_mcu_array = []
+		series_array.each {|series| real_mcu_array += series.descendants}
+		return real_mcu_array.select {|mcu| mcu.is_real_controller? and mcu::MCU_NAME == name}
+	end
+end

data/lib/rubimc/init_var.rb

@@ -0,0 +1,99 @@
+#####################################################################
+# Initialize user`s variables										#
+#####################################################################
+
+class << RubimCode
+	attr_accessor :binding
+end
+
+def integer(*varies) # varies - набор инициализируемых переменных
+	str_cc = "int "
+	ret_var = []
+
+	varies.each {|var|
+		# ToDo - поиск уже объявленных переменных и выдача предупреждений
+
+		if var.is_a? Hash # ToDo
+			RubimCode.perror "Ошибка. В бета-версии нельзя назначать переменным значения при объявлении"
+			# key = var.keys.first
+			# instance_variable_set("@#{key.to_s}" , UserVariable.new("#{key.to_s}"))
+			# str_cc += "#{key.to_s}=#{var[key]}, "
+		else
+			if var.to_s[0] == '@'
+				# ToDo:
+				RubimCode.perror "ToDo:"
+			elsif var.to_s[0] == '$'
+				# ToDo or delete
+				RubimCode.perror "Ошибка. В текущей версии нельзя инициализировать глобальные переменные"
+			else
+				str_cc += "#{var}, "
+				ret_var << RubimCode::UserVariable.new("#{var}", 'int')
+			end
+
+			# if self.ancestors.include? RubimCode or self == TestController
+
+				# str_cc = "int " if str_cc.nil?
+				# str_cc += "#{var}, "
+
+				# eval ("
+				# 	def #{var}
+				# 		@users__var__#{var}
+				# 	end
+				# 	@users__var__#{var} = RubimCode::UserVariable.new(\"#{var}\", 'int')
+				# 	")
+
+				# # Альтернативная реализация
+				# var_method = Proc.new {instance_variable_get("@users__var__#{var}")}
+				# self.class.send(:define_method, var.to_sym, var_method)
+				# instance_variable_set("@users__var__#{var}" , UserVariable.new("#{var}", 'int'))
+			# else
+			# 	add_var_array(self.name, UserVariable.new("#{var}", 'int'))
+			# 	eval ("
+			# 			def #{var}=(value)
+			# 				pout \"\#{self.name}.#{var} = \#{value};\"
+			# 			end
+			# 			def #{var}
+			# 				UserVariable.new(\"\#{self.name}.#{var}\", 'int')
+			# 			end
+			# 			")
+			# end
+		end
+	}
+	if ret_var.empty?
+		RubimCode.perror "no variables to init" 
+	end
+	RubimCode.pout ("#{str_cc.chomp(', ')};")
+
+	if ret_var.count == 1
+		return ret_var[0]
+	else
+		return ret_var
+	end
+end
+
+def array_of_integer(var, size: nil)
+	array(var, with: {type: :integer, size: size})
+end
+
+def array(var, with: {type: 'UserVariable', size: nil})
+	with[:size] = with[:size].to_i
+	with[:type] = with[:type].to_s
+	if with[:size].nil? or with[:type].nil?
+		RubimCode.perror "Необходимо указать параметры массива (напр.: with: {type: :float, size: n, ...})"
+		return
+	end
+
+	user_class = with[:type]
+	with[:type] = 'int' if with[:type] == 'integer'
+	if (with[:type].in? ['bool','int','float','double','string']) 
+		user_class = "UserVariable"
+	end
+
+	arr = with[:size].times.map do |i| 
+		eval("RubimCode::#{user_class}.new('#{var}[#{i}]', '#{with[:type]}')")
+	end
+	instance_variable_set("@#{var}", RubimCode::UserArray.new(arr))
+	eval ("@#{var}.name = '#{var}'")
+	eval ("@#{var}.type = \"#{with[:type]}\"")
+	RubimCode.pout "#{with[:type]} #{var}[#{with[:size]}];"
+end

data/lib/rubimc/io_ports.rb

@@ -0,0 +1,66 @@
+def output (var, port: nil, pin: nil, type: "normal")
+	if port.nil? or pin.nil?
+		RubimCode.perror "Необходимо указать порт и пин для выхода #{var}"
+	elsif not self.class::PORTS.include? port
+		RubimCode.perror "У микроконтроллера #{self.class::MCU_NAME} нет порта #{port}"
+	elsif not self.class::PORTS[port].include? pin.to_i
+		RubimCode.perror "У микроконтроллера #{self.class::MCU_NAME} нет порта пина #{pin} для порта #{port}"
+
+	elsif type == "normal"
+		# define_method(var.to_sym) do
+		# 	instance_variable_get("@users__var__#{var}")
+		# 	end
+		# instance_variable_set("@users__var__#{var}" , UserOutput.new("#{var}", port: port, pin: pin, type: type))
+
+		eval ("
+			def #{var}
+				@users__var__#{var}
+			end
+			@users__var__#{var} = RubimCode::UserOutput.new(\"#{var}\", port: port, pin: pin, type: type)
+			")
+
+	elsif type == "tri-state"
+		RubimCode.perror "В данный момент тип выхода 'z-state' не реализован"
+
+	else
+		RubimCode.perror "Неизвестный тип выхода '#{type}'"
+	end
+end
+
+# ToDo: realize this method
+def input (var, port: nil, pin: nil)
+end
+
+
+class RubimCode
+	class << self
+		def rubim_sbit(var, bit); "#{var} |= 1<<#{bit};"; end
+		def rubim_cbit(var, bit); "#{var} &= ~(1<<#{bit});"; end
+		def rubim_tbit(var, bit); "#{var} ^= 1<<#{bit};"; end
+	end # class << self
+
+	class UserOutput
+		attr_accessor :name, :port, :pin, :type
+
+		def initialize(name, port: nil, pin: nil, type: "normal")
+			@name = name.to_s
+			@port = port.to_s
+			@pin = pin.to_s
+			@type = type.to_s
+			RubimCode.pout (RubimCode.rubim_sbit("DDR#{port}", "#{pin}"))
+		end
+
+		def on
+			RubimCode.pout (RubimCode.rubim_sbit("PORT#{port}", "#{pin}"))
+		end
+
+		def off
+			RubimCode.pout (RubimCode.rubim_cbit("PORT#{port}", "#{pin}"))
+		end
+
+		def toggle
+			RubimCode.pout (RubimCode.rubim_tbit("PORT#{port}", "#{pin}"))
+		end
+	end
+
+end # RubimCode class

data/lib/rubimc/mcu/avr/attiny13.rb

@@ -0,0 +1,176 @@
+#####################################################################
+# ATMEL AVR - attiny13												#
+#####################################################################
+
+class AVR_attiny13 < AVRController
+	class << self
+		def is_real_controller?
+			true
+		end
+
+		def micro_layout 
+			# ToDo: set F_CPU from user programm
+			RubimCode.pout "#define __AVR_ATtiny13__ 1" 
+			RubimCode.pout "#define F_CPU 1000000UL" # Microcontroller frequency (Hz)
+			RubimCode.pout "#include <avr/io.h>"
+			RubimCode.pout "#include <avr/iotn13.h>"
+			RubimCode.pout "#include <avr/interrupt.h>"
+		end
+	end # class << self
+
+	MCU_NAME = "attiny13"
+	PORTS = {B: (0...5)}
+
+
+	RESET_PIN = {port: :B, pin: 5}
+
+	ADC_CHANNEL = [{port: :B,pin: 5}, {port: :B, pin: 2}, {port: :B, pin: 4}, {port: :B, pin: 3}]
+	AN_COMPARATOR = [{positive: {port: :B, pin: 0}, negative: {port: :B, pin: 1}}]
+	ADC0="(0b00<<MUX0)"; ADC1="(0b01<<MUX0)"; ADC2="(0b10<<MUX0)"; ADC3="(0b11<<MUX0)"; 
+
+	INTERRUPT_SOURCE = 5.times.map {|i| {port: :B, pin: i} }
+
+	TIMER_CLOCK_SOURCE = [{port: :B, pin: 2}]
+	TIMER_COMPARE_OUTPUT = [{matchA: {port: :B, pin: 0}, matchB: {port: :B, pin: 1}}]
+
+	SPI_PIN = { master: {
+					input: {port: :B, pin: 1}, 
+					output: {port: :B, pin: 0} 
+					}, 
+				slave: {
+					input: {port: :B, pin: 0}, 
+					output: {port: :B, pin: 1}
+					} 
+				}
+
+	class ANALOG_TO_DIGITAL
+		def self.init(**options)
+			options.permit_and_default!(ref: "vcc", channel: "MUX0",
+							prescale: 2, auto_triggering: "disable", interrupt_enabled: false,
+							digital_inputs: false)
+
+			RubimCode.pout
+			RubimCode.pout "// Init ADC"
+
+			# === ADMUX ===
+			refs0 = case options[:ref] # источник опорного напряжения
+						when "vcc" then 0
+						when "internal" then 1
+						else perror "Undefined value for option :ref in method '#{__method__}'"
+					end
+
+			adlar = case "right" # options[:result_adjust] # выравнивание результата вычислений всегда по правому краю
+						when "left" then 1
+						when "right" then 0
+						else perror "Undefined value for option :result_adjust in method '#{__method__}'"
+					end
+
+			channel = options[:channel]
+			unless channel.in? [ADC0, ADC1, ADC2, ADC3]
+				RubimCode.pout channel
+				perror "Undefined value for option :channel in method '#{__method__}'"
+			end
+
+			RubimCode.pout("ADMUX = (#{refs0}<<REFS0) | (#{adlar}<<ADLAR) | #{channel};")
+
+			# === ADCSRA ===
+			adate = case options[:auto_triggering] # одиночное преобразование или множественное
+						when "enable" then 1
+						when "disable" then 0
+						else perror "Undefined value for option :auto_triggering in method '#{__method__}'"
+					end
+
+			# adif = ? # ToDo: ADC Interrupt Flag 
+
+			adie = 0 # interrupt enable (для установки этого значения есть отдельная функция)
+
+			adps = case options[:prescale] # prescale
+						when 2 then 1
+						when 4 then 2
+						when 8 then 3
+						when 16 then 4
+						when 32 then 5
+						when 64 then 6
+						when 128 then 7
+						else perror "Undefined value for option :prescale in method '#{__method__}'"
+					end
+
+			RubimCode.pout ("ADCSRA = (1<<ADEN) | (#{adate}<<ADATE) | (#{adps}<<ADPS0) | (#{adie}<<ADIE);")
+
+			# ToDo: config ports as input (is it need???)
+			# ToDo: config DIDR0
+			RubimCode.pout
+		end # init method
+
+		def self.convert(channel: nil)
+			# ToDo: должен возвращать значение, реализовать как С-функцию
+			# ToDo: можно использовать ленивую загрузку Ruby - autoload
+			unless channel.in? [ADC0, ADC1, ADC2, ADC3, nil]
+				perror "Undefined value for option :channel in method '#{__method__}'"
+			end
+			
+			unless channel.nil?
+				RubimCode.pout ("ADMUX = (ADMUX & 0b11111100) | channel;") # ToDo: replace 0b11111110 to ARV-const
+				RubimCode.pout ("_delay_us(1);") # Для стабилизации входного напряжения # ToDo: replace to rubim's delay(1.miliseconds)
+			end
+			RubimCode.pout ("ADCSRA |= (1 << ADSC);") # Старт преобразования
+			RubimCode.pout ("while (ADCSRA & (1 << ADSC));") # Ожидание завершения преобразования
+
+			# ToDo - надо точно  разобраться с выравниванием
+			# (и поправить аналогичный код в interrupt)
+			RubimCode.pout ("ADCL + ((ADCH&0b11) << 8);") # выравнивание результата вычислений всегда по правому краю (см. adlar)
+		end # convert method
+
+		def set_freq(freq) # установка частоты АЦП (с помощью установки предделителя)
+			# ToDo: реализовать метод
+			# ToDo: в методе инициализации добавить опцию frequency: nil
+		end
+
+		def self.interrupt(**options, &block)
+			options.permit_and_default!(enabled: false)
+			# if is_enabled && block.nil? # ToDo: проверить на наличие блока если прерывание активно
+			# 	perror "method #{__method__} mast have a block"
+			# end
+
+			adie = case options[:enabled] # ADC Interrupt Enable
+						when true then 1
+						when false then 0
+						else perror "Undefined value for option :is_enabled in method '#{__method__}'"
+					end
+			if adie == 0 # if interrupt disabled
+				RubimCode.pout "Start continuously ADC convert"
+				RubimCode.pout (RubimCode.rubim_cbit("ADMUX", "ADIE"))
+				# RubimCode.pout ("cli();") # automatically set (is it?) 
+			else 
+				RubimCode.pout (RubimCode.rubim_sbit("ADMUX", "ADIE"))
+				# RubimCode.pout ("sei();") # automatically set (is it?)
+			end
+			
+			# Genetare Interrupt code
+			if block_given?
+				interrupt_code = "" # Write code in variable "interrupt_code"
+				RubimCode.pout_destination = interrupt_code
+				old_level = RubimCode.level
+				RubimCode.level = 0
+
+				RubimCode.pout
+				RubimCode.pout "// ADC Interrupt"
+				RubimCode.pout ("ISR(ADC_vect) {")
+				RubimCode.level += 1
+					# ToDo - надо точно  разобраться с выравниванием 
+					# (see above in convert method)
+					RubimCode.pout "int __rubim__volt = ADCL + ((ADCH&0b11) << 8);"
+					yield (RubimCode::UserVariable.new("__rubim__volt", "int"))
+				RubimCode.level -= 1
+				RubimCode.pout ("}")
+
+				RubimCode.level = old_level
+				RubimCode.pout_destination = :default
+				RubimCode::Interrupts.add(interrupt_code)
+			end
+		end # interrupt method
+
+	end # ANALOG_TO_DIGITAL Class 
+
+
+end # RubimCode class

data/lib/rubimc/mcu/avr/avr_controller.rb

@@ -0,0 +1,16 @@
+class AVRController < Controllers
+	MCU_SERIES = "AVR"
+
+	def self.print_layout(position)
+		if position == :before_main
+			print_cc_layout(:before_main) do 
+				micro_layout # prints includes for current microcontroller
+			end 
+		elsif position == :after_main
+			print_cc_layout(:after_main)
+		end
+	end
+end
+
+# ToDO: add all folder 'avr'
+require 'rubimc/mcu/avr/attiny13'

data/lib/rubimc/preprocessor.rb

@@ -0,0 +1,354 @@
+=begin
+
+ЗАДАЧА ПРЕПРОЦЕССОРА:
+	1. (готово) замена оператора присваивания: "=" на ".c_assign="
+	2. (готово )замена всех цифр(целые, дробные, отриц.)
+	3a. (не готово) Замена условий (find_far_pos - возвращать позицию с учетом длины идентификатора)
+	3b. (готово) Замена циклов
+	3c. Замена управляющих структур: break, next, redo, retry
+	4. замена строк "123" => UserVariable.new("123")
+		- строки "это_строка" и 'это_строка'
+	5. Поиск необъявленных переменных и выдача ошибок
+	6. Предупреждение об использовании зарезервированных переменных и методов
+		все  они начинаются на "__rubim__"
+		(напр. __rubim__times или __rubim__classparams)
+	7. Предупреждение об использовании зарезервированных классов
+		UserClass, UserArray (лучше заменить на RubimClass, RubimArray)
+	8. Добавление предка к пользовательским классам
+	9. Замена return на __rubim_return
+	10. Сохранить все пользовательские комментарии в генерируемом коде
+	11. Цикл for - хз-чо делать...
+
+
+=end
+
+class Object
+	def in?(array)
+		array.each {|x| return true if x == self}
+		return false
+	end
+end
+
+require 'ripper'
+class RubimRipper
+	# 1. (готово) замена оператора присваивания: "=" на ".c_assign="
+    def self.replace_assing_operators(source)
+    	lexs = Ripper.lex(source)
+    	lexs.reverse_each do |lex|
+            pos, ident, symb = lex
+            if (ident == :on_op and symb == "=")
+            	source = replace_words(source, symb, ".c_assign=", pos)
+            end
+    	end
+    	return source
+    end
+
+	# 2. (готово )замена всех цифр(целые, дробные, отриц.)
+    def self.replace_all_numeric(source)
+    	lexs = Ripper.lex(source)
+    	lexs.reverse_each do |lex|
+            pos, ident, symb = lex
+            if (ident.in? [:on_int, :on_float])
+            	bug_plus = (symb[0]=="+" ? "+" : "")
+            	# Note: space before "UserVariable" is neсessary
+            	source = replace_words(source, symb, "#{bug_plus} RubimCode::UserVariable.new(#{symb})", pos)
+            end
+    	end
+    	return source
+    end
+
+    def self.replace_modify_express(source, kw_str = "if")
+		kw_sym = "#{kw_str}_mod".to_sym
+
+        parse_array = Ripper.sexp(source)
+        mod_expresses = find_rec(parse_array, kw_sym)
+        
+        mod_expresses.reverse_each do |record|
+            kw_pos = find_keyword_pos(source, record, kw_str) # 1. find modify 'if/unless' keywords
+            cond_pos = find_express_end(source, record[1]) # 2. find end of 'if/unless' condition
+
+            case kw_str
+				when "if"
+					source = paste_before_pos(source, "; RubimCode.rubim_end;", cond_pos) # 3. paste "rubim_end" at the end of condition
+					source = replace_words(source, kw_str, ";RubimCode.rubim_tmpif RubimCode.rubim_ifmod", kw_pos) # 4. replace "if/unless" keywords to "rubim_ifmod/__rubim_unlessmod"
+				when "unless"
+					source = paste_before_pos(source, "; RubimCode.rubim_end;", cond_pos) # 3. paste "rubim_end" at the end of condition
+					source = replace_words(source, kw_str, ";RubimCode.rubim_tmpif RubimCode.rubim_unlessmod", kw_pos) # 4. replace "if/unless" keywords to "rubim_ifmod/__rubim_unlessmod"
+				when "while"
+					source = replace_words(source, kw_str, ";RubimCode.rubim_tmpif RubimCode.rubim_begin; RubimCode.rubim_whilemod", kw_pos) # 4. replace "while/until" keywords
+				when "until"
+					source = replace_words(source, kw_str, ";RubimCode.rubim_tmpif RubimCode.rubim_begin; RubimCode.rubim_untilmod", kw_pos) # 4. replace "while/until" keywords
+	        end
+        end
+        return source
+    end
+
+    def self.replace_flat_express(source, kw_str = "if")
+    	source = replace_keywords(source, "then", ";")
+		kw_sym = "#{kw_str}".to_sym
+
+        parse_array = Ripper.sexp(source)
+        flat_expresses = find_rec(parse_array, kw_sym)
+        
+        flat_expresses.reverse_each do |record|
+            kw_pos = find_keyword_pos(source, record, kw_str) # 1. find modify 'if/unless' keywords
+            cond_pos = find_express_end(source, record[1]) # 2. find end of 'if/unless' condition
+
+			lineno, charno = cond_pos
+			if (source.lines[lineno-1][charno..charno+1] != "do")
+				source = paste_before_pos(source, " do", cond_pos) # 4. paste "str" at the end of condition
+	        end
+			source = replace_words(source, kw_str, "RubimCode.rubim_#{kw_str}", kw_pos) 
+        end
+
+        return source
+    end
+
+    def self.replace_loop(source)
+		lexs = Ripper.lex(source)
+		lexs.reverse_each do |lex|
+			kw_pos, ident, symb = lex
+			if (ident == :on_ident and symb == "loop")
+				source = replace_words(source, symb, "RubimCode.rubim_loop", kw_pos)
+		    end
+		end
+		return source
+    end
+
+    def self.replace_then_else_elsif_kw(source)
+    	source = replace_keywords(source, "then", ";")
+    	source = replace_keywords(source, "else", "RubimCode.rubim_else")
+    	source = replace_keywords(source, "elsif", "RubimCode.rubim_elsif")
+    	return source
+    end
+
+    def self.replace_rubim_tmpif(source)
+    	source.gsub(/;RubimCode.rubim_tmpif/, 'if')
+    end
+
+    def self.replace_boolean_kw(source)
+    	source = replace_keywords(source, "true", "UserVariable.new(true)")
+    	source = replace_keywords(source, "false", "UserVariable.new(false)")
+    	return source
+    end
+
+    def self.add_binding_to_init(source) # for initialize variables with methods 'integer', 'float', e.t.
+		sexp = Ripper.sexp(source)
+		command_array = find_rec(sexp, :command)
+		command_array.reverse_each do |elem|
+			varies_name = []
+			symb, helper_name, helper_pos = elem[1]
+			if helper_name.in? ["integer", "float", "string"] # if one of helper methods
+				args_add_block = find_rec(elem, :args_add_block)[0][1]
+				args_add_block.each do |arg|
+					if arg[0] == :symbol_literal
+						tmp_res = []
+						tmp_res << find_rec(arg, :@ident)[0]
+						tmp_res << find_rec(arg, :@ivar)[0]
+						tmp_res << find_rec(arg, :@gvar)[0]
+						varies_name << tmp_res.compact.map {|el| el[1]}
+					elsif arg[0] == :bare_assoc_hash
+						bare_array = find_rec(arg, :@label)
+						bare_array.each do |bare|
+							varies_name << bare[1][0..-2]
+						end
+						break
+					else
+						raise ArgumentError.new("Wrong arguments for helper '#{helper_name}'") 
+					end
+				end
+				var_str = varies_name.join(', ') # list of vars, defined in helper method
+				source = paste_before_pos(source, "#{var_str} = ", helper_pos) # paste vars before helper method
+			end
+		end
+		return source
+    end
+
+	#########################
+    # === PRIVATE SECTION ===
+    #########################
+    private
+	    # Поиск вложенного массива (sexp) с ключевым символом find_sym (рекурсивный вызов)
+	    def self.find_rec(array, find_sym)
+	        return [] unless array.is_a? Array
+	        result = []
+	        array.each do |elem| 
+	            result << array if elem == find_sym
+	            result += find_rec(elem, find_sym)
+	        end
+	        return result
+	    end
+
+	    # Замена слов
+	    def self.replace_words(source, dstr, rstr, pos) # источник, исходное слово, конечное слово, начальная позиция
+	        output = ""
+	        lineno, charno = pos
+	        source.lines.each_with_index do |line, index| 
+	            if index == lineno-1
+	                line[charno .. charno+dstr.length-1] = rstr
+	            end
+	            output += line
+	        end
+	        return output
+	    end
+
+	    # Вставка слова до указанной позиции
+	    def self.paste_before_pos(source, rstr, pos)
+	        output = ""
+	        lineno, charno = pos
+	        source.lines.each_with_index do |line, index| 
+	            if index == lineno-1
+	                line.insert(charno, rstr)
+	            end
+	            output += line
+	        end
+	        return output
+	    end
+
+		# Замена ключевых слов
+	    def self.replace_keywords(source, kw, repl_kw)
+	    	lexs = Ripper.lex(source)
+	    	lexs.reverse_each do |lex|
+	            kw_pos, ident, symb = lex
+	            if (ident == :on_kw and symb == kw)
+	            	source = replace_words(source, symb, repl_kw, kw_pos)
+	            end
+	    	end
+	    	return source
+	    end
+
+	    # Поиск позиции наиболее близкого идентификатора справа
+	    def self.find_near_pos(array)
+	        array.each do |el|
+	            if el.is_a? Array # если найден идентификатор, указывающий на позицию 
+	                if (el[0].is_a? Symbol and el.size==3 and /\A@/===el[0].to_s)
+	                    return el[2]
+	                else
+	                    res = find_near_pos(el)
+	                    return res unless res.nil?
+	                end
+	            end
+	        end
+	        raise "can not find near position in array #{array}"
+	    end
+
+	    # Поиск позиции наиболее дальнего идентификатора справа
+	    def self.find_far_pos(array)
+	        array.reverse_each do |el|
+	            if el.is_a? Array # если найден идентификатор, указывающий на позицию
+	                if (el[0].is_a? Symbol and el.size==3 and /\A@/===el[0].to_s)
+	                    return el[2]
+	                else
+	                    res = find_far_pos(el)
+	                    return res unless res.nil?
+	                end
+	            end
+	        end
+	        raise "can not find far position in array #{array}"
+	    end
+
+	    # Поиск ключевого слова "kw_str" начиная с позиции near_pos и левее
+	    def self.find_keyword_pos(source, array, kw_str)
+	    	near_pos = find_near_pos(array)
+	        lineno, charno = near_pos
+	        curline = source.lines[lineno-1]
+	        charno.downto(0) do |index|
+	            return [lineno, index-1] if /#{kw_str} / === curline[index-1..-1]
+	        end
+	    	raise "can not find keyword '#{kw_str}' if array #{array}"
+	    end
+
+	    # Поиск окончания выражения
+	    def self.find_express_end(source, express_array)
+	    	start_pos = find_far_pos(express_array)
+	        lineno, charno = start_pos
+	    	lexs = Ripper.lex(source)
+	    	lexs.each do |lex|
+	            lex_pos, ident, symb = lex
+	    		if ((lex_pos <=> start_pos) >= 0) then
+		    		if ((ident==:on_nl && symb=="\n") or
+		    			(ident==:on_semicolon && symb==";") or
+		    			(ident==:on_kw && symb=="do") or
+		    			(ident==:on_kw && symb=="end")) then
+			    			return lex_pos
+		    		end
+	    		end
+	    	end
+	    	lcount = source.lines.count
+	    	return [lcount, source.lines[lcount-1].length]
+	    end
+
+end # class RubimRipper
+
+class PreProcessor
+	@@program = ""
+
+	def self.program; @@program; end
+	def self.program=(str); @@program = str; end
+
+	def self.execute(str)
+		@@program = str
+		@@program = RubimRipper.replace_assing_operators(@@program)
+		@@program = RubimRipper.replace_all_numeric(@@program)
+
+		# Последовательность очень важна - не нарушать!
+		@@program = RubimRipper.replace_then_else_elsif_kw(@@program)
+
+		@@program = RubimRipper.replace_modify_express(@@program, "if")
+		@@program = RubimRipper.replace_modify_express(@@program, "unless")
+		@@program = RubimRipper.replace_modify_express(@@program, "while")
+		@@program = RubimRipper.replace_modify_express(@@program, "until")
+
+		@@program = RubimRipper.replace_flat_express(@@program, "if")
+		@@program = RubimRipper.replace_flat_express(@@program, "unless")
+		@@program = RubimRipper.replace_flat_express(@@program, "while")
+		@@program = RubimRipper.replace_flat_express(@@program, "until")
+
+		@@program = RubimRipper.replace_loop(@@program)
+		@@program = RubimRipper.replace_rubim_tmpif(@@program)
+
+		@@program = RubimRipper.add_binding_to_init(@@program)
+
+		# @@program = RubimRipper.replace_boolean_kw(@@program)
+
+
+		# See 
+		#  p defined?(x = 1) # => "assignment"
+		#  p defined?(x[5] = 1) # => "method"
+		#  p defined?(x[5] += 1) # => "method"
+
+		# --- OLD VERSION, BASED ON REGEXP ---
+		# убрать пробелы между всеми односимвольными операторами (кроме оператора ":")
+		# operators = "\\+\\-\\*\\/\\^\\!\\=\\~\\?\\:\\%\\|\\&"
+		# @@program.gsub!(/\ *?([#{operators}&&[^\:]])\ ?/, '\1')
+
+		# замена оператора "=" на ".c_assign=" (только перед переменными)
+		# ch = "a-zA-Z"
+		# @@program.gsub!(/(^|[^#{ch}\.])([#{ch}\d]+)=([^\=\~])/, '\1\2.c_assign=\3')
+
+		# замена всех цифр(Fixnum), после которых идут операторы, на UserVariable.new()
+		# @@program.gsub!(/(^|[^\w])([-+]?\d*\.?\d+)([#{operators}&&[^\=]])/, '\1UserVariable.new(\2)\3')
+		# замена всех цифр(Fixnum), после которых идет указание метода, на UserVariable.new()
+		# @@program.gsub!(/(^|[^\w])(\d+)(\.[\w&&[^\d]])/, '\1UserVariable.new(\2)\3')
+	end 
+
+
+	# write preprocessing program in file
+	def self.write_in_file(input_file, dirname, basename, outfile)
+		# basename = File.basename(input_file)
+		# dirname = File.dirname(input_file)
+		# outfile = "#{dirname}/release"
+
+		# # clear directory "release"
+		# Dir.mkdir(outfile) unless Dir.exists?(outfile)
+		# Dir.foreach(outfile) do |file| 
+		# 	File.delete("#{outfile}/#{file}") if (file!='.' && file!='..')
+		# end
+		
+		PreProcessor.execute( File.read(input_file) )
+		File.write("#{outfile}", PreProcessor.program)
+
+		print "done\n"
+	end
+
+end