t_splitter.cpp

Go to the documentation of this file.

/*****************************************************************************\
*                                                                             *
*  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 <basis/chaos.h>
#include <basis/function.h>
#include <basis/guards.h>
#include <basis/istring.h>
#include <opsystem/application_shell.h>
#include <data_struct/static_memory_gremlin.h>
#include <textual/string_manipulation.h>

HOOPLE_STARTUP_CODE;

class test_splitter : public application_shell
{
public:
  test_splitter();
  IMPLEMENT_CLASS_NAME("test_splitter");
  int execute();
};

test_splitter::test_splitter() : application_shell("t_splitter")
{}

istring show_limits(int min_col, int max_col)
{
  istring 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");

  istring 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.";
  
  istring 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);

  istring 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);

  istring 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... califragilisticexpialadociuosberriesinmycrotcharerottingnowmamacasshelpme";

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

  istring 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);

  guards::alert_message("split_line:: work for those functions tested if the output looks right.");
  return 0;
}

int main()
{
  test_splitter to_test;
  return to_test.execute();
}

---