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
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2006-2016. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%%
%% %CopyrightEnd%
%%
-module(xmerl_b64Bin_scan).
-export([scan/1]).
-define(L, 1).
scan(Str) ->
scan(Str,[]).
scan([],Acc) ->
lists:reverse([{'$end', ?L, '$end'}|Acc]);
scan(Str,Acc) ->
case scan_token(Str) of
{Token,Rest} ->
scan(Rest,[Token|Acc])
end.
scan_token([$ ,H|T]) ->
scan_token([H|T]);
scan_token([H|T]) when H==$A;H==$Q;H==$g;H==$w ->
{{b04,?L,H},T};
scan_token([H|T])
when H==$E;H==$I;H==$M;H==$U;H==$Y;H==$c;H==$k;H==$o;H==$s;H==$0;
H==$4;H==$8 ->
{{b16x,?L,H},T};
scan_token([H|T])
when H==$B;H==$C;H==$D;H==$F;H==$G;H==$H;H==$J;H==$K;H==$L;H==$N;
H==$O;H==$P;H==$R;H==$S;H==$T;H==$V;H==$W;H==$X;H==$Z ->
{{b64x,?L,H},T};
scan_token([H|T])
when H==$a;H==$b;H==$d;H==$e;H==$f;H==$h;H==$i;H==$j;H==$l;H==$m;H==$n;H==$p;
H==$q;H==$r;H==$t;H==$u;H==$v;H==$x;H==$y;H==$z ->
{{b64x,?L,H},T};
scan_token([H|T])
when H==$1;H==$2;H==$3;H==$5;H==$6;H==$7;H==$9;H==$+;H==$/ ->
{{b64x,?L,H},T};
scan_token("="++T) ->
{{'=',?L,"="},T};
scan_token([H|_T]) ->
exit({error,{base64Binary_scan_illegal_char,H}}).
|
