The R13B03 release.OTP_R13B03

1 files changed, 59 insertions, 0 deletions

diff --git a/lib/xmerl/src/xmerl_b64Bin_scan.erl b/lib/xmerl/src/xmerl_b64Bin_scan.erl
new file mode 100644
index 0000000000..6f40680547
--- /dev/null
+++ b/lib/xmerl/src/xmerl_b64Bin_scan.erl
@@ -0,0 +1,59 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2006-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights 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}}).