QPQ-AG/hakuzaru
12
0
Fork 0
Code Issues 2 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

formatters #14

Merged
zxq9 merged 15 commits from formatters into master 2025-12-22 11:14:20 +09:00
Conversation 0 Commits 15 Files Changed 1 +12 -7
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 5a145207da - Show all commits

19
src/hz_format.erl
View File

@ -34,12 +34,12 @@ price(Style, Pucks) ->
-spec price(Unit, Style, Pucks) -> Formatted -spec price(Unit, Style, Pucks) -> Formatted
when Unit :: gaju | puck, when Unit :: gaju | puck,
Style :: us | ch | jp | {Separator, Myriad}, Style :: us | ch | jp | {Separator, Myriad},
Separator :: $, | $. | $_, Separator :: $, | $. | $_,
Myriad :: 3 | 4, Myriad :: 3 | 4,
Pucks :: integer(), Pucks :: integer(),
Formatted :: string(). Formatted :: string().
%% @doc %% @doc
%% A simplified format function covering the most common formats desired. %% A simplified format function covering the most common formats desired.
@ -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 $０ =< C andalso C =< $９ ->
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)),