Page MenuHomePhorge
Files F117876586

eimap_command_namespace.erl
No OneTemporary
Actions

Authored By
Unknown
Size
3 KB
Referenced Files
None
Subscribers
None

eimap_command_namespace.erl
View Options

%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
%%
%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
%%
%% This program is free software: you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation, either version 3 of the License, or
%% (at your option) any later version.
%%
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%% GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public License
%% along with this program. If not, see <http://www.gnu.org/licenses/>.
-module(eimap_command_namespace).
-behavior(eimap_command).
-export([new_command/1, process_line/2, formulate_response/2]).
%% http://tools.ietf.org/html/rfc2342
%% Public API
new_command(_Args) -> { <<"NAMESPACE">>, multiline_response }.
process_line(<<"* NAMESPACE ", Data/binary>>, Acc) -> [process_shared_prefix_parts(Data, 1)|Acc];
process_line(_Line, Acc) -> Acc.
formulate_response(ok, [Acc]) -> { fini, relevant_shared_prefix_parts(Acc) };
formulate_response({ _, Reason }, _Acc) -> { error, Reason }.
% Private API
relevant_shared_prefix_parts([]) -> { none, none};
relevant_shared_prefix_parts([[], [], _]) -> { none, none };
relevant_shared_prefix_parts([[], Delim]) -> { none, Delim };
relevant_shared_prefix_parts([SharedPrefix, [], _]) -> { SharedPrefix, "/" };
relevant_shared_prefix_parts([SharedPrefix, Delim]) -> { SharedPrefix, Delim }.
process_shared_prefix_parts(<<"NIL ", Data/binary>>, PartNumber) ->
process_shared_prefix_parts(Data, PartNumber + 1);
process_shared_prefix_parts(<<"NIL", Data/binary>>, PartNumber) ->
process_shared_prefix_parts(Data, PartNumber + 1);
process_shared_prefix_parts(<<"((", Data/binary>>, PartNumber) ->
process_shared_prefix_parts_inner(Data, [], PartNumber);
process_shared_prefix_parts(<<>>, _PartNumber) -> [].
process_shared_prefix_parts_inner(<<"))", _/binary>>, Acc, 3) ->
parse_shared_prefix_fields(lists:reverse(Acc), []);
process_shared_prefix_parts_inner(<<")) ", Data/binary>>, _Acc, N) ->
process_shared_prefix_parts(Data, N + 1);
process_shared_prefix_parts_inner(<<Char, Data/binary>>, Acc, 3) ->
process_shared_prefix_parts_inner(Data, [Char|Acc], 3);
process_shared_prefix_parts_inner(<<_Char, Data/binary>>, Acc, N) ->
process_shared_prefix_parts_inner(Data, Acc, N);
process_shared_prefix_parts_inner(<<>>, _Acc, _N) ->
[].
%%FIXME: naively assumes no "s in the values are allowed. is this correct?
parse_shared_prefix_fields([$"|Tail], Acc) ->
parse_shared_prefix_field_inner(Tail, [], Acc);
parse_shared_prefix_fields([_|Tail], Acc) ->
parse_shared_prefix_fields(Tail, Acc);
parse_shared_prefix_fields([], Acc) ->
lists:reverse(Acc).
parse_shared_prefix_field_inner([$"|Tail], PartAcc, Acc) ->
parse_shared_prefix_fields(Tail, [lists:reverse(PartAcc)|Acc]);
parse_shared_prefix_field_inner([Char|Tail], PartAcc, Acc) ->
parse_shared_prefix_field_inner(Tail, [Char|PartAcc], Acc);
parse_shared_prefix_field_inner([], _PartAcc, Acc) ->
Acc.

File Metadata

Mime Type
text/plain
Expires
Apr 5 2026, 9:08 PM (4 w, 2 d ago)
Storage Engine
local-disk
Storage Format
Raw Data
Storage Handle
b2/a2/95022cfdbb7d3c21dd01b35649da
Default Alt Text
eimap_command_namespace.erl (3 KB)

Event Timeline