File: csh.vim

package info (click to toggle)
vim 2%3A9.1.2141-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 95,004 kB
  • sloc: ansic: 433,946; cpp: 6,440; makefile: 4,625; sh: 2,397; java: 2,312; xml: 2,099; python: 1,619; perl: 1,419; awk: 730; lisp: 501; cs: 458; objc: 369; csh: 9; sed: 8; haskell: 1
file content (82 lines) | stat: -rw-r--r-- 2,316 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
" Vim filetype plugin file
" Language:		csh
" Maintainer:		Doug Kearns <dougkearns@gmail.com>
" Previous Maintainer:	Dan Sharp
" Contributor:		Johannes Zellner <johannes@zellner.org>
" 			Riley Bruins <ribru17@gmail.com>
" Last Change:		2026 Jan 16

if exists("b:did_ftplugin")
  finish
endif
let b:did_ftplugin = 1

let s:save_cpo = &cpo
set cpo-=C

setlocal comments=:#
setlocal commentstring=#\ %s
setlocal formatoptions-=t
setlocal formatoptions+=crql

let b:undo_ftplugin = "setlocal com< cms< fo<"

if exists("loaded_matchit") && !exists("b:match_words")
  let b:match_ignorecase = 0
  let b:match_words = "CshMatchWords()"
  let b:match_skip = "CshMatchSkip()"
  let b:undo_ftplugin ..= " | unlet! b:match_ignorecase b:match_skip b:match_words"
endif

" skip single line 'if' commands
function CshMatchSkip()
  return getline(".") =~# '^\s*if\>' && !s:CshIsIfThenCommand()
endfunction

function CshMatchWords()
  let line_start = '\%(^\s*\)\@<='
  let match_words =
	\ line_start .. '\%(foreach\s\+\h\w*\s*(\|while\>\):' ..
	\   '\<break\>:\<continue\>:' ..
	\   line_start .. 'end\>,' ..
	\ line_start .. 'switch\s*(:' ..
	\   line_start .. 'case\s\+:' .. line_start .. 'default\>:\<breaksw\>:' ..
	\   line_start .. 'endsw\>'

  if expand("<cword>") =~# '\<if\>' && !s:CshIsIfThenCommand()
    return match_words
  else
    return match_words .. "," ..
	\ line_start .. 'if\>:' ..
	\   line_start .. 'else\s\+if\>:' .. line_start .. 'else\>:' ..
	\   line_start .. 'endif\>'
  endif
endfunction

function s:CshIsIfThenCommand()
  let lnum = line(".")
  let line = getline(lnum)

  " join continued lines
  while lnum < line("$") && line =~ '^\%([^\\]\|\\\\\)*\\$'
    let lnum += 1
    let line = substitute(line, '\\$', '', '') .. getline(lnum)
  endwhile

  " TODO: confirm with syntax checks when the highlighting is more accurate
  return line =~# '^\s*if\>.*\<then\s*\%(#.*\)\=$'
endfunction

if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter")
  let b:browsefilter = "csh Scripts (*.csh)\t*.csh\n"
  if has("win32")
    let b:browsefilter ..= "All Files (*.*)\t*\n"
  else
    let b:browsefilter ..= "All Files (*)\t*\n"
  endif
  let b:csh_set_browsefilter = 1
  let b:undo_ftplugin ..= " | unlet! b:browsefilter b:csh_set_browsefilter"
endif

let &cpo = s:save_cpo
unlet s:save_cpo