forks/ezic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

semantic api change: flatten_zones -> flatten_all_zones.

Browse Source
This commit is contained in:
aj
2010-11-11 23:54:38 -08:00
parent c976e63349
commit 1340f64d8b
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/ezic_flatten.erl
View File

@@ -17,7 +17,7 @@
flatten() -> flatten() ->
AllZones= ezic_db:get_all(zone), AllZones= ezic_db:get_all(zone),
flatten_zones(AllZones), flatten_all_zones(AllZones),
not_done. not_done.
@@ -28,15 +28,15 @@ flatten() ->
% recursively processes sets of similar zones until they're all done, % recursively processes sets of similar zones until they're all done,
% passing zone sets to flatten_zone_set/1 % passing zone sets to flatten_zone_set/1
flatten_zones(Zones) -> flatten_all_zones(Zones) ->
flatten_zones(Zones, []). flatten_all_zones(Zones, []).
flatten_zones([], Flats) -> flatten_all_zones([], Flats) ->
Flats; Flats;
flatten_zones([Z1|_]= AllZones, Flats) -> flatten_all_zones([Z1|_]= AllZones, Flats) ->
{CurrentZones, RestZones}= ezic_zone:split_by_name(Z1, AllZones), {CurrentZones, RestZones}= ezic_zone:split_by_name(Z1, AllZones),
NewFlats= lists:merge(Flats, flatten_zone_set(CurrentZones)), NewFlats= lists:merge(Flats, flatten_zone_set(CurrentZones)),
flatten_zones(RestZones, NewFlats). flatten_all_zones(RestZones, NewFlats).