#include "seq.h"
#include "wrap.h"
#include "reader.h"

int WrapMode::wrap_pos(const char *str, int wrapCol) const {
    // returns the first position lower equal 'wrapCol' after which splitting
    // is possible (according to separators of WrapMode)
    //
    // returns 'wrapCol' if no such position exists (fallback)
    //
    // throws if WrapMode is disabled

    if (!allowed_to_wrap()) throw_errorf(50, "Oversized content - no wrapping allowed here (content='%s')", str);

    ca_assert(wrapCol <= (int)strlen(str)); // to short to wrap

    const char *wrapAfter = get_seps();
    ca_assert(wrapAfter);
    int i = wrapCol;
    for (; i >= 0 && !occurs_in(str[i], wrapAfter); --i) {}
    return i >= 0 ? i : wrapCol;
}

const char *WrapMode::print_return_wrapped(Writer& write, const char * const content, const int len, const int rest_width) const {
    ca_assert(content[len] == '\n');

    if (len<(rest_width+1)) {
        write.out(content);
        return NULp; // no rest
    }

    int split_after = wrap_pos(content, rest_width);

    ca_assert(split_after>0);
    if (occurs_in(content[split_after], " \n")) split_after--;
    ca_assert(split_after >= 0);
    ca_assert(split_after <= len);

    int continue_at = split_after+1;
    while (continue_at < len && occurs_in(content[continue_at], " \n")) continue_at++;

    ca_assert(content[split_after] != '\n');
    fputs_len(content, split_after+1, write);
    write.out('\n');

    ca_assert(content[len] == '\n');
    ca_assert(len >= continue_at);

    return content+continue_at;
}

void WrapMode::print(Writer& write, const char *first_prefix, const char *other_prefix, const char *content, int max_width) const {
    ca_assert(has_content(content));

    int len        = strlen(content)-1;
    int prefix_len = strlen(first_prefix);

    write.out(first_prefix);
    const char *rest = print_return_wrapped(write, content, len, max_width-prefix_len);

    if (rest) {
        prefix_len = strlen(other_prefix);

        while (rest) {
            len     -= rest-content;
            content  = rest;

            write.out(other_prefix);
            rest = print_return_wrapped(write, content, len, max_width-prefix_len);
        }
    }
}