Mercurial > hg > RemoteEditor > vim7

annotate runtime/compiler/perl.vim @ 49:000769ce6c9d default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v7-3-618 for changeset 67300faee616
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 01 Aug 2012 18:08:37 +0900
parents c16898406ff2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
1 " Vim Compiler File
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
2 " Compiler: Perl syntax checks (perl -Wc)
39
c16898406ff2 synchorinize version 7.3.081
one@zeus.cr.ie.u-ryukyu.ac.jp
parents: 34
diff changeset
3 " Maintainer: Christian J. Robinson <heptite@gmail.com>
34
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
4 " Last Change: 2006 Aug 13
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
5
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
6 if exists("current_compiler")
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
7 finish
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
8 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
9 let current_compiler = "perl"
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
10
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
11 if exists(":CompilerSet") != 2 " older Vim always used :setlocal
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
12 command -nargs=* CompilerSet setlocal <args>
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
13 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
14
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
15 let s:savecpo = &cpo
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
16 set cpo&vim
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
17
34
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
18 if exists('g:perl_compiler_force_warnings') && g:perl_compiler_force_warnings == 0
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
19 let s:warnopt = 'w'
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
20 else
34
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
21 let s:warnopt = 'W'
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
22 endif
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
23
34
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
24 if getline(1) =~# '-[^ ]*T'
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
25 let s:taintopt = 'T'
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
26 else
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
27 let s:taintopt = ''
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
28 endif
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
29
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
30 exe 'CompilerSet makeprg=perl\ -' . s:warnopt . s:taintopt . 'c\ %'
e170173ecb68 before ack base protocol.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
31
0
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
32 CompilerSet errorformat=
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
33 \%-G%.%#had\ compilation\ errors.,
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
34 \%-G%.%#syntax\ OK,
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
35 \%m\ at\ %f\ line\ %l.,
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
36 \%+A%.%#\ at\ %f\ line\ %l\\,%.%#,
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
37 \%+C%.%#
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
38
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
39 " Explanation:
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
40 " %-G%.%#had\ compilation\ errors., - Ignore the obvious.
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
41 " %-G%.%#syntax\ OK, - Don't include the 'a-okay' message.
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
42 " %m\ at\ %f\ line\ %l., - Most errors...
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
43 " %+A%.%#\ at\ %f\ line\ %l\\,%.%#, - As above, including ', near ...'
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
44 " %+C%.%# - ... Which can be multi-line.
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
45
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
46 let &cpo = s:savecpo
76efa0be13f1 Initial revision
atsuki
parents:
diff changeset
47 unlet s:savecpo