naksh 0.2.0

data/lib/naksh/syntax/bash/dhaka/lexer.rb

@@ -0,0 +1,52 @@
+#!/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 'dhaka'
+
+class BashDhakaLexerSpecification < Dhaka::LexerSpecification
+  KEYWORDS = %w[ until while for if case select ]
+
+  %w[ | || && ; $ * " ' ].each do |char|
+    for_symbol(char) do
+      create_token char
+    end
+  end
+
+  for_pattern '\s' do
+    create_token 'space'
+  end
+
+
+
+  for_pattern('[\w-]+') do
+    if KEYWORDS.include? current_lexeme.value
+      create_token current_lexeme.value
+    else
+      create_token 'word'
+    end
+  end
+
+
+=begin
+  for_pattern('\d*(\.\d+)?') do
+    create_token('numeric_literal')
+  end
+=end
+
+
+end

data/lib/naksh/syntax/bash/treetop/bash.treetop

@@ -0,0 +1,17 @@
+grammar Bash
+  rule environmental_variable
+    \$\w+
+  end
+  rule single_quoted_string
+    ['][^']*[']
+  end
+  rule double_quoted_string
+    ["][^"]*["]
+  end
+  rule pipeline
+    command_and_args (| command_and_args)*
+  end
+  rule script
+    pipeline (; pipeline ;*)*
+  end
+end

data/lib/old/abbr_call.rb

@@ -0,0 +1,39 @@
+#!/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/>.
+
+#THIS FILE CURRENTLY DOESNT GET CALLED
+#IT SHOULD BE MERGED WITH Naksh.autocomplete and Naksh.send_command
+
+module Naksh
+
+  def Naksh.abbr_call(abbr,ary_of_args)
+    possibilities=Naksh.autocomplete(abbr)
+    if possibilities.length==1
+      Naksh.send_command(possibilities[0],ary_of_args)
+    else
+      Naksh.send_error(_("%{command}: command not found")%{:command=>command})
+      if Naksh.options.suggest_on_failure?
+        Naksh.buffer.puts(_('Try one of the following commands:'))
+        Naksh.pretty_print_array(possibilities)
+      end
+      Naksh.stop#cancel any later commands
+    end
+  end
+
+
+end

data/lib/old/autocomplete.rb

@@ -0,0 +1,29 @@
+#!/usr/local/bin/ruby
+# (c) 2011-12-05 thefed
+# All pwnage reserved.
+
+
+class Hell < Exception; end
+
+class AutoComplete # part of autocompletion
+  def initialize
+    @commands = ["build", "buck", "monkey"].sort
+  end
+  def interpret(arg_frag)
+    ret = []
+    @commands.each do |com|
+      ret << com if com.to_s.match arg_frag # only if it matches
+      # TODO break if we're after it
+    end
+
+    if ret.length > 1 # if we found multiple matches
+      raise Hell, "Too ambiguous of a command" # raise Hell
+    else # else its size = 1
+      return ret[0] # return the symbol
+    end
+  end
+
+end
+
+a = AutoComplete.new
+puts a.interpret("bui")

data/lib/old/command.rb

@@ -0,0 +1,106 @@
+#!/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
+
+  #what makes a command a command, absolutely nothing,
+  #but it better have a 'call' method
+  class Command
+  end
+
+
+  #this is for making a new command from a file
+  class ExternalCommand<Command
+    def intialize(path,name=:default)
+      if name==:default
+        name=File.basename(location)
+        if Naksh::Options.drop_extensions?
+          md=/\.[^\.]*\z/.match name
+          name.replace md.pre_match if md
+        end
+      end
+      @name=name
+      @path=path
+      self
+    end
+
+    attr_accessor :path,:name
+
+    #seydar/fedzor work your magic here
+    def call(args)
+      $stderr.puts "\nNaksh::ExternalCommand\#call\n@path=#{@path.inspect}\nargs=#{args.inspect}"
+      raise NotImplementedError
+    end
+  end
+
+
+  class RubyCommand<Command
+
+
+    #code MUST be a lambda proc
+    #I wish there was a way to test that...
+
+    #arg_count may be the number of arguments this command accepts,
+    #or it may be true, to signify that argument parsing should be performed,
+    #or it may be false, to signify that argument parsing should be disabled
+
+    #arg_map is a hash with symbols representing options
+    #pointing to either the substituting symbol,
+    #an integer for the option's argument count,
+    #or an array of these
+    def initialize(code,name,arg_count=true,arg_map=nil)
+
+      raise ArgumentError,"code must be a proc #{code.inspect}" unless code.kind_of? Proc
+      name=name.to_s
+      raise ArgumentError,"arg_map must be a hash #{arg_map.inspect}" unless !arg_map or arg_map.kind_of? Hash
+      arg_map=nil if arg_map==false
+
+      @arg_map=arg_map
+      @arg_count=nil unless arg_count.kind_of? Integer
+      @parse_args=arg_count ? true : false
+      @code=code
+      @name=name
+      self
+    end
+
+
+    attr_reader :arg_map,:name,:arg_count
+    def parse_args?
+      @parse_args
+    end
+
+
+    def call(args)
+      if @parse_args
+        args=Naksh.argument_parser(args,@arg_map or Hash.new,@arg_count or 0..1/0)
+      end
+      begin
+        return @code.call(args)
+      rescue ThreadError,LocalJumpError
+        #this isn't strictly true,
+        #these errors could be called elsewise,
+        #but this is more helpful to the beginner
+        Naksh.send_error(_('Naksh %{method}: Command not defined via lambda')%{:method=>name})
+      rescue
+        Naksh.send_error(_('Naksh: %{method}: invalid command')%{:method=>name})
+      end
+      Naksh.remove_command(name) if Naksh::Options.remove_invalid_commands?
+      nil
+    end
+  end
+end

data/lib/old/command_holder.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 'kirbybase'
+
+module Naksh
+  #this is an array which holds on to commands
+  class CommandHolder<Hash
+
+    def initialize
+      @db=KirbyBase.new(:local,nil,nil,'../data')
+      @com_tbl=@db.create_table(:commands,:name,{:DataType=>:String,:Required=>true,:Index=>1},:location,{:DataType=>:String,:Required=>true},:obj_name,:String)
+      make_metadata_table if Naksh.options[:keep_metadata_handy?]
+      super
+    end
+
+    #add a command
+    def <<(other)
+
+      raise ArgumentError unless other.kind_of? Naksh::Command
+
+      #KirbyBase is clever; it will call other a Stnkct
+      @com_tbl.insert(other)
+    end
+
+
+    #find a command
+    #useful for metadata queries,
+    #use call for actual method calling
+    def [](query)
+      @rb_com_tbl
+    end
+
+
+    #this is how you call commands
+    def call(command_name)
+      command=self.[command_name]
+      command.call
+    end
+
+
+    #this is an option which will slow loading,
+    #but improve metadata queries,
+    #useful for debugging, i guess
+    def make_metadata_table
+      raise NotImplementError
+      @meta_tbl=@db.create_table(:metadata,:name,{:DataType=>:String,:Required=>true,:Index=>1},MORE_STUFF_HERE)
+    end
+
+  end
+
+
+
+  def commands
+    @commands
+  end
+
+  @commands=CommandHolder.new
+
+end

data/lib/old/commands.rb

@@ -0,0 +1,24 @@
+#!/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
+  #these set hold the actual commands like ls,mv,etc.
+  #these are pure emulators, as smart as the originals
+  module CommandSets
+  end
+end

data/lib/old/old_executor.rb

@@ -0,0 +1,95 @@
+#!/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/>.
+
+#THIS FILE IS NO LONGER USED,
+#IT IS KEPT SO YOU CAN STEAL CODE AND
+#USE IT IN ANOTHER FILE
+
+
+class Regexp
+  def from_posix(unix_expr)
+    Regexp.compile(Regexp.escape(unix_expr).gsub(/\\\?/,'.').gsub(/\\\*/,'.*'))
+  end
+end
+
+#use libraries to fetch username for tilde expansion
+module Naksh
+  USAGE_STRING='naksh.rb [-h | --help][-a | --about][(-e | --execute) script_str]* [(-f | --file) script_path]'
+  OPTION_LIST=['-? | -h | --help','-a | --about','-c | --copyright','-u | --usage',['-e | --execute','shell_script_string'],['-f | --file','path_to_shell_script']]
+  #includes only compatible shell locations
+  UNIX_SHELL_LOCATIONS=%w[/usr/bin/bash /usr/bin/sh]
+  def Naksh.option_list
+    Naksh::OPTION_LIST.inject do |result,option|
+      if option.kind_of? String
+        result<<'    '<< option
+      elsif option.kind_of? Array and option.length==2
+        result<<'    '<< option.at(0)<<'   '<< option.at(1)
+      else
+        raise RuntimeError,'internal variable (Naksh::OPTION_LIST) is Array with entries not prepared for'
+      end
+      result
+    end
+  end
+  #fetches scripts and executes them
+  #one optional argument
+  #(The_scripts_may_be_very_long)? true : false
+  def Naksh.run_scripts(care_about_memory=false)
+    Naksh.fetch_scripts.at(0).each do |shell_script|
+      Naksh.process_script_string(shell_script)
+    end
+    Naksh.fetch_scripts.at(1).each do |shell_script_path|
+      if care_about_memory
+        Naksh.process_script_progressively(File.new(shell_script_path))
+      else
+        Naksh.process_script_string(File.read(shell_script_path))
+      end
+    end
+  end
+  def Naksh.shebang(file)
+    begin
+      file.rewind
+    rescue
+    end
+    begin
+      shebang_line=file.readline
+    rescue
+      raise ArgumentError,'Naksh.shebang requires one argument which responds to readline'
+    end
+    begin
+      file.rewind
+    rescue
+    end
+    return false unless /#!/.match(shebang_line)
+    shebang_line.slice(2,shebang_line.length)
+  end
+  #includes only compatible shells
+  def Naksh.file_is_shell_script?(file)
+    Naksh::UNIX_SHELL_LOCATIONS.include? Naksh.shebang(file)
+  end
+  #if user is running a UNIXish operating system, executes via OS
+  #if not, will run in Naksh if a shell script
+  def Naksh.run_file_by_shebang(file)
+    return system(Naksh.shebang(file)<<' '<<file.path) if $OS.unix?
+    return Naksh.process_script_progressively(file) if Naksh.file_is_shell_script(file)
+    return false
+  end
+end
+
+__END__
+
+