pbitrix24

1
:-module(bitrix24_utils, [
2
             decode_response/2,
3
             remove_json/2
4
         ]).
5

6
decode_response(json(Reply), Result) :-
7
    memberchk(result = json(Result), Reply),!.
8
decode_response(json(Reply), Result) :-
9
    memberchk(result = Result, Reply),
10
    is_list(Result),!.
11
decode_response(json(Reply), Reply).
12

13
remove_json([], []).
14
remove_json([json(Term)|T], [Term|NewT]) :-
15
    remove_json(T, NewT).
16
remove_json([H|T], [H|NewT]) :-
17
    H \= json(_),
18
    remove_json(T, NewT).
19