The OpenD Programming Language

/**
  Some helper functions for ranges
*/
module ggplotd.range;

version(unittest) {
    import dunit.toolkit;
}

private struct HashSet(E) {
    // TODO switch to proper implementation (not using AA)
    bool put(E el)
    {
        if ( el in set )
            return false;
        set[el] = set.length;
        return true;
    }

    import std.range : ElementType;

    bool put(R)(R range)
        if (is(E==ElementType!R))
    {
        auto result = false;
        foreach(el; range)
        {
            auto r = this.put(el);
            if (r)
                result = true;
        }
        return result;
    }

    bool put(S)(in S hset)
        if (is(S==HashSet!E))
    {
        return this.put(hset.data);
    }

    @property auto data() const
    {
        import std.array : array;
        import std.algorithm : map, sort;
        auto kv = set.byKeyValue().array;
        auto sorted = kv.sort!((a, b) => a.value < b.value);
        return sorted.map!((a) => a.key);
    }
    
    auto @property length() const
    {
        return set.length;
    }

    size_t[E] set;
}

unittest
{
    import std.array : array;
    import std.range : walkLength;
    HashSet!string set;
    set.put("b");
    assertEqual(set.data.walkLength, 1);
    set.put("b");
    assertEqual(set.data.walkLength, 1);
    set.put(["a","b"]);
    assertEqual(set.data.walkLength, 2);
    assertEqual(set.data.array, ["b", "a"]);
    HashSet!string set2;
    set2.put(["a", "b", "c", "d", "e", "f", "g", "h", "i"]);
    set.put(set2);
    assertEqual(set.data.array, ["b", "a", "c", "d", "e", "f", "g", "h", "i"]);
}

/**
  Lazily iterate over range and returning only uniques
  */
auto uniquer(R)(R range)
{
    struct Unique(Range)
    {
        import std.range : ElementType;

        Range range;
        HashSet!(ElementType!Range) set;

        this( Range _range )
        {
            import std.range : front;
            range = _range;
            this.popFront;
        }

        @property auto front()
        {
            import std.range : front;
            return range.front;
        }

        void popFront()
        {
            import std.range : front, popFront, empty;
            while( !range.empty )
            {
                // TODO: Currently this causes an unnecessary "initial" check, because we now that previous value was already added. I think the only way to solve this would be to keep currentValue and possible future value around.
                if (set.put(range.front))
                {
                    currentFront = range.front;
                    break;
                }
                range.popFront;
            }
        }

        @property bool empty()
        {
            import std.range : empty;
            return range.empty;
        }

        ElementType!Range currentFront;
    }
    return Unique!R(range);
}

///
unittest
{
    import std.array : array;
    assertEqual( [1,1,1,1].uniquer.array, [1] );
    assertEqual( [1].uniquer.array, [1] );
    assertEqual( "".uniquer.array, [] );
    assertEqual( [1,2,1,3].uniquer.array, [1,2,3] );
    assertEqual( [1,2,1,3,1,2].uniquer.array, [1,2,3] );
    assertEqual( [1,2,3].uniquer.array, [1,2,3] );
    assertEqual( ["a","b","a","c","a","c"].uniquer.array, ["a","b","c"] );

    import std.typecons : tuple;
    assertEqual( [tuple(1,"a"),tuple(1,"b"),tuple(2,"b"),tuple(1,"b")]
            .uniquer.array, [tuple(1,"a"),tuple(1,"b"),tuple(2,"b")] );
}

/++
    Group an (unsorted) range by the result of the function applied to each element
+/
private import std.range : isInputRange;

auto groupBy(alias func = function(a) { return a; }, R)(R values)
    if (isInputRange!R)
{
    import std.range : front, ElementType;
    alias K = typeof(func(values.front));
    alias V = ElementType!R[];
    V[K] grouped;
    foreach(value; values) 
        grouped[func(value)] ~= value;
    return grouped;
}

///
unittest {
    import std.stdio : writeln;
    import std.algorithm : sort;
    import std.typecons : tuple;
    auto xs = [
        tuple("a", 1.0),
        tuple("b", 3.0),
        tuple("a", 2.0),
        tuple("b", 4.0)];
    auto grouped = xs.groupBy!((a) => a[0]);
    assertEqual( grouped.keys.length, 2 );
    assertEqual( grouped.keys.sort(), ["a","b"].sort() );
}

/++
  Merge the elements of two ranges. If first is not a range then merge that with each element of the second range and vice versa.
+/
auto mergeRange( R1, R2 )( R1 r1, R2 r2 )
    if (isInputRange!R1 || isInputRange!R2)
{
    import std.range : zip, StoppingPolicy, walkLength, repeat;
    import std.algorithm : map;

    import ggplotd.aes : merge;
    static if (isInputRange!R1 && isInputRange!R2)
        return zip(StoppingPolicy.longest, r1,r2).map!((a) => a[0].merge( a[1] ) );
    else
    {
        // TODO: should not have to repeat r2 for more than once with stoppingpolicy.longest,
        // but currently doing that crashes. Probably compiler bug, might try changing it later
        static if (isInputRange!R1)
            return zip(StoppingPolicy.longest, r1, r2.repeat(r1.walkLength))
                .map!((a) => a[0].merge( a[1] ) );
        else
            return zip(StoppingPolicy.longest, r1.repeat(r2.walkLength), r2 )
                .map!((a) => a[0].merge( a[1] ) );
    }
}

unittest
{
    import std.range : walkLength;
    import ggplotd.aes : Aes, DefaultValues;
    auto m = [DefaultValues].mergeRange( Aes!(double[], "x")([1.0]));
    assertEqual( m.walkLength, 1);
}


///
unittest
{
    import std.range : front;
    import ggplotd.aes : Aes, DefaultValues;

    auto xs = ["a", "b"];
    auto ys = ["c", "d"];
    auto labels = ["e", "f"];
    auto aes = Aes!(string[], "x", string[], "y", string[], "label")(xs, ys, labels);
    auto nlAes = mergeRange(DefaultValues, aes );
    assertEqual(nlAes.front.x, "a");
    assertEqual(nlAes.front.label, "e");
    assertEqual(nlAes.front.colour, "black");
    auto nlAes2 = aes.mergeRange(DefaultValues);
    assertEqual(nlAes2.front.x, "a");
    assertEqual(nlAes2.front.label, "");
    assertEqual(nlAes2.front.colour, "black");
}