Skip to content
Snippets Groups Projects
Commit 82038d73 authored by Bram Moolenaar's avatar Bram Moolenaar
Browse files

updated for version 7.1b

parent e34bd1f5
No related merge requests found
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" getscript.vim " getscript.vim
" Author: Charles E. Campbell, Jr. " Author: Charles E. Campbell, Jr.
" Date: Nov 27, 2006 " Date: May 05, 2007
" Version: 23 " Version: 25
" Installing: :help glvs-install " Installing: :help glvs-install
" Usage: :help glvs " Usage: :help glvs
" "
...@@ -15,14 +15,14 @@ if &cp ...@@ -15,14 +15,14 @@ if &cp
echoerr "GetLatestVimScripts is not vi-compatible; not loaded (you need to set nocp)" echoerr "GetLatestVimScripts is not vi-compatible; not loaded (you need to set nocp)"
finish finish
endif endif
let s:keepfo = &fo
let s:keepcpo = &cpo let s:keepcpo = &cpo
set cpo&vim set cpo&vim
"DechoTabOn
if exists("g:loaded_getscript") if exists("g:loaded_getscript")
finish finish
endif endif
let g:loaded_getscript= "v23" let g:loaded_getscript= "v25"
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" Global Variables: {{{1 " Global Variables: {{{1
...@@ -278,22 +278,28 @@ fun! s:GetOneScript(...) ...@@ -278,22 +278,28 @@ fun! s:GetOneScript(...)
" call Decho("attempting to do autoinstall: getcwd<".getcwd()."> filereadable(".fname.")=".filereadable(fname)) " call Decho("attempting to do autoinstall: getcwd<".getcwd()."> filereadable(".fname.")=".filereadable(fname))
if filereadable(fname) if filereadable(fname)
" call Decho("move <".fname."> to ".s:autoinstall) " call Decho("move <".fname."> to ".s:autoinstall)
" call Decho("DISABLED for testing")
exe "silent !".g:GetLatestVimScripts_mv." ".fname." ".s:autoinstall exe "silent !".g:GetLatestVimScripts_mv." ".fname." ".s:autoinstall
let curdir= escape(substitute(getcwd(),'\','/','ge'),"|[]*'\" #") let curdir= escape(substitute(getcwd(),'\','/','ge'),"|[]*'\" #")
" call Decho("exe cd ".s:autoinstall)
exe "cd ".s:autoinstall exe "cd ".s:autoinstall
" decompress
if fname =~ '\.bz2$' if fname =~ '\.bz2$'
" call Decho("attempt to bunzip2 ".fname) " call Decho("attempt to bunzip2 ".fname)
exe "silent !bunzip2 ".fname exe "silent !bunzip2 ".fname
let fname= substitute(fname,'\.bz2$','','') let fname= substitute(fname,'\.bz2$','','')
" call Decho("new fname<".fname."> after bunzip2")
elseif fname =~ '\.gz$' elseif fname =~ '\.gz$'
" call Decho("attempt to gunzip ".fname) " call Decho("attempt to gunzip ".fname)
exe "silent !gunzip ".fname exe "silent !gunzip ".fname
let fname= substitute(fname,'\.gz$','','') let fname= substitute(fname,'\.gz$','','')
" call Decho("new fname<".fname."> after gunzip")
endif endif
" distribute archive(.zip, .tar, .vba) contents
if fname =~ '\.zip$' if fname =~ '\.zip$'
" call Decho("attempt to unzip ".fname) " call Decho("attempt to unzip ".fname)
exe "silent !unzip -o".fname exe "silent !unzip -o ".fname
elseif fname =~ '\.tar$' elseif fname =~ '\.tar$'
" call Decho("attempt to untar ".fname) " call Decho("attempt to untar ".fname)
exe "silent !tar -xvf ".fname exe "silent !tar -xvf ".fname
...@@ -304,10 +310,13 @@ fun! s:GetOneScript(...) ...@@ -304,10 +310,13 @@ fun! s:GetOneScript(...)
so % so %
q q
endif endif
if fname =~ '.vim$' if fname =~ '.vim$'
" call Decho("attempt to simply move ".fname." to plugin") " call Decho("attempt to simply move ".fname." to plugin")
exe "silent !".g:GetLatestVimScripts_mv." ".fname." plugin" exe "silent !".g:GetLatestVimScripts_mv." ".fname." plugin"
endif endif
" helptags step
let docdir= substitute(&rtp,',.*','','e')."/doc" let docdir= substitute(&rtp,',.*','','e')."/doc"
" call Decho("helptags docdir<".docdir.">") " call Decho("helptags docdir<".docdir.">")
exe "helptags ".docdir exe "helptags ".docdir
...@@ -318,7 +327,7 @@ fun! s:GetOneScript(...) ...@@ -318,7 +327,7 @@ fun! s:GetOneScript(...)
" update the data in the <GetLatestVimScripts.dat> file " update the data in the <GetLatestVimScripts.dat> file
let modline=scriptid." ".latestsrcid." ".fname.cmmnt let modline=scriptid." ".latestsrcid." ".fname.cmmnt
call setline(line("."),modline) call setline(line("."),modline)
" call Decho("modline<".modline."> (updated GetLatestVimScripts.dat file)") " call Decho("update data in ".expand("%")."#".line(".").": modline<".modline.">")
endif endif
" restore options " restore options
...@@ -351,10 +360,11 @@ fun! getscript#GetLatestVimScripts() ...@@ -351,10 +360,11 @@ fun! getscript#GetLatestVimScripts()
break break
endif endif
if filereadable(datadir."GetLatestVimScripts.dat") if filereadable(datadir."GetLatestVimScripts.dat")
" call Decho("found ".datadir."/GetLatestVimScripts.dat") " call Decho("found ".datadir."/GetLatestVimScripts.dat")
break break
endif endif
endfor endfor
" Sanity checks: readability and writability " Sanity checks: readability and writability
if datadir == "" if datadir == ""
echoerr 'Missing "GetLatest/" on your runtimepath - see :help glvs-dist-install' echoerr 'Missing "GetLatest/" on your runtimepath - see :help glvs-dist-install'
...@@ -399,63 +409,84 @@ fun! getscript#GetLatestVimScripts() ...@@ -399,63 +409,84 @@ fun! getscript#GetLatestVimScripts()
" call Decho(" ") " call Decho(" ")
" call Decho("searching plugins for GetLatestVimScripts dependencies") " call Decho("searching plugins for GetLatestVimScripts dependencies")
let lastline = line("$") let lastline = line("$")
let plugins = globpath(&rtp,"plugin/*.vim") " call Decho("lastline#".lastline)
let plugins = split(globpath(&rtp,"plugin/*.vim"))
let foundscript = 0 let foundscript = 0
let firstdir= ""
" call Decho("plugins<".plugins."> lastline#".lastline) for plugin in plugins
while plugins != ""
let plugin = substitute(plugins,'\n.*$','','e') " don't process plugins in system directories
let plugins= (plugins =~ '\n')? substitute(plugins,'^.\{-}\n\(.*\)$','\1','e') : "" if firstdir == ""
let firstdir= substitute(plugin,'[/\\][^/\\]\+$','','')
" call Decho("firstdir<".firstdir.">")
else
let curdir= substitute(plugin,'[/\\][^/\\]\+$','','')
" call Decho("curdir<".curdir.">")
if curdir != firstdir
break
endif
endif
" read plugin in
$ $
" call Decho(" ")
" call Decho(".dependency checking<".plugin."> line$=".line("$")) " call Decho(".dependency checking<".plugin."> line$=".line("$"))
exe "silent r ".plugin exe "silent r ".plugin
while search('^"\s\+GetLatestVimScripts:\s\+\d\+\s\+\d\+','W') != 0 while search('^"\s\+GetLatestVimScripts:\s\+\d\+\s\+\d\+','W') != 0
let newscript= substitute(getline("."),'^"\s\+GetLatestVimScripts:\s\+\d\+\s\+\d\+\s\+\(.*\)$','\1','e') let newscript= substitute(getline("."),'^"\s\+GetLatestVimScripts:\s\+\d\+\s\+\d\+\s\+\(.*\)$','\1','e')
let llp1 = lastline+1 let llp1 = lastline+1
" call Decho("..newscript<".newscript.">")
if newscript !~ '^"'
" found a "GetLatestVimScripts: # #" line in the script; check if its already in the datafile " don't process ""GetLatestVimScripts lines
let curline = line(".") if newscript !~ '^"'
let noai_script = substitute(newscript,'\s*:AutoInstall:\s*','','e') " found a "GetLatestVimScripts: # #" line in the script; check if its already in the datafile
exe llp1 let curline = line(".")
let srchline = search('\<'.noai_script.'\>','bW') let noai_script = substitute(newscript,'\s*:AutoInstall:\s*','','e')
" call Decho("..newscript<".newscript."> noai_script<".noai_script."> srch=".srchline." lastline=".lastline) exe llp1
let srchline = search('\<'.noai_script.'\>','bW')
if srchline == 0 " call Decho("..noai_script<".noai_script."> srch=".srchline."curline#".line(".")." lastline#".lastline)
" found a new script to permanently include in the datafile
let keep_rega = @a if srchline == 0
let @a = substitute(getline(curline),'^"\s\+GetLatestVimScripts:\s\+','','') " found a new script to permanently include in the datafile
exe lastline."put a" let keep_rega = @a
echomsg "Appending <".@a."> to ".datafile." for ".newscript let @a = substitute(getline(curline),'^"\s\+GetLatestVimScripts:\s\+','','')
" call Decho("..APPEND (".noai_script.")<".@a."> to GetLatestVimScripts.dat") exe lastline."put a"
let @a = keep_rega echomsg "Appending <".@a."> to ".datafile." for ".newscript
let lastline = llp1 " call Decho("..APPEND (".noai_script.")<".@a."> to GetLatestVimScripts.dat")
let curline = curline + 1 let @a = keep_rega
let foundscript = foundscript + 1 let lastline = llp1
" else " Decho let curline = curline + 1
" call Decho("..found <".noai_script."> (already in datafile at line#".srchline.")") let foundscript = foundscript + 1
endif " else " Decho
" call Decho("..found <".noai_script."> (already in datafile at line#".srchline.")")
let curline = curline + 1 endif
exe curline
endif let curline = curline + 1
exe curline
endif
endwhile endwhile
let llp1= lastline + 1 let llp1= lastline + 1
" call Decho(".deleting lines: ".llp1.",$d") " call Decho(".deleting lines: ".llp1.",$d")
exe "silent! ".llp1.",$d" exe "silent! ".llp1.",$d"
endwhile endfor
" call Decho("--- end dependency checking loop --- foundscript=".foundscript)
" call Decho(" ")
if foundscript == 0 if foundscript == 0
set nomod set nomod
endif endif
" Check on out-of-date scripts using GetLatest/GetLatestVimScripts.dat " Check on out-of-date scripts using GetLatest/GetLatestVimScripts.dat
" call Decho("begin: checking out-of-date scripts using datafile<".datafile.">")
set lz set lz
" call Decho(" --- end of dependency checking loop --- ")
" call Decho("call GetOneScript on lines at end of datafile<".datafile.">")
1 1
/^-----/,$g/^\s*\d/call <SID>GetOneScript() " /^-----/,$g/^\s*\d/call Decho(getline("."))
1
/^-----/,$g/^\s*\d/call s:GetOneScript()
" call Decho("--- end out-of-date checking --- ")
" Final report (an echomsg) " Final report (an echomsg)
try try
...@@ -495,7 +526,6 @@ endfun ...@@ -495,7 +526,6 @@ endfun
" --------------------------------------------------------------------- " ---------------------------------------------------------------------
" Restore Options: {{{1 " Restore Options: {{{1
let &fo = s:keepfo
let &cpo= s:keepcpo let &cpo= s:keepcpo
" vim: ts=8 sts=2 fdm=marker nowrap " vim: ts=8 sts=2 fdm=marker nowrap
*develop.txt* For Vim version 7.1a. Last change: 2006 Sep 26 *develop.txt* For Vim version 7.1b. Last change: 2007 May 08
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
...@@ -437,7 +437,7 @@ the best method is. Alternatives: ...@@ -437,7 +437,7 @@ the best method is. Alternatives:
seconds for English, which can be acceptable for interactive use. But for seconds for English, which can be acceptable for interactive use. But for
some languages it takes more than ten seconds (e.g., German, Catalan), some languages it takes more than ten seconds (e.g., German, Catalan),
which is unacceptable slow. For batch processing (automatic corrections) which is unacceptable slow. For batch processing (automatic corrections)
it's to slow for all languages. it's too slow for all languages.
2. Use a trie for the soundfolded words, so that searching can be done just 2. Use a trie for the soundfolded words, so that searching can be done just
like how it works without soundfolding. This requires remembering a list like how it works without soundfolding. This requires remembering a list
of good words for each soundfolded word. This makes finding matches very of good words for each soundfolded word. This makes finding matches very
...@@ -471,7 +471,7 @@ initialized from words listed in COMMON items in the affix file, so that it ...@@ -471,7 +471,7 @@ initialized from words listed in COMMON items in the affix file, so that it
also works when starting a new file. also works when starting a new file.
This isn't ideal, because the longer Vim is running the higher the counts This isn't ideal, because the longer Vim is running the higher the counts
become. But in practice it is a noticable improvement over not using the word become. But in practice it is a noticeable improvement over not using the word
count. count.
============================================================================== ==============================================================================
......
*digraph.txt* For Vim version 7.1a. Last change: 2006 Jul 18 *digraph.txt* For Vim version 7.1b. Last change: 2006 Jul 18
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
......
*editing.txt* For Vim version 7.1a. Last change: 2006 Oct 10 *editing.txt* For Vim version 7.1b. Last change: 2006 Oct 10
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
......
*if_pyth.txt* For Vim version 7.1a. Last change: 2006 Apr 30 *if_pyth.txt* For Vim version 7.1b. Last change: 2006 Apr 30
VIM REFERENCE MANUAL by Paul Moore VIM REFERENCE MANUAL by Paul Moore
......
*netbeans.txt* For Vim version 7.1a. Last change: 2006 Nov 14 *netbeans.txt* For Vim version 7.1b. Last change: 2006 Nov 14
VIM REFERENCE MANUAL by Gordon Prieur VIM REFERENCE MANUAL by Gordon Prieur
......
*os_beos.txt* For Vim version 7.1a. Last change: 2005 Mar 29 *os_beos.txt* For Vim version 7.1b. Last change: 2005 Mar 29
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
......
*quickref.txt* For Vim version 7.1a. Last change: 2006 Nov 18 *quickref.txt* For Vim version 7.1b. Last change: 2006 Nov 18
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
......
*sponsor.txt* For Vim version 7.1a. Last change: 2007 Jan 05 *sponsor.txt* For Vim version 7.1b. Last change: 2007 Jan 05
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
......
*uganda.txt* For Vim version 7.1a. Last change: 2007 Jan 05 *uganda.txt* For Vim version 7.1b. Last change: 2007 May 05
VIM REFERENCE MANUAL by Bram Moolenaar VIM REFERENCE MANUAL by Bram Moolenaar
...@@ -13,6 +13,7 @@ below or visit the ICCF web site, available at these URLs: ...@@ -13,6 +13,7 @@ below or visit the ICCF web site, available at these URLs:
http://iccf-holland.org/ http://iccf-holland.org/
http://www.vim.org/iccf/ http://www.vim.org/iccf/
http://www.iccf.nl/
You can also sponsor the development of Vim. Vim sponsors can vote for You can also sponsor the development of Vim. Vim sponsors can vote for
features. See |sponsor|. The money goes to Uganda anyway. features. See |sponsor|. The money goes to Uganda anyway.
......
No preview for this file type
" Vim syntax file " Vim syntax file
" Language: GNU Arch inventory file " Language: GNU Arch inventory file
" Maintainer: Nikolai Weibull <now@bitwi.se> " Maintainer: Nikolai Weibull <now@bitwi.se>
" Latest Revision: 2006-04-19 " Latest Revision: 2007-05-06
if exists("b:current_syntax") if exists("b:current_syntax")
finish finish
...@@ -17,7 +17,7 @@ syn keyword archTodo TODO FIXME XXX NOTE ...@@ -17,7 +17,7 @@ syn keyword archTodo TODO FIXME XXX NOTE
syn region archComment display start='^\%(#\|\s\)' end='$' syn region archComment display start='^\%(#\|\s\)' end='$'
\ contains=archTodo,@Spell \ contains=archTodo,@Spell
syn match argBegin display '^' nextgroup=archKeyword,archComment syn match archBegin display '^' nextgroup=archKeyword,archComment
syn keyword archKeyword contained implicit tagline explicit names syn keyword archKeyword contained implicit tagline explicit names
syn keyword archKeyword contained untagged-source syn keyword archKeyword contained untagged-source
......
" Vim syntax file
" Language: LiteStep RC file
" Maintainer: Nikolai Weibull <now@bitwi.se>
" Latest Revision: 2007-02-22
if exists("b:current_syntax")
finish
endif
let s:cpo_save = &cpo
set cpo&vim
syn keyword litestepTodo
\ contained
\ TODO FIXME XXX NOTE
syn match litestepComment
\ contained display contains=litestepTodo,@Spell
\ ';.*$'
syn case ignore
syn cluster litestepBeginnings
\ contains=
\ litestepComment,
\ litestepPreProc,
\ litestepMultiCommandStart,
\ litestepBangCommandStart,
\ litestepGenericDirective
syn match litestepGenericDirective
\ contained display
\ '\<\h\w\+\>'
syn match litestepBeginning
\ nextgroup=@litestepBeginnings skipwhite
\ '^'
syn keyword litestepPreProc
\ contained
\ Include
\ If
\ ElseIf
\ Else
\ EndIf
syn cluster litestepMultiCommands
\ contains=
\ litestepMultiCommand
syn match litestepMultiCommandStart
\ nextgroup=@litestepMultiCommands
\ '\*'
syn match litestepMultiCommand
\ contained display
\ '\<\h\w\+\>'
syn cluster litestepVariables
\ contains=
\ litestepBuiltinFolderVariable,
\ litestepBuiltinConditionalVariable,
\ litestepBuiltinResourceVariable,
\ litestepBuiltinGUIDFolderMappingVariable,
\ litestepVariable
syn region litestepVariableExpansion
\ display oneline transparent
\ contains=
\ @litestepVariables,
\ litestepNumber,
\ litestepMathOperator
\ matchgroup=litestepVariableExpansion
\ start='\$'
\ end='\$'
syn match litestepNumber
\ display
\ '\<\d\+\>'
syn region litestepString
\ display oneline contains=litestepVariableExpansion
\ start=+"+ end=+"+
" TODO: unsure about this one.
syn region litestepSubValue
\ display oneline contains=litestepVariableExpansion
\ start=+'+ end=+'+
syn keyword litestepBoolean
\ true
\ false
"syn keyword litestepLine
" \ ?
"syn match litestepColor
" \ display
" \ '\<\x\+\>'
syn match litestepRelationalOperator
\ display
\ '=\|<[>=]\=\|>=\='
syn keyword litestepLogicalOperator
\ and
\ or
\ not
syn match litestepMathOperator
\ contained display
\ '[+*/-]'
syn keyword litestepBuiltinDirective
\ LoadModule
\ LSNoStartup
\ LSAutoHideModules
\ LSNoShellWarning
\ LSSetAsShell
\ LSUseSystemDDE
\ LSDisableTrayService
\ LSImageFolder
\ ThemeAuthor
\ ThemeName
syn keyword litestepDeprecatedBuiltinDirective
\ LSLogLevel
\ LSLogFile
syn match litestepVariable
\ contained display
\ '\<\h\w\+\>'
syn keyword litestepBuiltinFolderVariable
\ contained
\ AdminToolsDir
\ CommonAdminToolsDir
\ CommonDesktopDir
\ CommonFavorites
\ CommonPrograms
\ CommonStartMenu
\ CommonStartup
\ Cookies
\ Desktop
\ DesktopDir
\ DocumentsDir
\ Favorites
\ Fonts
\ History
\ Internet
\ InternetCache
\ LitestepDir
\ Nethood
\ Printhood
\ Programs
\ QuickLaunch
\ Recent
\ Sendto
\ Startmenu
\ Startup
\ Templates
\ WinDir
\ LitestepDir
syn keyword litestepBuiltinConditionalVariable
\ contained
\ Win2000
\ Win95
\ Win98
\ Win9X
\ WinME
\ WinNT
\ WinNT4
\ WinXP
syn keyword litestepBuiltinResourceVariable
\ contained
\ CompileDate
\ ResolutionX
\ ResolutionY
\ UserName
syn keyword litestepBuiltinGUIDFolderMappingVariable
\ contained
\ AdminTools
\ BitBucket
\ Controls
\ Dialup
\ Documents
\ Drives
\ Network
\ NetworkAndDialup
\ Printers
\ Scheduled
syn cluster litestepBangs
\ contains=
\ litestepBuiltinBang,
\ litestepBang
syn match litestepBangStart
\ nextgroup=@litestepBangs
\ '!'
syn match litestepBang
\ contained display
\ '\<\h\w\+\>'
syn keyword litestepBuiltinBang
\ contained
\ About
\ Alert
\ CascadeWindows
\ Confirm
\ Execute
\ Gather
\ HideModules
\ LogOff
\ MinimizeWindows
\ None
\ Quit
\ Recycle
\ Refresh
\ Reload
\ ReloadModule
\ RestoreWindows
\ Run
\ ShowModules
\ Shutdown
\ Switchuser
\ TileWindowsH
\ TileWindowsV
\ ToggleModules
\ UnloadModule
hi def link litestepTodo Todo
hi def link litestepComment Comment
hi def link litestepDirective Keyword
hi def link litestepGenericDirective litestepDirective
hi def link litestepPreProc PreProc
hi def link litestepMultiCommandStart litestepPreProc
hi def link litestepMultiCommand litestepDirective
hi def link litestepDelimiter Delimiter
hi def link litestepVariableExpansion litestepDelimiter
hi def link litestepNumber Number
hi def link litestepString String
hi def link litestepSubValue litestepString
hi def link litestepBoolean Boolean
"hi def link litestepLine
"hi def link litestepColor Type
hi def link litestepOperator Operator
hi def link litestepRelationalOperator litestepOperator
hi def link litestepLogicalOperator litestepOperator
hi def link litestepMathOperator litestepOperator
hi def link litestepBuiltinDirective litestepDirective
hi def link litestepDeprecatedBuiltinDirective Error
hi def link litestepVariable Identifier
hi def link litestepBuiltinFolderVariable Identifier
hi def link litestepBuiltinConditionalVariable Identifier
hi def link litestepBuiltinResourceVariable Identifier
hi def link litestepBuiltinGUIDFolderMappingVariable Identifier
hi def link litestepBangStart litestepPreProc
hi def link litestepBang litestepDirective
hi def link litestepBuiltinBang litestepBang
let b:current_syntax = "litestep"
let &cpo = s:cpo_save
unlet s:cpo_save
...@@ -138,6 +138,6 @@ DEBUGGING THE GUI ...@@ -138,6 +138,6 @@ DEBUGGING THE GUI
Remember to prevent that gvim forks and the debugger thinks Vim has exited, Remember to prevent that gvim forks and the debugger thinks Vim has exited,
add the "-f" argument. In gdb: "run -f -g". add the "-f" argument. In gdb: "run -f -g".
When stepping through display updating code, the focus event is triggerred When stepping through display updating code, the focus event is triggered
when going from the debugger to Vim and back. To avoid this, recompile with when going from the debugger to Vim and back. To avoid this, recompile with
some code in gui_focus_change() disabled. some code in gui_focus_change() disabled.
...@@ -1031,8 +1031,8 @@ LookupName(dpy, name, delete, loose) ...@@ -1031,8 +1031,8 @@ LookupName(dpy, name, delete, loose)
} }
/* /*
* Delete any lingering occurences of window id. We promise that any * Delete any lingering occurrence of window id. We promise that any
* occurences is not ours since it is not yet put into the registry (by us) * occurrence is not ours since it is not yet put into the registry (by us)
* *
* This is necessary in the following scenario: * This is necessary in the following scenario:
* 1. There is an old windowid for an exit'ed vim in the registry * 1. There is an old windowid for an exit'ed vim in the registry
...@@ -1150,7 +1150,7 @@ GetRegProp(dpy, regPropp, numItemsp, domsg) ...@@ -1150,7 +1150,7 @@ GetRegProp(dpy, regPropp, numItemsp, domsg)
} }
/* /*
* This procedure is invoked by the varous X event loops throughout Vims when * This procedure is invoked by the various X event loops throughout Vims when
* a property changes on the communication window. This procedure reads the * a property changes on the communication window. This procedure reads the
* property and handles command requests and responses. * property and handles command requests and responses.
*/ */
......
...@@ -323,7 +323,7 @@ vms_read(char *inbuf, size_t nbytes) ...@@ -323,7 +323,7 @@ vms_read(char *inbuf, size_t nbytes)
inbuf, nbytes-1, 0, 0, &itmlst, sizeof(itmlst)); inbuf, nbytes-1, 0, 0, &itmlst, sizeof(itmlst));
len = strlen(inbuf); /* how many chars we got? */ len = strlen(inbuf); /* how many chars we got? */
/* read immedatelly the rest in the IO queue */ /* read immediately the rest in the IO queue */
function = (IO$_READLBLK | IO$M_TIMED | IO$M_ESCAPE | IO$M_NOECHO | IO$M_NOFILTR); function = (IO$_READLBLK | IO$M_TIMED | IO$M_ESCAPE | IO$M_NOECHO | IO$M_NOFILTR);
status = sys$qiow(0, iochan, function, &iosb, 0, 0, status = sys$qiow(0, iochan, function, &iosb, 0, 0,
inbuf+len, nbytes-1-len, 0, 0, 0, 0); inbuf+len, nbytes-1-len, 0, 0, 0, 0);
...@@ -338,7 +338,7 @@ vms_read(char *inbuf, size_t nbytes) ...@@ -338,7 +338,7 @@ vms_read(char *inbuf, size_t nbytes)
* We want to save each match for later retrieval. * We want to save each match for later retrieval.
* *
* Returns: 1 - continue finding matches * Returns: 1 - continue finding matches
* 0 - stop trying to find any further mathces * 0 - stop trying to find any further matches
*/ */
static int static int
vms_wproc(char *name, int val) vms_wproc(char *name, int val)
...@@ -347,7 +347,8 @@ vms_wproc(char *name, int val) ...@@ -347,7 +347,8 @@ vms_wproc(char *name, int val)
int nlen; int nlen;
static int vms_match_alloced = 0; static int vms_match_alloced = 0;
if (val != DECC$K_FILE) /* Directories and foreing non VMS files are not counting */ if (val != DECC$K_FILE) /* Directories and foreign non VMS files are not
counting */
return 1; return 1;
if (vms_match_num == 0) { if (vms_match_num == 0) {
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
* -c option, mls * -c option, mls
* 26.04.94 better option parser, -ps, -l, -s added. * 26.04.94 better option parser, -ps, -l, -s added.
* 1.07.94 -r badly needs - as input file. Per default autoskip over * 1.07.94 -r badly needs - as input file. Per default autoskip over
* consequtive lines of zeroes, as unix od does. * consecutive lines of zeroes, as unix od does.
* -a shows them too. * -a shows them too.
* -i dump as c-style #include "file.h" * -i dump as c-style #include "file.h"
* 1.11.95 if "xxd -i" knows the filename, an 'unsigned char filename_bits[]' * 1.11.95 if "xxd -i" knows the filename, an 'unsigned char filename_bits[]'
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
* 27.10.98 Fixed: -g option parser required blank. * 27.10.98 Fixed: -g option parser required blank.
* option -b added: 01000101 binary output in normal format. * option -b added: 01000101 binary output in normal format.
* 16.05.00 Added VAXC changes by Stephen P. Wall * 16.05.00 Added VAXC changes by Stephen P. Wall
* 16.05.00 Improved MMS file and merege for VMS by Zoltan Arpadffy * 16.05.00 Improved MMS file and merge for VMS by Zoltan Arpadffy
* *
* (c) 1990-1998 by Juergen Weigert (jnweiger@informatik.uni-erlangen.de) * (c) 1990-1998 by Juergen Weigert (jnweiger@informatik.uni-erlangen.de)
* *
...@@ -774,7 +774,7 @@ char *argv[]; ...@@ -774,7 +774,7 @@ char *argv[];
xxdline(fpo, l, 1); xxdline(fpo, l, 1);
} }
else if (autoskip) else if (autoskip)
xxdline(fpo, l, -1); /* last chance to flush out supressed lines */ xxdline(fpo, l, -1); /* last chance to flush out suppressed lines */
fclose(fp); fclose(fp);
fclose(fpo); fclose(fpo);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment