formatters #14
@ -485,7 +485,12 @@ segment_jp(Format) ->
|
|||||||
{error, format}
|
{error, format}
|
||||||
end.
|
end.
|
||||||
|
|
||||||
read_segment(
|
read_segment([C | T], R, A) when $0 =< C andalso C =< $9 ->
|
||||||
|
N = C - $0,
|
||||||
|
read_segment(T, R, [NA);
|
||||||
|
read_segment([C | T], R, A) when $0 =< C andalso C =< $9 ->
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
assemble_jp({GajuSegments, PuckSegments}) ->
|
assemble_jp({GajuSegments, PuckSegments}) ->
|
||||||
GajuString = lists:flatten(lists:map(fun expand_jp_myriad/1, GajuSegments)),
|
GajuString = lists:flatten(lists:map(fun expand_jp_myriad/1, GajuSegments)),
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user