-*autocmd.txt* For Vim version 7.0aa. Last change: 2004 Jun 30
+*autocmd.txt* For Vim version 7.0aa. Last change: 2004 Jul 01
VIM REFERENCE MANUAL by Bram Moolenaar
*FileEncoding*
FileEncoding Obsolete. It still works and is equivalent
to |EncodingChanged|.
+ *ColorScheme*
+ColorScheme After loading a color scheme. |:colorscheme|
*RemoteReply*
RemoteReply When a reply from a Vim that functions as
server was received |server2client()|.
-*cmdline.txt* For Vim version 7.0aa. Last change: 2004 Mar 31
+*cmdline.txt* For Vim version 7.0aa. Last change: 2004 Jul 01
VIM REFERENCE MANUAL by Bram Moolenaar
*cmdline-history* *history*
The command-lines that you enter are remembered in a history table. You can
-recall them with the up and down cursor keys. There are actually four
+recall them with the up and down cursor keys. There are actually five
history tables:
- one for ':' commands
- one for search strings
- one for expressions
- one for input lines, typed for the |input()| function.
+- one for debug mode commands
These are completely separate. Each history can only be accessed when
entering the same type of line.
Use the 'history' option to set the number of lines that are remembered
s[earch] or / search string history
e[xpr] or = expression register history
i[nput] or @ input line history
+ d[ebug] or > debug command history
a[ll] all of the above
{not in Vi}
-*gui_x11.txt* For Vim version 7.0aa. Last change: 2004 Mar 16
+*gui_x11.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
command line argument).
==============================================================================
-7. KDE version *gui-kde* *KDE* *KVim*
+7. KDE version *gui-kde* *kde* *KDE* *KVim*
The KDE version of Vim works with KDE 2.x and KDE 3.x.
KVim (name code for gui-kde) does not use traditional X settings for its
Send comments, patches and suggestions to:
Chi-Deok Hwang <hwang@mizi.co.kr>
- Nam SungHyun <namsh@lge.com>
+ Nam SungHyun <namsh@kldp.org>
vim:tw=78:ts=8:ft=help:norl:
-*index.txt* For Vim version 7.0aa. Last change: 2004 Jun 16
+*index.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
|i_CTRL-V_digit| CTRL-V {number} insert three digit decimal number as a single
byte.
|i_CTRL-W| CTRL-W delete word before the cursor
-|i_CTRL-X| CTRL-X {mode} enter CTRL-X sub mode, see below
+|i_CTRL-X| CTRL-X {mode} enter CTRL-X sub mode, see |i_CTRL-X_index|
|i_CTRL-Y| CTRL-Y insert the character which is above the cursor
|i_CTRL-Z| CTRL-Z when 'insertmode' set: suspend Vim
|i_<Esc>| <Esc> end insert mode (unless 'insertmode' set)
|i_<MouseUp>| <MouseUp> scroll three lines upwards
|i_<S-MouseUp>| <S-MouseUp> scroll a full page upwards
-commands in CTRL-X submode
+commands in CTRL-X submode *i_CTRL-X_index*
|i_CTRL-X_CTRL-D| CTRL-X CTRL-D complete defined identifiers
|i_CTRL-X_CTRL-E| CTRL-X CTRL-E scroll up
|i_CTRL-X_CTRL-P| CTRL-X CTRL-P previous completion
|i_CTRL-X_CTRL-T| CTRL-X CTRL-T complete identifiers from thesaurus
|i_CTRL-X_CTRL-Y| CTRL-X CTRL-Y scroll down
+|i_CTRL-X_CTRL-U| CTRL-X CTRL-U complete with 'completefunc'
+|i_CTRL-X_CTRL-V| CTRL-X CTRL-V complete like in : command line
|i_CTRL-X_CTRL-]| CTRL-X CTRL-] complete tags
{not available when compiled without the +insert_expand feature}
tag command action in Normal mode ~
------------------------------------------------------------------------------
+|v_aquote| a" double quoted string
+|v_a'| a' single quoted string
|v_a(| a( same as ab
|v_a)| a) same as ab
|v_a<| a< "a <>" from '<' to the matching '>'
|v_aW| aW "a WORD" (with white space)
|v_a[| a[ "a []" from '[' to the matching ']'
|v_a]| a] same as a[
+|v_a`| a` string in backticks
|v_ab| ab "a block" from "[(" to "])" (with braces)
|v_ap| ap "a paragraph" (with white space)
|v_as| as "a sentence" (with white space)
|v_aw| aw "a word" (with white space)
|v_a{| a{ same as aB
|v_a}| a} same as aB
+|v_iquote| i" double quoted string without the quotes
+|v_i'| i' single quoted string without the quotes
|v_i(| i( same as ib
|v_i)| i) same as ib
|v_i<| i< "inner <>" from '<' to the matching '>'
|v_iW| iW "inner WORD"
|v_i[| i[ "inner []" from '[' to the matching ']'
|v_i]| i] same as i[
+|v_i`| i` string in backticks without the backticks
|v_ib| ib "inner block" from "[(" to "])"
|v_ip| ip "inner paragraph"
|v_is| is "inner sentence"
-*insert.txt* For Vim version 7.0aa. Last change: 2004 Jun 24
+*insert.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
completion, for example: >
:imap <Tab> <C-X><C-V>
+User defined completing *compl-function*
+
+Completion is done by a function that can be defined by the user with the
+'completefunc' option. See the option for how the function is called and an
+example.
+
+ *i_CTRL-X_CTRL-U*
+CTRL-X CTRL-U Guess what kind of item is in front of the cursor and
+ find the first match for it.
+ CTRL-U or
+ CTRL-N Use the next match. This match replaces the previous
+ one.
+
+ CTRL-P Use the previous match. This match replaces the
+ previous one.
+
+
Completing keywords from different sources *compl-generic*
*i_CTRL-N*
Contributions specifically for the multi-byte features by:
Chi-Deok Hwang <hwang@mizi.co.kr>
- Nam SungHyun <namsh@lge.com>
+ Nam SungHyun <namsh@kldp.org>
K.Nagano <nagano@atese.advantest.co.jp>
Taro Muraoka <koron@tka.att.ne.jp>
Yasuhiro Matsumoto <mattn@mail.goo.ne.jp>
-*motion.txt* For Vim version 7.0aa. Last change: 2004 Jun 17
+*motion.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
|[{|).
When used in Visual mode it is made characterwise.
+a" *v_aquote* *aquote*
+a' *v_a'* *a'*
+a` *v_a`* *a`*
+ "a quoted string". Selects the text from the previous
+ quote until the next quote. The 'quoteescape' is used
+ to skip escaped quotes.
+ When the cursor starts on a quote, Vim will figure out
+ which quote pairs form a string by searching from the
+ start of the line.
+ Any trailing or leading white space is included.
+ When used in Visual mode it is made characterwise.
+ Repeating this object in Visual mode another string is
+ included. A count is currently not used.
+
+i" *v_iquote* *iquote*
+i' *v_i'* *i'*
+i` *v_i`* *i`*
+ Like a", a' and a`, but exclude the quotes and
+ repeating won't extend the Visual selection.
+
When used after an operator:
For non-block objects:
For the "a" commands: The operator applies to the object and the white
-*options.txt* For Vim version 7.0aa. Last change: 2004 Jun 28
+*options.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
based expansion (eg dictionary |i_CTRL-X_CTRL-K|, included patterns
|i_CTRL-X_CTRL-I|, tags |i_CTRL-X_CTRL-]| and normal expansions)
+ *'completefunc'* *'cfu'*
+'completefunc' 'cfu' string (default: empty)
+ local to buffer
+ {not in Vi}
+ This option specifies a completion function to be used for CTRL-X
+ CTRL-X. The function will be invoked with four arguments:
+ a:line the text of the current line
+ a:base the text with which matches should match
+ a:col column in a:line where the cursor is, first column is
+ zero
+ a:findstart either 1 or 0
+ When the a:findstart argument is 1, the function must return the
+ column of where the completion starts. It must be a number between
+ zero and "a:col". This involves looking at the characters in a:line
+ before column a:col and include those characters that could be part of
+ the completed item.
+ When the a:findstart argument is 0 the function must return a string
+ with the matching words, separated by newlines. When there are no
+ matches return an empty string.
+ An example that completes the names of the months: >
+ fun! CompleteMonths(line, base, col, findstart)
+ if a:findstart
+ " locate start column of word
+ let start = a:col
+ while start > 0 && a:line[start - 1] =~ '\a'
+ let start = start - 1
+ endwhile
+ return start
+ else
+ " find months matching with "a:base"
+ let res = "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
+ if a:base != ''
+ let res = substitute(res, '\c\<\(\(' . a:base . '.\{-}\>\)\|.\{-}\>\)', '\2', 'g')
+ endif
+ let res = substitute(res, ' \+', "\n", 'g')
+ return res
+ endif
+ endfun
+ set completefunc=CompleteMonths
+< Note that a substitute() function is used to reduce the list of
+ possible values and remove the ones that don't match the base. The
+ part before the "\|" matches the base, the part after it is used
+ when there is no match. The "\2" in the replacement is empty if the
+ part before the "\|" does not match.
+
*'confirm'* *'cf'* *'noconfirm'* *'nocf'*
'confirm' 'cf' boolean (default off)
global
hidden although the 'hidden' option is off: When the buffer is
modified, 'autowrite' is off or writing is not possible, and the '!'
flag was used. See also |windows.txt|.
+ To only make one buffer hidden use the 'bufhidden' option.
This option is set for one command with ":hide {command}" |:hide|.
WARNING: It's easy to forget that you have changes in hidden buffers.
Think twice when using ":q!" or ":qa!".
precedes:c Character to show in the first column, when 'wrap'
is off and there is text preceding the character
visible in the first column.
+ nbsp:c Character to show for non-breakable space. Left to
+ blank when omitted.
The characters ':' and ',' should not be used. UTF-8 characters can
be used when 'encoding' is "utf-8", otherwise only printable
Examples: >
:set lcs=tab:>-,trail:-
- :set lcs=tab:>-,eol:<
+ :set lcs=tab:>-,eol:<,nbsp:%
:set lcs=extends:>,precedes:<
< The "NonText" highlighting will be used for "eol", "extends" and
- "precedes". "SpecialKey" for "tab" and "trail".
+ "precedes". "SpecialKey" for "nbsp", "tab" and "trail".
*'lpl'* *'nolpl'* *'loadplugins'* *'noloadplugins'*
'loadplugins' 'lpl' boolean (default on)
Example: >
:set printoptions=paper:letter,duplex:off
<
+ *'quoteescape''* *'qe'*
+'quoteescape' 'qe' string (default "\")
+ local to buffer
+ {not in Vi}
+ The characters that are used to escape quotes in a string. Used for
+ objects like a', a" and a` |a'|.
+ When one of the characters in this option is found inside a string,
+ the following character will be skipped. The default value makes the
+ text "foo\"bar\\" considered to be one string.
+
*'readonly'* *'ro'* *'noreadonly'* *'noro'*
'readonly' 'ro' boolean (default off)
local to buffer
5. Ex Commands.........................................|netrw-ex|
6. Variables and Options...............................|netrw-var|
7. Remote Directory Browser............................|netrw-browse|
+ ?..........Help....................................|netrw-help|
+ <cr>.......Browsing................................|netrw-cr|
+ <c-l>......Refreshing the Listing..................|netrw-c-l|
+ <del>......Removing Files or Directories...........|netrw-delete|
+ D..........Removing Files or Directories...........|netrw-D|
+ R..........Renaming Files or Directories...........|netrw-R|
+ -..........Going Up................................|netrw--|
+ a..........Hiding Files or Directories.............|netrw-a|
+ h..........Edit File/Directory Hiding..............|netrw-h|
+ o..........Browsing with a Horizontal Split........|netrw-o|
+ r..........Reversing Sorting Order.................|netrw-r|
+ s..........Selecting Sorting Style.................|netrw-s|
+ v..........Browsing with a Vertical Split..........|netrw-v|
+ x..........Customizing Browsing....................|netrw-x|
8. Debugging...........................................|netrw-debug|
9. History.............................................|netrw-history|
10. Credits.............................................|netrw-credits|
g:netrw_sftp_cmd variable ="sftp" >
-------------------------------------------------------------------------
<
+ *netrw-ftp*
The first two options both help with certain ftp's that give trouble otherwise.
In order to best understand how to use these options if ftp is giving you
troubles, a bit of discussion follows on how netrw does ftp reads.
If your ftp doesn't accept the "user" command and immediately just demands
a userid, then try putting "let netrw_ftp=1" in your <.vimrc>.
+ *netrw-cadaver*
+To handle the SSL certificate dialog for untrusted servers, one may pull
+down the certificate and place it into /usr/ssl/cert.pem. This operation
+renders the server treatment as "trusted".
+
*netrw-fixup*
If your ftp for whatever reason generates unwanted lines (such as AUTH
messages) you may write a NetReadFixup(tmpfile) function:
>
==============================================================================
-7. Remote Directory Browser *netrw-browse* *netrw-dir* *netrw-list*
+7. Remote Directory Browser *netrw-browse* *netrw-dir* *netrw-list* *netrw-help*
>
- ------- -----------
Command Explanation
------- -----------
+ ? Causes Netrw to issue help
<cr> Netrw will enter the directory or read the file
<del> Netrw will attempt to remove the file/directory
+ <c-l> Causes Netrw to refresh the directory listing
D Netrw will attempt to remove the file(s)/directory(ies)
R Netrw will attempt to rename the file(s)/directory(ies)
- Makes Netrw go up one directory
a Show all of a directory (temporarily ignore g:netrw_list_hide)
+ h Edit file hiding list
o Enter the file/directory under the cursor in a new browser
window. A horizontal split is used.
+ r Reverse sorting order
+ s Select sorting style: by name, time, or file size
v Enter the file/directory under the cursor in a new browser
window. A vertical split is used.
x Apply a function to a file.
- <c-l> Causes Netrw to refresh the directory listing
- ? Causes Netrw to issue help
<
*netrw-browse-var*
>
g:netrw_winsize specify initial size of new o/v windows
g:netrw_list_hide comma separated list of patterns for
hiding files
+ g:netrw_sort_by sort by "name", "time", or "size"
+ g:netrw_sort_direction sorting direction: "normal" or "reverse"
+ g:netrw_sort_sequence when sorting by name, first sort by the
+ comma-separated pattern sequence
<
+INTRODUCTION TO REMOTE DIRECTORY BROWSING
+
Netrw supports the browsing of directories on remote hosts, including
-generating listing directories, entering directories, editing files
-therein, deleting files/directories, and moving (renaming) files and
-directories.
+generating listing directories, entering directories, editing files therein,
+deleting files/directories, and moving (renaming) files and directories. The
+Netrw browser generally implements the file explorer methods but for remote
+directories, although details (such as pertinent global variable names)
+necessarily differ.
To enter the netrw directory browser, simply attempt to read a "file" with a
trailing slash and it will be interpreted as a request to list a directory:
vim [protocol]://[user@]hostname/path/
-Netrw will modify the command in g:netrw_list_cmd to perform the directory
+
+REFRESHING THE LISTING *netrw-c-l*
+
+To refresh the directory listing, press ctrl-l (<c-l>) or hit the <cr>
+when atop the ./ directory entry in the listing.
+
+
+GOING UP *netrw--*
+
+To go up a directory, press - or his the <cr> when atop the ../ directory
+entry in the listing.
+
+Netrw will modify the command in *g:netrw_list_cmd* to perform the directory
listing operation. By default the command is:
ssh HOSTNAME ls -FLa
preferred. The NetList function which implements remote directory
browsing expects that directories will be flagged by a trailing slash.
+
+BROWSING *netrw-cr*
+
Browsing is simple: move the cursor onto a file or directory of interest.
Hitting the <cr> (the return key) will select the file or directory.
Directories will themselves be listed, and files will be opened using the
protocol given in the original read request.
- *netrw-delete* *netrw-remove*
-Deleting/removing files and directories involves moving the cursor to the
-file/directory to be deleted and pressing "D". Directories must be empty
-first before they can be successfully removed. If the directory is a softlink
-to a directory, then netrw will make two requests to remove the directory
-before succeeding. Netrw will ask for confirmation before doing the
-removal(s). You may select a range of lines with the "V" command (visual
-selection), and then pressing "D".
+REMOVING FILES OR DIRECTORIES *netrw-delete* *netrw-remove* *netrw-D*
-The g:netrw_rm_cmd, g:netrw_rmf_cmd, and g:netrw_rmdir_cmd variables are
-used to control the attempts to remove files and directories. The
-g:netrw_rm_cmd is used with files, and its default value is:
+Deleting/removing files and directories involves moving the cursor to the
+file/directory to be deleted and pressing "D". Directories must be empty first
+before they can be successfully removed. If the directory is a softlink to a
+directory, then netrw will make two requests to remove the directory before
+succeeding. Netrw will ask for confirmation before doing the removal(s).
+You may select a range of lines with the "V" command (visual selection),
+and then pressing "D".
+
+ *g:netrw_rm_cmd*
+The g:netrw_rm_cmd, g:netrw_rmf_cmd, and g:netrw_rmdir_cmd variables are used
+to control the attempts to remove files and directories. The g:netrw_rm_cmd
+is used with files, and its default value is:
g:netrw_rm_cmd: ssh HOSTNAME rm
-The g:netrw_rmdir_cmd is used with directories. Its default value is:
+ *g:netrw_rmdir_cmd*
+The g:netrw_rmdir_cmd variable is used to support the removal of directories.
+Its default value is:
g:netrw_rmdir_cmd: ssh HOSTNAME rmdir
+ *g:netrw_rmf_cmd*
If removing a directory fails with g:netrw_rmdir_cmd, netrw then will attempt
-to remove it again using the g:netrw_rmf_cmd. Its default value is:
+to remove it again using the g:netrw_rmf_cmd variable. Its default value is:
g:netrw_rmf_cmd: ssh HOSTNAME rm -f
- *netrw-x*
-
-The Netrw executor applies a user-defined function to a file, based on its
-extension. Of course, the handler function must exist for it to be called.
->
- Ex. mypgm.html x -> NetrwFileHandler_html("scp://user@host/some/path/mypgm.html")
-<
-See the <NetrwFileHandlers.vim>
- *netrw-move* *netrw-rename*
+RENAMING FILES OR DIRECTORIES *netrw-move* *netrw-rename*
Renaming/moving files and directories involves moving the cursor to the
file/directory to be moved (renamed) and pressing "R". You will then be
queried for where you want the file/directory to be moved. You may select a
range of lines with the "V" command (visual selection), and then pressing "R".
-The g:netrw_rename_cmd is used to implement renaming. By default its
+The g:netrw_rename_cmd variable is used to implement renaming. By default its
value is:
ssh HOSTNAME mv
- *netrw-list-hack*
+
+HIDING FILES OR DIRECTORIES *g:netrw_a* *g:netrw_list_hide*
+
+The "a" map lets the browser ignore the g:netrw_list_hide variable. Normally
+the g:netrw_list_hide variable holds a comma separated list of patterns which
+will be hidden (removed) from the directory listing.
+
+
+EDIT FILE OR DIRECTORY HIDING *netrw-h*
+
+The "h" map brings up a requestor allowing the user to change the
+file/directory hiding list.
+
+
+BROWSING WITH A HORIZONTALLY SPLIT WINDOW *netrw-o*
+
+Normally one enters a file or directory using the <cr>. However, the "o"
+map allows one to open a new window to hold the new directory listing or
+file. A horizontal split is used. (also see |netrw-v|)
+
+
+SELECTING SORTING STYLE *netrw-s*
+
+One may select the sorting style by name, time, or (file) size. The
+"s" map allows one to circulate among the three choices; the directory
+listing will automatically be refreshed to reflect the selected style.
+
+
+REVERSING SORTING ORDER *netrw-r*
+
+One may toggle between normal and reverse sorting order by pressing the
+"r" key.
+
+
+BROWSING WITH A VERTICALLY SPLIT WINDOW *netrw-v*
+
+Normally one enters a file or directory using the <cr>. However, the "v"
+map allows one to open a new window to hold the new directory listing or
+file. A vertical split is used. (also see |netrw-o|)
+
+
+CUSTOMIZING BROWSING WITH A USER FUNCTION *netrw-x*
+
+One may "enter" a file with a special handler, thereby firing up a browser or
+other application, for example, on a file by hitting the "x" key. Presumably
+one could write handlers that would start OpenOffice programs (oowriter), etc,
+based on the file's extension coupled with the user's hitting the "x" key atop
+the file.
+
+The Netrw executor applies a user-defined function to a file, based on its
+extension. Of course, the handler function must exist for it to be called!
+>
+ Ex. mypgm.html x ->
+ NetrwFileHandler_html("scp://user@host/some/path/mypgm.html")
+<
+See the <plugin/NetrwFileHandlers.vim> for an example of how to handle an html
+file with mozilla.
+
+
+IMPROVING DIRECTORY BROWSING *netrw-list-hack*
+
+Especially with the remote directory browser, constantly entering the password
+is tedious.
+
For Linux/Unix systems, I suggest looking into
http://hacks.oreilly.com/pub/h/66
-*quickref.txt* For Vim version 7.0aa. Last change: 2004 May 05
+*quickref.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
|'commentstring'| |'cms'| template for comments; used for fold marker
|'compatible'| |'cp'| behave Vi-compatible as much as possible
|'complete'| |'cpt'| specify how Insert mode completion works
+|'completefunc'| |'cfu'| function to be used for Insert mode completion
|'confirm'| |'cf'| ask what to do about unsaved/read-only files
|'conskey'| |'consk'| get keys directly from console (MS-DOS only)
|'copyindent'| |'ci'| make 'autoindent' use existing indent structure
|'printfont'| |'pfn'| name of the font to be used for :hardcopy
|'printheader'| |'pheader'| format of the header used for :hardcopy
|'printoptions'| |'popt'| controls the format of :hardcopy output
+|'quoteescape'| |'qe'| escape characters used in a string
|'readonly'| |'ro'| disallow writing the buffer
|'remap'| allow mappings to work recursively
|'report'| threshold for reporting nr. of lines changed
-*syntax.txt* For Vim version 7.0aa. Last change: 2004 Jun 16
+*syntax.txt* For Vim version 7.0aa. Last change: 2004 Jul 01
VIM REFERENCE MANUAL by Bram Moolenaar
:echo g:colors_name
< Doesn't work recursively, thus you can't use
":colorscheme" in a color scheme script.
+ After the color scheme has been loaded the
+ |ColorScheme| autocommand event is triggered.
:hi[ghlight] List all the current highlight groups that have
attributes set.
'cdpath' options.txt /*'cdpath'*
'cedit' options.txt /*'cedit'*
'cf' options.txt /*'cf'*
+'cfu' options.txt /*'cfu'*
'ch' options.txt /*'ch'*
'character' intro.txt /*'character'*
'charconvert' options.txt /*'charconvert'*
'commentstring' options.txt /*'commentstring'*
'compatible' options.txt /*'compatible'*
'complete' options.txt /*'complete'*
+'completefunc' options.txt /*'completefunc'*
'confirm' options.txt /*'confirm'*
'consk' options.txt /*'consk'*
'conskey' options.txt /*'conskey'*
'pt' options.txt /*'pt'*
'pvh' options.txt /*'pvh'*
'pvw' options.txt /*'pvw'*
+'qe' options.txt /*'qe'*
'quote motion.txt /*'quote*
+'quoteescape'' options.txt /*'quoteescape''*
'readonly' options.txt /*'readonly'*
'redraw' vi_diff.txt /*'redraw'*
'remap' options.txt /*'remap'*
Cmdline-mode cmdline.txt /*Cmdline-mode*
CmdwinEnter autocmd.txt /*CmdwinEnter*
CmdwinLeave autocmd.txt /*CmdwinLeave*
+ColorScheme autocmd.txt /*ColorScheme*
Command-line cmdline.txt /*Command-line*
Command-line-mode cmdline.txt /*Command-line-mode*
Contents quickref.txt /*Contents*
`{ motion.txt /*`{*
`} motion.txt /*`}*
a insert.txt /*a*
+a' motion.txt /*a'*
a( motion.txt /*a(*
a) motion.txt /*a)*
a4 options.txt /*a4*
aW motion.txt /*aW*
a[ motion.txt /*a[*
a] motion.txt /*a]*
+a` motion.txt /*a`*
ab motion.txt /*ab*
abandon editing.txt /*abandon*
abbreviations map.txt /*abbreviations*
apache-syntax syntax.txt /*apache-syntax*
apache.vim syntax.txt /*apache.vim*
append() eval.txt /*append()*
+aquote motion.txt /*aquote*
arabic.txt arabic.txt /*arabic.txt*
arabicfonts arabic.txt /*arabicfonts*
arabickeymap arabic.txt /*arabickeymap*
compl-define insert.txt /*compl-define*
compl-dictionary insert.txt /*compl-dictionary*
compl-filename insert.txt /*compl-filename*
+compl-function insert.txt /*compl-function*
compl-generic insert.txt /*compl-generic*
compl-keyword insert.txt /*compl-keyword*
compl-tag insert.txt /*compl-tag*
htmlos.vim syntax.txt /*htmlos.vim*
http pi_netrw.txt /*http*
i insert.txt /*i*
+i' motion.txt /*i'*
i( motion.txt /*i(*
i) motion.txt /*i)*
i< motion.txt /*i<*
i_CTRL-X_CTRL-N insert.txt /*i_CTRL-X_CTRL-N*
i_CTRL-X_CTRL-P insert.txt /*i_CTRL-X_CTRL-P*
i_CTRL-X_CTRL-T insert.txt /*i_CTRL-X_CTRL-T*
+i_CTRL-X_CTRL-U insert.txt /*i_CTRL-X_CTRL-U*
i_CTRL-X_CTRL-V insert.txt /*i_CTRL-X_CTRL-V*
i_CTRL-X_CTRL-Y insert.txt /*i_CTRL-X_CTRL-Y*
i_CTRL-X_CTRL-] insert.txt /*i_CTRL-X_CTRL-]*
+i_CTRL-X_index index.txt /*i_CTRL-X_index*
i_CTRL-Y insert.txt /*i_CTRL-Y*
i_CTRL-Z options.txt /*i_CTRL-Z*
i_CTRL-[ insert.txt /*i_CTRL-[*
i_backspacing insert.txt /*i_backspacing*
i_digraph digraph.txt /*i_digraph*
i_esc intro.txt /*i_esc*
+i` motion.txt /*i`*
ia64-syntax syntax.txt /*ia64-syntax*
ia64.vim syntax.txt /*ia64.vim*
ib motion.txt /*ib*
intro intro.txt /*intro*
intro.txt intro.txt /*intro.txt*
ip motion.txt /*ip*
+iquote motion.txt /*iquote*
is motion.txt /*is*
isdirectory() eval.txt /*isdirectory()*
iw motion.txt /*iw*
jumpto-diffs diff.txt /*jumpto-diffs*
k motion.txt /*k*
kcc uganda.txt /*kcc*
+kde gui_x11.txt /*kde*
kde-toolbar gui_x11.txt /*kde-toolbar*
key-codes intro.txt /*key-codes*
key-codes-changed version4.txt /*key-codes-changed*
new-indent-flex version6.txt /*new-indent-flex*
new-items-6 version6.txt /*new-items-6*
new-items-7 version7.txt /*new-items-7*
+new-kde version7.txt /*new-kde*
new-line-continuation version5.txt /*new-line-continuation*
new-multi-byte version5.txt /*new-multi-byte*
new-multi-lang version6.txt /*new-multi-lang*
v_X change.txt /*v_X*
v_Y change.txt /*v_Y*
v_a motion.txt /*v_a*
+v_a' motion.txt /*v_a'*
v_a( motion.txt /*v_a(*
v_a) motion.txt /*v_a)*
v_a< motion.txt /*v_a<*
v_aW motion.txt /*v_aW*
v_a[ motion.txt /*v_a[*
v_a] motion.txt /*v_a]*
+v_a` motion.txt /*v_a`*
v_ab motion.txt /*v_ab*
v_ap motion.txt /*v_ap*
+v_aquote motion.txt /*v_aquote*
v_as motion.txt /*v_as*
v_aw motion.txt /*v_aw*
v_a{ motion.txt /*v_a{*
v_gv visual.txt /*v_gv*
v_gw change.txt /*v_gw*
v_i motion.txt /*v_i*
+v_i' motion.txt /*v_i'*
v_i( motion.txt /*v_i(*
v_i) motion.txt /*v_i)*
v_i< motion.txt /*v_i<*
v_iW motion.txt /*v_iW*
v_i[ motion.txt /*v_i[*
v_i] motion.txt /*v_i]*
+v_i` motion.txt /*v_i`*
v_ib motion.txt /*v_ib*
v_ip motion.txt /*v_ip*
+v_iquote motion.txt /*v_iquote*
v_is motion.txt /*v_is*
v_iw motion.txt /*v_iw*
v_i{ motion.txt /*v_i{*
-*todo.txt* For Vim version 7.0aa. Last change: 2004 Jun 30
+*todo.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
For version 7.0:
- Include many PATCHES:
- - Include the kvim patch. http://freenux.org/vim/ (Mickael Marchand)
- Do not add Qtopia yet, it doesn't work very well.
- update from Mickael 2004 Jun 20.
- 8 Unix: When libcall() fails there is no clear error message. Johannes
- Zellner has a patch for this.
- updated patch 2004 June 16.
- 7 Add the MzScheme interface. Patch on http://iamphet.nm.ru/scheme/
- (Sergey Khorev)
- Alt URL: http://cyber.miem.edu.ru/~iamphet/scheme/mzvim-0.560.tar.gz
- 8 Add patch from Muraoka Taro (Mar 16) to support input method on Mac?
- New patch 2004 Jun 16
- 8 Add expression-expansion, so that the user can define his own kind of
- completion. Patch from Taro Muraoka, 2003 Aug 26.
- New patch 2004 Jun 16
- 8 Text objects: Add "a'" and 'a"': a single or double quoted string.
- (Tim Chase) Patch from Taro Muraoka (2003 Dec 16).
- New patch 2004 Jun 16
7 Add "nbsp" in 'listchars'? Patch from David Blanchet, 2003 Jul 28.
again 2004 Jun 16
8 Add ":n" to fnamemodify(): normalize path, remove "../" when possible.
Matsumoto) How to get the messages into the
.po files?
Update 2004 Jun 17
- ---
realname() Get user name (first, last, full)
user_fullname() patch by Nikolai Weibull, Nov
3 2002)
search() Add optional offset argument.
Add 'n' flag. (patch from Nikolai Weibull
2003 Jan 13)
+ ---
confirm() add "flags" argument, with 'v' for vertical
layout and 'c' for console dialog. (Haegg)
Flemming Madsen has a patch for the 'c' flag
incomplete patch Mar 18)
+- In the kvim/KDE source files fix the formatting.
+- KDE version is called "kvim". Make it "gvim", like the others?
- Change ga_room into ga_maxlen, so that it doesn't need to be
incremented/decremented each time.
- For string variables, use length instead of NUL termination.
file. Can be used to update statusline oslt.
- Displaying size of Visual area: use 24-33 column display.
- Mac: Unicode input and display (Eckehard Berns, June 27)
-
+8 Add patch from Muraoka Taro (Mar 16) to support input method on Mac?
+ New patch 2004 Jun 16
+7 Add the MzScheme interface?
+ NO: it changes too much of the code, while hardly anybody will use it.
+ Patch on http://iamphet.nm.ru/scheme/ (Sergey Khorev)
+ Alt URL: http://cyber.miem.edu.ru/~iamphet/scheme/mzvim-0.560.tar.gz
Vi incompatibility:
8 With undo/redo only marks in the changed lines should be changed. Other
It starts working after GTK gvim loses the selection and gains it again.
7 DND doesn't work with KDE (also with GTK 1).
+KDE GUI known bugs:
+- The default font is ugly. bold text isn't displayed correctly.
+- Error messages when starting up. The "tip of the day" box is empty.
+- Encoding of menu items needs to be converted. (Yasuhiro Matsumoto)
Win32 GUI known bugs:
8 On Windows 98 the unicows library is needed to support functions with UCS2
-*version7.txt* For Vim version 7.0aa. Last change: 2004 Jun 30
+*version7.txt* For Vim version 7.0aa. Last change: 2004 Jul 02
VIM REFERENCE MANUAL by Bram Moolenaar
Normal mode commands: ~
+a", a' and a` New text objects to select quoted strings. |a'|
+i", i' and i' (Taro Muraoka)
Options: ~
+'completefunc' The name of a function used for user-specified Insert
+ mode completion. CTRL-X CTRL-U can be used in Insert
+ mode to do any kind of completion. (Taro Muraoka)
+'quoteescape' Characters used to escape quotes inside a string.
+ Used for the a", a' and a` text objects. |a'|
Ex commands: ~
InsertChange going from Insert to Replace mode or back
InsertLeave leaving Insert or Replace mode
+ColorScheme after loading a color scheme
+
+
+New Syntax/Indent/FTplugin files: ~
+
+MuPAD source syntax, indent and ftplugin. (Dave Silvia)
-New Syntax files: ~
Others: ~
The tutor was updated to make it simpler to use and added text to explain a
few more important commands. Used ideas from Gabriel Zachmann.
+Unix: When libcall() fails obtain an error message with dlerror() and display
+it. (Johannes Zellner)
+
==============================================================================
COMPILE TIME CHANGES *compile-changes-7*
" Vim support file to detect file types
"
" Maintainer: Bram Moolenaar <Bram@vim.org>
-" Last Change: 2004 Jun 27
+" Last Change: 2004 Jul 01
" Listen very carefully, I will say this only once
if exists("did_load_filetypes")
" M$ Resource files
au BufNewFile,BufRead *.rc setf rc
+" MuPAD source
+au BufRead,BufNewFile *.mu setf mupad
+
" Mush
au BufNewFile,BufRead *.mush setf mush
--- /dev/null
+" Vim filetype plugin file utility\r
+" Language: * (various)\r
+" Maintainer: Dave Silvia <dsilvia@mchsi.com>\r
+" Date: 6/30/2004\r
+\r
+" The start of match (b:SOM) default is:\r
+" '\<'\r
+" The end of match (b:EOM) default is:\r
+" '\>'\r
+"\r
+" If you want to use some other start/end of match, just assign the\r
+" value to the b:SOM|EOM variable in your filetype script.\r
+"\r
+" SEE: :h pattern.txt\r
+" :h pattern-searches\r
+" :h regular-expression\r
+" :h matchit\r
+\r
+let s:myName=expand("<sfile>:t")\r
+\r
+" matchit.vim not loaded -- don't do anyting\r
+if !exists("loaded_matchit")\r
+ echomsg s:myName.": matchit.vim not loaded -- finishing without loading"\r
+ finish\r
+endif\r
+\r
+" already been here -- don't redefine\r
+if exists("*AppendMatchGroup")\r
+ finish\r
+endif\r
+\r
+" Function To Build b:match_words\r
+" The following function, 'AppendMatchGroup', helps to increase\r
+" readability of your filetype script if you choose to use matchit.\r
+" It also precludes many construction errors, reducing the\r
+" construction to simply invoking the function with the match words.\r
+" As an example, let's take the ubiquitous if/then/else/endif type\r
+" of construct. This is how the entry in your filetype script would look.\r
+"\r
+" " source the AppendMatchGroup function file\r
+" runtime ftplugin/AppendMatchGroup.vim\r
+"\r
+" " fill b:match_words\r
+" call AppendMatchGroup('if,then,else,endif')\r
+"\r
+" And the b:match_words constructed would look like:\r
+"\r
+" \<if\>:\<then\>:\<else\>:\<endif\>\r
+" \r
+" Use of AppendMatchGroup makes your filetype script is a little\r
+" less busy and a lot more readable. Additionally, it\r
+" checks three critical things:\r
+"\r
+" 1) Do you have at least 2 entries in your match group.\r
+"\r
+" 2) Does the buffer variable 'b:match_words' exist? if not, create it.\r
+"\r
+" 3) If the buffer variable 'b:match_words' does exist, is the last\r
+" character a ','? If not, add it before appending.\r
+" \r
+" You should now be able to match 'if/then/else/endif' in succession\r
+" in your source file, in just about any construction you may have\r
+" chosen for them.\r
+"\r
+" To add another group, simply call 'AppendMatchGroup again. E.G.:\r
+"\r
+" call AppendMatchGroup('while,do,endwhile')\r
+\r
+function AppendMatchGroup(mwordList)\r
+ let List=a:mwordList\r
+ let Comma=match(List,',')\r
+ if Comma == -1 || Comma == strlen(List)-1\r
+ echoerr "Must supply a comma separated list of at least 2 entries."\r
+ echoerr "Supplied list: <".List.">"\r
+ return\r
+ endif\r
+ let listEntryBegin=0\r
+ let listEntryEnd=Comma\r
+ let listEntry=strpart(List,listEntryBegin,listEntryEnd-listEntryBegin)\r
+ let List=strpart(List,Comma+1)\r
+ let Comma=match(List,',')\r
+ " if listEntry is all spaces || List is empty || List is all spaces\r
+ if (match(listEntry,'\s\+') == 0 && match(listEntry,'\S\+') == -1)\r
+ \ || List == '' || (match(List,'\s\+') == 0 && match(List,'\S\+') == -1)\r
+ echoerr "Can't use all spaces for an entry <".listEntry.">"\r
+ echoerr "Remaining supplied list: <".List.">"\r
+ return\r
+ endif\r
+\r
+ if !exists("b:SOM")\r
+ let b:SOM='\<'\r
+ endif\r
+ if !exists("b:EOM")\r
+ let b:EOM='\>'\r
+ endif\r
+ if !exists("b:match_words")\r
+ let b:match_words=''\r
+ endif\r
+ if b:match_words != '' && match(b:match_words,',$') == -1\r
+ let b:match_words=b:match_words.','\r
+ endif\r
+ " okay, all set add first entry in this list\r
+ let b:match_words=b:match_words.b:SOM.listEntry.b:EOM.':'\r
+ while Comma != -1\r
+ let listEntryEnd=Comma\r
+ let listEntry=strpart(List,listEntryBegin,listEntryEnd-listEntryBegin)\r
+ let List=strpart(List,Comma+1)\r
+ let Comma=match(List,',')\r
+ " if listEntry is all spaces\r
+ if match(listEntry,'\s\+') == 0 && match(listEntry,'\S\+') == -1\r
+ echoerr "Can't use all spaces for an entry <".listEntry."> - skipping"\r
+ echoerr "Remaining supplied list: <".List.">"\r
+ continue\r
+ endif\r
+ let b:match_words=b:match_words.b:SOM.listEntry.b:EOM.':'\r
+ endwhile\r
+ let listEntry=List\r
+ let b:match_words=b:match_words.b:SOM.listEntry.b:EOM\r
+endfunction\r
+\r
+" TODO: Write a wrapper to handle multiple groups in one function call.\r
+" Don't see a lot of utility in this as it would undoubtedly warrant\r
+" continuation lines in the filetype script and it would be a toss\r
+" up as to which is more readable: individual calls one to a line or\r
+" a single call with continuation lines. I vote for the former.\r
--- /dev/null
+" Vim filetype plugin file\r
+" Language: MuPAD source files\r
+" Maintainer: Dave Silvia <dsilvia@mchsi.com>\r
+" Filenames: *.mu\r
+" Date: 6/30/2004\r
+\r
+if exists("b:did_ftplugin") | finish | endif\r
+let b:did_ftplugin = 1\r
+\r
+" Change the :browse e filter to primarily show MuPAD source files.\r
+if has("gui_win32")\r
+ let b:browsefilter=\r
+ \ "MuPAD source (*.mu)\t*.mu\n" .\r
+ \ "All Files (*.*)\t*.*\n"\r
+endif\r
+\r
+" matchit.vim not loaded -- don't do anyting below\r
+if !exists("loaded_matchit")\r
+ " echomsg "matchit.vim not loaded -- finishing"\r
+ finish\r
+endif\r
+\r
+" source the AppendMatchGroup function file\r
+runtime ftplugin/AppendMatchGroup.vim\r
+\r
+" fill b:match_words for MuPAD\r
+call AppendMatchGroup('domain,end_domain')\r
+call AppendMatchGroup('proc,begin,end_proc')\r
+call AppendMatchGroup('if,then,elif,else,end_if')\r
+call AppendMatchGroup('\%(for\|while\|repeat\|case\),of,do,break,next,until,\%(end_for\|end_while\|end_repeat\|end_case\)')\r
--- /dev/null
+" Vim indent file generic utility functions\r
+" Language: * (various)\r
+" Maintainer: Dave Silvia <dsilvia@mchsi.com>\r
+" Date: 6/30/2004\r
+\r
+" SUMMARY: To use GenericIndent, indent/<your_filename>.vim would have the\r
+" following general format:\r
+"\r
+" if exists("b:did_indent") | finish | endif\r
+" let b:did_indent = 1\r
+" runtime indent/GenericIndent.vim\r
+" let b:indentStmts=''\r
+" let b:dedentStmts=''\r
+" let b:allStmts=''\r
+" setlocal indentexpr=GenericIndent()\r
+" setlocal indentkeys=<your_keys>\r
+" call GenericIndentStmts(<your_stmts>)\r
+" call GenericDedentStmts(<your_stmts>)\r
+" call GenericAllStmts()\r
+"\r
+" END SUMMARY:\r
+\r
+" NOTE: b:indentStmts, b:dedentStmts, and b:allStmts need to be initialized\r
+" to '' before callin the functions because 'indent.vim' explicitly\r
+" 'unlet's b:did_indent. This means that the lists will compound if\r
+" you change back and forth between buffers. This is true as of\r
+" version 6.3, 6/23/2004.\r
+"\r
+" NOTE: By default, GenericIndent is case sensitive.\r
+" let b:case_insensitive=1 if you want to ignore case, e.g. DOS batch files\r
+\r
+" The function 'GenericIndent' is data driven and handles most all cases of\r
+" indent checking if you first set up the data. To use this function follow\r
+" the example below (taken from the file indent/MuPAD_source.vim)\r
+"\r
+" Before you start, source this file in indent/<your_script>.vim to have it\r
+" define functions for your use.\r
+"\r
+"runtime indent/GenericIndent.vim\r
+"\r
+" The data is in 5 sets:\r
+"\r
+" First, set the data set 'indentexpr' to GenericIndent().\r
+"\r
+"setlocal indentexpr=GenericIndent()\r
+"\r
+" Second, set the data set 'indentkeys' to the keywords/expressions that need\r
+" to be checked for 'indenting' _as_ they typed.\r
+"\r
+"setlocal indentkeys==end_proc,=else,=then,=elif,=end_if,=end_case,=until,=end_repeat,=end_domain,=end_for,=end_while,=end,o,O\r
+"\r
+" NOTE: 'o,O' at the end of the previous line says you wish to be called\r
+" whenever a newline is placed in the buffer. This allows the previous line\r
+" to be checked for indentation parameters.\r
+"\r
+" Third, set the data set 'b:indentStmts' to the keywords/expressions that, when\r
+" they are on a line _when_ you _press_ the _<Enter>_ key,\r
+" you wish to have the next line indented.\r
+"\r
+"call GenericIndentStmts('begin,if,then,else,elif,case,repeat,until,domain,do')\r
+"\r
+" Fourth, set the data set 'b:dedentStmts' to the keywords/expressions that, when\r
+" they are on a line you are currently typing, you wish to have that line\r
+" 'dedented' (having already been indented because of the previous line's\r
+" indentation).\r
+"\r
+"call GenericDedentStmts('end_proc,then,else,elif,end_if,end_case,until,end_repeat,end_domain,end_for,end_while,end')\r
+"\r
+" Fifth, set the data set 'b:allStmts' to the concatenation of the third and\r
+" fourth data sets, used for checking when more than one keyword/expression\r
+" is on a line.\r
+"\r
+"call GenericAllStmts()\r
+"\r
+" NOTE: GenericIndentStmts uses two variables: 'b:indentStmtOpen' and\r
+" 'b:indentStmtClose' which default to '\<' and '\>' respectively. You can\r
+" set (let) these to any value you wish before calling GenericIndentStmts with\r
+" your list. Similarly, GenericDedentStmts uses 'b:dedentStmtOpen' and\r
+" 'b:dedentStmtClose'.\r
+"\r
+" NOTE: Patterns may be used in the lists passed to Generic[In|De]dentStmts\r
+" since each element in the list is copied verbatim.\r
+"\r
+" Optionally, you can set the DEBUGGING flag within your script to have the\r
+" debugging messages output. See below for description. This can also be set\r
+" (let) from the command line within your editing buffer.\r
+"\r
+"let b:DEBUGGING=1\r
+"\r
+" See:\r
+" :h runtime\r
+" :set runtimepath ?\r
+" to familiarize yourself with how this works and where you should have this\r
+" file and your file(s) installed.\r
+"\r
+" For help with setting 'indentkeys' see:\r
+" :h indentkeys\r
+" Also, for some good examples see 'indent/sh.vim' and 'indent/vim.vim' as\r
+" well as files for other languages you may be familiar with.\r
+"\r
+"\r
+" Alternatively, if you'd rather specify yourself, you can enter\r
+" 'b:indentStmts', 'b:dedentStmts', and 'b:allStmts' 'literally':\r
+"\r
+"let b:indentStmts='\<begin\>\|\<if\>\|\<then\>\|\<else\>\|\<elif\>\|\<case\>\|\<repeat\>\|\<until\>\|\<domain\>\|\<do\>'\r
+"let b:dedentStmts='\<end_proc\>\|\<else\>\|\<elif\>\|\<end_if\>\|\<end_case\>\|\<until\>\|\<end_repeat\>\|\<end_domain\>\|\<end_for\>\|\<end_while\>\|\<end\>'\r
+"let b:allStmts=b:indentStmts.'\|'.b:dedentStmts\r
+"\r
+" This is only useful if you have particularly different parameters for\r
+" matching each statement.\r
+\r
+" RECAP: From indent/MuPAD_source.vim\r
+"\r
+"if exists("b:did_indent") | finish | endif\r
+"\r
+"let b:did_indent = 1\r
+"\r
+"runtime indent/GenericIndent.vim\r
+"\r
+"setlocal indentexpr=GenericIndent()\r
+"setlocal indentkeys==end_proc,=then,=else,=elif,=end_if,=end_case,=until,=end_repeat,=end_domain,=end_for,=end_while,=end,o,O\r
+"call GenericIndentStmts('begin,if,then,else,elif,case,repeat,until,domain,do')\r
+"call GenericDedentStmts('end_proc,then,else,elif,end_if,end_case,until,end_repeat,end_domain,end_for,end_while,end')\r
+"call GenericAllStmts()\r
+"\r
+" END RECAP:\r
+\r
+let s:hit=0\r
+let s:lastVlnum=0\r
+let s:myScriptName=expand("<sfile>:t")\r
+\r
+if exists("*GenericIndent")\r
+ finish\r
+endif\r
+\r
+function GenericAllStmts()\r
+ let b:allStmts=b:indentStmts.'\|'.b:dedentStmts\r
+ call DebugGenericIndent(expand("<sfile>").": "."b:indentStmts: ".b:indentStmts.", b:dedentStmts: ".b:dedentStmts.", b:allStmts: ".b:allStmts)\r
+endfunction\r
+\r
+function GenericIndentStmts(stmts)\r
+ let Stmts=a:stmts\r
+ let Comma=match(Stmts,',')\r
+ if Comma == -1 || Comma == strlen(Stmts)-1\r
+ echoerr "Must supply a comma separated list of at least 2 entries."\r
+ echoerr "Supplied list: <".Stmts.">"\r
+ return\r
+ endif\r
+\r
+ if !exists("b:indentStmtOpen")\r
+ let b:indentStmtOpen='\<'\r
+ endif\r
+ if !exists("b:indentStmtClose")\r
+ let b:indentStmtClose='\>'\r
+ endif\r
+ if !exists("b:indentStmts")\r
+ let b:indentStmts=''\r
+ endif\r
+ if b:indentStmts != ''\r
+ let b:indentStmts=b:indentStmts.'\|'\r
+ endif\r
+ call DebugGenericIndent(expand("<sfile>").": "."b:indentStmtOpen: ".b:indentStmtOpen.", b:indentStmtClose: ".b:indentStmtClose.", b:indentStmts: ".b:indentStmts.", Stmts: ".Stmts)\r
+ let stmtEntryBegin=0\r
+ let stmtEntryEnd=Comma\r
+ let stmtEntry=strpart(Stmts,stmtEntryBegin,stmtEntryEnd-stmtEntryBegin)\r
+ let Stmts=strpart(Stmts,Comma+1)\r
+ let Comma=match(Stmts,',')\r
+ let b:indentStmts=b:indentStmts.b:indentStmtOpen.stmtEntry.b:indentStmtClose\r
+ while Comma != -1\r
+ let stmtEntryEnd=Comma\r
+ let stmtEntry=strpart(Stmts,stmtEntryBegin,stmtEntryEnd-stmtEntryBegin)\r
+ let Stmts=strpart(Stmts,Comma+1)\r
+ let Comma=match(Stmts,',')\r
+ let b:indentStmts=b:indentStmts.'\|'.b:indentStmtOpen.stmtEntry.b:indentStmtClose\r
+ endwhile\r
+ let stmtEntry=Stmts\r
+ let b:indentStmts=b:indentStmts.'\|'.b:indentStmtOpen.stmtEntry.b:indentStmtClose\r
+endfunction\r
+\r
+function GenericDedentStmts(stmts)\r
+ let Stmts=a:stmts\r
+ let Comma=match(Stmts,',')\r
+ if Comma == -1 || Comma == strlen(Stmts)-1\r
+ echoerr "Must supply a comma separated list of at least 2 entries."\r
+ echoerr "Supplied list: <".Stmts.">"\r
+ return\r
+ endif\r
+\r
+ if !exists("b:dedentStmtOpen")\r
+ let b:dedentStmtOpen='\<'\r
+ endif\r
+ if !exists("b:dedentStmtClose")\r
+ let b:dedentStmtClose='\>'\r
+ endif\r
+ if !exists("b:dedentStmts")\r
+ let b:dedentStmts=''\r
+ endif\r
+ if b:dedentStmts != ''\r
+ let b:dedentStmts=b:dedentStmts.'\|'\r
+ endif\r
+ call DebugGenericIndent(expand("<sfile>").": "."b:dedentStmtOpen: ".b:dedentStmtOpen.", b:dedentStmtClose: ".b:dedentStmtClose.", b:dedentStmts: ".b:dedentStmts.", Stmts: ".Stmts)\r
+ let stmtEntryBegin=0\r
+ let stmtEntryEnd=Comma\r
+ let stmtEntry=strpart(Stmts,stmtEntryBegin,stmtEntryEnd-stmtEntryBegin)\r
+ let Stmts=strpart(Stmts,Comma+1)\r
+ let Comma=match(Stmts,',')\r
+ let b:dedentStmts=b:dedentStmts.b:dedentStmtOpen.stmtEntry.b:dedentStmtClose\r
+ while Comma != -1\r
+ let stmtEntryEnd=Comma\r
+ let stmtEntry=strpart(Stmts,stmtEntryBegin,stmtEntryEnd-stmtEntryBegin)\r
+ let Stmts=strpart(Stmts,Comma+1)\r
+ let Comma=match(Stmts,',')\r
+ let b:dedentStmts=b:dedentStmts.'\|'.b:dedentStmtOpen.stmtEntry.b:dedentStmtClose\r
+ endwhile\r
+ let stmtEntry=Stmts\r
+ let b:dedentStmts=b:dedentStmts.'\|'.b:dedentStmtOpen.stmtEntry.b:dedentStmtClose\r
+endfunction\r
+\r
+" Debugging function. Displays messages in the command area which can be\r
+" reviewed using ':messages'. To turn it on use ':let b:DEBUGGING=1'. Once\r
+" on, turn off by using ':let b:DEBUGGING=0. If you don't want it at all and\r
+" feel it's slowing down your editing (you must have an _awfully_ slow\r
+" machine!;-> ), you can just comment out the calls to it from 'GenericIndent'\r
+" below. No need to remove the function or the calls, tho', as you never can\r
+" tell when they might come in handy!;-)\r
+function DebugGenericIndent(msg)\r
+ if exists("b:DEBUGGING") && b:DEBUGGING\r
+ echomsg '['.s:hit.']'.s:myScriptName."::".a:msg\r
+ endif\r
+endfunction\r
+\r
+function GenericIndent()\r
+ " save ignore case option. Have to set noignorecase for the match\r
+ " functions to do their job the way we want them to!\r
+ " NOTE: if you add a return to this function be sure you do\r
+ " if IgnoreCase | set ignorecase | endif\r
+ " before returning. You can just cut and paste from here.\r
+ let IgnoreCase=&ignorecase\r
+ " let b:case_insensitive=1 if you want to ignore case, e.g. DOS batch files\r
+ if !exists("b:case_insensitive")\r
+ set noignorecase\r
+ endif\r
+ " this is used to let DebugGenericIndent display which invocation of the\r
+ " function goes with which messages.\r
+ let s:hit=s:hit+1\r
+ let lnum=v:lnum\r
+ let cline=getline(lnum)\r
+ let lnum=prevnonblank(lnum)\r
+ if lnum==0 | if IgnoreCase | set ignorecase | endif | return 0 | endif\r
+ let pline=getline(lnum)\r
+ let ndnt=indent(lnum)\r
+ if !exists("b:allStmts")\r
+ call GenericAllStmts()\r
+ endif\r
+\r
+ call DebugGenericIndent(expand("<sfile>").": "."cline=<".cline.">, pline=<".pline.">, lnum=".lnum.", v:lnum=".v:lnum.", ndnt=".ndnt)\r
+ if lnum==v:lnum\r
+ " current line, only check dedent\r
+ "\r
+ " just dedented this line, don't need to do it again.\r
+ " another dedentStmts was added or an end%[_*] was completed.\r
+ if s:lastVlnum==v:lnum\r
+ if IgnoreCase | set ignorecase | endif\r
+ return ndnt\r
+ endif\r
+ let s:lastVlnum=v:lnum\r
+ call DebugGenericIndent(expand("<sfile>").": "."Checking dedent")\r
+ let srcStr=cline\r
+ let dedentKeyBegin=match(srcStr,b:dedentStmts)\r
+ if dedentKeyBegin != -1\r
+ let dedentKeyEnd=matchend(srcStr,b:dedentStmts)\r
+ let dedentKeyStr=strpart(srcStr,dedentKeyBegin,dedentKeyEnd-dedentKeyBegin)\r
+ "only dedent if it's the beginning of the line\r
+ if match(srcStr,'^\s*\<'.dedentKeyStr.'\>') != -1\r
+ call DebugGenericIndent(expand("<sfile>").": "."It's the beginning of the line, dedent")\r
+ let ndnt=ndnt-&shiftwidth\r
+ endif\r
+ endif\r
+ call DebugGenericIndent(expand("<sfile>").": "."dedent - returning ndnt=".ndnt)\r
+ else\r
+ " previous line, only check indent\r
+ call DebugGenericIndent(expand("<sfile>").": "."Checking indent")\r
+ let srcStr=pline\r
+ let indentKeyBegin=match(srcStr,b:indentStmts)\r
+ if indentKeyBegin != -1\r
+ " only indent if it's the last indentStmts in the line\r
+ let allKeyBegin=match(srcStr,b:allStmts)\r
+ let allKeyEnd=matchend(srcStr,b:allStmts)\r
+ let allKeyStr=strpart(srcStr,allKeyBegin,allKeyEnd-allKeyBegin)\r
+ let srcStr=strpart(srcStr,allKeyEnd)\r
+ let allKeyBegin=match(srcStr,b:allStmts)\r
+ if allKeyBegin != -1\r
+ " not the end of the line, check what is and only indent if\r
+ " it's an indentStmts\r
+ call DebugGenericIndent(expand("<sfile>").": "."Multiple words in line, checking if last is indent")\r
+ while allKeyBegin != -1\r
+ let allKeyEnd=matchend(srcStr,b:allStmts)\r
+ let allKeyStr=strpart(srcStr,allKeyBegin,allKeyEnd-allKeyBegin)\r
+ let srcStr=strpart(srcStr,allKeyEnd)\r
+ let allKeyBegin=match(srcStr,b:allStmts)\r
+ endwhile\r
+ if match(b:indentStmts,allKeyStr) != -1\r
+ call DebugGenericIndent(expand("<sfile>").": "."Last word in line is indent")\r
+ let ndnt=ndnt+&shiftwidth\r
+ endif\r
+ else\r
+ " it's the last indentStmts in the line, go ahead and indent\r
+ let ndnt=ndnt+&shiftwidth\r
+ endif\r
+ endif\r
+ call DebugGenericIndent(expand("<sfile>").": "."indent - returning ndnt=".ndnt)\r
+ endif\r
+ if IgnoreCase | set ignorecase | endif\r
+ return ndnt\r
+endfunction\r
+\r
+\r
+" TODO: I'm open!\r
+"\r
+" BUGS: You tell me! Probably. I just haven't found one yet or haven't been\r
+" told about one.\r
+" \r
--- /dev/null
+" Vim indent file\r
+" Language: MuPAD source files\r
+" Maintainer: Dave Silvia <dsilvia@mchsi.com>\r
+" Filenames: *.mu\r
+" Date: 6/30/2004\r
+\r
+if exists("b:did_indent")\r
+ finish\r
+endif\r
+\r
+let b:did_indent = 1\r
+\r
+runtime indent/GenericIndent.vim\r
+\r
+let b:indentStmts=''\r
+let b:dedentStmts=''\r
+let b:allStmts=''\r
+" NOTE: b:indentStmts, b:dedentStmts, and b:allStmts need to be initialized\r
+" to '' before callin the functions because 'indent.vim' explicitly\r
+" 'unlet's b:did_indent. This means that the lists will compound if\r
+" you change back and forth between buffers. This is true as of\r
+" version 6.3, 6/23/2004.\r
+setlocal indentexpr=GenericIndent()\r
+setlocal indentkeys==end_proc,=then,=else,=elif,=end_if,=end_case,=until,=end_repeat,=end_domain,=end_for,=end_while,=end,o,O\r
+\r
+call GenericIndentStmts('begin,if,then,else,elif,case,repeat,until,domain,do')\r
+call GenericDedentStmts('end_proc,then,else,elif,end_if,end_case,until,end_repeat,end_domain,end_for,end_while,end')\r
+call GenericAllStmts()\r
+\r
+\r
+" TODO: More comprehensive indentstmt, dedentstmt, and indentkeys values.\r
+"\r
+" BUGS: You tell me! Probably. I just haven't found one yet or haven't been\r
+" told about one.\r
+" \r
" These commands create the option window.
"
" Maintainer: Bram Moolenaar <Bram@vim.org>
-" Last Change: 2004 May 04
+" Last Change: 2004 Jul 02
" If there already is an option window, jump to that one.
if bufwinnr("option-window") > 0
call append("$", "complete\tspecifies how Insert mode completion works")
call append("$", "\t(local to buffer)")
call <SID>OptionL("cpt")
+ call append("$", "completefunc\tuser defined function for Insert mode completion")
+ call append("$", "\t(local to buffer)")
+ call <SID>OptionL("cfu")
call append("$", "dictionary\tlist of dictionary files for keyword completion")
call append("$", "\t(global or local to buffer)")
call <SID>OptionG("dict", &dict)
call <SID>OptionL("isk")
call append("$", "isprint\tspecifies printable characters")
call <SID>OptionG("isp", &isp)
+if has("textobjects")
+ call append("$", "quoteescape\tspecifies escape characters in a string")
+ call append("$", "\t(local to buffer)")
+ call <SID>OptionL("qe")
+endif
if has("rightleft")
call append("$", "rightleft\tdisplay the buffer right-to-left")
call append("$", "\t(local to window)")
" NetrwFileHandlers: contains various extension-based file handlers for
" netrw's browser
" Author: Charles E. Campbell, Jr.
-" Date: Jun 25, 2004
-" Version: 1
+" Date: Jul 02, 2004
+" Version: 2
" ---------------------------------------------------------------------
-" NetrwFileHandler_html: handles html
+" NetrwFileHandler_html: handles html when the user hits "x" when the
+" cursor is atop a *.html file
fun! NetrwFileHandler_html(webpage)
" call Dfunc("NetrwFileHandler_html(".a:webpage.")")
else
let page= substitute(a:webpage,'^\w\+://\%(\w*@\)\=\(\w\+\)/','http://\1/','e')
endif
+
+ if executable("mozilla")
" call Decho("executing !mozilla ".page)
- exe "!mozilla ".page
+ exe "!mozilla ".page
+ elseif executable("netscape")
+" call Decho("executing !netscape ".page)
+ exe "!netscape ".page
+ endif
" call Dret("NetrwFileHandler_html")
endfun
" netrw.vim: Handles file transfer and remote directory listing across a network
-" Last Change: Jun 24, 2004
+" Last Change: Jun 30, 2004
" Maintainer: Charles E. Campbell, Jr. PhD <drchipNOSPAM at campbellfamily.biz>
-" Version: 47f NOT RELEASED
+" Version: 47g ASTRO-ONLY
" License: Vim License (see vim's :help license)
"
" But be doers of the word, and not only hearers, deluding your own selves
if exists("loaded_netrw") || &cp
finish
endif
-let loaded_netrw = "v47f NOT RELEASED"
+let loaded_netrw = "v47g ASTRO-ONLY"
let s:save_cpo = &cpo
set cpo&vim
" provide a default listing command
let g:netrw_list_cmd= "ssh HOSTNAME ls -FLa"
else
- call Decho("ssh is not executable, can't do remote directory exploring")
+" call Decho("ssh is not executable, can't do remote directory exploring")
let g:netrw_list_cmd= ""
endif
endif
if !exists("g:netrw_list_hide")
let g:netrw_list_hide= ""
endif
+if !exists("g:netrw_sort_by")
+ " alternatives: date size
+ let g:netrw_sort_by= "name"
+endif
+if !exists("g:netrw_sort_sequence")
+ let g:netrw_sort_sequence= '/$,*,\.bak$,\.o$,\.h$,\.info$,\.swp$,\.obj$'
+endif
+if !exists("g:netrw_sort_direction")
+ " alternative: reverse (z y x ...)
+ let g:netrw_sort_direction= "normal"
+endif
" ---------------------------------------------------------------------
" Default values for global protocol variables {{{1
" ------------------------------------------------------------------------
" NetSavePosn: saves position of cursor on screen {{{1
fun! s:NetSavePosn()
- call Dfunc("NetSavePosn()")
+" call Dfunc("NetSavePosn()")
" Save current line and column
let s:netrw_winnr= winnr()
let s:netrw_line = line(".")
let s:netrw_hline= line(".")
call s:NetRestorePosn()
- call Dret("NetSavePosn : winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline)
+" call Dret("NetSavePosn : winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline)
endfun
" ------------------------------------------------------------------------
" NetRestorePosn: restores the cursor and file position as saved by NetSavePosn() {{{1
fun! <SID>NetRestorePosn()
- call Dfunc("NetRestorePosn() winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline)
+" call Dfunc("NetRestorePosn() winnr=".s:netrw_winnr." line=".s:netrw_line." col=".s:netrw_col." hline=".s:netrw_hline)
exe "silent! ".s:netrw_winnr."wincmd w"
if v:shell_error == 0
" restore position
exe "norm! ".s:netrw_line."G0".s:netrw_col."\<bar>"
- call Dret("NetRestorePosn")
+" call Dret("NetRestorePosn")
endfun
" ------------------------------------------------------------------------
" NetRead: responsible for reading a file over the net {{{1
fun! s:NetRead(...)
- call Dfunc("NetRead(a:1<".a:1.">)")
+" call Dfunc("NetRead(a:1<".a:1.">)")
" save options
call s:NetOptionSave()
" get name of a temporary file
let tmpfile= tempname()
- call Decho("ichoice=".ichoice." readcmd<".readcmd.">")
+" call Decho("ichoice=".ichoice." readcmd<".readcmd.">")
while ichoice <= a:0
" attempt to repeat with previous host-file-etc
if exists("b:netrw_lastfile") && a:0 == 0
- call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">")
+" call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">")
let choice = b:netrw_lastfile
let ichoice= ichoice + 1
else
exe "let choice= a:" . ichoice
- call Decho("no lastfile: choice<" . choice . ">")
+" call Decho("no lastfile: choice<" . choice . ">")
" Reconstruct Choice if choice starts with '"'
if match(choice,"?") == 0
echo ':Nread sftp://[user@]machine[[:#]port]/path uses sftp'
break
elseif match(choice,"^\"") != -1
- call Decho("reconstructing choice")
+" call Decho("reconstructing choice")
if match(choice,"\"$") != -1
" case "..."
let choice=strpart(choice,1,strlen(choice)-2)
let ichoice = ichoice + 1
if ichoice > a:0
echoerr "Unbalanced string in filename '". wholechoice ."'"
- call Dret("NetRead")
+" call Dret("NetRead")
return
endif
let choice= a:{ichoice}
endif
endif
- call Decho("choice<" . choice . ">")
+" call Decho("choice<" . choice . ">")
let ichoice= ichoice + 1
" fix up windows urls
if has("win32")
let choice = substitute(choice,'\\','/','ge')
- call Decho("fixing up windows url to <".choice."> tmpfile<".tmpfile)
+" call Decho("fixing up windows url to <".choice."> tmpfile<".tmpfile)
exe 'lcd ' . fnamemodify(tmpfile,':h')
let tmpfile = fnamemodify(tmpfile,':t')
call s:NetMethod(choice)
" Check if NetBrowse() should be handling this request
- call Decho("checking if netlist: choice<".choice."> netrw_list_cmd<".g:netrw_list_cmd.">")
+" call Decho("checking if netlist: choice<".choice."> netrw_list_cmd<".g:netrw_list_cmd.">")
if choice =~ "^.*/$"
if strlen(g:netrw_list_cmd) > 0
keepjumps call s:NetBrowse(choice)
- call Dret("NetRead")
+" call Dret("NetRead")
else
echoerr "sorry, can't do a remote listing; ssh isn't executable"
endif
".........................................
" rcp: NetRead Method #1
if b:netrw_method == 1 " read with rcp
- call Decho("read via rcp (method #1)")
+" call Decho("read via rcp (method #1)")
" ER: noting done with g:netrw_uid yet?
" ER: on Win2K" rcp machine[.user]:file tmpfile
" ER: if machine contains '.' adding .user is required (use $USERNAME)
let uid_machine = g:netrw_machine
endif
endif
- call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
+" call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
exe g:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".uid_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile
let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
let b:netrw_lastfile = choice
".........................................
" ftp + <.netrc>: NetRead Method #2
elseif b:netrw_method == 2 " read with ftp + <.netrc>
- call Decho("read via ftp+.netrc (method #2)")
+" call Decho("read via ftp+.netrc (method #2)")
let netrw_fname= b:netrw_fname
new
set ff=unix
exe "put ='".g:netrw_ftpmode."'"
exe "put ='get ".netrw_fname." ".tmpfile."'"
if exists("g:netrw_port") && g:netrw_port != ""
- call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port)
+" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port)
exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port
else
- call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine)
+" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine)
exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine
endif
" If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar)
" ftp + machine,id,passwd,filename: NetRead Method #3
elseif b:netrw_method == 3 " read with ftp + machine, id, passwd, and fname
" Construct execution string (four lines) which will be passed through filter
- call Decho("read via ftp+mipf (method #3)")
+" call Decho("read via ftp+mipf (method #3)")
let netrw_fname= b:netrw_fname
new
set ff=unix
" -i : turns off interactive prompting from ftp
" -n unix : DON'T use <.netrc>, even though it exists
" -n win32: quit being obnoxious about password
- call Decho('performing ftp -i -n')
+" call Decho('performing ftp -i -n')
norm 1Gdd
- call Decho("executing: %!".g:netrw_ftp_cmd." -i -n")
+" call Decho("executing: %!".g:netrw_ftp_cmd." -i -n")
exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n"
" If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar)
if getline(1) !~ "^$"
".........................................
" scp: NetRead Method #4
elseif b:netrw_method == 4 " read with scp
- call Decho("read via scp (method #4)")
+" call Decho("read via scp (method #4)")
if exists("g:netrw_port") && g:netrw_port != ""
let useport= " -P ".g:netrw_port
else
endif
if g:netrw_cygwin == 1
let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e')
- call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
+" call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile
else
- call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
+" call Decho("executing: !".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile
endif
let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
".........................................
elseif b:netrw_method == 5 " read with http (wget)
- call Decho("read via http (method #5)")
+" call Decho("read via http (method #5)")
if g:netrw_http_cmd == ""
echoerr "neither wget nor fetch command is available"
exit
if match(b:netrw_fname,"#") == -1
" simple wget
- call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.escape(b:netrw_fname,' ?&')
let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
" wget plus a jump to an in-page marker (ie. http://abc/def.html#aMarker)
let netrw_html= substitute(b:netrw_fname,"#.*$","","")
let netrw_tag = substitute(b:netrw_fname,"^.*#","","")
- call Decho("netrw_html<".netrw_html.">")
- call Decho("netrw_tag <".netrw_tag.">")
- call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html)
+" call Decho("netrw_html<".netrw_html.">")
+" call Decho("netrw_tag <".netrw_tag.">")
+" call Decho("executing: !".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html)
exe g:netrw_silentxfer."!".g:netrw_http_cmd." ".tmpfile." http://".g:netrw_machine.netrw_html
let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
- call Decho('<\s*a\s*name=\s*"'.netrw_tag.'"/')
+" call Decho('<\s*a\s*name=\s*"'.netrw_tag.'"/')
exe 'norm! 1G/<\s*a\s*name=\s*"'.netrw_tag.'"/'."\<CR>"
endif
let b:netrw_lastfile = choice
".........................................
" cadaver: NetRead Method #6
elseif b:netrw_method == 6 " read with cadaver
- call Decho("read via cadaver (method #6)")
+" call Decho("read via cadaver (method #6)")
" Construct execution string (four lines) which will be passed through filter
let netrw_fname= b:netrw_fname
" perform cadaver operation:
norm 1Gdd
- call Decho("executing: %!".g:netrw_dav_cmd)
+" call Decho("executing: %!".g:netrw_dav_cmd)
exe g:netrw_silentxfer."%!".g:netrw_dav_cmd
bd!
- let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
+ let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
let b:netrw_lastfile = choice
".........................................
" rsync: NetRead Method #7
elseif b:netrw_method == 7 " read with rsync
- call Decho("read via rsync (method #7)")
+" call Decho("read via rsync (method #7)")
if g:netrw_cygwin == 1
let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e')
- call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
+" call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile
else
- call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
+" call Decho("executing: !".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile
endif
let result = s:NetGetFile(readcmd,tmpfile, b:netrw_method)
else
let netrw_option= "ftp"
endif
- call Decho("read via fetch for ".netrw_option)
+" call Decho("read via fetch for ".netrw_option)
if exists("g:netrw_uid") && g:netrw_uid != "" && exists("g:netrw_passwd") && g:netrw_passwd != ""
- call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_uid.':'.g:netrw_passwd.'@'.g:netrw_machine."/".escape(b:netrw_fname,' ?&')
else
- call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_fetch_cmd." ".tmpfile." ".netrw_option."://".g:netrw_machine."/".escape(b:netrw_fname,' ?&')
endif
".........................................
" sftp: NetRead Method #9
elseif b:netrw_method == 9 " read with sftp
- call Decho("read via sftp (method #4)")
+" call Decho("read via sftp (method #4)")
if g:netrw_cygwin == 1
let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e')
- call Decho("!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
- call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
+" call Decho("!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
+" call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile)
exe "!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".cygtmpfile
else
- call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
+" call Decho("executing: !".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile)
exe g:netrw_silentxfer."!".g:netrw_sftp_cmd." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')." ".tmpfile
endif
let result = s:NetGetFile(readcmd, tmpfile, b:netrw_method)
endwhile
" cleanup
- call Decho("cleanup")
+" call Decho("cleanup")
if exists("b:netrw_method")
unlet b:netrw_method
unlet g:netrw_machine
endif
call s:NetOptionRestore()
- call Dret("NetRead")
+" call Dret("NetRead")
endfun
" end of NetRead
" ------------------------------------------------------------------------
" NetGetFile: Function to read file "fname" with command "readcmd". {{{1
fun! s:NetGetFile(readcmd, fname, method)
- call Dfunc("NetGetFile(readcmd<".a:readcmd.">,fname<".a:fname."> method<".a:method.">)")
+" call Dfunc("NetGetFile(readcmd<".a:readcmd.">,fname<".a:fname."> method<".a:method.">)")
if exists("*NetReadFixup")
" for the use of NetReadFixup (not otherwise used internally)
if &term == "win32"
if &shell == "bash"
let fname=a:fname
- call Decho("(win32 && bash) fname<".fname.">")
+" call Decho("(win32 && bash) fname<".fname.">")
else
let fname=substitute(a:fname,'/','\\\\','ge')
- call Decho("(win32 && !bash) fname<".fname.">")
+" call Decho("(win32 && !bash) fname<".fname.">")
endif
else
let fname= a:fname
- call Decho("(copied) fname<".fname.">")
+" call Decho("(copied) fname<".fname.">")
endif
" get the file, but disable undo when reading a new buffer
let &ul= oldul
endif
elseif filereadable(fname)
- call Decho("exe<".a:readcmd." ".v:cmdarg." ".fname.">")
+" call Decho("exe<".a:readcmd." ".v:cmdarg." ".fname.">")
exe a:readcmd." ".v:cmdarg." ".fname
else
- call Dret("NetGetFile")
+" call Dret("NetGetFile")
return
endif
else
let line2= line("$") - line2
endif
- call Decho("calling NetReadFixup(method<".a:method."> line1=".line1." line2=".line2.")")
+" call Decho("calling NetReadFixup(method<".a:method."> line1=".line1." line2=".line2.")")
call NetReadFixup(a:method, line1, line2)
endif
- call Decho("readcmd<".a:readcmd."> cmdarg<".v:cmdarg."> fname<".a:fname."> readable=".filereadable(a:fname))
+" call Decho("readcmd<".a:readcmd."> cmdarg<".v:cmdarg."> fname<".a:fname."> readable=".filereadable(a:fname))
" insure that we have the right filetype and that its being displayed
filetype detect
redraw!
- call Dret("NetGetFile")
+" call Dret("NetGetFile")
endfun
" ------------------------------------------------------------------------
" NetWrite: responsible for writing a file over the net {{{1
fun! s:NetWrite(...) range
- call Dfunc("NetWrite(a:0=".a:0.")")
+" call Dfunc("NetWrite(a:0=".a:0.")")
" option handling
let mod= 0
" attempt to repeat with previous host-file-etc
if exists("b:netrw_lastfile") && a:0 == 0
- call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">")
+" call Decho("using b:netrw_lastfile<" . b:netrw_lastfile . ">")
let choice = b:netrw_lastfile
let ichoice= ichoice + 1
else
let ichoice = ichoice + 1
if choice > a:0
echoerr "Unbalanced string in filename '". wholechoice ."'"
- call Dret("NetWrite")
+" call Dret("NetWrite")
return
endif
let choice= a:{ichoice}
endif
endif
endif
- call Decho("choice<" . choice . ">")
+" call Decho("choice<" . choice . ">")
let ichoice= ichoice + 1
" fix up windows urls
".........................................
" rcp: NetWrite Method #1
if b:netrw_method == 1 " write with rcp
- Decho "write via rcp (method #1)"
+" Decho "write via rcp (method #1)"
if s:netrw_has_nt_rcp == 1
if exists("g:netrw_uid") && ( g:netrw_uid != "" )
let uid_machine = g:netrw_machine .'.'. g:netrw_uid
let uid_machine = g:netrw_machine
endif
endif
- call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_rcp_cmd." ".s:netrw_rcpmode." ".tmpfile." ".uid_machine.":".escape(b:netrw_fname,' ?&')
let b:netrw_lastfile = choice
new
set ff=unix
exe "put ='".g:netrw_ftpmode."'"
- call Decho(" NetWrite: put ='".g:netrw_ftpmode."'")
+" call Decho(" NetWrite: put ='".g:netrw_ftpmode."'")
exe "put ='put ".tmpfile." ".netrw_fname."'"
- call Decho("put ='put ".tmpfile." ".netrw_fname."'")
+" call Decho("put ='put ".tmpfile." ".netrw_fname."'")
if exists("g:netrw_port") && g:netrw_port != ""
- call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port)
+" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port)
exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine." ".g:netrw_port
else
- call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine)
+" call Decho("executing: %!".g:netrw_ftp_cmd." -i ".g:netrw_machine)
exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i ".g:netrw_machine
endif
" If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar)
" -i : turns off interactive prompting from ftp
" -n unix : DON'T use <.netrc>, even though it exists
" -n win32: quit being obnoxious about password
- call Decho('performing ftp -i -n')
+" call Decho('performing ftp -i -n')
norm 1Gdd
- call Decho("executing: %!".g:netrw_ftp_cmd." -i -n")
+" call Decho("executing: %!".g:netrw_ftp_cmd." -i -n")
exe g:netrw_silentxfer."%!".g:netrw_ftp_cmd." -i -n"
" If the result of the ftp operation isn't blank, show an error message (tnx to Doug Claar)
if getline(1) !~ "^$"
endif
if g:netrw_cygwin == 1
let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e')
- call Decho("executing: !".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')
else
- call Decho("executing: !".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_scp_cmd.useport." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')
endif
let b:netrw_lastfile = choice
".........................................
" dav: NetWrite Method #6
elseif b:netrw_method == 6 " write with cadaver
- call Decho("write via cadaver (method #6)")
+" call Decho("write via cadaver (method #6)")
" Construct execution string (four lines) which will be passed through filter
let netrw_fname= b:netrw_fname
" perform cadaver operation:
norm 1Gdd
- call Decho("executing: %!".g:netrw_dav_cmd)
+" call Decho("executing: %!".g:netrw_dav_cmd)
exe g:netrw_silentxfer."%!".g:netrw_dav_cmd
bd!
let b:netrw_lastfile = choice
elseif b:netrw_method == 7 " write with rsync
if g:netrw_cygwin == 1
let cygtmpfile=substitute(tmpfile,'^\(\a\):','/cygdrive/\1/','e')
- call Decho("executing: !".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".cygtmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')
else
- call Decho("executing: !".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
+" call Decho("executing: !".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&'))
exe g:netrw_silentxfer."!".g:netrw_rsync_cmd." ".tmpfile." ".g:netrw_machine.":".escape(b:netrw_fname,' ?&')
endif
let b:netrw_lastfile = choice
set ff=unix
put ='put '.tmpfile.' '.netrw_fname
norm 1Gdd
- call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine)
+" call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine)
exe g:netrw_silentxfer."%!".g:netrw_sftp_cmd.' '.uid_machine
bd!
let b:netrw_lastfile= choice
endwhile
" cleanup
- call Decho("cleanup")
+" call Decho("cleanup")
let result=delete(tmpfile)
call s:NetOptionRestore()
let &mod= mod " usually equivalent to set nomod
endif
- call Dret("NetWrite")
+" call Dret("NetWrite")
endfun
" end of NetWrite
" ------------------------------------------------------------------------
-" Remote Directory Browsing Support: {{{1
+" Browsing Support For Remote Directories And Files: {{{1
" NetBrowse: This function uses the command in g:netrw_list_cmd to get a list {{{2
" of the contents of a remote directory. It is assumed that the
" g:netrw_list_cmd has a string, HOSTNAME, that needs to be substituted
" with the requested remote hostname first.
fun! <SID>NetBrowse(dirname)
- call Dfunc("NetBrowse(dirname<".a:dirname.">)")
+" call Dfunc("NetBrowse(dirname<".a:dirname.">)")
" sanity check
if !exists("g:netrw_list_cmd") || g:netrw_list_cmd == ''
echoerr "***netrw*** this system doesn't support remote directory listing"
- call Dret("NetBrowse 0")
+" call Dret("NetBrowse 0")
return 0
endif
let dirpat = '^\(\w\{-}\)://\(\w\+@\)\=\([^/]\+\)/\(.*\)$'
if a:dirname !~ dirpat
echoerr "NetBrowse: I don't understand your dirname<".a:dirname.">"
- call Dret("NetBrowse 0 : badly formatted dirname")
+" call Dret("NetBrowse 0 : badly formatted dirname")
return 0
endif
let method = substitute(a:dirname,dirpat,'\1','')
let machine = substitute(a:dirname,dirpat,'\3','')
let path = substitute(a:dirname,dirpat,'\4','')
let fname = substitute(a:dirname,'^.*/\ze.','','')
- call Decho("set up method <".method .">")
- call Decho("set up user <".user .">")
- call Decho("set up machine<".machine.">")
- call Decho("set up path <".path .">")
- call Decho("set up fname <".fname .">")
+" call Decho("set up method <".method .">")
+" call Decho("set up user <".user .">")
+" call Decho("set up machine<".machine.">")
+" call Decho("set up path <".path .">")
+" call Decho("set up fname <".fname .">")
+
+ let listcmd = substitute(g:netrw_list_cmd,'\<HOSTNAME\>',user.machine,'')
+
+ " optionally sort by time (-t) or by size (-S)
+ if g:netrw_sort_by =~ "^t"
+ let listcmd= listcmd."t"
+ elseif g:netrw_sort_by =~ "^s"
+ let listcmd= listcmd."S"
+ endif
+ " optionally sort in reverse
+ if g:netrw_sort_direction =~ "^r"
+ let listcmd= listcmd."r"
+ endif
- let listcmd = substitute(g:netrw_list_cmd,'\<HOSTNAME\>',user.machine,'')
- call Decho("set up listcmd<".listcmd.">")
+" call Decho("set up listcmd<".listcmd.">")
if fname =~ '@$' && fname !~ '^"'
- call Decho("attempt transfer of symlink as file")
+" call Decho("attempt transfer of symlink as file")
call s:NetBrowse(substitute(a:dirname,'@$','','e'))
redraw!
- call Dret("NetBrowse 0 : symlink")
+" call Dret("NetBrowse 0 : symlink")
return 0
elseif fname !~ '/$' && fname !~ '^"'
" looks like a regular file, attempt transfer
- call Decho("attempt transfer as regular file<".a:dirname.">")
+" call Decho("attempt transfer as regular file<".a:dirname.">")
" remove any filetype indicator from end of dirname, except for the
" "this is a directory" indicator (/). There shouldn't be one of those,
" anyway.
let path= substitute(path,'[*=@|]$','','e')
- call Decho("new path<".path.">")
+" call Decho("new path<".path.">")
" remote-read the requested file into current buffer
enew!
1d
set nomod
- call Dret("NetBrowse 0 : file<".fname.">")
+" call Dret("NetBrowse 0 : file<".fname.">")
return 0
endif
" ---------------------------------------------------------------------
" Perform Directory Listing:
- call Decho("Perform directory listing...")
+" call Decho("Perform directory listing...")
" set up new buffer and map
let bufname = method.'://'.user.machine.'/'.path
let bufnamenr = bufnr(bufname)
- call Decho("bufname<".bufname."> bufnamenr=".bufnamenr)
+" call Decho("bufname<".bufname."> bufnamenr=".bufnamenr)
if bufnamenr != -1
" buffer already exists, switch to it!
exe "b ".bufnamenr
if line("$") >= 5
- call Dret("NetBrowse 1")
+" call Dret("NetBrowse 1")
return 1
endif
else
setlocal bt=nofile bh=wipe nobl
exe 'file '.bufname
set bt=nowrite bh=hide nobl
- nnoremap <buffer> <silent> <cr> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
+ nnoremap <buffer> <silent> <cr> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
nnoremap <buffer> <silent> <c-l> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))<cr>
nnoremap <buffer> <silent> - :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'../'))<cr>
nnoremap <buffer> <silent> a :let g:netrw_list_showall=1<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))<cr>
+ nnoremap <buffer> <silent> h :call <SID>NetHideEdit()<cr>
nnoremap <buffer> <silent> o :exe g:netrw_winsize."wincmd s"<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
+ nnoremap <buffer> <silent> r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
+ nnoremap <buffer> <silent> s :let g:netrw_sort_by= (g:netrw_sort_by =~ 'n')? 'time' : (g:netrw_sort_by =~ 't')? 'size' : 'name'<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))<cr>
nnoremap <buffer> <silent> v :exe g:netrw_winsize."wincmd v"<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
nnoremap <buffer> <silent> x :exe "norm! 0"<bar>call <SID>NetBrowseX(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
+ nnoremap <buffer> <silent> <2-leftmouse> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr>
exe 'nnoremap <buffer> <silent> <del> :exe "norm! 0"<bar>call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<cr>'
exe 'vnoremap <buffer> <silent> <del> :call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<cr>'
exe 'nnoremap <buffer> <silent> D :exe "norm! 0"<bar>call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<cr>'
nnoremap <buffer> ? :he netrw-dir<cr>
setlocal ma
- call Decho("executing: r! ".listcmd." '".path."'")
+ " Set up the banner
+" call Decho("executing: r! ".listcmd." '".path."'")
keepjumps put ='\" =============================='
keepjumps put ='\" Netrw Remote Directory Listing'
keepjumps put ='\" '.bufname
- let g:netrw_bannercnt= 5
+ let g:netrw_bannercnt= 6
+ if g:netrw_sort_by =~ "^n"
+ " sorted by name
+ let g:netrw_bannercnt= g:netrw_bannercnt + 1
+ keepjumps put ='\" Sorted by '.g:netrw_sort_by
+ keepjumps put ='\" Sort sequence: '.g:netrw_sort_sequence
+ else
+ " sorted by size or date
+ keepjumps put ='\" Sorted by '.g:netrw_sort_by
+ endif
if g:netrw_list_hide != "" && !exists("g:netrw_list_showall")
keepjumps put ='\" Hiding: '.g:netrw_list_hide
let g:netrw_bannercnt= g:netrw_bannercnt + 1
endif
keepjumps put ='\" =============================='
+
+ " remote read the requested directory
exe "silent r! ".listcmd." '".path."'"
keepjumps 1d
+
+ " manipulate the directory listing (hide, sort)
set ft=netrwlist
if line("$") >= g:netrw_bannercnt
if !exists("g:netrw_list_showall")
else
unlet g:netrw_list_showall
endif
- exe 'keepjumps silent '.g:netrw_bannercnt.',$s/^\(.*\)\([/@]\)$/ \2\1/e'
- exe 'keepjumps silent '.g:netrw_bannercnt.',$call s:NetSort()'
- exe 'keepjumps silent '.g:netrw_bannercnt.',$s/^ \(.\)\(.*\)$/\2\1/e'
- exe 'keepjumps '.g:netrw_bannercnt
+ if g:netrw_sort_by =~ "^n"
+ call s:SetSort()
+ exe 'keepjumps silent '.g:netrw_bannercnt.',$call s:NetSort()'
+ exe 'keepjumps silent '.g:netrw_bannercnt.',$s/^\d\{3}\///e'
+ endif
endif
let prvbuf= bufnr(bufname)
if prvbuf != -1
setlocal noma nomod
- call Dret("NetBrowse 1")
+" call Dret("NetBrowse 1")
return 1
endfun
" ---------------------------------------------------------------------
" NetBrowseChgDir: {{{2
fun! <SID>NetBrowseChgDir(dirname,newdir)
- call Dfunc("NetBrowseChgDir(dirname<".a:dirname."> newdir<".a:newdir.">)")
+" call Dfunc("NetBrowseChgDir(dirname<".a:dirname."> newdir<".a:newdir.">)")
let dirname= a:dirname
let newdir = a:newdir
if newdir !~ '/$'
" handling a file
let dirname= dirname.newdir
- call Decho("handling a file: dirname<".dirname.">")
+" call Decho("handling a file: dirname<".dirname.">")
elseif newdir == './'
" refresh the directory list
- call Decho("refresh directory listing")
+" call Decho("refresh directory listing")
set ma
%d
" strip off a directory name from dirname
let dirname= substitute(dirname,'^\(.*/\)[^/]\+/','\1','')
endif
- call Decho("go up one dir: dirname<".dirname."> trailer<".trailer.">")
+" call Decho("go up one dir: dirname<".dirname."> trailer<".trailer.">")
else
" go down one directory
let dirname= dirname.newdir
- call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">")
+" call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">")
endif
- call Dret("NetBrowseChgDir <".dirname.">")
+" call Dret("NetBrowseChgDir <".dirname.">")
return dirname
endfun
" ---------------------------------------------------------------------
" NetBrowseRm: remove a remote file or directory {{{2
fun! <SID>NetBrowseRm(usrhost,path) range
- call Dfunc("NetBrowseRm(usrhost<".a:usrhost."> path<".a:path.">)")
- call Decho("firstline=".a:firstline." lastline=".a:lastline)
+" call Dfunc("NetBrowseRm(usrhost<".a:usrhost."> path<".a:path.">)")
+" call Decho("firstline=".a:firstline." lastline=".a:lastline)
" preparation for removing multiple files/directories
let ctr= a:firstline
norm! 0
let rmfile= a:path.expand("<cWORD>")
- call Decho("rmfile<".rmfile.">")
+" call Decho("rmfile<".rmfile.">")
if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '/$')
" attempt to remove file
let netrw_rm_cmd= substitute(g:netrw_rm_cmd,'HOSTNAME',a:usrhost,'').' '.rmfile
- call Decho("attempt to remove file: system(".netrw_rm_cmd.")")
+" call Decho("attempt to remove file: system(".netrw_rm_cmd.")")
call inputsave()
let ok= input("Confirm deletion of file<".rmfile."> ","y")
call inputrestore()
if ok == "y"
let ret= system(netrw_rm_cmd)
- call Decho("returned=".ret." errcode=".v:shell_error)
+" call Decho("returned=".ret." errcode=".v:shell_error)
endif
else
" attempt to remove directory
let netrw_rmdir_cmd= substitute(g:netrw_rmdir_cmd,'HOSTNAME',a:usrhost,'').' '.rmfile
- call Decho("attempt to remove dir: system(".netrw_rmdir_cmd.")")
+" call Decho("attempt to remove dir: system(".netrw_rmdir_cmd.")")
call inputsave()
let ok= input("Confirm deletion of directory<".rmfile."> ","y")
call inputrestore()
if ok == "y"
let ret= system(netrw_rmdir_cmd)
- call Decho("returned=".ret." errcode=".v:shell_error)
+" call Decho("returned=".ret." errcode=".v:shell_error)
if v:shell_error != 0
let netrw_rmf_cmd= substitute(g:netrw_rmf_cmd,'HOSTNAME',a:usrhost,'').' '.substitute(rmfile,'/$','','e')
- call Decho("2nd attempt to remove dir: system(".netrw_rmf_cmd.")")
+" call Decho("2nd attempt to remove dir: system(".netrw_rmf_cmd.")")
let ret= system(netrw_rmf_cmd)
- call Decho("returned=".ret." errcode=".v:shell_error)
+" call Decho("returned=".ret." errcode=".v:shell_error)
if v:shell_error != 0
echoerr "unable to remove directory<".rmfile."> -- is it empty?"
" refresh the directory
let curline= line(".")-1
- call Decho("refresh the directory")
+" call Decho("refresh the directory")
call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))
exe curline
- call Dret("NetBrowseRm")
+" call Dret("NetBrowseRm")
endfun
" ---------------------------------------------------------------------
" NetBrowseRename: rename a remote file or directory {{{2
fun! <SID>NetBrowseRename(usrhost,path)
- call Dfunc("NetBrowseRename(usrhost<".a:usrhost."> path<".a:path.">)")
+" call Dfunc("NetBrowseRename(usrhost<".a:usrhost."> path<".a:path.">)")
" preparation for removing multiple files/directories
let ctr = a:firstline
norm! 0
let oldname= a:path.expand("<cWORD>")
- call Decho("oldname<".oldname.">")
+" call Decho("oldname<".oldname.">")
call inputsave()
let newname= input("Moving ".a:usrhost."'s ".oldname." to : ",oldname)
call inputrestore()
let ret= system(rename_cmd." ".oldname." ".newname)
- call Decho("executing system(".rename_cmd." ".oldname." ".newname)
+" call Decho("executing system(".rename_cmd." ".oldname." ".newname)
let ctr= ctr + 1
endwhile
let curline= line(".")
call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))
exe curline
- call Dret("NetBrowseRename")
+" call Dret("NetBrowseRename")
endfun
" ---------------------------------------------------------------------
" NetBrowseX: allows users to write custom functions to operate on {{{2
" files given their extension
fun! <SID>NetBrowseX(fname)
- call Dfunc("NetBrowseX(".a:fname.")")
+" call Dfunc("NetBrowseX(".a:fname.")")
let exten= substitute(a:fname,'.*\.\(.\{-}\)','\1','e')
- call Decho("exten<".exten."> "."NetrwFileHandler_".exten."():exists=".exists("*NetrwFileHandler_".exten))
+" call Decho("exten<".exten."> "."NetrwFileHandler_".exten."():exists=".exists("*NetrwFileHandler_".exten))
if exten != "" && exists("*NetrwFileHandler_".exten)
exe "call NetrwFileHandler_".exten.'("'.a:fname.'")'
endif
- call Dret("NetBrowseX")
+" call Dret("NetBrowseX")
endfun
" ---------------------------------------------------------------------
" NetrwListHide: uses [range]g~...~d to delete files that match comma {{{2
" separated patterns given in g:netrw_list_hide
fun! <SID>NetrwListHide()
- call Dfunc("NetrwListHide() listhide<".g:netrw_list_hide.">")
+" call Dfunc("NetrwListHide() listhide<".g:netrw_list_hide.">")
let listhide= g:netrw_list_hide
while listhide != ""
let hide = listhide
let listhide= ""
endif
- call Decho("pruning <".hide."> listhide<".listhide.">")
+" call Decho("pruning <".hide."> listhide<".listhide.">")
exe 'keepjumps silent '.g:netrw_bannercnt.',$g~'.hide.'~d'
endwhile
- call Dret("NetrwListHide")
+" call Dret("NetrwListHide")
+endfun
+
+" ---------------------------------------------------------------------
+" NetHideEdit: allows user to edit the file/directory hiding list
+fun! <SID>NetHideEdit()
+" call Dfunc("NetHideEdit()")
+
+ call inputsave()
+ let newhide= input("Edit Hiding List: ",g:netrw_list_hide)
+ call inputrestore()
+
+ " refresh the listing
+ let g:netrw_list_hide= newhide
+ silent call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./'))
+
+" call Dret("NetHideEdit")
endfun
" ------------------------------------------------------------------------
" 8: fetch
" 9: sftp
fun! s:NetMethod(choice) " globals: method machine id passwd fname
- call Dfunc("NetMethod(a:choice<".a:choice.">)")
+" call Dfunc("NetMethod(a:choice<".a:choice.">)")
" initialization
let b:netrw_method = 0
let g:netrw_port = ""
" Patterns:
- " mipf : a:machine a:id password filename Use ftp
- " mf : a:machine filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
+ " mipf : a:machine a:id password filename Use ftp
+ " mf : a:machine filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
" ftpurm : ftp://[user@]host[[#:]port]/filename Use ftp + <.netrc> or g:netrw_uid g:netrw_passwd
- " rcpurm : rcp://[user@]host/filename Use rcp
- " rcphf : [user@]host:filename Use rcp
+ " rcpurm : rcp://[user@]host/filename Use rcp
+ " rcphf : [user@]host:filename Use rcp
" scpurm : scp://[user@]host[[#:]port]/filename Use scp
- " httpurm : http://[user@]host/filename Use wget
- " davurm : dav://host[:port]/path Use cadaver
+ " httpurm : http://[user@]host/filename Use wget
+ " davurm : [s]dav://host[:port]/path Use cadaver
" rsyncurm : rsync://host[:port]/path Use rsync
" fetchurm : fetch://[user@]host[:http]/filename Use fetch (defaults to ftp, override for http)
" sftpurm : sftp://[user@]host/filename Use scp
let rcphf = '^\(\(\h\w*\)@\)\=\(\h\w*\):\([^@]\+\)$'
let scpurm = '^scp://\([^/]\{-}\)\([#:]\d\+\)\=/\(.*\)$'
let httpurm = '^http://\([^/]\{-}\)\(/.*\)\=$'
- let davurm = '^dav://\([^/]\{-}\)/\(.*\)\=$'
+ let davurm = '^s\=dav://\([^/]\+\)/\(.*/\)\([-_.~[:alnum:]]\+\)$'
let rsyncurm = '^rsync://\([^/]\{-}\)/\(.*\)\=$'
let fetchurm = '^fetch://\(\([^/@]\{-}\)@\)\=\([^/#:]\{-}\)\(:http\)\=/\(.*\)$'
let sftpurm = '^sftp://\([^/]\{-}\)/\(.*\)\=$'
- call Decho("determine method:")
+" call Decho("determine method:")
" Determine Method
" rcp://user@hostname/...path-to-file
if match(a:choice,rcpurm) == 0
- call Decho("rcp://...")
+" call Decho("rcp://...")
let b:netrw_method = 1
let userid = substitute(a:choice,rcpurm,'\2',"")
let g:netrw_machine= substitute(a:choice,rcpurm,'\3',"")
" scp://user@hostname/...path-to-file
elseif match(a:choice,scpurm) == 0
- call Decho("scp://...")
+" call Decho("scp://...")
let b:netrw_method = 4
let g:netrw_machine= substitute(a:choice,scpurm,'\1',"")
let b:netrw_port = substitute(a:choice,scpurm,'\2',"")
" http://user@hostname/...path-to-file
elseif match(a:choice,httpurm) == 0
- call Decho("http://...")
+" call Decho("http://...")
let b:netrw_method = 5
let g:netrw_machine= substitute(a:choice,httpurm,'\1',"")
let b:netrw_fname = substitute(a:choice,httpurm,'\2',"")
" dav://hostname[:port]/..path-to-file..
elseif match(a:choice,davurm) == 0
- call Decho("dav://...")
+" call Decho("dav://...")
let b:netrw_method= 6
- let g:netrw_machine= substitute(a:choice,davurm,'\1',"")
- let b:netrw_fname = substitute(a:choice,davurm,'\2',"")
+ if a:choice =~ '^s'
+ let g:netrw_machine= 'https://'.substitute(a:choice,davurm,'\1/\2',"")
+ else
+ let g:netrw_machine= 'http://'.substitute(a:choice,davurm,'\1/\2',"")
+ endif
+ let b:netrw_fname = substitute(a:choice,davurm,'\3',"")
" rsync://user@hostname/...path-to-file
elseif match(a:choice,rsyncurm) == 0
- call Decho("rsync://...")
+" call Decho("rsync://...")
let b:netrw_method = 7
let g:netrw_machine= substitute(a:choice,rsyncurm,'\1',"")
let b:netrw_fname = substitute(a:choice,rsyncurm,'\2',"")
" ftp://[user@]hostname[[:#]port]/...path-to-file
elseif match(a:choice,ftpurm) == 0
- call Decho("ftp://...")
+" call Decho("ftp://...")
let userid = substitute(a:choice,ftpurm,'\2',"")
let g:netrw_machine= substitute(a:choice,ftpurm,'\3',"")
let g:netrw_port = substitute(a:choice,ftpurm,'\4',"")
endif
elseif match(a:choice,fetchurm) == 0
- call Decho("fetch://...")
+" call Decho("fetch://...")
let b:netrw_method = 8
let g:netrw_userid = substitute(a:choice,fetchurm,'\2',"")
let g:netrw_machine= substitute(a:choice,fetchurm,'\3',"")
" Issue an ftp : "machine id password [path/]filename"
elseif match(a:choice,mipf) == 0
- call Decho("(ftp) host id pass file")
+" call Decho("(ftp) host id pass file")
let b:netrw_method = 3
let g:netrw_machine = substitute(a:choice,mipf,'\1',"")
let g:netrw_uid = substitute(a:choice,mipf,'\2',"")
" Issue an ftp: "hostname [path/]filename"
elseif match(a:choice,mf) == 0
- call Decho("(ftp) host file")
+" call Decho("(ftp) host file")
if exists("g:netrw_uid") && exists("g:netrw_passwd")
let b:netrw_method = 3
let g:netrw_machine = substitute(a:choice,mf,'\1',"")
" sftp://user@hostname/...path-to-file
elseif match(a:choice,sftpurm) == 0
- call Decho("sftp://...")
+" call Decho("sftp://...")
let b:netrw_method = 9
let g:netrw_machine= substitute(a:choice,sftpurm,'\1',"")
let b:netrw_fname = substitute(a:choice,sftpurm,'\2',"")
" Issue an rcp: hostname:filename" (this one should be last)
elseif match(a:choice,rcphf) == 0
- call Decho("(rcp) [user@]host:file) rcphf<".rcphf.">")
+" call Decho("(rcp) [user@]host:file) rcphf<".rcphf.">")
let b:netrw_method = 1
let userid = substitute(a:choice,rcphf,'\2',"")
let g:netrw_machine= substitute(a:choice,rcphf,'\3',"")
let b:netrw_fname = substitute(a:choice,rcphf,'\4',"")
- call Decho('\1<'.substitute(a:choice,rcphf,'\1',"").">")
- call Decho('\2<'.substitute(a:choice,rcphf,'\2',"").">")
- call Decho('\3<'.substitute(a:choice,rcphf,'\3',"").">")
- call Decho('\4<'.substitute(a:choice,rcphf,'\4',"").">")
+" call Decho('\1<'.substitute(a:choice,rcphf,'\1',"").">")
+" call Decho('\2<'.substitute(a:choice,rcphf,'\2',"").">")
+" call Decho('\3<'.substitute(a:choice,rcphf,'\3',"").">")
+" call Decho('\4<'.substitute(a:choice,rcphf,'\4',"").">")
if userid != ""
let g:netrw_uid= userid
endif
let b:netrw_method = -1
endif
- call Decho("a:choice <".a:choice.">")
- call Decho("b:netrw_method <".b:netrw_method.">")
- call Decho("g:netrw_machine<".g:netrw_machine.">")
- call Decho("g:netrw_port <".g:netrw_port.">")
- if exists("g:netrw_uid") "Decho
- call Decho("g:netrw_uid <".g:netrw_uid.">")
- endif "Decho
- if exists("g:netrw_passwd") "Decho
- call Decho("g:netrw_passwd <".g:netrw_passwd.">")
- endif "Decho
- call Decho("b:netrw_fname <".b:netrw_fname.">")
- call Dret("NetMethod")
+" call Decho("a:choice <".a:choice.">")
+" call Decho("b:netrw_method <".b:netrw_method.">")
+" call Decho("g:netrw_machine<".g:netrw_machine.">")
+" call Decho("g:netrw_port <".g:netrw_port.">")
+" if exists("g:netrw_uid") "Decho
+" call Decho("g:netrw_uid <".g:netrw_uid.">")
+" endif "Decho
+" if exists("g:netrw_passwd") "Decho
+" call Decho("g:netrw_passwd <".g:netrw_passwd.">")
+" endif "Decho
+" call Decho("b:netrw_fname <".b:netrw_fname.">")
+" call Dret("NetMethod")
endfun
" end of NetMethod
" get/set userid
if a:0 == 0
- call Dfunc("NetUserPass(a:0<".a:0.">)")
+" call Dfunc("NetUserPass(a:0<".a:0.">)")
if !exists("g:netrw_uid") || g:netrw_uid == ""
" via prompt
let g:netrw_uid= input('Enter username: ')
endif
else " from command line
- call Dfunc("NetUserPass(a:1<".a:1.">) {")
+" call Dfunc("NetUserPass(a:1<".a:1.">) {")
let g:netrw_uid= a:1
endif
" get password
if a:0 <= 1 " via prompt
- call Decho("a:0=".a:0." case <=1:")
+" call Decho("a:0=".a:0." case <=1:")
let g:netrw_passwd= inputsecret("Enter Password: ")
else " from command line
- call Decho("a:0=".a:0." case >1: a:2<".a:2.">")
+" call Decho("a:0=".a:0." case >1: a:2<".a:2.">")
let g:netrw_passwd=a:2
endif
- call Dret("NetUserPass")
+" call Dret("NetUserPass")
endfun
" end NetUserPass
" ------------------------------------------------------------------------
" NetOptionSave: save options and set to "standard" form {{{1
fun!s:NetOptionSave()
- call Dfunc("NetOptionSave()")
+" call Dfunc("NetOptionSave()")
" Get Temporary Filename
let s:aikeep = &ai
if has("win32") && !has("win95")
let s:swfkeep= &swf
set noswf
- call Decho("setting s:swfkeep to <".&swf.">")
+" call Decho("setting s:swfkeep to <".&swf.">")
endif
- call Dret("NetOptionSave")
+" call Dret("NetOptionSave")
endfun
" ------------------------------------------------------------------------
" NetOptionRestore: restore options {{{1
fun! s:NetOptionRestore()
- call Dfunc("NetOptionRestore()")
+" call Dfunc("NetOptionRestore()")
let &ai = s:aikeep
let &cin = s:cinkeep
unlet s:twkeep
unlet s:dirkeep
- call Dret("NetOptionRestore")
+" call Dret("NetOptionRestore")
endfun
" ------------------------------------------------------------------------
" at the end of the transfer.
if has("win95") && g:netrw_win95ftp
fun! NetReadFixup(method, line1, line2)
- call Dfunc("NetReadFixup(method<".a:method."> line1=".a:line1." line2=".a:line2.")")
+" call Dfunc("NetReadFixup(method<".a:method."> line1=".a:line1." line2=".a:line2.")")
if method == 3 " ftp (no <.netrc>)
let fourblanklines= line2 - 3
silent fourblanklines.",".line2."g/^\s*/d"
endif
- call Dret("NetReadFixup")
+" call Dret("NetReadFixup")
endfun
endif
" ---------------------------------------------------------------------
-" NetSort: Piet Delport's BISort2() function, modified to take a range
+" NetSort: Piet Delport's BISort2() function, modified to take a range {{{1
fun! <SID>NetSort() range
let i = a:firstline + 1
while i <= a:lastline
while lo < hi
let mid = (lo + hi) / 2
let mid_val = getline(mid)
- if i_val < mid_val
- let hi = mid
+ if g:netrw_sort_direction =~ '^n'
+ " normal sorting order
+ if i_val < mid_val
+ let hi = mid
+ else
+ let lo = mid + 1
+ if i_val == mid_val | break | endif
+ endif
else
- let lo = mid + 1
- if i_val == mid_val | break | endif
+ " reverse sorting order
+ if i_val > mid_val
+ let hi = mid
+ else
+ let lo = mid + 1
+ if i_val == mid_val | break | endif
+ endif
endif
endwhile
" do insert
endwhile
endfun
+" ---------------------------------------------------------------------
+" SetSort: sets up the sort based on the g:netrw_sort_sequence
+fun! <SID>SetSort()
+" call Dfunc("SetSort() bannercnt=".g:netrw_bannercnt)
+ let seqlist = g:netrw_sort_sequence
+ let priority = 1
+ while seqlist != ""
+ if seqlist =~ ','
+ let seq = substitute(seqlist,',.*$','','e')
+ let seqlist = substitute(seqlist,'^.\{-},\(.*\)$','\1','e')
+ else
+ let seq = seqlist
+ let seqlist = ""
+ endif
+ let eseq= escape(seq,'/')
+ if priority < 10
+ let spriority= "00".priority.'\/'
+ elseif priority < 100
+ let spriority= "0".priority.'\/'
+ else
+ let spriority= priority.'\/'
+ endif
+" call Decho("priority=".priority." spriority<".spriority."> seq<".seq."> seqlist<".seqlist.">")
+
+ if seq == '*'
+ exe 'keepjumps silent '.g:netrw_bannercnt.',$v/^\d\{3}\//s/^/'.spriority.'/'
+ else
+ exe 'keepjumps silent '.g:netrw_bannercnt.',$g/'.eseq.'/s/^/'.spriority.'/'
+ endif
+ let priority = priority + 1
+ endwhile
+
+ exe 'keepjumps silent '.g:netrw_bannercnt.',$s/^\(\d\{3}\/\)\%(\d\{3}\/\)\+/\1/e'
+
+" call Dret("SetSort")
+endfun
+
" ------------------------------------------------------------------------
" Restore {{{1
let &cpo= s:save_cpo
--- /dev/null
+" Vim syntax file\r
+" Language: MuPAD source\r
+" Maintainer: Dave Silvia <dsilvia@mchsi.com>\r
+" Filenames: *.mu\r
+" Date: 6/30/2004\r
+\r
+\r
+" For version 5.x: Clear all syntax items\r
+" For version 6.x: Quit when a syntax file was already loaded\r
+if version < 600\r
+ syntax clear\r
+elseif exists("b:current_syntax")\r
+ finish\r
+endif\r
+\r
+" Set default highlighting to Win2k\r
+if !exists("mupad_cmdextversion")\r
+ let mupad_cmdextversion = 2\r
+endif\r
+\r
+syn case match\r
+\r
+syn match mupadComment "//\p*$"\r
+syn region mupadComment start="/\*" end="\*/"\r
+\r
+syn region mupadString start="\"" skip=/\\"/ end="\""\r
+\r
+syn match mupadOperator "(\|)\|:=\|::\|:\|;"\r
+" boolean\r
+syn keyword mupadOperator and or not xor\r
+syn match mupadOperator "==>\|\<=\>"\r
+\r
+" Informational\r
+syn keyword mupadSpecial FILEPATH NOTEBOOKFILE NOTEBOOKPATH\r
+" Set-able, e.g., DIGITS:=10\r
+syn keyword mupadSpecial DIGITS HISTORY LEVEL\r
+syn keyword mupadSpecial MAXLEVEL MAXDEPTH ORDER\r
+syn keyword mupadSpecial TEXTWIDTH\r
+" Set-able, e.g., PRETTYPRINT:=TRUE\r
+syn keyword mupadSpecial PRETTYPRINT\r
+" Set-able, e.g., LIBPATH:="C:\\MuPAD Pro\\mylibdir" or LIBPATH:="/usr/MuPAD Pro/mylibdir"\r
+syn keyword mupadSpecial LIBPATH PACKAGEPATH\r
+syn keyword mupadSpecial READPATH TESTPATH WRITEPATH\r
+" Symbols and Constants\r
+syn keyword mupadDefine FAIL NIL\r
+syn keyword mupadDefine TRUE FALSE UNKNOWN\r
+syn keyword mupadDefine complexInfinity infinity\r
+syn keyword mupadDefine C_ CATALAN E EULER I PI Q_ R_\r
+syn keyword mupadDefine RD_INF RD_NINF undefined unit universe Z_\r
+" print() directives\r
+syn keyword mupadDefine Unquoted NoNL KeepOrder Typeset\r
+" domain specifics\r
+syn keyword mupadStatement domain begin end_domain end\r
+syn keyword mupadIdentifier inherits category axiom info doc interface\r
+" basic programming statements\r
+syn keyword mupadStatement proc begin end_proc \r
+syn keyword mupadUnderlined name local option save\r
+syn keyword mupadConditional if then elif else end_if\r
+syn keyword mupadConditional case of do break end_case\r
+syn keyword mupadRepeat for do next break end_for\r
+syn keyword mupadRepeat while do next break end_while\r
+syn keyword mupadRepeat repeat next break until end_repeat\r
+" domain packages/libraries\r
+syn keyword mupadType detools import linalg numeric numlib plot polylib\r
+syn match mupadType '\<DOM_\w*\>'\r
+\r
+"syn keyword mupadFunction contains\r
+" Functions dealing with prime numbers\r
+syn keyword mupadFunction phi invphi mersenne nextprime numprimedivisors\r
+syn keyword mupadFunction pollard prevprime primedivisors\r
+" Functions operating on Lists, Matrices, Sets, ...\r
+syn keyword mupadFunction array _index\r
+" Evaluation\r
+syn keyword mupadFunction float contains\r
+" stdlib\r
+syn keyword mupadFunction _exprseq _invert _lazy_and _lazy_or _negate\r
+syn keyword mupadFunction _stmtseq _invert intersect minus union\r
+syn keyword mupadFunction Ci D Ei O Re Im RootOf Si\r
+syn keyword mupadFunction Simplify\r
+syn keyword mupadFunction abs airyAi airyBi alias unalias anames append\r
+syn keyword mupadFunction arcsin arccos arctan arccsc arcsec arccot\r
+syn keyword mupadFunction arcsinh arccosh arctanh arccsch arcsech arccoth\r
+syn keyword mupadFunction arg args array assert assign assignElements\r
+syn keyword mupadFunction assume assuming asympt bernoulli\r
+syn keyword mupadFunction besselI besselJ besselK besselY beta binomial bool\r
+syn keyword mupadFunction bytes card\r
+syn keyword mupadFunction ceil floor round trunc\r
+syn keyword mupadFunction coeff coerce collect combine copyClosure\r
+syn keyword mupadFunction conjugate content context contfrac\r
+syn keyword mupadFunction debug degree degreevec delete _delete denom\r
+syn keyword mupadFunction densematrix diff dilog dirac discont div _div\r
+syn keyword mupadFunction divide domtype doprint erf erfc error eval evalassign\r
+syn keyword mupadFunction evalp exp expand export unexport expose expr\r
+syn keyword mupadFunction expr2text external extnops extop extsubsop\r
+syn keyword mupadFunction fact fact2 factor fclose finput fname fopen fprint\r
+syn keyword mupadFunction fread ftextinput readbitmap readdata pathname\r
+syn keyword mupadFunction protocol read readbytes write writebytes\r
+syn keyword mupadFunction float frac frame _frame frandom freeze unfreeze\r
+syn keyword mupadFunction funcenv gamma gcd gcdex genident genpoly\r
+syn keyword mupadFunction getpid getprop ground has hastype heaviside help\r
+syn keyword mupadFunction history hold hull hypergeom icontent id\r
+syn keyword mupadFunction ifactor igamma igcd igcdex ilcm in _in\r
+syn keyword mupadFunction indets indexval info input int int2text\r
+syn keyword mupadFunction interpolate interval irreducible is\r
+syn keyword mupadFunction isprime isqrt iszero ithprime kummerU lambertW\r
+syn keyword mupadFunction last lasterror lcm lcoeff ldegree length\r
+syn keyword mupadFunction level lhs rhs limit linsolve lllint\r
+syn keyword mupadFunction lmonomial ln loadmod loadproc log lterm\r
+syn keyword mupadFunction match map mapcoeffs maprat matrix max min\r
+syn keyword mupadFunction mod modp mods monomials multcoeffs new\r
+syn keyword mupadFunction newDomain _next nextprime nops\r
+syn keyword mupadFunction norm normal nterms nthcoeff nthmonomial nthterm\r
+syn keyword mupadFunction null numer ode op operator package\r
+syn keyword mupadFunction pade partfrac patchlevel pdivide\r
+syn keyword mupadFunction piecewise plot plotfunc2d plotfunc3d\r
+syn keyword mupadFunction poly poly2list polylog powermod print\r
+syn keyword mupadFunction product protect psi quit _quit radsimp random rationalize\r
+syn keyword mupadFunction rec rectform register reset return revert\r
+syn keyword mupadFunction rewrite select series setuserinfo share sign signIm\r
+syn keyword mupadFunction simplify \r
+syn keyword mupadFunction sin cos tan csc sec cot\r
+syn keyword mupadFunction sinh cosh tanh csch sech coth\r
+syn keyword mupadFunction slot solve \r
+syn keyword mupadFunction pdesolve matlinsolve matlinsolveLU toeplitzSolve\r
+syn keyword mupadFunction vandermondeSolve fsolve odesolve odesolve2\r
+syn keyword mupadFunction polyroots polysysroots odesolveGeometric\r
+syn keyword mupadFunction realroot realroots mroots lincongruence\r
+syn keyword mupadFunction msqrts\r
+syn keyword mupadFunction sort split sqrt strmatch strprint\r
+syn keyword mupadFunction subs subset subsex subsop substring sum\r
+syn keyword mupadFunction surd sysname sysorder system table taylor tbl2text\r
+syn keyword mupadFunction tcoeff testargs testeq testtype text2expr\r
+syn keyword mupadFunction text2int text2list text2tbl rtime time\r
+syn keyword mupadFunction traperror type unassume unit universe\r
+syn keyword mupadFunction unloadmod unprotect userinfo val version\r
+syn keyword mupadFunction warning whittakerM whittakerW zeta zip\r
+\r
+" graphics plot::\r
+syn keyword mupadFunction getDefault setDefault copy modify Arc2d Arrow2d\r
+syn keyword mupadFunction Arrow3d Bars2d Bars3d Box Boxplot Circle2d Circle3d\r
+syn keyword mupadFunction Cone Conformal Curve2d Curve3d Cylinder Cylindrical\r
+syn keyword mupadFunction Density Ellipse2d Function2d Function3d Hatch\r
+syn keyword mupadFunction Histogram2d HOrbital Implicit2d Implicit3d\r
+syn keyword mupadFunction Inequality Iteration Line2d Line3d Lsys Matrixplot\r
+syn keyword mupadFunction MuPADCube Ode2d Ode3d Parallelogram2d Parallelogram3d\r
+syn keyword mupadFunction Piechart2d Piechart3d Point2d Point3d Polar\r
+syn keyword mupadFunction Polygon2d Polygon3d Raster Rectangle Sphere\r
+syn keyword mupadFunction Ellipsoid Spherical Sum Surface SurfaceSet\r
+syn keyword mupadFunction SurfaceSTL Tetrahedron Hexahedron Octahedron\r
+syn keyword mupadFunction Dodecahedron Icosahedron Text2d Text3d Tube Turtle\r
+syn keyword mupadFunction VectorField2d XRotate ZRotate Canvas CoordinateSystem2d\r
+syn keyword mupadFunction CoordinateSystem3d Group2d Group3d Scene2d Scene3d ClippingBox\r
+syn keyword mupadFunction Rotate2d Rotate3d Scale2d Scale3d Transform2d\r
+syn keyword mupadFunction Transform3d Translate2d Translate3d AmbientLight\r
+syn keyword mupadFunction Camera DistantLight PointLight SpotLight\r
+\r
+" graphics Attributes\r
+" graphics Output Attributes\r
+syn keyword mupadIdentifier OutputFile OutputOptions\r
+" graphics Defining Attributes\r
+syn keyword mupadIdentifier Angle AngleRange AngleBegin AngleEnd\r
+syn keyword mupadIdentifier Area Axis AxisX AxisY AxisZ Base Top\r
+syn keyword mupadIdentifier BaseX TopX BaseY TopY BaseZ TopZ\r
+syn keyword mupadIdentifier BaseRadius TopRadius Cells\r
+syn keyword mupadIdentifier Center CenterX CenterY CenterZ\r
+syn keyword mupadIdentifier Closed ColorData CommandList Contours CoordinateType\r
+syn keyword mupadIdentifier Data DensityData DensityFunction From To\r
+syn keyword mupadIdentifier FromX ToX FromY ToY FromZ ToZ\r
+syn keyword mupadIdentifier Function FunctionX FunctionY FunctionZ\r
+syn keyword mupadIdentifier Function1 Function2 Baseline\r
+syn keyword mupadIdentifier Generations RotationAngle IterationRules StartRule StepLength\r
+syn keyword mupadIdentifier TurtleRules Ground Heights Moves Inequalities\r
+syn keyword mupadIdentifier InputFile Iterations StartingPoint\r
+syn keyword mupadIdentifier LineColorFunction FillColorFunction\r
+syn keyword mupadIdentifier Matrix2d Matrix3d\r
+syn keyword mupadIdentifier MeshList MeshListType MeshListNormals\r
+syn keyword mupadIdentifier MagneticQuantumNumber MomentumQuantumNumber PrincipalQuantumNumber\r
+syn keyword mupadIdentifier Name Normal NormalX NormalY NormalZ\r
+syn keyword mupadIdentifier ParameterName ParameterBegin ParameterEnd ParameterRange\r
+syn keyword mupadIdentifier Points2d Points3d Radius RadiusFunction\r
+syn keyword mupadIdentifier Position PositionX PositionY PositionZ\r
+syn keyword mupadIdentifier Scale ScaleX ScaleY ScaleZ Shift ShiftX ShiftY ShiftZ\r
+syn keyword mupadIdentifier SemiAxes SemiAxisX SemiAxisY SemiAxisZ\r
+syn keyword mupadIdentifier Tangent1 Tangent1X Tangent1Y Tangent1Z\r
+syn keyword mupadIdentifier Tangent2 Tangent2X Tangent2Y Tangent2Z\r
+syn keyword mupadIdentifier Text TextOrientation TextRotation\r
+syn keyword mupadIdentifier UName URange UMin UMax VName VRange VMin VMax\r
+syn keyword mupadIdentifier XName XRange XMin XMax YName YRange YMin YMax\r
+syn keyword mupadIdentifier ZName ZRange ZMin ZMax ViewingBox\r
+syn keyword mupadIdentifier ViewingBoxXMin ViewingBoxXMax ViewingBoxXRange\r
+syn keyword mupadIdentifier ViewingBoxYMin ViewingBoxYMax ViewingBoxYRange\r
+syn keyword mupadIdentifier ViewingBoxZMin ViewingBoxZMax ViewingBoxZRange\r
+syn keyword mupadIdentifier Visible\r
+" graphics Axis Attributes\r
+syn keyword mupadIdentifier Axes AxesInFront AxesLineColor AxesLineWidth\r
+syn keyword mupadIdentifier AxesOrigin AxesOriginX AxesOriginY AxesOriginZ\r
+syn keyword mupadIdentifier AxesTips AxesTitleAlignment\r
+syn keyword mupadIdentifier AxesTitleAlignmentX AxesTitleAlignmentY AxesTitleAlignmentZ\r
+syn keyword mupadIdentifier AxesTitles XAxisTitle YAxisTitle ZAxisTitle\r
+syn keyword mupadIdentifier AxesVisible XAxisVisible YAxisVisible ZAxisVisible\r
+syn keyword mupadIdentifier YAxisTitleOrientation\r
+" graphics Tick Marks Attributes\r
+syn keyword mupadIdentifier TicksAnchor XTicksAnchor YTicksAnchor ZTicksAnchor\r
+syn keyword mupadIdentifier TicksAt XTicksAt YTicksAt ZTicksAt\r
+syn keyword mupadIdentifier TicksBetween XTicksBetween YTicksBetween ZTicksBetween\r
+syn keyword mupadIdentifier TicksDistance XTicksDistance YTicksDistance ZTicksDistance\r
+syn keyword mupadIdentifier TicksNumber XTicksNumber YTicksNumber ZTicksNumber\r
+syn keyword mupadIdentifier TicksVisible XTicksVisible YTicksVisible ZTicksVisible\r
+syn keyword mupadIdentifier TicksLength TicksLabelStyle\r
+syn keyword mupadIdentifier XTicksLabelStyle YTicksLabelStyle ZTicksLabelStyle\r
+syn keyword mupadIdentifier TicksLabelsVisible\r
+syn keyword mupadIdentifier XTicksLabelsVisible YTicksLabelsVisible ZTicksLabelsVisible\r
+" graphics Grid Lines Attributes\r
+syn keyword mupadIdentifier GridInFront GridLineColor SubgridLineColor\r
+syn keyword mupadIdentifier GridLineStyle SubgridLineStyle GridLineWidth SubgridLineWidth\r
+syn keyword mupadIdentifier GridVisible XGridVisible YGridVisible ZGridVisible\r
+syn keyword mupadIdentifier SubgridVisible XSubgridVisible YSubgridVisible ZSubgridVisible\r
+" graphics Animation Attributes\r
+syn keyword mupadIdentifier Frames TimeRange TimeBegin TimeEnd\r
+syn keyword mupadIdentifier VisibleAfter VisibleBefore VisibleFromTo\r
+syn keyword mupadIdentifier VisibleAfterEnd VisibleBeforeBegin\r
+" graphics Annotation Attributes\r
+syn keyword mupadIdentifier Footer Header FooterAlignment HeaderAlignment\r
+syn keyword mupadIdentifier HorizontalAlignment TitleAlignment VerticalAlignment\r
+syn keyword mupadIdentifier Legend LegendEntry LegendText\r
+syn keyword mupadIdentifier LegendAlignment LegendPlacement LegendVisible\r
+syn keyword mupadIdentifier Title Titles\r
+syn keyword mupadIdentifier TitlePosition TitlePositionX TitlePositionY TitlePositionZ\r
+" graphics Layout Attributes\r
+syn keyword mupadIdentifier Bottom Left Height Width Layout Rows Columns\r
+syn keyword mupadIdentifier Margin BottomMargin TopMargin LeftMargin RightMargin\r
+syn keyword mupadIdentifier OutputUnits Spacing\r
+" graphics Calculation Attributes\r
+syn keyword mupadIdentifier AdaptiveMesh DiscontinuitySearch Mesh SubMesh\r
+syn keyword mupadIdentifier UMesh USubMesh VMesh VSubMesh\r
+syn keyword mupadIdentifier XMesh XSubMesh YMesh YSubMesh Zmesh\r
+" graphics Camera and Lights Attributes\r
+syn keyword mupadIdentifier CameraCoordinates CameraDirection\r
+syn keyword mupadIdentifier CameraDirectionX CameraDirectionY CameraDirectionZ\r
+syn keyword mupadIdentifier FocalPoint FocalPointX FocalPointY FocalPointZ\r
+syn keyword mupadIdentifier LightColor Lighting LightIntensity OrthogonalProjection\r
+syn keyword mupadIdentifier SpotAngle ViewingAngle\r
+syn keyword mupadIdentifier Target TargetX TargetY TargetZ\r
+" graphics Presentation Style and Fonts Attributes\r
+syn keyword mupadIdentifier ArrowLength\r
+syn keyword mupadIdentifier AxesTitleFont FooterFont HeaderFont LegendFont\r
+syn keyword mupadIdentifier TextFont TicksLabelFont TitleFont\r
+syn keyword mupadIdentifier BackgroundColor BackgroundColor2 BackgroundStyle\r
+syn keyword mupadIdentifier BackgroundTransparent Billboarding BorderColor BorderWidth\r
+syn keyword mupadIdentifier BoxCenters BoxWidths DrawMode Gap XGap YGap\r
+syn keyword mupadIdentifier Notched NotchWidth Scaling YXRatio ZXRatio\r
+syn keyword mupadIdentifier VerticalAsymptotesVisible VerticalAsymptotesStyle\r
+syn keyword mupadIdentifier VerticalAsymptotesColor VerticalAsymptotesWidth\r
+" graphics Line Style Attributes\r
+syn keyword mupadIdentifier LineColor LineColor2 LineColorType LineStyle\r
+syn keyword mupadIdentifier LinesVisible ULinesVisible VLinesVisible XLinesVisible\r
+syn keyword mupadIdentifier YLinesVisible LineWidth MeshVisible\r
+" graphics Point Style Attributes\r
+syn keyword mupadIdentifier PointColor PointSize PointStyle PointsVisible\r
+" graphics Surface Style Attributes\r
+syn keyword mupadIdentifier BarStyle Shadows Color Colors FillColor FillColor2\r
+syn keyword mupadIdentifier FillColorTrue FillColorFalse FillColorUnknown FillColorType\r
+syn keyword mupadIdentifier Filled FillPattern FillPatterns FillStyle\r
+syn keyword mupadIdentifier InterpolationStyle Shading UseNormals\r
+" graphics Arrow Style Attributes\r
+syn keyword mupadIdentifier TipAngle TipLength TipStyle TubeDiameter\r
+syn keyword mupadIdentifier Tubular\r
+" graphics meta-documentation Attributes\r
+syn keyword mupadIdentifier objectGroupsListed \r
+\r
+if version >= 508 || !exists("did_mupad_syntax_inits")\r
+ if version < 508\r
+ let did_mupad_syntax_inits = 1\r
+ command -nargs=+ HiLink hi link <args>\r
+ else\r
+ command -nargs=+ HiLink hi def link <args>\r
+ endif\r
+\r
+ HiLink mupadComment Comment\r
+ HiLink mupadString String\r
+ HiLink mupadOperator Operator\r
+ HiLink mupadSpecial Special\r
+ HiLink mupadStatement Statement\r
+ HiLink mupadUnderlined Underlined\r
+ HiLink mupadConditional Conditional\r
+ HiLink mupadRepeat Repeat\r
+ HiLink mupadFunction Function\r
+ HiLink mupadType Type\r
+ HiLink mupadDefine Define\r
+ HiLink mupadIdentifier Identifier\r
+\r
+ delcommand HiLink\r
+endif\r
+\r
+" TODO More comprehensive listing.\r
endif
" Directory List Syntax Highlighting: {{{1
-syn match netrwDir "^.*/$" contains=netrwClassify
-syn match netrwClassify "[*=|@/]$"
+syn match netrwDir "^.*/$" contains=netrwClassify
+syn match netrwClassify "[*=|@/]$"
syn match netrwSlash contained "/"
-syn match netrwSymLink "^.*@$" contains=netrwClassify
-syn match netrwComment '".*$' contains=netrwHide
-syn match netrwHide '^"\s*Hiding:' skipwhite nextgroup=netrwHidePat
-syn match netrwHidePat contained "[^,]\+" skipwhite nextgroup=netrwHideSep
-syn match netrwHideSep contained transparent "," skipwhite nextgroup=netrwHidePat
+syn match netrwSymLink "^.*@$" contains=netrwClassify
+syn match netrwComment '".*$' contains=netrwHide,netrwSortBy,netrwSortSeq
+syn match netrwHide '^"\s*Hiding:' skipwhite nextgroup=netrwHidePat
+syn match netrwHidePat contained "[^,]\+" skipwhite nextgroup=netrwHideSep
+syn match netrwHideSep contained transparent "," skipwhite nextgroup=netrwHidePat
+syn match netrwSortBy contained transparent "Sorted by" skipwhite nextgroup=netrwList
+syn match netrwSortSeq contained transparent "Sort sequence:" skipwhite nextgroup=netrwList
+syn match netrwList contained ".*$" contains=netrwComma
+syn match netrwComma contained ","
" Highlighting Links: {{{1
if !exists("did_drchip_dbg_syntax")
let did_drchip_netrwlist_syntax= 1
hi link netrwClassify Function
hi link netrwComment Comment
- hi link netrwHide netrwComment
- hi link netrwHidePat String
hi link netrwDir Directory
+ hi link netrwHidePat String
+ hi link netrwList String
hi link netrwSymLink Special
+
+ hi link netrwComma netrwComment
+ hi link netrwHide netrwComment
endif
" Current Syntax: {{{1
" Vim syntax file
" Language: TeX
" Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
-" Last Change: Jun 01, 2004
-" Version: 24
+" Last Change: Jun 15, 2004
+" Version: 25
" URL: http://www.erols.com/astronaut/vim/index.html#vimlinks_syntax
"
" Notes: {{{1
endif
syn cluster texEnvGroup contains=texMatcher,texMathDelim,texSpecialChar,texStatement
syn cluster texMatchGroup contains=texAccent,texBadMath,texComment,texDefCmd,texDelimiter,texDocType,texInput,texLength,texLigature,texMatcher,texNewCmd,texNewEnv,texOnlyMath,texParen,texRefZone,texSection,texSpecialChar,texStatement,texString,texTypeSize,texTypeStyle,texZone,texInputFile,texOption
+syn cluster texRefGroup contains=texMatcher,texComment,texDelimiter
if !exists("tex_no_math")
syn cluster texMathZones contains=texMathZoneV,texMathZoneW,texMathZoneX,texMathZoneY,texMathZoneZ
syn cluster texMatchGroup add=@texMathZones
endif
" Tex Reference Zones: {{{1
-syn region texZone start="@samp{" end="}\|%stopzone\>"
-syn region texRefZone matchgroup=texStatement start="\\nocite{" keepend end="}\|%stopzone\>" contains=texComment,texDelimiter
-syn region texRefZone matchgroup=texStatement start="\\bibliography{" keepend end="}\|%stopzone\>" contains=texComment,texDelimiter
-syn region texRefZone matchgroup=texStatement start="\\cite\([tp]\*\=\)\={" keepend end="}\|%stopzone\>" contains=texComment,texDelimiter
-syn region texRefZone matchgroup=texStatement start="\\label{" keepend end="}\|%stopzone\>" contains=texComment,texDelimiter
-syn region texRefZone matchgroup=texStatement start="\\\(page\|eq\)ref{" keepend end="}\|%stopzone\>" contains=texComment,texDelimiter
-syn region texRefZone matchgroup=texStatement start="\\v\=ref{" keepend end="}\|%stopzone\>" contains=texComment,texDelimiter
+syn region texZone matchgroup=texStatement start="@samp{" end="}\|%stopzone\>" contains=@texRefGroup
+syn region texRefZone matchgroup=texStatement start="\\nocite{" end="}\|%stopzone\>" contains=@texRefGroup
+syn region texRefZone matchgroup=texStatement start="\\bibliography{" end="}\|%stopzone\>" contains=@texRefGroup
+syn region texRefZone matchgroup=texStatement start="\\cite\([tp]\*\=\)\={" end="}\|%stopzone\>" contains=@texRefGroup
+syn region texRefZone matchgroup=texStatement start="\\label{" end="}\|%stopzone\>" contains=@texRefGroup
+syn region texRefZone matchgroup=texStatement start="\\\(page\|eq\)ref{" end="}\|%stopzone\>" contains=@texRefGroup
+syn region texRefZone matchgroup=texStatement start="\\v\=ref{" end="}\|%stopzone\>" contains=@texRefGroup
" Handle newcommand, newenvironment : {{{1
syn match texNewCmd "\\newcommand\>" nextgroup=texCmdName skipwhite skipnl
" Vim syntax file
" Language: Vim 6.3 script
" Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
-" Last Change: May 25, 2004
-" Version: 6.3-04
+" Last Change: Jul 01, 2004
+" Version: 6.3-05
" Automatically generated keyword lists: {{{1
" Quit when a syntax file was already loaded {{{2
syn keyword vimFuncName contained append argc argidx argv browse bufexists buflisted bufloaded bufname bufnr bufwinnr byte2line char2nr cindent col confirm cscope_connection cursor delete did_filetype escape eventhandler executable exists expand filereadable filewritable fnamemodify foldclosed foldclosedend foldlevel foldtext foreground function getbufvar getchar getcharmod getcmdline getcmdpos getcwd getfsize getftime getline getreg getregtype getwinposx getwinposy getwinvar glob globpath has hasmapto histadd histdel histget histnr hlexists hlID hostname iconv indent input inputdialog inputrestore inputsave inputsecret isdirectory libcall libcallnr line line2byte lispindent localtime maparg mapcheck match matchend matchstr mode nextnonblank nr2char prevnonblank remote_expr remote_foreground remote_peek remote_read remote_send rename resolve search searchpair server2client serverlist setbufvar setcmdpos setline setreg setwinvar simplify strftime stridx strlen strpart strridx strtrans submatch substitute synID synIDattr synIDtrans system tempname tolower toupper type virtcol visualmode winbufnr wincol winheight winline winnr winrestcmd winwidth
"--- syntax above generated by mkvimvim ---
+" Special Vim Highlighting (not automatic) {{{1
-" Special Vim Highlighting {{{1
-
-" Numbers {{{1
+" Numbers {{{2
" =======
syn match vimNumber "\<\d\+\([lL]\|\.\d\+\)\="
syn match vimNumber "-\d\+\([lL]\|\.\d\+\)\="
syn match vimNumber "\<0[xX]\x\+"
syn match vimNumber "#\x\{6}"
-" All vimCommands are contained by vimIsCommands. {{{1
+" All vimCommands are contained by vimIsCommands. {{{2
syn match vimCmdSep "[:|]\+" skipwhite nextgroup=vimAddress,vimAutoCmd,vimCommand,vimExtCmd,vimFilter,vimLet,vimMap,vimMark,vimSet,vimSyntax,vimUserCmd
syn match vimIsCommand "\<\a\+\>" contains=vimCommand
syn match vimVar "\<[bwglsav]:\K\k*\>"
syn match vimVar contained "\<\K\k*\>"
-" Insertions And Appends: insert append {{{1
+" Insertions And Appends: insert append {{{2
" =======================
syn region vimInsert matchgroup=vimCommand start="^[: \t]*\(\d\+\(,\d\+\)\=\)\=a\%[ppend]$" matchgroup=vimCommand end="^\.$""
syn region vimInsert matchgroup=vimCommand start="^[: \t]*\(\d\+\(,\d\+\)\=\)\=c\%[hange]$" matchgroup=vimCommand end="^\.$""
syn region vimInsert matchgroup=vimCommand start="^[: \t]*\(\d\+\(,\d\+\)\=\)\=i\%[nsert]$" matchgroup=vimCommand end="^\.$""
-" Behave! {{{1
+" Behave! {{{2
" =======
syn match vimBehave "\<be\%[have]\>" skipwhite nextgroup=vimBehaveModel,vimBehaveError
syn keyword vimBehaveModel contained mswin xterm
-syn match vimBehaveError contained "[^ ]\+"
+if !exists("g:vimsyntax_noerror")
+ syn match vimBehaveError contained "[^ ]\+"
+endif
-" Filetypes {{{1
+" Filetypes {{{2
" =========
syn match vimFiletype "\<filet\%[ype]\(\s\+\I\i*\)*\(|\|$\)" skipwhite contains=vimFTCmd,vimFTOption,vimFTError
-syn match vimFTError contained "\I\i*"
+if !exists("g:vimsyntax_noerror")
+ syn match vimFTError contained "\I\i*"
+endif
syn keyword vimFTCmd contained filet[ype]
syn keyword vimFTOption contained detect indent off on plugin
-" Augroup : vimAugroupError removed because long augroups caused sync'ing problems. {{{1
+" Augroup : vimAugroupError removed because long augroups caused sync'ing problems. {{{2
" ======= : Trade-off: Increasing synclines with slower editing vs augroup END error checking.
syn cluster vimAugroupList contains=vimIsCommand,vimFunction,vimFunctionError,vimLineComment,vimSpecFile,vimOper,vimNumber,vimComment,vimString,vimSubst,vimMark,vimRegister,vimAddress,vimFilter,vimCmplxRepeat,vimComment,vimLet,vimSet,vimAutoCmd,vimRegion,vimSynLine,vimNotation,vimCtrlChar,vimFuncVar,vimContinue
syn region vimAugroup start="\<aug\%[roup]\>\s\+\K\k*" end="\<aug\%[roup]\>\s\+[eE][nN][dD]\>" contains=vimAugroupKey,vimAutoCmd,@vimAugroupList keepend
-syn match vimAugroupError "\<aug\%[roup]\>\s\+[eE][nN][dD]\>"
+if !exists("g:vimsyntax_noerror")
+ syn match vimAugroupError "\<aug\%[roup]\>\s\+[eE][nN][dD]\>"
+endif
syn keyword vimAugroupKey contained aug[roup]
-" Functions : Tag is provided for those who wish to highlight tagged functions {{{1
+" Functions : Tag is provided for those who wish to highlight tagged functions {{{2
" =========
syn cluster vimFuncList contains=vimFuncKey,Tag,vimFuncSID
syn cluster vimFuncBodyList contains=vimIsCommand,vimFunction,vimFunctionError,vimFuncBody,vimLineComment,vimSpecFile,vimOper,vimNumber,vimComment,vimString,vimSubst,vimMark,vimRegister,vimAddress,vimFilter,vimCmplxRepeat,vimComment,vimLet,vimSet,vimAutoCmd,vimRegion,vimSynLine,vimNotation,vimCtrlChar,vimFuncVar,vimContinue
-syn match vimFunctionError "\<fu\%[nction]!\=\s\+\zs\U\i\{-}\ze\s*(" contains=vimFuncKey,vimFuncBlank nextgroup=vimFuncBody
+if !exists("g:vimsyntax_noerror")
+ syn match vimFunctionError "\<fu\%[nction]!\=\s\+\zs\U\i\{-}\ze\s*(" contains=vimFuncKey,vimFuncBlank nextgroup=vimFuncBody
+endif
syn match vimFunction "\<fu\%[nction]!\=\s\+\(<[sS][iI][dD]>\|[Ss]:\|\u\)\i*\ze\s*(" contains=@vimFuncList nextgroup=vimFuncBody
syn region vimFuncBody contained start=")" end="\<endf\%[unction]" contains=@vimFuncBodyList
syn match vimFuncVar contained "a:\(\I\i*\|\d\+\)"
syn keyword vimFuncKey contained fu[nction]
syn match vimFuncBlank contained "\s\+"
-syn keyword vimPattern contained start skip end
+syn keyword vimPattern contained start skip end
-" Operators: {{{1
+" Operators: {{{2
" =========
-syn cluster vimOperGroup contains=vimOper,vimOperParen,vimNumber,vimString
-syn match vimOper "\(==\|!=\|>=\|<=\|=\~\|!\~\|>\|<\|=\)[?#]\{0,2}" skipwhite nextgroup=vimString,vimSpecFile
-syn match vimOper "||\|&&\|[-+.]" skipwhite nextgroup=vimString,vimSpecFile
-syn region vimOperParen matchgroup=vimOper start="(" end=")" contains=@vimOperGroup
-syn match vimOperError ")"
+syn cluster vimOperGroup contains=vimOper,vimOperParen,vimNumber,vimString,vimOperOk
+syn match vimOper "\(==\|!=\|>=\|<=\|=\~\|!\~\|>\|<\|=\)[?#]\{0,2}" skipwhite nextgroup=vimString,vimSpecFile
+syn match vimOper "||\|&&\|[-+.]" skipwhite nextgroup=vimString,vimSpecFile
+syn region vimOperParen oneline matchgroup=vimOper start="(" end=")" contains=@vimOperGroup
+syn match vimOperOk "\<[aiAIrR][()]"
+if !exists("g:vimsyntax_noerror")
+ syn match vimOperError ")"
+endif
-" Special Filenames, Modifiers, Extension Removal: {{{1
+" Special Filenames, Modifiers, Extension Removal: {{{2
" ===============================================
syn match vimSpecFile "<c\(word\|WORD\)>" nextgroup=vimSpecFileMod,vimSubst
syn match vimSpecFile "<\([acs]file\|amatch\|abuf\)>" nextgroup=vimSpecFileMod,vimSubst
syn match vimSpecFile "#\d\+\|[#%]<\>" nextgroup=vimSpecFileMod,vimSubst
syn match vimSpecFileMod "\(:[phtre]\)\+" contained
-" User-Specified Commands: {{{1
+" User-Specified Commands: {{{2
" =======================
syn cluster vimUserCmdList contains=vimAddress,vimSyntax,vimHighlight,vimAutoCmd,vimCmplxRepeat,vimComment,vimCtrlChar,vimEscapeBrace,vimFilter,vimFunc,vimFunction,vimIsCommand,vimMark,vimNotation,vimNumber,vimOper,vimRegion,vimRegister,vimLet,vimSet,vimSetEqual,vimSetString,vimSpecFile,vimString,vimSubst,vimSubstRep,vimSubstRange,vimSynLine
syn keyword vimUserCommand contained com[mand]
syn match vimUserAttrb contained "-bang\=\>" contains=vimOper,vimUserAttrbKey
syn match vimUserAttrb contained "-bar\>" contains=vimOper,vimUserAttrbKey
syn match vimUserAttrb contained "-re\%[gister]\>" contains=vimOper,vimUserAttrbKey
-syn match vimUserCmdError contained "\S\+\>"
+if !exists("g:vimsyntax_noerror")
+ syn match vimUserCmdError contained "\S\+\>"
+endif
syn case ignore
syn keyword vimUserAttrbKey contained bar ban[g] cou[nt] ra[nge] com[plete] n[args] re[gister]
syn keyword vimUserAttrbCmplt contained augroup buffer command dir environment event expression file function help highlight mapping menu option tag tag_listfiles var
syn case match
syn match vimUserAttrbCmplt contained "custom,\u\w*"
-" Errors: {{{1
+" Errors: {{{2
" ======
-syn match vimElseIfErr "\<else\s\+if\>"
+if !exists("g:vimsyntax_noerror")
+ syn match vimElseIfErr "\<else\s\+if\>"
+endif
-" Lower Priority Comments: after some vim commands... {{{1
+" Lower Priority Comments: after some vim commands... {{{2
" =======================
syn match vimComment excludenl +\s"[^\-:.%#=*].*$+lc=1 contains=@vimCommentGroup,vimCommentString
syn match vimComment +\<endif\s\+".*$+lc=5 contains=@vimCommentGroup,vimCommentString
syn match vimComment +\<else\s\+".*$+lc=4 contains=@vimCommentGroup,vimCommentString
syn region vimCommentString contained oneline start='\S\s\+"'ms=s+1 end='"'
-" Environment Variables: {{{1
+" Environment Variables: {{{2
" =====================
syn match vimEnvvar "\$\I\i*"
syn match vimEnvvar "\${\I\i*}"
-" In-String Specials: {{{1
+" In-String Specials: {{{2
" Try to catch strings, if nothing else matches (therefore it must precede the others!)
" vimEscapeBrace handles ["] []"] (ie. "s don't terminate string inside [])
syn region vimEscapeBrace oneline contained transparent start="[^\\]\(\\\\\)*\[\^\=\]\=" skip="\\\\\|\\\]" end="\]"me=e-1
syn region vimString oneline keepend start=+[^:a-zA-Z>!\\]'+lc=1 end=+'+ contains=@vimStringGroup
syn region vimString oneline start=+=!+lc=1 skip=+\\\\\|\\!+ end=+!+ contains=@vimStringGroup
syn region vimString oneline start="=+"lc=1 skip="\\\\\|\\+" end="+" contains=@vimStringGroup
-syn region vimString oneline start="[^\\]+\s*[^a-zA-Z0-9. \t]"lc=1 skip="\\\\\|\\+" end="+" contains=@vimStringGroup
syn region vimString oneline start="\s/\s*\A"lc=1 skip="\\\\\|\\+" end="/" contains=@vimStringGroup
syn match vimString contained +"[^"]*\\$+ skipnl nextgroup=vimStringCont
syn match vimStringCont contained +\(\\\\\|.\)\{-}[^\\]"+
-" Substitutions: {{{1
+" Substitutions: {{{2
" =============
syn cluster vimSubstList contains=vimPatSep,vimPatRegion,vimPatSepErr,vimSubstTwoBS,vimSubstRange,vimNotation
syn cluster vimSubstRepList contains=vimSubstSubstr,vimSubstTwoBS,vimNotation
syn match vimSubstFlagErr contained "[^< \t\r]\+" contains=vimSubstFlags
syn match vimSubstFlags contained "[&cegiIpr]\+"
-" 'String': {{{1
+" 'String': {{{2
syn match vimString "[^(,]'[^']\{-}'"lc=1 contains=@vimStringGroup
-" Marks, Registers, Addresses, Filters: {{{1
+" Marks, Registers, Addresses, Filters: {{{2
syn match vimMark "'[a-zA-Z0-9]\ze[-+,!]" nextgroup=vimOper,vimMarkNumber,vimSubst
syn match vimMark "'[<>]\ze[-+,!]" nextgroup=vimOper,vimMarkNumber,vimSubst
syn match vimMark ",\zs'[<>]\ze" nextgroup=vimOper,vimMarkNumber,vimSubst
syn match vimRegister '[^(,;.]"[a-zA-Z0-9.%#:_\-/][^a-zA-Z_"]'lc=1,me=e-1
syn match vimRegister '\<norm\s\+"[a-zA-Z0-9]'lc=5
syn match vimRegister '\<normal\s\+"[a-zA-Z0-9]'lc=7
+syn match vimRegister '@"'
syn match vimPlainRegister contained '"[a-zA-Z0-9\-:.%#*+=]'
syn match vimAddress ",[.$]"lc=1 skipwhite nextgroup=vimSubst1
syn match vimFilter contained "^!.\{-}\(|\|$\)" contains=vimSpecFile
syn match vimFilter contained "\A!.\{-}\(|\|$\)"ms=s+1 contains=vimSpecFile
-" Complex repeats (:h complex-repeat) {{{1
+" Complex repeats (:h complex-repeat) {{{2
syn match vimCmplxRepeat '[^a-zA-Z_/\\]q[0-9a-zA-Z"]'lc=1
syn match vimCmplxRepeat '@[0-9a-z".=@:]\ze\($\|[^a-zA-Z]\)'
-" Set command and associated set-options (vimOptions) with comment {{{1
+" Set command and associated set-options (vimOptions) with comment {{{2
syn region vimSet matchgroup=vimCommand start="\<setlocal\|set\>" end="|"me=e-1 end="$" matchgroup=vimNotation end="<[cC][rR]>" keepend contains=vimSetEqual,vimOption,vimErrSetting,vimComment,vimSetString,vimSetMod
syn region vimSetEqual contained start="=" skip="\\\\\|\\\s" end="[| \t]\|$"me=e-1 contains=vimCtrlChar,vimSetSep,vimNotation
syn region vimSetString contained start=+="+hs=s+1 skip=+\\\\\|\\"+ end=+"+ contains=vimCtrlChar
syn match vimSetSep contained "[,:]"
syn match vimSetMod contained "&vim\|[!&]\|all&"
-" Let {{{1
+" Let {{{2
" ===
syn keyword vimLet let unl[et] skipwhite nextgroup=vimVar
-" Autocmd {{{1
+" Autocmd {{{2
" =======
syn match vimAutoEventList contained "\(!\s\+\)\=\(\a\+,\)*\a\+" contains=vimAutoEvent nextgroup=vimAutoCmdSpace
syn match vimAutoCmdSpace contained "\s\+" nextgroup=vimAutoCmdSfxList
syn match vimAutoCmdSfxList contained "\S*"
syn keyword vimAutoCmd au[tocmd] do[autocmd] doautoa[ll] skipwhite nextgroup=vimAutoEventList
-" Echo and Execute -- prefer strings! {{{1
+" Echo and Execute -- prefer strings! {{{2
" ================
syn region vimEcho oneline excludenl matchgroup=vimCommand start="\<ec\%[ho]\>" skip="\(\\\\\)*\\|" end="$\||" contains=vimFunc,vimString,varVar
syn region vimExecute oneline excludenl matchgroup=vimCommand start="\<exe\%[cute]\>" skip="\(\\\\\)*\\|" end="$\||\|<[cC][rR]>" contains=vimIsCommand,vimString,vimOper,vimVar,vimNotation
syn keyword vimEchoHLNone none
syn case match
-" Maps {{{1
+" Maps {{{2
" ====
syn cluster vimMapGroup contains=vimMapBang,vimMapLhs,vimMapMod
syn keyword vimMap cm[ap] cno[remap] im[ap] ino[remap] map nm[ap] nn[oremap] no[remap] om[ap] ono[remap] vm[ap] vn[oremap] skipwhite nextgroup=@vimMapGroup
syn keyword vimMapModKey contained buffer leader localleader plug script sid silent unique
syn case match
-" Menus {{{1
+" Menus {{{2
" =====
syn cluster vimMenuList contains=vimMenuBang,vimMenuPriority,vimMenuName,vimMenuMod
syn keyword vimCommand am[enu] an[oremenu] aun[menu] cme[nu] cnoreme[nu] cunme[nu] ime[nu] inoreme[nu] iunme[nu] me[nu] nme[nu] nnoreme[nu] noreme[nu] nunme[nu] ome[nu] onoreme[nu] ounme[nu] unme[nu] vme[nu] vnoreme[nu] vunme[nu] skipwhite nextgroup=@vimMenuList
syn match vimMenuRhs ".*$" contained contains=vimString,vimComment,vimIsCommand
syn match vimMenuBang "!" contained skipwhite nextgroup=@vimMenuList
-" Angle-Bracket Notation (tnx to Michael Geddes) {{{1
+" Angle-Bracket Notation (tnx to Michael Geddes) {{{2
" ======================
syn case ignore
syn match vimNotation "\(\\\|<lt>\)\=<\([scam]-\)\{0,4}x\=\(f\d\{1,2}\|[^ \t:]\|cr\|lf\|linefeed\|return\|k\=del\%[ete]\|bs\|backspace\|tab\|esc\|right\|left\|help\|undo\|insert\|ins\|k\=home\|k\=end\|kplus\|kminus\|kdivide\|kmultiply\|kenter\|space\|k\=\(page\)\=\(\|down\|up\)\)>" contains=vimBracket
syn match vimBracket contained "[\\<>]"
syn case match
-" User Function Highlighting (following Gautam Iyer's suggestion)
+" User Function Highlighting (following Gautam Iyer's suggestion) {{{2
" ==========================
-syn match vimFunc "\%([sS]:\|<[sS][iI][dD]>\)\=\I\i*\ze\s*(" contains=vimUserFunc,vimFuncName
-syn match vimUserFunc "\%([sS]:\|<[sS][iI][dD]>\)\i\+\|\<\u\i*\>\|\<if\>" contained contains=vimNotation,vimCommand
+syn match vimFunc "\%([sS]:\|<[sS][iI][dD]>\)\=\I\i*\ze\s*(" contains=vimUserFunc,vimFuncName,vimCommand,vimNotFunc
+syn match vimUserFunc contained "\%([sS]:\|<[sS][iI][dD]>\)\i\+\|\<\u\i*\>\|\<if\>" contains=vimNotation,vimCommand
+syn match vimNotFunc contained "\<[aiAIrR]("
-" Syntax {{{1
+" Syntax {{{2
"=======
syn match vimGroupList contained "@\=[^ \t,]*" contains=vimGroupSpecial,vimPatSep
syn match vimGroupList contained "@\=[^ \t,]*," nextgroup=vimGroupList contains=vimGroupSpecial,vimPatSep
syn keyword vimGroupSpecial contained ALL ALLBUT
-syn match vimSynError contained "\i\+"
-syn match vimSynError contained "\i\+=" nextgroup=vimGroupList
+if !exists("g:vimsyntax_noerror")
+ syn match vimSynError contained "\i\+"
+ syn match vimSynError contained "\i\+=" nextgroup=vimGroupList
+endif
syn match vimSynContains contained "\<contain\(s\|edin\)=" nextgroup=vimGroupList
syn match vimSynKeyContainedin contained "\<containedin=" nextgroup=vimGroupList
syn match vimSynNextgroup contained "nextgroup=" nextgroup=vimGroupList
syn match vimSyntax "\<sy\%[ntax]\>" contains=vimCommand skipwhite nextgroup=vimSynType,vimComment
syn match vimAuSyntax contained "\s+sy\%[ntax]" contains=vimCommand skipwhite nextgroup=vimSynType,vimComment
-" Syntax: case {{{1
+" Syntax: case {{{2
syn keyword vimSynType contained case skipwhite nextgroup=vimSynCase,vimSynCaseError
-syn match vimSynCaseError contained "\i\+"
+if !exists("g:vimsyntax_noerror")
+ syn match vimSynCaseError contained "\i\+"
+endif
syn keyword vimSynCase contained ignore match
-" Syntax: clear {{{1
+" Syntax: clear {{{2
syn keyword vimSynType contained clear skipwhite nextgroup=vimGroupList
-" Syntax: cluster {{{1
+" Syntax: cluster {{{2
syn keyword vimSynType contained cluster skipwhite nextgroup=vimClusterName
syn region vimClusterName contained matchgroup=vimGroupName start="\k\+" skip="\\\\\|\\|" matchgroup=vimSep end="$\||" contains=vimGroupAdd,vimGroupRem,vimSynContains,vimSynError
syn match vimGroupAdd contained "add=" nextgroup=vimGroupList
syn match vimGroupRem contained "remove=" nextgroup=vimGroupList
-" Syntax: include {{{1
+" Syntax: include {{{2
syn keyword vimSynType contained include skipwhite nextgroup=vimGroupList
-" Syntax: keyword {{{1
+" Syntax: keyword {{{2
syn cluster vimSynKeyGroup contains=vimSynNextgroup,vimSynKeyOpt,vimSynKeyContainedin
syn keyword vimSynType contained keyword skipwhite nextgroup=vimSynKeyRegion
syn region vimSynKeyRegion contained keepend matchgroup=vimGroupName start="\k\+" skip="\\\\\|\\|" matchgroup=vimSep end="|\|$" contains=@vimSynKeyGroup
syn match vimSynKeyOpt contained "\<\(conceal\|contained\|transparent\|skipempty\|skipwhite\|skipnl\)\>"
-" Syntax: match {{{1
+" Syntax: match {{{2
syn cluster vimSynMtchGroup contains=vimMtchComment,vimSynContains,vimSynError,vimSynMtchOpt,vimSynNextgroup,vimSynRegPat,vimNotation
syn keyword vimSynType contained match skipwhite nextgroup=vimSynMatchRegion
syn region vimSynMatchRegion contained keepend matchgroup=vimGroupName start="\k\+" matchgroup=vimSep end="|\|$" contains=@vimSynMtchGroup
syn match vimSynMtchCchar contained "."
endif
-" Syntax: off and on {{{1
+" Syntax: off and on {{{2
syn keyword vimSynType contained enable list manual off on reset
-" Syntax: region {{{1
+" Syntax: region {{{2
syn cluster vimSynRegPatGroup contains=vimPatSep,vimNotPatSep,vimSynPatRange,vimSynNotPatRange,vimSubstSubstr,vimPatRegion,vimPatSepErr,vimNotation
syn cluster vimSynRegGroup contains=vimSynContains,vimSynNextgroup,vimSynRegOpt,vimSynReg,vimSynMtchGrp
syn keyword vimSynType contained region skipwhite nextgroup=vimSynRegion
syn match vimSynNotPatRange contained "\\\\\|\\\["
syn match vimMtchComment contained '"[^"]\+$'
-" Syntax: sync {{{1
+" Syntax: sync {{{2
" ============
syn keyword vimSynType contained sync skipwhite nextgroup=vimSyncC,vimSyncLines,vimSyncMatch,vimSyncError,vimSyncLinecont,vimSyncRegion
-syn match vimSyncError contained "\i\+"
+if !exists("g:vimsyntax_noerror")
+ syn match vimSyncError contained "\i\+"
+endif
syn keyword vimSyncC contained ccomment clear fromstart
syn keyword vimSyncMatch contained match skipwhite nextgroup=vimSyncGroupName
syn keyword vimSyncRegion contained region skipwhite nextgroup=vimSynReg
syn match vimSyncGroup contained "\k\+" skipwhite nextgroup=vimSynRegPat,vimSyncNone
syn keyword vimSyncNone contained NONE
-" Additional IsCommand, here by reasons of precedence {{{1
+" Additional IsCommand, here by reasons of precedence {{{2
" ====================
syn match vimIsCommand "<Bar>\s*\a\+" transparent contains=vimCommand,vimNotation
-" Highlighting {{{1
+" Highlighting {{{2
" ============
syn cluster vimHighlightCluster contains=vimHiLink,vimHiClear,vimHiKeyList,vimComment
syn match vimHighlight "\<hi\%[ghlight]\>" skipwhite nextgroup=vimHiBang,@vimHighlightCluster
syn match vimHiFontname contained "[a-zA-Z\-*]\+"
syn match vimHiGuiFontname contained "'[a-zA-Z\-* ]\+'"
syn match vimHiGuiRgb contained "#\x\{6}"
-syn match vimHiCtermError contained "[^0-9]\i*"
+if !exists("g:vimsyntax_noerror")
+ syn match vimHiCtermError contained "[^0-9]\i*"
+endif
-" Highlighting: hi group key=arg ... {{{1
+" Highlighting: hi group key=arg ... {{{2
syn cluster vimHiCluster contains=vimHiGroup,vimHiTerm,vimHiCTerm,vimHiStartStop,vimHiCtermFgBg,vimHiGui,vimHiGuiFont,vimHiGuiFgBg,vimHiKeyError,vimNotation
syn region vimHiKeyList contained oneline start="\i\+" skip="\\\\\|\\|" end="$\||" contains=@vimHiCluster
-syn match vimHiKeyError contained "\i\+="he=e-1
+if !exists("g:vimsyntax_noerror")
+ syn match vimHiKeyError contained "\i\+="he=e-1
+endif
syn match vimHiTerm contained "\cterm="he=e-1 nextgroup=vimHiAttribList
syn match vimHiStartStop contained "\c\(start\|stop\)="he=e-1 nextgroup=vimHiTermcap,vimOption
syn match vimHiCTerm contained "\ccterm="he=e-1 nextgroup=vimHiAttribList
syn match vimHiGuiFgBg contained "\cgui[fb]g="he=e-1 nextgroup=vimHiGroup,vimHiGuiFontname,vimHiGuiRgb,vimFgBgAttrib
syn match vimHiTermcap contained "\S\+" contains=vimNotation
-" Highlight: clear {{{1
+" Highlight: clear {{{2
syn keyword vimHiClear contained clear nextgroup=vimHiGroup
-" Highlight: link {{{1
+" Highlight: link {{{2
syn region vimHiLink contained oneline matchgroup=vimCommand start="\<\(def\s\+\)\=link\>\|\<def\>" end="$" contains=vimHiGroup,vimGroup,vimHLGroup,vimNotation
-" Control Characters {{{1
+" Control Characters {{{2
" ==================
syn match vimCtrlChar "[\ 1-\b\v\ f-\1f]"
-" Beginners - Patterns that involve ^ {{{1
+" Beginners - Patterns that involve ^ {{{2
" =========
syn match vimLineComment +^[ \t:]*".*$+ contains=@vimCommentGroup,vimCommentString,vimCommentTitle
syn match vimCommentTitle '"\s*\u\w*\(\s\+\u\w*\)*:'hs=s+1 contained contains=vimCommentTitleLeader,vimTodo,@vimCommentGroup
syn region vimString start="^\s*\\\z(['"]\)" skip='\\\\\|\\\z1' end="\z1" oneline keepend contains=@vimStringGroup,vimContinue
syn match vimCommentTitleLeader '"\s\+'ms=s+1 contained
-" Scripts : perl,ruby : Benoit Cerrina {{{1
+" Scripts : perl,ruby : Benoit Cerrina {{{2
" ======= python,tcl: Johannes Zellner
" allow users to prevent embedded script syntax highlighting
let g:vimembedscript= 1
endif
-" [-- perl --] {{{2
+" [-- perl --] {{{3
if (has("perl") || g:vimembedscript) && filereadable(expand("<sfile>:p:h")."/perl.vim")
unlet! b:current_syntax
syn include @vimPerlScript <sfile>:p:h/perl.vim
syn region vimPerlRegion matchgroup=vimScriptDelim start=+pe\%[rl]\s*<<\s*$+ end=+\.$+ contains=@vimPerlScript
endif
-" [-- ruby --] {{{2
+" [-- ruby --] {{{3
if (has("ruby") || g:vimembedscript) && filereadable(expand("<sfile>:p:h")."/ruby.vim")
unlet! b:current_syntax
syn include @vimRubyScript <sfile>:p:h/ruby.vim
syn region vimRubyRegion matchgroup=vimScriptDelim start=+rub[y]\s*<<\s*$+ end=+\.$+ contains=@vimRubyScript
endif
-" [-- python --] {{{2
+" [-- python --] {{{3
if (has("python") || g:vimembedscript) && filereadable(expand("<sfile>:p:h")."/python.vim")
unlet! b:current_syntax
syn include @vimPythonScript <sfile>:p:h/python.vim
syn region vimPythonRegion matchgroup=vimScriptDelim start=+py\%[thon]\s*<<\s*$+ end=+\.$+ contains=@vimPythonScript
endif
-" [-- tcl --] {{{2
+" [-- tcl --] {{{3
if (has("tcl") || g:vimembedscript) && filereadable(expand("<sfile>:p:h")."/tcl.vim")
unlet! b:current_syntax
syn include @vimTclScript <sfile>:p:h/tcl.vim
syn region vimTclRegion matchgroup=vimScriptDelim start=+tc[l]\=\s*<<\s*$+ end=+\.$+ contains=@vimTclScript
endif
-" Synchronize (speed) {{{1
+" Synchronize (speed) {{{2
"============
if exists("g:vim_minlines")
exe "syn sync minlines=".g:vim_minlines
syn sync linecont "^\s\+\\"
syn sync match vimAugroupSyncA groupthere NONE "\<aug\%[roup]\>\s\+[eE][nN][dD]"
-" Highlighting Settings {{{1
+" Highlighting Settings {{{2
" ====================
hi def link vimAuHighlight vimHighlight
hi def link vimSubst1 vimSubst
hi def link vimBehaveModel vimBehave
-hi def link vimAddress vimMark
+if !exists("g:vimsyntax_noerror")
" hi def link vimAugroupError vimError
+ hi def link vimBehaveError vimError
+ hi def link vimCollClassErr vimError
+ hi def link vimErrSetting vimError
+ hi def link vimFTError vimError
+ hi def link vimFunctionError vimError
+ hi def link VimFunc vimError
+ hi def link vimHiAttribList vimError
+ hi def link vimHiCtermError vimError
+ hi def link vimHiKeyError vimError
+ hi def link vimKeyCodeError vimError
+ hi def link vimMapModErr vimError
+ hi def link vimSubstFlagErr vimError
+ hi def link vimSynCaseError vimError
+endif
+
+hi def link vimAddress vimMark
hi def link vimAugroupKey vimCommand
hi def link vimAutoCmdOpt vimOption
hi def link vimAutoCmd vimCommand
hi def link vimAutoSet vimCommand
-hi def link vimBehaveError vimError
hi def link vimBehave vimCommand
-hi def link vimCollClassErr vimError
hi def link vimCommentString vimString
hi def link vimCondHL vimCommand
hi def link vimEchoHLNone vimGroup
hi def link vimEchoHL vimCommand
hi def link vimElseif vimCondHL
-hi def link vimErrSetting vimError
hi def link vimFgBgAttrib vimHiAttrib
hi def link vimFTCmd vimCommand
-hi def link vimFTError vimError
hi def link vimFTOption vimSynType
-hi def link VimFunc vimError
hi def link vimFuncKey vimCommand
-hi def link vimFunctionError vimError
hi def link vimGroupAdd vimSynOption
hi def link vimGroupRem vimSynOption
-hi def link vimHiAttribList vimError
-hi def link vimHiCtermError vimError
hi def link vimHiCtermFgBg vimHiTerm
hi def link vimHiCTerm vimHiTerm
hi def link vimHighlight vimCommand
hi def link vimHiGuiFont vimHiTerm
hi def link vimHiGuiRgb vimNumber
hi def link vimHiGui vimHiTerm
-hi def link vimHiKeyError vimError
hi def link vimHiStartStop vimHiTerm
hi def link vimHLGroup vimGroup
hi def link vimInsert vimString
-hi def link vimKeyCodeError vimError
hi def link vimKeyCode vimSpecFile
hi def link vimLet vimCommand
hi def link vimLineComment vimComment
hi def link vimMapBang vimCommand
-hi def link vimMapModErr vimError
hi def link vimMapModKey vimFuncSID
hi def link vimMapMod vimBracket
hi def link vimMap vimCommand
hi def link vimSetString vimString
hi def link vimSpecFileMod vimSpecFile
hi def link vimStringCont vimString
-hi def link vimSubstFlagErr vimError
hi def link vimSubstTwoBS vimString
hi def link vimSubst vimCommand
-hi def link vimSynCaseError vimError
hi def link vimSyncGroupName vimGroupName
hi def link vimSyncGroup vimGroupName
hi def link vimSynContains vimSynOption
hi def link vimTodo Todo
hi def link vimUserCmdError Error
-" Current Syntax Variable: {{{1
+" Current Syntax Variable: {{{2
let b:current_syntax = "vim"
" vim:ts=18 fdm=marker
WINDRES = i386-mingw32msvc-windres
endif
else
-CXX := g++.exe
-WINDRES := windres.exe
+CXX := g++
+WINDRES := windres
CXXFLAGS := -O2 -mno-cygwin
endif
LIBS := -luuid
# CSCOPE no or yes: include support for Cscope interface (yes)
# NETBEANS no or yes: include support for Netbeans interface (yes if GUI
# is yes)
+# NBDEBUG no or yes: include support for debugging Netbeans interface (no)
# XPM define to path to XPM dir to get support for loading XPM images.
### BOR: root of the BC installation
DEFINES = $(DEFINES) -DFEAT_CSCOPE
!endif
-!if ("$(NETBEANS)"=="yes")
-DEFINES = $(DEFINES) -DFEAT_NETBEANS_INTG
-!if ("$(DEBUG)"=="yes")
-DEFINES = $(DEFINES) -DNBDEBUG
-NBDEBUG_DEP = nbdebug.h nbdebug.c
-!endif
-!endif
-
-!ifdef XPM
-DEFINES = $(DEFINES) -DFEAT_XPM_W32
-INCLUDE = $(XPM)\include;$(INCLUDE)
-!endif
-
!if ("$(GUI)"=="yes")
DEFINES = $(DEFINES) -DFEAT_GUI_W32 -DFEAT_CLIPBOARD
!if ("$(DEBUG)"=="yes")
LINK2 = -aa
RESFILE = vim.res
!else
+!undef NETBEANS
+!undef XPM
+!undef VIMDLL
!if ("$(DEBUG)"=="yes")
TARGET = vimd.exe
!else
# for now, anyway: VIMDLL is only for the GUI version
-!undef VIMDLL
TARGET = vim.exe
!endif
!if ($(OSTYPE)==DOS16)
RESFILE = vim.res
!endif
+!if ("$(NETBEANS)"=="yes")
+DEFINES = $(DEFINES) -DFEAT_NETBEANS_INTG
+!if ("$(NBDEBUG)"=="yes")
+DEFINES = $(DEFINES) -DNBDEBUG
+NBDEBUG_DEP = nbdebug.h nbdebug.c
+!endif
+!endif
+
+!ifdef XPM
+!if ("$(GUI)"=="yes")
+DEFINES = $(DEFINES) -DFEAT_XPM_W32
+INCLUDE = $(XPM)\include;$(INCLUDE)
+!endif
+!endif
+
!if ("$(USEDLL)"=="yes")
DEFINES = $(DEFINES) -D_RTLDLL
!endif
#
# Makefile for VIM on Win32, using Cygnus gcc
-# Last updated by Dan Sharp. Last Change: 2004 Apr 23
+# Last updated by Dan Sharp. Last Change: 2004 Jul 01
#
# This compiles Vim as a Windows application. If you want Vim to run as a
# Cygwin application use the Makefile (just like on Unix).
# OPTIMIZE SPACE, SPEED, or MAXSPEED: set optimization level (MAXSPEED)
# NETBEANS no or yes: to include netbeans interface support (yes when GUI
# is yes)
+# NBDEBUG no or yes: to include netbeans interface debugging support (no)
# XPM define to path to XPM dir to get XPM image support (not defined)
#>>>>> choose options:
ifndef GUI
IME = yes
endif
-ifndef CPUNR
-CPUNR = i386
-endif
-
ifndef ARCH
ARCH = i386
endif
+ifndef CPUNR
+# Setting -march implicitly sets -mcpu to the same value,
+# so reflect that in the defaults here.
+CPUNR = $(ARCH)
+endif
+
ifndef WINVER
WINVER = 0x0400
endif
EXTRA_OBJS += $(OUTDIR)/if_cscope.o
endif
+##############################
+ifeq ($(GUI),yes)
+
##############################
ifeq (yes, $(NETBEANS))
+# Only allow NETBEANS for a GUI build.
DEFINES += -DFEAT_NETBEANS_INTG
EXTRA_OBJS += $(OUTDIR)/netbeans.o $(OUTDIR)/gui_beval.o
EXTRA_LIBS += -lwsock32
-ifeq (yes, $(DEBUG))
+ifeq (yes, $(NBDEBUG))
DEFINES += -DNBDEBUG
NBDEBUG_DEP = nbdebug.h nbdebug.c
endif
##############################
ifdef XPM
+# Only allow XPM for a GUI build.
DEFINES += -DFEAT_XPM_W32
INCLUDES += -I$(XPM)/include
EXTRA_OBJS += $(OUTDIR)/xpm_w32.o
endif
##############################
-ifeq (yes, $(OLE))
-DEFINES += -DFEAT_OLE
-EXTRA_OBJS += $(OUTDIR)/if_ole.o
-EXTRA_LIBS += -loleaut32 -lstdc++
-endif
-
-##############################
-ifeq ($(GUI),yes)
EXE = gvim$(DEBUG_SUFFIX).exe
OUTDIR = gobj$(DEBUG_SUFFIX)
DEFINES += -DFEAT_GUI_W32 -DFEAT_CLIPBOARD
LIBS += -luser32 -lgdi32 -lcomdlg32
endif
+##############################
+ifeq (yes, $(OLE))
+DEFINES += -DFEAT_OLE
+EXTRA_OBJS += $(OUTDIR)/if_ole.o
+EXTRA_LIBS += -loleaut32 -lstdc++
+endif
+
##############################
ifneq (sh.exe, $(SHELL))
DEL = rm
endif
ifeq ($(NETBEANS),yes)
+# Only allow NETBEANS for a GUI build.
+ifeq (yes, $(GUI))
DEFINES += -DFEAT_NETBEANS_INTG
-ifeq ($(DEBUG), yes)
+
+ifeq ($(NBDEBUG), yes)
DEFINES += -DNBDEBUG
NBDEBUG_INCL = nbdebug.h
NBDEBUG_SRC = nbdebug.c
endif
endif
+endif
ifdef XPM
+# Only allow XPM for a GUI build.
+ifeq (yes, $(GUI))
CFLAGS += -DFEAT_XPM_W32 -I $(XPM)/include
endif
+endif
ifeq ($(DEBUG),yes)
CFLAGS += -g -fstack-check
OBJ += $(OUTDIR)/if_cscope.o
endif
ifeq ($(NETBEANS),yes)
+# Only allow NETBEANS for a GUI build.
+ifeq (yes, $(GUI))
OBJ += $(OUTDIR)/netbeans.o $(OUTDIR)/gui_beval.o
LIB += -lwsock32
endif
+endif
ifdef XPM
+# Only allow XPM for a GUI build.
+ifeq (yes, $(GUI))
OBJ += $(OUTDIR)/xpm_w32.o
# You'll need libXpm.a from http://gnuwin32.sf.net
LIB += -L $(XPM)/lib -lXpm
endif
+endif
ifeq ($(GUI),yes)
# Processor Version: CPUNR=[i386, i486, i586, i686] (default is i386)
# Optimization: OPTIMIZE=[SPACE, SPEED, MAXSPEED] (default is MAXSPEED)
# Netbeans Support: NETBEANS=[yes or no] (default is yes if GUI is yes)
+# Netbeans Debugging Support: NBDEBUG=[yes or no] (default is no)
# XPM Image Support: XPM=[path to XPM directory]
#
# You can combine any of these interfaces
NETBEANS = $(GUI)
!endif
+# Only allow NETBEANS and XPM for a GUI build.
+!if "$(GUI)" == "yes"
!if "$(NETBEANS)" == "yes"
# NETBEANS - Include support for Netbeans integration
NETBEANS_PRO = proto/netbeans.pro
NETBEANS_OBJ = $(OBJDIR)/netbeans.obj $(OBJDIR)/gui_beval.obj
NETBEANS_DEFS = -DFEAT_NETBEANS_INTG
-!if "$(DEBUG)" == "yes"
+
+!if "$(NBDEBUG)" == "yes"
NBDEBUG_DEFS = -DNBDEBUG
NBDEBUG_INCL = nbdebug.h
NBDEBUG_SRC = nbdebug.c
XPM_LIB = $(XPM)\lib\libXpm.lib
XPM_INC = -I $(XPM)\include
!endif
+!endif
!if defined(USE_MSVCRT)
CVARS = $(cvarsdll)
# use it (e.g., want a GTK-only version), then use --enable-gui=gtk.
#
# If the selected GUI isn't found, the GUI is disabled automatically
-#CONF_OPT_GUI = --enable-gui=kde
#CONF_OPT_GUI = --enable-gui=gtk
#CONF_OPT_GUI = --enable-gui=gtk --disable-gtktest
#CONF_OPT_GUI = --enable-gui=gtk2
#CONF_OPT_GUI = --enable-gui=gnome
#CONF_OPT_GUI = --enable-gui=gnome2
#CONF_OPT_GUI = --enable-gui=gnome2 --disable-gtktest
+#CONF_OPT_GUI = --enable-gui=kde
#CONF_OPT_GUI = --enable-gui=motif
#CONF_OPT_GUI = --enable-gui=motif --with-motif-lib="-static -lXm -shared"
#CONF_OPT_GUI = --enable-gui=athena
#ifdef FEAT_INS_EXPAND
clear_string_option(&buf->b_p_cpt);
#endif
+#ifdef FEAT_COMPL_FUNC
+ clear_string_option(&buf->b_p_cfu);
+#endif
#ifdef FEAT_QUICKFIX
clear_string_option(&buf->b_p_gp);
clear_string_option(&buf->b_p_mp);
#ifdef FEAT_INS_EXPAND
clear_string_option(&buf->b_p_dict);
clear_string_option(&buf->b_p_tsr);
+#endif
+#ifdef FEAT_TEXTOBJ
+ clear_string_option(&buf->b_p_qe);
#endif
buf->b_p_ar = -1;
}
KDE_LIBS="$KDE_PREFIX/lib"
fi
if test "x$KDE_INCLUDES" = "x"; then
- KDE_INCLUDES="$KDE_PREFIX/include"
+ KDE_INCLUDES="$KDE_PREFIX/include"
+ if test -d "$KDE_INCLUDES/kde"; then
+ KDE_INCLUDES="$KDE_INCLUDES/kde"
+ fi
fi
kde_major_version=`$KDE_CONFIG --version | grep KDE | \
sed 's/KDE:\ //' | sed 's/\([[0-9]]*\).\([[0-9]]*.*\)/\1/'`
#define CTRL_X_DICTIONARY (9 + CTRL_X_WANT_IDENT)
#define CTRL_X_THESAURUS (10 + CTRL_X_WANT_IDENT)
#define CTRL_X_CMDLINE 11
+#define CTRL_X_FUNCTION 12
#define CHECK_KEYS_TIME 30
static char *ctrl_x_msgs[] =
{
N_(" Keyword completion (^N^P)"), /* ctrl_x_mode == 0, ^P/^N compl. */
- N_(" ^X mode (^E^Y^L^]^F^I^K^D^V^N^P)"),
+ N_(" ^X mode (^E^Y^L^]^F^I^K^D^U^V^N^P)"),
/* Scroll has it's own msgs, in it's place there is the msg for local
* ctrl_x_mode = 0 (eg continue_status & CONT_LOCAL) -- Acevedo */
N_(" Keyword Local completion (^N^P)"),
NULL,
N_(" Dictionary completion (^K^N^P)"),
N_(" Thesaurus completion (^T^N^P)"),
- N_(" Command-line completion (^V^N^P)")
+ N_(" Command-line completion (^V^N^P)"),
+ N_(" User defined completion (^U^N^P)"),
};
static char_u e_hitend[] = N_("Hit end of paragraph");
#ifdef FEAT_INS_EXPAND
/* Enter CTRL-X mode */
case Ctrl_X:
- /* CTRL-X after CTRL-V CTRL-X doesn't do anything, so that CTRL-X
+ /* CTRL-X after CTRL-X CTRL-V doesn't do anything, so that CTRL-X
* CTRL-V works like CTRL-N */
if (ctrl_x_mode != CTRL_X_CMDLINE)
{
/* delete all inserted text in current line */
case Ctrl_U:
+# ifdef FEAT_COMPL_FUNC
+ /* CTRL-X CTRL-U completes with 'completefunc'. */
+ if (ctrl_x_mode == CTRL_X_NOT_DEFINED_YET
+ || ctrl_x_mode == CTRL_X_FUNCTION)
+ goto docomplete;
+# endif
did_backspace = ins_bs(c, BACKSPACE_LINE, &inserted_space);
auto_format(FALSE, TRUE);
inserted_space = FALSE;
case CTRL_X_CMDLINE:
return (c == Ctrl_V || c == Ctrl_Q || c == Ctrl_P || c == Ctrl_N
|| c == Ctrl_X);
+#ifdef FEAT_COMPL_FUNC
+ case CTRL_X_FUNCTION:
+ return (c == Ctrl_U || c == Ctrl_P || c == Ctrl_N || c == Ctrl_X);
+#endif
}
EMSG(_(e_internal));
return FALSE;
case Ctrl_T:
ctrl_x_mode = CTRL_X_THESAURUS;
break;
+#ifdef FEAT_COMPL_FUNC
+ case Ctrl_U:
+ ctrl_x_mode = CTRL_X_FUNCTION;
+ break;
+#endif
case Ctrl_RSB:
ctrl_x_mode = CTRL_X_TAGS;
break;
return buf;
}
+#ifdef FEAT_COMPL_FUNC
+static char_u *call_completefunc __ARGS((char_u *line, char_u *base, int col, int preproc));
+static int expand_by_function __ARGS((int lnum, int col, char_u *base, char_u ***matches));
+
+/*
+ * Execute user defined complete function 'completefunc'.
+ * Return NULL if some error occurs.
+ */
+ static char_u *
+call_completefunc(line, base, col, preproc)
+ char_u *line;
+ char_u *base;
+ int col;
+ int preproc;
+{
+ char_u colbuf[30];
+ char_u *args[4];
+
+ /* Return NULL when 'completefunc' isn't set. */
+ if (*curbuf->b_p_cfu == NUL)
+ return NULL;
+
+ sprintf((char *)colbuf, "%d", col + (base ? (int)STRLEN(base) : 0));
+ args[0] = line;
+ args[1] = base;
+ args[2] = colbuf;
+ args[3] = preproc ? "1" : "0";
+ return call_vim_function(curbuf->b_p_cfu, 4, args, FALSE);
+}
+
+/*
+ * Execute user defined complete function 'completefunc', and get candidates
+ * are separeted with "\n". Return value is number of candidates and array
+ * of candidates as "matches".
+ */
+ static int
+expand_by_function(lnum, col, base, matches)
+ int lnum;
+ int col;
+ char_u *base;
+ char_u ***matches;
+{
+ char_u *matchstr = NULL;
+
+ /* Execute 'completefunc' and get the result */
+ matchstr = call_completefunc(ml_get_buf(curbuf, lnum, FALSE), base, col, 0);
+
+ /* Parse returned string */
+ if (matchstr != NULL)
+ {
+ garray_T ga;
+ char_u *p, *pnext;
+
+ ga_init2(&ga, (int)sizeof(char*), 8);
+ for (p = matchstr; *p != NUL; p = pnext)
+ {
+ int len;
+
+ pnext = vim_strchr(p, '\n');
+ if (pnext == NULL)
+ pnext = p + STRLEN(p);
+ len = pnext - p;
+ if (len > 0)
+ {
+ if (ga_grow(&ga, 1) == FAIL)
+ break;
+ ((char_u **)ga.ga_data)[ga.ga_len] = vim_strnsave(p, len);
+ ++ga.ga_len;
+ --ga.ga_room;
+ }
+ if (*pnext != NUL)
+ ++pnext;
+ }
+ vim_free(matchstr);
+ if (ga.ga_len > 0)
+ *matches = (char_u**)ga.ga_data;
+ return ga.ga_len;
+ }
+ return 0;
+}
+#endif /* FEAT_COMPL_FUNC */
+
/*
* Get the next expansion(s) for the text starting at the initial curbuf
* position "ini" and in the direction dir.
ins_buf->b_scanned = 0;
found_all = FALSE;
ins_buf = curbuf;
- e_cpt = continue_status & CONT_LOCAL ? (char_u *)"." : curbuf->b_p_cpt;
+ e_cpt = (continue_status & CONT_LOCAL)
+ ? (char_u *)"." : curbuf->b_p_cpt;
last_match_pos = first_match_pos = *ini;
}
ins_compl_add_matches(num_matches, matches, dir);
break;
+#ifdef FEAT_COMPL_FUNC
+ case CTRL_X_FUNCTION:
+ num_matches = expand_by_function(first_match_pos.lnum,
+ first_match_pos.col, complete_pat, &matches);
+ if (num_matches > 0)
+ ins_compl_add_matches(num_matches, matches, dir);
+ break;
+#endif
+
default: /* normal ^P/^N and ^X^L */
/*
* If 'infercase' is set, don't use 'smartcase' here
tmp_ptr = line + temp;
temp = complete_col - temp;
}
+#ifdef FEAT_COMPL_FUNC
+ else if (ctrl_x_mode == CTRL_X_FUNCTION)
+ {
+ /*
+ * Call user defined function 'completefunc' with line content,
+ * cursor column number and preproc is 1. Obtain length of text
+ * to use for completion.
+ */
+ char_u *lenstr;
+ int keeplen = 0;
+
+ /* Call 'completefunc' and get pattern length as a string */
+ lenstr = call_completefunc(line, NULL, complete_col, 1);
+ if (lenstr == NULL)
+ return FAIL;
+ keeplen = atoi(lenstr);
+ vim_free(lenstr);
+ if (keeplen < 0)
+ return FAIL;
+ if ((colnr_T)keeplen > complete_col)
+ keeplen = complete_col;
+
+ /* Setup variables for completion */
+ tmp_ptr = line + keeplen;
+ temp = complete_col - keeplen;
+ complete_pat = vim_strnsave(tmp_ptr, temp);
+ if (complete_pat == NULL)
+ return FAIL;
+ }
+#endif
complete_col = (colnr_T) (tmp_ptr - line);
if (continue_status & CONT_ADDING)
for (i = 0; i < argc; i++)
{
+ /* Pass a NULL or empty argument as an empty string */
+ if (argv[i] == NULL || *argv[i] == NUL)
+ {
+ argvars[i].var_type = VAR_STRING;
+ argvars[i].var_val.var_string = "";
+ continue;
+ }
+
/* Recognize a number argument, the others must be strings. */
vim_str2nr(argv[i], NULL, &len, TRUE, TRUE, &n, NULL);
if (len != 0 && len == (int)STRLEN(argv[i]))
# define FEAT_EVAL
#endif
+/*
+ * Insert mode completion with 'completefunc'.
+ */
+#if defined(FEAT_INS_EXPAND) && defined(FEAT_EVAL)
+# define FEAT_COMPL_FUNC
+#endif
+
/*
* +user_commands Allow the user to define his own commands.
*/
{"BufWriteCmd", EVENT_BUFWRITECMD},
{"CmdwinEnter", EVENT_CMDWINENTER},
{"CmdwinLeave", EVENT_CMDWINLEAVE},
+ {"ColorScheme", EVENT_COLORSCHEME},
{"EncodingChanged", EVENT_ENCODINGCHANGED},
{"FileEncoding", EVENT_ENCODINGCHANGED},
{"CursorHold", EVENT_CURSORHOLD},
EXTERN int lcs_eol INIT(= '$');
EXTERN int lcs_ext INIT(= NUL);
EXTERN int lcs_prec INIT(= NUL);
+EXTERN int lcs_nbsp INIT(= NUL);
EXTERN int lcs_tab1 INIT(= NUL);
EXTERN int lcs_tab2 INIT(= NUL);
EXTERN int lcs_trail INIT(= NUL);
char *flags;
{
struct stat statbuf;
- int ret;
- char *fname = NULL;
- char *fname2 = NULL;
- char *ppath = NULL;
- int i;
+ int ret;
+ char *fname = NULL;
+ char *fname2 = NULL;
+ char *ppath = NULL;
+ int i;
/* get the filename (arg1), expand it, and try to stat it */
- if ((fname = (char *)alloc(MAXPATHL+1)) == NULL)
+ if ((fname = (char *)alloc(MAXPATHL + 1)) == NULL)
goto add_err;
expand_env((char_u *)arg1, (char_u *)fname, MAXPATHL);
{
struct stat statbuf2;
- if ((ppath = (char *)alloc(MAXPATHL+1)) == NULL)
+ if ((ppath = (char *)alloc(MAXPATHL + 1)) == NULL)
goto add_err;
expand_env((char_u *)arg2, (char_u *)ppath, MAXPATHL);
case 's': /* "as" = a sentence */
flag = current_sent(cap->oap, cap->count1, include);
break;
+ case '"': /* "a"" = a double quoted string */
+ case '\'': /* "a'" = a single quoted string */
+ case '`': /* "a`" = a backtick quoted string */
+ flag = current_quote(cap->oap, cap->count1, include,
+ cap->nchar);
+ break;
#if 0 /* TODO */
case 'S': /* "aS" = a section */
case 'f': /* "af" = a filename */
, PV_CMS
, PV_COM
, PV_CPT
+ , PV_CFU
, PV_DEF
, PV_DICT
, PV_DIFF
, PV_PATH
, PV_PI
, PV_PVW
+ , PV_QE
, PV_RL
, PV_RLC
, PV_RO
#ifdef FEAT_INS_EXPAND
static char_u *p_cpt;
#endif
+#ifdef FEAT_COMPL_FUNC
+static char_u *p_cfu;
+#endif
static int p_eol;
static int p_et;
#ifdef FEAT_MBYTE
static char_u *p_oft;
#endif
static int p_pi;
+#ifdef FEAT_TEXTOBJ
+static char_u *p_qe;
+#endif
static int p_ro;
#ifdef FEAT_SMARTINDENT
static int p_si;
#else
(char_u *)NULL, PV_NONE,
{(char_u *)0L, (char_u *)0L}
+#endif
+ },
+ {"completefunc", "cfu", P_STRING|P_ALLOCED|P_VI_DEF|P_SECURE,
+#ifdef FEAT_COMPL_FUNC
+ (char_u *)&p_cfu, PV_CFU,
+ {(char_u *)"", (char_u *)0L}
+#else
+ (char_u *)NULL, PV_NONE,
+ {(char_u *)0L, (char_u *)0L}
#endif
},
{"confirm", "cf", P_BOOL|P_VI_DEF,
{"prompt", NULL, P_BOOL|P_VI_DEF,
(char_u *)NULL, PV_NONE,
{(char_u *)FALSE, (char_u *)0L}},
+ {"quoteescape", "qe", P_STRING|P_ALLOCED|P_VI_DEF,
+#ifdef FEAT_TEXTOBJ
+ (char_u *)&p_qe, PV_QE,
+ {(char_u *)"\\", (char_u *)0L}
+#else
+ (char_u *)NULL, PV_NONE,
+ {(char_u *)NULL, (char_u *)0L}
+#endif
+ },
{"readonly", "ro", P_BOOL|P_VI_DEF|P_RSTAT|P_NOGLOB,
(char_u *)&p_ro, PV_RO,
{(char_u *)FALSE, (char_u *)0L}},
check_string_option(&buf->b_p_cms);
#endif
check_string_option(&buf->b_p_nf);
+#ifdef FEAT_TEXTOBJ
+ check_string_option(&buf->b_p_qe);
+#endif
#ifdef FEAT_SYN_HL
check_string_option(&buf->b_p_syn);
#endif
#ifdef FEAT_INS_EXPAND
check_string_option(&buf->b_p_cpt);
#endif
+#ifdef FEAT_COMPL_FUNC
+ check_string_option(&buf->b_p_cfu);
+#endif
#ifdef FEAT_KEYMAP
check_string_option(&buf->b_p_keymap);
#endif
{
{&lcs_eol, "eol"},
{&lcs_ext, "extends"},
+ {&lcs_nbsp, "nbsp"},
{&lcs_prec, "precedes"},
{&lcs_tab2, "tab"},
{&lcs_trail, "trail"},
#endif
#ifdef FEAT_INS_EXPAND
case PV_CPT: return (char_u *)&(curbuf->b_p_cpt);
+#endif
+#ifdef FEAT_COMPL_FUNC
+ case PV_CFU: return (char_u *)&(curbuf->b_p_cfu);
#endif
case PV_EOL: return (char_u *)&(curbuf->b_p_eol);
case PV_ET: return (char_u *)&(curbuf->b_p_et);
case PV_OFT: return (char_u *)&(curbuf->b_p_oft);
#endif
case PV_PI: return (char_u *)&(curbuf->b_p_pi);
+#ifdef FEAT_TEXTOBJ
+ case PV_QE: return (char_u *)&(curbuf->b_p_qe);
+#endif
case PV_RO: return (char_u *)&(curbuf->b_p_ro);
#ifdef FEAT_SMARTINDENT
case PV_SI: return (char_u *)&(curbuf->b_p_si);
buf->b_p_swf = p_swf;
#ifdef FEAT_INS_EXPAND
buf->b_p_cpt = vim_strsave(p_cpt);
+#endif
+#ifdef FEAT_COMPL_FUNC
+ buf->b_p_cfu = vim_strsave(p_cfu);
#endif
buf->b_p_sts = p_sts;
buf->b_p_sts_nopaste = p_sts_nopaste;
buf->b_p_dict = empty_option;
buf->b_p_tsr = empty_option;
#endif
+#ifdef FEAT_TEXTOBJ
+ buf->b_p_qe = vim_strsave(p_qe);
+#endif
/*
* Don't copy the options set by ex_help(), use the saved values,
{
# if defined(USE_DLOPEN)
void *hinstLib;
+ char *dlerr = NULL;
# else
shl_t hinstLib;
# endif
| RTLD_LOCAL
# endif
);
+ if (hinstLib == NULL)
+ {
+ /* "dlerr" must be used before dlclose() */
+ dlerr = (char *)dlerror();
+ if (dlerr != NULL)
+ EMSG2(_("dlerror = \"%s\""), dlerr);
+ }
# else
hinstLib = shl_load((const char*)libname, BIND_IMMEDIATE|BIND_VERBOSE, 0L);
# endif
if (SETJMP(lc_jump_env) != 0)
{
success = FALSE;
+ dlerr = NULL;
mch_didjmp();
}
else
{
# if defined(USE_DLOPEN)
ProcAdd = (STRPROCSTR)dlsym(hinstLib, (const char *)funcname);
+ dlerr = (char *)dlerror();
# else
if (shl_findsym(&hinstLib, (const char *)funcname,
TYPE_PROCEDURE, (void *)&ProcAdd) < 0)
ProcAdd = NULL;
# endif
- if ((success = (ProcAdd != NULL)))
+ if ((success = (ProcAdd != NULL
+# if defined(USE_DLOPEN)
+ && dlerr == NULL
+# endif
+ )))
{
if (string_result == NULL)
retval_int = ((STRPROCINT)ProcAdd)(argstring);
{
# if defined(USE_DLOPEN)
ProcAddI = (INTPROCSTR)dlsym(hinstLib, (const char *)funcname);
+ dlerr = (char *)dlerror();
# else
if (shl_findsym(&hinstLib, (const char *)funcname,
TYPE_PROCEDURE, (void *)&ProcAddI) < 0)
ProcAddI = NULL;
# endif
- if ((success = (ProcAddI != NULL)))
+ if ((success = (ProcAddI != NULL
+# if defined(USE_DLOPEN)
+ && dlerr == NULL
+# endif
+ )))
{
if (string_result == NULL)
retval_int = ((INTPROCINT)ProcAddI)(argint);
# endif
# endif
- /* Free the DLL module. */
# if defined(USE_DLOPEN)
+ /* "dlerr" must be used before dlclose() */
+ if (dlerr != NULL)
+ EMSG2(_("dlerror = \"%s\""), dlerr);
+
+ /* Free the DLL module. */
(void)dlclose(hinstLib);
# else
(void)shl_unload(hinstLib);
int current_sent __ARGS((oparg_T *oap, long count, int include));
int current_block __ARGS((oparg_T *oap, long count, int include, int what, int other));
int current_par __ARGS((oparg_T *oap, long count, int include, int type));
+int current_quote __ARGS((oparg_T *oap, long count, int include, int quotechar));
int linewhite __ARGS((linenr_T lnum));
void find_pattern_in_path __ARGS((char_u *ptr, int dir, int len, int whole, int skip_comments, int type, long count, int action, linenr_T start_lnum, linenr_T end_lnum));
int read_viminfo_search_pattern __ARGS((vir_T *virp, int force));
#endif
++ptr;
+ /* 'list' : change char 160 to lcs_nbsp. */
+ if (wp->w_p_list && c == 160 && lcs_nbsp)
+ {
+ c = lcs_nbsp;
+ if (area_attr == 0 && search_attr == 0)
+ {
+ n_attr = 1;
+ extra_attr = hl_attr(HLF_8);
+ saved_attr2 = char_attr; /* save current attr */
+ }
+#ifdef FEAT_MBYTE
+ mb_c = c;
+ if (enc_utf8 && (*mb_char2len)(c) > 1)
+ {
+ mb_utf8 = TRUE;
+ u8c_c1 = u8c_c2 = 0;
+ }
+ else
+ mb_utf8 = FALSE;
+#endif
+ }
+
if (extra_check)
{
#ifdef FEAT_SYN_HL
return OK;
}
+
+static int find_next_quote __ARGS((char_u *top_ptr, int col, int quotechar, char_u *escape));
+static int find_prev_quote __ARGS((char_u *line, int col_start, int quotechar, char_u *escape));
+
+/*
+ * Search quote char from string line[col].
+ * Quote character escaped by one of the characters in "escape" is not counted
+ * as a quote.
+ * Returns column number of "quotechar" or -1 when not found.
+ */
+ static int
+find_next_quote(line, col, quotechar, escape)
+ char_u *line;
+ int col;
+ int quotechar;
+ char_u *escape; /* escape characters, can be NULL */
+{
+ int c;
+
+ while (1)
+ {
+ c = line[col];
+ if (c == NUL)
+ return -1;
+ else if (escape != NULL && vim_strchr(escape, c))
+ ++col;
+ else if (c == quotechar)
+ break;
+#ifdef FEAT_MBYTE
+ if (has_mbyte)
+ col += (*mb_ptr2len_check)(line + col);
+ else
+#endif
+ ++col;
+ }
+ return col;
+}
+
+/*
+ * Search backwards in "line" from column "col_start" to find "quotechar".
+ * Quote character escaped by one of the characters in "escape" is not counted
+ * as a quote.
+ * Return the found column or zero.
+ */
+ static int
+find_prev_quote(line, col_start, quotechar, escape)
+ char_u *line;
+ int col_start;
+ int quotechar;
+ char_u *escape; /* escape characters, can be NULL */
+{
+ int n;
+
+ while (col_start > 0)
+ {
+ --col_start;
+#ifdef FEAT_MBYTE
+ col_start -= (*mb_head_off)(line, line + col_start);
+#endif
+ n = 0;
+ if (escape != NULL)
+ while (col_start - n > 0 && vim_strchr(escape,
+ line[col_start - n - 1]) != NULL)
+ ++n;
+ if (n & 1)
+ col_start -= n; /* uneven number of escape chars, skip it */
+ else if (line[col_start] == quotechar)
+ break;
+ }
+ return col_start;
+}
+
+/*
+ * Find quote under the cursor, cursor at end.
+ * Returns TRUE if found, else FALSE.
+ */
+ int
+current_quote(oap, count, include, quotechar)
+ oparg_T *oap;
+ long count;
+ int include; /* TRUE == include quote char */
+ int quotechar; /* Quote character */
+{
+ char_u *line = ml_get_curline();
+ int col_end;
+ int col_start = curwin->w_cursor.col;
+ int inclusive = FALSE;
+#ifdef FEAT_VISUAL
+ int vis_empty = TRUE; /* Visual selection <= 1 char */
+ int vis_bef_curs = FALSE; /* Visual starts before cursor */
+
+ /* Correct cursor when 'selection' is exclusive */
+ if (VIsual_active)
+ {
+ if (*p_sel == 'e' && vis_bef_curs)
+ dec_cursor();
+ vis_empty = equalpos(VIsual, curwin->w_cursor);
+ vis_bef_curs = lt(VIsual, curwin->w_cursor);
+ }
+ if (!vis_empty && line[col_start] == quotechar)
+ {
+ /* Already selecting something and on a quote character. Find the
+ * next quoted string. */
+ if (vis_bef_curs)
+ {
+ /* Assume we are on a closing quote: move to after the next
+ * opening quote. */
+ col_start = find_next_quote(line, col_start + 1, quotechar, NULL);
+ if (col_start < 0)
+ return FALSE;
+ col_end = find_next_quote(line, col_start + 1, quotechar,
+ curbuf->b_p_qe);
+ if (col_end < 0)
+ {
+ /* We were on a starting quote perhaps? */
+ col_end = col_start;
+ col_start = curwin->w_cursor.col;
+ }
+ }
+ else
+ {
+ col_end = find_prev_quote(line, col_start, quotechar, NULL);
+ if (line[col_end] != quotechar)
+ return FALSE;
+ col_start = find_prev_quote(line, col_end, quotechar,
+ curbuf->b_p_qe);
+ if (line[col_start] != quotechar)
+ {
+ /* We were on an ending quote perhaps? */
+ col_start = col_end;
+ col_end = curwin->w_cursor.col;
+ }
+ }
+ }
+ else
+#endif
+
+ if (line[col_start] == quotechar
+#ifdef FEAT_VISUAL
+ || !vis_empty
#endif
+ )
+ {
+ int first_col = col_start;
+
+#ifdef FEAT_VISUAL
+ if (!vis_empty)
+ {
+ if (vis_bef_curs)
+ first_col = find_next_quote(line, col_start, quotechar, NULL);
+ else
+ first_col = find_prev_quote(line, col_start, quotechar, NULL);
+ }
+#endif
+ /* The cursor is on a quote, we don't know if it's the opening or
+ * closing quote. Search from the start of the line to find out.
+ * Also do this when there is a Visual area, a' may leave the cursor
+ * in between two strings. */
+ col_start = 0;
+ while (1)
+ {
+ /* Find open quote character. */
+ col_start = find_next_quote(line, col_start, quotechar, NULL);
+ if (col_start < 0 || col_start > first_col)
+ return FALSE;
+ /* Find close quote character. */
+ col_end = find_next_quote(line, col_start + 1, quotechar,
+ curbuf->b_p_qe);
+ if (col_end < 0)
+ return FALSE;
+ /* If is cursor between start and end quote character, it is
+ * target text object. */
+ if (col_start <= first_col && first_col <= col_end)
+ break;
+ col_start = col_end + 1;
+ }
+ }
+ else
+ {
+ /* Search backward for a starting quote. */
+ col_start = find_prev_quote(line, col_start, quotechar, curbuf->b_p_qe);
+ if (line[col_start] != quotechar)
+ {
+ /* No quote before the cursor, look after the cursor. */
+ col_start = find_next_quote(line, col_start, quotechar, NULL);
+ if (col_start < 0)
+ return FALSE;
+ }
+
+ /* Find close quote character. */
+ col_end = find_next_quote(line, col_start + 1, quotechar,
+ curbuf->b_p_qe);
+ if (col_end < 0)
+ return FALSE;
+ }
+
+ /* When "include" is TRUE, include spaces after closing quote or before
+ * the starting quote. */
+ if (include)
+ {
+ if (vim_iswhite(line[col_end + 1]))
+ while (vim_iswhite(line[col_end + 1]))
+ ++col_end;
+ else
+ while (col_start > 0 && vim_iswhite(line[col_start - 1]))
+ --col_start;
+ }
+
+ /* Set start position */
+ if (!include)
+ ++col_start;
+ curwin->w_cursor.col = col_start;
+#ifdef FEAT_VISUAL
+ if (VIsual_active)
+ {
+ if (vis_empty)
+ {
+ VIsual = curwin->w_cursor;
+ redraw_curbuf_later(INVERTED);
+ }
+ }
+ else
+#endif
+ {
+ oap->start = curwin->w_cursor;
+ oap->motion_type = MCHAR;
+ }
+
+ /* Set end position. */
+ curwin->w_cursor.col = col_end;
+ if (include && inc_cursor() == 2)
+ inclusive = TRUE;
+#ifdef FEAT_VISUAL
+ if (VIsual_active)
+ {
+ if (vis_empty || vis_bef_curs)
+ {
+ /* decrement cursor when 'selection' is not exclusive */
+ if (*p_sel != 'e')
+ dec_cursor();
+ }
+ else
+ {
+ /* Cursor is at start of Visual area. */
+ curwin->w_cursor.col = col_start;
+ }
+ if (VIsual_mode == 'V')
+ {
+ VIsual_mode = 'v';
+ redraw_cmdline = TRUE; /* show mode later */
+ }
+ }
+ else
+#endif
+ {
+ /* Set inclusive and other oap's flags. */
+ oap->inclusive = inclusive;
+ }
+
+ return OK;
+}
+
+#endif /* FEAT_TEXTOBJ */
#if defined(FEAT_LISP) || defined(FEAT_CINDENT) || defined(FEAT_TEXTOBJ) \
|| defined(PROTO)
#endif
#ifdef FEAT_INS_EXPAND
char_u *b_p_cpt; /* 'complete' */
+#endif
+#ifdef FEAT_COMPL_FUNC
+ char_u *b_p_cfu; /* 'completefunc' */
#endif
int b_p_eol; /* 'endofline' */
int b_p_et; /* 'expandtab' */
char_u *b_p_oft; /* 'osfiletype' */
#endif
int b_p_pi; /* 'preserveindent' */
+#ifdef FEAT_TEXTOBJ
+ char_u *b_p_qe; /* 'quoteescape' */
+#endif
int b_p_ro; /* 'readonly' */
long b_p_sw; /* 'shiftwidth' */
#ifndef SHORT_FNAME
}
/*
- * Load color file "p".
+ * Load color file "name".
* Return OK for success, FAIL for failure.
*/
int
-load_colors(p)
- char_u *p;
+load_colors(name)
+ char_u *name;
{
char_u *buf;
int retval = FAIL;
return OK;
recursive = TRUE;
- buf = alloc((unsigned)(STRLEN(p) + 12));
+ buf = alloc((unsigned)(STRLEN(name) + 12));
if (buf != NULL)
{
- sprintf((char *)buf, "colors/%s.vim", p);
+ sprintf((char *)buf, "colors/%s.vim", name);
retval = cmd_runtime(buf, FALSE);
vim_free(buf);
+#ifdef FEAT_AUTOCMD
+ apply_autocmds(EVENT_COLORSCHEME, NULL, NULL, FALSE, curbuf);
+#endif
}
recursive = FALSE;
test33.out test34.out test35.out test36.out test37.out \
test38.out test39.out test40.out test41.out test42.out \
test43.out test44.out test45.out test46.out test47.out \
- test48.out test51.out
+ test48.out test51.out test53.out
.SUFFIXES: .in .out
test47.out: test47.in
test48.out: test48.in
test51.out: test51.in
+test53.out: test53.in
test23.out test24.out test28.out test29.out \
test35.out test36.out test43.out \
test44.out test45.out test46.out test47.out \
- test48.out test51.out
+ test48.out test51.out test53.out
SCRIPTS = test3.out test4.out test5.out test6.out test7.out \
test8.out test9.out test11.out test13.out test14.out \
test33.out test34.out test35.out test36.out test37.out \
test38.out test39.out test40.out test41.out test42.out \
test43.out test44.out test45.out test46.out test47.out \
- test48.out test51.out
+ test48.out test51.out test53.out
.SUFFIXES: .in .out
# Authors: Zoltan Arpadffy, <arpadffy@polarhome.com>
# Sandor Kopanyi, <sandor.kopanyi@mailbox.hu>
#
-# Last change: 2004 May 03
+# Last change: 2004 Jul 02
#
# This has been tested on VMS 6.2 to 7.2 on DEC Alpha and VAX.
# Edit the lines in the Configuration section below to select.
test33.out test34.out test35.out test36.out test37.out \
test38.out test39.out test40.out test41.out test42.out \
test43.out test44.out test45.out test46.out \
- test48.out test51.out
+ test48.out test51.out test53.out
.IFDEF WANT_GUI
SCRIPT_GUI = test16.out
test33.out test34.out test35.out test36.out test37.out \
test38.out test39.out test40.out test41.out test42.out \
test43.out test44.out test45.out test46.out test47.out \
- test48.out test49.out test51.out test52.out
+ test48.out test49.out test51.out test52.out test53.out
SCRIPTS_GUI = test16.out
--- /dev/null
+Tests for string text objects. vim: set ft=vim :
+
+STARTTEST
+:so small.vim
+/^start:/
+da"
+0va'a'rx
+02f`da`
+0fXdi"
+03f'vi'ry
+:set quoteescape=+*-
+di`
+$F"va"oha"i"rz
+:/^start:/,/^end:/wq! test.out
+ENDTEST
+
+start: "wo\"rd\\" foo
+'foo' 'bar' 'piep'
+bla bla `quote` blah
+out " in "noXno"
+"'" 'blah' rep 'buh'
+bla `s*`d-`+++`l**` b`la
+voo "nah" sdf " asdf" sdf " sdf" sd
+end:
--- /dev/null
+start: foo
+xxxxxxxxxxxx'piep'
+bla bla blah
+out " in ""
+"'" 'blah'yyyyy'buh'
+bla `` b`la
+voo "zzzzzzzzzzzzzzzzzzzzzzzzzzzzsd
+end:
EVENT_BUFWRITECMD, /* write buffer using command */
EVENT_CMDWINENTER, /* after entering the cmdline window */
EVENT_CMDWINLEAVE, /* before leaving the cmdline window */
+ EVENT_COLORSCHEME, /* after loading a colorscheme */
EVENT_FILEAPPENDPOST, /* after appending to a file */
EVENT_FILEAPPENDPRE, /* before appending to a file */
EVENT_FILEAPPENDCMD, /* appende to a file using command */
projects / vim / commitdiff