sakuric 2.0.1

data/bin/polygen-heanet

@@ -0,0 +1,6 @@
+#!/bin/sh
+
+# To install: sudo apt-get install polygen polygen-data
+
+NARG=${1:-10}
+polygen $SAKURADIR/doc/polygen/heanet.grm -X $NARG | uniq

data/bin/polygen-labs

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+NARG=${1:-4}
+polygen $SAKURADIR/doc/polygen/frati.grm -X $NARG | uniq

data/bin/print_key_val

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+echo "$1: $(azure $2)"
+

data/bin/rainbow

@@ -0,0 +1,10 @@
+#!/bin/bash
+
+I=1
+# evito il nero che e' 30
+while read linea
+ do 
+	I=$(($I+1));
+	N=$((31+$I%7))
+  echo -en "\033[1;${N}m$linea\033[0m\n"
+done

data/bin/recipe

@@ -0,0 +1,19 @@
+#!/bin/bash
+
+# TODO automcompletion
+# TODO
+
+recipe="$1"
+
+usage() {
+	RECIPEDIR=$SAKURALIB/recipes/
+	echo Recipes: `cd $RECIPEDIR && ls *.recipe`
+}
+if [ "aa$1" = "aa" ] ; then
+	usage
+else
+	echo recipe install for $1:
+	echo PreChecks
+	echo Get code from... needs ruby
+	echo PostChecks
+fi

data/bin/red

@@ -0,0 +1,2 @@
+#!/bin/bash
+echo -en "\033[1;31m$*\033[0m\n"

data/bin/remember-command

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+
+=begin
+
+  ############################################################
+  @author:    Riccardo Carlesso
+  @email:     riccardo.carlesso@gmail.com
+  @maturity:  development
+  @language:  Ruby
+  @synopsis:  dumps command into a history file
+  @tags:      development, rcarlesso, test
+  @description:
+	 See in $myconf
+
+   Since version 0.9.3 it supports options. Try -e, its super cool
+ ############################################################
+
+=end
+
+  require 'optparse'       # http://ruby.about.com/od/advancedruby/a/optionparser.htm
+  require 'socket'  
+  require ENV['SAKURALIB'] + '/ric_colors'
+  require ENV['SAKURALIB'] + '/ric_strings'
+
+  # Program constants, automagically picked up by RicLib
+  # More configuration could be written in:
+  #    $SVNHOME/etc/ricsvn/<FILENAME>.yml
+  # That would go into the variable '$prog_conf_d'
+  $myconf = {
+    :app_name            => 'remember',
+    :remember_dir        => '~/remember',
+    :tail_len            => 20,
+		:description         => 'This script tries to remember what you just did on the CLI 
+   for future use. It does it by recording on a directory.
+   Basically its a "persistent" history'
+  }
+
+  $PROG_VER = '0.9.3'
+  $DEBUG    = false
+  
+  def deb(str)
+    puts "#DEB# #{str}" if $DEBUG #
+  end
+  
+  def debug_on(str)
+    $DEBUG = true
+  end
+
+  def usage(comment=nil)
+    puts "#{$0} v.#{$PROG_VER}"
+    puts "Usage: #{File.basename $0} [-dhjtv] [-l LOGFILE] [-g STR] <COMMAND> <TO> <ISSUE>"
+    puts comment if comment
+		puts description
+    #exit 11
+  end
+  
+  def init()
+    $opts = {}
+    optparse = OptionParser.new do |opts|
+      # Set a banner, displayed at the top of the help screen.
+      #opts.banner = "#{$0} v.#{$PROG_VER}\n Usage: #{File.basename $0} [options] file1 file2 ..."
+      $opts[:verbose] = $opts[:jabba] = $opts[:debug] = false  
+      $opts[:logfile] = $opts[:grep] = nil
+			$opts[:tail] = $myconf[:tail_len]
+      opts.on( '-d', '--debug', 'enables debug (DFLT=false)' )  { $opts[:debug] = true}
+      opts.on( '-e', '--edit',  "edits file with vi" )          { $opts[:edit] = true  } 
+      opts.on( '-h', '--help',  'Display this screen' )         { puts(opts); exit 1   }
+      opts.on( '-g', '--grep STRING', 'Searchs for STRING' )    {|str|  $opts[:grep] = str  }
+      opts.on( '-l', '--logfile FILE', 'Write log to FILE' )    {|file| $opts[:logfile] = file }
+      opts.on( '-t', '--tail', "Just tail argument (dflt tail length=#{$myconf[:tail_len]}" )  {|len| $opts[:tail] = len || $myconf[:tail_len]}
+      opts.on( '-v', '--verbose', 'Output more information' )   { $opts[:verbose] = true}
+    end
+    optparse.parse!  
+    $DEBUG = $opts[:debug]
+    debug_on('enabled via GetOpts') if $opts[:debug]
+    puts "Being verbose" if $opts[:verbose]
+    puts "Logging to file #{$opts[:logfile]}" if $opts[:logfile]
+  end
+  
+  def remember_and_execute_command(command,logfile,remember=true)
+		if remember
+			File.open(logfile, 'a') { |f| f.write "#{Time.now} #{Socket.gethostname} [#{ENV['USER']}] #{command}\n" } 
+			puts "#Remembering:  '''#{command}'''"
+			puts "#Written file:  #{logfile}"
+		end
+    puts "#Now executing: #{command}"
+    system(command) # Id need a "$@"
+    deb "#Just executed (exit=#{$!}): #{command}"
+    deb "#Written file (2): #{logfile}"
+  end
+
+	#Tue Aug 28 15:57:38 +0100 2012 derek.dub.corp.google.com [rcarlesso] @tag21 @tags2 my command
+	def remember_color_regex(str)
+		d1,d2,d3,tim,gmt,yr,host,user,command = str.split(' ',9)
+		color_date = gray([d1,d2,d3,tim,gmt,yr].join(' '))
+		color_host = blue(host.split('.').first)
+		color_user = gray(user)
+		# makes the tags cyan :)
+		color_cmd  = yellow(command)
+		color_cmd  = command.split(' ').map{|word| word.begin_with?('@') ? cyan(word) : yellow(word) }.join(' ')
+
+		#puts str
+		#return [ color_date, color_host, color_user, color_cmd ].join ' '
+		color_cmd
+	end
+
+
+  def show_last_commands(logfile)
+	mycommand = "tail -n #{$opts[:tail]} '#{logfile}'"
+	if $opts[:grep]
+		mycommand ="grep --color '#{ $opts[:grep] }' '#{logfile}'"
+	end
+	deb "command: #{mycommand}"
+	lines = %x{ #{mycommand} } # doesnt work in ruby1.9!
+	#lines = `#{mycommand}` # doesnt work in ruby1.9!
+	lines.split("\n").each do |line|
+            puts remember_color_regex(line) # "Line: #{line}" 
+        end
+	$stderr.puts "# Try also: cat #{logfile}"
+  end
+
+  def main
+    init
+    path = File.expand_path($myconf[:remember_dir]) # for normal users
+    path = File.expand_path(ENV['SVNHOME'] + "/var/remember/" ) if ENV['SVNHOME'] # for Riccardo
+    logfile = path +"/all"
+    mycommand = ARGV.join ' '
+    if ($opts[:edit]) # vi and piositions at end of file
+      remember_and_execute_command("vi + '#{logfile}'", logfile, false)
+      exit 0
+    end
+    unless(ARGV.size > 0) # No arguments provided
+	show_last_commands(logfile)
+	exit 1
+    end
+    puts `mkdir -p '#{path}'`
+    remember_and_execute_command(mycommand, logfile)
+  end
+
+  main()

data/bin/remember-command.rb

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+
+=begin
+
+  ############################################################
+  @author:    Riccardo Carlesso
+  @email:     riccardo.carlesso@gmail.com
+  @maturity:  development
+  @language:  Ruby
+  @synopsis:  dumps command into a history file
+  @tags:      development, rcarlesso, test
+  @description:
+	 See in $myconf
+
+   Since version 0.9.3 it supports options. Try -e, its super cool
+ ############################################################
+
+=end
+
+  require 'optparse'       # http://ruby.about.com/od/advancedruby/a/optionparser.htm
+  require 'socket'  
+  require ENV['SAKURALIB'] + '/ric_colors'
+  require ENV['SAKURALIB'] + '/ric_strings'
+
+  # Program constants, automagically picked up by RicLib
+  # More configuration could be written in:
+  #    $SVNHOME/etc/ricsvn/<FILENAME>.yml
+  # That would go into the variable '$prog_conf_d'
+  $myconf = {
+    :app_name            => 'remember',
+    :remember_dir        => '~/remember',
+    :tail_len            => 20,
+		:description         => 'This script tries to remember what you just did on the CLI 
+   for future use. It does it by recording on a directory.
+   Basically its a "persistent" history'
+  }
+
+  $PROG_VER = '0.9.3'
+  $DEBUG    = false
+  
+  def deb(str)
+    puts "#DEB# #{str}" if $DEBUG #
+  end
+  
+  def debug_on(str)
+    $DEBUG = true
+  end
+
+  def usage(comment=nil)
+    puts "#{$0} v.#{$PROG_VER}"
+    puts "Usage: #{File.basename $0} [-dhjtv] [-l LOGFILE] [-g STR] <COMMAND> <TO> <ISSUE>"
+    puts comment if comment
+		puts description
+    #exit 11
+  end
+  
+  def init()
+    $opts = {}
+    optparse = OptionParser.new do |opts|
+      # Set a banner, displayed at the top of the help screen.
+      #opts.banner = "#{$0} v.#{$PROG_VER}\n Usage: #{File.basename $0} [options] file1 file2 ..."
+      $opts[:verbose] = $opts[:jabba] = $opts[:debug] = false  
+      $opts[:logfile] = $opts[:grep] = nil
+			$opts[:tail] = $myconf[:tail_len]
+      opts.on( '-d', '--debug', 'enables debug (DFLT=false)' )  { $opts[:debug] = true}
+      opts.on( '-e', '--edit',  "edits file with vi" )          { $opts[:edit] = true  } 
+      opts.on( '-h', '--help',  'Display this screen' )         { puts(opts); exit 1   }
+      opts.on( '-g', '--grep STRING', 'Searchs for STRING' )    {|str|  $opts[:grep] = str  }
+      opts.on( '-l', '--logfile FILE', 'Write log to FILE' )    {|file| $opts[:logfile] = file }
+      opts.on( '-t', '--tail', "Just tail argument (dflt tail length=#{$myconf[:tail_len]}" )  {|len| $opts[:tail] = len || $myconf[:tail_len]}
+      opts.on( '-v', '--verbose', 'Output more information' )   { $opts[:verbose] = true}
+    end
+    optparse.parse!  
+    $DEBUG = $opts[:debug]
+    debug_on('enabled via GetOpts') if $opts[:debug]
+    puts "Being verbose" if $opts[:verbose]
+    puts "Logging to file #{$opts[:logfile]}" if $opts[:logfile]
+  end
+  
+  def remember_and_execute_command(command,logfile,remember=true)
+		if remember
+			File.open(logfile, 'a') { |f| f.write "#{Time.now} #{Socket.gethostname} [#{ENV['USER']}] #{command}\n" } 
+			puts "#Remembering:  '''#{command}'''"
+			puts "#Written file:  #{logfile}"
+		end
+    puts "#Now executing: #{command}"
+    system(command) # Id need a "$@"
+    deb "#Just executed (exit=#{$!}): #{command}"
+    deb "#Written file (2): #{logfile}"
+  end
+
+	#Tue Aug 28 15:57:38 +0100 2012 derek.dub.corp.google.com [rcarlesso] @tag21 @tags2 my command
+	def remember_color_regex(str)
+		d1,d2,d3,tim,gmt,yr,host,user,command = str.split(' ',9)
+		color_date = gray([d1,d2,d3,tim,gmt,yr].join(' '))
+		color_host = blue(host.split('.').first)
+		color_user = gray(user)
+		# makes the tags cyan :)
+		color_cmd  = yellow(command)
+		color_cmd  = command.split(' ').map{|word| word.begin_with?('@') ? cyan(word) : yellow(word) }.join(' ')
+
+		#puts str
+		#return [ color_date, color_host, color_user, color_cmd ].join ' '
+		color_cmd
+	end
+
+
+  def show_last_commands(logfile)
+	mycommand = "tail -n #{$opts[:tail]} '#{logfile}'"
+	if $opts[:grep]
+		mycommand ="grep --color '#{ $opts[:grep] }' '#{logfile}'"
+	end
+	deb "command: #{mycommand}"
+	lines = %x{ #{mycommand} } # doesnt work in ruby1.9!
+	#lines = `#{mycommand}` # doesnt work in ruby1.9!
+	lines.split("\n").each do |line|
+            puts remember_color_regex(line) # "Line: #{line}" 
+        end
+	$stderr.puts "# Try also: cat #{logfile}"
+  end
+
+  def main
+    init
+    path = File.expand_path($myconf[:remember_dir]) # for normal users
+    path = File.expand_path(ENV['SVNHOME'] + "/var/remember/" ) if ENV['SVNHOME'] # for Riccardo
+    logfile = path +"/all"
+    mycommand = ARGV.join ' '
+    if ($opts[:edit]) # vi and piositions at end of file
+      remember_and_execute_command("vi + '#{logfile}'", logfile, false)
+      exit 0
+    end
+    unless(ARGV.size > 0) # No arguments provided
+	show_last_commands(logfile)
+	exit 1
+    end
+    puts `mkdir -p '#{path}'`
+    remember_and_execute_command(mycommand, logfile)
+  end
+
+  main()

data/bin/richelp

@@ -0,0 +1,99 @@
+#!/usr/bin/env ruby
+
+require ENV['SAKURALIB'] + '/ric.rb' # || die( "Can't find $SAKURALIB!")
+require 'yaml' # to parse .yml files
+require 'find'
+
+# local status... this is SOOOOO 80s!
+$some_exception = false
+
+include RicHelpModule
+
+def help(k, value=red('???'), query='', opts = {} )
+  a = k.to_s.escape_printf 
+  b = value.to_s.escape_printf
+  if (query != '')  
+    return unless (a.match(/#{query}/i) || b.match(/#{query}/i) )
+  end 
+  return sprintf( 
+    "#{ colora( $color_line_key, "%-#{$column_length}s") } #{ colora( ($color_line_val rescue 2) , "%s") }#{red " (#{opts})" unless opts.to_s == '{}' }\n" % [a,b]
+  ) rescue prosso("Bad Line ('#{$!}'): #{ [gray( a), white( b)] }")
+end
+
+def title(s)
+  puts( colora($color_title," #{s}") ) 
+end
+
+
+def special_help_title?(k2)
+  k2.match(/^_/) # inizia con '_'
+end
+
+def exception_yml(msg='')
+  $some_exception = true
+  { "Exception parsing YML file: '#{red msg}'" => 
+    { 'File/Line' => "#{__FILE__}, line #{__LINE__}", 
+      "Legal files" => yellow( $help_files.sort.join(', ')) ,
+    } 
+  }
+end
+
+def init(helpfile)
+    # compute help files
+  $help_files = []  
+  Find.find($HELP_DIR) { |f| $help_files << File.basename(f, '.yml') if f.match('.yml$') } 
+    # compute max length on the left
+    # TODO make this length dynamic on the search
+  $column_length = 5 # minimum
+  if( helpfile == '' || helpfile.nil? )
+    usage
+    exit 1
+  end
+  if helpfile == 'all'
+    puts "usali tutti TBD: #{$help_files.join ' '}"
+    helpfiles = $help_files
+  else
+    helpfiles = [ helpfile ]
+  end 
+  helpfiles.each do |helpfile|
+    $help_opt = helpfile_parse( helpfile) 
+    $help_opt.each{ |k1,v1|
+      v1.each{ |k2,v2| 
+         k2 = k2.to_s
+         $column_length = k2.length if ( k2.length > $column_length )
+      } unless special_help_title?(k1)
+    }   
+  end
+end
+
+
+def usage
+  puts "Usage: #{$0} [-hdvm] <FILE> [<QUERY>]"
+  puts " -d:   debug"
+  puts " -h:   this help"
+  puts " -m:   open file with textmate (or GUARDA equivalent)"
+  puts " -t:   just test file"
+  puts "Available files are: " + yellow( $help_files.join(', '))
+  exit 1
+end
+
+def main
+  usable_argv = ARGV.select{|arg| ! arg.match /^-/ }
+  debug_on('from ARGV') if ARGV.match /-d/ 
+  usage if ARGV.match /^-h/ 
+  file_str  = usable_argv[0]
+  query_str = usable_argv[1] rescue '' 
+  init(file_str)
+  puts "Search for: '#{green query_str}' into #{gray "#{file_str}.yml"}" if query_str 
+  if ARGV.match /^-t/
+    show_test(file_str) # just test 
+  else
+    show_help(query_str)
+  end
+  mate_cmd = "vim #{$HELP_DIR}/#{file_str}.yml"
+  puts "# To add stuff, type: #{gray mate_cmd }"
+  `#{mate_cmd}` if ARGV.match /-m/
+  exit ($some_exception ? 42 : 0)
+end
+
+main()

data/bin/ricorda-comando

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+
+=begin
+
+  ############################################################
+  @author:    Riccardo Carlesso
+  @email:     riccardo.carlesso@gmail.com
+  @maturity:  development
+  @language:  Ruby
+  @synopsis:  dumps command into a history file
+  @tags:      development, rcarlesso, test
+  @description:
+	 See in $myconf
+
+   Since version 0.9.3 it supports options. Try -e, its super cool
+ ############################################################
+
+=end
+
+  require 'optparse'       # http://ruby.about.com/od/advancedruby/a/optionparser.htm
+  require 'socket'  
+  require ENV['SAKURALIB'] + '/ric_colors'
+  require ENV['SAKURALIB'] + '/ric_strings'
+
+  # Program constants, automagically picked up by RicLib
+  # More configuration could be written in:
+  #    $SVNHOME/etc/ricsvn/<FILENAME>.yml
+  # That would go into the variable '$prog_conf_d'
+  $myconf = {
+    :app_name            => 'remember',
+    :remember_dir        => '~/remember',
+    :tail_len            => 20,
+		:description         => 'This script tries to remember what you just did on the CLI 
+   for future use. It does it by recording on a directory.
+   Basically its a "persistent" history'
+  }
+
+  $PROG_VER = '0.9.3'
+  $DEBUG    = false
+  
+  def deb(str)
+    puts "#DEB# #{str}" if $DEBUG #
+  end
+  
+  def debug_on(str)
+    $DEBUG = true
+  end
+
+  def usage(comment=nil)
+    puts "#{$0} v.#{$PROG_VER}"
+    puts "Usage: #{File.basename $0} [-dhjtv] [-l LOGFILE] [-g STR] <COMMAND> <TO> <ISSUE>"
+    puts comment if comment
+		puts description
+    #exit 11
+  end
+  
+  def init()
+    $opts = {}
+    optparse = OptionParser.new do |opts|
+      # Set a banner, displayed at the top of the help screen.
+      #opts.banner = "#{$0} v.#{$PROG_VER}\n Usage: #{File.basename $0} [options] file1 file2 ..."
+      $opts[:verbose] = $opts[:jabba] = $opts[:debug] = false  
+      $opts[:logfile] = $opts[:grep] = nil
+			$opts[:tail] = $myconf[:tail_len]
+      opts.on( '-d', '--debug', 'enables debug (DFLT=false)' )  { $opts[:debug] = true}
+      opts.on( '-e', '--edit',  "edits file with vi" )          { $opts[:edit] = true  } 
+      opts.on( '-h', '--help',  'Display this screen' )         { puts(opts); exit 1   }
+      opts.on( '-g', '--grep STRING', 'Searchs for STRING' )    {|str|  $opts[:grep] = str  }
+      opts.on( '-l', '--logfile FILE', 'Write log to FILE' )    {|file| $opts[:logfile] = file }
+      opts.on( '-t', '--tail', "Just tail argument (dflt tail length=#{$myconf[:tail_len]}" )  {|len| $opts[:tail] = len || $myconf[:tail_len]}
+      opts.on( '-v', '--verbose', 'Output more information' )   { $opts[:verbose] = true}
+    end
+    optparse.parse!  
+    $DEBUG = $opts[:debug]
+    debug_on('enabled via GetOpts') if $opts[:debug]
+    puts "Being verbose" if $opts[:verbose]
+    puts "Logging to file #{$opts[:logfile]}" if $opts[:logfile]
+  end
+  
+  def remember_and_execute_command(command,logfile,remember=true)
+		if remember
+			File.open(logfile, 'a') { |f| f.write "#{Time.now} #{Socket.gethostname} [#{ENV['USER']}] #{command}\n" } 
+			puts "#Remembering:  '''#{command}'''"
+			puts "#Written file:  #{logfile}"
+		end
+    puts "#Now executing: #{command}"
+    system(command) # Id need a "$@"
+    deb "#Just executed (exit=#{$!}): #{command}"
+    deb "#Written file (2): #{logfile}"
+  end
+
+	#Tue Aug 28 15:57:38 +0100 2012 derek.dub.corp.google.com [rcarlesso] @tag21 @tags2 my command
+	def remember_color_regex(str)
+		d1,d2,d3,tim,gmt,yr,host,user,command = str.split(' ',9)
+		color_date = gray([d1,d2,d3,tim,gmt,yr].join(' '))
+		color_host = blue(host.split('.').first)
+		color_user = gray(user)
+		# makes the tags cyan :)
+		color_cmd  = yellow(command)
+		color_cmd  = command.split(' ').map{|word| word.begin_with?('@') ? cyan(word) : yellow(word) }.join(' ')
+
+		#puts str
+		#return [ color_date, color_host, color_user, color_cmd ].join ' '
+		color_cmd
+	end
+
+
+  def show_last_commands(logfile)
+	mycommand = "tail -n #{$opts[:tail]} '#{logfile}'"
+	if $opts[:grep]
+		mycommand ="grep --color '#{ $opts[:grep] }' '#{logfile}'"
+	end
+	deb "command: #{mycommand}"
+	lines = %x{ #{mycommand} } # doesnt work in ruby1.9!
+	#lines = `#{mycommand}` # doesnt work in ruby1.9!
+	lines.split("\n").each do |line|
+            puts remember_color_regex(line) # "Line: #{line}" 
+        end
+	$stderr.puts "# Try also: cat #{logfile}"
+  end
+
+  def main
+    init
+    path = File.expand_path($myconf[:remember_dir]) # for normal users
+    path = File.expand_path(ENV['SVNHOME'] + "/var/remember/" ) if ENV['SVNHOME'] # for Riccardo
+    logfile = path +"/all"
+    mycommand = ARGV.join ' '
+    if ($opts[:edit]) # vi and piositions at end of file
+      remember_and_execute_command("vi + '#{logfile}'", logfile, false)
+      exit 0
+    end
+    unless(ARGV.size > 0) # No arguments provided
+	show_last_commands(logfile)
+	exit 1
+    end
+    puts `mkdir -p '#{path}'`
+    remember_and_execute_command(mycommand, logfile)
+  end
+
+  main()