From d20501137a61051b43e7c934c6fa94e0d530a010 Mon Sep 17 00:00:00 2001
From: KT lu <ljh575@gmail.com>
Date: Wed, 30 Mar 2011 00:00:00 +0000
Subject: [PATCH] Version 0.01: Initial upload

---
 README                        |  10 +++
 plugin/cmdline_completion.vim | 162 ++++++++++++++++++++++++++++++++++
 2 files changed, 172 insertions(+)
 create mode 100644 README
 create mode 100644 plugin/cmdline_completion.vim

diff --git a/README b/README
new file mode 100644
index 0000000..6d50592
--- /dev/null
+++ b/README
@@ -0,0 +1,10 @@
+This is a mirror of http://www.vim.org/scripts/script.php?script_id=3531
+
+This script let you can use CTRL-P/N to complete word in cmdline mode just like in insert mode.
+it also work fine with large file.
+
+you can map other keys instead of <C-P/N> like this in your vimrc: 
+               cmap <C-J> <Plug>CmdlineCompletionBackward
+               cmap <C-K> <Plug>CmdlineCompletionForward
+
+
diff --git a/plugin/cmdline_completion.vim b/plugin/cmdline_completion.vim
new file mode 100644
index 0000000..c217dad
--- /dev/null
+++ b/plugin/cmdline_completion.vim
@@ -0,0 +1,162 @@
+" File:        cmdline_completion.vim
+" Author:      K1n9Ti9er <ljh575@gmail.com>
+" Last Change: March 30 , 2011
+" Version:     0.01
+"
+" Description: This script let you can use CTRL-P/N to complete 
+"              word in cmdline mode just like in insert mode.
+"
+"              You can use other keys instead of <C-P/N> like 
+"              this : 
+"                  cmap <C-J> <Plug>CmdlineCompletionBackward
+"                  cmap <C-K> <Plug>CmdlineCompletionForward
+"
+" Install:     Drag this file into vim plugin directory.
+"           
+"
+
+if exists("loaded_cmdline_completion") || &cp || version < 700
+    finish
+endif
+
+let loaded_cmdline_completion = 1
+
+"""""""""""""""""""""""""""""""""""""""""""""
+" map key
+"
+if !hasmapto('<Plug>CmdlineCompletionBackward','c')
+    cmap <unique> <silent> <C-P> <Plug>CmdlineCompletionBackward
+endif
+
+if !hasmapto('<Plug>CmdlineCompletionForward','c')
+    cmap <unique> <silent> <C-N> <Plug>CmdlineCompletionForward
+endif
+
+cnoremap <silent> <Plug>CmdlineCompletionBackward <C-\>e<SID>CmdlineCompletion(1)<CR>
+cnoremap <silent> <Plug>CmdlineCompletionForward  <C-\>e<SID>CmdlineCompletion(0)<CR>
+
+"""""""""""""""""""""""""""""""""""""""""""""
+" auto completion function ,
+" return new cmdline with matched word
+function! s:CmdlineCompletion(backword)
+
+    let cmdline = getcmdline()
+    let index = match(cmdline, '\w\+$')
+    let cmd = strpart(cmdline, 0, index)
+
+    " Not a word , skip completion
+    if index < 0 
+        return cmdline
+    endif
+
+    " s:vars initial if first time or changed cmdline.
+    if !exists("s:cc_newcmdline") || cmdline != s:cc_newcmdline
+        let s:cc_word_prefix = strpart(cmdline, index)
+        let s:cc_word_list = [s:cc_word_prefix]
+        let s:cc_word_index = 0
+        let s:cc_newcmdline = "" 
+        let s:cc_pos_forward = [0,0]
+        let s:cc_pos_backward = [0,0]
+        let s:cc_search_status = 1
+    endif
+
+    "
+    if a:backword
+        let s:cc_word_index -= 1
+    else
+        let s:cc_word_index += 1
+    endif
+
+    " try to search new word if index out of list range with cc_search_status
+    if s:cc_search_status && ( s:cc_word_index < 0 
+                \ || s:cc_word_index >= len(s:cc_word_list))
+        let save_cursor = getpos('.')
+        let s:cc_search_status = s:CmdlineSearch(a:backword)
+        call setpos('.', save_cursor)
+    endif
+
+    " correct index depend on cc_search_status
+    if s:cc_search_status
+        if s:cc_word_index < 0 
+            let s:cc_word_index = 0 
+        endif
+    else
+        if s:cc_word_index < 0 
+            let s:cc_word_index = len(s:cc_word_list) - 1
+        elseif s:cc_word_index >= len(s:cc_word_list)
+            let s:cc_word_index = 0
+        endif
+    endif
+
+    " get word from list
+    let word = get(s:cc_word_list, s:cc_word_index, s:cc_word_prefix)
+
+    " new cmdline
+    let s:cc_newcmdline = cmd . word
+
+    " overcome map silent
+    call feedkeys(" \<bs>")
+
+    return  s:cc_newcmdline
+
+endfunction
+
+
+"""""""""""""""""""""""""""""""""""""""""""""
+" search completion matched word, 
+" return 0 if match none, else return 1 .
+function! s:CmdlineSearch(backward)
+
+    let position = a:backward ? s:cc_pos_backward : s:cc_pos_forward
+
+    " set last search position
+    call cursor(position)
+
+    " search ...
+    let pattern = '\<' . s:cc_word_prefix . '\w\+\>'
+    let flag = a:backward ? 'web' : 'we'
+
+    " loop search until match unique or none
+    let position = searchpos(pattern, flag)
+    while position != [0,0]
+
+        if a:backward
+            let s:cc_pos_backward = position
+        else
+            let s:cc_pos_forward = position
+        endif
+
+        if s:cc_pos_forward == [0,0] || s:cc_pos_backward == [0,0]
+            " store first match position
+            let s:cc_pos_forward = position
+            let s:cc_pos_backward = position
+        elseif s:cc_pos_forward == s:cc_pos_backward
+            " wrapscan around the whole file
+            return 0
+        endif
+
+        " get matched word under cursor
+        let word = expand("<cword>")
+
+        " add to list if not exists
+        if count(s:cc_word_list, word) == 0 
+            if a:backward
+                call insert(s:cc_word_list, word)
+            else
+                call add(s:cc_word_list, word)
+            endif
+            return 1
+        endif
+
+        " search again
+        let position = searchpos(pattern, flag)
+
+    endwhile
+
+    return 0 
+
+endfunction
+
+"""""""""""""""""""""""""""""""""""""""""""""
+" vim:sts=4:sw=4:ft=vim
+