/*
*  Name   : test_splitter
*  Author : Chris Koeritz
*  Purpose: Checks out the line splitting support to make sure it is working.
**
* Copyright (c) 1992-$now By Author.  This program is free software; you can  *
* redistribute it and/or modify it under the terms of the GNU General Public  *
* License as published by the Free Software Foundation; either version 2 of   *
* the License or (at your option) any later version.  This is online at:      *
*     http://www.fsf.org/copyleft/gpl.html                                    *
*/

#include <application/hoople_main.h>
#include <basis/astring.h>
#include <basis/functions.h>
#include <basis/guards.h>
#include <mathematics/chaos.h>
#include <structures/static_memory_gremlin.h>
#include <textual/string_manipulation.h>
#include <unit_test/unit_base.h>

using namespace application;
using namespace basis;
using namespace filesystem;
using namespace loggers;
using namespace mathematics;
using namespace structures;
using namespace textual;
using namespace timely;
using namespace unit_test;

#define LOG(to_print) EMERGENCY_LOG(program_wide_logger().get(), astring(to_print))

class test_splitter : public virtual unit_base, virtual public application_shell
{
public:
  test_splitter() {}
  DEFINE_CLASS_NAME("test_splitter");
  int execute();
};

astring show_limits(int min_col, int max_col)
{
  astring to_return;
  for (int i = 0; i <= max_col; i++) {
    if (i < min_col) to_return += " ";
    else to_return += "+";
  }
  return to_return;
}

#define SHOW_SPLIT(str, low, high) \
  string_manipulation::split_lines(str, output, low, high); \
  LOG(""); formal(temp)\
  LOG(show_limits(low, high)); \
  LOG(output + "<<<<"); \
  LOG(show_limits(low, high))

int test_splitter::execute()
{
  FUNCDEF("execute");

  astring split_1 = "This is a fairly long paragraph that will be split a few different ways to check the splitting logic.  It will be interesting to see how things like spaces, and punctuation, are handled.";
  
  astring output;

  SHOW_SPLIT(split_1, 0, 1);
  SHOW_SPLIT(split_1, 0, 10);
  SHOW_SPLIT(split_1, 10, 30);
  SHOW_SPLIT(split_1, 20, 35);
  SHOW_SPLIT(split_1, 4, 50);
  SHOW_SPLIT(split_1, 8, 12);

  astring split_2 = "Here's another string.\r\nThere are embedded carriage returns after every sentence.\r\nSo, this should be a good test of how those things are handled when they're seen in the body of the text.\r\nThe next one is, hey, guess what?\r\nIt's a simple LF instead of CRLF; here it comes:\nHow did that look compared the others?\nThe previous was another bare one.\r\nWhen can I stop writing this stupid paragraph?\r\nSoon hopefully.";

  SHOW_SPLIT(split_2, 5, 20);
  SHOW_SPLIT(split_2, 0, 30);
  SHOW_SPLIT(split_2, 8, 11);
  SHOW_SPLIT(split_2, 28, 41);
  SHOW_SPLIT(split_2, 58, 79);

  astring split_3 = "This string exists for just one purpose; it will be showing how the thing handles a really long word at the end.  And that word is... califragilisticexpialadociuosberriesinatreearerottingnowsomamacasscanyoupleasehelpme";

  SHOW_SPLIT(split_3, 0, 5);
  SHOW_SPLIT(split_3, 10, 30);

  astring split_4 = "This string\n\n\nhas multiple CRs gwan on.\r\n\r\nDoes this cause problems?\n\n\n\n";

  SHOW_SPLIT(split_4, 3, 10);
  SHOW_SPLIT(split_4, 8, 20);

  return final_report();
}

HOOPLE_MAIN(test_splitter, );