WIP

src/hz_format.erl

@@ -4,22 +4,22 @@
 
 -module(hz_format).
 
--export([price/1, price/2, price/3, price/4,
+-export([amount/1, amount/2, amount/3, amount/4,
-%        read/1, read/2,
+         read/1,
          price_to_string/1, string_to_price/1]).
 
--spec price(Pucks) -> Formatted
+-spec amount(Pucks) -> Formatted
     when Pucks     :: integer(),
          Formatted :: string().
 %% @doc
 %% A convenience formatting function.
-%% @equiv price(us, Pucks).
+%% @equiv amount(us, Pucks).
 
-price(Pucks) ->
+amount(Pucks) ->
-    price(us, Pucks).
+    amount(us, Pucks).
 
 
--spec price(Style, Pucks) -> Formatted
+-spec amount(Style, Pucks) -> Formatted
     when Style     :: us | jp | metric | heresy | {Separator, Span},
          Separator :: $, | $_,
          Span      :: 3 | 4,
@@ -27,13 +27,13 @@ price(Pucks) ->
          Formatted :: string().
 %% @doc
 %% A money formatting function.
-%% @equiv price(gaju, Style, Pucks).
+%% @equiv amount(gaju, Style, Pucks).
     
-price(Style, Pucks) ->
+amount(Style, Pucks) ->
-    price(gaju, Style, Pucks).
+    amount(gaju, Style, Pucks).
 
 
--spec price(Unit, Style, Pucks) -> Formatted
+-spec amount(Unit, Style, Pucks) -> Formatted
     when Unit      :: gaju | puck,
          Style     :: us | jp | metric | heresy | {Separator, Span},
          Separator :: $, | $_,
@@ -43,23 +43,23 @@ price(Style, Pucks) ->
 %% @doc
 %% A simplified format function covering the most common formats desired.
 
-price(gaju, us, Pucks) ->
+amount(gaju, us, Pucks) ->
     western($,, $., 3, all, Pucks);
-price(puck, us, Pucks) ->
+amount(puck, us, Pucks) ->
     western($,, 3, Pucks);
-price(Unit, jp, Pucks) ->
+amount(Unit, jp, Pucks) ->
     jp(Unit, all, Pucks);
-price(Unit, metric, Pucks) ->
+amount(Unit, metric, Pucks) ->
     bestern(Unit, ranks(metric), all, Pucks);
-price(Unit, heresy, Pucks) ->
+amount(Unit, heresy, Pucks) ->
     bestern(Unit, ranks(heresy), all, Pucks);
-price(gaju, {Separator, Span}, Pucks) ->
+amount(gaju, {Separator, Span}, Pucks) ->
     western(Separator, $., Span, all, Pucks);
-price(puck, {Separator, Span}, Pucks) ->
+amount(puck, {Separator, Span}, Pucks) ->
     western(Separator, Span, Pucks).
 
 
--spec price(Unit, Style, Precision, Pucks) -> Serialized
+-spec amount(Unit, Style, Precision, Pucks) -> Serialized
     when Unit       :: gaju | puck,
          Style      :: us | jp | metric | heresy | {Separator, Span},
          Precision  :: all | 0..18,
@@ -71,53 +71,53 @@ price(puck, {Separator, Span}, Pucks) ->
 %% A flexible, if annoyingly complex, formatting function.
 %%
 %% ```
-%% price(gaju, us, 3, 123456789123456789123456789) ->
+%% amount(gaju, us, 3, 123456789123456789123456789) ->
 %%     "木123,456,789.123...".
 %%
-%% price(gaju, us, 3, 123456789123000000000000000) ->
+%% amount(gaju, us, 3, 123456789123000000000000000) ->
 %%     "木123,456,789.123".
 %%
-%% price(gaju, {$,, 3}, 3, 123456789123456789123456789) ->
+%% amount(gaju, {$,, 3}, 3, 123456789123456789123456789) ->
 %%     "木123,456,789.123...".
 %%
-%% price(gaju, {$,, 3}, 6, 123456789123000000000000000) ->
+%% amount(gaju, {$,, 3}, 6, 123456789123000000000000000) ->
 %%     "木123,456,789.123"
 %%
-%% price(gaju, {$_, 4}, 10, 123456789123456789123456789) ->
+%% amount(gaju, {$_, 4}, 10, 123456789123456789123456789) ->
 %%     "木1_2345_6789.1234_5678_91..."
 %%
-%% price(gaju, jp, 3, 123456789123456789123456789) ->
+%% amount(gaju, jp, 3, 123456789123456789123456789) ->
 %%     "1億2345万6789木 12京3000兆本"
 %%
-%% price(gaju, jp, 6, 123456789123456789123456789) ->
+%% amount(gaju, jp, 6, 123456789123456789123456789) ->
 %%     "1億2345万6789木 12京3456兆本"
 %%
-%% price(gaju, jp, 0, 123456789123456789123456789) ->
+%% amount(gaju, jp, 0, 123456789123456789123456789) ->
 %%     "1億2345万6789木"
 %%
-%% price(puck, jp, all, 123456789123456789123456789) ->
+%% amount(puck, jp, all, 123456789123456789123456789) ->
 %%     "123秭4567垓8912京3456兆7891億2345万6789本"
 %% '''
 
-price(gaju, us, Precision, Pucks) ->
+amount(gaju, us, Precision, Pucks) ->
     western($,, $., 3, Precision, Pucks);
-price(gaju, jp, Precision, Pucks) ->
+amount(gaju, jp, Precision, Pucks) ->
     jp(gaju, Precision, Pucks);
-price(gaju, metric, Precision, Pucks) ->
+amount(gaju, metric, Precision, Pucks) ->
     bestern(gaju, ranks(metric), Precision, Pucks);
-price(gaju, legacy, Precision, Pucks) ->
+amount(gaju, legacy, Precision, Pucks) ->
     bestern(gaju, ranks(heresy), Precision, Pucks);
-price(gaju, {Separator, Span}, Precision, Pucks) ->
+amount(gaju, {Separator, Span}, Precision, Pucks) ->
     western(Separator, $., Span, Precision, Pucks);
-price(puck, us, _, Pucks) ->
+amount(puck, us, _, Pucks) ->
     western($,, 3, Pucks);
-price(puck, jp, _, Pucks) ->
+amount(puck, jp, _, Pucks) ->
     jp(puck, all, Pucks);
-price(puck, metric, _, Pucks) ->
+amount(puck, metric, _, Pucks) ->
     bestern(puck, ranks(metric), all, Pucks);
-price(puck, legacy, _, Pucks) ->
+amount(puck, legacy, _, Pucks) ->
     bestern(puck, ranks(heresy), all, Pucks);
-price(puck, {Separator, Span}, _, Pucks) ->
+amount(puck, {Separator, Span}, _, Pucks) ->
     western(Separator, Span, Pucks).
 
 
@@ -165,7 +165,6 @@ western2(Separator, Break, Span, Precision, Pucks) ->
     end.
 
 decimal_pucks(all, PChars) ->
-    io:format("decimal_pucks: PChars: ~p~n", [PChars]),
     RTrailing = lists:reverse(PChars),
     {lists:reverse(lists:dropwhile(fun(C) -> C =:= $0 end, RTrailing)), ""};
 decimal_pucks(Precision, PChars) ->
@@ -401,121 +400,85 @@ puck_mark() -> $本.
 one_gaju() -> 1_000_000_000_000_000_000.
 
 
-%-spec read(Format) -> Result
+-spec read(Format) -> Result
-%    when Format :: string(),
+    when Format :: string(),
-%         Result :: {ok, Pucks} | {error, Reason},
+         Result :: {ok, Pucks} | {error, Reason},
-%         Pucks  :: integer(),
+         Pucks  :: integer(),
-%         Reason :: {badarg, Partial :: string(), Rest :: term()}
+         Reason :: {badarg, Partial :: string(), Rest :: term()}
-%                 | {incomplete, Partial :: string(), Rest :: binary()}
+                 | {incomplete, Partial :: string(), Rest :: binary()}
-%                 | format.
+                 | format.
-%%% @doc
+%% @doc
-%%% Convery any valid string formatted representation and output a value in pucks.
+%% Convery any valid string formatted representation and output a value in pucks.
-%%% This routine can fail in the special case of `ch' style formatting with a single
+%% This routine can fail in the special case of `ch' style formatting with a single
-%%% comma and/or a single period in it, as this can trigger misinterpretation as `us'
+%% comma and/or a single period in it, as this can trigger misinterpretation as `us'
-%%% style. When in doubt, always call `read/2' with a style specified.
+%% style. When in doubt, always call `read/2' with a style specified.
-%
+
-%read(Format) ->
+read([$木 | Rest]) ->
-%    case assess_style(string:trim(Format)) of
+    read_w_gajus(Rest, []);
-%        us    -> read(us, Format);
+read([$本 | Rest]) ->
-%        ch    -> read(ch, Format);
+    read_w_pucks(Rest, []);
-%        jp    -> read(jp, Format);
+read([C | Rest])
-%        Error -> Error
+        when C =:= $- orelse
-%    end.
+             C =:= $− orelse
-%
+             C =:= $－ ->
-%assess_style([H1, H2 | Numbers])
+    case read(Rest) of
-%        when H1 =:= $木 orelse H1 =:= $本 orelse H2 =:= $木 orelse H2 =:= $本 ->
+        {ok, Pucks} -> {ok, Pucks * -1};
-%    case count($., Numbers) > 1 of
+        Error       -> Error
-%        false -> us;
+    end;
-%        true  -> ch
+read([C | Rest])
-%    end;
+        when C =:= 32    orelse % ASCII space
-%assess_style(Format) ->
+             C =:= 12288 orelse % full-width space
-%    case lists:member($木, Format) orelse lists:member($本, Format) of
+             C =:= $\t   orelse
-%        true  -> jp;
+             C =:= $\r   orelse
-%        false -> {error, format}
+             C =:= $\n ->
-%    end.
+    read(Rest);
-%
+read(_) ->
-%count(Char, String)  -> count(Char, String, 0).
+    io:format("Barfing~n"),
-%
+    {error, format}.
-%count(C, [C | T], A) -> count(C, T, A + 1);
+
-%count(C, [_ | T], A) -> count(C, T, A);
+read_w_gajus([C | Rest], A) when $0 =< C andalso C =< $9 ->
-%count(_, [], A)      -> A.
+    read_w_gajus(Rest, [C | A]);
-%
+read_w_gajus([C | Rest], A) when $０ =< C andalso C =< $９ ->
-%
+    NumC = C - $０ + $0,
-%-spec read(Style, Format) -> Result
+    read_w_gajus(Rest, [NumC | A]);
-%    when Style  :: us | jp | metric | legacy | undefined,
+read_w_gajus([$, | Rest], A) ->
-%         Format :: string(),
+    read_w_gajus(Rest, A);
-%         Result :: {ok, Pucks} | {error, Reason},
+read_w_gajus([$_ | Rest], A) ->
-%         Pucks  :: integer(),
+    read_w_gajus(Rest, A);
-%         Reason :: {badarg, Partial :: string(), Rest :: term()}
+read_w_gajus([$. | Rest], A) ->
-%                 | {incomplete, Partial :: string(), Rest :: binary()}
+    case read_w_pucks(Rest, []) of
-%                 | format.
+        {ok, P} ->
-%%% @doc
+            G = list_to_integer(lists:reverse(A)) * one_gaju(),
-%%% Convert any valid string formatted representation and output a value in pucks.
+            {ok, G + P};
-%%% Note that this function is deliberately a bit too permissive in the case of
+        Error ->
-%%% western formatting, stripping all non-halfwidth digit characters on the high
+            Error
-%%% and low sides of the format once the break (decimal) character is identified
+    end;
-%%% and sign is determined. That is to say, there are many ways to feed this wacky
+read_w_gajus([], A) ->
-%%% strings and get a number out of it, so be aware.
+    G = list_to_integer(lists:reverse(A)) * one_gaju(),
-%
+    {ok, G};
-%read(Style, Format) ->
+read_w_gajus([C, 32 | Rest], A) ->
-%    case unicode:characters_to_list(Format) of
+    read_b_gajus(Rest, [{C, A}]);
-%        String when is_list(String) ->
+read_w_gajus(_, _) ->
-%            Trimmed = string:trim(String),
+    io:format("Derping~n"),
-%            read2(Style, Trimmed);
+    {error, format}.
-%        {error, Partial, Rest} ->
+
-%            {error, {badarg, Partial, Rest}};
+read_w_pucks([C | Rest], A) when $0 =< C andalso C =< $9 ->
-%        Incomplete ->
+    read_w_pucks(Rest, [C | A]);
-%            {error, Incomplete}
+read_w_pucks([C | Rest], A) when $０ =< C andalso C =< $９ ->
-%    end.
+    NumC = C - $０ + $0,
-%
+    read_w_pucks(Rest, [NumC | A]);
-%read2(us, Format) ->
+read_w_pucks([$, | Rest], A) ->
-%    read_western($., Format);
+    read_w_pucks(Rest, A);
-%read2(jp, Format) ->
+read_w_pucks([$_ | Rest], A) ->
-%    read_jp(Format);
+    read_w_pucks(Rest, A);
-%read2(undefined, Format) ->
+read_w_pucks([], A) ->
-%    read(Format).
+    Padded = lists:flatten(string:pad(lists:reverse(A), 18, trailing, $0)),
-%
+    {ok, list_to_integer(Padded)}.
-%read_western(Break, [$-, Format]) ->
+
-%    case read_western2(Break, Format) of
+read_b_gajus(_, _) ->
-%        {ok, Pucks} -> {ok, Pucks * -1};
+    {error, nyi}.
-%        Error       -> Error
+
-%    end;
+
-%read_western(Break, Format) ->
-%    read_western2(Break, Format).
-%
-%read_western2(Break, Format) ->
-%    case string:split(Format, [Break], all) of
-%        [[], L] -> read_western3(0, L);
-%        [H, []] -> read_western3(H, 0);
-%        [H,  L] -> read_western3(H, L);
-%        [H]     -> read_western3(H, 0);
-%        _       -> {error, format}
-%    end.
-%
-%read_western3(0, L) ->
-%    read_l(L);
-%read_western3(H, 0) ->
-%    case read_h(H) of
-%        {ok, Gajus} -> {ok, Gajus * one_gaju()};
-%        Error       -> Error
-%    end;
-%read_western3(H, L) ->
-%    Gajus = read_h(H),
-%    Pucks = read_l(L),
-%    {ok, (Gajus * one_gaju()) + Pucks}.
-%
-%read_h(S) ->
-%    case lists:filter(fun is_numchar/1, S) of
-%        [] -> 0;
-%        F  -> list_to_integer(Filtered)
-%    end.
-%
-%read_l(L) ->
-%    case lists:filter(fun is_numchar/1, S) of
-%        [] -> 0;
-%        F  -> list_to_integer(lists:flatten(string:pad(F, 18, trailing, $0)))
-%    end.
-%
 %is_numchar(C) -> $0 =< C andalso C =< $9.
 %
 %read_jp([$-, Format]) ->