naksh 0.2.0

data/lib/naksh/commands/gnu/echo.nkc.rb

@@ -0,0 +1,52 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+#http://www.gnu.org/software/coreutils/manual/coreutils.html#echo-invocation
+
+lambda do |input|
+  allow_escapes=false
+  suppress_line=false
+  input.collect! do |arg|
+    md=/\A\-([eEn]+)\z/.match(arg)
+    if md
+      md[1].each_byte do |c|
+        c=c.chr
+        case c
+          when 'e'
+            allow_escapes=true
+          when 'E'
+            allow_escapes=false
+          when 'n'
+            suppress_line=true
+        end
+      end
+    end
+    md ? nil : arg
+  end
+  result=input.compact.join(' ')
+  if allow_escapes
+    result.gsub! '\\a',"\a"
+    result.gsub! '\\b',"\b"
+    suppress_line=result.gsub!('\\c','') or suppress_line
+    result.gsub! '\\f',"\f"
+    result.gsub! '\\n',"\n"
+    result.gsub! '\\r',"\r"
+    result.gsub! '\\t',"\t"
+    result.gsub! '\\f',"\f"
+    result.gsub! '\\\\','\\'
+    result.gsub!(/\\0([0-7]{0,3})/) do |match|
+      match[2..-1].to_i(8).chr
+    end
+    result.gsub!(/\\([0-7]{1,3})/) do |match|
+      match[1..-1].to_i(8).chr
+    end
+    result.gsub!(/\\x(\h{1,2})/) do |match|
+      match[2..-1].to_i(16).chr
+    end
+  end
+  result<<"\n" unless suppress_line
+  Naksh.buffer.print result
+  0
+end

data/lib/naksh/commands/gnu/ls.nkc.rb

@@ -0,0 +1,11 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+require 'pathname'
+
+lambda do |*a|
+  Naksh.buffer.pp(Pathname.new(Naksh.config['/env/pwd']).children.collect do |i|i.to_s;end)
+  0
+end

data/lib/naksh/commands/gnu/mv.nkc.rb

@@ -0,0 +1,15 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+lambda do |input|
+  prompt_on_overwrite=true
+  raise NotImplementedError,'mv isn\'t finished yet, try again tomorrow'
+  raise NotImplementedError,'mv doesn\'t take options yet' unless input.length=2
+  pwd=Pathname.new Naksh.config['/evn/pwd']
+  original_location=(pwd+input[0]).realpath
+  destination= (pwd+input[1]).realpath
+  Pathname.new() original_location
+  1
+end

data/lib/naksh/commands/gnu/pwd.nkc.rb

@@ -0,0 +1,11 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+require 'pathname'
+
+lambda do |*a|
+  Naksh.buffer.print(Naksh.config['/env/pwd']+"\n")
+  0
+end

data/lib/naksh/commands/naksh/addpath.nkc.rb

@@ -0,0 +1,15 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+
+
+lambda do |input|
+  input.each do |path|
+    path=Naksh.evaluate_path(path)
+    Naksh.path<<Naksh::PathEntry.new(path) if path
+  end
+  0
+end
+

data/lib/naksh/commands/naksh/broken.nkc.rb

@@ -0,0 +1,10 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+
+
+lambda do |*a|
+  Naksh.buffer.print('this file exists to provide a sample of a broken file')
+en

data/lib/naksh/commands/naksh/empty.nkc.rb

@@ -0,0 +1,4 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.

data/lib/naksh/commands/naksh/exit.nkc.rb

@@ -0,0 +1,10 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+# whatever you do here, don't require naksh, it caused a million errors
+
+lambda do |input|
+  Naksh.quit ? 0 : 1
+end

data/lib/naksh/commands/naksh/help.nkc.rb

@@ -0,0 +1,21 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+lambda do |input|
+  case input[0]
+    when 'gtk'
+      gtk_help_file=File.new((Pathname.new(Naksh.config['/dir'])+'docs'+'gtk_manual.txt').to_s)
+      while line=gtk_help_file.gets
+        Naksh.buffer.puts line
+      end
+    when 'commands'
+      Naksh.buffer.pp %w[ls pwd cd echo cat help exit]
+    when 'parser'
+      Naksh.buffer.puts 'You should be able to use piping, escaping, quoting, and commenting. However, the current parser is not being actively developed at this time while it is being replaced by a formal grammar.'
+    else
+      Naksh.buffer.pp ['help gtk','help commands','help parser']
+  end
+  0
+end

data/lib/naksh/commands/naksh/man.nkc.rb

@@ -0,0 +1,8 @@
+#!/usr/local/bin/ruby
+# 2011 Mahmut Bulut
+# GPLv3
+# This file is part of Naksh.
+
+lambda do |input|
+  Naksh.send_command('help',input)
+end

data/lib/naksh/commands/ruby.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/>.
+
+module Naksh
+  module CommandSets
+    #this is just the handful of methods defined in File,Dir,FileUtils,IO
+    module Ruby
+      def Ruby.mv(args)
+        raise NotImplementedError
+      end
+      def Ruby.mkdir(args)
+        raise NotImplementedError
+      end
+    end
+  end
+end

data/lib/naksh/commands/unix.rb

@@ -0,0 +1,131 @@
+#!/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 CommandSets
+    #only what is written in the UNIX specification
+    module Unix
+      def Unix.hash(args=[])
+        raise NotImplementedError
+      end
+      def Unix.type(args=[])
+        raise NotImplementedError
+      end
+      #is it better to do octal excapes or literal characters?
+      #Nautilus (Gnome File Browser) uses different order
+      def Unix.sort(args=[])
+
+        unless options.empty? or options.keys==[:r]
+          nyp :option,__LINE__
+        end
+        begin
+          args.to_str
+        rescue
+          raise RuntimeError,"Unix.sort received nonstring #{args.inspect}"
+        end
+        #shy hyphen is before hard hyphen (doesn't show, but it's there)
+        #there's a lot of obscure characters here which no one will ever use, but I'm trying to understand the ordering system, so I won't need a list of every character'
+        result = sort_ordered_objects(args.split("\n"),((%w[´ ` ^ ¨ ~ ÷ < = > ¬ ¦ ° µ]<<' ').merge!(%w< _ ¯ ­ - , ; : ! ¡ ? ¿ . · ¸ ' " « » ( ) [ >)<<']').merge!(%w[{ } § ¶ © ® @ ¤ ¢ $ £ ¥ * & # % + ± ♵ ♳ ♿ ♻ ⚁ Ⓐ ⚀ ♼ ⚓ ⒈ ⒜ ⚃ ⚗ ⑴ ♺ ♹ ⚄ ♾ ⚅ ⚖ ♴ ⚕ ⁋ ♽ ⁉ ⚂ ① ⚒ ⁇ ⚘ ⚔ ⁈ ¼ ½ ¾ 0 1 ¹ 2 ² 3 ³ 4 5 6 7 8 9 Á À Â Å Ä Ã a A ª æ Æ b B c C d D e E f F g G h H i I j J k K l L m M n N o O º p P q Q r R s S ß t T u U v V w W x X y Y z Z]),:end).join("\n")
+        result.reverse! if options.has_key? :r
+        result
+      end
+      #responds to -a,-A
+      #accepts only strings
+      def Unix.ls(args=[])
+        #not ArgumentError because parameters are passed internally, external input is always a string
+        raise RuntimeError,"Unix.ls received nonstring #{working_dir.inspect}" unless working_dir.kind_of? String
+        working_dir=Pathname.new(working_dir)
+        unless working_dir.exist?
+          Naksh::Output.err.puts "ls: #{working_dir}: No such file or directory"
+          return Naksh::STOP_VALUE
+        end
+        return working_dir.to_s unless working_dir.directory?
+        if not options.empty?
+          return Unix.sort(working_dir.children.join("\n")) if options.keys==[:A]
+          return Unix.sort(working_dir.entries.join("\n")) if options.keys==[:a]
+          nyp :options,__LINE__
+        else
+          res=[]
+          working_dir.entries.each do |entry|
+            res<< entry unless /\A\./.match(entry)
+          end
+          return Unix.sort(res.join("\n"))
+        end
+      end
+      def Unix.cd(new_working_dir=Naksh::user_home_directory,options=nil)
+        new_working_dir=Pathname.new(new_working_dir)
+        if options
+          nyp :options,__LINE__
+        else
+          Windows::Directory.SetCurrentDirectory(new_working_dir.to_s) if $OS.contains('Windows')
+          #neither system('cd') nor Dir.chdir changes WinXP pwd outside this program
+          Dir.chdir(new_working_dir.to_s)
+          return Naksh::NO_RETURN
+        end
+      end
+      #finished
+      def Unix.pwd(options=false)
+        if options
+          Naksh::Output::err.puts('naksh: pwd accepts no arguments')
+          return Naksh::STOP_VALUE
+        end
+        Dir::pwd
+      end
+      def Unix.echo(str)
+        raise RuntimeError,"Unix.ls received nonstring #{working_dir.inspect}" unless working_dir.kind_of? String
+        str
+      end
+      def Unix.mkdir(new_directories,options=[])
+        new_directories.each do |new_directory_location|
+          if options.has_key?(:p)
+            Dir.mkpath(new_directory_location)
+          else
+            begin
+              Dir.mkdir(new_directory_location)
+            rescue
+              Naksh::Output::err.puts("mkdir: cannot create directory `#{new_directory_location}': parent directory do not exist")
+              return Naksh::STOP_VALUE
+            end
+          end
+        end
+        Naksh::NO_RETURN
+      end
+      def Unix.mv(file_to_be_moved,destination,options=nil)
+        if options
+          nyp :options,__LINE__
+        elsif not File.exists?(file_to_be_moved)
+          nyp :error,__LINE__
+        else
+          file_to_be_moved=Pathname.new(file_to_be_moved)
+          destination=Pathname.new(destination)
+          if destination.exists? and destination.directory?
+            if file_to_be_moved.dirname==destination.dirname
+              File.rename(file_to_be_moved.basename,destination.basename)
+            else
+              File.move(file_to_be_moved,destination)
+            end
+          else
+            File.move(file_to_be_moved,destination.dirname)
+            File.rename(destination.dirname+file_to_be_moved.basename,destination.basename)
+          end
+        end
+        Naksh::NO_RETURN
+      end
+    end
+  end
+end

data/lib/naksh/configuration/gconf.rb

@@ -0,0 +1,51 @@
+#!/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 'gconf2'
+
+module Naksh
+
+
+  @config=GConf::Client.default
+
+
+  class<<@config
+    alias_method :old_query, :[]
+    alias_method :old_setter,:[]=
+    def [](query_str)
+      raise TypeError unless query_str.class==String
+      old_query '/apps/naksh'<<query_str
+    end
+    def []=(key,new_value)
+      raise TypeError unless key.class==String
+      old_setter '/apps/naksh'<<key,new_value
+    end
+  end
+
+
+  # config is a gconf2 client
+  # it looks like a hash
+  # keys look like a UNIX file path
+
+  def Naksh.config
+    @config
+  end
+
+
+end
+

data/lib/naksh/configuration/hash.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/>.
+
+module Naksh
+
+  class GConfStyleHash<Hash
+
+    def []= key,value
+      raise TypeError,'configuration keys can only be strings' unless key.class==String
+      raise ArgumentError,'keys must start with `/\'' unless key.match(/\A\//)
+      super key,value
+    end
+  end
+  @config=GConfStyleHash.new
+
+
+  def Naksh.config
+    @config
+  end
+
+
+end
+

data/lib/naksh/defaults.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 'pathname'
+
+Naksh.config['/dir']= (Pathname.new(__FILE__)+'../../../').realpath.to_s
+Naksh.config['/env/locale']=     'en'
+Naksh.config['/meta/name']=      'Naksh'
+Naksh.config['/meta/version']=   '0.2.0'
+Naksh.config['/meta/copyright']= 'Copyright 2011 Naksh Developers'
+Naksh.config['/meta/license']=   'GNU GPL version 3 or later'
+Naksh.config['/meta/website']=   'http://naksh.rubyforge.org/'
+Naksh.config['/meta/releasetype']=        'developer'
+Naksh.config['/meta/svn/revision']=       `svn info`[/Revision: (\d+)/,1].to_i rescue -1
+Naksh.config['/syntax/default']=            'bash'
+Naksh.config['/interface/default']=         'gtk'
+Naksh.config['/interface/gui/tabbar']=      'always'
+Naksh.config['/interface/gui/statusbar']=   true
+Naksh.config['/interface/tty/wrap']=        'char'
+Naksh.config['/interface/tty/prompt']=      '%{user}@%{host}:%{pwd}$ '
+Naksh.config['/interface/tty/cursor']=      'bar'
+Naksh.config['/interface/tty/keys/tab']=      'autocomplete'
+Naksh.config['/interface/tty/keys/alt_tab']=  'char'
+Naksh.config['/interface/tty/keys/return']=   'submit'
+Naksh.config['/interface/tty/keys/kp_enter']= 'autocomplete'