cryptix/caberl - Change ULS4X3VORQZFBSNPXN76UFH2PWS2MVBA64CJQS3IR4YUHIKEF6GQC

posts:decode/1

Created by Henry on October 14, 2023

ULS4X3VORQZFBSNPXN76UFH2PWS2MVBA64CJQS3IR4YUHIKEF6GQC

Dependencies

In channels

main

Change contents

Replacement in test/cable_posts_SUITE.erl at line 13 [3.2]

B:BD[3.283] → [3.283:474]

    Decoded = posts:decode_post_text(Bin),
    [ {pubKey, _PubKey}
    , {links, _Links}
    , {postType, _PostType}
    , {timestamp, _TimeStamp}
    , {channel, Channel}
    , {text, Text}

[3.283]

[3.474]

    Decoded = posts:decode(Bin),
    [
     [ {pubKey, _PubKey}
     , {links, _Links}
     , {postType, _PostType}
     , {timestamp, _TimeStamp}
     ],
     [ {channel, Channel}
     , {text, Text}
     ]

Replacement in test/cable_posts_SUITE.erl at line 30 [3.2]

B:BD[3.699] → [3.699:871]

    Decoded = posts:decode_post_delete(Bin),
    [ {pubKey, _PubKey}
    , {links, _Links}
    , {postType, _PostType}
    , {timestamp, _TimeStamp}
    , {hashes, Hashes}

[3.699]

[3.871]

    Decoded = posts:decode(Bin),
    [
     [ {pubKey, _PubKey}
     , {links, _Links}
     , {postType, _PostType}
     , {timestamp, _TimeStamp}
     ],
     [ {hashes, Hashes} ]

Replacement in test/cable_posts_SUITE.erl at line 45 [3.2]

B:BD[3.1110] → [3.1110:1278]

    Decoded = posts:decode_post_info(Bin),
    [ {pubKey, _PubKey}
    , {links, _Links}
    , {postType, _PostType}
    , {timestamp, _TimeStamp}
    , {infos, Infos}

[3.1110]

[3.1278]

    Decoded = posts:decode(Bin),
    [
      [ {pubKey, _PubKey}
      , {links, _Links}
      , {postType, _PostType}
      , {timestamp, _TimeStamp}
      ],
      [ {infos, Infos} ]

Replacement in test/cable_posts_SUITE.erl at line 59 [3.2]

B:BD[3.1461] → [3.1461:1655]

    Decoded = posts:decode_post_topic(Bin),
    [ {pubKey, _PubKey}
    , {links, _Links}
    , {postType, _PostType}
    , {timestamp, _TimeStamp}
    , {channel, Channel}
    , {topic, Topic}

[3.1461]

[3.1655]

    Decoded = posts:decode(Bin),
    [
     [ {pubKey, _PubKey}
     , {links, _Links}
     , {postType, _PostType}
     , {timestamp, _TimeStamp}
     ],
     [ {channel, Channel}
     , {topic, Topic}
     ]

Replacement in test/cable_posts_SUITE.erl at line 76 [3.2]

B:BD[3.1906] → [3.1906:2095]

    Decoded = posts:decode_post_join(Bin),
    [ {pubKey, _PubKey}
    , {links, _Links}
    , {postType, _PostType}
    , {timestamp, _TimeStamp}
    , {channel, Channel}
    ] = Decoded,

[3.1906]

[3.2095]

    Decoded = posts:decode(Bin),
    [
      [ {pubKey, _PubKey}
      , {links, _Links}
      , {postType, _PostType}
      , {timestamp, _TimeStamp}
      ],
      [ {channel, Channel} ]
    ]= Decoded,

Replacement in test/cable_posts_SUITE.erl at line 90 [3.2]

B:BD[3.2274] → [3.2274:2447]

    Decoded = posts:decode_post_leave(Bin),
    [ {pubKey, _PubKey}
    , {links, _Links}
    , {postType, _PostType}
    , {timestamp, _TimeStamp}
    , {channel, Channel}

[3.2274]

[3.2447]

    Decoded = posts:decode(Bin),
    [
      [ {pubKey, _PubKey}
      , {links, _Links}
      , {postType, _PostType}
      , {timestamp, _TimeStamp}
      ], [ {channel, Channel} ]

Replacement in test/cable_posts_SUITE.erl at line 104 [3.2]

B:BD[3.2582] → [3.2582:2895]

assert_post(Post, TestObj) ->
    ?assertEqual(maps:get(<<"postType">>, TestObj),  proplists:get_value(postType, Post)),
    ?assertEqual(maps:get(<<"timestamp">>, TestObj), proplists:get_value(timestamp, Post)),
    ?assertEqual(length(maps:get(<<"links">>, TestObj)), length(proplists:get_value(links, Post))),

[3.2582]

[3.2895]

assert_post([Header, _], TestObj) ->
    ?assertEqual(maps:get(<<"postType">>, TestObj),  proplists:get_value(postType, Header)),
    ?assertEqual(maps:get(<<"timestamp">>, TestObj), proplists:get_value(timestamp, Header)),
    ?assertEqual(length(maps:get(<<"links">>, TestObj)), length(proplists:get_value(links, Header))),

Replacement in test/cable_posts_SUITE.erl at line 109 [3.2]

B:BD[3.2979] → [3.2979:3040]

    ?assertEqual(PubKey, proplists:get_value(pubKey, Post)).

[3.2979]

    ?assertEqual(PubKey, proplists:get_value(pubKey, Header)).

Insertion in test/cable_basic_SUITE.erl at line 87 [7.22]
[5.620]
[6.1324]
```
    ?assert(is_binary(lists:nth(1, Posts))),
```
Insertion in apps/cable/src/wire.erl at line 40 [7.5336]
[8.2603]
[8.2603]
```
%%%%%%%%%%%
% Decoders
%%%%%%%%%%%
```
Replacement in apps/cable/src/wire.erl at line 124 [7.5336]
B:BD[8.4200] → [8.4200:4247]
```
    [ {posts, decode_list_of_strings(Payload)}
```
[8.4200]
[9.4790]
```
    [ {posts, decode_list_of_binaries(Payload)}
```

Replacement in apps/cable/src/wire.erl at line 162 [7.5336]

B:BD[9.5065] → [9.5065:5103]

    decode_list_of_strings(Data, []).

[9.5065]

[9.5103]

    decode_list_of(Data, [], string).
decode_list_of_binaries(Data) ->
    decode_list_of(Data, [], binary).

Replacement in apps/cable/src/wire.erl at line 167 [7.5336]
B:BD[9.5104] → [9.5104:5141]
```
decode_list_of_strings(Data, Acc) ->
```
[9.5104]
[9.5141]
```
decode_list_of(Data, Acc, Kind) ->
```

Replacement in apps/cable/src/wire.erl at line 173 [7.5336]

B:BD[9.5296] → [9.5296:5370]

            decode_list_of_strings(Rest2, Acc ++ [binary_to_list(Field)])

[9.5296]

[9.5370]

            NewAcc = Acc ++ case Kind of
                                string -> [binary_to_list(Field)];
                                binary -> [Field]
                            end,
            decode_list_of(Rest2, NewAcc, Kind)

Replacement in apps/cable/src/posts.erl at line 6 [9.5381]

B:BD[9.5398] → [9.5398:5533]

-export([decode_post_text/1, decode_post_delete/1, decode_post_info/1, decode_post_topic/1, decode_post_join/1, decode_post_leave/1]).

[9.5398]

[9.5533]

-export([decode/1]).
%-export([decode_post_text/1, decode_post_delete/1, decode_post_info/1, decode_post_topic/1, decode_post_join/1, decode_post_leave/1]).

Replacement in apps/cable/src/posts.erl at line 9 [9.5381]

B:BD[9.5534] → [9.5534:5645]

decode_post_text(Data) ->
  Header = decode_post_header(Data),
  Body = proplists:get_value(postBody, Header),

[9.5534]

[9.5645]

decode(Data) ->
    [Header, Body] = decode_post_header(Data),
    Decoded = case proplists:get_value(postType, Header) of
                  0 -> decode_post_text(Body);
                  1 -> decode_post_delete(Body);
                  2 -> decode_post_info(Body);
                  3 -> decode_post_topic(Body);
                  4 -> decode_post_join(Body);
                  5 -> decode_post_leave(Body)
              end,
    [Header, Decoded].
decode_post_text(Body) ->

Replacement in apps/cable/src/posts.erl at line 26 [9.5381]

B:BD[9.5835] → [9.5835:5959]

  proplists:delete(postBody, Header) ++ [ {channel, binary_to_list(Channel)},  {text, unicode:characters_to_binary(Text)}].

[9.5835]

[9.5959]

  [ {channel, binary_to_list(Channel)},  {text, unicode:characters_to_binary(Text)}].

Replacement in apps/cable/src/posts.erl at line 28 [9.5381]

B:BD[9.5960] → [9.5960:6073]

decode_post_delete(Data) ->
  Header = decode_post_header(Data),
  Body = proplists:get_value(postBody, Header),

[9.5960]

[9.6073]

decode_post_delete(Body) ->

Replacement in apps/cable/src/posts.erl at line 32 [9.5381]
B:BD[9.6220] → [9.6220:6282]
```
  proplists:delete(postBody, Header) ++ [ {hashes, Hashes} ].
```
[9.6220]
[9.6282]
```
  [ {hashes, Hashes} ].
```

Replacement in apps/cable/src/posts.erl at line 34 [9.5381]

B:BD[9.6283] → [9.6283:6395]

decode_post_info(Data) -> 
  Header = decode_post_header(Data),
  Body = proplists:get_value(postBody, Header),

[9.6283]

[9.6395]

decode_post_info(Body) ->

Replacement in apps/cable/src/posts.erl at line 36 [9.5381]

B:BD[9.6438] → [2.11:81]

  proplists:delete(postBody, Header) ++ [ {infos, list_to_map(KVs)}].

[9.6438]

[9.6840]

  [ {infos, list_to_map(KVs)}].

Replacement in apps/cable/src/posts.erl at line 38 [9.5381]

B:BD[9.6841] → [9.6841:6954]

decode_post_topic(Data) -> 
  Header = decode_post_header(Data),
  Body = proplists:get_value(postBody, Header),

[9.6841]

[9.6954]

decode_post_topic(Body) ->

Replacement in apps/cable/src/posts.erl at line 43 [9.5381]

B:BD[9.7147] → [9.7147:7226]

  proplists:delete(postBody, Header) ++ [ {channel, Channel}, {topic, Topic}].

[9.7147]

[9.7226]

  [ {channel, Channel}, {topic, Topic}].

Replacement in apps/cable/src/posts.erl at line 45 [9.5381]

B:BD[9.7227] → [9.7227:7339]

decode_post_join(Data) -> 
  Header = decode_post_header(Data),
  Body = proplists:get_value(postBody, Header),

[9.7227]

[9.7339]

decode_post_join(Body) ->

Replacement in apps/cable/src/posts.erl at line 48 [9.5381]

B:BD[9.7430] → [9.7430:7609]

  proplists:delete(postBody, Header) ++ [ {channel, Channel}].
  
decode_post_leave(Data) -> 
  Header = decode_post_header(Data),
  Body = proplists:get_value(postBody, Header),

[9.7430]

[9.7609]

  [ {channel, Channel}].
decode_post_leave(Body) ->

Replacement in apps/cable/src/posts.erl at line 53 [9.5381]
B:BD[9.7700] → [9.7700:7763]
```
  proplists:delete(postBody, Header) ++ [ {channel, Channel}].
```
[9.7700]
[9.7763]
```
  [ {channel, Channel}].
```

Replacement in apps/cable/src/posts.erl at line 56 [9.5381]

B:BD[9.7793] → [9.7793:8151]

  << PubKey:32/binary, Signature:64/binary, SignedData/binary>> = Data,
  true = enacl:sign_verify_detached(Signature, SignedData, PubKey),
  {NumLinks, Rest} = wire:decode_varint(SignedData),
  <<LinkData:(32*NumLinks)/binary, Rest2/binary>> = Rest,
  Links = [Link || <<Link:32/binary>> <= LinkData],
  case length(Links) =:= NumLinks of
        false ->

[9.7793]

[9.8151]

    << PubKey:32/binary, Signature:64/binary, SignedData/binary>> = Data,
    true = enacl:sign_verify_detached(Signature, SignedData, PubKey),
    {NumLinks, Rest} = wire:decode_varint(SignedData),
    <<LinkData:(32*NumLinks)/binary, Rest2/binary>> = Rest,
    Links = [Link || <<Link:32/binary>> <= LinkData],
    case length(Links) =:= NumLinks of
        false ->

Replacement in apps/cable/src/posts.erl at line 66 [9.5381]

B:BD[9.8325] → [9.8325:8576]

          [PostType, Timestamp, PostBody] = wire:decode_varints(Rest2, 2),
          [ {pubKey, PubKey}
          , {links, Links}
          , {postType, PostType}
          , {timestamp, Timestamp}
          , {postBody, PostBody}
          ]
  end.

[9.8325]

[2.82]

            [PostType, Timestamp, PostBody] = wire:decode_varints(Rest2, 2),
            [
             [ {pubKey, PubKey}
             , {links, Links}
             , {postType, PostType}
             , {timestamp, Timestamp}
             ]
            ,PostBody]
    end.

Replacement in apps/cable/src/posts.erl at line 84 [9.5381]
B:BD[2.333] → [2.333:361]
```
list_to_map([], Acc) -> Acc.
```
[2.333]
```
list_to_map([], Acc) -> Acc.
```

Replacement in apps/cable/src/peer.erl at line 86 [10.854]

B:BD[4.3490] → [4.3490:3574]

                            [io:format("got post reply:~n~p~n", [P]) || P <- Posts]

[4.3490]

[4.3574]

                            [io:format("got post reply:~n~p~n", [posts:decode(P)]) || P <- Posts]