From: Martin B. <mb...@us...> - 2004-12-19 20:18:34
|
Update of /cvsroot/jungerl/jungerl/lib/msc/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9000 Modified Files: base64.erl Log Message: Removed dead code, found by dialyzer Index: base64.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/msc/src/base64.erl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- base64.erl 24 Feb 2003 22:07:58 -0000 1.1 +++ base64.erl 19 Dec 2004 20:18:24 -0000 1.2 @@ -73,10 +73,8 @@ end. str_2_b64(String) -> - case from_string_nonl(String, []) of - {ok,Line,[]} -> Line; - {more, Cont} -> from_end(Cont) - end. + {more, Cont} = from_string_nonl(String, []), + from_end(Cont). str_2_base64(Str) -> from_string(Str). @@ -111,16 +109,16 @@ %% End a base64 conversion. Assume we have run from_string %% until end. -from_end({[C1,C2],Out,N}) -> +from_end({[C1,C2],Out,_N}) -> O1 = e(C1 bsr 2), O2 = e(((C1 band 16#03) bsl 4) bor (C2 bsr 4)), O3 = e((C2 band 16#0f) bsl 2), reverse(Out, [O1,O2,O3,$=]); -from_end({[C1],Out,N}) -> +from_end({[C1],Out,_N}) -> O1 = e(C1 bsr 2), O2 = e((C1 band 16#03) bsl 4), reverse(Out, [O1,O2,$=,$=]); -from_end({[],Out,N}) -> reverse(Out); +from_end({[],Out,_N}) -> reverse(Out); from_end([]) -> []. %% Table 1: The Base64 Alphabet |