bets 0.0.13 → 0.0.14

data/lib/bets.rb

@@ -1,165 +1,1073 @@
 # encoding: utf-8
 
-require "rubygems"
 require "bets/version"
-require 'watir-webdriver'
+require 'gtk2'
+require 'stringio'
+require 'rules.rb'
 
-require 'betlinks'
-module Bets
-  class Parse
+module RulesDebuger
+  class BetsGUI
     def initialize
+      @dbg_buffers = {}
+      @edt_buffers = {}
+      @state = []
+
+      stdout_stream_recreate
+
+      @options = {}
+      @options[:curr_filename] = ''
+      @options[:curr_extension] = ''
+
+      # Загрузка сценария RAD
+      Gtk.init
+      builder = Gtk::Builder.new
+      builder.add_from_file(File.join(File.dirname(__FILE__), 'bets.glade'))
+      builder.connect_signals {|handler| method(handler) }
+      @imi_new      = builder.get_object('imi_new')
+      @imi_open     = builder.get_object('imi_open')
+      @imi_save     = builder.get_object('imi_save')
+      @imi_save_as  = builder.get_object('imi_save_as')
+      @mi_close     = builder.get_object('mi_close')
+      @imi_quit     = builder.get_object('imi_quit')
+
+      @mi_console   = builder.get_object('mi_console')
+      @mi_files     = builder.get_object('mi_files')
+
+      @mi_build     = builder.get_object('mi_build')
+      @mi_debug     = builder.get_object('mi_debug')
+      @mi_reset     = builder.get_object('mi_reset')
+      @mi_play      = builder.get_object('mi_play')
+      @mi_pause     = builder.get_object('mi_pause')
+      @mi_slow      = builder.get_object('mi_slow')
+      @mi_overstep  = builder.get_object('mi_overstep')
+      @mi_step      = builder.get_object('mi_step')
+      # toolbar
+      @tb_new       = builder.get_object('tb_new')
+      @tb_open      = builder.get_object('tb_open')
+      @tb_save      = builder.get_object('tb_save')
+      @bt_close     = builder.get_object('bt_close')
+
+      @tb_build     = builder.get_object('tb_build')
+      @tbt_debug    = builder.get_object('tbt_debug')
+      @tb_reset     = builder.get_object('tb_reset')
+      @tbt_play     = builder.get_object('tbt_play') 
+      @tbt_pause    = builder.get_object('tbt_pause')
+      @sb_delay     = builder.get_object('sb_delay')
+      @adj_delay    = builder.get_object('adj_delay')
+      @tbt_slow     = builder.get_object('tbt_slow')
+      @tb_step      = builder.get_object('tb_step')
+      @tb_overstep  = builder.get_object('tb_overstep')
+      # Область состояния переменных
+      @trv_variables = builder.get_object('trv_variables')
+      renderer = Gtk::CellRendererText.new
+      column = Gtk::TreeViewColumn.new("Переменная", renderer, :text => 0)
+      @trv_variables.append_column(column)
+      column = Gtk::TreeViewColumn.new("Значение", renderer, :text => 1)
+      @trv_variables.append_column(column)
+      @ls_variables = Gtk::ListStore.new(String, String)
+      @trv_variables.model = @ls_variables
+      # Область файлов
+      @scw_files = builder.get_object('scw_files')
+      @trv_files = builder.get_object('trv_files')
+
+      @trv_files.modify_base(Gtk::STATE_NORMAL,Gdk::Color.parse('#EEEEEE'))
+      # @trv_files.modify_text(Gtk::STATE_NORMAL,Gdk::Color.parse('#FFFFFF'))
+
+
+      renderer = Gtk::CellRendererText.new
+      column = Gtk::TreeViewColumn.new("Файл", renderer, :text => 0)
+      @trv_files.append_column(column)
+      column = Gtk::TreeViewColumn.new("filename", renderer, :text => 1)
+      column.visible = false
+      @trv_files.append_column(column)
+      @ts_files = Gtk::TreeStore.new(String, String)
+      @trv_files.model = @ts_files
+
+      @hp_files = builder.get_object('hp_files')
+
+      # Область программы
+      @txv_program = builder.get_object('txv_program')
+      @tb_program = builder.get_object('tb_program')
+      # @txv_program.modify_base(Gtk::STATE_NORMAL,Gdk::Color.parse('#000000'))
+      # @txv_program.modify_text(Gtk::STATE_NORMAL,Gdk::Color.parse('#FFFFFF'))
+      @txv_program.modify_font(Pango::FontDescription.new('Monospace 12'))
+      @lb_filename = builder.get_object('lb_filename')
+
+      @hp_vars = builder.get_object('hp_vars')
+      # Область состояния стека 
+      @txv_stack = builder.get_object('txv_stack')
+      @tb_stack = builder.get_object('tb_stack')
+      @txv_limit = builder.get_object('txv_limit')
+      @tb_limit = builder.get_object('tb_limit')
+      # Вывод консоли
+      @vb_stack = builder.get_object('vb_stack')
+      @txv_console = builder.get_object('txv_console')
+      @tb_console = builder.get_object('tb_console')
+      @vp_console = builder.get_object('vp_console')
+      @vb_footer = builder.get_object('vb_footer')
+      # Строка состояния
+      @pb_progress = builder.get_object('pb_progress')
+
+      # Окно
+      @wnd_main = builder.get_object('wnd_main')
+
+      cmd(:start)
+
+      begin
+        @options = File.open(File.join(File.dirname(__FILE__), "options.dat"), "rb") {|f| Marshal.load(f)} 
+      rescue Exception => e
+        puts e
+      end
+
+      files = @options[:files]
+      if files != nil and files.length > 0
+        files.each do |f|
+          edt_openfile(f, true)
+        end
+
+        edt_openfile(@options[:curr_filename])
+        refresh_files
+        cmd(:editor)
+      end
+
+      @wnd_main.move(@options[:pos_x], @options[:pos_y]) if !@options[:pos_x].nil? and !@options[:pos_y].nil?
+      @wnd_main.set_default_size(@options[:width], @options[:heigh]) if !@options[:width].nil? and !@options[:heigh].nil?
+      @wnd_main.maximize if @options[:maximized]
+      @wnd_main.show
+
+      # @wnd_catalog = builder.get_object('wnd_catalog')
+      # @wnd_catalog.show
+
+      # Сброс
+      # Gtk::main_iteration_do(blocking = false) while Gtk::events_pending?
+      # on_tb_reset_clicked(@tb_reset)
+      # Основной цикл
+
+      @hp_files.position    = @options[:hp_files]   unless @options[:hp_files].nil?
+      @hp_vars.position     = @hp_vars.max_position - @options[:hp_vars]    unless @options[:hp_vars].nil?
+      @vp_console.position  = @options[:vp_console] unless @options[:vp_console].nil?
+      Gtk.main
+    end
+
+    def on_wnd_main_delete_event(widget, event)
+      @options[:files] = []
+      auto = false
+      result = nil # Это корректирует глюк ruby интерпретатора
+      @edt_buffers.each do |k,v| 
+        @options[:files] << k 
+        if v.modified? 
+          result = dialog_saveall_yes_no_cancel("Файл #{k} не сохранен! Сохранить?") unless auto
+          case result
+            when Gtk::Dialog::RESPONSE_CANCEL
+              return true
+            when Gtk::Dialog::RESPONSE_YES
+              File.open(k, 'wb') { |f| f.write(v.text) }
+            when Gtk::Dialog::RESPONSE_APPLY
+              File.open(k, 'wb') { |f| f.write(v.text) }
+              auto = true
+          end
+        end
+      end
+
+      @options[:hp_files] = @hp_files.position
+      @options[:hp_vars]  = @hp_vars.max_position - @hp_vars.position
+      @options[:vp_console]   = @vp_console.position
+
+      begin
+        File.open(File.join(File.dirname(__FILE__), "options.dat"), "wb") {|f| Marshal.dump(@options, f)}
+      rescue Exception => e
+        puts e
+      end
+      return false
+    end
+
+
+    def gtk_main_quit
+      Gtk.main_quit()
+    end
+
+    def on_wnd_main_configure_event(widget, event)
+      mask = Gdk::EventWindowState::MAXIMIZED  
+      @options[:maximized] = @wnd_main.window.state & mask == mask
+      unless @options[:maximized]
+        @options[:width], @options[:heigh] = event.width, event.height
+        @options[:pos_x], @options[:pos_y] = event.x, event.y
+      end
+      false
+    end
+
+    def on_toolbutton_clicked(widget)
+      case widget.builder_name
+        when "tb_new"
+          @imi_new.activate 
+        when "tb_open"
+          @imi_open.activate 
+        when "tb_save"
+          @imi_save.activate 
+        when "tb_save_as"
+          @imi_save_as.activate 
+        when "bt_close"
+          @mi_close.activate 
+
+        when "tb_build"
+          @mi_build.activate
+        when "tbt_debug"
+          @mi_debug.activate  if widget.active? != @mi_debug.active?
+        when "tb_reset"
+          @mi_reset.activate
+        when "tbt_play"
+          @mi_play.active   = true if widget.active? != @mi_play.active?
+        when "tbt_pause"
+          @mi_pause.active  = true if widget.active? != @mi_pause.active?
+        when "tbt_slow"
+          @mi_slow.active   = true if widget.active? != @mi_slow.active?
+        when "tb_step"
+          @mi_step.activate
+        when "tb_overstep"
+          @mi_overstep.activate
+      end
     end
-  public
-    def parse
-   end
-  end
 
-  class Processor
-    private 
-      include Betlinks
-      def initialize
-        @names = {}
-        @browsers = {}
-        @lexems = {
-          'ПРОГРАММА' => [:name, :text, :end],
-        }
-        @lang_map = {
-          '[^\_]БРАУЗЕР' => 'ff_open',
-          'ЗАКРЫТЬ_БРАУЗЕР' => 'ff_close',
-          'НАЖАТЬ'          => 'ff_click ',
-          'ОТКРЫТЬ'         => 'ff_goto ',
-          'ЗНАЧЕНИЕ'        => 'ff_get',
-          'ЗАПОЛНИТЬ'       => 'ff_set ',
-          'ПОВТОРЯТЬ'       => 'loop do',
-          'ПРЕРВАТЬ'        => 'break',
-          '\ И\ '           => ' && ',
-          '\ ИЛИ\ '         => ' || ',
-          '\ НЕТ\ '         => ' not ',
-          'ЕСЛИ\ '          => 'if ',
-          ' ТО '            => ' then ',
-          '\ ИНАЧЕ\ '       => ' else ',
-          'КОНЕЦ'           => 'end;',
-          'ЗАДЕРЖКА'        => 'pause ',
-          'СЛ\_ЧИСЛО\('     => 'Random.new.rand(',
-          'Игра'            => '$game',
-          '%_прибыли'       => '$percent',
-          'Дата_игры'       => '$date',
-          'Время_игры'      => '$time',
-          'Б1[^_]'          => '$b1_name',
-          'Б1\_ставка'      => '$b1_type',
-          'Б1\_коэф'        => '$b1_coef',
-          'Б1\_вид\_спорта' => '$b1_kind',
-          'Б1\_ссылка'      => '$b1_link',
-          'Б2[^_]'          => '$b2_name',
-          'Б2\_ставка'      => '$b2_type',
-          'Б2\_коэф'        => '$b2_coef',
-          'Б2\_вид\_спорта' => '$b2_kind',
-          'Б2\_ссылка'      => '$b2_link',
-          'ПЕЧАТЬ '         => 'puts ',
-          'ВЫХОД'           => 'exit',
-          'ИСТИНА'          => 'true',
-          'ЛОЖЬ'            => 'false'
-        }
-        trap("SIGINT") { exit! }
-        instance_eval "betlinks_init"
-      end
-
-     
-      def translator
-        # Чтение исходного кода
-        text = File.open(ARGV[0], "r:UTF-8").read
-        # Удаление комментариев
-        text.gsub!(/\-\-.*\n/,'')
-        # Разделение на слова
-        input = text.split
-
-        p = 0
-        while p < input.length do 
-          context = @lexems[input[p]]
-          return if context.nil?
-          i = 0
-          name = ''
-          while i < context.length
-            case context[i]
-              when :name
-                name = input[p+=1]
-                @names[name] = ''
-                i+=1
-              when :text
-                if input[p+=1] =~ /КОНЕЦ_.*?/
-                  @lang_map.each { |k,v| @names[name].gsub!(Regexp.new(k),v) }
-                  i += 1
-                else
-                  @names[name] += ' ' + input[p]
-                end
-             when :end
-                p+=1
-                i+=1
-             else 
-               puts "error i=#{i} p=#{p}"
-               return
+    def on_menu_activate(widget)
+      case widget.builder_name
+        when "imi_new"
+          cmd(:new)
+        when "imi_open"
+          cmd(:load)
+        when "imi_save"
+          cmd(:save)
+        when "imi_save_as"
+          cmd(:save_as)
+        when "mi_close"
+          cmd(:close)
+        when "imi_quit"
+          cmd(:quit)
+
+        when "mi_console"
+          @vb_footer.visible = widget.active?
+        when "mi_files"
+          @scw_files.visible = widget.active?
+        when "mi_build"
+          cmd(:build)
+        when "mi_debug"
+          cmd(widget.active? ? :debug : :editor)
+        when "mi_reset"
+          cmd(:reset)
+        when "mi_play"
+          cmd(:play)  if widget.active?
+        when "mi_pause"
+          cmd(:pause) if widget.active?
+        when "mi_slow"
+          cmd(:slow)  if widget.active?
+        when "mi_step"
+          cmd(:step)
+        when "mi_overstep"
+          cmd(:overstep)
+      end
+    end
+
+    def cmd(command)
+      case command
+        when :start
+          @mode = :start
+          stdout_restore
+          @imi_new.sensitive      =
+          @tb_new.sensitive       =
+          @imi_open.sensitive     =
+          @tb_open.sensitive      = true
+
+          @mi_play.active         =
+          @tbt_play.active        =
+          @mi_pause.active        =
+          @tbt_pause.active       =
+          @mi_slow.active         =
+          @tbt_slow.active        =
+
+          @imi_save.sensitive     =
+          @tb_save.sensitive      =
+          @imi_save_as.sensitive  =
+          @mi_close.sensitive     =
+          @bt_close.sensitive     =
+          @mi_build.sensitive     =
+          @tb_build.sensitive     =
+          @mi_debug.sensitive     =
+          @tbt_debug.sensitive    =
+          @mi_reset.sensitive     =
+          @tb_reset.sensitive     =
+          @mi_play.sensitive      =
+          @tbt_play.sensitive     =
+          @mi_pause.sensitive     =
+          @tbt_pause.sensitive    =
+          @mi_slow.sensitive      =
+          @tbt_slow.sensitive     =
+          @mi_step.sensitive      =
+          @tb_step.sensitive      =
+          @mi_overstep.sensitive  =
+          @tb_overstep.sensitive  =
+          @sb_delay.sensitive     =
+          @txv_program.sensitive  = 
+          @txv_console.sensitive  =
+          @vb_stack.visible       = 
+          @scw_files.visible      = false
+
+          @lb_filename.text = ''
+          @txv_program.buffer = @tb_program
+          progress_reset
+        when :editor
+          @vm.halt unless @vm.nil?
+          edt_pop_state
+          @mode = :edit
+          stdout_restore
+          # вкл
+          @imi_new.sensitive      =
+          @tb_new.sensitive       =
+          @imi_open.sensitive     =
+          @tb_open.sensitive      =
+          @imi_save_as.sensitive  =
+          @mi_close.sensitive     =
+          @bt_close.sensitive     =
+          @mi_build.sensitive     =
+          @tb_build.sensitive     =
+          @mi_debug.sensitive     =
+          @tbt_debug.sensitive    =
+          @txv_program.sensitive  = 
+          @txv_console.sensitive  =
+          @scw_files.visible      = true
+          # выкл
+          @tbt_debug.active       =
+          @mi_play.active        =
+          @tbt_play.active       = 
+          @mi_pause.active        =
+          @tbt_pause.active       = 
+          @mi_slow.active        =
+          @tbt_slow.active       = 
+
+          @mi_reset.sensitive     =
+          @tb_reset.sensitive     = 
+          @mi_play.sensitive      =
+          @tbt_play.sensitive     = 
+          @mi_pause.sensitive     = 
+          @tbt_pause.sensitive    = 
+          @sb_delay.sensitive     =
+          @mi_slow.sensitive      = 
+          @tbt_slow.sensitive     =
+          @mi_step.sensitive      = 
+          @tb_step.sensitive      =
+          @mi_overstep.sensitive  = 
+          @tb_overstep.sensitive  = 
+          @trv_variables.visible  =
+          @vb_stack.visible       = false
+          
+          edt_openfile(@options[:curr_filename])
+
+          @tb_save.sensitive      = @txv_program.buffer.modified?
+          # Прервать текущую отладку
+          @debuger_mode = :default
+          @pause_flag = true
+          progress_reset
+        when :new
+          dialog = Gtk::FileChooserDialog.new("Save File", @wnd_main, 
+             Gtk::FileChooser::ACTION_SAVE,
+            nil, 
+            [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL], 
+            [Gtk::Stock::SAVE, Gtk::Dialog::RESPONSE_ACCEPT])
+          result = (dialog.run == Gtk::Dialog::RESPONSE_ACCEPT)
+          filename = dialog.filename
+          dialog.destroy
+          return unless result
+          return if File.exist?(filename) and 
+            !dialog_ok_cancel("Файл с таким именем уже существует! Перезаписать?")
+
+          edt_openfile(filename)
+          File.open(filename, 'wb') { |f| f.write(@txv_program.buffer.text) }
+
+          cmd(:editor)
+          cmd(:not_modified)
+          refresh_files
+        when :load
+          # Прочее
+          dialog = Gtk::FileChooserDialog.new("Open File", @wnd_main, 
+          Gtk::FileChooser::ACTION_OPEN,
+          nil, 
+          [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL], 
+          [Gtk::Stock::OPEN, Gtk::Dialog::RESPONSE_ACCEPT])
+          if dialog.run == Gtk::Dialog::RESPONSE_ACCEPT
+            edt_openfile(dialog.filename)
+            refresh_files
+            cmd(:editor)
+            cmd(:not_modified)
+          end
+          dialog.destroy
+        when :save
+          filename = @options[:curr_filename]
+          unless File.exist?(filename)
+            dialog = Gtk::FileChooserDialog.new("Save File", @wnd_main, 
+               Gtk::FileChooser::ACTION_SAVE,
+              nil, 
+              [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL], 
+              [Gtk::Stock::SAVE, Gtk::Dialog::RESPONSE_ACCEPT])
+            result = (dialog.run == Gtk::Dialog::RESPONSE_ACCEPT)
+            filename = dialog.filename
+            dialog.destroy
+            return unless result
+            buffer = @edt_buffers[@options[:curr_filename]] 
+            @edt_buffers.delete @options[:curr_filename]
+            @edt_buffers[filename] = buffer
+            edt_set_curr_filename(filename)
+          end
+          File.open(filename, 'wb') { |f| f.write(@txv_program.buffer.text) } unless filename.empty?
+          cmd(:not_modified)
+          refresh_files
+        when :save_as
+          dialog = Gtk::FileChooserDialog.new("Save File", @wnd_main, 
+             Gtk::FileChooser::ACTION_SAVE,
+            nil, 
+            [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL], 
+            [Gtk::Stock::SAVE, Gtk::Dialog::RESPONSE_ACCEPT])
+          result = (dialog.run == Gtk::Dialog::RESPONSE_ACCEPT)
+          filename = dialog.filename
+          dialog.destroy
+          return unless result
+          buffer = @edt_buffers[@options[:curr_filename]] 
+          @edt_buffers.delete @options[:curr_filename]
+          @edt_buffers[filename] = buffer
+          edt_set_curr_filename(filename)
+          File.open(filename, 'wb') { |f| f.write(@txv_program.buffer.text) } unless filename.empty?
+          cmd(:not_modified)
+          refresh_files
+        when :close
+          if @edt_buffers[@options[:curr_filename]].modified?
+            result = dialog_yes_no_cancel("Файл #{@options[:curr_filename]} не сохранен! Cохранить?")
+            case result
+              when Gtk::RESPONSE_YES
+                File.open(@options[:curr_filename], 'wb') { |f| f.write(@txv_program.buffer.text) }
+              when Gtk::RESPONSE_CANCEL
+                return
+            end
+          end
+
+          a = []
+          a = @edt_buffers.map { |f,b| f }
+          p = 0
+          a.each_index do |i|
+            p = i if a[i] == @options[:curr_filename]
+          end
+          if a[p+1].nil?
+            if a.length == 1
+              cmd(:start)
+            else
+              edt_openfile(a[p-1])
             end
+          else
+            edt_openfile(a[p+1])
+          end
+          @edt_buffers.delete(a[p])
+          refresh_files
+        when :build
+          return unless edt_save_changes
+          stdout_stream_recreate
+          stdout_redirect
+          errors = build(@options[:curr_filename])
+          error_select(errors)
+          error_puts(errors)
+        when :debug
+          @vm.halt  unless @vm.nil?
+          unless edt_save_changes
+            cmd(:editor)
+            return
           end
+          edt_push_state
+          @mode = :debug
+          stdout_stream_recreate
+          stdout_redirect
+
+          # вкл
+          @tbt_debug.active       = 
+          @tbt_pause.active       = 
+          @mi_pause.active        = 
+
+          @mi_reset.sensitive     =
+          @tb_reset.sensitive     =
+          @mi_play.sensitive      = 
+          @tbt_play.sensitive     =
+          @sb_delay.sensitive     =
+          @mi_step.sensitive      = 
+          @tb_step.sensitive      =
+          @mi_slow.sensitive      = 
+          @tbt_slow.sensitive     =
+          @mi_overstep.sensitive  = 
+          @tb_overstep.sensitive  =
+          @trv_variables.visible  =
+          @vb_stack.visible       = true
+
+          # выкл
+          @tbt_play.active       = 
+          @mi_play.active        = 
+          @tbt_slow.active       = 
+          @mi_slow.active        = 
+
+          @imi_new.sensitive      =
+          @tb_new.sensitive       =
+          @imi_open.sensitive     =
+          @tb_open.sensitive      =
+          @imi_save.sensitive     =
+          @tb_save.sensitive      =
+          @imi_save_as.sensitive  =
+          @mi_close.sensitive     =
+          @bt_close.sensitive     =
+          @mi_build.sensitive     =
+          @tb_build.sensitive     =
+          @mi_pause.sensitive     =
+          @tbt_pause.sensitive    =
+          @txv_program.sensitive  = 
+          @scw_files.visible      = false
+          debuger_reset
+          progress_reset
+        when :reset
+          cmd(:debug)
+        when :play
+          # вкл
+          @mi_play.active         =
+          @tbt_play.active        =
+
+          @mi_pause.sensitive     =
+          @tbt_pause.sensitive    =
+          @mi_slow.sensitive      = 
+          @tbt_slow.sensitive     = true
+          # выкл
+          @mi_pause.active        = 
+          @tbt_pause.active       =
+          @mi_slow.active         = 
+          @tbt_slow.active        =
+
+          @mi_play.sensitive      =
+          @tbt_play.sensitive     =
+          @mi_step.sensitive      = 
+          @tb_step.sensitive      =
+          @mi_overstep.sensitive  = 
+          @tb_overstep.sensitive  =
+          @mi_slow.active         =
+          @tbt_slow.active        = false
+          # Прочее
+          @delay = 0
+          @pause_flag = false
+          @debuger_mode = :start
+        when :slow
+          # вкл
+          @mi_slow.active        =
+          @tbt_slow.active       = 
+
+          @mi_pause.sensitive     =
+          @tbt_pause.sensitive    = 
+          @mi_play.sensitive      =
+          @tbt_play.sensitive     = true
+          # выкл
+          @mi_pause.active        =
+          @tbt_pause.active       = 
+          @mi_play.active         = 
+          @tbt_play.active        =
+
+          @mi_play.sensitive      =
+          @tbt_play.sensitive     =
+          @mi_slow.sensitive      =
+          @tbt_slow.sensitive     =
+          @mi_step.sensitive      = 
+          @tb_step.sensitive      =
+          @mi_overstep.sensitive  = 
+          @tb_overstep.sensitive  = false
+          # Прочее
+          @debuger_mode = :default
+          @delay = @adj_delay.value
+          @pause_flag = false
+        when :pause
+          # вкл
+          @tbt_pause.active       = 
+          @mi_pause.active        = 
+
+          @mi_play.sensitive      =
+          @tbt_play.sensitive     =
+          @mi_slow.sensitive      = 
+          @tbt_slow.sensitive     =
+          @mi_step.sensitive      =  
+          @tb_step.sensitive      =
+          @mi_overstep.sensitive  = 
+          @tb_overstep.sensitive  = true
+          # выкл
+          @mi_play.active         = 
+          @tbt_play.active        = 
+          @mi_slow.active         = 
+          @tbt_slow.active        = 
+          
+          @mi_pause.sensitive     =
+          @tbt_pause.sensitive    = false
+          # Прочее
+          @debuger_mode = :default
+          @pause_flag = true
+        when :step
+          @delay = 0
+          @debuger_mode = :step
+          @pause_flag = false
+        when :overstep
+          @delay = 0
+          @debuger_mode = :overstep
+          @pause_flag = false
+        when :stop
+          # вкл
+          @mi_pause.active        =  
+          @tbt_pause.active       = true  
+          # выкл
+          @mi_play.active         =  
+          @tbt_play.active        = 
+          @mi_slow.active         =  
+          @tbt_slow.active        = 
+
+          @mi_pause.sensitive     =
+          @tbt_pause.sensitive    =
+          @mi_slow.sensitive      = 
+          @tbt_slow.sensitive     =
+          @mi_play.sensitive      = 
+          @tbt_play.sensitive     =
+          @mi_step.sensitive      = 
+          @tb_step.sensitive      =
+          @mi_overstep.sensitive  = 
+          @tb_overstep.sensitive  = false
+          # Прочее
+          message_out("[Выполнение программы окончено]")
+          refresh_vars_state
+        when :modified
+          refresh_modified(true)
+          progress_reset
+        when :not_modified
+          @edt_buffers[@options[:curr_filename]].modified = false
+          refresh_modified
+        when :quit
+          gtk_main_quit
+      end
+    end
+
+    def build(filename)
+      begin
+        filename = File.expand_path(filename)
+        text = File.open(filename, "r:UTF-8").read
+      rescue Exception => e
+        puts e
+      end
+      progress_reset
+      lexical = Rules::Lexical.new
+      lexical.set_progress_callback(self, :progress_callback)
+      lexical.analyze(text, filename)
+      syntax = Rules::Syntax.new
+      syntax.set_progress_callback(self, :progress_callback)
+      syntax.analyze(lexical.result)
+      if lexical.errors.length + syntax.errors.length > 0
+        progress_reset
+        return lexical.errors + syntax.errors 
+      end
+      translator = Rules::Translator.new
+      translator.set_progress_callback(self, :progress_callback)
+      translator.translate(lexical.result, File.dirname(filename))
+      if translator.errors.length > 0
+        return translator.errors
+        progress_reset
+      end
+      @ids_map = translator.ids
+      @data_seg = translator.data_seg
+      @code_seg = translator.code_seg
+      @debug = translator.debug
+      @includes = translator.includes
+      return []
+    end
+
+    def debuger_reset
+      # Прервать текущую отладку
+      @debuger_mode = :default
+      @call_stack = []
+      @old_lex = nil
+      @old_lex_iter = nil
+      @dbg_buffers = {}
+      @delay = 0
+      @ip = nil
+      @pause_flag = true 
+
+      errors = build(@options[:curr_filename])
+      if errors.length > 0
+        error_puts errors
+        error_select errors
+        cmd(:editor)
+        return
+      end
+
+      @vm = Rules::VM.new(@data_seg, @code_seg, @debug)
+      @vm.set_debug_callback(self, :debug_callback)
+
+      $export = []
+      errors = []
+      begin
+        @includes.each do |f|
+          load Gem::find_files("#{f}_rules.rb").last
+          @vm.extend(self.class.const_get("#{f.capitalize}Rules")) 
         end
+      rescue Exception => e
+        errors << {message: "Ошибка модуля: #{e}"}
+        error_puts errors
+        cmd(:editor)
+        return
       end
-  
-      def ff_open(browser, name)
-        @browsers[browser] = Watir::Browser.new name
-        @browsers[browser].driver.manage.timeouts.implicit_wait = 3 
-        puts "Браузер #{name.to_s} c именем ':#{browser.to_s}' открыт"
-      end
-      def ff_close(browser)
-        @browsers[browser].close
-        @browsers.delete(browser)
-        puts "Браузер с именем ':#{browser.to_s}' закрыт"
-      end
-      def ff_goto(browser, str)
-        @browsers[browser].goto(str)
-      rescue Exception => error
-        puts "Ошибка открытия страницы #{str}: #{error}"
-      end
-      def ff_click(browser, str)
-        instance_eval "Watir::Wait.until(5, '') { @browsers[:#{browser}].#{str}.exists? }; @browsers[:#{browser}].#{str}.click"
-      rescue Exception => error
-        puts "Ошибка нажаимя #{str}: #{error}"
-      end
-      def ff_set(browser, str, value)
-        instance_eval "Watir::Wait.until(5, '') { @browsers[:#{browser}].#{str}.exists? }; @browsers[:#{browser}].#{str}.set('#{value}')"
-      rescue Exception => error
-        puts "Ошибка установки значения в поле #{str}: #{error}"
-      end
-      def ff_get(browser, str, name)
-        instance_eval "Watir::Wait.until(5, '') { @browsers[:#{browser}].#{str}.exists? }; @browsers[:#{browser}].#{str}.#{name}"
-      rescue Exception => error
-        puts "Ошибка считывания значения из поля #{str}: #{error}"
-      end
-
-      def pause(secs)
-        print "Задержка #{secs} секунд "
-        secs.times do |i|
-          sleep 1
-          print '.'
-        end 
-        print "\n"
-      end
-
-      def exec 
-        
-        @names.each do |k, v|
-#          begin 
-            instance_eval v
-            puts "Программа '#{k} выполнена!'"
-#          rescue Exception => error
-#            puts "Ошибка в программе #{k}: #{error}"
-#          end
+
+      refresh_vars_state
+      refresh_stack_state
+      @vm.run
+    end
+
+
+    def on_wnd_main_destroy
+      gtk_main_quit
+    end
+
+    def on_trv_files_cursor_changed(widget)
+      path, c = widget.cursor
+      iter = @ts_files.get_iter(path)
+      edt_openfile(iter[1])
+    end
+
+    def on_end_user_action(widget)
+      cmd(:modified) if @mode == :edit
+      begin
+        buffer_syntax_highlight widget, @options[:curr_filename]
+      rescue
+      end
+    end
+
+    def edt_buffer_new
+      buffer = Gtk::TextBuffer.new
+      buffer_connect_tags(buffer)
+      buffer.signal_connect("changed") { |widget| on_end_user_action(widget) }
+      return buffer
+    end
+
+    def edt_set_curr_filename(filename)
+      @options[:curr_filename] = filename
+      @options[:curr_extension] = filename.scan(/.*?\.([a-zA-z0-9]*)$/).flatten(1)[0]
+      refresh_modified
+    end
+
+    def edt_openfile(filename, bg = false)
+      filename = File.expand_path(filename)
+      buffer = @edt_buffers[filename]
+      if buffer.nil?
+        @edt_buffers[filename] = buffer = edt_buffer_new
+        if File.exist?(File.expand_path(filename)) 
+          buffer.text = File.open(File.expand_path(filename), "r:UTF-8").read
+        end
+        edt_set_curr_filename(filename) unless bg
+        buffer_syntax_highlight buffer, filename
+        buffer.modified = false
+      end
+      unless bg
+        edt_set_curr_filename(filename)
+        @txv_program.buffer = buffer
+        @imi_save.sensitive = 
+        @tb_save.sensitive  = buffer.modified?
+      end
+    end
+
+    def edt_save_changes
+      if @lb_filename.text =~ /.*?\*/ 
+        if dialog_ok_cancel("Сохранить изменения в файле '%s' ?" % @options[:curr_filename])
+          cmd(:save)
+          return true
+        else
+          return false
+        end
+      else
+        return true
+      end
+    end
+
+    def edt_push_state
+      state = {
+        :buffer   => @txv_program.buffer,
+        :filename => @options[:curr_filename]
+      }
+      @state.push state
+    end
+
+    def edt_pop_state
+      return unless @state.length > 0
+      state = @state.pop
+      @txv_program.buffer = state[:buffer]
+      @lb_filename.text   = state[:filename]
+    end
+
+    def refresh_modified(value = false)
+      modified = (value ? true : @edt_buffers[@options[:curr_filename]].modified?)
+      @imi_save.sensitive = 
+      @tb_save.sensitive  = modified
+      @lb_filename.text   = @options[:curr_filename] + ( modified ? '*' : '')
+    end
+
+    def refresh_files
+      @ts_files.clear
+      @edt_buffers.each do |key, value|
+        item = @ts_files.append(nil)
+        item[0] = File.basename(key)
+        item[1] = key
+        @trv_files.selection.select_iter(item) if key == @options[:curr_filename] 
+      end
+    end
+
+    def refresh_vars_state
+      @ls_variables.clear
+      @ids_map.each do |key, value|
+        next unless value[:type] == :var
+        item = @ls_variables.append
+        item[0] = key
+        item[1] = @vm.data[@ids_map[key][:addr]].to_s
+      end
+    end
+
+    def refresh_stack_state
+      @tb_stack.text = @vm.data_stack.reverse.to_s
+      @tb_limit.text = @vm.limit_stack.reverse.to_s
+    end
+
+    def refresh_console
+      @mi_console.active = true
+      @txv_console.buffer.text = @stdout_stream.string
+      @txv_console.scroll_to_iter(@txv_console.buffer.end_iter, 0.25, false, 0, 0)
+    end
+
+    def error_select(errors)
+      return unless errors.length > 0
+      puts errors
+      error = errors[0][:lexem]
+      edt_openfile(error[:filename])
+      refresh_files
+      buffer = @txv_program.buffer
+      b = buffer.get_iter_at_offset(error[:begin])
+      e = buffer.get_iter_at_offset(error[:begin]+error[:length])
+      buffer.apply_tag('error',b,e)
+      @txv_program.scroll_to_iter(b, 0.25, false, 0, 0)
+    end
+
+    def error_puts(errors)
+      # stdout_redirect
+      if errors.length > 0
+        errors.each do |e| 
+          puts "[ошибка]: '#{e[:message]}' в строке #{e[:lexem][:line]}"
+        end
+      else
+        puts '[ошибок нет]'
+      end
+      refresh_console
+      # stdout_restore
+    end
+
+    def message_out(message)
+      # stdout_redirect
+      puts message
+      refresh_console
+      # stdout_restore
+    end
+
+    def stdout_stream_recreate
+      @stdout_stream = StringIO.new
+      @stdout_store = $stdout
+    end
+
+    def stdout_redirect
+      $stdout = @stdout_stream
+    end
+    
+    def stdout_restore
+      $stdout = @stdout_store 
+    end
+
+    def buffer_connect_tags(buffer)
+      buffer.create_tag("blue", {"underline" => Pango::UNDERLINE_SINGLE})
+      buffer.create_tag("number", {"foreground" => "#000000"})
+      buffer.create_tag("label", {"foreground" => "#000000"})
+      buffer.create_tag("brace", {"foreground" => "#000000"})
+      buffer.create_tag("operation", {"foreground" => "#000000"})
+      buffer.create_tag("var", {"foreground" => "#000000"}) 
+      buffer.create_tag("operator", {"foreground" => "#000099"})
+      buffer.create_tag("string", {"foreground" => "#777777"})
+      buffer.create_tag("word", {"foreground" => "#d93503"})
+      buffer.create_tag("comment", {"foreground" => "#004400"})
+      buffer.create_tag("error", {"foreground" => "#990000", "underline" => Pango::UNDERLINE_SINGLE })
+    end
+
+    def buffer_syntax_highlight(buffer, filename)
+      case @options[:curr_extension]
+        when 'rules'
+          hl_lexical = Rules::Lexical.new
+          hl_lexical.analyze(buffer.text, filename)
+
+          buffer.remove_all_tags(buffer.start_iter, buffer.end_iter)
+
+          hl_lexical.result.each do |l|
+            next if l[:filename] != filename
+            b = buffer.get_iter_at_offset(l[:begin])
+            e = buffer.get_iter_at_offset(l[:begin]+l[:length])
+            case l[:lexem] 
+              when :label, :proc
+                buffer.apply_tag("label", b, e)  
+              when :number, :float, :unary_minus
+                buffer.apply_tag("number", b, e)  
+              when :l_brace, :r_brace
+                buffer.apply_tag("brace", b, e)  
+              when :plus, :minus, :mul, :div
+                buffer.apply_tag("operation", b, e)  
+              when :var,:wvar
+                buffer.apply_tag("var", b, e)  
+              when :if_yes, :if_no, :else, :semicolon, :ret, :include, :true, :false, :ruby, :limiter
+                buffer.apply_tag("operator", b, e)  
+              when :word
+                buffer.apply_tag("word", b, e)  
+              when :string
+                buffer.apply_tag("string", b, e)  
+              when :comment
+                buffer.apply_tag("comment", b, e)  
+            end
+          end
+      end
+    end
+
+    def dialog_ok_cancel(message)
+      dialog = Gtk::MessageDialog.new(@wnd_main, 
+        Gtk::Dialog::DESTROY_WITH_PARENT,
+        Gtk::MessageDialog::QUESTION,
+        Gtk::MessageDialog::BUTTONS_OK_CANCEL,
+        message)
+        result = (dialog.run == Gtk::Dialog::RESPONSE_OK)
+        dialog.destroy 
+        return result
+    end
+
+    def dialog_yes_no_cancel(message)
+      dialog = Gtk::MessageDialog.new(@wnd_main, 
+        Gtk::Dialog::DESTROY_WITH_PARENT,
+        Gtk::MessageDialog::QUESTION,
+        Gtk::MessageDialog::BUTTONS_NONE,
+        message)
+      dialog.add_buttons(
+        [Gtk::Stock::YES, Gtk::Dialog::RESPONSE_YES],
+        [Gtk::Stock::NO, Gtk::Dialog::RESPONSE_NO],
+        [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
+        result = dialog.run
+        dialog.destroy 
+        return result
+    end
+
+
+    def dialog_saveall_yes_no_cancel(message)
+      dialog = Gtk::MessageDialog.new(@wnd_main, 
+        Gtk::Dialog::DESTROY_WITH_PARENT,
+        Gtk::MessageDialog::QUESTION,
+        Gtk::MessageDialog::BUTTONS_NONE,
+        message)
+      dialog.add_buttons(
+        ["Сохранить все", Gtk::Dialog::RESPONSE_APPLY],
+        [Gtk::Stock::YES, Gtk::Dialog::RESPONSE_YES],
+        [Gtk::Stock::NO, Gtk::Dialog::RESPONSE_NO],
+        [Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
+        result = dialog.run
+        dialog.destroy 
+        return result
+    end
+
+    def progress_callback(perc)
+      if (perc % @a == 0) or (perc == 100)
+        @pb_progress.text = "#{perc}%"
+        @pb_progress.fraction = perc * 0.01
+        Gtk::main_iteration_do(blocking = false) while Gtk::events_pending?
+        @a = Random.rand(2...10)
+      end
+    end
+
+    def progress_reset
+      @pb_progress.text = " "
+      @pb_progress.fraction = 0
+      @a = 1 
+    end
+    # Функция обратного вызова для VM (вызываеться на каждый шаг программы)
+    def debug_callback(lex)
+      return if @debuger_mode == :start and lex[:lexem] != :stop
+      # Файл текущей лексемыg
+      filename = lex[:filename]
+      buffer = @dbg_buffers[filename]  
+      if buffer.nil?
+        # Создать новый буфер
+        @dbg_buffers[filename] = buffer = Gtk::TextBuffer.new 
+        buffer_connect_tags(buffer)
+        buffer.signal_connect("changed") { |widget| on_end_user_action(widget); }
+        buffer.text = File.open(lex[:filename], "r:UTF-8").read
+        buffer_syntax_highlight buffer, lex[:filename]
+        # Переключить отображение на созданный буффер
+        unless @debuger_mode == :overstep
+          @txv_program.buffer = buffer  
+          @lb_filename.text = filename
         end
-        
       end
-    public
-      def run
-        translator
-        exec
+      # Извлечь итераторы предыдущей лексемы и удалить на ней тег выделения 
+      @old_lex_iter[:buffer].remove_tag("blue", @old_lex_iter[:begin], @old_lex_iter[:end]) unless @old_lex_iter.nil?
+      # Выделить текущую лексему
+      b = buffer.get_iter_at_offset(lex[:begin])
+      e = buffer.get_iter_at_offset(lex[:begin]+lex[:length])
+      buffer.apply_tag("blue", b, e)
+      @txv_program.scroll_to_iter(b, 0.25, false, 0, 0)
+      # Сохранить буфер и итераторы текущей лексемы для последующей очистки от тегов
+      @old_lex_iter = {buffer: buffer, begin: b, end: e}
+
+      # Если предыдущая лексема переменная, обновить ее значение в таблице переменных
+      if !@old_lex.nil? and (@old_lex[:lexem] == :var or @old_lex[:lexem] == :wvar)
+        @ls_variables.each do |m,p,i|
+          value = (@old_lex[:lexem] == :wvar ? @old_lex[:value][1..-1] : @old_lex[:value])
+          if value == i.get_value(0)
+            i[1] = @vm.data[@ids_map[i.get_value(0)][:addr]].to_s
+          end
+        end
+        Gtk::main_iteration_do(blocking = false) while Gtk::events_pending?
       end
+      # Обновить содержимое окна состояния стека
+      refresh_stack_state
+
+      # Обработка режимов отладки 
+      case @debuger_mode
+        when :step
+          @debuger_mode = :default
+          @ip = nil
+          @pause_flag = true 
+        when :overstep
+          if !@ip.nil? and @vm.ip != @ip
+            @pause_flag = false
+          else
+            @pause_flag = true
+            @ip = nil
+          end
+          @ip = @vm.ip + 2 if lex[:lexem] == :var and @ids_map[lex[:value]][:type] == :proc
+      end
+      # Если отладчик не в автоматическом режиме, подключить буфер к виджету
+      if @pause_flag or @delay != 0
+        @txv_program.buffer = buffer  
+        @lb_filename.text = filename
+      end
+
+      # Если лексема :stop, перевести отладчи в конечное состояние
+      cmd(:stop) if lex[:lexem] == :stop
+      # Сохранить текущую лексему
+      @old_lex = lex
+
+      # Задержка автоматического обхода
+      if @delay > 0
+        sleep @delay
+        Gtk::main_iteration_do(blocking = false) while Gtk::events_pending?
+      end
+
+      refresh_console
+      # Ожидания действий пользователя
+      sleep 0.1 while @pause_flag;
+    end
   end
-  # Your code goes here...
-end
+
+end