canis 0.0.4

data/examples/atree.rb

@@ -0,0 +1,105 @@
+require 'canis/core/util/app'
+
+App.new do 
+  var = Variable.new
+  header = app_header "canis #{Canis::VERSION}", :text_center => "Tree Demo", :text_right =>"New Improved!", :color => :black, :bgcolor => :white, :attr => :bold 
+  message "Press Enter to expand/collapse"
+
+      @form.bind_key(FFI::NCurses::KEY_F3) { 
+        require 'canis/core/util/viewer'
+        Canis::Viewer.view("canis14.log", :close_key => KEY_ENTER, :title => "<Enter> to close")
+      }
+
+      ww = FFI::NCurses.COLS-0
+      flow :width => ww , :margin_top => 1, :height => FFI::NCurses.LINES-2 do
+        stack :margin_top => 0, :width_pc => "30" do
+          tm = nil
+          atree = tree :height => 10, :title => '[ ruby way ]'  do
+            root "root" do
+              branch "hello" do
+                leaf "ruby"
+              end
+              branch "goodbye" do
+                leaf "java"
+                leaf "verbosity"
+              end
+            end
+          end
+          found=atree.get_node_for_path "goodbye"
+          atree.set_expanded_state(atree.root, true)
+          atree.set_expanded_state(found,true)
+
+          # using a Hash
+          model = { :ruby => [ "jruby", {:mri => %W[ 1.8.6 1.8.7]}, {:yarv => %W[1.9.1 1.9.2]}, "rubinius", "macruby" ], :python => %W[ cpython jython laden-swallow ] }
+          tree :data => model, :title => "[ Hash ]"
+
+        end # stack
+        stack :margin_top => 0, :width_pc => "30" do
+
+          # using an Array, these would be expanded on selection, using an event
+          tree :data => Dir.glob("*"), :title=> "[ Array ]" do 
+            command do |node|
+              # insert dir entries unless done so already
+              if node.children && !node.children.empty?
+              else
+                f = node.user_object
+                if File.directory? f
+                  l = Dir.glob(f + "/*")
+                  node.add(l) if l
+                end
+              end
+            end
+            bind :ENTER_ROW do |t|
+              # now ENTER_ROW comes from TEXTpad and gives an event
+              var.value = t.text
+            end
+          end
+
+          # long way ISO 9001 certifed, SEI CMM 5 compliant
+          #
+          root    =  TreeNode.new "ROOT"
+          subroot =  TreeNode.new "subroot"
+          leaf1   =  TreeNode.new "leaf 1"
+          leaf2   =  TreeNode.new "leaf 2"
+          model = DefaultTreeModel.new root
+          #model.insert_node_into(subroot, root,  0)  # BLEAH JAVA !!
+
+          # slightly better, since we return self in ruby
+          root << subroot
+          subroot << leaf1 << leaf2
+          leaf1 << "leaf11"
+          leaf1 << "leaf12"
+
+          # more rubyish way
+          root.add "blocky", true do 
+            add "block2"
+            add "block3" do
+              add "block31"
+            end
+          end
+
+          tree :data => model, :title => "[ legacy way ]"
+
+        end
+        #stack :margin_top => 2 do
+        stack :margin_top => 0, :width_pc => "40", :height => :expand do
+          # using height_pc as 100 was causing prefresh to fail if file lines went beyond 31
+          # tput lines gives 32 so only when file length exceeded was it actually writing beyond screen
+          t = textview  :suppress_borders => true, :height_pc => 90, :color => :green, :bgcolor => :black
+            var.command do |filename| 
+              filename = filename.value
+              if File.directory? filename
+                lines = Dir.entries(filename )
+                t.set_content lines
+              elsif File.exist? filename
+                # next line bombs on "invalid byte sequence on UTF-8" on split.
+                lines = File.open(filename,'r').read.split("\n") 
+                # next line bombs on binary files. normally we would check file type using +file+ command
+                t.set_content lines
+              else
+                alert " #{filename} does not appear to be a file "
+              end
+            end
+        end
+      end # flow
+end # app

data/examples/bline.rb

@@ -0,0 +1,181 @@
+require 'canis/core/util/app'
+require 'canis/core/util/rcommandwindow'
+require 'fileutils'
+require 'pathname'
+require 'canis/core/include/defaultfilerenderer'
+require './common/devel.rb'
+
+# this will go into top namespace so will conflict with other apps!
+def testnumberedmenu
+  list1 =  %w{ ruby perl python erlang rake java lisp scheme chicken }
+  list1[0] = %w{ ruby ruby1.9 ruby1.8.x jruby rubinius ROR }
+  list1[5] = %w{ java groovy grails }
+  str = numbered_menu list1, { :title => "Languages: ", :prompt => "Select :" }
+  $log.debug "17 We got #{str.class} "
+  message "We got #{str} "
+end
+def testdisplay_list
+  # scrollable filterable list
+  text = Dir.glob "*.rb"
+  $log.debug "DDD got #{text.size} "
+  str = display_list text, :title => "Select a file"
+  #$log.debug "23 We got #{str} :  #{str.class} , #{str.list[str.current_index]}  "
+  $log.debug "23 We got #{str} "
+  #file = str.list[str.current_index]
+  file = str
+  #message "We got #{str.list[str.current_index]} "
+  show file if file
+end
+def testdisplay_text
+  #str = display_text_interactive File.read($0), :title => "#{$0}"
+  str = display_text $0, :title => "#{$0}"
+end
+def testdir
+  # this behaves like vim's file selector, it fills in values
+  str = rb_gets("File?  ", Pathname)  do |q| 
+    #q.completion_proc = Proc.new {|str| Dir.glob(str +"*").collect { |f| File.directory?(f) ? f+"/" : f  } }
+    q.help_text = "Enter start of filename and tab to get completion"
+  end
+  message "We got #{str} "
+  show str
+end
+# if components have some commands, can we find a way of passing the command to them
+# method_missing gave a stack overflow.
+def execute_this(meth, *args)
+  alert " #{meth} not found ! "
+  $log.debug "app email got #{meth}  " if $log.debug? 
+  cc = @form.get_current_field
+  [cc].each do |c|  
+    if c.respond_to?(meth, true)
+      c.send(meth, *args)
+      return true
+    end
+  end
+  false
+end
+
+App.new do 
+  @startdir ||= File.expand_path("..")
+  def show file
+    w = @form.by_name["tv"]
+    if File.directory? file
+      lines = Dir.entries(file)
+      w.text lines
+      w.title "[ #{file} ]"
+    elsif File.exists? file
+      lines = File.open(file,'r').readlines 
+      w.text lines
+      w.title "[ #{file} ]"
+    end
+  end
+  def testchoosedir
+    # list filters as you type
+    $log.debug "called CHOOSE " if $log.debug? 
+    str = choose_file  :title => "Select a file", 
+      :recursive => true,
+      :dirs => true,
+      :directory => @startdir,
+      :help_text => "Enter pattern, use UP DOWN to traverse, Backspace to delete, ENTER to select. Esc-Esc to quit"
+    if str
+      message "We got #{str} " 
+      show str
+    end
+  end
+  def testchoosefile
+    # list filters as you type a pattern
+    glob = "**/*.rb"
+    str = choose_file  glob, :title => "Select a file", 
+      :directory => @startdir,
+      :help_text => "Enter pattern, use UP DOWN to traverse, Backspace to delete, ENTER to select. Esc-Esc to quit"
+    if str and str != ""
+      message "We got #{str} " 
+      show str
+    end
+  end
+  ht = 24
+  borderattrib = :reverse
+  @header = app_header "canis #{Canis::VERSION}", :text_center => "rCommandline Test", 
+    :text_right =>"Press :", :color => :white, :bgcolor => 236
+  message "Press F10 (or qq) to exit, F1 Help, : for Menu  "
+
+
+    
+    # commands that can be mapped to or executed using M-x
+    # however, commands of components aren't yet accessible.
+    def get_commands
+      %w{ testchoosedir testchoosefile testnumberedmenu testdisplay_list testdisplay_text testdir }
+    end
+    def help_text
+      <<-eos
+               rCommandLine HELP 
+
+      These are some features for either getting filenames from user
+      at the bottom of the window like vim and others do, or filtering
+      from a list (like ControlP plugin). Or seeing a file at bottom
+      of screen for a quick preview.
+
+      :        -   Command mode
+      F1       -   Help
+      F10      -   Quit application
+      qq       -   Quit application
+      =        -   file selection (interface like Ctrl-P, very minimal)
+
+      Some commands for using bottom of screen as vim and emacs do.
+      These may be selected by pressing ':'
+
+      testchoosedir       - filter directory list as you type
+                            '>' to step into a dir, '<' to go up.
+      testchoosefile       - filter file list as you type
+                             ENTER to select, C-c or Esc-Esc to quit
+      testdir          - vim style, tabbing completes matching files
+      testnumberedmenu - use menu indexes to select options
+      testdisplaylist  - display a list at bottom of screen
+                         Press <ENTER> to select, arrow keys to traverse, 
+                         and characters to filter list.
+      testdisplaytext  - display text at bottom (current file contents)
+                         Press <ENTER> when done.
+
+      The file/dir selection options are very minimally functional. Improvements
+      and thorough testing are required. I've only tested them out gingerly.
+
+      testchoosedir and file were earlier like Emacs/memacs with TAB completion
+      but have now moved to the much faster and friendlier ControlP plugin like
+      'filter as you type' format.
+
+      -----------------------------------------------------------------------
+      :n or Alt-n for general help.
+      eos
+    end
+
+    #install_help_text help_text
+
+    def app_menu
+      @curdir ||= Dir.pwd
+      Dir.chdir(@curdir) if Dir.pwd != @curdir
+      require 'canis/core/util/promptmenu'
+      menu = PromptMenu.new self do
+        item :c, :testchoosedir
+        item :f, :testchoosefile
+        item :d, :testdir
+        item :n, :testnumberedmenu
+        item :l, :testdisplay_list
+        item :t, :testdisplay_text
+      end
+      menu.display_new :title => "Menu"
+    end
+  @form.bind_key(?:, "App Menu") { app_menu; }
+  @form.bind_key(?=, "Choose File") { 
+      @curdir ||= Dir.pwd
+      Dir.chdir(@curdir) if Dir.pwd != @curdir
+    #testdisplay_list; 
+    testchoosefile;
+  }
+
+  stack :margin_top => 1, :margin_left => 0, :width => :expand , :height => FFI::NCurses.LINES-2 do
+    tv = textview :height_pc => 100, :width_pc => 100, :name => "tv", :suppress_borders => true
+    tv.renderer ruby_renderer
+  end # stack
+    
+  sl = status_line :row => Ncurses.LINES-1
+  testdisplay_list 
+end # app

data/examples/common/devel.rb

@@ -0,0 +1,319 @@
+# ----------------------------------------------------------------------------- #
+#         File: devel.rb
+#  Description: Some routines for development time
+#       Author: j kepler  http://github.com/mare-imbrium/canis/
+#         Date: 2014-06-02 - 20:26
+#      License: MIT
+#  Last update: 2014-07-10 18:33
+# ----------------------------------------------------------------------------- #
+#  devel.rb  Copyright (C) 2012-2014 j kepler
+require 'canis/core/include/appmethods'
+require 'canis/core/util/rcommandwindow'
+module Canis
+  module Devel
+  def devel_bindings
+    form = @form
+    raise "Form not set in Canis::Devel" unless form
+    #alert "executing devel_bindings "
+    form.bind_key(FFI::NCurses::KEY_F3,'view log') { 
+      view("canis14.log", :close_key => 'q', :title => "<q> to close")
+    }
+    form.bind_key([?\\,?\\,?l],'view log') { 
+      view("canis14.log", :close_key => 'q', :title => "<q> to close")
+    }
+    form.bind_key([?\\,?\\,?x],'view current') { 
+      code_browse $0
+    }
+    form.bind_key([?\\,?\\,?c],'run command') { 
+      shell_output
+    }
+    form.bind_key([?\\,?\\,?o],'choose file') { 
+      choose_file_and_view
+    }
+    form.bind_key([?\\,?g,?f],'change global fore color') { 
+      ret = get_string "Enter a foreground color (number)", :default => "255"
+      if ret
+        $def_fg_color = ret.to_i
+        form.repaint_all_widgets
+      end
+    }
+    form.bind_key([?\\,?g,?b],'change global bg color') { 
+      ret = get_string "Enter a background color (number)", :default => "0"
+      if ret
+        $def_bg_color = ret.to_i
+        form.repaint_all_widgets
+      end
+    }
+    form.bind_key([?\\,?f,?f],'change forms fore color') { 
+    }
+    form.bind_key([?\\,?f,?b],'change forms bg color') { 
+    }
+  end
+  # a quick dirty code formatter,
+  # TODO : parse it at least like a help file, with a content_type :code or :ruby
+  # TODO : provide key 'gf' to open other files under cursor
+  # @param [String] file name to browse
+  def code_browse path
+      dr = ruby_renderer
+      view(path, :close_key => 'q', :title => $0) do |t|
+        t.renderer  dr
+        t.bind_key([?\\,?\\,?o],'choose file') { 
+          str = choose_file "**/*"
+          if str and str != ""
+            t.add_content str
+            t.buffer_last
+          else
+            alert "nothing chosen"
+          end
+        }
+      end
+  end
+  # this should be available to view also.
+  def choose_file_and_view glob=nil, startdir="."
+    glob ||= "**/*.rb"
+    str = choose_file  glob, :title => "Select a file", 
+      :directory => startdir,
+      :help_text => "Enter pattern, use UP DOWN to traverse, Backspace to delete, ENTER to select. Esc-Esc to quit"
+    if str and str != ""
+      code_browse str
+    end
+  end
+  def ruby_renderer
+    require 'canis/core/include/defaultfilerenderer'
+      dr = DefaultFileRenderer.new
+      dr.insert_mapping /^\s*## /, [:red, :black]
+      dr.insert_mapping /^\s*#/, [:blue, :black]
+      dr.insert_mapping /^\s*(class|module)/, [:cyan, :black, BOLD]
+      dr.insert_mapping /^\s*(def|function)/, [:yellow, :black, FFI::NCurses::A_BOLD]
+      dr.insert_mapping /^\s*(require|load)/, [:green, :black]
+      dr.insert_mapping /^\s*(end|if |elsif|else|begin|rescue|ensure|include|extend|while|unless|case |when )/, [:magenta, :black]
+      return dr
+  end
+  def directory_renderer obj
+    #DirectoryRenderer.new obj
+    LongDirectoryRenderer.new obj
+  end
+
+  # the issue with a generic directory renderer is that it does not have 
+  # the full path, the dir name that is.
+  # FIXME: this expects text to be only a filename, but what about long listings.
+  #  In long listings the left_margin char will print at start whereas the filename
+  #   comes later in last slot of array
+  class DirectoryRenderer < ListRenderer
+    attr_accessor :hash
+    attr_accessor :prefix
+    # specify if long, short or full listing
+    attr_accessor :mode
+    def initialize obj
+      super
+      @hash = {}
+      @prefix = {}
+      create_mapping
+    end
+    def pre_render
+      super
+      # hack to get path
+      @path = @source.title
+    end
+    def create_mapping
+      @hash[:dir] = [:white, nil, BOLD]
+      @hash[:file] = [:white, nil, nil]
+      @hash[:link] = [:red, nil, nil]
+      @hash[:executable] = [:red, nil, BOLD]
+      @hash[:text] = [:magenta, nil, nil]
+      @hash[:zip] = [:cyan, nil, nil]
+      @hash[:other] = [:blue, nil, nil]
+      ##
+      @prefix[:dir] = "/"
+      @prefix[:link] = "@"
+      @prefix[:executable] = "*"
+    end
+    def get_category t
+      text = File.join(@path, t)
+      if File.directory? text
+        return :dir
+      elsif File.executable? text
+        return :executable
+      elsif File.symlink? text
+        return :link
+      elsif File.exists? text
+        if text =~ /\.txt$/
+          return :text
+        elsif text =~ /\.zip$/ or text =~ /gz$/ 
+          return :zip
+        else
+          return :file
+        end
+      else
+        return :other
+      end
+    end
+
+    def render pad, lineno, text
+      klass = get_category fullname
+      @fg = @hash[klass][0]
+      bg = @hash[klass][1]
+      @bg = bg #if bg
+      bg = @hash[klass][2] 
+      @attr = bg # if bg 
+      prefix = @prefix[klass] || " "
+      @left_margin_text = prefix
+
+      
+      super
+    end
+  end
+  class LongDirectoryRenderer < ListRenderer
+    attr_accessor :hash
+    attr_accessor :prefix
+    # specify if long, short or full listing
+    attr_accessor :mode
+    attr_accessor :formatter
+    def initialize obj
+      super
+      @hash = {}
+      @prefix = {}
+      @default_formatter = Formatter.new
+      @formatter = nil
+      create_mapping
+    end
+    def format_message(fname, stat, prefix=nil)
+      (@formatter || @default_formatter).call(fname, stat, prefix)
+    end
+    # Set date-time format.
+    #
+    # +datetime_format+:: A string suitable for passing to +strftime+.
+    def datetime_format=(datetime_format)
+      @default_formatter.datetime_format = datetime_format
+    end
+
+    # Returns the date format being used.  See #datetime_format=
+    def datetime_format
+      @default_formatter.datetime_format
+    end
+    def pre_render
+      super
+      # hack to get path
+      @path = @source.title
+    end
+    def create_mapping
+      @hash[:dir] = [:white, nil, BOLD]
+      @hash[:file] = [:white, nil, nil]
+      @hash[:link] = [:red, nil, nil]
+      @hash[:executable] = [:red, nil, BOLD]
+      @hash[:text] = [:magenta, nil, nil]
+      @hash[:zip] = [:cyan, nil, nil]
+      @hash[:other] = [:blue, nil, nil]
+      ##
+      @prefix[:dir] = "/"
+      @prefix[:link] = "@"
+      @prefix[:executable] = "*"
+    end
+    # recieves the full path and returns a symbol for category
+    def get_category text
+      #text = File.join(@path, t)
+      if File.directory? text
+        return :dir
+      elsif File.executable? text
+        return :executable
+      elsif File.symlink? text
+        return :link
+      elsif File.exists? text
+        if text =~ /\.txt$/
+          return :text
+        elsif text =~ /\.zip$/ or text =~ /gz$/ 
+          return :zip
+        else
+          return :file
+        end
+      else
+        return :other
+      end
+    end
+
+    # long directory renderer
+    # text is only the file name without path
+    def render pad, lineno, text
+      fullname = File.join(@path, text)
+      klass = get_category fullname
+      $log.info "fullname is #{fullname}, #{klass} "
+      # some links throw up an error of no such file
+      _stat = File.stat(fullname) rescue File.lstat(fullname)
+      @fg = @hash[klass][0]
+      bg = @hash[klass][1]
+      @bg = bg #if bg
+      bg = @hash[klass][2] 
+      @attr = bg # if bg 
+      prefix = @prefix[klass] || " "
+      #@left_margin_text = prefix
+      ftext = format_message( text, _stat, prefix)
+
+      super pad, lineno, ftext
+    end
+    class Formatter
+      #Format = "%s, [%s#%d] %5s -- %s: %s\n"
+      Format = "%10s  %s  %s%s" 
+        # % [readable_file_size(stat.size,1), date_format(stat.mtime), f]
+
+      attr_accessor :datetime_format
+
+      def initialize
+        @datetime_format = nil
+      end
+
+      def call(fname, stat, prefix=nil)
+        #Format % [severity[0..0], format_datetime(time), $$, severity, progname,
+                  #msg2str(msg)]
+        Format % [stat.size, format_datetime(stat.mtime), prefix, fname]
+      end
+
+      private
+
+      def format_datetime(time)
+        if @datetime_format.nil?
+          #time.strftime("%Y-%m-%dT%H:%M:%S") << "%06d " % time.usec
+          time.strftime("%Y-%m-%d %H:%M")
+        else
+          time.strftime(@datetime_format)
+        end
+      end
+
+    end # class Formatter
+
+  end
+=begin
+  def file_edit fp #=@current_list.filepath
+    #$log.debug " edit #{fp}"
+    editor = ENV['EDITOR'] || 'vi'
+    vimp = %x[which #{editor}].chomp
+    shell_out "#{vimp} #{fp}"
+    Window.refresh_all
+  end
+
+  # TODO we need to move these to some common file so differnt programs and demos
+  # can use them on pressing space or enter.
+  def file_page fp #=@current_list.filepath
+    unless File.exists? fp
+      pwd = %x[pwd]
+      alert "No such file. My pwd is #{pwd} "
+      return
+    end
+    ft=%x[file #{fp}]
+    if ft.index("text")
+      pager = ENV['PAGER'] || 'less'
+      vimp = %x[which #{pager}].chomp
+      shell_out "#{vimp} #{fp}"
+    elsif ft.index(/zip/i)
+      shell_out "tar tvf #{fp} | less"
+    elsif ft.index(/directory/i)
+      shell_out "ls -lh  #{fp} | less"
+    else
+      alert "#{fp} is not text, not paging "
+      #use_on_file "als", fp # only zip or archive
+    end
+  end
+=end
+
+end # module
+end # module
+include Canis::Devel