naksh 0.2.0

data/lib/naksh/interfaces/tab.rb

@@ -0,0 +1,58 @@
+#!/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/>.
+
+module Naksh
+  module Interfaces
+    class Tab
+
+      @@tabs=Array.new
+
+      def Tab.tabs
+        @@tabs
+      end
+
+      def Tab.tabs= new_tab_set
+        @@tabs=new_tab_set
+      end
+
+
+      def initialize session=nil
+
+        @@tabs<<self
+
+        @number  = @@tabs.length
+        @session = session
+
+        self
+      end
+
+      attr_accessor :session
+      attr_reader   :number,
+                    :textbox
+      def textbox= new_textbox
+        @textbox = new_textbox
+
+        class<<new_textbox
+          TAB = self
+        end
+        self
+      end
+
+    end
+  end
+end

data/lib/naksh/interfaces/wxw.rb

@@ -0,0 +1,75 @@
+#!/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 'wx'
+
+# the IDs are not random, they're 2 letters of their messages in lowercase for no reason
+
+module Naksh
+  module Interfaces
+    module Wxw
+
+      require 'naksh/interfaces/wxw/io.rb'
+
+      class MainApp<Wx::App
+
+
+        def on_init
+          require 'naksh/interfaces/wxw/mainwin.rb'
+          require 'naksh/interfaces/wxw/helpwin.rb'
+          require 'naksh/interfaces/wxw/optwin.rb'
+          require 'naksh/interfaces/wxw/abtwin.rb'
+          Wxw.preloaded_sessions.each do |i|
+            Wxw.new_tab(i,true)
+          end
+          true
+        end
+      end
+      @app=MainApp.new
+
+
+      def Wx.new_prompt
+        @console.buffer.text<<"\n"<<Naksh.replace_vars(Naksh.config['/interface/tty/prompt'])
+
+      end
+
+
+      def Wxw.preloaded_sessions
+        r=@preloaded_sessions
+        @preloaded_sessions=nil
+        r
+      end
+
+      #run the Wx GUI with main window
+      def Wxw.run(*a)
+        @preloaded_sessions=a
+        @app.main_loop
+      end
+
+
+      def Wxw.quit return_value=nil
+        @mainwin.destroy
+        #MainApp.exit_main_loop
+        return_value
+      end
+
+
+    end
+  end
+end
+

data/lib/naksh/interfaces/wxw/abtwin.rb

@@ -0,0 +1,38 @@
+#!/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 'wx'
+require 'wx_sugar'
+
+module Naksh
+  module Interfaces
+    module Wxw
+
+
+      @abtwin=nil
+
+
+      def Wxw.about
+        @abtwin
+      end
+
+
+
+    end
+  end
+end

data/lib/naksh/interfaces/wxw/helpwin.rb

@@ -0,0 +1,40 @@
+#!/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 'wx'
+require 'wx_sugar'
+
+module Naksh
+  module Interfaces
+    module Wxw
+
+      def Wxw.setup_helpwin
+        @helpwin=nil
+        0
+      end
+
+
+      def Wxw.help
+        @helpwin
+      end
+
+
+
+    end
+  end
+end

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

@@ -0,0 +1,61 @@
+#!/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 'wx'
+
+module Naksh
+  module Interfaces
+    module Wxw
+
+      # 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 Wxw.in
+        @in
+      end
+
+      def Wxw.in= str
+
+
+      end
+
+
+      @out=Object.new
+      class<<@out
+        def print(*a)
+          $stderr.puts 'printing to output not yet implemented'
+
+
+
+        end
+      end
+      @err=@out
+      def Wxw.out
+        @out
+      end
+
+
+      def Wxw.err
+        @err
+      end
+
+
+
+    end
+  end
+end

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

@@ -0,0 +1,42 @@
+#!/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 'wx'
+
+module Naksh
+  module Interfaces
+    module Wxw
+
+      @mainwin=Wx::Frame.new(nil,:title=>_('Naksh Terminal Emulator'),:name=>'mainwin')
+        @mainwin.create_status_bar
+        require 'naksh/interfaces/wxw/mainwin/main_menu.rb'
+        @notebook=Wx::Notebook.new(@mainwin,28258,:name=>'main_notebook')
+        require 'naksh/interfaces/wxw/mainwin/sessions.rb'
+        @mainwin.centre
+      @mainwin.show
+
+
+
+      #the principal Terminal Emulator window
+      def Wxw.main
+        @mainwin
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,126 @@
+#!/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 'wx'
+
+module Naksh
+  module Interfaces
+    module Wxw
+            menus=Wx::MenuBar.new
+              file_menu=Wx::Menu.new
+                file_menu.append_item Wx::MenuItem.new(file_menu,28261,_('&New Session'),_('Open a new tab. This starts a new (separate) shell instance'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 28261 do |*a|
+                  Wxw.new_tab(Naksh::Session.new)
+                end
+                file_menu.append_item Wx::MenuItem.new(file_menu,26223,_('&Fork Session'),_('Open a new tab while keeping history and variables from the current tab'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 26223 do |*a|
+                  Wxw.new_tab(p(@notebook.get_current_page)::TAB.session.fork)
+                end
+                file_menu.append_item Wx::MenuItem.new(file_menu,25452,_('&Close Tab'),_('Close the current tab'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 25452 do |*a|
+                  @notebook.remove_page @notebook.get_current_page
+                end
+                file_menu.append_item Wx::MenuItem.new(file_menu,28528,_('&Open Session'),_('Restart the shell and load history and stored variables from a file'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 28528 do |*a|
+                  $stderr.puts 'session load is not yet implemented'
+                end
+                file_menu.append_item Wx::MenuItem.new(file_menu,29558,_('&Save Session As'),_('Store history and variables to a file'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 29558 do |*a|
+                  $stderr.puts 'session save is not yet implemented'
+                end
+                file_menu.append_item Wx::MenuItem.new(file_menu,Wx::ID_SEPARATOR,'','',Wx::ITEM_SEPARATOR,nil)
+                file_menu.append_item Wx::MenuItem.new(file_menu,29810,_('Close to &Tray'),_('Close the application window, leaving an icon in the system tray'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 29810 do |*a|
+                  $stderr.puts 'closing to tray is not yet implemented'
+                end
+                file_menu.append_item Wx::MenuItem.new(file_menu,29045,_('&Quit'),_('Close Naksh completely'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 29045 do |*a|
+                  Naksh.quit
+                end
+              menus.append file_menu,'&File'
+              edit_menu=Wx::Menu.new
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,25461,_('Cu&t'),_('Cut the selection'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 25461 do |*a|
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,25456,_('&Copy'),_('Copy the selection'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 25456 do |*a|
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,28769,_('&Paste'),_('Paste the clipboard'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 28769 do |*a|
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,25708,_('&Delete'),_('Delete the selected text'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 25708 do |*a|
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,29537,_('Select &All'),_('Select all text in the current tab'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 29537 do |*a|
+                  $stderr.puts 'text editing functions are not yet implemented'
+                end
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,Wx::ID_SEPARATOR,'','',Wx::ITEM_SEPARATOR,nil)
+                edit_menu.append_item Wx::MenuItem.new(edit_menu,28786,_('&Preferences'),_('Configure the application'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 28786 do |*a|
+                  Naksh.interface.options.show
+                end
+              menus.append edit_menu,'&Edit'
+              view_menu=Wx::Menu.new
+                view_menu.append_item Wx::MenuItem.new(view_menu,29556,_('Status Bar'),_('Show or hide the status bar in the current window'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 29556 do |*a|
+                  #Naksh.config['/interface/gui/statusbar']=????
+                  $stderr.puts 'GUI meddling not yet implemented'
+                end
+                view_menu.append_item Wx::MenuItem.new(view_menu,Wx::ID_SEPARATOR,'','',Wx::ITEM_SEPARATOR,nil)
+                tab_bar_opt_menu=Wx::Menu.new
+                  tab_bar_opt_menu.append_item Wx::MenuItem.new(tab_bar_opt_menu,29544,_('Always Show'),_('Always display the tab bar'),Wx::ITEM_NORMAL,nil)
+                  @mainwin.evt_menu 29544 do |*a|
+                    Naksh.config['/interface/gui/tabbar']='always'
+                    $stderr.puts 'GUI meddling not yet implemented'
+                  end
+                  tab_bar_opt_menu.append_item Wx::MenuItem.new(tab_bar_opt_menu,26729,_('Always Hide'),_('Never display the tab bar'),Wx::ITEM_NORMAL,nil)
+                  @mainwin.evt_menu 26729 do |*a|
+                    Naksh.config['/interface/gui/tabbar']='never'
+                    $stderr.puts 'GUI meddling not yet implemented'
+                  end
+                  tab_bar_opt_menu.append_item Wx::MenuItem.new(tab_bar_opt_menu,29549,_('Sometimes Show'),_('Display the tab bar only when multiple tabs are open'),Wx::ITEM_NORMAL,nil)
+                  @mainwin.evt_menu 29549 do |*a|
+                    Naksh.config['/interface/gui/tabbar']='sometimes'
+                    $stderr.puts 'GUI meddling not yet implemented'
+                  end
+                view_menu.append_item Wx::MenuItem.new(view_menu,29794,_('Tab Bar'),'',Wx::ITEM_NORMAL,tab_bar_opt_menu)
+              menus.append view_menu,'&View'
+              search_menu=Wx::Menu.new
+                search_menu.append_item Wx::MenuItem.new(search_menu,26217,_('&Find'),_('Search for text'),Wx::ITEM_NORMAL,nil)
+                search_menu.append_item Wx::MenuItem.new(search_menu,27753,_('Go To &Line'),_('Go to a specific line'),Wx::ITEM_NORMAL,nil)
+              menus.append search_menu,'&Search'
+              help_menu=Wx::Menu.new
+                help_menu.append_item Wx::MenuItem.new(help_menu,26725,_('&Contents'),_('Open the Naksh Manual'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 26725 do |*a|
+                  Naksh.interface.help.show
+                end
+                help_menu.append_item Wx::MenuItem.new(help_menu,24930,_('&About'),_('About this application'),Wx::ITEM_NORMAL,nil)
+                @mainwin.evt_menu 24930 do |*a|
+                  Naksh.interface.about.show
+                end
+              menus.append help_menu,'&Help'
+            @mainwin.set_menu_bar menus
+
+    end
+  end
+end