naksh 0.2.0

data/lib/naksh/history.rb

@@ -0,0 +1,85 @@
+#!/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
+
+
+  # call this whenever your going to change the history position or
+  # modify Naksh.interface.in
+  def Naksh.refresh_history
+    csh=Naksh.current_session.history
+    puts "NOTICE:  refresh_history, position=(#{csh.position})"
+    if csh.position+1==csh.length and csh[csh.position]!=csh.last
+      csh<<Naksh.interface.in
+      csh.position=csh.length-1
+    end
+    puts "NOTICE:  refresh_history, position=(#{csh.position})"
+    true
+  end
+
+
+  #an a subclass of Array which represents a record of entered scripts
+  class History<Array
+
+    def initialize *a
+      super
+      a.empty? ? nil : @position=length-1
+      self
+    end
+
+
+    attr_accessor :position
+
+    def at!(index)
+      @position=index
+      self[@position]
+    end
+
+    def first!
+      @position=0
+      self[@position]
+    end
+
+    def last!
+      @position=length-1
+      self[@position]
+    end
+
+    def back
+      return self[@position-1] unless @position<1
+      nil
+    end
+
+    def back!
+      @position-=1 unless @position < 1
+      self[@position]
+    end
+
+    def forward
+      return self[@position+1] unless position+1==length
+      nil
+    end
+
+    def forward!
+      @position+=1 unless @position+1==length
+      self[@position]
+    end
+
+
+  end
+end

data/lib/naksh/interfaces.rb

@@ -0,0 +1,59 @@
+#!/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
+
+  # REQUIRED METHODS
+  #Naksh.interface.run
+  #Naksh.interface.main.show
+  #Naksh.interface.main.hide
+  #Naksh.interface.options.show
+  #Naksh.interface.options.hide
+  #Naksh.interface.help.show
+  #Naksh.interface.help.hide
+  #Naksh.interface.about.show
+  #Naksh.interface.about.hide
+  #Naksh.interface.new_prompt
+  #Naksh.interface.in
+  #Naksh.interface.in=
+  #Naksh.interface.out.print
+  #Naksh.interface.out.pretty_print
+  #Naksh.interface.err.print
+  #Naksh.interface.err.pretty_print
+  #Naksh.interface.quit
+
+  #anything that handles input and output
+  module Interfaces
+  end
+
+
+  @interface = nil
+
+
+  #set a new syntax ruleset
+  #currently no way to combine syntax rulesets except by method overwriting
+  def Naksh.interface=(new_interface)
+    @interface=new_interface
+  end
+
+
+  def Naksh.interface
+    @interface
+  end
+
+end

data/lib/naksh/interfaces/fox.rb

@@ -0,0 +1,49 @@
+#!/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 'fox16'
+
+module Naksh
+  module Interfaces
+    module Fx
+      @mainapp=Fox::FXApp.new
+      @mainwin=Fox::FXMainWindow.new @mainapp,'Naksh Terminal Emulator'
+      Fox::FXToolTip.new(@fxapp)
+      @mainapp.create
+      @mainwin.show
+      @optwin=Fox::FXWindow.new(@fxapp,'Naksh Options')
+      @optwin.hide
+      @abtwin=Fox::FXWindow.new(@fxapp,'About Naksh')
+      @abtwin.hide
+      #run the Fox GUI with main window
+      def Fx.run
+        @mainapp.run
+      end
+      #the principal Terminal Emulator window
+      def Fx.main_window
+        @mainwin
+      end
+      def Fx.option_window
+        @optwin
+      end
+      def Fx.about_window
+        @abtwin
+      end
+    end
+  end
+end

data/lib/naksh/interfaces/gtk.rb

@@ -0,0 +1,103 @@
+#!/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'
+require 'naksh/interfaces/gtk/gnomeapp.rb'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+
+
+      def Rbgtk.quit
+        Gtk.main_quit
+        true
+      end
+
+
+      # I don't really like this
+      def Rbgtk.on_pre_submit
+        @console.buffer.insert(@console.buffer.end_iter,"\n")
+      end
+
+
+      @tabbed = false
+
+      def Rbgtk.potential_autocomplete_key config_entry
+        case Naksh.config[config_entry]
+          when 'autocomplete'
+            if @tabbed
+              Naksh.interface.out.pp Naksh.suggestions(Naksh.interface.in)
+              Naksh.interface.new_prompt
+            else
+              Naksh.interface.in=Naksh.autocomplete(Naksh.interface.in)
+              @tabbed=true
+            end
+            return true
+          when 'char'
+            return false
+          else
+          $stderr.puts _("Naksh.config[%s] has unrecognized value: %s")%[config_entry,Naksh.config[config_entry].inspect]
+        end
+        nil
+      end
+
+
+      def Rbgtk.back
+        (@console.buffer.get_iter_at_mark(@console.buffer.get_mark('current_input_start'))==@console.buffer.get_iter_at_mark(@console.buffer.get_mark('insert'))) ? true : false
+      end
+
+
+      def Rbgtk.console
+        @console
+      end
+
+
+
+      def Rbgtk.new_prompt
+        @console.buffer.text=@console.buffer.text<<Naksh.replace_vars(Naksh.config['/interface/tty/prompt'])
+        @console.buffer.create_mark('current_input_start',@console.buffer.end_iter,true)
+        @console.scroll_to_mark @console.buffer.get_mark('current_input_start'),0.3,false,1,1
+      end
+
+      require 'naksh/interfaces/gtk/mainwin.rb'
+      require 'naksh/interfaces/gtk/optwin.rb'
+      require 'naksh/interfaces/gtk/abtwin.rb'
+      require 'naksh/interfaces/gtk/helpwin.rb'
+
+
+
+
+      #run the Gtk GUI with main window
+      def Rbgtk.run *a
+        a.each do |i|
+          #Rbgtk.new_tab i
+        end
+        Gtk.main
+      end
+
+
+
+      require 'naksh/interfaces/gtk/io.rb'
+
+      Rbgtk.new_prompt
+      @console.grab_focus
+    end
+  end
+end

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

@@ -0,0 +1,53 @@
+#!/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
+
+
+      @abtwin=Gtk::AboutDialog.new
+      @abtwin.show_all
+      @abtwin.hide
+      #for some reason the close button doesn\'t work automatically
+      @abtwin.children[0].children[-1].children[-1].signal_connect "clicked" do |*a|
+        @abtwin.hide
+      end
+      @abtwin.name=      Naksh.config['/meta/name']
+      @abtwin.version=   Naksh.config['/meta/version']
+      @abtwin.copyright= Naksh.config['/meta/copyright']
+      @abtwin.comments=  "Naksh is currently intended only for developers.\nTry typing `help' and pressing `return'"
+      @abtwin.license=   (Pathname.new(Naksh.config['/dir'])+'COPYING').read
+      @abtwin.website=   Naksh.config['/meta/website']
+      @abtwin.authors=   (Pathname.new(Naksh.config['/dir'])+'AUTHORS').readlines.collect do|i|;i.chop;end
+      #@abtwin.artists
+      #@abtwin.translator_credits
+      #@abtwin.documenters
+      #@abtwin.logo
+      #@abtwin.logo_icon_name
+
+
+      def Rbgtk.about
+        @abtwin
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,31 @@
+#!/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 'gnome2'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+
+      gnomeprog = Gnome::Program.new(Naksh.config['/meta/name'],Naksh.config['/meta/version'])
+      #gnomeprog.app_datadir = Naksh.config['/gnome_dir']
+
+    end
+  end
+end

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

@@ -0,0 +1,70 @@
+#!/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 'gnome2'
+require 'pathname'
+
+module Naksh
+  module Interfaces
+    module Rbgtk
+
+=begin
+      @helpwin=Gtk::Window.new 'Naksh Help'
+      vp=Gtk::VBox.new
+
+        help_message=Gtk::TextView.new
+          #this doesn't work - WHY?
+          help_message.buffer.text=(Pathname.new(Naksh.config['/dir'])+'docs'+'gtk_manual.txt').read
+          help_message.editable=true
+        vp<<help_message
+
+        ok_button=Gtk::Button.new(Gtk::Stock::OK)
+          ok_button.signal_connect 'clicked' do
+            apply_button.clicked
+            @helpwin.hide
+          end
+        vp<<ok_button
+
+      @helpwin<<vp
+      @helpwin.show_all
+      @helpwin.hide
+=end
+#this will be great
+      class HelpWindowInterface
+        def initialize(file_name)
+          @file_name=file_name
+        end
+        def show
+          Gnome::Help.display 'naksh',nil
+          0
+        end
+        def hide
+          $stderr.puts _('Naksh\'s GTK interface cannot close its help window')
+          1
+        end
+      end
+      @helpwin=HelpWindowInterface.new Pathname.new(Naksh.config['/dir'])+'docs'+'userguide'+Naksh.config['/env/locale']+'naksh.xml'
+
+      def Rbgtk.help
+        @helpwin
+      end
+
+
+    end
+  end
+end