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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
" Test for checking the source code style.
def s:ReportError(fname: string, lnum: number, msg: string)
if lnum > 0
assert_report(fname .. ' line ' .. lnum .. ': ' .. msg)
endif
enddef
def s:PerformCheck(fname: string, pattern: string, msg: string, skip: string)
var lnum = 1
while (lnum > 0)
cursor(lnum, 1)
lnum = search(pattern, 'W', 0, 0, skip)
ReportError(fname, lnum, msg)
if (lnum > 0)
lnum += 1
endif
endwhile
enddef
def Test_source_files()
for fname in glob('../*.[ch]', 0, 1) + ['../xxd/xxd.c']
bwipe!
g:ignoreSwapExists = 'e'
exe 'edit ' .. fname
PerformCheck(fname, ' \t', 'space before Tab', '')
PerformCheck(fname, '\s$', 'trailing white space', '')
# some files don't stick to the Vim style rules
if fname =~ 'iscygpty.c'
continue
endif
var skip = 'getline(".") =~ "condition) {" || getline(".") =~ "vimglob_func" || getline(".") =~ "{\"" || getline(".") =~ "{\\d" || getline(".") =~ "{{{"'
PerformCheck(fname, ')\s*{', 'curly after closing paren', skip)
# Examples in comments use double quotes.
skip = "getline('.') =~ '\"'"
PerformCheck(fname, '}\s*else', 'curly before "else"', skip)
PerformCheck(fname, 'else\s*{', 'curly after "else"', skip)
PerformCheck(fname, '\<\(if\|while\|for\)(', 'missing white space after "if"/"while"/"for"', skip)
endfor
bwipe!
enddef
def Test_test_files()
for fname in glob('*.vim', 0, 1)
g:ignoreSwapExists = 'e'
exe 'edit ' .. fname
# some files intentionally have misplaced white space
if fname =~ 'test_cindent.vim' || fname =~ 'test_join.vim'
continue
endif
# skip files that are known to have a space before a tab
if fname !~ 'test_comments.vim'
&& fname !~ 'test_listchars.vim'
&& fname !~ 'test_visual.vim'
cursor(1, 1)
var lnum = search(fname =~ "test_regexp_latin" ? '[^á] \t' : ' \t')
ReportError('testdir/' .. fname, lnum, 'space before Tab')
endif
# skip files that are known to have trailing white space
if fname !~ 'test_cmdline.vim'
&& fname !~ 'test_let.vim'
&& fname !~ 'test_tagjump.vim'
&& fname !~ 'test_vim9_cmd.vim'
cursor(1, 1)
var lnum = search(
fname =~ 'test_vim9_assign.vim' ? '[^=]\s$'
: fname =~ 'test_vim9_class.vim' ? '[^)]\s$'
: fname =~ 'test_vim9_script.vim' ? '[^,:3]\s$'
: fname =~ 'test_visual.vim' ? '[^/]\s$'
: '[^\\]\s$')
ReportError('testdir/' .. fname, lnum, 'trailing white space')
endif
endfor
bwipe!
enddef
def Test_help_files()
var lnum: number
set nowrapscan
for fpath in glob('../../runtime/doc/*.txt', 0, 1)
g:ignoreSwapExists = 'e'
exe 'edit ' .. fpath
var fname = fnamemodify(fpath, ":t")
# todo.txt is for developers, it's not need a strictly check
# version*.txt is a history and large size, so it's not checked
if fname == 'todo.txt' || fname =~ 'version.*\.txt'
continue
endif
# Check for mixed tabs and spaces
cursor(1, 1)
while 1
lnum = search('[^/] \t')
if fname == 'visual.txt' && getline(lnum) =~ "STRING \tjkl"
|| fname == 'usr_27.txt' && getline(lnum) =~ "\[^\? \t\]"
continue
endif
ReportError(fpath, lnum, 'space before tab')
if lnum == 0
break
endif
endwhile
# Check for unnecessary whitespace at the end of a line
cursor(1, 1)
while 1
lnum = search('[^/~\\]\s$')
# skip line that are known to have trailing white space
if fname == 'map.txt' && getline(lnum) =~ "unmap @@ $"
|| fname == 'usr_12.txt' && getline(lnum) =~ "^\t/ \t$"
|| fname == 'usr_41.txt' && getline(lnum) =~ "map <F4> o#include $"
|| fname == 'change.txt' && getline(lnum) =~ "foobar bla $"
continue
endif
ReportError('testdir' .. fpath, lnum, 'trailing white space')
if lnum == 0
break
endif
endwhile
# # TODO: Check for line over 80 columns
# cursor(1, 1)
# while 1
# lnum = search('\%>80v.*$')
# ReportError(fpath, lnum, 'line over 80 columns')
# if lnum == 0
# break
# endif
# endwhile
endfor
set wrapscan&vim
bwipe!
enddef
" vim: shiftwidth=2 sts=2 expandtab
|
