mssql 0.0.2

data/.autotest

@@ -0,0 +1,10 @@
+require "ZenTest"
+#require "autotest/rails"
+require "autotest/growl"
+#require 'redgreen/autotest'
+require "autotest/fsevent"
+Autotest.add_hook :initialize do |autotest|
+  %w{.git .svn .hg .DS_Store ._* vendor tmp log doc config .rvmrc Gemfile .autotest README Rakefile, paypal_test}.each do |exception|
+    autotest.add_exception(exception)
+  end
+end

data/.gitignore

@@ -0,0 +1,2 @@
+*.gem
+Gemfile.lock

data/.rbenv-version

@@ -0,0 +1 @@
+1.9.2-p290

data/Gemfile

@@ -0,0 +1,16 @@
+source :rubygems
+#source "http://gems.minus5.hr"
+# Specify your gem's dependencies in mssql.gemspec
+gemspec
+
+group :development do
+  gem "tiny_tds", "0.5.0"
+  gem "hashie", "1.0.0"
+  gem "activesupport", "3.1.1" 
+
+  gem 'minitest', '>=2.7.0'
+  gem 'ZenTest'
+  gem 'autotest-growl'
+  gem 'autotest-fsevent'
+end
+

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Igor Anic
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,190 @@
+# mssql
+
+Command line tool for connecting to Microsoft Sql Server from Mac or Linux.
+
+## Installation
+
+    gem install mssql
+
+## Usage
+
+  Usage: mssql <options>
+  
+    -c, --connection CONNECTION      use connection defined in ~/.mssql
+    -h, --host HOST                  server host
+    -u, --username USERNAME          username
+    -p, --password PASSWORD          password
+    -d, --database DATABASE          use database name
+    -i, --input_file INPUT_FILE      input file name
+    -q, --query QUERY                run query and exit
+    -?, --help                       show syntax summary
+
+Connect to database:
+
+    $ mssql -h host -u user -p password -d database
+
+Use connection from config file (~/.mssql):
+
+    $ mssql -c alfa
+    
+Execute query and exit:
+
+    $ mssql -c alfa -q "select * from authors"
+
+
+### Commands
+
+  Commands are prefixed with dot. Currently recognized commands are:
+  
+  * .find
+  * .explain 
+  * .exit
+
+#### query
+
+    pubs> use pubs
+    pubs> select top 5 * from authors
+    pubs> go
+    
+    +-------------+----------+----------+--------------+----------------------+------------+-------+-------+----------+
+    | au_id       | au_lname | au_fname | phone        | address              | city       | state | zip   | contract |
+    +-------------+----------+----------+--------------+----------------------+------------+-------+-------+----------+
+    | 172-32-1176 | White    | Johnson  | 408 496-7223 | 10932 Bigge Rd.      | Menlo Park | CA    | 94025 | true     |
+    | 213-46-8915 | Green    | Marjorie | 415 986-7020 | 309 63rd St. #411    | Oakland    | CA    | 94618 | true     |
+    | 238-95-7766 | Carson   | Cheryl   | 415 548-7723 | 589 Darwin Ln.       | Berkeley   | CA    | 94705 | true     |
+    | 267-41-2394 | O'Leary  | Michael  | 408 286-2428 | 22 Cleveland Av. #14 | San Jose   | CA    | 95128 | true     |
+    | 274-80-9391 | Straight | Dean     | 415 834-2919 | 5420 College Av.     | Oakland    | CA    | 94609 | true     |
+    +-------------+----------+----------+--------------+----------------------+------------+-------+-------+----------+
+    5 rows affected
+    
+#### .find
+
+ .find will list all database objects:
+ 
+    pubs> .find
+    +-----------+--------+--------------------------+
+    | type      | schema | name                     |
+    +-----------+--------+--------------------------+
+    | table     | dbo    | authors                  |
+    | table     | dbo    | discounts                |
+    | table     | dbo    | employee                 |
+    | table     | dbo    | jobs                     |
+    | table     | dbo    | pub_info                 |
+    | table     | dbo    | publishers               |
+    | table     | dbo    | roysched                 |
+    | table     | dbo    | sales                    |
+    | table     | dbo    | stores                   |
+    | table     | dbo    | sysdiagrams              |
+    | table     | dbo    | titleauthor              |
+    | table     | dbo    | titles                   |
+    | view      | dbo    | titleview                |
+    | procedure | dbo    | byroyalty                |
+    | procedure | dbo    | reptq1                   |
+    | procedure | dbo    | reptq2                   |
+    | procedure | dbo    | reptq3                   |
+    | procedure | dbo    | sp_alterdiagram          |
+    | procedure | dbo    | sp_creatediagram         |
+    | procedure | dbo    | sp_dropdiagram           |
+    | procedure | dbo    | sp_helpdiagramdefinition |
+    | procedure | dbo    | sp_helpdiagrams          |
+    | procedure | dbo    | sp_renamediagram         |
+    | procedure | dbo    | sp_upgraddiagrams        |
+    | function  | dbo    | fn_diagramobjects        |
+    +-----------+--------+--------------------------+
+    25 rows affected
+    
+  or objects by type (tables/views/procedures/functions):
+  
+    pubs> .find tables
+    +-------+--------+-------------+
+    | type  | schema | name        |
+    +-------+--------+-------------+
+    | table | dbo    | authors     |
+    | table | dbo    | discounts   |
+    | table | dbo    | employee    |
+    | table | dbo    | jobs        |
+    | table | dbo    | pub_info    |
+    | table | dbo    | publishers  |
+    | table | dbo    | roysched    |
+    | table | dbo    | sales       |
+    | table | dbo    | stores      |
+    | table | dbo    | sysdiagrams |
+    | table | dbo    | titleauthor |
+    | table | dbo    | titles      |
+    +-------+--------+-------------+
+    12 rows affected    
+    
+  
+#### .explain 
+
+  .explain for procedures/functions/views returns sql body, for tables executes sp_help [table name]
+
+    iow> .explain reptq1
+    CREATE PROCEDURE reptq1 AS
+    select 
+    	case when grouping(pub_id) = 1 then 'ALL' else pub_id end as pub_id, 
+    	avg(price) as avg_price
+    from titles
+    where price is NOT NULL
+    group by pub_id with rollup
+    order by pub_id
+
+#### .exit
+
+  Use it to close mssql.
+
+## Configuration file ~/.mssql
+
+ Mssql tries to read ~/.mssql config file on start up. 
+ Config file is in yaml format.
+ 
+ Example config file:
+ 
+    alfa: &alfa
+      name: alfa
+      host: alfa_host
+      username: my_username
+      password: my_password
+      database: pubs
+    beta: 
+      name: beta
+      host: beta_host
+      username: domain\domain_user
+      password: password
+      database: Northwind
+      
+    default_connection:
+       <<: *alfa
+     
+  With config file you can start mssql using -c argument to specify connection:
+  
+    mssql -c alfa
+    
+  If default connection exists it will used if no arguments specified:
+  
+    mssql
+    alfa> _
+    
+## Emacs usage
+ 
+  I build this for use with Emacs sql-mode. Add ./emacs/sql_ms.el to your init.el:
+  
+    (add-to-list 'load-path "~/Work/mssql/emacs/")
+    (require 'sql-ms)
+
+  Create ~/.mssql file with connections you want to use. 
+  In Emacs press F12 or M-x enter-db-mode to open two buffers: \*queries\* and \*SQL\*. Write your queries in queries buffer and watch results in SQL buffer.
+  
+  Keybindings:
+  
+  * Ctrl-c c - sends region from queries to SQL buffer
+  * Ctrl-c b - sends whole buffer
+  * Ctrl-c Ctrl-l a - list database objects in new buffer
+  * Ctrl-c Ctrl-l t - .explain in new buffer
+
+## Thanks
+
+  * Ken Collins for creating [tiny_tds](https://github.com/rails-sqlserver/tiny_tds)
+  * All the kind people who are contributing to [freetds](http://www.freetds.org/)
+  * Michael Mauger and others for developing [sql.el](http://git.savannah.gnu.org/cgit/emacs.git/tree/lisp/progmodes/sql.el)
+

data/Rakefile

@@ -0,0 +1,9 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"
+require "rake/testtask"
+
+task :default => [:test] 
+Rake::TestTask.new do |t|
+  t.pattern = "test/test_*.rb"
+#  test.verbose = true   
+end

data/bin/mssql

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+require 'pathname'
+$: << File.join(File.dirname(Pathname.new(__FILE__).realpath), "..")
+require 'lib/mssql'
+
+controller = Controller.new
+controller.run

data/emacs/sql-ms.el

@@ -0,0 +1,120 @@
+(require 'sql)
+
+(defcustom sql-conn ""
+  "Default mssql connection."
+  :type 'string
+  :group 'SQL
+  :safe 'stringp)
+
+;; customize ms sql mode
+(setq sql-ms-program "mssql.rb")
+(setq sql-ms-options '())
+(setq sql-ms-login-params '(conn))
+
+(defun my-sql-comint-ms (product options)
+  "Create comint buffer and connect to Microsoft SQL Server."
+  ;; Put all parameters to the program (if defined) in a list and call
+  ;; make-comint.
+  (setq sql-conn
+        (sql-get-login-ext "Connection: " sql-conn nil nil)
+        )
+  (let ((params options))
+    (if (not (string= "" sql-conn))
+        (setq params (append (list "-c" sql-conn) params)))
+    (sql-comint product params)))
+
+(sql-set-product-feature 'ms :sqli-comint-func 'my-sql-comint-ms)
+
+;;sql mode hooks
+(add-hook 'sql-mode-hook (lambda () 
+                           (setq truncate-lines t)
+                           (sql-highlight-ms-keywords)
+                           (setq sql-send-terminator t)
+                           (setq comint-process-echoes t)
+                           (setq tab-width 2)))
+(add-hook 'sql-interactive-mode-hook (lambda () 
+                                       (setq truncate-lines t)
+                                       (setq comint-process-echoes t)
+                                       (text-scale-decrease 1)))
+
+;; opening sql buffers
+(defvar db-buffer "queries")
+(defsubst db-get-buffer () (concat "*" db-buffer "*"))
+
+(defun enter-db-mode ()
+  (interactive)
+  (sql-ms)
+  (delete-other-windows)
+  (split-window-horizontally)
+  (switch-to-buffer-other-window (db-get-buffer) t)
+  (sql-mode)
+                                        ;(sql-highlight-ms-keywords)
+  (swap-windows)
+  (other-window -1)
+  )
+
+(global-set-key [f12] 'enter-db-mode)
+
+(sql-set-product-feature 'ms :list-all ".find")
+(sql-set-product-feature 'ms :list-table ".explain %s")
+(sql-set-product-feature 'ms :prompt-regexp "^\\w*> ")
+(sql-set-product-feature 'ms :completion-object 'sql-ms-completion-object)
+(sql-set-product-feature 'ms :completion-column 'sql-ms-completion-object)
+
+(defun sql-ms-completion-object (sqlbuf schema)
+  (sql-redirect-value
+   (sql-find-sqli-buffer)
+   (concat
+    "select s.name + '.' +	o.name"
+    "	from sys.objects o"
+    "	inner join sys.schemas s on o.schema_id = s.schema_id"
+    "	where"
+    "		type in ('P', 'V', 'U', 'TF', 'IF', 'FN' )"
+    "		and  is_ms_shipped = 0"
+    "\ngo"
+    )
+   "^| \\([a-zA-Z0-9_\.]+\\).*|$" 1)
+)
+
+;;fixing a function from sql.el
+(defun sql-try-completion (string collection &optional predicate)
+  (when sql-completion-sqlbuf
+      (with-current-buffer sql-completion-sqlbuf
+        (let ((schema (and (string-match "\\`\\(\\sw\\(:?\\sw\\|\\s_\\)*\\)[.]" string)
+                           (downcase (match-string 1 string)))))
+
+          ;; If we haven't loaded any object name yet, load local schema
+          (unless sql-completion-object
+            (sql-build-completions nil))
+
+          ;; If they want another schema, load it if we haven't yet
+          (when schema
+            (let ((schema-dot (concat schema "."))
+                  (schema-len (1+ (length schema)))
+                  (names sql-completion-object)
+                  has-schema)
+
+              (while (and (not has-schema) names)
+                (setq has-schema (and
+                                  (>= (length (car names)) schema-len)
+                                  (string= schema-dot
+                                           (downcase (substring (car names)
+                                                                0 schema-len))))
+                      names (cdr names)))
+              (unless has-schema
+                (sql-build-completions schema)))))
+
+        (cond
+         ((not predicate)
+          (try-completion string sql-completion-object))         
+         ((eq predicate t)
+          (all-completions string sql-completion-object))
+         ((eq predicate 'lambda)
+          (test-completion string sql-completion-object))
+         ;;ianic added this condition
+         ((eq predicate 'metadata)
+          (test-completion string sql-completion-object))
+         ((eq (car predicate) 'boundaries)
+          (completion-boundaries string sql-completion-object nil (cdr predicate)))))))
+
+(provide 'sql-ms)

data/lib/command.rb

@@ -0,0 +1,133 @@
+class Command
+
+  def initialize(command, connection)
+    @connection = connection
+    @command = command.strip.downcase
+    @processed = false
+  end
+  
+  attr_reader :processed
+
+  def self.go?(command)
+    command.strip.downcase == "go"
+  end
+
+  def go?
+    @command == "go" || @command.start_with?(".use")
+  end
+
+  def exit?
+    @command == ".exit" || @command == ".quit"
+  end
+  
+  def exec
+    parse
+    @processed || go? || exit?
+  end
+
+  def parse    
+    cp = CommandParser.new(@command)
+    @processed = cp.is_command?
+    return unless cp.is_command?
+    case cp.command
+      when :find
+      types = nil
+      p = cp.params[0]
+      if p
+        types = "'U'" if p.start_with?("table")
+        types = "'V'" if p.start_with?("view")
+        types = "'P'" if p.start_with?("procedure")
+        types = "'TF', 'IF', 'FN'" if p.start_with?("function")
+      end
+      find(types, types.nil? ? cp.params[0].to_s + cp.params[1].to_s : cp.params[1])  
+      when :explain
+      if cp.params[1].nil? || cp.params[1].empty?
+        schema = 'dbo'
+        object = cp.params[0]
+      else
+        schema = cp.params[0]
+        object = cp.params[1]
+      end
+      explain_object schema, object
+      when :use
+      @connection.use cp.params[0]
+    end
+  end
+
+  def find(types, name)
+    types = "'TF', 'IF', 'FN', 'P', 'V', 'U'" if types.nil?
+    sql = <<-EOS
+    	select 
+    		--db_name() [database],
+    		case when type in ('TF', 'IF', 'FN') then 'function'
+    			when type in ('P') then 'procedure'
+    			when type in ('V') then 'view'
+    			when type in ('U') then 'table'
+    			else '???'
+    		end type,
+    		s.name [schema],
+    		o.name
+    	from sys.objects o
+    	inner join sys.schemas s on o.schema_id = s.schema_id
+    	where 
+    		type in ( #{types} )
+    		and is_ms_shipped = 0
+        
+        and s.name + "." + o.name like '%#{name}%'
+    	order by 
+    		case when o.schema_id = 1 then 0 else 1 end, --prvo dbo schema
+    		case when type in ('TF', 'IF', 'FN') then 4
+    			when type in ('P') then 3
+    			when type in ('V') then 2
+    			when type in ('U') then 1
+    			else 100
+    		end,		
+    		s.name, o.name
+EOS
+    QueryOutput.new(@connection, sql).show
+    @processed = true
+  end
+
+  def show_tables
+    sql = <<-EOS
+      select schemas.name + '.' +  tables.name table_name
+      from sys.tables 
+      inner join sys.schemas on schemas.schema_id = tables.schema_id
+      order by 1
+EOS
+    QueryOutput.new(@connection, sql).show
+    @processed = true
+  end
+
+  def explain_object(schema, object)
+    sql = <<-EOS
+declare @object_id int, @type varchar(2), @name varchar(255)
+
+select @object_id = o.object_id, @type = o.type, @name = s.name + '.' + o.name
+from sys.objects o
+inner join sys.schemas s on o.schema_id = s.schema_id
+where s.name = '#{schema}' and o.name = '#{object}'
+
+--finding object with like in name, possibly confusing, so comment out
+--if @object_id is null
+--  select top 1 @object_id = o.object_id, @type = o.type, @name = s.name + '.' + o.name
+--  from sys.objects o
+--  inner join sys.schemas s on o.schema_id = s.schema_id
+--  where s.name = '#{schema}' and o.name like '#{object}%'
+--  order by s.schema_id, o.name
+  
+if @object_id is not null
+  if @type = 'U'
+    exec sp_help @name
+  else
+    select text from syscomments where id = @object_id
+else
+    select 'object not found'
+EOS
+
+    QueryOutput.new(@connection, sql).show_text_or_table
+    @processed = true
+  end
+
+
+end