diff options
| author | Björn Gustavsson <[email protected]> | 2012-12-06 08:24:52 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-01-09 13:52:59 +0100 |
| commit | e174aab954388e0f6986239dfdcc7af37c1d71e5 (patch) | |
| tree | 77ed181208962a5c8a03d5bb173245419ef7f0a3 /lib/syntax_tools/src/erl_prettypr.erl | |
| parent | 754dc29fa758c7f3b40cbdad756f45743f150f20 (diff) | |
| download | otp-e174aab954388e0f6986239dfdcc7af37c1d71e5.tar.gz otp-e174aab954388e0f6986239dfdcc7af37c1d71e5.tar.bz2 otp-e174aab954388e0f6986239dfdcc7af37c1d71e5.zip | |
syntax_tools: Remove support for packages
Diffstat (limited to 'lib/syntax_tools/src/erl_prettypr.erl')
| -rw-r--r-- | lib/syntax_tools/src/erl_prettypr.erl | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/lib/syntax_tools/src/erl_prettypr.erl b/lib/syntax_tools/src/erl_prettypr.erl index 577dd21a77..1a55a5e71c 100644 --- a/lib/syntax_tools/src/erl_prettypr.erl +++ b/lib/syntax_tools/src/erl_prettypr.erl @@ -645,10 +645,6 @@ lay_2(Node, Ctxt) -> set_prec(Ctxt, PrecR)), beside(D1, beside(text(":"), D2)); - qualified_name -> - Ss = erl_syntax:qualified_name_segments(Node), - lay_qualified_name(Ss, Ctxt); - %% %% The rest is in alphabetical order %% @@ -972,26 +968,6 @@ maybe_parentheses(D, Prec, Ctxt) -> D end. -lay_qualified_name([S | Ss1] = Ss, Ctxt) -> - case erl_syntax:type(S) of - atom -> - case erl_syntax:atom_value(S) of - '' -> - beside(text("."), - lay_qualified_name_1(Ss1, Ctxt)); - _ -> - lay_qualified_name_1(Ss, Ctxt) - end; - _ -> - lay_qualified_name_1(Ss, Ctxt) - end. - -lay_qualified_name_1([S], Ctxt) -> - lay(S, Ctxt); -lay_qualified_name_1([S | Ss], Ctxt) -> - beside(lay(S, Ctxt), beside(text("."), - lay_qualified_name_1(Ss, Ctxt))). - lay_string(S, Ctxt) -> %% S includes leading/trailing double-quote characters. The segment %% width is 2/3 of the ribbon width - this seems to work well. |