| Bram Moolenaar | 00a927d | 2010-05-14 23:24:24 +0200 | [diff] [blame] | 1 | " Vim indent file |
| 2 | " Language: Perl 6 |
| 3 | " Maintainer: Andy Lester <andy@petdance.com> |
| 4 | " URL: http://github.com/petdance/vim-perl/tree/master |
| 5 | " Last Change: 2009-07-04 |
| 6 | " Contributors: Andy Lester <andy@petdance.com> |
| 7 | " Hinrik Örn Sigurðsson <hinrik.sig@gmail.com> |
| 8 | " |
| 9 | " Adapted from Perl indent file by Rafael Garcia-Suarez <rgarciasuarez@free.fr> |
| 10 | |
| 11 | " Suggestions and improvements by : |
| 12 | " Aaron J. Sherman (use syntax for hints) |
| 13 | " Artem Chuprina (play nice with folding) |
| 14 | " TODO: |
| 15 | " This file still relies on stuff from the Perl 5 syntax file, which Perl 6 |
| 16 | " does not use. |
| 17 | " |
| 18 | " Things that are not or not properly indented (yet) : |
| 19 | " - Continued statements |
| 20 | " print "foo", |
| 21 | " "bar"; |
| 22 | " print "foo" |
| 23 | " if bar(); |
| 24 | " - Multiline regular expressions (m//x) |
| 25 | " (The following probably needs modifying the perl syntax file) |
| 26 | " - qw() lists |
| 27 | " - Heredocs with terminators that don't match \I\i* |
| 28 | |
| 29 | " Only load this indent file when no other was loaded. |
| 30 | if exists("b:did_indent") |
| 31 | finish |
| 32 | endif |
| 33 | let b:did_indent = 1 |
| 34 | |
| 35 | " Is syntax highlighting active ? |
| 36 | let b:indent_use_syntax = has("syntax") |
| 37 | |
| 38 | setlocal indentexpr=GetPerl6Indent() |
| 39 | |
| 40 | " we reset it first because the Perl 5 indent file might have been loaded due |
| 41 | " to a .pl/pm file extension, and indent files don't clean up afterwards |
| 42 | setlocal indentkeys& |
| 43 | |
| 44 | setlocal indentkeys+=0=,0),0],0>,0»,0=or,0=and |
| 45 | if !b:indent_use_syntax |
| 46 | setlocal indentkeys+=0=EO |
| 47 | endif |
| 48 | |
| 49 | " Only define the function once. |
| 50 | if exists("*GetPerl6Indent") |
| 51 | finish |
| 52 | endif |
| 53 | |
| 54 | let s:cpo_save = &cpo |
| 55 | set cpo-=C |
| 56 | |
| 57 | function GetPerl6Indent() |
| 58 | |
| 59 | " Get the line to be indented |
| 60 | let cline = getline(v:lnum) |
| 61 | |
| 62 | " Indent POD markers to column 0 |
| 63 | if cline =~ '^\s*=\L\@!' |
| 64 | return 0 |
| 65 | endif |
| 66 | |
| 67 | " Don't reindent coments on first column |
| 68 | if cline =~ '^#' |
| 69 | return 0 |
| 70 | endif |
| 71 | |
| 72 | " Get current syntax item at the line's first char |
| 73 | let csynid = '' |
| 74 | if b:indent_use_syntax |
| 75 | let csynid = synIDattr(synID(v:lnum,1,0),"name") |
| 76 | endif |
| 77 | |
| 78 | " Don't reindent POD and heredocs |
| 79 | if csynid =~ "^p6Pod" |
| 80 | return indent(v:lnum) |
| 81 | endif |
| 82 | |
| 83 | |
| 84 | " Now get the indent of the previous perl line. |
| 85 | |
| 86 | " Find a non-blank line above the current line. |
| 87 | let lnum = prevnonblank(v:lnum - 1) |
| 88 | " Hit the start of the file, use zero indent. |
| 89 | if lnum == 0 |
| 90 | return 0 |
| 91 | endif |
| 92 | let line = getline(lnum) |
| 93 | let ind = indent(lnum) |
| 94 | " Skip heredocs, POD, and comments on 1st column |
| 95 | if b:indent_use_syntax |
| 96 | let skippin = 2 |
| 97 | while skippin |
| 98 | let synid = synIDattr(synID(lnum,1,0),"name") |
| 99 | if (synid =~ "^p6Pod" || synid =~ "p6Comment") |
| 100 | let lnum = prevnonblank(lnum - 1) |
| 101 | if lnum == 0 |
| 102 | return 0 |
| 103 | endif |
| 104 | let line = getline(lnum) |
| 105 | let ind = indent(lnum) |
| 106 | let skippin = 1 |
| 107 | else |
| 108 | let skippin = 0 |
| 109 | endif |
| 110 | endwhile |
| 111 | endif |
| 112 | |
| 113 | if line =~ '[<«\[{(]\s*\(#[^)}\]»>]*\)\=$' |
| 114 | let ind = ind + &sw |
| 115 | endif |
| 116 | if cline =~ '^\s*[)}\]»>]' |
| 117 | let ind = ind - &sw |
| 118 | endif |
| 119 | |
| 120 | " Indent lines that begin with 'or' or 'and' |
| 121 | if cline =~ '^\s*\(or\|and\)\>' |
| 122 | if line !~ '^\s*\(or\|and\)\>' |
| 123 | let ind = ind + &sw |
| 124 | endif |
| 125 | elseif line =~ '^\s*\(or\|and\)\>' |
| 126 | let ind = ind - &sw |
| 127 | endif |
| 128 | |
| 129 | return ind |
| 130 | |
| 131 | endfunction |
| 132 | |
| 133 | let &cpo = s:cpo_save |
| 134 | unlet s:cpo_save |
| 135 | |
| 136 | " vim:ts=8:sts=4:sw=4:expandtab:ft=vim |