Archive/vim
1
0
Fork 0
mirror of https://github.com/vim/vim.git synced 2025-12-10 18:46:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

updated for version 7.0007

Browse Source
This commit is contained in:
Bram Moolenaar
2004-07-10 09:47:34 +00:00
parent 325b7a2fb5
commit 8299df966a
54 changed files with 3573 additions and 2586 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
runtime/doc/Makefile
View File

@ -71,6 +71,7 @@ DOCS = \
pi_gzip.txt \ pi_gzip.txt \
pi_netrw.txt \ pi_netrw.txt \
pi_spec.txt \ pi_spec.txt \
print.txt \
quickfix.txt \ quickfix.txt \
quickref.txt \ quickref.txt \
quotes.txt \ quotes.txt \
@ -126,6 +127,7 @@ DOCS = \
version4.txt \ version4.txt \
version5.txt \ version5.txt \
version6.txt \ version6.txt \
version7.txt \
vi_diff.txt \ vi_diff.txt \
visual.txt \ visual.txt \
windows.txt \ windows.txt \
@ -189,6 +191,7 @@ HTMLS = \
pi_gzip.html \ pi_gzip.html \
pi_netrw.html \ pi_netrw.html \
pi_spec.html \ pi_spec.html \
print.html \
quickfix.html \ quickfix.html \
quickref.html \ quickref.html \
quotes.html \ quotes.html \
@ -245,6 +248,7 @@ HTMLS = \
version4.html \ version4.html \
version5.html \ version5.html \
version6.html \ version6.html \
version7.html \
vi_diff.html \ vi_diff.html \
visual.html \ visual.html \
windows.html \ windows.html \

16
runtime/doc/eval.txt
View File

@ -928,6 +928,8 @@ system( {expr}) String output of shell command {expr}
tempname() String name for a temporary file tempname() String name for a temporary file
tolower( {expr}) String the String {expr} switched to lowercase tolower( {expr}) String the String {expr} switched to lowercase
toupper( {expr}) String the String {expr} switched to uppercase toupper( {expr}) String the String {expr} switched to uppercase
tr( {src}, {fromstr}, {tostr}) String translate chars of {src} in {fromstr}
to chars in {tostr}
type( {name}) Number type of variable {name} type( {name}) Number type of variable {name}
virtcol( {expr}) Number screen column of cursor or mark virtcol( {expr}) Number screen column of cursor or mark
visualmode( [expr]) String last visual mode used visualmode( [expr]) String last visual mode used
@ -2608,6 +2610,20 @@ toupper({expr}) *toupper()*
characters turned into uppercase (just like applying |gU| to characters turned into uppercase (just like applying |gU| to
the string). the string).
tr({src}, {fromstr}, {tostr}) *tr()*
The result is a copy of the {src} string with all characters
which appear in {fromstr} replaced by the character in that
position in the {tostr} string. Thus the first character in
{fromstr} is translated into the first character in {tostr}
and so on. Exactly like the unix "tr" command.
This code also deals with multibyte characters properly.
Examples: >
echo tr("hello there", "ht", "HT")
< returns "Hello THere" >
echo tr("<blob>", "<>", "{}")
< returns "{blob}"
type({expr}) *type()* type({expr}) *type()*
The result is a Number: The result is a Number:
0 if {expr} has the type Number 0 if {expr} has the type Number

1
runtime/doc/help.txt
View File

@ -129,6 +129,7 @@ Advanced editing ~
|fold.txt| hide (fold) ranges of lines |fold.txt| hide (fold) ranges of lines
Special issues ~ Special issues ~
|print.txt| printing
|remote.txt| using Vim as a server or client |remote.txt| using Vim as a server or client
|term.txt| using different terminals and mice |term.txt| using different terminals and mice
|digraph.txt| list of available digraphs |digraph.txt| list of available digraphs

6
runtime/doc/indent.txt
View File

@ -1,4 +1,4 @@
*indent.txt* For Vim version 7.0aa. Last change: 2004 Apr 25 *indent.txt* For Vim version 7.0aa. Last change: 2004 Jul 07
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
@ -425,8 +425,8 @@ assume a 'shiftwidth' of 4.
The defaults, spelled out in full, are: The defaults, spelled out in full, are:
cinoptions=>s,e0,n0,f0,{0,}0,^0,:s,=s,l0,gs,hs,ps,ts,+s,c3,C0,(2s,us, cinoptions=>s,e0,n0,f0,{0,}0,^0,:s,=s,l0,b0,gs,hs,ps,ts,is,+s,c3,C0,
\U0,w0,m0,j0,)20,*30 /0,(2s,us,U0,w0,W0,m0,j0,)20,*30
Vim puts a line in column 1 if: Vim puts a line in column 1 if:
- It starts with '#' (preprocessor directives), if 'cinkeys' contains '#'. - It starts with '#' (preprocessor directives), if 'cinkeys' contains '#'.

4
runtime/doc/index.txt
View File

@ -1,4 +1,4 @@
*index.txt* For Vim version 7.0aa. Last change: 2004 Jul 04 *index.txt* For Vim version 7.0aa. Last change: 2004 Jul 07
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
@ -1224,6 +1224,8 @@ The commands are sorted on the non-optional part of their name.
|:mkvimrc| :mkv[imrc] write current mappings and settings to a file |:mkvimrc| :mkv[imrc] write current mappings and settings to a file
|:mkview| :mkvie[w] write view of current window to a file |:mkview| :mkvie[w] write view of current window to a file
|:mode| :mod[e] show or change the screen mode |:mode| :mod[e] show or change the screen mode
|:mzscheme| :mz[scheme] execute MzScheme command
|:mzfile| :mzf[ile] execute MzScheme script file
|:next| :n[ext] go to next file in the argument list |:next| :n[ext] go to next file in the argument list
|:new| :new create a new empty window |:new| :new create a new empty window
|:nmap| :nm[ap] like ":map" but for Normal mode |:nmap| :nm[ap] like ":map" but for Normal mode

4
runtime/doc/mbyte.txt
View File

@ -1,4 +1,4 @@
*mbyte.txt* For Vim version 7.0aa. Last change: 2004 Jun 16 *mbyte.txt* For Vim version 7.0aa. Last change: 2004 Jul 05
VIM REFERENCE MANUAL by Bram Moolenaar et al. VIM REFERENCE MANUAL by Bram Moolenaar et al.
@ -742,6 +742,8 @@ is suitable for complex input, such as CJK.
Traditional and Simplified Chinese characters. And it can accept other Traditional and Simplified Chinese characters. And it can accept other
locale if you make a correct input table. Xcin can be found at: locale if you make a correct input table. Xcin can be found at:
http://xcin.linux.org.tw/ http://xcin.linux.org.tw/
Others are scim: http://scim.freedesktop.org/ and fcitx:
http://www.fcitx.org/
- Conversion Server - Conversion Server
*conversion-server* *conversion-server*

218
runtime/doc/options.txt
View File

@ -4511,52 +4511,17 @@ A jump table for the options with a short description can be found at |Q_op|.
{not in Vi} {not in Vi}
{only available when compiled with the |+printer| {only available when compiled with the |+printer|
feature} feature}
This defines the name of the printer to be used when the |:hardcopy| The name of the printer to be used for |:hardcopy|.
command is issued with a bang (!) to skip the printer selection See |pdev-option|.
dialog. On Win32, it should be the printer name exactly as it appears
in the standard printer dialog.
If the option is empty, then vim will use the system default printer
for ":hardcopy!"
*'printencoding'* *'penc'* *E620* *'printencoding'* *'penc'*
'printencoding' 'penc' String (default empty, except for: 'printencoding' 'penc' String (default empty, except for some systems)
Windows, OS/2: cp1252,
Macintosh: mac-roman,
VMS: dec-mcs,
HPUX: hp-roman8,
EBCDIC: ebcdic-uk)
global global
{not in Vi} {not in Vi}
{only available when compiled with the |+printer| {only available when compiled with the |+printer|
and |+postscript| features} and |+postscript| features}
Sets the character encoding used when printing. This option tells VIM Sets the character encoding used when printing.
which print character encoding file from the "print" directory in See |penc-option|.
'runtimepath' to use.
This option will accept any value from |encoding-names|. Any
recognized names are converted to VIM standard names - see 'encoding'
for more details. Names not recognized by VIM will just be converted
to lower case and underscores replaced with '-' signs.
If 'printencoding' is empty or VIM cannot find the file then it will
use 'encoding' (if VIM is compiled with |+multi_byte| and it is set an
8-bit encoding) to find the print character encoding file. If VIM is
unable to find a character encoding file then it will use the "latin1"
print character encoding file.
When 'encoding' is set to a multi-byte encoding, VIM will try to
convert characters to the printing encoding for printing (if
'printencoding' is empty then the conversion will be to latin1).
Conversion to a printing encoding other than latin1 will require VIM
to be compiled with the |+iconv| feature. If no conversion is
possible then printing will fail. Any characters that cannot be
converted will be replaced with upside down question marks.
Four print character encoding files are provided to support default
Mac, VMS, HPUX, and EBCDIC character encodings and are used by default
on these platforms. Code page 1252 print character encoding is used
by default on Windows and OS/2 platforms.
*'printexpr'* *'pexpr'* *'printexpr'* *'pexpr'*
'printexpr' 'pexpr' String (default: see below) 'printexpr' 'pexpr' String (default: see below)
@ -4564,69 +4529,17 @@ A jump table for the options with a short description can be found at |Q_op|.
{not in Vi} {not in Vi}
{only available when compiled with the |+printer| {only available when compiled with the |+printer|
and |+postscript| features} and |+postscript| features}
Expression that is evaluated to print the PostScript produced with Expression used to print the PostScript produced with |:hardcopy|.
":hardcopy". See |pexpr-option|.
The file name to be printed is in |v:fname_in|.
The arguments to the ":hardcopy" command are in |v:cmdarg|.
The expression must take care of deleting the file after printing it.
When there is an error, the expression must return a non-zero number.
If there is no error, return zero or an empty string.
The default for non MS-Windows or VMS systems is to simply use "lpr"
to print the file: >
system('lpr' . (&printdevice == '' ? '' : ' -P' . &printdevice) *'printfont'* *'pfn'*
. ' ' . v:fname_in) . delete(v:fname_in) + v:shell_error
<
On MS-Dos, MS-Windows and OS/2 machines the default is to copy the
file to the currently specified printdevice: >
system('copy' . ' ' . v:fname_in . (&printdevice == ''
? ' LPT1:' : (' \"' . &printdevice . '\"')))
. delete(v:fname_in)
<
On VMS machines the default is to send the file to either the default
or currently specified printdevice: >
system('print' . (&printdevice == '' ? '' : ' /queue=' .
&printdevice) . ' ' . v:fname_in) . delete(v:fname_in)
<
If you change this option, using a function is an easy way to avoid
having to escape all the spaces. Example: >
:set printexpr=PrintFile(v:fname_in)
:function PrintFile(fname)
: call system("ghostview " . a:fname)
: call delete(a:fname)
: return v:shell_error
:endfunc
< Be aware that some print programs return control before they have read
the file. If you delete the file too soon it will not be printed.
These programs usually offer an option to have them remove the file
when printing is done.
*E365*
If evaluating the expression fails or it results in a non-zero number,
you get an error message. In that case Vim will delete the
file. In the default value for non-MS-Windows a trick is used: Adding
"v:shell_error" will result in a non-zero number when the system()
call fails.
This option cannot be set from a |modeline| or in the |sandbox|, for
security reasons.
*'printfont'* *'pfn'* *E613*
'printfont' 'pfn' string (default "courier") 'printfont' 'pfn' string (default "courier")
global global
{not in Vi} {not in Vi}
{only available when compiled with the |+printer| {only available when compiled with the |+printer|
feature} feature}
This is the name of the font that will be used for the |:hardcopy| The name of the font that will be used for |:hardcopy|.
command's output. It has the same format as the 'guifont' option, See |pfn-option|.
except that only one font may be named, and the special "guifont=*"
syntax is not available.
In the Win32 GUI version this specifies a font name with its extra
attributes, as with the 'guifont' option.
For other systems, only ":h11" is recognized, where "11" is the point
size of the font. When omitted, the point size is 10.
*'printheader'* *'pheader'* *'printheader'* *'pheader'*
'printheader' 'pheader' string (default "%<%f%h%m%=Page %N") 'printheader' 'pheader' string (default "%<%f%h%m%=Page %N")
@ -4634,100 +4547,35 @@ A jump table for the options with a short description can be found at |Q_op|.
{not in Vi} {not in Vi}
{only available when compiled with the |+printer| {only available when compiled with the |+printer|
feature} feature}
This defines the format of the header produced in |:hardcopy| output. The format of the header produced in |:hardcopy| output.
The option is defined in the same way as the 'statusline' option. See |pheader-option|.
If Vim has not been compiled with the |+statusline| feature, this
option has no effect and a simple default header is used, which shows *'printmbcharset'* *'pmbcs'*
the page number. 'printmbcharset' 'pmbcs' string (default "")
global
{not in Vi}
{only available when compiled with the |+printer|
and |+multi_byte| features}
The CJK character set to be used for CJK output from |:hardcopy|.
See |pmbcs-option|.
*'printmbfont'* *'pmbfn'*
'printmbfont' 'pmbfn' string (default "")
global
{not in Vi}
{only available when compiled with the |+printer|
and |+multi_byte| features}
List of font names to be used for CJK output from |:hardcopy|.
See |pmbfn-option|.
*'printoptions'* *'popt'* *'printoptions'* *'popt'*
'printoptions' 'popt' string (default "") 'printoptions' 'popt' string (default "")
global global
{not in Vi} {not in Vi}
{only available when compiled with |+printer| feature} {only available when compiled with |+printer| feature}
This is a comma-separated list of items that control the format of List of items that control the format of the output of |:hardcopy|.
the output of |:hardcopy|: See |popt-option|.
left:{spec} left margin (default: 10pc)
right:{spec} right margin (default: 5pc)
top:{spec} top margin (default: 5pc)
bottom:{spec} bottom margin (default: 5pc)
{spec} is a number followed by "in" for
inches, "pt" for points (1 point is 1/72 of an
inch), "mm" for millimeters or "pc" for a
percentage of the media size.
Weird example:
left:2in,top:30pt,right:16mm,bottom:3pc
If the unit is not recognized there is no
error and the default value is used.
header:{nr} Number of lines to reserve for the header.
Only the first line is actually filled, thus
when {nr} is 2 there is one empty line. The
header is formatted according to
'printheader'.
header:0 Do not print a header.
header:2 (default) Use two lines for the header
syntax:n Do not use syntax highlighting. This is
faster and thus useful when printing large
files.
syntax:y Do syntax highlighting.
syntax:a (default) Use syntax highlighting if the printer appears
to be able to print color or grey.
number:y Include line numbers in the printed output.
number:n (default) No line numbers.
wrap:y (default) Wrap long lines.
wrap:n Truncate long lines.
duplex:off Print on one side.
duplex:long (default) Print on both sides (when possible), bind on
long side.
duplex:short Print on both sides (when possible), bind on
short side.
collate:y (default) Collating: 1 2 3, 1 2 3, 1 2 3
collate:n No collating: 1 1 1, 2 2 2, 3 3 3
jobsplit:n (default) Do all copies in one print job
jobsplit:y Do each copy as a separate print job. Useful
when doing N-up postprocessing.
portrait:y (default) Orientation is portrait.
portrait:n Orientation is landscape.
*a4* *letter*
paper:A4 (default) Paper size: A4
paper:{name} Paper size from this table:
{name} size in cm size in inch ~
10x14 25.4 x 35.57 10 x 14
A3 29.7 x 42 11.69 x 16.54
A4 21 x 29.7 8.27 x 11.69
A5 14.8 x 21 5.83 x 8.27
B4 25 x 35.3 10.12 x 14.33
B5 17.6 x 25 7.17 x 10.12
executive 18.42 x 26.67 7.25 x 10.5
folio 21 x 33 8.27 x 13
ledger 43.13 x 27.96 17 x 11
legal 21.59 x 35.57 8.5 x 14
letter 21.59 x 27.96 8.5 x 11
quarto 21.59 x 27.5 8.5 x 10.83
statement 13.97 x 21.59 5.5 x 8.5
tabloid 27.96 x 43.13 11 x 17
formfeed:n (default) Treat form feed characters (0x0c) as a normal
print character.
formfeed:y When a form feed character is encountered,
continue printing of the current line at the
beginning of the first line on a new page.
The item indicated with (default) is used when the item is not
present. The values are not always used, especially when using a
dialog to select the printer and options.
Example: >
:set printoptions=paper:letter,duplex:off
<
*'quoteescape''* *'qe'* *'quoteescape''* *'qe'*
'quoteescape' 'qe' string (default "\") 'quoteescape' 'qe' string (default "\")
local to buffer local to buffer

81
runtime/doc/pi_netrw.txt
View File

@ -17,20 +17,6 @@
5. Ex Commands.........................................|netrw-ex| 5. Ex Commands.........................................|netrw-ex|
6. Variables and Options...............................|netrw-var| 6. Variables and Options...............................|netrw-var|
7. Remote Directory Browser............................|netrw-browse| 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| 8. Debugging...........................................|netrw-debug|
9. History.............................................|netrw-history| 9. History.............................................|netrw-history|
10. Credits.............................................|netrw-credits| 10. Credits.............................................|netrw-credits|
@ -514,7 +500,26 @@ from <netrw.vim> itself:
============================================================================== ==============================================================================
7. Remote Directory Browser *netrw-browse* *netrw-dir* *netrw-list* *netrw-help* 7. Remote Directory Browser *netrw-browse* *netrw-dir* *netrw-list* *netrw-help*
?..........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|
\H.........Edit File/Directory Hiding List.........|netrw-H|
\M.........Make A New Directory....................|netrw-M|
R..........Renaming Files or Directories...........|netrw-R|
-..........Going Up................................|netrw--|
a..........Hiding Files or Directories.............|netrw-a|
i..........Long Listing............................|netrw-i|
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|
*netrw-browse-cmds*
> >
Quick Reference Commands Table
------- -----------
Command Explanation Command Explanation
------- ----------- ------- -----------
? Causes Netrw to issue help ? Causes Netrw to issue help
@ -526,6 +531,7 @@ from <netrw.vim> itself:
- Makes Netrw go up one directory - Makes Netrw go up one directory
a Show all of a directory (temporarily ignore g:netrw_list_hide) a Show all of a directory (temporarily ignore g:netrw_list_hide)
h Edit file hiding list h Edit file hiding list
i Toggles between long and short listing
o Enter the file/directory under the cursor in a new browser o Enter the file/directory under the cursor in a new browser
window. A horizontal split is used. window. A horizontal split is used.
r Reverse sorting order r Reverse sorting order
@ -540,16 +546,22 @@ from <netrw.vim> itself:
Var Explanation Var Explanation
--- ----------- --- -----------
g:netrw_list_cmd supports listing g:netrw_list_cmd supports listing
g:netrw_rm_cmd supports removing files
g:netrw_rmf_cmd supports removing softlinks to directories
g:netrw_rmdir_cmd supports removing directories
g:netrw_winsize specify initial size of new o/v windows
g:netrw_list_hide comma separated list of patterns for g:netrw_list_hide comma separated list of patterns for
hiding files hiding files
g:netrw_local_mkdir specify command for making a directory locally
g:netrw_local_rmdir remove directory command default: rmdir
g:netrw_local_rename rename file/directory command
unix-default: rm win32-default: ren
g:netrw_mkdir_cmd specify command for making a directory remotely
g:netrw_rm_cmd supports removing files
g:netrw_rmdir_cmd supports removing directories
g:netrw_rmf_cmd supports removing softlinks to directories
g:netrw_sort_by sort by "name", "time", or "size" g:netrw_sort_by sort by "name", "time", or "size"
g:netrw_sort_direction sorting direction: "normal" or "reverse" g:netrw_sort_direction sorting direction: "normal" or "reverse"
g:netrw_sort_sequence when sorting by name, first sort by the g:netrw_sort_sequence when sorting by name, first sort by the
comma-separated pattern sequence comma-separated pattern sequence
g:netrw_timefmt specify format string to strftime() default: %c
g:netrw_winsize specify initial size of new o/v windows
< <
INTRODUCTION TO REMOTE DIRECTORY BROWSING INTRODUCTION TO REMOTE DIRECTORY BROWSING
@ -595,6 +607,24 @@ Hitting the <cr> (the return key) will select the file or directory.
Directories will themselves be listed, and files will be opened using the Directories will themselves be listed, and files will be opened using the
protocol given in the original read request. protocol given in the original read request.
LONG VS SHORT LISTING *netrw-i*
The short listing format gives just the files' and directories' names.
The long listing is either based on the "ls" command via ssh for remote
directories or displays the filename, file size (in bytes), and the
time and date of last modification for local directories.
MAKING A NEW DIRECTORY *netrw-M*
Actually <Leader>M, where the <Leader> is, by default, the backslash.
With the "<Leader>M" map one may make a new directory either remotely (which
depends on the global variable g:netrw_mkdir_cmd) or locally (which depends on
the global variable g:netrw_local_mkdir). Netrw will issue a request for the
new directory's name. A bare <CR> at that point will abort the making of the
directory. Attempts to make a local directory that already exists (as either
a file or a directory) will be detected, reported on, and ignored.
REMOVING FILES OR DIRECTORIES *netrw-delete* *netrw-remove* *netrw-D* REMOVING FILES OR DIRECTORIES *netrw-delete* *netrw-remove* *netrw-D*
@ -626,7 +656,7 @@ to remove it again using the g:netrw_rmf_cmd variable. Its default value is:
g:netrw_rmf_cmd: ssh HOSTNAME rm -f g:netrw_rmf_cmd: ssh HOSTNAME rm -f
RENAMING FILES OR DIRECTORIES *netrw-move* *netrw-rename* RENAMING FILES OR DIRECTORIES *netrw-move* *netrw-rename* *netrw-R*
Renaming/moving files and directories involves moving the cursor to the Renaming/moving files and directories involves moving the cursor to the
file/directory to be moved (renamed) and pressing "R". You will then be file/directory to be moved (renamed) and pressing "R". You will then be
@ -643,13 +673,18 @@ 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 "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 the g:netrw_list_hide variable holds a comma separated list of patterns which
will be hidden (removed) from the directory listing. will be hidden (removed) from the directory listing. Mnemonically, the
"a" stands for show All.
EDIT FILE OR DIRECTORY HIDING *netrw-h* EDIT FILE OR DIRECTORY HIDING LIST *netrw-H*
The "h" map brings up a requestor allowing the user to change the Actually <Leader>H, where the <Leader> is, by default, the backslash.
file/directory hiding list.
The "<Leader>H" map brings up a requestor allowing the user to change the
file/directory hiding list. The hiding list consists of one or more
patterns delimited by commas. Files and/or directories satisfying
these patterns will be hidden (ie. not shown).
BROWSING WITH A HORIZONTALLY SPLIT WINDOW *netrw-o* BROWSING WITH A HORIZONTALLY SPLIT WINDOW *netrw-o*

751
runtime/doc/print.txt Normal file
View File

@ -0,0 +1,751 @@
*print.txt* For Vim version 7.0aa. Last change: 2004 Jul 05
VIM REFERENCE MANUAL by Bram Moolenaar
Printing *printing*
1. Introduction |print-intro|
2. Print options |print-options|
3. PostScript Printing |postscript-printing|
4. PostScript Printing Encoding |postscript-print-encoding|
5. PostScript CJK Printing |postscript-cjk-printing|
6. PostScript Printing Troubleshooting |postscript-print-trouble|
7. PostScript Utilities |postscript-print-util|
8. Formfeed Characters |printing-formfeed|
{Vi has None of this}
{only available when compiled with the |+printer| feature}
==============================================================================
1. Introduction *print-intro*
On MS-Windows Vim can print your text on any installed printer. On other
systems a PostScript file is produced. This can be directly sent to a
PostScript printer. For other printers a program like ghostscript needs to be
used.
*:ha* *:hardcopy* *E237* *E238* *E324*
:[range]ha[rdcopy][!] [arguments]
Send [range] lines (default whole file) to the
printer.
On MS-Windows a dialog is displayed to allow selection
of printer, paper size etc. To skip the dialog, use
the [!]. In this case the printer defined by
'printdevice' is used, or, if 'printdevice' is empty,
the system default printer.
For systems other than MS-Windows, PostScript is
written in a temp file and 'printexpr' is used to
actually print it. Then [arguments] can be used by
'printexpr' through |v:cmdarg|. Otherwise [arguments]
is ignored. 'printoptions' can be used to specify
paper size, duplex, etc.
:[range]ha[rdcopy][!] >{filename}
As above, but write the resulting PostScript in file
{filename}.
Things like "%" are expanded |cmdline-special|
Careful: An existing file is silently overwritten.
{only available when compiled with the |+postscript|
feature}
On MS-Windows use the "print to file" feature of the
printer driver.
Progress is displayed during printing as a page number and a percentage. To
abort printing use the interrupt key (CTRL-C or, on MS-systems, CTRL-Break).
Printer output is controlled by the 'printfont' and 'printoptions' options.
'printheader' specifies the format of a page header.
The printed file is always limited to the selected margins, irrespective of
the current window's 'wrap' or 'linebreak' settings. The "wrap" item in
'printoptions' can be used to switch wrapping off.
The current highlighting colors are used in the printout, with the following
considerations:
1) The normal background is always rendered as white (i.e. blank paper.)
2) White text or the default foreground is rendered as black, so that it shows
up!
3) If 'background' is "dark", then the colours are darkened to compensate for
the fact that otherwise they would be too bright to show up clearly on
white paper.
==============================================================================
2. Print options *print-options*
Here are the details for the options that change the way printing is done.
For generic info about setting options see |options.txt|.
*pdev-option*
'printdevice' 'pdev' string (default empty)
global
This defines the name of the printer to be used when the |:hardcopy| command
is issued with a bang (!) to skip the printer selection dialog. On Win32, it
should be the printer name exactly as it appears in the standard printer
dialog.
If the option is empty, then vim will use the system default printer for
":hardcopy!"
*penc-option* *E620*
'printencoding' 'penc' String (default empty, except for:
Windows, OS/2: cp1252,
Macintosh: mac-roman,
VMS: dec-mcs,
HPUX: hp-roman8,
EBCDIC: ebcdic-uk)
global
Sets the character encoding used when printing. This option tells VIM which
print character encoding file from the "print" directory in 'runtimepath' to
use.
This option will accept any value from |encoding-names|. Any recognized names
are converted to VIM standard names - see 'encoding' for more details. Names
not recognized by VIM will just be converted to lower case and underscores
replaced with '-' signs.
If 'printencoding' is empty or VIM cannot find the file then it will use
'encoding' (if VIM is compiled with |+multi_byte| and it is set an 8-bit
encoding) to find the print character encoding file. If VIM is unable to find
a character encoding file then it will use the "latin1" print character
encoding file.
When 'encoding' is set to a multi-byte encoding, VIM will try to convert
characters to the printing encoding for printing (if 'printencoding' is empty
then the conversion will be to latin1). Conversion to a printing encoding
other than latin1 will require VIM to be compiled with the |+iconv| feature.
If no conversion is possible then printing will fail. Any characters that
cannot be converted will be replaced with upside down question marks.
Four print character encoding files are provided to support default Mac, VMS,
HPUX, and EBCDIC character encodings and are used by default on these
platforms. Code page 1252 print character encoding is used by default on
Windows and OS/2 platforms.
*pexpr-option*
'printexpr' 'pexpr' String (default: see below)
global
Expression that is evaluated to print the PostScript produced with
|:hardcopy|.
The file name to be printed is in |v:fname_in|.
The arguments to the ":hardcopy" command are in |v:cmdarg|.
The expression must take care of deleting the file after printing it.
When there is an error, the expression must return a non-zero number.
If there is no error, return zero or an empty string.
The default for non MS-Windows or VMS systems is to simply use "lpr" to print
the file: >
system('lpr' . (&printdevice == '' ? '' : ' -P' . &printdevice)
. ' ' . v:fname_in) . delete(v:fname_in) + v:shell_error
On MS-Dos, MS-Windows and OS/2 machines the default is to copy the file to the
currently specified printdevice: >
system('copy' . ' ' . v:fname_in . (&printdevice == ''
? ' LPT1:' : (' \"' . &printdevice . '\"')))
. delete(v:fname_in)
On VMS machines the default is to send the file to either the default or
currently specified printdevice: >
system('print' . (&printdevice == '' ? '' : ' /queue=' .
&printdevice) . ' ' . v:fname_in) . delete(v:fname_in)
If you change this option, using a function is an easy way to avoid having to
escape all the spaces. Example: >
:set printexpr=PrintFile(v:fname_in)
:function PrintFile(fname)
: call system("ghostview " . a:fname)
: call delete(a:fname)
: return v:shell_error
:endfunc
Be aware that some print programs return control before they have read the
file. If you delete the file too soon it will not be printed. These programs
usually offer an option to have them remove the file when printing is done.
*E365*
If evaluating the expression fails or it results in a non-zero number, you get
an error message. In that case Vim will delete the file. In the default
value for non-MS-Windows a trick is used: Adding "v:shell_error" will result
in a non-zero number when the system() call fails.
This option cannot be set from a |modeline| or in the |sandbox|, for security
reasons.
*pfn-option* *E613*
'printfont' 'pfn' string (default "courier")
global
This is the name of the font that will be used for the |:hardcopy| command's
output. It has the same format as the 'guifont' option, except that only one
font may be named, and the special "guifont=*" syntax is not available.
In the Win32 GUI version this specifies a font name with its extra attributes,
as with the 'guifont' option.
For other systems, only ":h11" is recognized, where "11" is the point size of
the font. When omitted, the point size is 10.
*pheader-option*
'printheader' 'pheader' string (default "%<%f%h%m%=Page %N")
global
This defines the format of the header produced in |:hardcopy| output. The
option is defined in the same way as the 'statusline' option. If Vim has not
been compiled with the |+statusline| feature, this option has no effect and a
simple default header is used, which shows the page number.
*pmbcs-option*
'printmbcharset' 'pmbcs' string (default "")
global
Sets the CJK character set to be used when generating CJK output from
|:hardcopy|. The following predefined values are currently recognised by VIM:
Value Description ~
Chinese GB_2312-80
(Simplified) GBT_12345-90
MAC Apple Mac Simplified Chinese
GBT-90_MAC GB/T 12345-90 Apple Mac Simplified
Chinese
GBK GBK (GB 13000.1-93)
ISO10646 ISO 10646-1:1993
Chinese CNS_1993 CNS 11643-1993, Planes 1 & 2
(Traditional) BIG5
ETEN Big5 with ETen extensions
ISO10646 ISO 10646-1:1993
Japanese JIS_C_1978
JIS_X_1983
JIS_X_1990
MSWINDOWS Win3.1/95J (JIS X 1997 + NEC +
IBM extensions)
KANJITALK6 Apple Mac KanjiTalk V6.x
KANJITALK7 Apple Mac KanjiTalk V7.x
Korean KS_X_1992
MAC Apple Macintosh Korean
MSWINDOWS KS X 1992 with MS extensions
ISO10646 ISO 10646-1:1993
Only certain combinations of the above values and 'printencoding' are
possible. The following tables show the valid combinations:
euc-cn gbk ucs-2 utf-8 ~
Chinese GB_2312-80 x
(Simplified) GBT_12345-90 x
MAC x
GBT-90_MAC x
GBK x
ISO10646 x x
euc-tw big5 ucs-2 utf-8 ~
Chinese CNS_1993 x
(Traditional) BIG5 x
ETEN x
ISO10646 x x
euc-jp sjis ucs-2 utf-8 ~
Japanese JIS_C_1978 x x
JIS_X_1983 x x
JIS_X_1990 x x x
MSWINDOWS x
KANJITALK6 x
KANJITALK7 x
euc-kr cp949 ucs-2 utf-8 ~
Korean KS_X_1992 x
MAC x
MSWINDOWS x
ISO10646 x x
To set up the correct encoding and character set for printing some
Japanese text you would do the following; >
:set printencoding=euc-jp
:set printmbcharset=JIS_X_1983
If 'printmbcharset' is not one of the above values then it is assumed to
specify a custom multi-byte character set and no check will be made that it is
compatible with the value for 'printencoding'. VIM will look for a file
defining the character set in the "print" directory in 'runtimepath'.
*pmbfn-option*
'printmbfont' 'pmbfn' string (default "")
global
This is a comma-separated list of fields for font names to be used when
generating CJK output from |:hardcopy|. Each font name has to be preceded
with a letter indicating the style the font is to be used for as follows:
r:{font-name} font to use for normal characters
b:{font-name} font to use for bold characters
i:{font-name} font to use for italic characters
o:{font-name} font to use for bold-italic characters
A field with the r: prefix must be specified when doing CJK printing. The
other fontname specifiers are optional. If a specifier is missing then
another font will be used as follows:
if b: is missing, then use r:
if i: is missing, then use r:
if o: is missing, then use i:
Some CJK fonts do not contain characters for codes in the ASCII code range.
Also, some characters in the CJK ASCII code ranges differ in a few code points
from traditional ASCII characters. There are two additional fields to control
printing of characters in the ASCII code range.
c:yes Use Courier font for characters in the ASCII
c:no (default) code range.
a:yes Use ASCII character set for codes in the ASCII
a:no (default) code range.
The following is an example of specifying two multi-byte fonts, one for normal
and italic printing and one for bold and bold-italic printing, and using
Courier to print codes in the ASCII code range but using the national
character set: >
:set printmbfont=r:WadaMin-Regular,b:WadaMin-Bold,c:yes
<
*popt-option*
'printoptions' 'popt' string (default "")
global
This is a comma-separated list of items that control the format of the output
of |:hardcopy|:
left:{spec} left margin (default: 10pc)
right:{spec} right margin (default: 5pc)
top:{spec} top margin (default: 5pc)
bottom:{spec} bottom margin (default: 5pc)
{spec} is a number followed by "in" for inches, "pt"
for points (1 point is 1/72 of an inch), "mm" for
millimeters or "pc" for a percentage of the media
size.
Weird example:
left:2in,top:30pt,right:16mm,bottom:3pc
If the unit is not recognized there is no error and
the default value is used.
header:{nr} Number of lines to reserve for the header.
Only the first line is actually filled, thus when {nr}
is 2 there is one empty line. The header is formatted
according to 'printheader'.
header:0 Do not print a header.
header:2 (default) Use two lines for the header
syntax:n Do not use syntax highlighting. This is faster and
thus useful when printing large files.
syntax:y Do syntax highlighting.
syntax:a (default) Use syntax highlighting if the printer appears to be
able to print color or grey.
number:y Include line numbers in the printed output.
number:n (default) No line numbers.
wrap:y (default) Wrap long lines.
wrap:n Truncate long lines.
duplex:off Print on one side.
duplex:long (default) Print on both sides (when possible), bind on long
side.
duplex:short Print on both sides (when possible), bind on short
side.
collate:y (default) Collating: 1 2 3, 1 2 3, 1 2 3
collate:n No collating: 1 1 1, 2 2 2, 3 3 3
jobsplit:n (default) Do all copies in one print job
jobsplit:y Do each copy as a separate print job. Useful when
doing N-up postprocessing.
portrait:y (default) Orientation is portrait.
portrait:n Orientation is landscape.
*a4* *letter*
paper:A4 (default) Paper size: A4
paper:{name} Paper size from this table:
{name} size in cm size in inch ~
10x14 25.4 x 35.57 10 x 14
A3 29.7 x 42 11.69 x 16.54
A4 21 x 29.7 8.27 x 11.69
A5 14.8 x 21 5.83 x 8.27
B4 25 x 35.3 10.12 x 14.33
B5 17.6 x 25 7.17 x 10.12
executive 18.42 x 26.67 7.25 x 10.5
folio 21 x 33 8.27 x 13
ledger 43.13 x 27.96 17 x 11
legal 21.59 x 35.57 8.5 x 14
letter 21.59 x 27.96 8.5 x 11
quarto 21.59 x 27.5 8.5 x 10.83
statement 13.97 x 21.59 5.5 x 8.5
tabloid 27.96 x 43.13 11 x 17
formfeed:n (default) Treat form feed characters (0x0c) as a normal print
character.
formfeed:y When a form feed character is encountered, continue
printing of the current line at the beginning of the
first line on a new page.
The item indicated with (default) is used when the item is not present. The
values are not always used, especially when using a dialog to select the
printer and options.
Example: >
:set printoptions=paper:letter,duplex:off
==============================================================================
3. PostScript Printing *postscript-printing*
*E455* *E456* *E457* *E624*
Provided you have enough disk space there should be no problems generating a
PostScript file. You need to have the runtime files correctly installed (if
you can find the help files, they probably are).
There are currently a number of limitations with PostScript printing:
- 'printfont' - The font name is ignored (the Courier family is always used -
it should be available on all PostScript printers) but the font size is
used.
- 'printoptions' - The duplex setting is used when generating PostScript
output, but it is up to the printer to take notice of the setting. If the
printer does not support duplex printing then it should be silently ignored.
Some printers, however, don't print at all.
- 8-bit support - While a number of 8-bit print character encodings are
supported it is possible that some characters will not print. Whether a
character will print depends on the font in the printer knowing the
character. Missing characters will be replaced with an upside down question
mark, or a space if that character is also not known by the font. It may be
possible to get all the characters in an encoding to print by installing a
new version of the Courier font family.
- Multi-byte support - Currently VIM will try to convert multi-byte characters
to the 8-bit encoding specified by 'printencoding' (or latin1 if it is
empty). Any characters that are not successfully converted are shown as
unknown characters. Printing will fail if VIM cannot convert the multi-byte
to the 8-bit encoding.
==============================================================================
4. Custom 8-bit Print Character Encodings *postscript-print-encoding*
*E618* *E619*
To use your own print character encoding when printing 8-bit character data
you need to define your own PostScript font encoding vector. Details on how
to to define a font encoding vector is beyond the scope of this help file, but
you can find details in the PostScript Language Reference Manual, 3rd Edition,
published by Addison-Wesley and available in PDF form at
http://www.adobe.com/. The following describes what you need to do for VIM to
locate and use your print character encoding.
i. Decide on a unique name for your encoding vector, one that does not clash
with any of the recognized or standard encoding names that VIM uses (see
|encoding-names| for a list), and that no one else is likely to use.
ii. Copy $VIMRUNTIME/print/latin1.ps to the print subdirectory in your
'runtimepath' and rename it with your unique name.
iii. Edit your renamed copy of latin1.ps, replacing all occurrences of latin1
with your unique name (don't forget the line starting %%Title:), and
modify the array of glyph names to define your new encoding vector. The
array must have exactly 256 entries or you will not be able to print!
iv. Within VIM, set 'printencoding' to your unique encoding name and then
print your file. VIM will now use your custom print character encoding.
VIM will report an error with the resource file if you change the order or
content of the first 3 lines, other than the name of the encoding on the line
starting %%Title: or the version number on the line starting %%Version:.
[Technical explanation for those that know PostScript - VIM looks for a file
with the same name as the encoding it will use when printing. The file
defines a new PostScript Encoding resource called /VIM-name, where name is the
print character encoding VIM will use.]
==============================================================================
5. PostScript CJK Printing *postscript-cjk-printing*
*E673* *E674* *E675*
VIM supports printing of Chinese, Japanese, and Korean files. Setting up VIM
to correctly print CJK files requires setting up a few more options.
Each of these countries has many standard character sets and encodings which
require that both be specified when printing. In addition, CJK fonts normally
do not have the concept of italic glyphs and use different weight or stroke
style to achieve emphasis when printing. This in turn requires a different
approach to specifying fonts to use when printing.
The encoding and character set are specified with the 'printencoding' and
'printmbcharset' options. If 'printencoding' is not specified then 'encoding'
is used as normal. If 'printencoding' is specified then characters will be
translated to this encoding for printing. You should ensure that the encoding
is compatible with the character set needed for the file contents or some
characters may not appear when printed.
The fonts to use for CJK printing are specified with 'printmbfont'. This
option allows you to specify different fonts to use when printing characters
which are syntax highlighted with the font styles normal, italic, bold and
bold-italic.
No CJK fonts are supplied with VIM. There are some free Korean, Japanese, and
Traditional Chinese fonts available at:
http://examples.oreilly.com/cjkvinfo/adobe/samples/
You can find descriptions of the various fonts in the read me file at
http://examples.oreilly.com/cjkvinfo/adobe/00README
Please read your printer documentation on how to install new fonts.
CJK fonts can be large containing several thousand glyphs, and it is not
uncommon to find that they only contain a subset of a national standard. It
is not unusual to find the fonts to not include characters for codes in the
ASCII code range. If you find half-width Roman characters are not appearing
in your printout then you should configure VIM to use the Courier font the
half-width ASCII characters with 'printmbfont'. If your font does not include
other characters then you will need to find another font that does.
Another issue with ASCII characters, is that the various national character
sets specify a couple of different glyphs in the ASCII code range. If you
print ASCII text using the national character set you may see some unexpected
characters. If you want true ASCII code printing then you need to configure
VIM to output ASCII characters for the ASCII code range with 'printmbfont'.
It is possible to define your own multi-byte character set although this
should not be attempted lightly. A discussion on the process if beyond the
scope of these help files. You can find details on CMap (character map) files
in the document 'Adobe CMap and CIDFont Files Specification, Version 1.0',
available from http://www.adobe.com as a PDF file.
==============================================================================
6. PostScript Printing Troubleshooting *postscript-print-trouble*
*E621*
Usually the only sign of a problem when printing with PostScript is that your
printout does not appear. If you are lucky you may get a printed page that
tells you the PostScript operator that generated the error that prevented the
print job completing.
There are a number of possible causes as to why the printing may have failed:
- Wrong version of the prolog resource file. The prolog resource file
contains some PostScript that VIM needs to be able to print. Each version
of VIM needs one particular version. Make sure you have correctly installed
the runtime files, and don't have any old versions of a file called prolog
in the print directory in your 'runtimepath' directory.
- Paper size. Some PostScript printers will abort printing a file if they do
not support the requested paper size. By default VIM uses A4 paper. Find
out what size paper your printer normally uses and set the appropriate paper
size with 'printoptions'. If you cannot find the name of the paper used,
measure a sheet and compare it with the table of supported paper sizes listed
for 'printoptions', using the paper that is closest in both width AND height.
Note: The dimensions of actual paper may vary slightly from the ones listed.
If there is no paper listed close enough, then you may want to try psresize
from PSUtils, discussed below.
- Two-sided printing (duplex). Normally a PostScript printer that does not
support two-sided printing will ignore any request to do it. However, some
printers may abort the job altogether. Try printing with duplex turned off.
Note: Duplex prints can be achieved manually using PS utils - see below.
- Collated printing. As with Duplex printing, most PostScript printers that
do not support collating printouts will ignore a request to do so. Some may
not. Try printing with collation turned off.
- Syntax highlighting. Some print management code may prevent the generated
PostScript file from being printed on a black and white printer when syntax
highlighting is turned on, even if solid black is the only color used. Try
printing with syntax highlighting turned off.
A safe printoptions setting to try is: >
:set printoptions=paper:A4,duplex:off,collate:n,syntax:n
Replace "A4" with the paper size that best matches your printer paper.
==============================================================================
7. PostScript Utilities *postscript-print-util*
7.1 Ghostscript
Ghostscript is a PostScript and PDF interpreter that can be used to display
and print on non-PostScript printers PostScript and PDF files. It can also
generate PDF files from PostScript.
Ghostscript will run on a wide variety of platforms.
There are three available versions:
- AFPL Ghostscript (formerly Aladdin Ghostscript) which is free for
non-commercial use. It can be obtained from:
http://www.cs.wisc.edu/~ghost/
- GNU Ghostscript which is available under the GNU General Public License. It
can be obtained from:
ftp://mirror.cs.wisc.edu/pub/mirrors/ghost/gnu/
- A commercial version for inclusion in commercial products.
Additional information on Ghostscript can also be found at:
http://www.ghostscript.com/
Support for a number of non PostScript printers is provided in the
distribution as standard, but if you cannot find support for your printer
check the Ghostscript site for other printers not included by default.
7.2 Ghostscript Previewers.
The interface to Ghostscript is very primitive so a number of graphical front
ends have been created. These allow easier PostScript file selection,
previewing at different zoom levels, and printing. Check supplied
documentation for full details.
X11
- Ghostview. Obtainable from:
http://www.cs.wisc.edu/~ghost/gv/
- gv. Derived from Ghostview. Obtainable from:
http://wwwthep.physik.uni-mainz.de/~plass/gv/
Copies (possibly not the most recent) can be found at:
http://www.cs.wisc.edu/~ghost/gv/
OpenVMS
- Is apparently supported in the main code now (untested). See:
http://wwwthep.physik.uni-mainz.de/~plass/gv/
Windows and OS/2
- GSview. Obtainable from:
http://www.cs.wisc.edu/~ghost/gsview/
DOS
- ps_view. Obtainable from:
ftp://ftp.pg.gda.pl/pub/TeX/support/ps_view/
ftp://ftp.dante.de/tex-archive/support/ps_view/
Linux
- GSview. Linux version of the popular Windows and OS/2 previewer.
Obtainable from:
http://www.cs.wisc.edu/~ghost/gsview/
- BMV. Different from Ghostview and gv in that it doesn't use X but svgalib.
Obtainable from:
ftp://sunsite.unc.edu/pub/Linux/apps/graphics/viewers/svga/bmv-1.2.tgz
7.3 PSUtils
PSUtils is a collection of utility programs for manipulating PostScript
documents. Binary distributions are available for many platforms, as well as
the full source. PSUtils can be found at:
http://knackered.org/angus/psutils
The utilities of interest include:
- psnup. Convert PS files for N-up printing.
- psselect. Select page range and order of printing.
- psresize. Change the page size.
- psbook. Reorder and lay out pages ready for making a book.
The output of one program can be used as the input to the next, allowing for
complex print document creation.
N-UP PRINTING
The psnup utility takes an existing PostScript file generated from VIM and
convert it to an n-up version. The simplest way to create a 2-up printout is
to first create a PostScript file with: >
:hardcopy > test.ps
Then on your command line execute: >
psnup -n 2 test.ps final.ps
Note: You may get warnings from some Ghostscript previewers for files produced
by psnup - these may safely be ignored.
Finally print the file final.ps to your PostScript printer with your
platform's print command. (You will need to delete the two PostScript files
afterwards yourself.) 'printexpr' could be modified to perform this extra
step before printing.
ALTERNATE DUPLEX PRINTING
It is possible to achieve a poor man's version of duplex printing using the PS
utility psselect. This utility has options -e and -o for printing just the
even or odd pages of a PS file respectively.
First generate a PS file with the 'hardcopy' command, then generate a new
files with all the odd and even numbered pages with: >
psselect -o test.ps odd.ps
psselect -e test.ps even.ps
Next print odd.ps with your platform's normal print command. Then take the
print output, turn it over and place it back in the paper feeder. Now print
even.ps with your platform's print command. All the even pages should now
appear on the back of the odd pages.
There a couple of points to bear in mind:
1. Position of the first page. If the first page is on top of the printout
when printing the odd pages then you need to reverse the order that the odd
pages are printed. This can be done with the -r option to psselect. This
will ensure page 2 is printed on the back of page 1.
Note: it is better to reverse the odd numbered pages rather than the even
numbered in case there are an odd number of pages in the original PS file.
2. Paper flipping. When turning over the paper with the odd pages printed on
them you may have to either flip them horizontally (along the long edge) or
vertically (along the short edge), as well as possibly rotating them 180
degrees. All this depends on the printer - it will be more obvious for
desktop ink jets than for small office laser printers where the paper path
is hidden from view.
==============================================================================
8. Formfeed Characters *printing-formfeed*
By default VIM does not do any special processing of |formfeed| control
characters. Setting the 'printoptions' formfeed item will make VIM recognize
formfeed characters and continue printing the current line at the beginning
of the first line on a new page. The use of formfeed characters provides
rudimentary print control but there are certain things to be aware of.
VIM will always start printing a line (including a line number if enabled)
containing a formfeed character, even if it is the first character on the
line. This means if a line starting with a formfeed character is the first
line of a page then VIM will print a blank page.
Since the line number is printed at the start of printing the line containing
the formfeed character, the remainder of the line printed on the new page
will not have a line number printed for it (in the same way as the wrapped
lines of a long line when wrap in 'printoptions' is enabled).
If the formfeed character is the last character on a line, then printing will
continue on the second line of the new page, not the first. This is due to
VIM processing the end of the line after the formfeed character and moving
down a line to continue printing.
Due to the points made above it is recommended that when formfeed character
processing is enabled, printing of line numbers is disabled, and that form
feed characters are not the last character on a line. Even then you may need
to adjust the number of lines before a formfeed character to prevent
accidental blank pages.
==============================================================================
vim:tw=78:ts=8:ft=help:norl:

4
runtime/doc/quickref.txt
View File

@ -1,4 +1,4 @@
*quickref.txt* For Vim version 7.0aa. Last change: 2004 Jul 04 *quickref.txt* For Vim version 7.0aa. Last change: 2004 Jul 05
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
@ -782,6 +782,8 @@ Short explanation of each option: *option-list*
|'printexpr'| |'pexpr'| expression used to print PostScript for :hardcopy |'printexpr'| |'pexpr'| expression used to print PostScript for :hardcopy
|'printfont'| |'pfn'| name of the font to be used for :hardcopy |'printfont'| |'pfn'| name of the font to be used for :hardcopy
|'printheader'| |'pheader'| format of the header used for :hardcopy |'printheader'| |'pheader'| format of the header used for :hardcopy
|'printmbcharset'| |'pmbcs'| CJK character set to be used for :hardcopy
|'printmbfont'| |'pmbfn'| font names to be used for CJK output of :hardcopy
|'printoptions'| |'popt'| controls the format of :hardcopy output |'printoptions'| |'popt'| controls the format of :hardcopy output
|'quoteescape'| |'qe'| escape characters used in a string |'quoteescape'| |'qe'| escape characters used in a string
|'readonly'| |'ro'| disallow writing the buffer |'readonly'| |'ro'| disallow writing the buffer

11
runtime/doc/syntax.txt
View File

@ -1,4 +1,4 @@
*syntax.txt* For Vim version 7.0aa. Last change: 2004 Jul 01 *syntax.txt* For Vim version 7.0aa. Last change: 2004 Jul 06
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
@ -817,6 +817,15 @@ Select the version you want with the following line: >
If this variable is not defined it defaults to a value of 2 to support If this variable is not defined it defaults to a value of 2 to support
Windows 2000. Windows 2000.
A second option covers whether *.btm files should be detected as type
"dosbatch" (MS-DOS batch files) or type "btm" (4DOS batch files). The latter
is used by default. You may select the former with the following line: >
:let g:dosbatch_syntax_for_btm = 1
If this variable is undefined or zero, btm syntax is selected.
DTD *dtd.vim* *dtd-syntax* DTD *dtd.vim* *dtd-syntax*

70
runtime/doc/tags
View File

@ -615,6 +615,8 @@ $VIMRUNTIME starting.txt /*$VIMRUNTIME*
'pheader' options.txt /*'pheader'* 'pheader' options.txt /*'pheader'*
'pi' options.txt /*'pi'* 'pi' options.txt /*'pi'*
'pm' options.txt /*'pm'* 'pm' options.txt /*'pm'*
'pmbcs' options.txt /*'pmbcs'*
'pmbfn' options.txt /*'pmbfn'*
'popt' options.txt /*'popt'* 'popt' options.txt /*'popt'*
'preserveindent' options.txt /*'preserveindent'* 'preserveindent' options.txt /*'preserveindent'*
'previewheight' options.txt /*'previewheight'* 'previewheight' options.txt /*'previewheight'*
@ -624,6 +626,8 @@ $VIMRUNTIME starting.txt /*$VIMRUNTIME*
'printexpr' options.txt /*'printexpr'* 'printexpr' options.txt /*'printexpr'*
'printfont' options.txt /*'printfont'* 'printfont' options.txt /*'printfont'*
'printheader' options.txt /*'printheader'* 'printheader' options.txt /*'printheader'*
'printmbcharset' options.txt /*'printmbcharset'*
'printmbfont' options.txt /*'printmbfont'*
'printoptions' options.txt /*'printoptions'* 'printoptions' options.txt /*'printoptions'*
'prompt' vi_diff.txt /*'prompt'* 'prompt' vi_diff.txt /*'prompt'*
'pt' options.txt /*'pt'* 'pt' options.txt /*'pt'*
@ -1923,8 +1927,8 @@ $VIMRUNTIME starting.txt /*$VIMRUNTIME*
:gv gui_x11.txt /*:gv* :gv gui_x11.txt /*:gv*
:gvim gui_x11.txt /*:gvim* :gvim gui_x11.txt /*:gvim*
:h various.txt /*:h* :h various.txt /*:h*
:ha various.txt /*:ha* :ha print.txt /*:ha*
:hardcopy various.txt /*:hardcopy* :hardcopy print.txt /*:hardcopy*
:help various.txt /*:help* :help various.txt /*:help*
:helpf various.txt /*:helpf* :helpf various.txt /*:helpf*
:helpfind various.txt /*:helpfind* :helpfind various.txt /*:helpfind*
@ -3046,8 +3050,8 @@ E233 gui.txt /*E233*
E234 options.txt /*E234* E234 options.txt /*E234*
E235 options.txt /*E235* E235 options.txt /*E235*
E236 options.txt /*E236* E236 options.txt /*E236*
E237 various.txt /*E237* E237 print.txt /*E237*
E238 various.txt /*E238* E238 print.txt /*E238*
E239 sign.txt /*E239* E239 sign.txt /*E239*
E24 message.txt /*E24* E24 message.txt /*E24*
E240 remote.txt /*E240* E240 remote.txt /*E240*
@ -3140,7 +3144,7 @@ E320 message.txt /*E320*
E321 editing.txt /*E321* E321 editing.txt /*E321*
E322 message.txt /*E322* E322 message.txt /*E322*
E323 message.txt /*E323* E323 message.txt /*E323*
E324 various.txt /*E324* E324 print.txt /*E324*
E325 usr_11.txt /*E325* E325 usr_11.txt /*E325*
E326 recover.txt /*E326* E326 recover.txt /*E326*
E327 gui.txt /*E327* E327 gui.txt /*E327*
@ -3185,7 +3189,7 @@ E361 pattern.txt /*E361*
E362 term.txt /*E362* E362 term.txt /*E362*
E363 pattern.txt /*E363* E363 pattern.txt /*E363*
E364 eval.txt /*E364* E364 eval.txt /*E364*
E365 options.txt /*E365* E365 print.txt /*E365*
E366 options.txt /*E366* E366 options.txt /*E366*
E367 autocmd.txt /*E367* E367 autocmd.txt /*E367*
E368 eval.txt /*E368* E368 eval.txt /*E368*
@ -3284,9 +3288,9 @@ E451 os_msdos.txt /*E451*
E452 os_msdos.txt /*E452* E452 os_msdos.txt /*E452*
E453 os_msdos.txt /*E453* E453 os_msdos.txt /*E453*
E454 os_msdos.txt /*E454* E454 os_msdos.txt /*E454*
E455 various.txt /*E455* E455 print.txt /*E455*
E456 various.txt /*E456* E456 print.txt /*E456*
E457 various.txt /*E457* E457 print.txt /*E457*
E458 message.txt /*E458* E458 message.txt /*E458*
E459 message.txt /*E459* E459 message.txt /*E459*
E46 message.txt /*E46* E46 message.txt /*E46*
@ -3454,19 +3458,19 @@ E61 pattern.txt /*E61*
E610 options.txt /*E610* E610 options.txt /*E610*
E611 options.txt /*E611* E611 options.txt /*E611*
E612 sign.txt /*E612* E612 sign.txt /*E612*
E613 options.txt /*E613* E613 print.txt /*E613*
E614 editing.txt /*E614* E614 editing.txt /*E614*
E615 editing.txt /*E615* E615 editing.txt /*E615*
E616 editing.txt /*E616* E616 editing.txt /*E616*
E617 options.txt /*E617* E617 options.txt /*E617*
E618 various.txt /*E618* E618 print.txt /*E618*
E619 various.txt /*E619* E619 print.txt /*E619*
E62 pattern.txt /*E62* E62 pattern.txt /*E62*
E620 options.txt /*E620* E620 print.txt /*E620*
E621 various.txt /*E621* E621 print.txt /*E621*
E622 if_cscop.txt /*E622* E622 if_cscop.txt /*E622*
E623 if_cscop.txt /*E623* E623 if_cscop.txt /*E623*
E624 various.txt /*E624* E624 print.txt /*E624*
E625 if_cscop.txt /*E625* E625 if_cscop.txt /*E625*
E626 if_cscop.txt /*E626* E626 if_cscop.txt /*E626*
E627 netbeans.txt /*E627* E627 netbeans.txt /*E627*
@ -3520,6 +3524,9 @@ E67 syntax.txt /*E67*
E670 various.txt /*E670* E670 various.txt /*E670*
E671 starting.txt /*E671* E671 starting.txt /*E671*
E672 starting.txt /*E672* E672 starting.txt /*E672*
E673 print.txt /*E673*
E674 print.txt /*E674*
E675 print.txt /*E675*
E68 pattern.txt /*E68* E68 pattern.txt /*E68*
E69 pattern.txt /*E69* E69 pattern.txt /*E69*
E70 pattern.txt /*E70* E70 pattern.txt /*E70*
@ -3882,7 +3889,7 @@ a insert.txt /*a*
a' motion.txt /*a'* a' motion.txt /*a'*
a( motion.txt /*a(* a( motion.txt /*a(*
a) motion.txt /*a)* a) motion.txt /*a)*
a4 options.txt /*a4* a4 print.txt /*a4*
a:firstline eval.txt /*a:firstline* a:firstline eval.txt /*a:firstline*
a:lastline eval.txt /*a:lastline* a:lastline eval.txt /*a:lastline*
a:var eval.txt /*a:var* a:var eval.txt /*a:var*
@ -5205,7 +5212,7 @@ last_buffer_nr() eval.txt /*last_buffer_nr()*
lc_time-variable eval.txt /*lc_time-variable* lc_time-variable eval.txt /*lc_time-variable*
left-right-motions motion.txt /*left-right-motions* left-right-motions motion.txt /*left-right-motions*
less various.txt /*less* less various.txt /*less*
letter options.txt /*letter* letter print.txt /*letter*
lex-syntax syntax.txt /*lex-syntax* lex-syntax syntax.txt /*lex-syntax*
lex.vim syntax.txt /*lex.vim* lex.vim syntax.txt /*lex.vim*
lhaskell.vim syntax.txt /*lhaskell.vim* lhaskell.vim syntax.txt /*lhaskell.vim*
@ -5462,6 +5469,8 @@ new-5 version5.txt /*new-5*
new-6 version6.txt /*new-6* new-6 version6.txt /*new-6*
new-7 version7.txt /*new-7* new-7 version7.txt /*new-7*
new-GTK-GUI version5.txt /*new-GTK-GUI* new-GTK-GUI version5.txt /*new-GTK-GUI*
new-KDE version7.txt /*new-KDE*
new-MzScheme version7.txt /*new-MzScheme*
new-Select-mode version5.txt /*new-Select-mode* new-Select-mode version5.txt /*new-Select-mode*
new-View version6.txt /*new-View* new-View version6.txt /*new-View*
new-argument-list version6.txt /*new-argument-list* new-argument-list version6.txt /*new-argument-list*
@ -5490,7 +5499,6 @@ new-highlighting version5.txt /*new-highlighting*
new-indent-flex version6.txt /*new-indent-flex* new-indent-flex version6.txt /*new-indent-flex*
new-items-6 version6.txt /*new-items-6* new-items-6 version6.txt /*new-items-6*
new-items-7 version7.txt /*new-items-7* new-items-7 version7.txt /*new-items-7*
new-kde version7.txt /*new-kde*
new-line-continuation version5.txt /*new-line-continuation* new-line-continuation version5.txt /*new-line-continuation*
new-multi-byte version5.txt /*new-multi-byte* new-multi-byte version5.txt /*new-multi-byte*
new-multi-lang version6.txt /*new-multi-lang* new-multi-lang version6.txt /*new-multi-lang*
@ -5500,6 +5508,7 @@ new-options-5.2 version5.txt /*new-options-5.2*
new-options-5.4 version5.txt /*new-options-5.4* new-options-5.4 version5.txt /*new-options-5.4*
new-perl-python version5.txt /*new-perl-python* new-perl-python version5.txt /*new-perl-python*
new-plugins version6.txt /*new-plugins* new-plugins version6.txt /*new-plugins*
new-print-multi-byte version7.txt /*new-print-multi-byte*
new-printing version6.txt /*new-printing* new-printing version6.txt /*new-printing*
new-runtime-dir version5.txt /*new-runtime-dir* new-runtime-dir version5.txt /*new-runtime-dir*
new-script version5.txt /*new-script* new-script version5.txt /*new-script*
@ -5589,6 +5598,8 @@ pattern-multi-items pattern.txt /*pattern-multi-items*
pattern-overview pattern.txt /*pattern-overview* pattern-overview pattern.txt /*pattern-overview*
pattern-searches pattern.txt /*pattern-searches* pattern-searches pattern.txt /*pattern-searches*
pattern.txt pattern.txt /*pattern.txt* pattern.txt pattern.txt /*pattern.txt*
pdev-option print.txt /*pdev-option*
penc-option print.txt /*penc-option*
perl if_perl.txt /*perl* perl if_perl.txt /*perl*
perl-Append if_perl.txt /*perl-Append* perl-Append if_perl.txt /*perl-Append*
perl-Buffer if_perl.txt /*perl-Buffer* perl-Buffer if_perl.txt /*perl-Buffer*
@ -5613,6 +5624,9 @@ perl-patterns pattern.txt /*perl-patterns*
perl-syntax syntax.txt /*perl-syntax* perl-syntax syntax.txt /*perl-syntax*
perl-using if_perl.txt /*perl-using* perl-using if_perl.txt /*perl-using*
perl.vim syntax.txt /*perl.vim* perl.vim syntax.txt /*perl.vim*
pexpr-option print.txt /*pexpr-option*
pfn-option print.txt /*pfn-option*
pheader-option print.txt /*pheader-option*
photon-fonts os_qnx.txt /*photon-fonts* photon-fonts os_qnx.txt /*photon-fonts*
photon-gui os_qnx.txt /*photon-gui* photon-gui os_qnx.txt /*photon-gui*
php-syntax syntax.txt /*php-syntax* php-syntax syntax.txt /*php-syntax*
@ -5628,16 +5642,20 @@ plugin usr_05.txt /*plugin*
plugin-details filetype.txt /*plugin-details* plugin-details filetype.txt /*plugin-details*
plugin-filetype usr_41.txt /*plugin-filetype* plugin-filetype usr_41.txt /*plugin-filetype*
plugin-special usr_41.txt /*plugin-special* plugin-special usr_41.txt /*plugin-special*
pmbcs-option print.txt /*pmbcs-option*
pmbfn-option print.txt /*pmbfn-option*
popt-option print.txt /*popt-option*
popup-menu gui.txt /*popup-menu* popup-menu gui.txt /*popup-menu*
popup-menu-added version5.txt /*popup-menu-added* popup-menu-added version5.txt /*popup-menu-added*
ports-5.2 version5.txt /*ports-5.2* ports-5.2 version5.txt /*ports-5.2*
ports-6 version6.txt /*ports-6* ports-6 version6.txt /*ports-6*
postscr-syntax syntax.txt /*postscr-syntax* postscr-syntax syntax.txt /*postscr-syntax*
postscr.vim syntax.txt /*postscr.vim* postscr.vim syntax.txt /*postscr.vim*
postscript-print-encoding various.txt /*postscript-print-encoding* postscript-cjk-printing print.txt /*postscript-cjk-printing*
postscript-print-trouble various.txt /*postscript-print-trouble* postscript-print-encoding print.txt /*postscript-print-encoding*
postscript-print-util various.txt /*postscript-print-util* postscript-print-trouble print.txt /*postscript-print-trouble*
postscript-printing various.txt /*postscript-printing* postscript-print-util print.txt /*postscript-print-util*
postscript-printing print.txt /*postscript-printing*
ppwiz-syntax syntax.txt /*ppwiz-syntax* ppwiz-syntax syntax.txt /*ppwiz-syntax*
ppwiz.vim syntax.txt /*ppwiz.vim* ppwiz.vim syntax.txt /*ppwiz.vim*
press-enter message.txt /*press-enter* press-enter message.txt /*press-enter*
@ -5645,9 +5663,12 @@ press-return message.txt /*press-return*
prevcount-variable eval.txt /*prevcount-variable* prevcount-variable eval.txt /*prevcount-variable*
preview-window windows.txt /*preview-window* preview-window windows.txt /*preview-window*
prevnonblank() eval.txt /*prevnonblank()* prevnonblank() eval.txt /*prevnonblank()*
print-intro print.txt /*print-intro*
print-options print.txt /*print-options*
print.txt print.txt /*print.txt*
printcap-syntax syntax.txt /*printcap-syntax* printcap-syntax syntax.txt /*printcap-syntax*
printing various.txt /*printing* printing print.txt /*printing*
printing-formfeed various.txt /*printing-formfeed* printing-formfeed print.txt /*printing-formfeed*
progname-variable eval.txt /*progname-variable* progname-variable eval.txt /*progname-variable*
progress-syntax syntax.txt /*progress-syntax* progress-syntax syntax.txt /*progress-syntax*
progress.vim syntax.txt /*progress.vim* progress.vim syntax.txt /*progress.vim*
@ -6247,6 +6268,7 @@ toggle-revins version4.txt /*toggle-revins*
tolower() eval.txt /*tolower()* tolower() eval.txt /*tolower()*
toolbar-icon gui.txt /*toolbar-icon* toolbar-icon gui.txt /*toolbar-icon*
toupper() eval.txt /*toupper()* toupper() eval.txt /*toupper()*
tr() eval.txt /*tr()*
trojan-horse starting.txt /*trojan-horse* trojan-horse starting.txt /*trojan-horse*
try-conditionals eval.txt /*try-conditionals* try-conditionals eval.txt /*try-conditionals*
try-echoerr eval.txt /*try-echoerr* try-echoerr eval.txt /*try-echoerr*

153
runtime/doc/todo.txt
View File

@ -1,4 +1,4 @@
*todo.txt* For Vim version 7.0aa. Last change: 2004 Jul 05 *todo.txt* For Vim version 7.0aa. Last change: 2004 Jul 09
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
@ -30,78 +30,21 @@ be worked on, but only if you sponsor Vim development. See |sponsor|.
*known-bugs* *known-bugs*
-------------------- Known bugs and current work ----------------------- -------------------- Known bugs and current work -----------------------
:syn sync ccomment asdf gives a warning without a line number.
@: doesn't work if cmdline has a ^M, requires using ^V. (Tim Chase)
Mac: Compiling --enable-gui=athena doesn't work. Try to fix without disabling
Carbon. Otherwise adjust configure to disable darwin. (raf)
Mac: "make install" doesn't install.
Make aap build script work again.
For version 7.0: For version 7.0:
- Include many PATCHES: - Include many PATCHES:
8 ":hardcopy":
- support printing multi-byte characters. Patch from Motonobu
Ichimura. New (better) patch from Mike Williams (2004 Jan 20)
Updated patch: http://www.eandem.co.uk/mrw/vim/special/index.html
7 Add patch from Wall for this one ( ~/Mail/oldmail/wall/in.00019 ):
'flipcase' variable: upper/lowercase pairs.
Insert comma's between pairs and allow a range, make it look like
'isfname'. E.g. ":set flipcase=a-zA-Z,xX,23-33:143-153". The colon to
separate the from and to part is optional.
Resp: no time now.
8 Add GTK 2.3 file dialog support. Patch by Grahame Bowland, 2004 Mar 15,
but it doesn't use "initdir" or "dflt". (will update patch)
8 Add ":n" to fnamemodify(): normalize path, remove "../" when possible.
Aric Blumer has a patch for this.
He will update the patch for 6.3.
8 Add buffer-local autocommands? Reduces overhead for autocommands that
trigger often (inserting a character, switching mode).
:au Event <buffer> do-something
E.g.:
:au BufEnter <buffer> menu enable ...
:au BufLeave <buffer> menu disable ...
Patch from Yakov Lerner, including test (2004 Jan 7).
He'll send updated patch.
Autocommands:
VimResized - When the Vim window has been resized (SIGWINCH)
patch from Yakov Lerner, 2003 July 24.
He'll write documentation and send updated patch.
7 Completion of network shares, patch by Yasuhiro Matsumoto.
Update 2004 Jun 17.
How does this work? Missing comments.
gettext() Translate a message. (Patch from Yasuhiro Matsumoto)
Update 2004 Jun 17
Missing docs. Search in 'runtimepath'?
How to get the messages into the .po files?
8 Make it possible to delete marks. Charles Campbell has a patch that
does this with the markclear() function (2004 Jan 9).
And the ":delmark" command (2004 Feb 9)
http://mysite.verizon.net/astronaut/vim/index.html#Patch
~/tmp/ptch.delmark.bz2
~/tmp/ptch.markclear
Implement setmark(markname, lnum, col [, filename]) instead?
--- responses above --
7 Make "5dd" on last-but-one-line not delete anything (Vi compatible).
Add flag in 'cpoptions' for this. When not present, "2dd" in the last
line should delete the last line. Patch from greenx 2002 Apr 11.
8 Accelerators don't work in a dialog. Include patch from Martin Dalecki
(Jan 3, tested by David Harrison). Should work with Alt-o then.
7 Use accelerators for the Motif file selection dialog. Patch from
Martin Dalecki 2002 Jan 11.
8 Add a few more command names to the menus. Patch from Jiri Brezina
(28 feb 2002).
7 ATTENTION dialog choices are more logical when "Delete it' appears
before "Quit". Patch by Robert Webb, 2004 May 3.
- Include flipcase patch: ~/vim/patches/wall.flipcase2 ? Make it work
for multi-byte characters.
- Win32: add options to print dialog. Patch from Vipin Aravind.
- Patch to add highlighting for whitespace. (Tom Schumm, 2003 Jul 5)
use the patch that keeps using HLF_8 if HLF_WS has not
been given values.
Add section in help files for these highlight groups?
8 "fg" and "bg" don't work in an xterm. Get default colors from xterm
with an ESC sequence. Ideas in: ~/vim/patches/vikas.xtermcolors .
7 Add "DefaultFG" and "DefaultBG" for the colors of the menu. (Martin
Dalecki has a patch for Motif)
- Add possibility to highlight specific columns (for Fortran). Or put a
line in between columns (e.g. for 'textwidth').
Patch to add 'hlcolumn' from Vit Stradal, 2004 May 20.
8 Add functions: 8 Add functions:
tr(expr, from, to) translate chars (Patch from Ron Aaron, Apr 8
2004)
strrep() Repeat a string (patch from Christophe Poucet, strrep() Repeat a string (patch from Christophe Poucet,
2003 Sep 12, also contains XX) 2003 Sep 12, also contains XX)
Alt: repeat(expr, count) werkt ook voor lists. Alt: repeat(expr, count) werkt ook voor lists.
@ -140,7 +83,75 @@ For version 7.0:
search() Add optional offset argument. search() Add optional offset argument.
Add 'n' flag. (patch from Nikolai Weibull Add 'n' flag. (patch from Nikolai Weibull
2003 Jan 13) 2003 Jan 13)
--- 8 Make it possible to delete marks. Charles Campbell has a patch that
does this with the markclear() function (2004 Jan 9).
And the ":delmark" command (2004 Feb 9)
http://mysite.verizon.net/astronaut/vim/index.html#Patch
~/tmp/ptch.delmark.bz2
~/tmp/ptch.markclear
Implement setmark(markname, lnum [, col [, filename]]) instead?
When "lnum" is zero delete the mark.
When "filename" has no wildcards and there is no matching buffer, add
the buffer (unlisted).
Patch for \xnn (Ciaran McCreesh) 2004 Jul 7
--- awaiting updated patch ---
7 Add patch from Wall for this one ( ~/Mail/oldmail/wall/in.00019 ):
'flipcase' variable: upper/lowercase pairs.
Insert comma's between pairs and allow a range, make it look like
'isfname'. E.g. ":set flipcase=a-zA-Z,xX,23-33:143-153". The colon to
separate the from and to part is optional.
Resp: no time now.
8 Add GTK 2.3 file dialog support. Patch by Grahame Bowland, 2004 Mar 15,
but it doesn't use "initdir" or "dflt". (will update patch)
8 Add ":n" to fnamemodify(): normalize path, remove "../" when possible.
Aric Blumer has a patch for this.
He will update the patch for 6.3.
8 Add buffer-local autocommands? Reduces overhead for autocommands that
trigger often (inserting a character, switching mode).
:au Event <buffer> do-something
E.g.:
:au BufEnter <buffer> menu enable ...
:au BufLeave <buffer> menu disable ...
Patch from Yakov Lerner, including test (2004 Jan 7).
He'll send updated patch.
Autocommands:
VimResized - When the Vim window has been resized (SIGWINCH)
patch from Yakov Lerner, 2003 July 24.
He'll write documentation and send updated patch.
7 Completion of network shares, patch by Yasuhiro Matsumoto.
Update 2004 Jun 17.
How does this work? Missing comments.
gettext() Translate a message. (Patch from Yasuhiro Matsumoto)
Update 2004 Jun 17
Missing docs. Search in 'runtimepath'?
How to get the messages into the .po files?
--- did not respond (yet) --
7 Make "5dd" on last-but-one-line not delete anything (Vi compatible).
Add flag in 'cpoptions' for this. When not present, "2dd" in the last
line should delete the last line. Patch from greenx 2002 Apr 11.
8 Accelerators don't work in a dialog. Include patch from Martin Dalecki
(Jan 3, tested by David Harrison). Should work with Alt-o then.
7 Use accelerators for the Motif file selection dialog. Patch from
Martin Dalecki 2002 Jan 11.
8 Add a few more command names to the menus. Patch from Jiri Brezina
(28 feb 2002).
7 ATTENTION dialog choices are more logical when "Delete it' appears
before "Quit". Patch by Robert Webb, 2004 May 3.
- Include flipcase patch: ~/vim/patches/wall.flipcase2 ? Make it work
for multi-byte characters.
- Win32: add options to print dialog. Patch from Vipin Aravind.
- Patch to add highlighting for whitespace. (Tom Schumm, 2003 Jul 5)
use the patch that keeps using HLF_8 if HLF_WS has not
been given values.
Add section in help files for these highlight groups?
8 "fg" and "bg" don't work in an xterm. Get default colors from xterm
with an ESC sequence. Ideas in: ~/vim/patches/vikas.xtermcolors .
7 Add "DefaultFG" and "DefaultBG" for the colors of the menu. (Martin
Dalecki has a patch for Motif)
- Add possibility to highlight specific columns (for Fortran). Or put a
line in between columns (e.g. for 'textwidth').
Patch to add 'hlcolumn' from Vit Stradal, 2004 May 20.
8 Add functions:
confirm() add "flags" argument, with 'v' for vertical confirm() add "flags" argument, with 'v' for vertical
layout and 'c' for console dialog. (Haegg) layout and 'c' for console dialog. (Haegg)
Flemming Madsen has a patch for the 'c' flag Flemming Madsen has a patch for the 'c' flag

368
runtime/doc/various.txt
View File

@ -1,4 +1,4 @@
*various.txt* For Vim version 7.0aa. Last change: 2004 Jun 18 *various.txt* For Vim version 7.0aa. Last change: 2004 Jul 05
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
@ -8,8 +8,7 @@ Various commands *various*
1. Various commands |various-cmds| 1. Various commands |various-cmds|
2. Online help |online-help| 2. Online help |online-help|
3. Printing |printing| 3. Using Vim like less or more |less|
4. Using Vim like less or more |less|
============================================================================== ==============================================================================
1. Various commands *various-cmds* 1. Various commands *various-cmds*
@ -721,369 +720,6 @@ Hints for translators:
- Use the |:helptags| command to generate the tags files. It will find all - Use the |:helptags| command to generate the tags files. It will find all
languages in the specified directory. languages in the specified directory.
==============================================================================
3. Printing *printing*
On MS-Windows Vim can print your text on any installed printer. On other
systems a PostScript file is produced. This can be directly sent to a
PostScript printer. For other printers a program like ghostscript needs to be
used.
3.1 PostScript Printing |postscript-printing|
3.2 PostScript Printing Encoding |postscript-print-encoding|
3.3 PostScript Printing Troubleshooting |postscript-print-trouble|
3.4 PostScript Utilities |postscript-print-util|
3.5 Formfeed Characters |printing-formfeed|
{not in Vi}
{only available when compiled with |+printer| feature}
*:ha* *:hardcopy* *E237* *E238* *E324*
:[range]ha[rdcopy][!] [arguments]
Send [range] lines (default whole file) to the
printer.
On MS-Windows a dialog is displayed to allow selection
of printer, paper size etc. To skip the dialog, use
the [!]. In this case the printer defined by
'printdevice' is used, or, if 'printdevice' is empty,
the system default printer.
For systems other than MS-Windows, PostScript is
written in a temp file and 'printexpr' is used to
actually print it. Then [arguments] can be used by
'printexpr' through |v:cmdarg|. Otherwise [arguments]
is ignored. 'printoptions' can be used to specify
paper size, duplex, etc.
:[range]ha[rdcopy][!] >{filename}
As above, but write the resulting PostScript in file
{filename}.
Things like "%" are expanded |cmdline-special|
Careful: An existing file is silently overwritten.
{only available when compiled with the |+postscript|
feature}
On MS-Windows use the "print to file" feature of the
printer driver.
Progress is displayed during printing as a page number and a percentage. To
abort printing use the interrupt key (CTRL-C or, on MS-systems, CTRL-Break).
Printer output is controlled by the 'printfont' and 'printoptions' options.
'printheader' specifies the format of a page header.
The printed file is always limited to the selected margins, irrespective of
the current window's 'wrap' or 'linebreak' settings. The "wrap" item in
'printoptions' can be used to switch wrapping off.
The current highlighting colors are used in the printout, with the following
considerations:
1) The normal background is always rendered as white (i.e. blank paper.)
2) White text or the default foreground is rendered as black, so that it shows
up!
3) If 'background' is "dark", then the colours are darkened to compensate for
the fact that otherwise they would be too bright to show up clearly on
white paper.
3.1 PostScript Printing *postscript-printing*
*E455* *E456* *E457* *E624*
Provided you have enough disk space there should be no problems generating a
PostScript file. You need to have the runtime files correctly installed (if
you can find the help files, they probably are).
There are currently a number of limitations with PostScript printing:
- 'printfont' - The font name is ignored (the Courier family is always used -
it should be available on all PostScript printers) but the font size is
used.
- 'printoptions' - The duplex setting is used when generating PostScript
output, but it is up to the printer to take notice of the setting. If the
printer does not support duplex printing then it should be silently ignored.
Some printers, however, don't print at all.
- 8-bit support - While a number of 8-bit print character encodings are
supported it is possible that some characters will not print. Whether a
character will print depends on the font in the printer knowing the
character. Missing characters will be replaced with an upside down question
mark, or a space if that character is also not known by the font. It may be
possible to get all the characters in an encoding to print by installing a
new version of the Courier font family.
- Multi-byte support - Currently VIM will try to convert multi-byte characters
to the 8-bit encoding specified by 'printencoding' (or latin1 if it is
empty). Any characters that are not successfully converted are shown as
unknown characters. Printing will fail if VIM cannot convert the multi-byte
to the 8-bit encoding.
3.2 Custom 8-bit Print Character Encodings *postscript-print-encoding*
*E618* *E619*
To use your own print character encoding when printing 8-bit character data
you need to define your own PostScript font encoding vector. Details on how
to to define a font encoding vector is beyond the scope of this help file, but
you can find details in the PostScript Language Reference Manual, 3rd Edition,
published by Addison-Wesley and available in PDF form at
http://www.adobe.com/. The following describes what you need to do for VIM to
locate and use your print character encoding.
i. Decide on a unique name for your encoding vector, one that does not clash
with any of the recognized or standard encoding names that VIM uses (see
|encoding-names| for a list), and that no one else is likely to use.
ii. Copy $VIMRUNTIME/print/latin1.ps to the print subdirectory in your
'runtimepath' and rename it with your unique name.
iii. Edit your renamed copy of latin1.ps, replacing all occurrences of latin1
with your unique name (don't forget the line starting %%Title:), and
modify the array of glyph names to define your new encoding vector. The
array must have exactly 256 entries or you will not be able to print!
iv. Within VIM, set 'printencoding' to your unique encoding name and then
print your file. VIM will now use your custom print character encoding.
VIM will report an error with the resource file if you change the order or
content of the first 3 lines, other than the name of the encoding on the line
starting %%Title: or the version number on the line starting %%Version:.
[Technical explanation for those that know PostScript - VIM looks for a file
with the same name as the encoding it will use when printing. The file
defines a new PostScript Encoding resource called /VIM-name, where name is the
print character encoding VIM will use.]
3.3 PostScript Printing Troubleshooting *postscript-print-trouble*
*E621*
Usually the only sign of a problem when printing with PostScript is that your
printout does not appear. If you are lucky you may get a printed page that
tells you the PostScript operator that generated the error that prevented the
print job completing.
There are a number of possible causes as to why the printing may have failed:
- Wrong version of the prolog resource file. The prolog resource file
contains some PostScript that VIM needs to be able to print. Each version
of VIM needs one particular version. Make sure you have correctly installed
the runtime files, and don't have any old versions of a file called prolog
in the print directory in your 'runtimepath' directory.
- Paper size. Some PostScript printers will abort printing a file if they do
not support the requested paper size. By default VIM uses A4 paper. Find
out what size paper your printer normally uses and set the appropriate paper
size with 'printoptions'. If you cannot find the name of the paper used,
measure a sheet and compare it with the table of supported paper sizes listed
for 'printoptions', using the paper that is closest in both width AND height.
Note: The dimensions of actual paper may vary slightly from the ones listed.
If there is no paper listed close enough, then you may want to try psresize
from PSUtils, discussed below.
- Two-sided printing (duplex). Normally a PostScript printer that does not
support two-sided printing will ignore any request to do it. However, some
printers may abort the job altogether. Try printing with duplex turned off.
Note: Duplex prints can be achieved manually using PS utils - see below.
- Collated printing. As with Duplex printing, most PostScript printers that
do not support collating printouts will ignore a request to do so. Some may
not. Try printing with collation turned off.
- Syntax highlighting. Some print management code may prevent the generated
PostScript file from being printed on a black and white printer when syntax
highlighting is turned on, even if solid black is the only color used. Try
printing with syntax highlighting turned off.
A safe printoptions setting to try is: >
:set printoptions=paper:A4,duplex:off,collate:n,syntax:n
Replace "A4" with the paper size that best matches your printer paper.
3.4 PostScript Utilities *postscript-print-util*
3.4.1 Ghostscript
Ghostscript is a PostScript and PDF interpreter that can be used to display
and print on non-PostScript printers PostScript and PDF files. It can also
generate PDF files from PostScript.
Ghostscript will run on a wide variety of platforms.
There are three available versions:
- AFPL Ghostscript (formerly Aladdin Ghostscript) which is free for
non-commercial use. It can be obtained from:
http://www.cs.wisc.edu/~ghost/
- GNU Ghostscript which is available under the GNU General Public License. It
can be obtained from:
ftp://mirror.cs.wisc.edu/pub/mirrors/ghost/gnu/
- A commercial version for inclusion in commercial products.
Additional information on Ghostscript can also be found at:
http://www.ghostscript.com/
Support for a number of non PostScript printers is provided in the
distribution as standard, but if you cannot find support for your printer
check the Ghostscript site for other printers not included by default.
3.4.2 Ghostscript Previewers.
The interface to Ghostscript is very primitive so a number of graphical front
ends have been created. These allow easier PostScript file selection,
previewing at different zoom levels, and printing. Check supplied
documentation for full details.
X11
- Ghostview. Obtainable from:
http://www.cs.wisc.edu/~ghost/gv/
- gv. Derived from Ghostview. Obtainable from:
http://wwwthep.physik.uni-mainz.de/~plass/gv/
Copies (possibly not the most recent) can be found at:
http://www.cs.wisc.edu/~ghost/gv/
OpenVMS
- Is apparently supported in the main code now (untested). See:
http://wwwthep.physik.uni-mainz.de/~plass/gv/
Windows and OS/2
- GSview. Obtainable from:
http://www.cs.wisc.edu/~ghost/gsview/
DOS
- ps_view. Obtainable from:
ftp://ftp.pg.gda.pl/pub/TeX/support/ps_view/
ftp://ftp.dante.de/tex-archive/support/ps_view/
Linux
- GSview. Linux version of the popular Windows and OS/2 previewer.
Obtainable from:
http://www.cs.wisc.edu/~ghost/gsview/
- BMV. Different from Ghostview and gv in that it doesn't use X but svgalib.
Obtainable from:
ftp://sunsite.unc.edu/pub/Linux/apps/graphics/viewers/svga/bmv-1.2.tgz
3.4.3 PSUtils
PSUtils is a collection of utility programs for manipulating PostScript
documents. Binary distributions are available for many platforms, as well as
the full source. PSUtils can be found at:
http://knackered.org/angus/psutils
The utilities of interest include:
- psnup. Convert PS files for N-up printing.
- psselect. Select page range and order of printing.
- psresize. Change the page size.
- psbook. Reorder and lay out pages ready for making a book.
The output of one program can be used as the input to the next, allowing for
complex print document creation.
N-UP PRINTING
The psnup utility takes an existing PostScript file generated from VIM and
convert it to an n-up version. The simplest way to create a 2-up printout is
to first create a PostScript file with: >
:hardcopy > test.ps
Then on your command line execute: >
psnup -n 2 test.ps final.ps
Note: You may get warnings from some Ghostscript previewers for files produced
by psnup - these may safely be ignored.
Finally print the file final.ps to your PostScript printer with your
platform's print command. (You will need to delete the two PostScript files
afterwards yourself.) 'printexpr' could be modified to perform this extra
step before printing.
ALTERNATE DUPLEX PRINTING
It is possible to achieve a poor man's version of duplex printing using the PS
utility psselect. This utility has options -e and -o for printing just the
even or odd pages of a PS file respectively.
First generate a PS file with the 'hardcopy' command, then generate a new
files with all the odd and even numbered pages with: >
psselect -o test.ps odd.ps
psselect -e test.ps even.ps
Next print odd.ps with your platform's normal print command. Then take the
print output, turn it over and place it back in the paper feeder. Now print
even.ps with your platform's print command. All the even pages should now
appear on the back of the odd pages.
There a couple of points to bear in mind:
1. Position of the first page. If the first page is on top of the printout
when printing the odd pages then you need to reverse the order that the odd
pages are printed. This can be done with the -r option to psselect. This
will ensure page 2 is printed on the back of page 1.
Note: it is better to reverse the odd numbered pages rather than the even
numbered in case there are an odd number of pages in the original PS file.
2. Paper flipping. When turning over the paper with the odd pages printed on
them you may have to either flip them horizontally (along the long edge) or
vertically (along the short edge), as well as possibly rotating them 180
degrees. All this depends on the printer - it will be more obvious for
desktop ink jets than for small office laser printers where the paper path
is hidden from view.
3.5 Formfeed Characters *printing-formfeed*
By default VIM does not do any special processing of |formfeed| control
characters. Setting the 'printoptions' formfeed item will make VIM recognize
formfeed characters and continue printing the current line at the beginning
of the first line on a new page. The use of formfeed characters provides
rudimentary print control but there are certain things to be aware of.
VIM will always start printing a line (including a line number if enabled)
containing a formfeed character, even if it is the first character on the
line. This means if a line starting with a formfeed character is the first
line of a page then VIM will print a blank page.
Since the line number is printed at the start of printing the line containing
the formfeed character, the remainder of the line printed on the new page
will not have a line number printed for it (in the same way as the wrapped
lines of a long line when wrap in 'printoptions' is enabled).
If the formfeed character is the last character on a line, then printing will
continue on the second line of the new page, not the first. This is due to
VIM processing the end of the line after the formfeed character and moving
down a line to continue printing.
Due to the points made above it is recommended that when formfeed character
processing is enabled, printing of line numbers is disabled, and that form
feed characters are not the last character on a line. Even then you may need
to adjust the number of lines before a formfeed character to prevent
accidental blank pages.
============================================================================== ==============================================================================
4. Using Vim like less or more *less* 4. Using Vim like less or more *less*

25
runtime/doc/version7.txt
View File

@ -79,6 +79,13 @@ The MzScheme interpreter is supported. |MzScheme|
The |:mzscheme| command can be used to execute MzScheme commands. The |:mzscheme| command can be used to execute MzScheme commands.
The |:mzfile| command can be used to execute an MzScheme script file. The |:mzfile| command can be used to execute an MzScheme script file.
Printing multi-byte text *new-print-multi-byte*
------------------
The |:hardcopy| command now supports printing multi-byte characters.
The 'printmbcharset' and 'printmbfont' options are used for this.
Also see |postscript-cjk-printing|. (Mike Williams)
Various new items *new-items-7* Various new items *new-items-7*
----------------- -----------------
@ -98,27 +105,31 @@ Options: ~
'numberwidth' Minimal width of the space used for the 'number' 'numberwidth' Minimal width of the space used for the 'number'
option. (Emmanuel Renieris) option. (Emmanuel Renieris)
'mzquantum' Time in msec to schedule MzScheme threads. 'mzquantum' Time in msec to schedule MzScheme threads.
'printmbcharset' CJK character set to be used for :hardcopy
'printmbfont' font names to be used for CJK output of :hardcopy
Ex commands: ~ Ex commands: ~
Win32: The ":winpos" command now also works in the console. (Vipin Aravind) Win32: The ":winpos" command now also works in the console. (Vipin Aravind)
:startreplace Start Replace mode. (Charles Campbell) |:startreplace| Start Replace mode. (Charles Campbell)
:0file Removes the name of the buffer. (Charles Campbell) |:0file| Removes the name of the buffer. (Charles Campbell)
New functions: ~ New functions: ~
tr(expr, from, to) |tr()| Translate characters. (Ron Aaron)
New autocommand events: ~ New autocommand events: ~
InsertEnter starting Insert or Replace mode |InsertEnter| starting Insert or Replace mode
InsertChange going from Insert to Replace mode or back |InsertChange| going from Insert to Replace mode or back
InsertLeave leaving Insert or Replace mode |InsertLeave| leaving Insert or Replace mode
ColorScheme after loading a color scheme |ColorScheme| after loading a color scheme
New Syntax/Indent/FTplugin files: ~ New Syntax/Indent/FTplugin files: ~
@ -143,6 +154,8 @@ IMPROVEMENTS *improvements-7*
":helpgrep" accepts a language specifier after the pattern: "pat@it". ":helpgrep" accepts a language specifier after the pattern: "pat@it".
Move the help for printing to a separate help file. It's quite a lot now.
":breakadd here" and ":breakdel here" can be used to set or delete a ":breakadd here" and ":breakdel here" can be used to set or delete a
breakpoint at the cursor. breakpoint at the cursor.

56
runtime/doc/vimtutor.man
View File

@ -1,9 +1,7 @@
VIMTUTOR(1) VIMTUTOR(1) VIMTUTOR(1) VIMTUTOR(1)
NAME NAME
vimtutor - the Vim tutor vimtutor - the Vim tutor
@ -11,18 +9,17 @@ SYNOPSIS
vimtutor [language] vimtutor [language]
DESCRIPTION DESCRIPTION
Vimtutor starts the Vim tutor. It copies the tutor file Vimtutor starts the Vim tutor. It copies the tutor file first, so that
first, so that it can be modified without changing the it can be modified without changing the original file.
original file.
The Vimtutor is useful for people that want to learn their The Vimtutor is useful for people that want to learn their first Vim
first Vim commands. commands.
The optional [language] argument is the two-letter name of The optional [language] argument is the two-letter name of a language,
a language, like "it" or "es". If the [language] argument like "it" or "es". If the [language] argument is missing, the language
is missing, the language of the current locale will be of the current locale will be used. If a tutor in this language is
used. If a tutor in this language is available, it will available, it will be used. Otherwise the English version will be
be used. Otherwise the English version will be used. used.
Vim is always started in Vi compatible mode. Vim is always started in Vi compatible mode.
@ -31,36 +28,19 @@ FILES
The Vimtutor text file(s). The Vimtutor text file(s).
/usr/local/lib/vim/tutor/tutor.vim /usr/local/lib/vim/tutor/tutor.vim
The Vim script used to copy the Vimtutor The Vim script used to copy the Vimtutor text file.
text file.
AUTHOR AUTHOR
The Vimtutor was originally written for Vi by Michael C. The Vimtutor was originally written for Vi by Michael C. Pierce and
Pierce and Robert K. Ware, Colorado School of Mines using Robert K. Ware, Colorado School of Mines using ideas supplied by
ideas supplied by Charles Smith, Colorado State Univer- Charles Smith, Colorado State University. E-mail: bware@mines.col-
sity. E-mail: bware@mines.colorado.edu. orado.edu.
It was modified for Vim by Bram Moolenaar. For the names It was modified for Vim by Bram Moolenaar. For the names of the trans-
of the translators see the tutor files. lators see the tutor files.
SEE ALSO SEE ALSO
vim(1) vim(1)
2001 April 2 VIMTUTOR(1)
2001 April 2 1

13
runtime/filetype.vim
View File

@ -1,7 +1,7 @@
" Vim support file to detect file types " Vim support file to detect file types
" "
" Maintainer: Bram Moolenaar <Bram@vim.org> " Maintainer: Bram Moolenaar <Bram@vim.org>
" Last Change: 2004 Jul 01 " Last Change: 2004 Jul 06
" Listen very carefully, I will say this only once " Listen very carefully, I will say this only once
if exists("did_load_filetypes") if exists("did_load_filetypes")
@ -205,13 +205,20 @@ endfun
au BufNewFile,BufRead *.vbs,*.dsm,*.ctl setf vb au BufNewFile,BufRead *.vbs,*.dsm,*.ctl setf vb
" Batch file for MSDOS. " Batch file for MSDOS.
au BufNewFile,BufRead *.bat,*.btm,*.sys setf dosbatch au BufNewFile,BufRead *.bat,*.sys setf dosbatch
" *.cmd is close to a Batch file, but on OS/2 Rexx files also use *.cmd. " *.cmd is close to a Batch file, but on OS/2 Rexx files also use *.cmd.
au BufNewFile,BufRead *.cmd au BufNewFile,BufRead *.cmd
\ if getline(1) =~ '^/\*' | setf rexx | else | setf dosbatch | endif \ if getline(1) =~ '^/\*' | setf rexx | else | setf dosbatch | endif
" Batch file for 4DOS " Batch file for 4DOS
au BufNewFile,BufRead *.btm setf btm au BufNewFile,BufRead *.btm call <SID>FTbtm()
fun! <SID>FTbtm()
if exists("g:dosbatch_syntax_for_btm") && g:dosbatch_syntax_for_btm
setf dosbatch
else
setf btm
endif
endfun
" BC calculator " BC calculator
au BufNewFile,BufRead *.bc setf bc au BufNewFile,BufRead *.bc setf bc

6
runtime/ftplugin/abaqus.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: Abaqus finite element input file (www.abaqus.com) " Language: Abaqus finite element input file (www.abaqus.com)
" Maintainer: Carl Osterwisch <osterwischc@asme.org> " Maintainer: Carl Osterwisch <osterwischc@asme.org>
" Last Change: 2004 May " Last Change: 2004 Jul 06
" Only do this when not done yet for this buffer " Only do this when not done yet for this buffer
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -27,6 +27,10 @@ setlocal include=\\<\\cINPUT\\s*=
" Remove characters up to the first = when evaluating filenames " Remove characters up to the first = when evaluating filenames
setlocal includeexpr=substitute(v:fname,'.\\{-}=','','') setlocal includeexpr=substitute(v:fname,'.\\{-}=','','')
" Remove comma from valid filename characters since it is used to
" separate keyword parameters
setlocal isfname-=,
" Define format of comment lines (see 'formatoptions' for uses) " Define format of comment lines (see 'formatoptions' for uses)
setlocal comments=:** setlocal comments=:**
setlocal commentstring=**%s setlocal commentstring=**%s

12
runtime/ftplugin/btm.vim Normal file
View File

@ -0,0 +1,12 @@
" Vim filetype plugin file
" Language: BTM
" Maintainer: Bram Moolenaar <Bram@vim.org>
" Last Change: 2004 Jul 06
" Only do this when not done yet for this buffer
if exists("b:did_ftplugin")
finish
endif
" Behaves just like dosbatch
runtime! ftplugin/dosbatch.vim ftplugin/dosbatch_*.vim ftplugin/dosbatch/*.vim

4
runtime/ftplugin/config.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: config " Language: config
" Maintainer: Dan Sharp <dwsharp at hotmail dot com> " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
" Last Changed: 2003 Sep 29 " Last Changed: 2004 Jul 08
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -30,7 +30,7 @@ endif
" Change the :browse e filter to primarily show configure-related files. " Change the :browse e filter to primarily show configure-related files.
if has("gui_win32") if has("gui_win32")
let b:browsefilter="Configure Scripts (configure.*)\tconfigure.*\n" . let b:browsefilter="Configure Scripts (configure.*, config.*)\tconfigure*;config.*\n" .
\ s:browsefilter \ s:browsefilter
endif endif

2
runtime/ftplugin/dosbatch.vim
View File

@ -17,5 +17,5 @@ setlocal formatoptions-=t formatoptions+=rol
" Define patterns for the browse file filter " Define patterns for the browse file filter
if has("gui_win32") && !exists("b:browsefilter") if has("gui_win32") && !exists("b:browsefilter")
let b:browsefilter = "DOS Batch Files (*.bat, *.cmd)\t*.bat;*.cmd\nAll Files (*.*)\t*.*\n" let b:browsefilter = "DOS Batch Files (*.bat, *.btm, *.cmd)\t*.bat;*.btm;*.cmd\nAll Files (*.*)\t*.*\n"
endif endif

4
runtime/ftplugin/html.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: html " Language: html
" Maintainer: Dan Sharp <dwsharp at hotmail dot com> " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
" Last Changed: 2004 May 11 " Last Changed: 2004 Jul 08
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -26,7 +26,7 @@ endif
" Change the :browse e filter to primarily show HTML-related files. " Change the :browse e filter to primarily show HTML-related files.
if has("gui_win32") if has("gui_win32")
let b:browsefilter="HTML Files (*.html,*.htm)\t*.htm*\n" . let b:browsefilter="HTML Files (*.html,*.htm)\t*.htm;*.html\n" .
\ "JavaScript Files (*.js)\t*.js\n" . \ "JavaScript Files (*.js)\t*.js\n" .
\ "Cascading StyleSheets (*.css)\t*.css\n" . \ "Cascading StyleSheets (*.css)\t*.css\n" .
\ "All Files (*.*)\t*.*\n" \ "All Files (*.*)\t*.*\n"

4
runtime/ftplugin/jsp.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: jsp " Language: jsp
" Maintainer: Dan Sharp <dwsharp at hotmail dot com> " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
" Last Changed: 2003 Sep 29 " Last Changed: 2004 Jul 08
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -14,7 +14,7 @@ set cpo-=C
" Define some defaults in case the included ftplugins don't set them. " Define some defaults in case the included ftplugins don't set them.
let s:undo_ftplugin = "" let s:undo_ftplugin = ""
let s:browsefilter = "Java Files (*.java)\t*.java\n" . let s:browsefilter = "Java Files (*.java)\t*.java\n" .
\ "HTML Files (*.html, *.htm)\t*.htm*\n" . \ "HTML Files (*.html, *.htm)\t*.html;*.htm\n" .
\ "All Files (*.*)\t*.*\n" \ "All Files (*.*)\t*.*\n"
let s:match_words = "" let s:match_words = ""

4
runtime/ftplugin/php.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: php " Language: php
" Maintainer: Dan Sharp <dwsharp at hotmail dot com> " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
" Last Changed: 2003 Sep 29 " Last Changed: 2004 Jul 08
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -13,7 +13,7 @@ set cpo-=C
" Define some defaults in case the included ftplugins don't set them. " Define some defaults in case the included ftplugins don't set them.
let s:undo_ftplugin = "" let s:undo_ftplugin = ""
let s:browsefilter = "HTML Files (*.html, *.htm)\t*.htm*\n" . let s:browsefilter = "HTML Files (*.html, *.htm)\t*.html;*.htm\n" .
\ "All Files (*.*)\t*.*\n" \ "All Files (*.*)\t*.*\n"
let s:match_words = "" let s:match_words = ""

6
runtime/ftplugin/xhtml.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: xhtml " Language: xhtml
" Maintainer: Dan Sharp <dwsharp at hotmail dot com> " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
" Last Changed: 2004 May 11 " Last Changed: 2004 Jul 08
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -13,7 +13,7 @@ set cpo-=C
" Define some defaults in case the included ftplugins don't set them. " Define some defaults in case the included ftplugins don't set them.
let s:undo_ftplugin = "" let s:undo_ftplugin = ""
let s:browsefilter = "HTML Files (*.html, *.htm)\t*.htm*\n" . let s:browsefilter = "HTML Files (*.html, *.htm)\t*.html;*.htm\n" .
\ "XML Files (*.xml)\t*.xml\n" . \ "XML Files (*.xml)\t*.xml\n" .
\ "All Files (*.*)\t*.*\n" \ "All Files (*.*)\t*.*\n"
let s:match_words = "" let s:match_words = ""
@ -56,7 +56,7 @@ endif
" Change the :browse e filter to primarily show tcsh-related files. " Change the :browse e filter to primarily show tcsh-related files.
if has("gui_win32") if has("gui_win32")
let b:browsefilter=s:browsefilter let b:browsefilter="XHTML files (*.xhtml, *.xhtm)\t*.xhtml;*.xhtm\n" . s:browsefilter
endif endif
" Undo the stuff we changed. " Undo the stuff we changed.

4
runtime/ftplugin/xslt.vim
View File

@ -1,7 +1,7 @@
" Vim filetype plugin file " Vim filetype plugin file
" Language: xslt " Language: xslt
" Maintainer: Dan Sharp <dwsharp at hotmail dot com> " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
" Last Changed: 2002 Nov 26 " Last Changed: 2004 Jul 08
" URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
if exists("b:did_ftplugin") | finish | endif if exists("b:did_ftplugin") | finish | endif
@ -12,5 +12,5 @@ let b:did_ftplugin = 1
" Change the :browse e filter to primarily show xsd-related files. " Change the :browse e filter to primarily show xsd-related files.
if has("gui_win32") && exists("b:browsefilter") if has("gui_win32") && exists("b:browsefilter")
let b:browsefilter="XSLT Files (*.xsl,*.xslt)\t*.xsl,*.xslt\n" . b:browsefilter let b:browsefilter="XSLT Files (*.xsl,*.xslt)\t*.xsl;*.xslt\n" . b:browsefilter
endif endif

20
runtime/optwin.vim
View File

@ -1,7 +1,7 @@
" These commands create the option window. " These commands create the option window.
" "
" Maintainer: Bram Moolenaar <Bram@vim.org> " Maintainer: Bram Moolenaar <Bram@vim.org>
" Last Change: 2004 Jul 03 " Last Change: 2004 Jul 05
" If there already is an option window, jump to that one. " If there already is an option window, jump to that one.
if bufwinnr("option-window") > 0 if bufwinnr("option-window") > 0
@ -563,18 +563,28 @@ endif
if has("printer") if has("printer")
call <SID>Header("printing") call <SID>Header("printing")
call append("$", "printoptions\tlist of items that control the format of :hardcopy output")
call <SID>OptionG("popt", &popt)
call append("$", "printdevice\tname of the printer to be used for :hardcopy") call append("$", "printdevice\tname of the printer to be used for :hardcopy")
call <SID>OptionG("pdev", &pdev) call <SID>OptionG("pdev", &pdev)
call append("$", "printencoding\tencoding used to print the PostScript file for :hardcopy") if has("postscript")
call <SID>OptionG("penc", &penc)
call append("$", "printexpr\texpression used to print the PostScript file for :hardcopy") call append("$", "printexpr\texpression used to print the PostScript file for :hardcopy")
call <SID>OptionG("pexpr", &pexpr) call <SID>OptionG("pexpr", &pexpr)
endif
call append("$", "printfont\tname of the font to be used for :hardcopy") call append("$", "printfont\tname of the font to be used for :hardcopy")
call <SID>OptionG("pfn", &pfn) call <SID>OptionG("pfn", &pfn)
call append("$", "printheader\tformat of the header used for :hardcopy") call append("$", "printheader\tformat of the header used for :hardcopy")
call <SID>OptionG("pheader", &pheader) call <SID>OptionG("pheader", &pheader)
call append("$", "printoptions\tlist of items that control the format of :hardcopy output") if has("postscript")
call <SID>OptionG("popt", &popt) call append("$", "printencoding\tencoding used to print the PostScript file for :hardcopy")
call <SID>OptionG("penc", &penc)
endif
if has("multi_byte")
call append("$", "printmbcharset\tthe CJK character set to be used for CJK output from :hardcopy")
call <SID>OptionG("pmbcs", &pmbcs)
call append("$", "printmbfont\tlist of font names to be used for CJK output from :hardcopy")
call <SID>OptionG("pmbfn", &pmbfn)
endif
endif endif
call <SID>Header("messages and info") call <SID>Header("messages and info")

120
runtime/plugin/NetrwFileHandlers.vim
View File

@ -1,23 +1,16 @@
" NetrwFileHandlers: contains various extension-based file handlers for " NetrwFileHandlers: contains various extension-based file handlers for
" netrw's browser " netrw's browsers' x command
" Author: Charles E. Campbell, Jr. " Author: Charles E. Campbell, Jr.
" Date: Jul 02, 2004 " Date: Jul 06, 2004
" Version: 2 " Version: 3
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" NetrwFileHandler_html: handles html when the user hits "x" when the " NetrwFileHandler_html: handles html when the user hits "x" when the
" cursor is atop a *.html file " cursor is atop a *.html file
fun! NetrwFileHandler_html(webpage) fun! NetrwFileHandler_html(pagefile)
" call Dfunc("NetrwFileHandler_html(".a:webpage.")") " call Dfunc("NetrwFileHandler_html(".a:pagefile.")")
let host= substitute(a:webpage,'^\w\+://\%(\w*@\)\=\(\w\+\)/.*$','\1','e') let page= substitute(a:pagefile,'^','file://','')
" call Decho("host<".host.">")
if host == hostname() || host == substitute(hostname(),'\..*$','','e')
let page= substitute(a:webpage,'^\w\+://\%(\w*@\)\=\(\w\+\)/','file://\1/'.expand("$HOME").'/','e')
else
let page= substitute(a:webpage,'^\w\+://\%(\w*@\)\=\(\w\+\)/','http://\1/','e')
endif
if executable("mozilla") if executable("mozilla")
" call Decho("executing !mozilla ".page) " call Decho("executing !mozilla ".page)
@ -25,9 +18,108 @@ fun! NetrwFileHandler_html(webpage)
elseif executable("netscape") elseif executable("netscape")
" call Decho("executing !netscape ".page) " call Decho("executing !netscape ".page)
exe "!netscape ".page exe "!netscape ".page
else
" call Dret("NetrwFileHandler_html 0")
return 0
endif endif
" call Dret("NetrwFileHandler_html") " call Dret("NetrwFileHandler_html 1")
return 1
endfun
" ---------------------------------------------------------------------
" NetrwFileHandler_htm: handles html when the user hits "x" when the
" cursor is atop a *.htm file
fun! NetrwFileHandler_htm(pagefile)
" call Dfunc("NetrwFileHandler_htm(".a:pagefile.")")
let page= substitute(a:pagefile,'^','file://','')
if executable("mozilla")
" call Decho("executing !mozilla ".page)
exe "!mozilla ".page
elseif executable("netscape")
" call Decho("executing !netscape ".page)
exe "!netscape ".page
else
" call Dret("NetrwFileHandler_htm 0")
return 0
endif
" call Dret("NetrwFileHandler_htm 1")
return 1
endfun
" ---------------------------------------------------------------------
" NetrwFileHandler_jpg:
fun! NetrwFileHandler_jpg(jpgfile)
" call Dfunc("NetrwFileHandler_jpg(jpgfile<".a:jpgfile.">)")
if executable("gimp")
exe "silent! !gimp -s ".a:jpgfile
elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE")
exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT ".a:jpgfile
else
" call Dret("NetrwFileHandler_jpg 0")
return 0
endif
" call Dret("NetrwFileHandler_jpg 1")
return 1
endfun
" ---------------------------------------------------------------------
" NetrwFileHandler_gif:
fun! NetrwFileHandler_gif(giffile)
" call Dfunc("NetrwFileHandler_gif(giffile<".a:giffile.">)")
if executable("gimp")
exe "silent! !gimp -s ".a:giffile
elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE")
exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT ".a:giffile
else
" call Dret("NetrwFileHandler_gif 0")
return 0
endif
" call Dret("NetrwFileHandler_gif 1")
return 1
endfun
" ---------------------------------------------------------------------
" NetrwFileHandler_pnm:
fun! NetrwFileHandler_pnm(pnmfile)
" call Dfunc("NetrwFileHandler_pnm(pnmfile<".a:pnmfile.">)")
if executable("gimp")
exe "silent! !gimp -s ".a:pnmfile
elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE")
exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT ".a:pnmfile
else
" call Dret("NetrwFileHandler_pnm 0")
return 0
endif
" call Dret("NetrwFileHandler_pnm 1")
return 1
endfun
" ---------------------------------------------------------------------
" NetrwFileHandler_bmp:
fun! NetrwFileHandler_bmp(bmpfile)
" call Dfunc("NetrwFileHandler_bmp(bmpfile<".a:bmpfile.">)")
if executable("gimp")
exe "silent! !gimp -s ".a:bmpfile
elseif executable(expand("$SystemRoot")."/SYSTEM32/MSPAINT.EXE")
exe "silent! !".expand("$SystemRoot")."/SYSTEM32/MSPAINT ".a:bmpfile
else
" call Dret("NetrwFileHandler_bmp 0")
return 0
endif
" call Dret("NetrwFileHandler_bmp 1")
return 1
endfun endfun
" --------------------------------------------------------------------- " ---------------------------------------------------------------------

1326
runtime/plugin/explorer.vim
View File

File diff suppressed because it is too large Load Diff

617
runtime/plugin/netrw.vim
View File

@ -1,7 +1,7 @@
" netrw.vim: Handles file transfer and remote directory listing across a network " netrw.vim: Handles file transfer and remote directory listing across a network
" Last Change: Jun 30, 2004 " Last Change: Jul 08, 2004
" Maintainer: Charles E. Campbell, Jr. PhD <drchipNOSPAM at campbellfamily.biz> " Maintainer: Charles E. Campbell, Jr. PhD <drchipNOSPAM at campbellfamily.biz>
" Version: 47g ASTRO-ONLY " Version: 47l ASTRO-ONLY
" License: Vim License (see vim's :help license) " License: Vim License (see vim's :help license)
" "
" But be doers of the word, and not only hearers, deluding your own selves " But be doers of the word, and not only hearers, deluding your own selves
@ -12,8 +12,9 @@
if exists("loaded_netrw") || &cp if exists("loaded_netrw") || &cp
finish finish
endif endif
let loaded_netrw = "v47g ASTRO-ONLY" let loaded_netrw = "v47l ASTRO-ONLY"
let s:save_cpo = &cpo let s:save_cpo = &cpo
let loaded_explorer = 1
set cpo&vim set cpo&vim
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
@ -74,6 +75,36 @@ if !exists("g:netrw_sort_direction")
" alternative: reverse (z y x ...) " alternative: reverse (z y x ...)
let g:netrw_sort_direction= "normal" let g:netrw_sort_direction= "normal"
endif endif
if !exists("g:netrw_longlist") || g:netrw_longlist == 0
let g:netrw_longlist= 0
else
let g:netrw_longlist= 1
let g:netrw_list_cmd= "ssh HOSTNAME ls -FLa -l"
endif
if !exists("g:netrw_timefmt")
let g:netrw_timefmt= "%c"
endif
if !exists("g:netrw_local_rmdir")
let g:netrw_local_rmdir= "rmdir"
endif
if !exists("g:netrw_local_rename")
if has("win32")
let g:netrw_local_rename= "ren"
elseif has("unix")
let g:netrw_local_rename= "mv"
endif
endif
if !exists("g:netrw_local_mkdir")
let g:netrw_local_mkdir= "mkdir"
endif
if !exists("g:netrw_mkdir_cmd")
let g:netrw_mkdir_cmd= "ssh HOSTNAME mkdir"
endif
" BufEnter event ignored by decho when following variable is true
" Has a side effect that doau BufReadPost doesn't work, so
" files read by network transfer aren't appropriately highlighted.
"let g:decho_bufenter = 1 "Decho
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" Default values for global protocol variables {{{1 " Default values for global protocol variables {{{1
@ -125,11 +156,13 @@ endif
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" Transparency Support: {{{1 " Transparency Support: {{{1
" Auto-detection for ftp://*, rcp://*, scp://*, sftp://*, http://*, dav://*, " File Explorer: {{{2
" and rsync://*
" Should make file transfers across networks transparent. Currently I haven't
" supported appends. Hey, gotta leave something for a future <netrw.vim>!
if version >= 600 if version >= 600
augroup FileExplorer
au!
au BufEnter * call <SID>LocalBrowse(expand("<afile>"))
augroup END
" Network Handler: {{{2
augroup Network augroup Network
au! au!
if has("win32") if has("win32")
@ -328,7 +361,7 @@ fun! s:NetRead(...)
" call Decho("read via ftp+.netrc (method #2)") " call Decho("read via ftp+.netrc (method #2)")
let netrw_fname= b:netrw_fname let netrw_fname= b:netrw_fname
new new
set ff=unix setlocal ff=unix
exe "put ='".g:netrw_ftpmode."'" exe "put ='".g:netrw_ftpmode."'"
exe "put ='get ".netrw_fname." ".tmpfile."'" exe "put ='get ".netrw_fname." ".tmpfile."'"
if exists("g:netrw_port") && g:netrw_port != "" if exists("g:netrw_port") && g:netrw_port != ""
@ -353,7 +386,7 @@ fun! s:NetRead(...)
" call Decho("read via ftp+mipf (method #3)") " call Decho("read via ftp+mipf (method #3)")
let netrw_fname= b:netrw_fname let netrw_fname= b:netrw_fname
new new
set ff=unix setlocal ff=unix
if exists("g:netrw_port") && g:netrw_port != "" if exists("g:netrw_port") && g:netrw_port != ""
put ='open '.g:netrw_machine.' '.g:netrw_port put ='open '.g:netrw_machine.' '.g:netrw_port
else else
@ -444,7 +477,7 @@ fun! s:NetRead(...)
" Construct execution string (four lines) which will be passed through filter " Construct execution string (four lines) which will be passed through filter
let netrw_fname= b:netrw_fname let netrw_fname= b:netrw_fname
new new
set ff=unix setlocal ff=unix
if exists("g:netrw_port") && g:netrw_port != "" if exists("g:netrw_port") && g:netrw_port != ""
put ='open '.g:netrw_machine.' '.g:netrw_port put ='open '.g:netrw_machine.' '.g:netrw_port
else else
@ -614,7 +647,7 @@ fun! s:NetGetFile(readcmd, fname, method)
exe bufnr("#")."bwipe!" exe bufnr("#")."bwipe!"
else else
let oldul= &ul let oldul= &ul
set ul=-1 setlocal ul=-1
exe a:readcmd." ".v:cmdarg." ".fname exe a:readcmd." ".v:cmdarg." ".fname
if delline > 0 if delline > 0
" wipe out last line, which should be a blank line anyway " wipe out last line, which should be a blank line anyway
@ -642,6 +675,11 @@ fun! s:NetGetFile(readcmd, fname, method)
call NetReadFixup(a:method, line1, line2) call NetReadFixup(a:method, line1, line2)
endif endif
" update the Buffers menu
if has("gui") && has("gui_running")
silent! emenu Buffers.Refresh\ menu
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 " insure that we have the right filetype and that its being displayed
@ -763,7 +801,7 @@ fun! s:NetWrite(...) range
elseif b:netrw_method == 2 " write with ftp + <.netrc> elseif b:netrw_method == 2 " write with ftp + <.netrc>
let netrw_fname = b:netrw_fname let netrw_fname = b:netrw_fname
new new
set ff=unix setlocal ff=unix
exe "put ='".g:netrw_ftpmode."'" 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."'" exe "put ='put ".tmpfile." ".netrw_fname."'"
@ -788,7 +826,7 @@ fun! s:NetWrite(...) range
elseif b:netrw_method == 3 " write with ftp + machine, id, passwd, and fname elseif b:netrw_method == 3 " write with ftp + machine, id, passwd, and fname
let netrw_fname= b:netrw_fname let netrw_fname= b:netrw_fname
new new
set ff=unix setlocal ff=unix
if exists("g:netrw_port") && g:netrw_port != "" if exists("g:netrw_port") && g:netrw_port != ""
put ='open '.g:netrw_machine.' '.g:netrw_port put ='open '.g:netrw_machine.' '.g:netrw_port
else else
@ -850,7 +888,7 @@ fun! s:NetWrite(...) range
" Construct execution string (four lines) which will be passed through filter " Construct execution string (four lines) which will be passed through filter
let netrw_fname= b:netrw_fname let netrw_fname= b:netrw_fname
new new
set ff=unix setlocal ff=unix
if exists("g:netrw_port") && g:netrw_port != "" if exists("g:netrw_port") && g:netrw_port != ""
put ='open '.g:netrw_machine.' '.g:netrw_port put ='open '.g:netrw_machine.' '.g:netrw_port
else else
@ -895,7 +933,7 @@ fun! s:NetWrite(...) range
let uid_machine = g:netrw_machine let uid_machine = g:netrw_machine
endif endif
new new
set ff=unix setlocal ff=unix
put ='put '.tmpfile.' '.netrw_fname put ='put '.tmpfile.' '.netrw_fname
norm 1Gdd norm 1Gdd
" call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine) " call Decho("executing: %!".g:netrw_sftp_cmd.' '.uid_machine)
@ -993,12 +1031,12 @@ fun! <SID>NetBrowse(dirname)
" remote-read the requested file into current buffer " remote-read the requested file into current buffer
enew! enew!
exe "file ".method."://".user.machine."/".path exe "file ".method."://".user.machine."/".escape(path,' ')
exe "silent doau BufReadPre ".fname exe "silent doau BufReadPre ".fname
silent call s:NetRead(method."://".user.machine."/".path) silent call s:NetRead(method."://".user.machine."/".path)
exe "silent doau BufReadPost ".fname exe "silent doau BufReadPost ".fname
1d keepjumps 1d
set nomod setlocal nomod
" call Dret("NetBrowse 0 : file<".fname.">") " call Dret("NetBrowse 0 : file<".fname.">")
return 0 return 0
@ -1021,26 +1059,28 @@ fun! <SID>NetBrowse(dirname)
else else
enew! enew!
endif endif
setlocal bt=nofile bh=wipe nobl setlocal ts=32 bt=nofile bh=wipe nobl
exe 'file '.bufname exe 'file '.escape(bufname,' ')
set bt=nowrite bh=hide nobl setlocal 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("%"),<SID>NetGetDir()))<cr>
nnoremap <buffer> <silent> <c-l> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))<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> - :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> 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> <Leader>H :call <SID>NetHideEdit(0)<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> i :call <SID>NetLongList(0)<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> o :exe g:netrw_winsize."wincmd s"<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),<SID>NetGetDir()))<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("%"),<SID>NetGetDir()))<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> 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> v :exe g:netrw_winsize."wincmd v"<bar>exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),<SID>NetGetDir()))<cr>
nnoremap <buffer> <silent> x :exe "norm! 0"<bar>call <SID>NetBrowseX(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr> nnoremap <buffer> <silent> x :exe "norm! 0"<bar>call <SID>NetBrowseX(<SID>NetBrowseChgDir(expand("%"),<SID>NetGetDir()),1)<cr>
nnoremap <buffer> <silent> <2-leftmouse> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),expand("<cWORD>")))<cr> nnoremap <buffer> <silent> <2-leftmouse> :exe "norm! 0"<bar>call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),<SID>NetGetDir()))<cr>
exe 'nnoremap <buffer> <silent> <del> :exe "norm! 0"<bar>call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<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 '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>' exe 'nnoremap <buffer> <silent> D :exe "norm! 0"<bar>call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<cr>'
exe 'vnoremap <buffer> <silent> D :call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<cr>' exe 'vnoremap <buffer> <silent> D :call <SID>NetBrowseRm("'.user.machine.'","'.path.'")<cr>'
exe 'nnoremap <buffer> <silent> R :exe "norm! 0"<bar>call <SID>NetBrowseRename("'.user.machine.'","'.path.'")<cr>' exe 'nnoremap <buffer> <silent> R :exe "norm! 0"<bar>call <SID>NetBrowseRename("'.user.machine.'","'.path.'")<cr>'
nnoremap <buffer> ? :he netrw-dir<cr> exe 'nnoremap <buffer> <silent> <Leader>M :call <SID>NetMakeDir("'.user.machine.'")<cr>'
nnoremap <buffer> ? :he netrw-browse-cmds<cr>
setlocal ma setlocal ma
" Set up the banner " Set up the banner
@ -1069,7 +1109,7 @@ fun! <SID>NetBrowse(dirname)
keepjumps 1d keepjumps 1d
" manipulate the directory listing (hide, sort) " manipulate the directory listing (hide, sort)
set ft=netrwlist setlocal ft=netrwlist
if line("$") >= g:netrw_bannercnt if line("$") >= g:netrw_bannercnt
if !exists("g:netrw_list_showall") if !exists("g:netrw_list_showall")
if g:netrw_list_hide != "" if g:netrw_list_hide != ""
@ -1078,6 +1118,13 @@ fun! <SID>NetBrowse(dirname)
else else
unlet g:netrw_list_showall unlet g:netrw_list_showall
endif endif
if g:netrw_longlist
" do a long listing; these substitutions need to be done prior to sorting
keepjumps silent /^total\s*\d\+$/d
exe 'keepjumps silent '.g:netrw_bannercnt.',$s/ -> .*$//e'
exe 'keepjumps silent '.g:netrw_bannercnt.',$s/\(\S\+\s\+\S\+\s\+\S\+\s\+\S\+\s\+\S\+\s\+\S\+\s\+\S\+\s\+\S\+\)\s\+\(\S\+\)$/\2\t\1/e'
exe g:netrw_bannercnt
endif
if g:netrw_sort_by =~ "^n" if g:netrw_sort_by =~ "^n"
call s:SetSort() call s:SetSort()
exe 'keepjumps silent '.g:netrw_bannercnt.',$call s:NetSort()' exe 'keepjumps silent '.g:netrw_bannercnt.',$call s:NetSort()'
@ -1111,7 +1158,7 @@ fun! <SID>NetBrowseChgDir(dirname,newdir)
elseif newdir == './' elseif newdir == './'
" refresh the directory list " refresh the directory list
" call Decho("refresh directory listing") " call Decho("refresh directory listing")
set ma setlocal ma
%d %d
elseif newdir == '../' elseif newdir == '../'
@ -1138,6 +1185,18 @@ fun! <SID>NetBrowseChgDir(dirname,newdir)
return dirname return dirname
endfun endfun
" ---------------------------------------------------------------------
" NetGetDir: it gets the directory named under the cursor
fun! <SID>NetGetDir()
" call Dfunc("NetGetDir()")
let dirname= getline(".")
if dirname =~ '\t'
let dirname= substitute(dirname,'\t.*$','','e')
endif
" call Dret("NetGetDir <".dirname.">")
return dirname
endfun
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" NetBrowseRm: remove a remote file or directory {{{2 " NetBrowseRm: remove a remote file or directory {{{2
fun! <SID>NetBrowseRm(usrhost,path) range fun! <SID>NetBrowseRm(usrhost,path) range
@ -1215,7 +1274,7 @@ fun! <SID>NetBrowseRename(usrhost,path)
" attempt to rename files/directories " attempt to rename files/directories
while ctr <= a:lastline while ctr <= a:lastline
exe ctr exe "keepjumps ".ctr
norm! 0 norm! 0
let oldname= a:path.expand("<cWORD>") let oldname= a:path.expand("<cWORD>")
@ -1234,21 +1293,52 @@ fun! <SID>NetBrowseRename(usrhost,path)
" refresh the directory " refresh the directory
let curline= line(".") let curline= line(".")
call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./')) call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),'./'))
exe curline exe "keepjumps ".curline
" call Dret("NetBrowseRename") " call Dret("NetBrowseRename")
endfun endfun
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" NetBrowseX: allows users to write custom functions to operate on {{{2 " NetBrowseX: allows users to write custom functions to operate on {{{2
" files given their extension " files given their extension. Passes 0=local, 1=remote
fun! <SID>NetBrowseX(fname) fun! <SID>NetBrowseX(fname,remote)
" call Dfunc("NetBrowseX(".a:fname.")") " call Dfunc("NetBrowseX(".a:fname." remote=".a:remote.")")
let exten= substitute(a:fname,'.*\.\(.\{-}\)','\1','e') 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) if exten != "" && exists("*NetrwFileHandler_".exten)
exe "call NetrwFileHandler_".exten.'("'.a:fname.'")'
let fname= a:fname
if a:remote == 1
" create a local copy
let fname= tempname().".".exten
" call Decho("create a local copy of <".a:fname."> as <".fname.">")
exe "keepjumps silent bot 1new ".a:fname
let eikeep= &ei
set ei=all bh=delete
exe "w! ".fname
let &ei= eikeep
q
endif endif
exe "let ret= NetrwFileHandler_".exten.'("'.fname.'")'
redraw!
" cleanup: remove temporary file,
" delete current buffer if success with handler,
" return to prior buffer (directory listing)
if a:remote == 1 && fname != a:fname
" call Decho("deleting temporary file<".fname.">")
call delete(fname)
endif
if ret != 0
let eikeep= &ei
set ei=all bh=delete bt=nofile
exe "norm! \<c-o>"
let &ei= eikeep
redraw!
endif
endif
" call Dret("NetBrowseX") " call Dret("NetBrowseX")
endfun endfun
@ -1276,8 +1366,8 @@ endfun
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" NetHideEdit: allows user to edit the file/directory hiding list " NetHideEdit: allows user to edit the file/directory hiding list
fun! <SID>NetHideEdit() fun! <SID>NetHideEdit(mode)
" call Dfunc("NetHideEdit()") " call Dfunc("NetHideEdit(mode=".a:mode.")")
call inputsave() call inputsave()
let newhide= input("Edit Hiding List: ",g:netrw_list_hide) let newhide= input("Edit Hiding List: ",g:netrw_list_hide)
@ -1285,12 +1375,427 @@ fun! <SID>NetHideEdit()
" refresh the listing " refresh the listing
let g:netrw_list_hide= newhide let g:netrw_list_hide= newhide
if a:mode == 0
silent call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./')) silent call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./'))
else
silent call s:LocalBrowse(s:NetBrowseChgDir(expand("%"),'./'))
endif
" call Dret("NetHideEdit") " call Dret("NetHideEdit")
endfun endfun
" ------------------------------------------------------------------------ " ---------------------------------------------------------------------
" NetLongList: {{{2
fun! <SID>NetLongList(mode)
" call Dfunc("NetLongList(mode=".a:mode.") netrw_longlist=".g:netrw_longlist)
if g:netrw_longlist != 0
" turn long listing off
let g:netrw_longlist = 0
let g:netrw_list_cmd = substitute(g:netrw_list_cmd,' -l','','ge')
else
" turn long listing on
let g:netrw_longlist = 1
let g:netrw_list_cmd = g:netrw_list_cmd." -l"
endif
" refresh the listing
if a:mode == 0
silent call <SID>NetBrowse(<SID>NetBrowseChgDir(expand("%"),"./"))
else
silent call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%"),"./"))
endif
" call Dret("NetLongList : g:netrw_longlist=".g:netrw_longlist)
endfun
" ---------------------------------------------------------------------
" NetMakeDir: this function makes a directory (both local and remote)
fun! <SID>NetMakeDir(usrhost)
" call Dfunc("NetMakeDir(usrhost<".a:usrhost.">)")
" get name of new directory from user. A bare <CR> will skip.
" if its currently a directory, also request will be skipped, but with
" a message.
call inputsave()
let newdirname= input("Please give directory name: ")
call inputrestore()
if newdirname == ""
" call Dret("NetMakeDir : user aborted with bare <cr>")
return
endif
if a:usrhost == ""
" Local mkdir:
" sanity checks
if isdirectory(newdirname)
echoerr "***warning*** <".newdirname."> is already a directory!"
" call Dret("NetMakeDir : directory<".newdirname."> exists previously")
return
endif
if filereadable(newdirname)
echoerr "***warning*** <".newdirname."> is already a file!"
" call Dret("NetMakeDir : file<".newdirname."> exists previously")
return
endif
exe "silent! !".g:netrw_local_mkdir." ".newdirname
if v:shell_error == 0
" refresh listing
call s:LocalBrowse(".")
else
echoerr "***warning*** unable to make directory<".newdirname.">"
endif
redraw!
else
" Remote mkdir:
let mkdircmd = substitute(g:netrw_mkdir_cmd,'\<HOSTNAME\>',a:usrhost,'')
let newdirname= substitute(expand("%"),'^\%(.\{-}/\)\{3}\(.*\)$','\1','').newdirname
" call Decho("exe silent! !".mkdircmd." ".newdirname)
exe "silent! !".mkdircmd." ".newdirname
if v:shell_error == 0
" refresh listing
call s:NetBrowse(s:NetBrowseChgDir(expand("%"),'./'))
else
echoerr "***warning*** unable to make directory<".newdirname.">"
endif
redraw!
endif
" call Dret("NetMakeDir")
endfun
" ---------------------------------------------------------------------
" Browsing Support For Local Directories And Files: {{{1
" ---------------------------------------------------------------------
" LocalBrowse: supports local file/directory browsing {{{2
fun! <SID>LocalBrowse(dirname)
" let dirname= (a:dirname == "")? expand("%:p") : a:dirname
if !isdirectory(a:dirname)
" not a directory, ignore it
return
endif
" " unfortunate interaction -- when putting Dfunc/Dret above
" one can no longer enter the DBG buffer.
" call Dfunc("LocalBrowse(dirname<".a:dirname.">)")
exe 'cd '.escape(a:dirname,' ')
let dirname= getcwd()."/"
" call Decho("dirname<".dirname.">")
" make this buffer modifiable
setlocal ma
" ---------------------------------------------------------------------
" Perform Directory Listing:
" call Decho("Perform directory listing...")
" set up new buffer and map
let dirnamenr = bufnr(dirname)
if dirnamenr != -1 && bufname(dirnamenr) != dirname
" try removing the trailing "/"
let dirnamenr= bufnr(substitute(dirname,'/$','','e'))
endif
" call Decho("bufnr(dirname<".dirname.">)=".dirnamenr)
if dirnamenr != -1 && bufexists(dirname)
" buffer already exists (hidden), so switch to it!
exe "b ".dirnamenr
exe 'cd '.escape(dirname,' ')
" call Decho("changed directory to<".dirname.">")
if a:dirname != "." && line("$") >= 5
" call Dret("LocalBrowse : buffer already exists with info")
return
endif
" call Decho("buffer already exists, but needs listing (buf#".dirnamenr.")")
keepjumps %d
else
" call Dredir("ls!")
" call Decho("generate new buffer named<".dirname.">")
silent! enew!
exe 'silent! file '.escape(dirname,' ')
endif
" set standard browser options on buffer
setlocal ts=32 bt=nowrite bh=hide nobl
" set up all the maps
nnoremap <buffer> <silent> <cr> :exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),<SID>NetGetDir()))<cr>
nnoremap <buffer> <silent> <c-l> :exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),'./'))<cr>
nnoremap <buffer> <silent> - :exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),'../'))<cr>
nnoremap <buffer> <silent> a :let g:netrw_list_showall=1<bar>exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),'./'))<cr>
nnoremap <buffer> <silent> <Leader>H :call <SID>NetHideEdit(1)<cr>
nnoremap <buffer> <silent> <Leader>M :call <SID>NetMakeDir("")<cr>
nnoremap <buffer> <silent> i :call <SID>NetLongList(1)<cr>
nnoremap <buffer> <silent> o :exe g:netrw_winsize."wincmd s"<bar>exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),<SID>NetGetDir()))<cr>
nnoremap <buffer> <silent> r :let g:netrw_sort_direction= (g:netrw_sort_direction =~ 'n')? 'r' : 'n'<bar>exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),<SID>NetGetDir()))<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>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),'./'))<cr>
nnoremap <buffer> <silent> v :exe g:netrw_winsize."wincmd v"<bar>exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),<SID>NetGetDir()))<cr>
nnoremap <buffer> <silent> x :exe "norm! 0"<bar>call <SID>NetBrowseX(<SID>LocalBrowseChgDir(expand("%:p"),<SID>NetGetDir()),0)<cr>
nnoremap <buffer> <silent> <2-leftmouse> :exe "norm! 0"<bar>call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%:p"),<SID>NetGetDir()))<cr>
exe 'nnoremap <buffer> <silent> <del> :exe "norm! 0"<bar>call <SID>LocalBrowseRm("'.expand("%:p").<SID>NetGetDir().'")<cr>'
exe 'vnoremap <buffer> <silent> <del> :call <SID>LocalBrowseRm("'.expand("%:p").<SID>NetGetDir().'")<cr>'
exe 'nnoremap <buffer> <silent> D :exe "norm! 0"<bar>call <SID>LocalBrowseRm("'.expand("%:p").<SID>NetGetDir().'")<cr>'
exe 'vnoremap <buffer> <silent> D :call <SID>LocalBrowseRm("'.expand("%:p").<SID>NetGetDir().'")<cr>'
exe 'nnoremap <buffer> <silent> R :exe "norm! 0"<bar>call <SID>LocalBrowseRename("'.expand("%:p").<SID>NetGetDir().'")<cr>'
nnoremap <buffer> ? :he netrw-dir<cr>
" Set up the banner
keepjumps put ='\" ================='
keepjumps 1d
keepjumps put ='\" Directory Listing'
keepjumps put ='\" '.dirname
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 ='\" ================='
" generate the requested directory listing
call LocalBrowseList(dirname)
" manipulate the directory listing (hide, sort)
setlocal ft=netrwlist
if line("$") >= g:netrw_bannercnt
if !exists("g:netrw_list_showall")
if g:netrw_list_hide != ""
call s:NetrwListHide()
endif
else
unlet g:netrw_list_showall
endif
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'
else
exe 'keepjumps silent '.g:netrw_bannercnt.',$call s:NetSort()'
exe 'keepjumps silent '.g:netrw_bannercnt.',$s/^\d\{-}\///e'
endif
endif
exe g:netrw_bannercnt
try
exe 'cd '.escape(substitute(dirname,'/$','','e'),' ')
" call Decho("changed directory to<".dirname.">")
catch
echoerr "Not a directory: <".dirname.">"
endtry
setlocal noma nomod
" call Dret("LocalBrowse")
endfun
" ---------------------------------------------------------------------
" LocalBrowseList: does the job of "ls" for local directories {{{2
fun! LocalBrowseList(dirname)
" call Dfunc("LocalBrowseList(dirname<".a:dirname.">)")
let dirnamelen = strlen(a:dirname)
let filelist = glob(a:dirname."*")."\n".glob(a:dirname.".*")
" call Decho("filelist<".filelist.">")
while filelist != ""
if filelist =~ '\n'
let file = substitute(filelist,'\n.*$','','e')
let filelist = substitute(filelist,'^.\{-}\n\(.*\)$','\1','e')
else
let file = filelist
let filelist= ""
endif
let pfile= file
if isdirectory(file)
let pfile= file."/"
endif
let pfile= strpart(pfile,dirnamelen)
if g:netrw_longlist
let pfile= pfile."\t".getfsize(file)."\t".strftime(g:netrw_timefmt,getftime(file))
endif
if g:netrw_sort_by =~ "^t"
" sort by time (handles time up to 1 quintillion seconds, US)
" call Decho("getftime(".file.")=".getftime(file))
let t = getftime(file)
let ft = strpart("000000000000000000",1,18-strlen(t)).t
" call Decho("exe keepjumps put ='".ft.'/'.file."'")
exe "keepjumps put ='".ft.'/'.pfile."'"
elseif g:netrw_sort_by =~ "^s"
" sort by size (handles file sizes up to 1 quintillion bytes, US)
" call Decho("getfsize(".file.")=".getfsize(file))
let sz = getfsize(file)
let fsz = strpart("000000000000000000",1,18-strlen(sz)).sz
" call Decho("exe keepjumps put ='".fsz.'/'.file."'")
exe "keepjumps put ='".fsz.'/'.pfile."'"
else
" sort by name
" call Decho("exe keepjumps put ='".file."'")
exe "keepjumps put ='".pfile."'"
endif
endwhile
" call Dret("LocalBrowseList")
endfun
" ---------------------------------------------------------------------
" LocalBrowseChgDir: constructs a new directory based on the current {{{2
" directory and a new directory name
fun! <SID>LocalBrowseChgDir(dirname,newdir)
" call Dfunc("LocalBrowseChgDir(dirname<".a:dirname."> newdir<".a:newdir.">)")
let dirname= a:dirname
let newdir = a:newdir
if dirname !~ '/$'
" apparently vim is "recognizing" that it is in the home directory and
" is removing the "/". Bad idea, so I have to put it back.
let dirname= dirname.'/'
" call Decho("adjusting dirname<".dirname.">")
endif
if newdir !~ '/$'
" handling a file
let dirname= dirname.newdir
" call Decho("handling a file: dirname<".dirname.">")
exe "e ".dirname
elseif newdir == './'
" refresh the directory list
" call Decho("refresh directory listing")
setlocal ma
%d
elseif newdir == '../'
" go up one directory
let dirname= substitute(dirname,'^\(.*/\)\([^/]\+/$\)','\1','e')
" call Decho("go up one dir: dirname<".dirname.">")
else
" go down one directory
let dirname= dirname.newdir
" call Decho("go down one dir: dirname<".dirname."> newdir<".newdir.">")
endif
" call Dret("LocalBrowseChgDir <".dirname.">")
return dirname
endfun
" ---------------------------------------------------------------------
" LocalBrowseRm:
fun! <SID>LocalBrowseRm(path) range
" call Dfunc("LocalBrowseRm(path<".a:path.">)")
" call Decho("firstline=".a:firstline." lastline=".a:lastline)
" preparation for removing multiple files/directories
let ctr= a:firstline
" remove multiple files and directories
while ctr <= a:lastline
exe ctr
norm! 0
let rmfile= a:path.expand("<cWORD>")
" call Decho("rmfile<".rmfile.">")
if rmfile !~ '^"' && (rmfile =~ '@$' || rmfile !~ '/$')
" attempt to remove file
call inputsave()
let ok= input("Confirm deletion of file<".rmfile."> ","y")
call inputrestore()
if ok == "y"
call delete(rmfile)
" call Decho("errcode=".v:shell_error)
endif
else
" attempt to remove directory
call inputsave()
let ok= input("Confirm deletion of directory<".rmfile."> ","y")
call inputrestore()
let rmfile= substitute(rmfile,'/$','','e')
if ok == "y"
call system(g:netrw_local_rmdir." ".rmfile)
" call Decho("v:shell_error=".v:shell_error)
if v:shell_error != 0
" call Decho("2nd attempt to remove directory<".rmfile.">")
let errcode= delete(rmfile)
" call Decho("errcode=".errcode)
if errcode != 0
if has("unix")
" call Decho("3rd attempt to remove directory<".rmfile.">")
call system("rm ".rmfile)
if v:shell_error != 0
echoerr "unable to remove directory<".rmfile."> -- is it empty?"
endif
else
echoerr "unable to remove directory<".rmfile."> -- is it empty?"
endif
endif
endif
endif
endif
let ctr= ctr + 1
endwhile
" refresh the directory
let curline= line(".")-1
" call Decho("refresh the directory")
call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%"),'./'))
exe curline
" call Dret("LocalBrowseRm")
endfun
" ---------------------------------------------------------------------
" LocalBrowseRename: rename a remote file or directory {{{2
fun! <SID>LocalBrowseRename(path)
" call Dfunc("LocalBrowseRename(path<".a:path.">)")
" preparation for removing multiple files/directories
let ctr= a:firstline
" attempt to rename files/directories
while ctr <= a:lastline
exe "keepjumps ".ctr
norm! 0
let oldname= a:path.expand("<cWORD>")
" call Decho("oldname<".oldname.">")
call inputsave()
let newname= input("Moving ".oldname." to : ",oldname)
call inputrestore()
let ret= system(g:netrw_local_rename." ".oldname." ".newname)
" call Decho("executing system(".g:netrw_local_rename." ".oldname." ".newname)
let ctr= ctr + 1
endwhile
" refresh the directory
let curline= line(".")
call <SID>LocalBrowse(<SID>LocalBrowseChgDir(expand("%"),'./'))
exe "keepjumps ".curline
" call Dret("LocalBrowseRename")
endfun
" ---------------------------------------------------------------------
" NetMethod: determine method of transfer {{{1 " NetMethod: determine method of transfer {{{1
" method == 1: rcp " method == 1: rcp
" 2: ftp + <.netrc> " 2: ftp + <.netrc>
@ -1531,14 +2036,14 @@ fun!s:NetOptionSave()
let s:dirkeep = getcwd() let s:dirkeep = getcwd()
let s:gdkeep = &gd let s:gdkeep = &gd
let s:twkeep = &tw let s:twkeep = &tw
set cino = setlocal cino =
set com = setlocal com =
set cpo -=aA setlocal cpo -=aA
set nocin noai setlocal nocin noai
set tw =0 setlocal tw =0
if has("win32") && !has("win95") if has("win32") && !has("win95")
let s:swfkeep= &swf let s:swfkeep= &swf
set noswf setlocal noswf
" call Decho("setting s:swfkeep to <".&swf.">") " call Decho("setting s:swfkeep to <".&swf.">")
endif endif
@ -1595,6 +2100,8 @@ endif
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" NetSort: Piet Delport's BISort2() function, modified to take a range {{{1 " NetSort: Piet Delport's BISort2() function, modified to take a range {{{1
fun! <SID>NetSort() range fun! <SID>NetSort() range
" call Dfunc("NetSort()")
let i = a:firstline + 1 let i = a:firstline + 1
while i <= a:lastline while i <= a:lastline
" find insertion point via binary search " find insertion point via binary search
@ -1629,13 +2136,29 @@ fun! <SID>NetSort() range
endif endif
let i = i + 1 let i = i + 1
endwhile endwhile
" call Dret("NetSort")
endfun endfun
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" SetSort: sets up the sort based on the g:netrw_sort_sequence " SetSort: sets up the sort based on the g:netrw_sort_sequence {{{1
" What this function does is to compute a priority for the patterns
" in the g:netrw_sort_sequence. It applies a substitute to any
" "files" that satisfy each pattern, putting the priority / in
" front. An "*" pattern handles the default priority.
fun! <SID>SetSort() fun! <SID>SetSort()
" call Dfunc("SetSort() bannercnt=".g:netrw_bannercnt) " call Dfunc("SetSort() bannercnt=".g:netrw_bannercnt)
if g:netrw_longlist
let seqlist = substitute(g:netrw_sort_sequence,'\$','\\%(\t\\|\$\\)','ge')
else
let seqlist = g:netrw_sort_sequence let seqlist = g:netrw_sort_sequence
endif
" sanity check -- insure that * appears somewhere
if seqlist == ""
let seqlist= '*'
elseif seqlist !~ '\*'
let seqlist= seqlist.',*'
endif
let priority = 1 let priority = 1
while seqlist != "" while seqlist != ""
if seqlist =~ ',' if seqlist =~ ','

22
runtime/print/ascii.ps Normal file
View File

@ -0,0 +1,22 @@
%!PS-Adobe-3.0 Resource-Encoding
%%Title: VIM-ascii
%%Version: 1.0 0
%%EndComments
/VIM-ascii[
32{/.notdef}repeat
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quotesingle
/parenleft /parenright /asterisk /plus /comma /minus /period /slash
/zero /one /two /three /four /five /six /seven
/eight /nine /colon /semicolon /less /equal /greater /question
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
/grave /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft /bar /braceright /asciitilde /.notdef
128{/.notdef}repeat]
/Encoding defineresource pop
% vim:ff=unix:
%%EOF

26
runtime/print/cidfont.ps Normal file
View File

@ -0,0 +1,26 @@
%!PS-Adobe-3.0 Resource-ProcSet
%%Title: VIM-CIDFont
%%Version: 1.0 0
%%EndComments
% Editing of this file is NOT RECOMMENDED. You run a very good risk of causing
% all PostScript printing from VIM failing if you do. PostScript is not called
% a write-only language for nothing!
/CP currentpacking d T setpacking
/SB 256 string d
/CIDN? systemdict/composefont known d /GS? systemdict/.makeoperator known d
CIDN?{
GS?{/vim_findresource{2 copy resourcestatus not{1 index SB cvs runlibfile}{
pop pop}ifelse findresource}bd/vim_composefont{0 get/CIDFont vim_findresource
exch/CMap vim_findresource exch[exch]composefont pop}bd}{/vim_findresource
/findresource ld/vim_composefont{composefont pop}bd}ifelse
}{
/vim_fontname{0 get SB cvs length dup SB exch(-)putinterval 1 add dup SB exch
dup 256 exch sub getinterval 3 -1 roll exch cvs length add SB exch 0 exch
getinterval cvn}bd/vim_composefont{vim_fontname findfont d}bd
} ifelse
/cfs{exch scalefont d}bd
/sffs{findfont 3 1 roll 1 index mul exch 2 index/FontMatrix get matrix copy
scale makefont d}bd
CP setpacking
% vim:ff=unix:
%%EOF

23
runtime/print/cns_roman.ps Normal file
View File

@ -0,0 +1,23 @@
%!PS-Adobe-3.0 Resource-Encoding
%%Title: VIM-cns_roman
%%Version: 1.0 0
%%EndComments
% Different to ASCII at code point 126
/VIM-cns_roman[
32{/.notdef}repeat
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quotesingle
/parenleft /parenright /asterisk /plus /comma /minus /period /slash
/zero /one /two /three /four /five /six /seven
/eight /nine /colon /semicolon /less /equal /greater /question
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
/grave /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft /bar /braceright /overline /.notdef
128{/.notdef}repeat]
/Encoding defineresource pop
% vim:ff=unix:
%%EOF

23
runtime/print/gb_roman.ps Normal file
View File

@ -0,0 +1,23 @@
%!PS-Adobe-3.0 Resource-Encoding
%%Title: VIM-gb_roman
%%Version: 1.0 0
%%EndComments
% Different to ASCII at code points 36 and 126
/VIM-gb_roman[
32{/.notdef}repeat
/space /exclam /quotedbl /numbersign /yuan /percent /ampersand /quotesingle
/parenleft /parenright /asterisk /plus /comma /minus /period /slash
/zero /one /two /three /four /five /six /seven
/eight /nine /colon /semicolon /less /equal /greater /question
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
/grave /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft /bar /braceright /overline /.notdef
128{/.notdef}repeat]
/Encoding defineresource pop
% vim:ff=unix:
%%EOF

23
runtime/print/jis_roman.ps Normal file
View File

@ -0,0 +1,23 @@
%!PS-Adobe-3.0 Resource-Encoding
%%Title: VIM-jis_roman
%%Version: 1.0 0
%%EndComments
% Different to ASCII at code points 92 and 126
/VIM-jis_roman[
32{/.notdef}repeat
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quotesingle
/parenleft /parenright /asterisk /plus /comma /minus /period /slash
/zero /one /two /three /four /five /six /seven
/eight /nine /colon /semicolon /less /equal /greater /question
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft /yen /bracketright /asciicircum /underscore
/grave /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft /bar /braceright /overline /.notdef
128{/.notdef}repeat]
/Encoding defineresource pop
% vim:ff=unix:
%%EOF

23
runtime/print/ks_roman.ps Normal file
View File

@ -0,0 +1,23 @@
%!PS-Adobe-3.0 Resource-Encoding
%%Title: VIM-ks_roman
%%Version: 1.0 0
%%EndComments
% Different to ASCII at code points 96 and 126
/VIM-ks_roman[
32{/.notdef}repeat
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quotesingle
/parenleft /parenright /asterisk /plus /comma /minus /period /slash
/zero /one /two /three /four /five /six /seven
/eight /nine /colon /semicolon /less /equal /greater /question
/at /A /B /C /D /E /F /G
/H /I /J /K /L /M /N /O
/P /Q /R /S /T /U /V /W
/X /Y /Z /bracketleft /won /bracketright /asciicircum /underscore
/grave /a /b /c /d /e /f /g
/h /i /j /k /l /m /n /o
/p /q /r /s /t /u /v /w
/x /y /z /braceleft /bar /braceright /overline /.notdef
128{/.notdef}repeat]
/Encoding defineresource pop
% vim:ff=unix:
%%EOF

7
runtime/print/prolog.ps
View File

@ -5,13 +5,15 @@
% Editing of this file is NOT RECOMMENDED. You run a very good risk of causing % Editing of this file is NOT RECOMMENDED. You run a very good risk of causing
% all PostScript printing from VIM failing if you do. PostScript is not called % all PostScript printing from VIM failing if you do. PostScript is not called
% a write-only language for nothing! % a write-only language for nothing!
/packedarray where not{userdict begin/setpacking/pop load def/currentpacking
false def end}{pop}ifelse/CP currentpacking def true setpacking
/bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld /bd{bind def}bind def/ld{load def}bd/ed{exch def}bd/d/def ld
/db{dict begin}bd/cde{currentdict end}bd /db{dict begin}bd/cde{currentdict end}bd
/T true d/F false d /T true d/F false d
/SO null d/sv{/SO save d}bd/re{SO restore}bd /SO null d/sv{/SO save d}bd/re{SO restore}bd
/L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d /L2 systemdict/languagelevel 2 copy known{get exec}{pop pop 1}ifelse 2 ge d
/m{moveto}bd/s{show}bd/ms{m s}bd/g{setgray}bd/r{setrgbcolor}bd/sp{showpage}bd /m/moveto ld/s/show ld /ms{m s}bd /g/setgray ld/r/setrgbcolor ld/sp{showpage}bd
/gs{gsave}bd/gr{grestore}bd/cp{currentpoint}bd /gs/gsave ld/gr/grestore ld/cp/currentpoint ld
/ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto /ul{gs UW setlinewidth cp UO add 2 copy newpath m 3 1 roll add exch lineto
stroke gr}bd stroke gr}bd
/bg{gs r cp BO add 4 -2 roll rectfill gr}bd /bg{gs r cp BO add 4 -2 roll rectfill gr}bd
@ -36,6 +38,7 @@ put}{pop pop}ifelse}forall/Encoding findresource dup length 256 eq{NFD/Encoding
ifelse 2 copy known{2 copy get dup maxlength dict copy[/questiondown/space]{2 ifelse 2 copy known{2 copy get dup maxlength dict copy[/questiondown/space]{2
copy known{2 copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put copy known{2 copy get 2 index/.notdef 3 -1 roll put pop exit}if pop}forall put
}{pop pop}ifelse dup NFD/FontName 3 -1 roll put NFD definefont pop end}bd }{pop pop}ifelse dup NFD/FontName 3 -1 roll put NFD definefont pop end}bd
CP setpacking
(\004)cvn{}bd (\004)cvn{}bd
% vim:ff=unix: % vim:ff=unix:
%%EOF %%EOF

11
runtime/syntax/forth.vim
View File

@ -1,7 +1,7 @@
" Vim syntax file " Vim syntax file
" Language: FORTH " Language: FORTH
" Maintainer: Christian V. J. Br<42>ssow <cvjb@cvjb.de> " Maintainer: Christian V. J. Br<42>ssow <cvjb@cvjb.de>
" Last Change: Son 22 Jun 2003 20:42:55 CEST " Last Change: Di 06 Jul 2004 18:40:33 CEST
" Filenames: *.fs,*.ft " Filenames: *.fs,*.ft
" URL: http://www.cvjb.de/comp/vim/forth.vim " URL: http://www.cvjb.de/comp/vim/forth.vim
@ -13,12 +13,16 @@
" Many Thanks to... " Many Thanks to...
" "
" 2004-07-06:
" Changed "syn sync ccomment maxlines=200" line: splitted it into two separate
" lines.
"
" 2003-05-10: " 2003-05-10:
" Andrew Gaul <andrew at gaul.org> send me a patch for " Andrew Gaul <andrew at gaul.org> send me a patch for
" forthOperators. " forthOperators.
" "
" 2003-04-03: " 2003-04-03:
" Ron Aaron <ron at ronware.org> made updates for an " Ron Aaron <ronaharon at yahoo.com> made updates for an
" improved Win32Forth support. " improved Win32Forth support.
" "
" 2002-04-22: " 2002-04-22:
@ -46,7 +50,8 @@ elseif exists("b:current_syntax")
endif endif
" Synchronization method " Synchronization method
syn sync ccomment maxlines=200 syn sync ccomment
syn sync maxlines=200
" I use gforth, so I set this to case ignore " I use gforth, so I set this to case ignore
syn case ignore syn case ignore

45
runtime/syntax/iss.vim
View File

@ -1,7 +1,7 @@
" Vim syntax file " Vim syntax file
" Language: Inno Setup File (iss file) and My InnoSetup extension " Language: Inno Setup File (iss file) and My InnoSetup extension
" Maintainer: Dominique St<53>phan (dominique@mggen.com) " Maintainer: Dominique St<53>phan (dominique@mggen.com)
" Last change: 2003 May 11 " Last change: 2004 July 5
" For version 5.x: Clear all syntax items " For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded " For version 6.x: Quit when a syntax file was already loaded
@ -25,16 +25,18 @@ syn match issURL "http[s]\=:\/\/.*$"
" syn match issName "[^: ]\+:" " syn match issName "[^: ]\+:"
syn match issName "Name:" syn match issName "Name:"
syn match issName "MinVersion:\|OnlyBelowVersion:" syn match issName "MinVersion:\|OnlyBelowVersion:\|Languages:"
syn match issName "Source:\|DestDir:\|DestName:\|CopyMode:" syn match issName "Source:\|DestDir:\|DestName:\|CopyMode:"
syn match issName "Attribs:\|FontInstall:\|Flags:" syn match issName "Attribs:\|Permissions:\|FontInstall:\|Flags:"
syn match issName "FileName:\|Parameters:\|WorkingDir:\|Comment:" syn match issName "FileName:\|Parameters:\|WorkingDir:\|HotKey:\|Comment:"
syn match issName "IconFilename:\|IconIndex:" syn match issName "IconFilename:\|IconIndex:"
syn match issName "Section:\|Key:\|String:" syn match issName "Section:\|Key:\|String:"
syn match issName "Root:\|SubKey:\|ValueType:\|ValueName:\|ValueData:" syn match issName "Root:\|SubKey:\|ValueType:\|ValueName:\|ValueData:"
syn match issName "RunOnceId:" syn match issName "RunOnceId:"
syn match issName "Type:" syn match issName "Type:"
syn match issName "Components:\|Description:\|GroupDescription\|Types:" syn match issName "Components:\|Description:\|GroupDescription:\|Types:\|ExtraDiskSpaceRequired:"
syn match issName "StatusMsg:\|RunOnceId:\|Tasks:"
syn match issName "MessagesFile:\|LicenseFile:\|InfoBeforeFile:\|InfoAfterFile:"
syn match issComment "^;.*$" syn match issComment "^;.*$"
@ -48,15 +50,19 @@ syn region issString start=+"+ end=+"+ contains=issFolder
syn keyword issDirsFlags deleteafterinstall uninsalwaysuninstall uninsneveruninstall syn keyword issDirsFlags deleteafterinstall uninsalwaysuninstall uninsneveruninstall
" [Files] " [Files]
syn keyword issFilesCopyMode normal onlyifdoesntexist alwaysoverwrite alwaysskipifsameorolder syn keyword issFilesCopyMode normal onlyifdoesntexist alwaysoverwrite alwaysskipifsameorolder dontcopy
syn keyword issFilesAttribs readonly hidden system syn keyword issFilesAttribs readonly hidden system
syn keyword issFilesFlags comparetimestampalso confirmoverwrite deleteafterinstall syn keyword issFilesPermissions full modify readexec
syn keyword issFilesFlags external fontisnttruetype isreadme overwritereadonly syn keyword issFilesFlags allowunsafefiles comparetimestampalso confirmoverwrite deleteafterinstall
syn keyword issFilesFlags regserver regtypelib restartreplace syn keyword issFilesFlags dontcopy dontverifychecksum external fontisnttruetype ignoreversion
syn keyword issFilesFlags sharedfile skipifsourcedoesntexist uninsneveruninstall syn keyword issFilesFlags isreadme onlyifdestfileexists onlyifdoesntexist overwritereadonly
syn keyword issFilesFlags promptifolder recursesubdirs regserver regtypelib restartreplace
syn keyword issFilesFlags sharedfile skipifsourcedoesntexist sortfilesbyextension touch
syn keyword issFilesFlags uninsremovereadonly uninsrestartdelete uninsneveruninstall
" [Icons] " [Icons]
syn keyword issIconsFlags createonlyiffileexists runminimized uninsneveruninstall useapppaths syn keyword issIconsFlags closeonexit createonlyiffileexists dontcloseonexit
syn keyword issIconsFlags runmaximized runminimized uninsneveruninstall useapppaths
" [INI] " [INI]
syn keyword issINIFlags createkeyifdoesntexist uninsdeleteentry uninsdeletesection uninsdeletesectionifempty syn keyword issINIFlags createkeyifdoesntexist uninsdeleteentry uninsdeletesection uninsdeletesectionifempty
@ -64,22 +70,27 @@ syn keyword issINIFlags createkeyifdoesntexist uninsdeleteentry uninsdeletesecti
" [Registry] " [Registry]
syn keyword issRegRootKey HKCR HKCU HKLM HKU HKCC syn keyword issRegRootKey HKCR HKCU HKLM HKU HKCC
syn keyword issRegValueType none string expandsz multisz dword binary syn keyword issRegValueType none string expandsz multisz dword binary
syn keyword issRegFlags createvalueifdoesntexist deletekey deletevalue preservestringtype syn keyword issRegFlags createvalueifdoesntexist deletekey deletevalue dontcreatekey
syn keyword issRegFlags uninsclearvalue uninsdeletekey uninsdeletekeyifempty uninsdeletevalue syn keyword issRegFlags preservestringtype noerror uninsclearvalue
syn keyword issRegFlags uninsdeletekey uninsdeletekeyifempty uninsdeletevalue
" [Run] and [UninstallRun] " [Run] and [UninstallRun]
syn keyword issRunFlags nowait shellexec skipifdoesntexist runminimized waituntilidle syn keyword issRunFlags hidewizard nowait postinstall runhidden runmaximized
syn keyword issRunFlags postinstall unchecked showcheckbox syn keyword issRunFlags runminimized shellexec skipifdoesntexist skipifnotsilent
syn keyword issRunFlags skipifsilent unchecked waituntilidle
" [Types] " [Types]
syn keyword issTypesFlags iscustom syn keyword issTypesFlags iscustom
" [Components] " [Components]
syn keyword issComponentsFlags fixed restart disablenouninstallwarning syn keyword issComponentsFlags dontinheritcheck exclusive fixed restart disablenouninstallwarning
" [UninstallDelete] and [InstallDelete] " [UninstallDelete] and [InstallDelete]
syn keyword issInstallDeleteType files filesandordirs dirifempty syn keyword issInstallDeleteType files filesandordirs dirifempty
" [Tasks]
syn keyword issTasksFlags checkedonce dontinheritcheck exclusive restart unchecked
" Define the default highlighting. " Define the default highlighting.
" For version 5.7 and earlier: only when not done already " For version 5.7 and earlier: only when not done already
@ -105,6 +116,7 @@ if version >= 508 || !exists("did_iss_syntax_inits")
HiLink issDirsFlags Keyword HiLink issDirsFlags Keyword
HiLink issFilesCopyMode Keyword HiLink issFilesCopyMode Keyword
HiLink issFilesAttribs Keyword HiLink issFilesAttribs Keyword
HiLink issFilesPermissions Keyword
HiLink issFilesFlags Keyword HiLink issFilesFlags Keyword
HiLink issIconsFlags Keyword HiLink issIconsFlags Keyword
HiLink issINIFlags Keyword HiLink issINIFlags Keyword
@ -115,6 +127,7 @@ if version >= 508 || !exists("did_iss_syntax_inits")
HiLink issTypesFlags Keyword HiLink issTypesFlags Keyword
HiLink issComponentsFlags Keyword HiLink issComponentsFlags Keyword
HiLink issInstallDeleteType Keyword HiLink issInstallDeleteType Keyword
HiLink issTasksFlags Keyword
delcommand HiLink delcommand HiLink

12
runtime/syntax/netrwlist.vim
View File

@ -1,6 +1,6 @@
" Language : Netrw Remote-Directory Listing Syntax " Language : Netrw Remote-Directory Listing Syntax
" Maintainer : Charles E. Campbell, Jr. " Maintainer : Charles E. Campbell, Jr.
" Last change: Jun 25, 2004 " Last change: Jul 06, 2004
" Version : 2 " Version : 2
" Syntax Clearing: {{{1 " Syntax Clearing: {{{1
@ -11,12 +11,12 @@ elseif exists("b:current_syntax")
endif endif
" Directory List Syntax Highlighting: {{{1 " Directory List Syntax Highlighting: {{{1
syn match netrwDir "^.*/$" contains=netrwClassify syn match netrwDir "^.*/\%(\t\|$\)" contains=netrwClassify
syn match netrwClassify "[*=|@/]$" syn match netrwClassify "[*=|@/]\%(\t\|$\)"
syn match netrwSlash contained "/" syn match netrwSymLink "^.*@\%(\t\|$\)" contains=netrwClassify
syn match netrwSymLink "^.*@$" contains=netrwClassify syn match netrwComment '".*\%(\t\|$\)' contains=netrwHide,netrwSortBy,netrwSortSeq
syn match netrwComment '".*$' contains=netrwHide,netrwSortBy,netrwSortSeq
syn match netrwHide '^"\s*Hiding:' skipwhite nextgroup=netrwHidePat syn match netrwHide '^"\s*Hiding:' skipwhite nextgroup=netrwHidePat
syn match netrwSlash contained "/"
syn match netrwHidePat contained "[^,]\+" skipwhite nextgroup=netrwHideSep syn match netrwHidePat contained "[^,]\+" skipwhite nextgroup=netrwHideSep
syn match netrwHideSep contained transparent "," skipwhite nextgroup=netrwHidePat syn match netrwHideSep contained transparent "," skipwhite nextgroup=netrwHidePat
syn match netrwSortBy contained transparent "Sorted by" skipwhite nextgroup=netrwList syn match netrwSortBy contained transparent "Sorted by" skipwhite nextgroup=netrwList

23
runtime/syntax/vim.vim
View File

@ -1,8 +1,8 @@
" Vim syntax file " Vim syntax file
" Language: Vim 6.3 script " Language: Vim 6.3 script
" Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz> " Maintainer: Dr. Charles E. Campbell, Jr. <NdrOchipS@PcampbellAfamily.Mbiz>
" Last Change: Jul 01, 2004 " Last Change: Jul 09, 2004
" Version: 6.3-05 " Version: 6.3-07
" Automatically generated keyword lists: {{{1 " Automatically generated keyword lists: {{{1
" Quit when a syntax file was already loaded {{{2 " Quit when a syntax file was already loaded {{{2
@ -106,7 +106,7 @@ syn keyword vimAugroupKey contained aug[roup]
" Functions : Tag is provided for those who wish to highlight tagged functions {{{2 " Functions : Tag is provided for those who wish to highlight tagged functions {{{2
" ========= " =========
syn cluster vimFuncList contains=vimFuncKey,Tag,vimFuncSID syn cluster vimFuncList contains=vimCommand,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 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
if !exists("g:vimsyntax_noerror") if !exists("g:vimsyntax_noerror")
syn match vimFunctionError "\<fu\%[nction]!\=\s\+\zs\U\i\{-}\ze\s*(" contains=vimFuncKey,vimFuncBlank nextgroup=vimFuncBody syn match vimFunctionError "\<fu\%[nction]!\=\s\+\zs\U\i\{-}\ze\s*(" contains=vimFuncKey,vimFuncBlank nextgroup=vimFuncBody
@ -186,8 +186,7 @@ syn match vimEnvvar "\${\I\i*}"
syn region vimEscapeBrace oneline contained transparent start="[^\\]\(\\\\\)*\[\^\=\]\=" skip="\\\\\|\\\]" end="\]"me=e-1 syn region vimEscapeBrace oneline contained transparent start="[^\\]\(\\\\\)*\[\^\=\]\=" skip="\\\\\|\\\]" end="\]"me=e-1
syn match vimPatSepErr contained "\\)" syn match vimPatSepErr contained "\\)"
syn match vimPatSep contained "\\|" syn match vimPatSep contained "\\|"
syn region vimPatSepZone oneline contained transparent matchgroup=vimPatSep start="\\%\=(" skip="\\\\" end="\\)" contains=@vimStringGroup syn region vimPatSepZone oneline contained matchgroup=vimPatSep start="\\%\=(" skip="\\\\" end="\\)\|[^\]['"]" contains=@vimStringGroup
syn region vimPatSepZone oneline contained matchgroup=vimPatSep start="\\%\=(" skip="\\\\" end="\\)" contains=@vimStringGroup
syn region vimPatRegion contained transparent matchgroup=vimPatSep start="\\[z%]\=(" end="\\)" contains=@vimSubstList oneline syn region vimPatRegion contained transparent matchgroup=vimPatSep start="\\[z%]\=(" end="\\)" contains=@vimSubstList oneline
syn match vimNotPatSep contained "\\\\" syn match vimNotPatSep contained "\\\\"
syn cluster vimStringGroup contains=vimEscapeBrace,vimPatSep,vimNotPatSep,vimPatSepErr,vimPatSepZone syn cluster vimStringGroup contains=vimEscapeBrace,vimPatSep,vimNotPatSep,vimPatSepErr,vimPatSepZone
@ -310,7 +309,7 @@ syn case match
" User Function Highlighting (following Gautam Iyer's suggestion) {{{2 " User Function Highlighting (following Gautam Iyer's suggestion) {{{2
" ========================== " ==========================
syn match vimFunc "\%([sS]:\|<[sS][iI][dD]>\)\=\I\i*\ze\s*(" contains=vimUserFunc,vimFuncName,vimCommand,vimNotFunc syn match vimFunc "\%([sS]:\|<[sS][iI][dD]>\)\=\I\i*\ze\s*(" contains=vimFuncName,vimUserFunc,vimCommand,vimNotFunc,vimExecute
syn match vimUserFunc contained "\%([sS]:\|<[sS][iI][dD]>\)\i\+\|\<\u\i*\>\|\<if\>" contains=vimNotation,vimCommand syn match vimUserFunc contained "\%([sS]:\|<[sS][iI][dD]>\)\i\+\|\<\u\i*\>\|\<if\>" contains=vimNotation,vimCommand
syn match vimNotFunc contained "\<[aiAIrR](" syn match vimNotFunc contained "\<[aiAIrR]("
@ -504,6 +503,16 @@ if (has("tcl") || g:vimembedscript) && filereadable(expand("<sfile>:p:h")."/tcl.
syn region vimTclRegion matchgroup=vimScriptDelim start=+tc[l]\=\s*<<\s*$+ end=+\.$+ contains=@vimTclScript syn region vimTclRegion matchgroup=vimScriptDelim start=+tc[l]\=\s*<<\s*$+ end=+\.$+ contains=@vimTclScript
endif endif
" [-- mzscheme --] {{{3
if (has("mzscheme") || g:vimembedscript) && filereadable(expand("<sfile>:p:h")."/scheme.vim")
unlet! b:current_syntax
let iskKeep= &isk
syn include @vimMzSchemeScript <sfile>:p:h/scheme.vim
let &isk= iskKeep
syn region vimMzSchemeRegion matchgroup=vimScriptDelim start=+mz\%[scheme]\s*<<\s*\z(.*\)$+ end=+^\z1$+ contains=@vimMzSchemeScript
syn region vimMzSchemeRegion matchgroup=vimScriptDelim start=+mz\%[scheme]\s*<<\s*$+ end=+\.$+ contains=@vimMzSchemeScript
endif
" Synchronize (speed) {{{2 " Synchronize (speed) {{{2
"============ "============
if exists("g:vim_minlines") if exists("g:vim_minlines")
@ -531,7 +540,7 @@ if !exists("g:vimsyntax_noerror")
hi def link vimErrSetting vimError hi def link vimErrSetting vimError
hi def link vimFTError vimError hi def link vimFTError vimError
hi def link vimFunctionError vimError hi def link vimFunctionError vimError
hi def link VimFunc vimError hi def link vimFunc vimError
hi def link vimHiAttribList vimError hi def link vimHiAttribList vimError
hi def link vimHiCtermError vimError hi def link vimHiCtermError vimError
hi def link vimHiKeyError vimError hi def link vimHiKeyError vimError

5
src/auto/config.mk Normal file
View File

@ -0,0 +1,5 @@
the first targets to make vim are: scratch config myself
srcdir = .
VIMNAME = vim
EXNAME = ex
VIEWNAME = view

118
src/eval.c
View File

@ -370,6 +370,7 @@ static void f_substitute __ARGS((VAR argvars, VAR retvar));
static void f_tempname __ARGS((VAR argvars, VAR retvar)); static void f_tempname __ARGS((VAR argvars, VAR retvar));
static void f_tolower __ARGS((VAR argvars, VAR retvar)); static void f_tolower __ARGS((VAR argvars, VAR retvar));
static void f_toupper __ARGS((VAR argvars, VAR retvar)); static void f_toupper __ARGS((VAR argvars, VAR retvar));
static void f_tr __ARGS((VAR argvars, VAR retvar));
static void f_type __ARGS((VAR argvars, VAR retvar)); static void f_type __ARGS((VAR argvars, VAR retvar));
static void f_virtcol __ARGS((VAR argvars, VAR retvar)); static void f_virtcol __ARGS((VAR argvars, VAR retvar));
static void f_visualmode __ARGS((VAR argvars, VAR retvar)); static void f_visualmode __ARGS((VAR argvars, VAR retvar));
@ -2923,6 +2924,7 @@ static struct fst
{"tempname", 0, 0, f_tempname}, {"tempname", 0, 0, f_tempname},
{"tolower", 1, 1, f_tolower}, {"tolower", 1, 1, f_tolower},
{"toupper", 1, 1, f_toupper}, {"toupper", 1, 1, f_toupper},
{"tr", 3, 3, f_tr},
{"type", 1, 1, f_type}, {"type", 1, 1, f_type},
{"virtcol", 1, 1, f_virtcol}, {"virtcol", 1, 1, f_virtcol},
{"visualmode", 0, 1, f_visualmode}, {"visualmode", 0, 1, f_visualmode},
@ -7437,6 +7439,122 @@ f_toupper(argvars, retvar)
} }
} }
/*
* "tr(string, fromstr, tostr)" function
*/
static void
f_tr(argvars, retvar)
VAR argvars;
VAR retvar;
{
char_u *instr;
char_u *fromstr;
char_u *tostr;
char_u *p;
#ifdef FEAT_MBYTE
int inlen;
int fromlen;
int tolen;
int idx;
char_u *cpstr;
int cplen;
int first = TRUE;
#endif
char_u buf[NUMBUFLEN];
char_u buf2[NUMBUFLEN];
garray_T ga;
instr = get_var_string(&argvars[0]);
fromstr = get_var_string_buf(&argvars[1], buf);
tostr = get_var_string_buf(&argvars[2], buf2);
/* Default return value: empty string. */
retvar->var_type = VAR_STRING;
retvar->var_val.var_string = NULL;
ga_init2(&ga, (int)sizeof(char), 80);
#ifdef FEAT_MBYTE
if (!has_mbyte)
#endif
/* not multi-byte: fromstr and tostr must be the same length */
if (STRLEN(fromstr) != STRLEN(tostr))
{
error:
EMSG2(_(e_invarg2), fromstr);
ga_clear(&ga);
return;
}
/* fromstr and tostr have to contain the same number of chars */
while (*instr != NUL)
{
#ifdef FEAT_MBYTE
if (has_mbyte)
{
inlen = mb_ptr2len_check(instr);
cpstr = instr;
cplen = inlen;
idx = 0;
for (p = fromstr; *p != NUL; p += fromlen)
{
fromlen = mb_ptr2len_check(p);
if (fromlen == inlen && STRNCMP(instr, p, inlen) == 0)
{
for (p = tostr; *p != NUL; p += tolen)
{
tolen = mb_ptr2len_check(p);
if (idx-- == 0)
{
cplen = tolen;
cpstr = p;
break;
}
}
if (*p == NUL) /* tostr is shorter than fromstr */
goto error;
break;
}
++idx;
}
if (first && cpstr == instr)
{
/* Check that fromstr and tostr have the same number of
* (multi-byte) characters. Done only once when a character
* of instr doesn't appear in fromstr. */
first = FALSE;
for (p = tostr; *p != NUL; p += tolen)
{
tolen = mb_ptr2len_check(p);
--idx;
}
if (idx != 0)
goto error;
}
ga_grow(&ga, cplen);
mch_memmove(ga.ga_data + ga.ga_len, cpstr, (size_t)cplen);
ga.ga_len += cplen;
ga.ga_room -= cplen;
instr += inlen;
}
else
#endif
{
/* When not using multi-byte chars we can do it faster. */
p = vim_strchr(fromstr, *instr);
if (p != NULL)
ga_append(&ga, tostr[p - fromstr]);
else
ga_append(&ga, *instr);
++instr;
}
}
retvar->var_val.var_string = ga.ga_data;
}
/* /*
* "type(expr)" function * "type(expr)" function
*/ */

15
src/ex_cmds.c
View File

@ -3738,6 +3738,7 @@ do_sub(eap)
unsigned len, needed_len; unsigned len, needed_len;
long nmatch_tl = 0; /* nr of lines matched below lnum */ long nmatch_tl = 0; /* nr of lines matched below lnum */
int do_again; /* do it again after joining lines */ int do_again; /* do it again after joining lines */
int skip_match = FALSE;
/* /*
* The new text is build up step by step, to avoid too much * The new text is build up step by step, to avoid too much
@ -3822,6 +3823,11 @@ do_sub(eap)
&& regmatch.endpos[0].lnum == 0 && regmatch.endpos[0].lnum == 0
&& matchcol == regmatch.endpos[0].col) && matchcol == regmatch.endpos[0].col)
{ {
if (sub_firstline[matchcol] == NUL)
/* We already were at the end of the line. Don't look
* for a match in this line again. */
skip_match = TRUE;
else
++matchcol; /* search for a match at next column */ ++matchcol; /* search for a match at next column */
goto skip; goto skip;
} }
@ -4114,9 +4120,12 @@ skip:
/* We already know that we did the last subst when we are at /* We already know that we did the last subst when we are at
* the end of the line, except that a pattern like * the end of the line, except that a pattern like
* "bar\|\nfoo" may match at the NUL. */ * "bar\|\nfoo" may match at the NUL. */
lastone = ((sub_firstline[matchcol] == NUL && nmatch <= 1 lastone = (skip_match
&& !re_multiline(regmatch.regprog)) || got_int
|| got_int || got_quit || !(do_all || do_again)); || got_quit
|| !(do_all || do_again)
|| (sub_firstline[matchcol] == NUL && nmatch <= 1
&& !re_multiline(regmatch.regprog)));
nmatch = -1; nmatch = -1;
/* /*

1281
src/ex_cmds2.c
View File

File diff suppressed because it is too large Load Diff

97
src/ex_getln.c
View File

@ -80,6 +80,7 @@ static void correct_cmdspos __ARGS((int idx, int cells));
static void alloc_cmdbuff __ARGS((int len)); static void alloc_cmdbuff __ARGS((int len));
static int realloc_cmdbuff __ARGS((int len)); static int realloc_cmdbuff __ARGS((int len));
static void draw_cmdline __ARGS((int start, int len)); static void draw_cmdline __ARGS((int start, int len));
static int cmdline_paste __ARGS((int regname, int literally));
#if defined(FEAT_XIM) && defined(FEAT_GUI_GTK) #if defined(FEAT_XIM) && defined(FEAT_GUI_GTK)
static void redrawcmd_preedit __ARGS((void)); static void redrawcmd_preedit __ARGS((void));
#endif #endif
@ -2536,6 +2537,102 @@ put_on_cmdline(str, len, redraw)
return retval; return retval;
} }
/*
* paste a yank register into the command line.
* used by CTRL-R command in command-line mode
* insert_reg() can't be used here, because special characters from the
* register contents will be interpreted as commands.
*
* return FAIL for failure, OK otherwise
*/
static int
cmdline_paste(regname, literally)
int regname;
int literally; /* Insert text literally instead of "as typed" */
{
long i;
char_u *arg;
int allocated;
struct cmdline_info save_ccline;
/* check for valid regname; also accept special characters for CTRL-R in
* the command line */
if (regname != Ctrl_F && regname != Ctrl_P && regname != Ctrl_W
&& regname != Ctrl_A && !valid_yank_reg(regname, FALSE))
return FAIL;
/* A register containing CTRL-R can cause an endless loop. Allow using
* CTRL-C to break the loop. */
line_breakcheck();
if (got_int)
return FAIL;
#ifdef FEAT_CLIPBOARD
regname = may_get_selection(regname);
#endif
/* Need to save and restore ccline, because obtaining the "=" register may
* execute "normal :cmd" and overwrite it. */
save_ccline = ccline;
ccline.cmdbuff = NULL;
ccline.cmdprompt = NULL;
i = get_spec_reg(regname, &arg, &allocated, TRUE);
ccline = save_ccline;
if (i)
{
/* Got the value of a special register in "arg". */
if (arg == NULL)
return FAIL;
cmdline_paste_str(arg, literally);
if (allocated)
vim_free(arg);
return OK;
}
return cmdline_paste_reg(regname, literally);
}
/*
* Put a string on the command line.
* When "literally" is TRUE, insert literally.
* When "literally" is FALSE, insert as typed, but don't leave the command
* line.
*/
void
cmdline_paste_str(s, literally)
char_u *s;
int literally;
{
int c, cv;
if (literally)
put_on_cmdline(s, -1, TRUE);
else
while (*s != NUL)
{
cv = *s;
if (cv == Ctrl_V && s[1])
++s;
#ifdef FEAT_MBYTE
if (has_mbyte)
{
c = mb_ptr2char(s);
s += mb_char2len(c);
}
else
#endif
c = *s++;
if (cv == Ctrl_V || c == ESC || c == Ctrl_C || c == CAR || c == NL
#ifdef UNIX
|| c == intr_char
#endif
|| (c == Ctrl_BSL && *s == Ctrl_N))
stuffcharReadbuff(Ctrl_V);
stuffcharReadbuff(c);
}
}
#ifdef FEAT_WILDMENU #ifdef FEAT_WILDMENU
/* /*
* Delete characters on the command line, from "from" to the current * Delete characters on the command line, from "from" to the current

24
src/globals.h
View File

@ -1102,6 +1102,30 @@ EXTERN option_table_T printer_opts[OPT_PRINT_NUM_OPTIONS]
# define PRT_UNIT_MM 2 # define PRT_UNIT_MM 2
# define PRT_UNIT_POINT 3 # define PRT_UNIT_POINT 3
# define PRT_UNIT_NAMES {"pc", "in", "mm", "pt"} # define PRT_UNIT_NAMES {"pc", "in", "mm", "pt"}
# ifdef FEAT_MBYTE
# define OPT_MBFONT_USECOURIER 0
# define OPT_MBFONT_ASCII 1
# define OPT_MBFONT_REGULAR 2
# define OPT_MBFONT_BOLD 3
# define OPT_MBFONT_OBLIQUE 4
# define OPT_MBFONT_BOLDOBLIQUE 5
# define OPT_MBFONT_NUM_OPTIONS 6
#
EXTERN option_table_T mbfont_opts[OPT_MBFONT_NUM_OPTIONS]
# ifdef DO_INIT
=
{
{"c", FALSE, 0, NULL, 0, FALSE},
{"a", FALSE, 0, NULL, 0, FALSE},
{"r", FALSE, 0, NULL, 0, FALSE},
{"b", FALSE, 0, NULL, 0, FALSE},
{"i", FALSE, 0, NULL, 0, FALSE},
{"o", FALSE, 0, NULL, 0, FALSE},
}
# endif
;
# endif
#endif #endif
#ifdef FEAT_XCLIPBOARD #ifdef FEAT_XCLIPBOARD

34
src/if_mzsch.c
View File

@ -21,17 +21,6 @@
* 3. I don't use K&R-style functions. Anyway, MzScheme headers are ANSI. * 3. I don't use K&R-style functions. Anyway, MzScheme headers are ANSI.
*/ */
/* TODO
* way to catch Vim errors (incl. verbose messages)
* libmzscheme.dll dynamic loading
* macros to pass modifiers (e.g. (browse edit))
* opportunity to use shared mzscheme libraries on Unix
* event on-change-mode
* Scheme-driven coloring
* global exn-handler
* embed Read-Eval-Print-Loop
*/
#include "vim.h" #include "vim.h"
#include "if_mzsch.h" #include "if_mzsch.h"
@ -44,7 +33,6 @@ typedef struct
Scheme_Type tag; Scheme_Type tag;
Scheme_Env *env; Scheme_Env *env;
buf_T *buf; buf_T *buf;
Scheme_Object *text_objects;
} vim_mz_buffer; } vim_mz_buffer;
#define INVALID_BUFFER_VALUE ((buf_T *)(-1)) #define INVALID_BUFFER_VALUE ((buf_T *)(-1))
@ -2077,20 +2065,6 @@ win_T *get_valid_window(void *obj)
return win; return win;
} }
#if 0
int
mzvim_bufferp(Scheme_Object *obj)
{
return SCHEME_VIMBUFFERP(obj);
}
int
mzvim_windowp(Scheme_Object *obj)
{
return SCHEME_VIMWINDOWP(obj);
}
#endif
int int
mzthreads_allowed(void) mzthreads_allowed(void)
{ {
@ -2215,14 +2189,6 @@ get_vim_curr_window(void)
return (vim_mz_window *)curwin->mzscheme_ref; return (vim_mz_window *)curwin->mzscheme_ref;
} }
#if 0
char *
mzscheme_version(void)
{
return scheme_version();
}
#endif
static void static void
make_modules(Scheme_Env *env) make_modules(Scheme_Env *env)
{ {

88
src/ops.c
View File

@ -94,13 +94,10 @@ struct block_def
static void shift_block __ARGS((oparg_T *oap, int amount)); static void shift_block __ARGS((oparg_T *oap, int amount));
static void block_insert __ARGS((oparg_T *oap, char_u *s, int b_insert, struct block_def*bdp)); static void block_insert __ARGS((oparg_T *oap, char_u *s, int b_insert, struct block_def*bdp));
#endif #endif
static void get_yank_register __ARGS((int regname, int writing));
static int stuff_yank __ARGS((int, char_u *)); static int stuff_yank __ARGS((int, char_u *));
static void put_reedit_in_typebuf __ARGS((void)); static void put_reedit_in_typebuf __ARGS((void));
static int put_in_typebuf __ARGS((char_u *s, int colon)); static int put_in_typebuf __ARGS((char_u *s, int colon));
static void stuffescaped __ARGS((char_u *arg, int literally)); static void stuffescaped __ARGS((char_u *arg, int literally));
static int get_spec_reg __ARGS((int regname, char_u **argp, int *allocated, int errmsg));
static void cmdline_paste_str __ARGS((char_u *s, int literally));
#ifdef FEAT_MBYTE #ifdef FEAT_MBYTE
static void mb_adjust_opend __ARGS((oparg_T *oap)); static void mb_adjust_opend __ARGS((oparg_T *oap));
#endif #endif
@ -820,7 +817,7 @@ valid_yank_reg(regname, writing)
* If regname is 0 and writing, use register 0 * If regname is 0 and writing, use register 0
* If regname is 0 and reading, use previous register * If regname is 0 and reading, use previous register
*/ */
static void void
get_yank_register(regname, writing) get_yank_register(regname, writing)
int regname; int regname;
int writing; int writing;
@ -864,14 +861,12 @@ get_yank_register(regname, writing)
y_previous = y_current; y_previous = y_current;
} }
#ifdef FEAT_CLIPBOARD #if defined(FEAT_CLIPBOARD) || defined(PROTO)
/* /*
* When "regname" is a clipboard register, obtain the selection. If it's not * When "regname" is a clipboard register, obtain the selection. If it's not
* available return zero, otherwise return "regname". * available return zero, otherwise return "regname".
*/ */
static int may_get_selection __ARGS((int regname)); int
static int
may_get_selection(regname) may_get_selection(regname)
int regname; int regname;
{ {
@ -1347,7 +1342,7 @@ stuffescaped(arg, literally)
/* /*
* If "regname" is a special register, return a pointer to its value. * If "regname" is a special register, return a pointer to its value.
*/ */
static int int
get_spec_reg(regname, argp, allocated, errmsg) get_spec_reg(regname, argp, allocated, errmsg)
int regname; int regname;
char_u **argp; char_u **argp;
@ -1426,47 +1421,20 @@ get_spec_reg(regname, argp, allocated, errmsg)
} }
/* /*
* paste a yank register into the command line. * Paste a yank register into the command line.
* used by CTRL-R command in command-line mode * Only for non-special registers.
* Used by CTRL-R command in command-line mode
* insert_reg() can't be used here, because special characters from the * insert_reg() can't be used here, because special characters from the
* register contents will be interpreted as commands. * register contents will be interpreted as commands.
* *
* return FAIL for failure, OK otherwise * return FAIL for failure, OK otherwise
*/ */
int int
cmdline_paste(regname, literally) cmdline_paste_reg(regname, literally)
int regname; int regname;
int literally; /* Insert text literally instead of "as typed" */ int literally; /* Insert text literally instead of "as typed" */
{ {
long i; long i;
char_u *arg;
int allocated;
/* check for valid regname; also accept special characters for CTRL-R in
* the command line */
if (regname != Ctrl_F && regname != Ctrl_P && regname != Ctrl_W
&& regname != Ctrl_A && !valid_yank_reg(regname, FALSE))
return FAIL;
/* A register containing CTRL-R can cause an endless loop. Allow using
* CTRL-C to break the loop. */
line_breakcheck();
if (got_int)
return FAIL;
#ifdef FEAT_CLIPBOARD
regname = may_get_selection(regname);
#endif
if (get_spec_reg(regname, &arg, &allocated, TRUE))
{
if (arg == NULL)
return FAIL;
cmdline_paste_str(arg, literally);
if (allocated)
vim_free(arg);
return OK;
}
get_yank_register(regname, FALSE); get_yank_register(regname, FALSE);
if (y_current->y_array == NULL) if (y_current->y_array == NULL)
@ -1489,46 +1457,6 @@ cmdline_paste(regname, literally)
return OK; return OK;
} }
/*
* Put a string on the command line.
* When "literally" is TRUE, insert literally.
* When "literally" is FALSE, insert as typed, but don't leave the command
* line.
*/
static void
cmdline_paste_str(s, literally)
char_u *s;
int literally;
{
int c, cv;
if (literally)
put_on_cmdline(s, -1, TRUE);
else
while (*s != NUL)
{
cv = *s;
if (cv == Ctrl_V && s[1])
++s;
#ifdef FEAT_MBYTE
if (has_mbyte)
{
c = mb_ptr2char(s);
s += mb_char2len(c);
}
else
#endif
c = *s++;
if (cv == Ctrl_V || c == ESC || c == Ctrl_C || c == CAR || c == NL
#ifdef UNIX
|| c == intr_char
#endif
|| (c == Ctrl_BSL && *s == Ctrl_N))
stuffcharReadbuff(Ctrl_V);
stuffcharReadbuff(c);
}
}
#if defined(FEAT_CLIPBOARD) || defined(PROTO) #if defined(FEAT_CLIPBOARD) || defined(PROTO)
/* /*
* Adjust the register name pointed to with "rp" for the clipboard being * Adjust the register name pointed to with "rp" for the clipboard being

23
src/option.c
View File

@ -1676,6 +1676,24 @@ static struct vimoption
#else #else
(char_u *)NULL, PV_NONE, (char_u *)NULL, PV_NONE,
{(char_u *)NULL, (char_u *)0L} {(char_u *)NULL, (char_u *)0L}
#endif
},
{"printmbcharset", "pmbcs", P_STRING|P_VI_DEF,
#if defined(FEAT_POSTSCRIPT) && defined(FEAT_MBYTE)
(char_u *)&p_pmcs, PV_NONE,
{(char_u *)"", (char_u *)0L}
#else
(char_u *)NULL, PV_NONE,
{(char_u *)NULL, (char_u *)0L}
#endif
},
{"printmbfont", "pmbfn", P_STRING|P_VI_DEF,
#if defined(FEAT_POSTSCRIPT) && defined(FEAT_MBYTE)
(char_u *)&p_pmfn, PV_NONE,
{(char_u *)"", (char_u *)0L}
#else
(char_u *)NULL, PV_NONE,
{(char_u *)NULL, (char_u *)0L}
#endif #endif
}, },
{"printoptions", "popt", P_STRING|P_VI_DEF|P_COMMA|P_NODUP, {"printoptions", "popt", P_STRING|P_VI_DEF|P_COMMA|P_NODUP,
@ -5283,6 +5301,11 @@ did_set_string_option(opt_idx, varp, new_value_alloced, oldval, errbuf,
#ifdef FEAT_PRINTER #ifdef FEAT_PRINTER
else if (varp == &p_popt) else if (varp == &p_popt)
errmsg = parse_list_options(p_popt, printer_opts, OPT_PRINT_NUM_OPTIONS); errmsg = parse_list_options(p_popt, printer_opts, OPT_PRINT_NUM_OPTIONS);
# ifdef FEAT_MBYTE
else if (varp == &p_pmfn)
errmsg = parse_list_options(p_pmfn, mbfont_opts, OPT_MBFONT_NUM_OPTIONS);
# endif
#endif #endif
#ifdef FEAT_LANGMAP #ifdef FEAT_LANGMAP

4
src/option.h
View File

@ -451,6 +451,10 @@ EXTERN char_u *p_pdev; /* 'printdevice' */
# ifdef FEAT_POSTSCRIPT # ifdef FEAT_POSTSCRIPT
EXTERN char_u *p_penc; /* 'printencoding' */ EXTERN char_u *p_penc; /* 'printencoding' */
EXTERN char_u *p_pexpr; /* 'printexpr' */ EXTERN char_u *p_pexpr; /* 'printexpr' */
# ifdef FEAT_MBYTE
EXTERN char_u *p_pmfn; /* 'printmbfont' */
EXTERN char_u *p_pmcs; /* 'printmbcharset' */
# endif
# endif # endif
EXTERN char_u *p_pfn; /* 'printfont' */ EXTERN char_u *p_pfn; /* 'printfont' */
EXTERN char_u *p_popt; /* 'printoptions' */ EXTERN char_u *p_popt; /* 'printoptions' */

50
src/os_mac.c
View File

@ -1320,8 +1320,8 @@ mch_copy_file_attribute(from, to)
short temp; short temp;
/* TODO: Handle error */ /* TODO: Handle error */
(void) GetFSSpecFromPath (from, &frFSSpec); (void)GetFSSpecFromPath(from, &frFSSpec);
(void) GetFSSpecFromPath (to , &toFSSpec); (void)GetFSSpecFromPath(to , &toFSSpec);
/* Copy resource fork */ /* Copy resource fork */
temp = 0; temp = 0;
@ -1332,15 +1332,15 @@ mch_copy_file_attribute(from, to)
if (frRFid != -1) if (frRFid != -1)
{ {
FSpCreateResFile(&toFSSpec, 'TEXT', UNKNOWN_CREATOR, 0); FSpCreateResFile(&toFSSpec, 'TEXT', UNKNOWN_CREATOR, 0);
toRFid = FSpOpenResFile (&toFSSpec, fsRdWrPerm); toRFid = FSpOpenResFile(&toFSSpec, fsRdWrPerm);
UseResFile (frRFid); UseResFile(frRFid);
nbTypes = Count1Types(); nbTypes = Count1Types();
for (idxTypes = 1; idxTypes <= nbTypes; idxTypes++) for (idxTypes = 1; idxTypes <= nbTypes; idxTypes++)
{ {
Get1IndType (&type, idxTypes); Get1IndType(&type, idxTypes);
nbResources = Count1Resources(type); nbResources = Count1Resources(type);
for (idxResources = 1; idxResources <= nbResources; idxResources++) for (idxResources = 1; idxResources <= nbResources; idxResources++)
@ -1348,35 +1348,35 @@ mch_copy_file_attribute(from, to)
attrs_orig = 0; /* in case GetRes fails */ attrs_orig = 0; /* in case GetRes fails */
attrs_copy = 0; /* in case GetRes fails */ attrs_copy = 0; /* in case GetRes fails */
resource = Get1IndResource(type, idxResources); resource = Get1IndResource(type, idxResources);
GetResInfo (resource, &ID, &sink, name); GetResInfo(resource, &ID, &sink, name);
HLock (resource); HLock(resource);
attrs_orig = GetResAttrs (resource); attrs_orig = GetResAttrs(resource);
DetachResource (resource); DetachResource(resource);
UseResFile (toRFid); UseResFile(toRFid);
AddResource (resource, type, ID, name); AddResource(resource, type, ID, name);
attrs_copy = GetResAttrs (resource); attrs_copy = GetResAttrs(resource);
attrs_copy = (attrs_copy & 0x2) | (attrs_orig & 0xFD); attrs_copy = (attrs_copy & 0x2) | (attrs_orig & 0xFD);
SetResAttrs (resource, attrs_copy); SetResAttrs(resource, attrs_copy);
WriteResource (resource); WriteResource(resource);
UpdateResFile (toRFid); UpdateResFile(toRFid);
temp = GetResAttrs (resource); temp = GetResAttrs(resource);
/*SetResAttrs (resource, 0);*/ /*SetResAttrs (resource, 0);*/
HUnlock(resource); HUnlock(resource);
ReleaseResource (resource); ReleaseResource(resource);
UseResFile (frRFid); UseResFile(frRFid);
} }
} }
CloseResFile (toRFid); CloseResFile(toRFid);
CloseResFile (frRFid); CloseResFile(frRFid);
} }
#endif #endif
/* Copy Finder Info */ /* Copy Finder Info */
(void) FSpGetFInfo (&frFSSpec, &fndrInfo); (void)FSpGetFInfo(&frFSSpec, &fndrInfo);
(void) FSpSetFInfo (&toFSSpec, &fndrInfo); (void)FSpSetFInfo(&toFSSpec, &fndrInfo);
return (temp == attrs_copy); return (temp == attrs_copy);
} }
@ -1389,10 +1389,10 @@ mch_has_resource_fork (file)
short fileRFid; short fileRFid;
/* TODO: Handle error */ /* TODO: Handle error */
(void) GetFSSpecFromPath (file, &fileFSSpec); (void)GetFSSpecFromPath(file, &fileFSSpec);
fileRFid = FSpOpenResFile (&fileFSSpec, fsCurPerm); fileRFid = FSpOpenResFile(&fileFSSpec, fsCurPerm);
if (fileRFid != -1) if (fileRFid != -1)
CloseResFile (fileRFid); CloseResFile(fileRFid);
return (fileRFid != -1); return (fileRFid != -1);
} }

1
src/proto/ex_getln.pro
View File

@ -9,6 +9,7 @@ colnr_T cmdline_getvcol_cursor __ARGS((void));
void putcmdline __ARGS((int c, int shift)); void putcmdline __ARGS((int c, int shift));
void unputcmdline __ARGS((void)); void unputcmdline __ARGS((void));
int put_on_cmdline __ARGS((char_u *str, int len, int redraw)); int put_on_cmdline __ARGS((char_u *str, int len, int redraw));
void cmdline_paste_str __ARGS((char_u *s, int literally));
void redrawcmdline __ARGS((void)); void redrawcmdline __ARGS((void));
void redrawcmd __ARGS((void)); void redrawcmd __ARGS((void));
void compute_cmdrow __ARGS((void)); void compute_cmdrow __ARGS((void));

5
src/proto/ops.pro
View File

@ -10,13 +10,16 @@ int get_expr_register __ARGS((void));
void set_expr_line __ARGS((char_u *new_line)); void set_expr_line __ARGS((char_u *new_line));
char_u *get_expr_line __ARGS((void)); char_u *get_expr_line __ARGS((void));
int valid_yank_reg __ARGS((int regname, int writing)); int valid_yank_reg __ARGS((int regname, int writing));
void get_yank_register __ARGS((int regname, int writing));
int may_get_selection __ARGS((int regname));
void *get_register __ARGS((int name, int copy)); void *get_register __ARGS((int name, int copy));
void put_register __ARGS((int name, void *reg)); void put_register __ARGS((int name, void *reg));
int yank_register_mline __ARGS((int regname)); int yank_register_mline __ARGS((int regname));
int do_record __ARGS((int c)); int do_record __ARGS((int c));
int do_execreg __ARGS((int regname, int colon, int addcr)); int do_execreg __ARGS((int regname, int colon, int addcr));
int insert_reg __ARGS((int regname, int literally)); int insert_reg __ARGS((int regname, int literally));
int cmdline_paste __ARGS((int regname, int literally)); int get_spec_reg __ARGS((int regname, char_u **argp, int *allocated, int errmsg));
int cmdline_paste_reg __ARGS((int regname, int literally));
void adjust_clip_reg __ARGS((int *rp)); void adjust_clip_reg __ARGS((int *rp));
int op_delete __ARGS((oparg_T *oap)); int op_delete __ARGS((oparg_T *oap));
int op_replace __ARGS((oparg_T *oap, int c)); int op_replace __ARGS((oparg_T *oap, int c));