naksh 0.2.0

data/lib/naksh/interfaces/wxw/mainwin/sessions.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 'wx'
+require 'naksh/interfaces/tab.rb'
+
+module Naksh
+  module Interfaces
+    module Wxw
+
+
+      def Wxw.tabs
+        Tab.tabs
+      end
+
+
+      def Wxw.new_tab session=Naksh::Session.new, give_focus=true
+        current_tab=Tab.new
+        current_tab.textbox = Wx::TextCtrl.new(
+          @notebook,
+          "11#{current_tab.number.to_s.pad(3,'0')}".to_i(10),
+          'a simple value for console '<<current_tab.number.to_s,
+          Wx::DEFAULT_POSITION,
+          Wx::DEFAULT_SIZE,
+          Wx::TE_MULTILINE,
+          Wx::DEFAULT_VALIDATOR,
+          "Console #{current_tab.number} TextCtrl")
+        @notebook.add_page current_tab.textbox,"Page #{current_tab.number}",give_focus
+        true
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,37 @@
+#!/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
+
+      @optwin=nil
+
+
+      def Wxw.options
+        @optwin
+      end
+
+
+
+    end
+  end
+end

data/lib/naksh/path_entry.rb

@@ -0,0 +1,101 @@
+#!/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 'set'
+require 'pathname'
+
+
+class NoGuessError<Exception
+end
+
+class Pathname
+  def is_nkc?
+    (file? and /\.nkc\.rb\z/i.match(to_s)) ? true : false
+  end
+end
+
+
+class PathEntry
+
+  def PathEntry.guess_type(location,include_subfolders=false)
+    raise ArgumentError unless location.kind_of? Pathname and location.exist?
+    if location.directory?
+      types=Set.new
+      if include_subfolders
+        test_files=location.descendants
+      else
+        test_files=location.children
+      end
+      test_files.each do |child|
+        if Pathname.new(child).is_nkc?
+          types<<:nkc
+        else
+          types<<:external
+        end
+      end
+      if types.length==2
+        return :mixed_dir
+      elsif types.include? :nkc
+        return :nkc_dir
+      elsif types.include? :external
+        return :external_dir
+      else
+        raise RuntimeError
+      end
+    elsif location.file?
+      if location.is_nkc?
+        return :nkc
+      else
+        return :external
+      end
+    else
+      raise ArgumentError,'I can\'t handle anything but files and directories'
+    end
+    raise RuntimeError,'I should have returned a value by now'
+  end
+
+  # location is a string representing a file path (like /home/user/Documents)
+  # type is either :nkc_dir,:nkc,:external_dir,:external, or :mixed_dir
+  def initialize(location,type=:guess,naming_convention=false,include_subfolders=false)
+    raise ArgumentError unless location.kind_of? String
+    @location=Pathname.new(location)
+    if type==:guess
+      begin
+        @type=PathEntry.guess_type(@location)
+      rescue
+        raise NoGuessError
+      end
+    else
+      raise ArgumentError unless type==:mixed_dir or type==:nkc_dir or type==:nkc or type==:external or type==:external_dir
+      @type=type
+    end
+    raise ArgumentError if naming_convention and not (naming_convention.kind_of? String and (@type==:external or @type==:nkc))
+    @naming_convention=naming_convention
+    @include_subfolders=include_subfolders
+    if not @naming_convention and @type==:nkc
+      @name=/\.nkc\.rb\z/.match(@location.basename).pre_match
+    end
+  end
+
+  attr_reader :location,:type,:naming_convention,:name
+  def include_subfolders?
+    @include_subfolders
+  end
+
+end
+

data/lib/naksh/regexp.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/>.
+
+def Regexp.from_perl(perl_compatible_regexp)
+  raise NotImplementedError
+end
+
+
+def Regexp.from_posix(posix_compatible_regexp)
+  raise NotImplementedError
+end
+
+
+def Regexp.from_unix_expression(unix_expr)
+  raise NotImplementedError
+end

data/lib/naksh/session.rb

@@ -0,0 +1,72 @@
+#!/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
+
+  @sessions        = Array.new
+  @current_session = nil
+
+  #an Array of all active sessions, in no significant order
+  # however, the order must not be changed during runtime,
+  # since the interfaces depend upon it
+  def Naksh.sessions
+    @sessions
+  end
+
+  # Only one session may be considered 'active' or 'current' at a
+  # given time. This could be resolved by associating each session with
+  # its own buffer.
+  def Naksh.current_session
+    @current_session
+  end
+  def Naksh.current_session= new_current_session
+    @current_session=new_current_session
+  end
+
+  #an a subclass of Array which represents a record of entered scripts
+  class Session
+
+
+    def initialize(history=History.new,vars=Hash.new)
+      @history = history
+      @vars    = vars
+      @id=Naksh.sessions.length
+      Naksh.sessions<<self
+      Naksh.current_session=self unless Naksh.current_session
+      super()
+    end
+
+
+    attr_accessor :history,:vars
+    attr_reader :id
+
+    # two Sessions are == if and only if their history and vars are ==
+    def == other_session
+      return false unless other_session.kind_of? self.class
+      return false unless other_session.history==history
+      return false unless other_session.vars==   vars
+      true
+    end
+
+    def fork
+      Session.new history,vars
+    end
+
+
+  end
+end

data/lib/naksh/stdlibext.rb

@@ -0,0 +1,48 @@
+#!/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/>.
+
+def Regexp.join(re_list,preserve_options=true)
+  raise ArgumentError,"Regexp.join: 1st argument should be an array #{re_list}" unless re_list.respond_to? :collect and re_list.respond_to? :join
+  re_list.collect! do |re|
+    re= Regexp.new(Regexp.escape(re)) if re.kind_of? String
+    re= Regexp.new(re) unless re.kind_of? Regexp
+    preserve_options ? re.to_s : '(?:'<<re.source<<')'
+  end
+  Regexp.compile(re_list.join('').gsub(/\(\?[\w\-]*\:\)/,''))
+end
+
+
+class Regexp
+  def +(other)
+    Regexp.join([self,other],false)
+  end
+end
+
+
+
+class String
+
+  #str.pad(minimum_length,str_to_pad_with=' ')
+  #return self if length>minimum_length
+  def pad(m,d=' ')
+    f = m-length
+    return self if f<0
+    (d*(f/(d.length*1.0)).ceil)[0,f]<< self
+  end
+
+end

data/lib/naksh/syntax.rb

@@ -0,0 +1,57 @@
+#!/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.syntax.execute
+  # Naksh.syntax.try_execute
+  # Naksh.syntax.complete?
+
+  #these are the interpreters
+  #they take input and send commands
+  #could perform some non-standard commands like basic arithmatic
+  module Syntax
+
+
+    # a parse error is sent by the syntax parser when the script
+    # doesn't conform with the grammar.
+    class ParseError<StandardError
+      include Naksh::NonCriticalError
+    end
+
+  end
+
+  @syntax    = nil
+
+
+  # set the current syntax ruleset
+  # currently no way to combine syntax rulesets except by method overwriting
+  # eg., you could define a command `ren' which joins it's arguments and
+  # executes them with the Ren interpreter
+  def Naksh.syntax=(new_syntax)
+    @syntax=new_syntax
+  end
+
+
+  def Naksh.syntax
+    @syntax
+  end
+
+
+end

data/lib/naksh/syntax/bash.rb

@@ -0,0 +1,219 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut, thefed, and Antonio Salazar
+
+# 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 'gettext'
+
+module Naksh
+  module Syntax
+    module Bash
+
+      #executes a script
+      #entrance point
+      def Bash.execute script_str
+
+        #keeps output from commands from showing on the command line
+        Naksh.buffer.silence
+
+        #splits at ';'
+        Bash.split_script(Bash.clean_script(script_str)).each do |pipeline|
+
+          #splits at '|'
+          pipeline = Bash.split_pipeline(Bash.clean_pipeline(pipeline))
+          pipeline.each_index do |i|
+
+            #allow direct output if this is the last commmand in the pipeline
+            Naksh.buffer.speak if i==pipeline.length-1
+
+            #split into [command_name,['array','of','space',"separated arguments"]]
+            d = Bash.split_command(Bash.clean_command(pipeline[i]))
+
+            #send command unless the command is all whitespace or something silly
+            Naksh.send_command(*d) if d
+
+            #tell the buffer another command is about to begin
+            Naksh.buffer.next unless i==pipeline.length-1
+
+          end
+        end
+        true
+      end
+
+
+
+      # may return false if the script is syntactically incomplete
+      # see Bash.try_execute
+      def Bash.complete? script_str
+        true
+      end
+
+
+      # If it can successfully parse the script, it will do so as if
+      #   you called Bash.execute, and it will return true.
+      # If it cannot parse the script, it will either
+      #   raise a ParseError, as if you called Bash.execute, or
+      #   return false, indicating that it believes further input is
+      #     expected.
+
+      # The basic use case for complete? and try_execute is an unclosed
+      # quote
+
+      # A Naksh syntax module is NOT required to use complete? or
+      # try_execute, but it is recommended that is use one of them
+
+      def Bash.try_execute script_str
+        Bash.execute script_str
+        true
+      end
+
+
+
+
+      #should call any tidying methods helpful to other steps
+      #currently just removes comments
+      def Bash.clean_script(script_str)
+        Bash.remove_comments(script_str)
+      end
+
+
+      #should remove all comments from script
+      def Bash.remove_comments(script_str)
+        loop do
+          start=Bash.find_unescaped_nonstring(script_str,'#')
+          return script_str unless start
+          close=Bash.find_unescaped_nonstring(script_str,"\n",start)
+          return script_str[0..start-1] unless close
+          script_str=script_str[0..start-1]<<script_str[close+1..script_str.length]
+        end
+      end
+
+
+      #splits a script into wholly independant segments
+      def Bash.split_script(str)
+        Bash.split_unescaped(str,';')
+      end
+
+
+      #should call any tidying methods helpful to other steps
+      #currently returns input
+      def Bash.clean_pipeline(pipe_str)
+        pipe_str
+      end
+
+
+      #separate commands in a pipeline
+      def Bash.split_pipeline(str)
+        Bash.split_unescaped(str,'|')
+      end
+
+
+      #prepares for Bash.split_command
+      #by unifying syntax variations
+      #removing excess whitespace, etc
+
+      #it wraps the actual command in single quotes
+      def Bash.clean_command(com_str)
+
+        #remove leading whitespace
+        com_str.sub!(/\A\s+/,'')
+
+        #need to evaluate variables before this
+        com_str.sub!(/\A'([^']+)'(\S*)/,'\'\1\2\'')
+        com_str.sub!(/\A"([^"]+)"(\S*)/,'\'\1\2\'')
+        com_str.sub!(/\A(\S+)/,'\'\1\'')
+
+        #I think this section may be useless, not belong here, etc.
+        invalid_starting_characters=%w[; | #]
+        invalid_starting_characters.each do |chr|
+          if (/^/+chr).match(com_str)
+            raise ParseError,_('commands cannot begin with the following character: %s')%[chr]
+          end
+        end
+
+        com_str
+      end
+
+
+      #I couldn't make a good regexp version, but THIS WORKS
+      #takes into account escaping (\) and quotation ("')
+      def Bash.find_unescaped_nonstring(str,search_char,starting_index=0)
+        search_char=search_char.chr if search_char.kind_of? Integer
+        raise ArgumentError,"Naksh::Syntax::Bash.find_unescaped_nonstring(#{re.inspect},#{str.inspect})" unless search_char.kind_of? String and str.kind_of? String and search_char.length==1 and starting_index.kind_of? Integer
+        return nil if str.length<=starting_index
+        escaped=false
+        string_open=false
+        starting_index.upto str.length-1 do |i|
+          next if i<starting_index
+          if str[i].chr==search_char
+            return i unless escaped or string_open
+          elsif str[i].chr=="\\"
+            escaped=!escaped
+          elsif not escaped and str[i].chr=='\''
+            case string_open
+              when false
+                string_open='\''
+              when '\''
+                string_open=false
+            end
+          elsif not escaped and str[i].chr=='"'
+            case string_open
+              when false
+                string_open='"'
+              when '"'
+                string_open=false
+            end
+          else
+            escaped=false
+          end
+        end
+        #Regexp requires zero-width negative lookbehind
+        #/\A(([^\\](\\\\)*)(("[^"]*")|('[^']*'))*/<<re
+        nil
+      end
+
+
+      def Bash.split_command(com_str)
+        return false if not com_str or com_str.empty?
+        com_arr=Bash.split_unescaped(com_str,' ')
+        com_arr=[com_str,[]] unless com_arr
+        raise RuntimeError,'single quotes should have been added around command earlier in processing'<<"\ncommand as recieved = #{com_str.inspect}, class=#{com_str.class}" unless /\A'.*'\z/.match(com_arr[0])
+        com_arr[0].replace(com_arr[0][1,com_arr[0].length-2])
+        [com_arr[0],com_arr[1,com_arr.length]]
+      end
+
+
+
+      #returns an Array of Strings,
+      #made of str split at every unescaped instance of char
+      #not enclosed in an unescaped string delimiter ('")
+      def Bash.split_unescaped(str,char)
+        result=[]
+        split_index=0
+        loop do
+          split_index=Bash.find_unescaped_nonstring(str,char)
+          return result<<str unless split_index
+          result<<str[0,split_index] unless split_index.zero?
+          str=str[split_index+1,str.length]
+          return result if str.empty?
+        end
+      end
+
+
+
+    end
+  end
+end