diff options
| author | Hans Bolinder <[email protected]> | 2013-01-13 18:19:29 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-02-15 12:18:11 +0100 |
| commit | 675b8108486919739dc2e213587489c0daab80cb (patch) | |
| tree | 9a16e87541831b143d59dfb4bc84871e2595f037 /lib/stdlib/src/erl_lint.erl | |
| parent | 739b5db228de76dd42ab7f29983724cceafed9c2 (diff) | |
| download | otp-675b8108486919739dc2e213587489c0daab80cb.tar.gz otp-675b8108486919739dc2e213587489c0daab80cb.tar.bz2 otp-675b8108486919739dc2e213587489c0daab80cb.zip | |
[stdlib] Add control sequence modifier 'l'
The modifier 'l' can be used for turning off the string recognition of
~p and ~P.
Diffstat (limited to 'lib/stdlib/src/erl_lint.erl')
| -rw-r--r-- | lib/stdlib/src/erl_lint.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/stdlib/src/erl_lint.erl b/lib/stdlib/src/erl_lint.erl index 12505b33d1..68a8534f15 100644 --- a/lib/stdlib/src/erl_lint.erl +++ b/lib/stdlib/src/erl_lint.erl @@ -3483,6 +3483,12 @@ extract_sequence(4, [$t, $P | Fmt], Need) -> extract_sequence(5, [$P|Fmt], Need); extract_sequence(4, [$t, C | _Fmt], _Need) -> {error,"invalid control ~t" ++ [C]}; +extract_sequence(4, [$l, $p | Fmt], Need) -> + extract_sequence(5, [$p|Fmt], Need); +extract_sequence(4, [$l, $P | Fmt], Need) -> + extract_sequence(5, [$P|Fmt], Need); +extract_sequence(4, [$l, C | _Fmt], _Need) -> + {error,"invalid control ~l" ++ [C]}; extract_sequence(4, Fmt, Need) -> extract_sequence(5, Fmt, Need); extract_sequence(5, [C|Fmt], Need0) -> |