db2c 0.0.4 → 1.0.0

data/rlwrap/filters/pipes

@@ -0,0 +1,74 @@
+#!/usr/bin/env perl
+
+# this is maybe the most practical of the filter examples. Is is also a test for rlwraps signal handling.
+# At present, a CTRL-C in a pager will also kill rlwrap (bad)
+
+use lib ($ENV{RLWRAP_FILTERDIR} or ".");
+use RlwrapFilter;
+use POSIX qw(:signal_h);
+use strict;
+
+# we want any piped pager to receive SIGWINCH.
+# SIGWINCH is not in POSIX, which means that  POSIX.pm doesn't
+# know about it. We use 'kill -l' to find it
+
+my $raw_input;
+
+my @signals = split /\s+/, `kill -l`; # yuck!
+for (my $signo = 1; $signals[$signo-1]; $signo++) {
+    if ($signals[$signo-1] eq 'WINCH') {
+  my $sigset_unblock = POSIX::SigSet->new($signo);
+  unless (defined sigprocmask(SIG_UNBLOCK, $sigset_unblock)) {
+      die "Could not unblock signals: $!\n";
+  }
+    }
+}
+
+my $filter = new RlwrapFilter;
+my $name = $filter -> name;
+
+$filter -> help_text("Usage: rlwrap -z $name <command>\n".
+         "Allow piping of <command> output through pagers or other shell commands\n" .
+         "When input of the form \"| shell pipeline\" is seen, <command>'s following output is sent through the pipeline\n");
+
+my $pipeline;
+my $prompt;
+my $out_chunkno = 0;
+my $wait_text = "wait ...";
+
+$filter -> prompts_are_never_empty(1);
+$filter -> input_handler(\&input);
+$filter -> output_handler(\&output);
+$filter -> prompt_handler(\&prompt);
+$filter -> echo_handler(sub {$raw_input});
+
+$filter -> run;
+
+sub input {
+  my $input;
+  $raw_input = $_;
+  ($input, undef, $pipeline) = /([^|]*)(\|([^|]+.*))?/;
+  if ($pipeline eq '') {
+    $input = $raw_input
+  }
+  return $input;
+}
+
+sub output {
+  return ($pipeline ? ($out_chunkno++ == 0 ? $wait_text : "")  : $_); # replace first chunk by $wait_text
+}
+
+sub prompt {
+  my ($prompt) = @_;
+  $out_chunkno = 0;
+  if ($pipeline) {
+    $filter -> send_output_oob ("\x08" x length($wait_text). "\n"); # erase $wait_text and go to new line
+    local $SIG{PIPE} =  'IGNORE'; # we don't want to die if the pipeline quits
+    open PIPELINE, "| $pipeline";
+    print PIPELINE $filter->cumulative_output;;
+    close PIPELINE; # this waits until pipeline has finished
+    undef $pipeline;
+    $filter ->send_output_oob("\n"); # start prompt on new line
+  }
+  return $prompt;
+}

data/spec/db2c/command_spec.rb

@@ -1,30 +1,62 @@
 require 'db2c'
 
 describe Db2c::Command do
-  it 'strips db2 if any' do
-    Db2c::Command.new('db2 do something').to_s.should == 'do something'
-    Db2c::Command.new('db2 do something').should be_valid
-  end
-  it 'supports use *' do
-    Db2c::Command.new('use somedb').to_s.should == 'connect to somedb'
-  end
-  it 'supports describe tablei_name' do
-    Db2c::Command.new('describe schema.table').to_s.should == 'describe table schema.table'
-  end
-  it 'supports \d tale_name' do
-    Db2c::Command.new('\d schema.table').to_s.should == 'describe table schema.table'
+
+  include Db2c::CONSTANTS
+
+  def command_check(command, translation)
+    Db2c::Command.new(command).to_s.should == translation
   end
+
   it 'supports \q' do
     Db2c::Command.new('\q').should be_quit
     Db2c::Command.new('\quit').should be_quit
   end
   it 'supports history commands' do
-    Db2c::Command.new('history').should be_history
     Db2c::Command.new('\hist').should be_history
   end
   it 'supports help command' do
-    Db2c::Command.new('help').should be_help
     Db2c::Command.new('\help').should be_help
     Db2c::Command.new('\h').should be_help
   end
+  it 'strips db2 if any' do
+    command_check('db2 do something', 'do something')
+    Db2c::Command.new('db2 do something').should be_valid
+  end
+  it 'supports use *' do
+    command_check 'use somedb', 'connect to somedb'
+  end
+  it 'supports describe tablei_name' do
+    command_check 'describe schema.table', 'describe table schema.table'
+  end
+  it 'supports \d tale_name' do
+    command_check '\d schema.table', 'describe table schema.table'
+  end
+  it 'supports \l' do
+    command_check '\l', 'list database directory'
+  end
+  it 'supports \lt' do
+    command_check '\lt', 'list tables'
+  end
+  it 'supports \lt all' do
+    command_check '\lt all', 'list tables for all'
+  end
+  it 'supports \lt schema' do
+    command_check '\lt hr', 'list tables for schema hr'
+  end
+
+  describe "\d[a|s|t|v]" do
+    it "returns a list of tables for all schemas without any arguments" do
+      command_check '\dt', "#{DTSELECT} where type = 'T' #{DTORDER}"
+    end
+    it "returns a list of views for all schemas without any arguments" do
+      command_check '\dv', "#{DTSELECT} where type = 'V' #{DTORDER}"
+    end
+    it "returns a list of tables for a specific schema" do
+      command_check '\dt hr', "#{DTSELECT} where type = 'T' and tabschema = 'HR' #{DTORDER}"
+    end
+    it "returns a list of aliases for a specific schema" do
+      command_check '\da hr', "#{DTSELECT} where type = 'A' and tabschema = 'HR' #{DTORDER}"
+    end
+  end
 end

data/spec/db2c/run_spec.rb

@@ -9,24 +9,21 @@ describe Db2c::Run do
     Db2c::Run.new("").should_not be_version
     Db2c::Run.new("").should_not be_debug
     Db2c::Run.new("").should_not be_help
-    Db2c::Run.new("").should be_wrap
+    Db2c::Run.new("").should_not be_nowrap
+    Db2c::Run.new("").should_not be_multiline
 
     Db2c::Run.new("-v").should be_version
     Db2c::Run.new("-d").should be_debug
     Db2c::Run.new("-h").should be_help
-    Db2c::Run.new("--now").should_not be_wrap
+    Db2c::Run.new("--now").should be_nowrap
+    Db2c::Run.new("-t").should be_multiline
 
     Db2c::Run.new("version").should be_version
     Db2c::Run.new("debug").should be_debug
     Db2c::Run.new("help").should be_help
-    Db2c::Run.new("--no-rlwrap").should_not be_wrap
+    Db2c::Run.new("--no-rlwrap").should be_nowrap
 
   end
-  it "sets command debug flag" do
-    Db2c::Command.should_not be_debug
-    Db2c::Run.new("debug")
-    Db2c::Command.should be_debug
-  end
   it "outputs version" do
     Db2c::Run.any_instance.should_receive(:die).with("version #{Db2c::VERSION}")
     Db2c::Run.new("--version")

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: db2c
 version: !ruby/object:Gem::Version
-  version: 0.0.4
+  version: 1.0.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-11-22 00:00:00.000000000Z
+date: 2012-02-02 00:00:00.000000000Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
-  requirement: &9232020 !ruby/object:Gem::Requirement
+  requirement: &11592580 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,7 +21,7 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *9232020
+  version_requirements: *11592580
 description: a db2 console with with history and autocomplete support, and few other
   goodies
 email: samer@on-siteNOSPAM.com
@@ -40,10 +40,13 @@ files:
 - lib/autocomplete
 - lib/db2c.rb
 - lib/db2c/command.rb
+- lib/db2c/editor.rb
 - lib/db2c/run.rb
 - man/db2c.1
 - man/db2c.1.html
 - man/db2c.1.ronn
+- rlwrap/filters/RlwrapFilter.pm
+- rlwrap/filters/pipes
 - spec/db2c/command_spec.rb
 - spec/db2c/run_spec.rb
 homepage: http://github.com/on-site/db2c
@@ -71,3 +74,4 @@ signing_key:
 specification_version: 3
 summary: a smarter db2 console
 test_files: []
+has_rdoc: