|
| 1 | +" Vim script for checking .po files. |
| 2 | +" |
| 3 | +" Go through the file and verify that: |
| 4 | +" - All %...s items in "msgid" are identical to the ones in "msgstr". |
| 5 | +" - An error or warning code in "msgid" matches the one in "msgstr". |
| 6 | + |
| 7 | +if 1 " Only execute this if the eval feature is available. |
| 8 | + |
| 9 | +" Function to get a split line at the cursor. |
| 10 | +" Used for both msgid and msgstr lines. |
| 11 | +" Removes all text except % items and returns the result. |
| 12 | +func! GetMline() |
| 13 | + let idline = substitute(getline('.'), '"\(.*\)"$', '\1', '') |
| 14 | + while line('.') < line('$') |
| 15 | + + |
| 16 | + let line = getline('.') |
| 17 | + if line[0] != '"' |
| 18 | + break |
| 19 | + endif |
| 20 | + let idline .= substitute(line, '"\(.*\)"$', '\1', '') |
| 21 | + endwhile |
| 22 | + |
| 23 | + " remove '%', not used for formatting. |
| 24 | + let idline = substitute(idline, "'%'", '', 'g') |
| 25 | + |
| 26 | + " remove '%' used for plural forms. |
| 27 | + let idline = substitute(idline, '\\nPlural-Forms: .\+;\\n', '', '') |
| 28 | + |
| 29 | + " remove everything but % items. |
| 30 | + return substitute(idline, '[^%]*\(%[-+ #''.0-9*]*l\=[dsuxXpoc%]\)\=', '\1', 'g') |
| 31 | +endfunc |
| 32 | + |
| 33 | +" This only works when 'wrapscan' is set. |
| 34 | +let s:save_wrapscan = &wrapscan |
| 35 | +set wrapscan |
| 36 | + |
| 37 | +" Start at the first "msgid" line. |
| 38 | +1 |
| 39 | +/^msgid |
| 40 | +let startline = line('.') |
| 41 | +let error = 0 |
| 42 | + |
| 43 | +while 1 |
| 44 | + if getline(line('.') - 1) !~ "no-c-format" |
| 45 | + let fromline = GetMline() |
| 46 | + if getline('.') !~ '^msgstr' |
| 47 | + echo 'Missing "msgstr" in line ' . line('.') |
| 48 | + let error = 1 |
| 49 | + endif |
| 50 | + let toline = GetMline() |
| 51 | + if fromline != toline |
| 52 | + echo 'Mismatching % in line ' . (line('.') - 1) |
| 53 | + echo 'msgid: ' . fromline |
| 54 | + echo 'msgstr: ' . toline |
| 55 | + let error = 1 |
| 56 | + endif |
| 57 | + endif |
| 58 | + |
| 59 | + " Find next msgid. |
| 60 | + " Wrap around at the end of the file, quit when back at the first one. |
| 61 | + /^msgid |
| 62 | + if line('.') == startline |
| 63 | + break |
| 64 | + endif |
| 65 | +endwhile |
| 66 | + |
| 67 | +" Check that error code in msgid matches the one in msgstr. |
| 68 | +" |
| 69 | +" Examples of mismatches found with msgid "E123: ..." |
| 70 | +" - msgstr "E321: ..." error code mismatch |
| 71 | +" - msgstr "W123: ..." warning instead of error |
| 72 | +" - msgstr "E123 ..." missing colon |
| 73 | +" - msgstr "..." missing error code |
| 74 | +" |
| 75 | +1 |
| 76 | +if search('msgid "\("\n"\)\?\([EW][0-9]\+:\).*\nmsgstr "\("\n"\)\?[^"]\@=\2\@!') > 0 |
| 77 | + echo 'Mismatching error/warning code in line ' . line('.') |
| 78 | + let error = 1 |
| 79 | +endif |
| 80 | + |
| 81 | +if error == 0 |
| 82 | + echo "OK" |
| 83 | +endif |
| 84 | + |
| 85 | +let &wrapscan = s:save_wrapscan |
| 86 | +unlet s:save_wrapscan |
| 87 | + |
| 88 | +endif |
0 commit comments