docs: Remove EBCDIC remnants

This commit is contained in:
Michael Reed 2014-12-08 20:26:55 -05:00
parent 33b459b672
commit 365cf90efb
11 changed files with 17 additions and 101 deletions

View File

@ -6688,7 +6688,6 @@ digraphs Compiled with support for digraphs.
dnd Compiled with support for the "~ register |quote_~|. dnd Compiled with support for the "~ register |quote_~|.
dos16 16 bits DOS version of Vim. dos16 16 bits DOS version of Vim.
dos32 32 bits DOS (DJGPP) version of Vim. dos32 32 bits DOS (DJGPP) version of Vim.
ebcdic Compiled on a machine with ebcdic character set.
emacs_tags Compiled with support for Emacs tags. emacs_tags Compiled with support for Emacs tags.
eval Compiled with expression evaluation support. Always eval Compiled with expression evaluation support. Always
true, of course! true, of course!

View File

@ -276,8 +276,7 @@ u Unicode Universal encoding, can replace all others. ISO 10646.
Other encodings cannot be used by Vim internally. But files in other Other encodings cannot be used by Vim internally. But files in other
encodings can be edited by using conversion, see 'fileencoding'. encodings can be edited by using conversion, see 'fileencoding'.
Note that all encodings must use ASCII for the characters up to 128 (except Note that all encodings must use ASCII for the characters up to 128.
when compiled for EBCDIC).
Supported 'encoding' values are: *encoding-values* Supported 'encoding' values are: *encoding-values*
1 latin1 8-bit characters (ISO 8859-1, also used for cp1252) 1 latin1 8-bit characters (ISO 8859-1, also used for cp1252)

View File

@ -96,8 +96,7 @@ If the option is empty, then vim will use the system default printer for
Windows: cp1252, Windows: cp1252,
Macintosh: mac-roman, Macintosh: mac-roman,
VMS: dec-mcs, VMS: dec-mcs,
HPUX: hp-roman8, HPUX: hp-roman8)
EBCDIC: ebcdic-uk)
global global
Sets the character encoding used when printing. This option tells VIM which Sets the character encoding used when printing. This option tells VIM which
print character encoding file from the "print" directory in 'runtimepath' to print character encoding file from the "print" directory in 'runtimepath' to
@ -121,10 +120,9 @@ 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 If no conversion is possible then printing will fail. Any characters that
cannot be converted will be replaced with upside down question marks. cannot be converted will be replaced with upside down question marks.
Four print character encoding files are provided to support default Mac, VMS, Three print character encoding files are provided to support default Mac, VMS,
HPUX, and EBCDIC character encodings and are used by default on these and HPUX character encodings and are used by default on these platforms. Code
platforms. Code page 1252 print character encoding is used by default on page 1252 print character encoding is used by default on the Windows platform.
the Windows platform.
*pexpr-option* *pexpr-option*
'printexpr' 'pexpr' String (default: see below) 'printexpr' 'pexpr' String (default: see below)

View File

@ -336,8 +336,6 @@ If 'encoding' is "latin1" Vim will look for:
This assumes none of them are found (Polish doesn't make sense when leaving This assumes none of them are found (Polish doesn't make sense when leaving
out the non-ASCII characters). out the non-ASCII characters).
Spelling for EBCDIC is currently not supported.
A spell file might not be available in the current 'encoding'. See A spell file might not be available in the current 'encoding'. See
|spell-mkspell| about how to create a spell file. Converting a spell file |spell-mkspell| about how to create a spell file. Converting a spell file
with "iconv" will NOT work! with "iconv" will NOT work!

View File

@ -697,21 +697,13 @@ endfunc
func! s:BMHash(name) func! s:BMHash(name)
" Make name all upper case, so that chars are between 32 and 96 " Make name all upper case, so that chars are between 32 and 96
let nm = substitute(a:name, ".*", '\U\0', "") let nm = substitute(a:name, ".*", '\U\0', "")
if has("ebcdic")
" HACK: Replace all non alphabetics with 'Z'
" Just to make it work for now.
let nm = substitute(nm, "[^A-Z]", 'Z', "g")
let sp = char2nr('A') - 1
else
let sp = char2nr(' ') let sp = char2nr(' ')
endif
" convert first six chars into a number for sorting: " convert first six chars into a number for sorting:
return (char2nr(nm[0]) - sp) * 0x800000 + (char2nr(nm[1]) - sp) * 0x20000 + (char2nr(nm[2]) - sp) * 0x1000 + (char2nr(nm[3]) - sp) * 0x80 + (char2nr(nm[4]) - sp) * 0x20 + (char2nr(nm[5]) - sp) return (char2nr(nm[0]) - sp) * 0x800000 + (char2nr(nm[1]) - sp) * 0x20000 + (char2nr(nm[2]) - sp) * 0x1000 + (char2nr(nm[3]) - sp) * 0x80 + (char2nr(nm[4]) - sp) * 0x20 + (char2nr(nm[5]) - sp)
endfunc endfunc
func! s:BMHash2(name) func! s:BMHash2(name)
let nm = substitute(a:name, ".", '\L\0', "") let nm = substitute(a:name, ".", '\L\0', "")
" Not exactly right for EBCDIC...
if nm[0] < 'a' || nm[0] > 'z' if nm[0] < 'a' || nm[0] > 'z'
return '&others.' return '&others.'
elseif nm[0] <= 'd' elseif nm[0] <= 'd'

View File

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

View File

@ -19,15 +19,9 @@ if has("conceal")
else else
syn region helpExample matchgroup=helpIgnore start=" >$" start="^>$" end="^[^ \t]"me=e-1 end="^<" syn region helpExample matchgroup=helpIgnore start=" >$" start="^>$" end="^[^ \t]"me=e-1 end="^<"
endif endif
if has("ebcdic") syn match helpHyperTextJump "\\\@<!|[#-)!+-~]\+|" contains=helpBar
syn match helpHyperTextJump "\\\@<!|[^"*|]\+|" contains=helpBar syn match helpHyperTextEntry "\*[#-)!+-~]\+\*\s"he=e-1 contains=helpStar
syn match helpHyperTextEntry "\*[^"*|]\+\*\s"he=e-1 contains=helpStar syn match helpHyperTextEntry "\*[#-)!+-~]\+\*$" contains=helpStar
syn match helpHyperTextEntry "\*[^"*|]\+\*$" contains=helpStar
else
syn match helpHyperTextJump "\\\@<!|[#-)!+-~]\+|" contains=helpBar
syn match helpHyperTextEntry "\*[#-)!+-~]\+\*\s"he=e-1 contains=helpStar
syn match helpHyperTextEntry "\*[#-)!+-~]\+\*$" contains=helpStar
endif
if has("conceal") if has("conceal")
syn match helpBar contained "|" conceal syn match helpBar contained "|" conceal
syn match helpBacktick contained "`" conceal syn match helpBacktick contained "`" conceal

View File

@ -49,12 +49,8 @@ syn match sedReplaceMeta "&\|\\\($\|.\)" contains=sedTab contained
" Metacharacters: $ * . \ ^ [ ~ " Metacharacters: $ * . \ ^ [ ~
" @ is used as delimiter and treated on its own below " @ is used as delimiter and treated on its own below
let __at = char2nr("@") let __at = char2nr("@")
let __sed_i = char2nr(" ") " ASCII: 32, EBCDIC: 64 let __sed_i = char2nr(" ") " ASCII: 32
if has("ebcdic") let __sed_last = 126
let __sed_last = 255
else
let __sed_last = 126
endif
let __sed_metacharacters = '$*.\^[~' let __sed_metacharacters = '$*.\^[~'
while __sed_i <= __sed_last while __sed_i <= __sed_last
let __sed_delimiter = escape(nr2char(__sed_i), __sed_metacharacters) let __sed_delimiter = escape(nr2char(__sed_i), __sed_metacharacters)
@ -105,7 +101,7 @@ if version >= 508 || !exists("did_sed_syntax_inits")
if exists("highlight_sedtabs") if exists("highlight_sedtabs")
HiLink sedTab Todo HiLink sedTab Todo
endif endif
let __sed_i = char2nr(" ") " ASCII: 32, EBCDIC: 64 let __sed_i = char2nr(" ") " ASCII: 32
while __sed_i <= __sed_last while __sed_i <= __sed_last
exe "HiLink sedRegexp".__sed_i "Macro" exe "HiLink sedRegexp".__sed_i "Macro"
exe "HiLink sedReplacement".__sed_i "NONE" exe "HiLink sedReplacement".__sed_i "NONE"

View File

@ -13,11 +13,7 @@ vaBiBD:?Bug?,/Piece/-2w! test.out
:s/i/~u~/ :s/i/~u~/
:s/o/~~~/ :s/o/~~~/
:.w >>test.out :.w >>test.out
:if has("ebcdic") :let tt = "o\<C-V>65\<C-V>x42\<C-V>o103 \<C-V>33a\<C-V>xfg\<C-V>o78\<Esc>"
: let tt = "o\<C-V>193\<C-V>xc2\<C-V>o303 \<C-V>90a\<C-V>xfg\<C-V>o578\<Esc>"
:else
: let tt = "o\<C-V>65\<C-V>x42\<C-V>o103 \<C-V>33a\<C-V>xfg\<C-V>o78\<Esc>"
:endif
:exe "normal " . tt :exe "normal " . tt
:unlet tt :unlet tt
:.w >>test.out :.w >>test.out

View File

@ -4,11 +4,7 @@ Tests for:
STARTTEST STARTTEST
:so small.vim :so small.vim
:if has("ebcdic") :set isfname=@,48-57,/,.,-,_,+,,,$,:,~,{,}
: set isfname=@,240-249,/,.,-,_,+,,,$,:,~,{,}
:else
: set isfname=@,48-57,/,.,-,_,+,,,$,:,~,{,}
:endif
:function! DeleteDirectory(dir) :function! DeleteDirectory(dir)
: if has("win16") || has("win32") || has("win64") || has("dos16") || has("dos32") : if has("win16") || has("win32") || has("win64") || has("dos16") || has("dos32")
: exec "silent !rmdir /Q /S " . a:dir : exec "silent !rmdir /Q /S " . a:dir

View File

@ -13,11 +13,7 @@ describe(':execute, :while and :if', function()
let i = 0 let i = 0
while i < 12 while i < 12
let i = i + 1 let i = i + 1
if has("ebcdic")
execute "normal o" . i . "\047"
else
execute "normal o" . i . "\033" execute "normal o" . i . "\033"
endif
if i % 2 if i % 2
normal Ax normal Ax
if i == 9 if i == 9
@ -28,22 +24,14 @@ describe(':execute, :while and :if', function()
else else
let j = 9 let j = 9
while j > 0 while j > 0
if has("ebcdic")
execute "normal" j . "a" . j . "\x27"
else
execute "normal" j . "a" . j . "\x1b" execute "normal" j . "a" . j . "\x1b"
endif
let j = j - 1 let j = j - 1
endwhile endwhile
endif endif
endif endif
if i == 9 if i == 9
if has("ebcdic")
execute "normal Az\047"
else
execute "normal Az\033" execute "normal Az\033"
endif endif
endif
endwhile endwhile
unlet i j unlet i j
]]) ]])