summaryrefslogtreecommitdiff
path: root/lib/tools/test/emacs_SUITE_data/comprehensions
blob: 002c9140ade241168c137f8e79938f4005bd24fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
%% -*- Mode: erlang; indent-tabs-mode: nil -*-
%% Copyright Ericsson AB 2017. All Rights Reserved.

%%% indentation of comprehensions

%%% Not everything in these test are set in stone
%%% better indentation rules can be added but by having
%%% these tests we can see what changes in new implementations
%%% and notice when doing unintentional changes

list() ->
    %% I don't have a good idea how we want to handle this
    %% but they are here to show how they are indented today.
    Result1 = [X ||
                  #record{a=X} <- lists:seq(1, 10),
                  true = (X rem 2)
              ],
    Result2 = [X || <<X:32,_:32>> <= <<0:512>>,
                    true = (X rem 2)
              ],
    Res = [ func(X,
                 arg2)
            ||
              #record{a=X} <- lists:seq(1, 10),
              true = (X rem 2)
          ],
    Result1.

binary(B) ->
    Binary1 = << <<X:8>> ||
                  #record{a=X} <- lists:seq(1, 10),
                  true = (X rem 2)
              >>,

    Binary2 = << <<X:8>> || <<X:32,_:32>> <= <<0:512>>,
                            true = (X rem 2)
              >>,

    Bin3 = <<
             <<
               X:8,
               34:8
             >>
             || <<X:32,_:32>> <= <<0:512>>,
                true = (X rem 2)
           >>,
    ok.

maps(Map) ->
    New1 = #{ V => K ||
               K := V <- Map},

    New2 = #{ V = K || K := V <- Map,
                       true =:= V
            },

    New3 = #{
             V => K
             ||
               K := V <-
                   Map
            }.