naksh 0.2.0

data/lib/naksh/interfaces/gtk/io.rb

@@ -0,0 +1,94 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+
+# This file is part of Naksh.
+#
+# Naksh is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Naksh is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Naksh.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'gtk2'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+
+
+      # duplicate of the current input, modifications are ignored
+      # if the user pressed `return' right now, this is what would be
+      # sent to syntax.execute
+      def Rbgtk.in
+        @console.buffer.get_slice(@console.buffer.get_iter_at_mark(@console.buffer.get_mark('current_input_start')),@console.buffer.end_iter,true)
+      end
+
+
+      def Rbgtk.in= str
+        @console.buffer.delete @console.buffer.get_iter_at_mark(@console.buffer.get_mark('current_input_start')),@console.buffer.end_iter
+        @console.buffer.insert @console.buffer.end_iter,str.to_str
+      end
+
+
+
+
+      class GtkRuBuffer
+
+
+        def initialize gtk_text_buffer
+          @buffer=gtk_text_buffer
+        end
+
+
+
+        attr_accessor :buffer
+
+
+        def print *a
+          a.each do |str|
+            buffer.insert buffer.end_iter,str
+          end
+          true
+        end
+
+
+        def pp *a
+          a.each do |arg|
+            if arg.kind_of? Array
+              arg.each do |el|
+                buffer.insert(buffer.end_iter,(el[-1]=="\n" or el[-1].chr=="\n")? el : el+"\n")
+              end
+            elsif arg.kind_of? String
+              buffer.insert buffer.end_iter,arg
+            elsif arg.kind_of? Symbol
+              buffer.insert buffer.end_iter,":#{arg.to_s}:"
+            end
+          end
+        end
+
+      end
+
+
+      @out=GtkRuBuffer.new @console.buffer
+      @err=GtkRuBuffer.new @console.buffer
+
+
+      def Rbgtk.out
+        @out
+      end
+
+      def Rbgtk.err
+        @err
+      end
+
+    end
+  end
+end

data/lib/naksh/interfaces/gtk/mainwin.rb

@@ -0,0 +1,56 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+
+# This file is part of Naksh.
+#
+# Naksh is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Naksh is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Naksh.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'gtk2'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+      @mainwin=Gtk::Window.new 'Naksh Terminal Emulator'
+
+      @vb=Gtk::VBox.new
+        require 'naksh/interfaces/gtk/mainwin/main_menu.rb'
+        @tabs=Gtk::Notebook.new
+          require 'naksh/interfaces/gtk/mainwin/console.rb'
+        @vb<<@tabs
+
+        statusbar=Gtk::Statusbar.new
+        @vb.pack_start statusbar,false,true,0
+      @mainwin.add @vb
+
+      @mainwin.signal_connect 'destroy' do
+        Rbgtk.quit
+        false
+      end
+
+      @mainwin.set_size_request(640,420)
+
+      @mainwin.show_all
+
+
+
+      #the principal Terminal Emulator window
+      def Rbgtk.main
+        @mainwin
+      end
+
+
+    end
+  end
+end

data/lib/naksh/interfaces/gtk/mainwin/console.rb

@@ -0,0 +1,121 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+
+# This file is part of Naksh.
+#
+# Naksh is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Naksh is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Naksh.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'gtk2'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+
+        @console=Gtk::TextView.new
+          @console.cursor_visible= (Naksh.config['/interface/tty/cursor']!='hidden')
+          @console.accepts_tab=    (Naksh.config['/interface/tty/keys/tab']=='character')? true : false
+#          @console.add_events(Gdk::Event::KEY_PRESS)
+          @console.signal_connect("key-press-event") do |w, e|
+            result=false
+            case e.keyval
+              when 65288
+                result= Rbgtk.back
+              when 65361
+                result= Rbgtk.back
+              when 65289
+                result=Rbgtk.potential_autocomplete_key('/interface/tty/keys/tab')
+              when 65056
+                result=Rbgtk.potential_autocomplete_key('/interface/tty/keys/alt_tab')
+              when 65293
+                result=Naksh.attempt_submit('/interface/tty/keys/return')
+              when 65362#up
+                Naksh.refresh_history
+                Rbgtk.in=Naksh.current_session.history.back!
+                result=true
+              when 65364#down
+                Naksh.refresh_history
+                Rbgtk.in=Naksh.current_session.history.forward!
+                result=true
+              when 65365#page_up
+                Naksh.refresh_history
+                Rbgtk.in=Naksh.current_session.history.first!
+                result=true
+              when 65366#page_down
+                Naksh.refresh_history
+                Rbgtk.in=Naksh.current_session.history.last!
+              when 65360#home
+                @console.buffer.place_cursor(@console.buffer.get_iter_at_mark(@console.buffer.get_mark('current_input_start')))
+                result=true
+              when 65367#end
+                @console.buffer.place_cursor(@console.buffer.end_iter)
+                #@console.buffer.move_mark(@console.buffer.get_mark('insert'),@console.buffer.end_iter)
+                result=true
+              when 65307#esc
+                Naksh.interface.in=''
+            end
+            #$stdout.puts "#{e.keyval}, Gdk::Keyval::GDK_#{Gdk::Keyval.to_name(e.keyval)}, result=#{result.to_s}" if e.keyval>200 and e.keyval
+            result
+          end
+
+
+
+          case Naksh.config['/interface/tty/wrap']
+            when 'none'
+              @console.wrap_mode=Gtk::TextTag::WRAP_NONE
+            when 'word'
+              @console.wrap_mode=Gtk::TextTag::WRAP_WORD
+            when 'char'
+              @console.wrap_mode=Gtk::TextTag::WRAP_CHAR
+            else
+              $stderr.puts _("Naksh.config['/interface/tty/wrap'] has unrecognized value: #{Naksh.config['/interface/tty/wrap'].inspect}")
+          end
+
+
+          context_menu=Gtk::Menu.new
+            context_menu.append(Gtk::MenuItem.new("Test1"))
+            context_menu.append(Gtk::MenuItem.new("Test2"))
+            context_menu.show_all
+            @mainwin.add_events(Gdk::Event::BUTTON_PRESS_MASK)
+          @console.signal_connect("button_press_event") do |w,event|
+            result=false
+            case event.button
+              when 1
+                iter=@console.get_iter_at_location(event.x,event.y)
+                if iter.offset>=@console.buffer.get_iter_at_mark(@console.buffer.get_mark('current_input_start')).offset
+                  result=false
+                else
+                  result=true
+                end
+              when 2
+                $stderr.puts _('I don\'t know what the middle button should do. If anyone has a middle button, and is therefore familiar with its functionality, please help.')
+                #yeah, I disable what I don't understand
+                result=true
+              when 3
+                context_menu.popup nil,nil,event.button,event.time
+                result=true
+              else
+                $stderr.puts _('You seem to have clicked a button I\'ve never heard of, for reference, its number is %d')%[event.button]
+            end
+            result
+          end
+          main_style=@console.buffer.create_tag 'main terminal style',:family=>'monospace',:background=>'#000000',:foreground=>'#FFFFFF'
+          @console.buffer.apply_tag main_style,@console.buffer.start_iter,@console.buffer.end_iter#bounds
+          scroller=Gtk::ScrolledWindow.new
+          scroller<<@console
+        @tabs<<scroller
+
+    end
+  end
+end

data/lib/naksh/interfaces/gtk/mainwin/main_menu.rb

@@ -0,0 +1,143 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+
+# This file is part of Naksh.
+#
+# Naksh is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Naksh is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Naksh.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'gtk2'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+
+        menubar=Gtk::MenuBar.new
+          file_menu=Gtk::MenuItem.new('_File')
+            file_sm=Gtk::Menu.new
+              new_session=Gtk::ImageMenuItem.new(_('_New Session'),true)
+                new_session.image=Gtk::IconFactory.new.lookup('new')
+                new_session.signal_connect 'activate' do
+                  Rbgtk.new_tab(Naksh::Session.new)
+                  false
+                end
+              file_sm<<new_session
+
+              fork_session=Gtk::ImageMenuItem.new(_('_Fork Session'),true)
+                fork_session.signal_connect 'activate' do
+                  Rbgtk.new_tab Naksh.current_session.fork
+                end
+              file_sm<<fork_session
+              file_sm<<Gtk::ImageMenuItem.new(Gtk::Stock::SAVE_AS)
+              quit_option=Gtk::ImageMenuItem.new(_('_Quit'),true)
+                quit_option.signal_connect 'activate' do
+                  Rbgtk.quit
+                end
+              file_sm<<quit_option
+              file_sm.show_all
+            file_menu.submenu=file_sm
+          menubar<<file_menu
+          edit_menu=Gtk::MenuItem.new(_('_Edit'),true)
+            edit_sm=Gtk::Menu.new
+              cut_option=Gtk::ImageMenuItem.new(_('Cu_t'),true)
+                cut_option.signal_connect 'activate' do
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+              edit_sm<<cut_option
+              copy_option=Gtk::ImageMenuItem.new(_('_Copy'),true)
+                copy_option.signal_connect 'activate' do
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+              edit_sm<<copy_option
+              paste_option=Gtk::ImageMenuItem.new(_('_Paste'),true)
+                paste_option.signal_connect 'activate' do
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+              edit_sm<<paste_option
+              del_option=Gtk::ImageMenuItem.new(_('_Delete'),true)
+                del_option.signal_connect 'activate' do
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+              edit_sm<<del_option
+              sel_all_option=Gtk::ImageMenuItem.new(_('Select _All'),true)
+                sel_all_option.signal_connect 'activate' do
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+              edit_sm<<sel_all_option
+              edit_sm<<Gtk::SeparatorMenuItem.new
+              pref_option=Gtk::ImageMenuItem.new(_('_Preferences'),true)
+                pref_option.signal_connect 'activate' do
+                  Rbgtk.options.show
+                  false
+                end
+              edit_sm<<pref_option
+            edit_menu.submenu=edit_sm
+          menubar<<edit_menu
+          view_menu=Gtk::MenuItem.new(_('_View'),true)
+            view_sm=Gtk::Menu.new
+              stat_bar_opt=Gtk::ImageMenuItem.new(_('Status Bar'),true)
+                stat_bar_opt.signal_connect 'activate' do
+                  Naksh.config['/interface/gui/statusbar']=(not Naksh.config['/interface/gui/statusbar'])
+                end
+              view_sm<<stat_bar_opt
+              view_sm<<Gtk::SeparatorMenuItem.new
+              tab_bar_opt_menu=Gtk::MenuItem.new(_('Tab Bar'),true)
+                tab_bar_opt_sm=Gtk::Menu.new
+                  m29544=Gtk::MenuItem.new(_('Always Show'),true)
+                    m29544.signal_connect 'activate' do
+                      Naksh.config['/interface/gui/tabbar']='always'
+                    end
+                  tab_bar_opt_sm<<m29544
+                  m26729=Gtk::MenuItem.new(_('Always Hide'),true)
+                    m26729.signal_connect 'activate' do
+                    Naksh.config['/interface/gui/tabbar']='never'
+                  end
+                  tab_bar_opt_sm<<m26729
+                  m29549=Gtk::MenuItem.new(_('Sometimes Show'),true)
+                    m29549.signal_connect 'activate' do
+                    Naksh.config['/interface/gui/tabbar']='sometimes'
+                  end
+                  tab_bar_opt_sm<<m29549
+                tab_bar_opt_menu.submenu=tab_bar_opt_sm
+              view_sm<<tab_bar_opt_menu
+            view_menu.submenu=view_sm
+          menubar<<view_menu
+          search_menu=Gtk::MenuItem.new(_('_Search'),true)
+            search_sm=Gtk::Menu.new
+              m26217=Gtk::ImageMenuItem.new(_('_Find'),true)
+              search_sm<<m26217
+              m27753=Gtk::ImageMenuItem.new(_('Go To _Line'),true)
+              search_sm<<m27753
+            search_menu.submenu=search_sm
+          menubar<<search_menu
+          help_menu=Gtk::MenuItem.new(_('_Help'),true)
+            help_sm=Gtk::Menu.new
+              m26725=Gtk::ImageMenuItem.new(_('_Contents'),true)
+                m26725.signal_connect 'activate' do
+                  Naksh.interface.help.show
+                end
+              help_sm<<m26725
+              m24930=Gtk::ImageMenuItem.new(_('_About'),true)
+                m24930.signal_connect 'activate' do
+                  Naksh.interface.about.show
+                end
+              help_sm<<m24930
+            help_menu.submenu=help_sm
+          menubar<<help_menu
+        @vb.pack_start menubar,false,true,0
+
+
+    end
+  end
+end

data/lib/naksh/interfaces/gtk/optwin.rb

@@ -0,0 +1,78 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+
+# This file is part of Naksh.
+#
+# Naksh is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Naksh is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Naksh.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'gtk2'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+
+      @optwin=Gtk::Window.new 'Naksh Options'
+      vp=Gtk::VBox.new
+        options_list=Gtk::VBox.new
+
+          prompt_section=Gtk::HPaned.new
+            prompt=Gtk::Entry.new
+            prompt.text=Naksh.config['/interface/tty/prompt']
+            prompt_label=Gtk::Label.new('_Prompt')
+            prompt_label.mnemonic_widget=prompt
+            prompt_section<<prompt_label
+            prompt_section<<prompt
+          options_list<<prompt_section
+
+        vp<<(Gtk::HBox.new<<options_list)
+
+
+        hbuttons=Gtk::HButtonBox.new
+
+          help_button= Gtk::Button.new(Gtk::Stock::HELP)
+          help_button.signal_connect 'clicked' do
+            $stderr.puts 'help button on preferences window is not yet implemented'
+          end
+          hbuttons<<help_button
+          apply_button= Gtk::Button.new(Gtk::Stock::APPLY)
+          apply_button.signal_connect 'clicked' do
+            Naksh.config['/interface/tty/prompt']=prompt.text
+          end
+          hbuttons<<apply_button
+          cancel_button=Gtk::Button.new(Gtk::Stock::CANCEL)
+          cancel_button.signal_connect 'clicked' do
+            @optwin.hide
+          end
+          hbuttons<<cancel_button
+          ok_button=Gtk::Button.new(Gtk::Stock::OK)
+          ok_button.signal_connect 'clicked' do
+            apply_button.clicked
+            @optwin.hide
+          end
+          hbuttons<<ok_button
+
+        vp<<hbuttons
+      @optwin<<vp
+      @optwin.show_all
+      @optwin.hide
+
+      def Rbgtk.options
+        @optwin
+      end
+
+
+    end
+  end
+end