|
|
@ -628,30 +628,37 @@ doCollPadChar(LPart, Args, Width, Adjust, Precision, Acc) -> |
|
|
|
case LPart of |
|
|
|
<<".*", LeftLPart/binary>> -> |
|
|
|
[PadChar | LeftArgs] = Args, |
|
|
|
doCollEncoding(LeftLPart, LeftArgs, Width, Adjust, Precision, PadChar, Acc); |
|
|
|
doCollEncodingStrings(LeftLPart, LeftArgs, Width, Adjust, Precision, PadChar, Acc); |
|
|
|
<<".", PadChar:8/integer, LeftLPart/binary>> -> |
|
|
|
doCollEncoding(LeftLPart, Args, Width, Adjust, Precision, PadChar, Acc); |
|
|
|
doCollEncodingStrings(LeftLPart, Args, Width, Adjust, Precision, PadChar, Acc); |
|
|
|
_ -> |
|
|
|
doCollEncoding(LPart, Args, Width, Adjust, Precision, 32, Acc) |
|
|
|
doCollEncodingStrings(LPart, Args, Width, Adjust, Precision, 32, Acc) |
|
|
|
end. |
|
|
|
|
|
|
|
doCollEncoding(LPart, Args, Width, Adjust, Precision, PadChar, Acc) -> |
|
|
|
doCollEncodingStrings(LPart, Args, Width, Adjust, Precision, PadChar, Acc) -> |
|
|
|
case LPart of |
|
|
|
<<"lt", LeftLPart/binary>> -> |
|
|
|
LLeftLPart = LeftLPart, |
|
|
|
Encoding = unicode, |
|
|
|
Strings = false; |
|
|
|
<<"tl", LeftLPart/binary>> -> |
|
|
|
LLeftLPart = LeftLPart, |
|
|
|
Encoding = unicode, |
|
|
|
Strings = false; |
|
|
|
<<"t", LeftLPart/binary>> -> |
|
|
|
%true = Char =/= $l, |
|
|
|
doCollStrings(LeftLPart, Args, Width, Adjust, Precision, PadChar, unicode, Acc); |
|
|
|
_ -> |
|
|
|
doCollStrings(LPart, Args, Width, Adjust, Precision, PadChar, latin1, Acc) |
|
|
|
end. |
|
|
|
|
|
|
|
doCollStrings(LPart, Args, Width, Adjust, Precision, PadChar, Encoding, Acc) -> |
|
|
|
case LPart of |
|
|
|
LLeftLPart = LeftLPart, |
|
|
|
Encoding = unicode, |
|
|
|
Strings = true; |
|
|
|
<<"l", LeftLPart/binary>> -> |
|
|
|
%true = Char =/= $t, |
|
|
|
doCollCA(LeftLPart, Args, Width, Adjust, Precision, PadChar, Encoding, false, Acc); |
|
|
|
LLeftLPart = LeftLPart, |
|
|
|
Encoding = latin1, |
|
|
|
Strings = false; |
|
|
|
_ -> |
|
|
|
doCollCA(LPart, Args, Width, Adjust, Precision, PadChar, Encoding, true, Acc) |
|
|
|
end. |
|
|
|
LLeftLPart = LPart, |
|
|
|
Encoding = latin1, |
|
|
|
Strings = true |
|
|
|
end, |
|
|
|
doCollCA(LLeftLPart, Args, Width, Adjust, Precision, PadChar, Encoding, Strings, Acc). |
|
|
|
|
|
|
|
doCollCA(LPart, Args, Width, Adjust, Precision, PadChar, Encoding, Strings, Acc) -> |
|
|
|
<<CtlChar:8/integer, LeftLPart/binary>> = LPart, |
|
|
|