#include "parser.h"
#include <locale>

parser::parser(int rWidth)
    : width_(rWidth),
      head_(new buffer()),
      elems_(0),
      sumSize_(0),
      first_(true),
      writed_(false) {
  if (rWidth < 25) {
    std::cerr << "incorrect width\n";
    exit(EXIT_FAILURE);
  }
  pList temp2 = head_;
  for (int i = 0; i < 3; i++) {
    pList temp(new buffer());
    temp2->next = temp;
    temp2 = temp;
  }
  temp2->next = head_;
}

parser::~parser() {
  pList temp = head_;
  for (int i = 0; i < 3; i++) {
    temp = head_->next;
    delete head_;
    head_ = temp;
  }
  delete temp;
}

void parser::parse() {
  pList iter = head_->next->next->next;
  type_t t = UNDEFINED;
  int i = 0;
  char dot = '.';
  bool numberWithDot = false;
  bool wordWithMinus = false;
  std::cin >> std::noskipws;
  while (std::cin >> arr_[i]) {
    if (t == WORD) {
      if (isalpha(arr_[i])) {
        i++;
        wordWithMinus = false;
        continue;
      } else if (isspace(arr_[i])) {
        save(iter, 0, i, t);
        i = 0;
        t = UNDEFINED;
        wordWithMinus = false;
        continue;
      } else if ((ispunct(arr_[i])) && (arr_[i] != '-')) {
        save(iter, 0, i, t);
        if (arr_[i] == ',') {
          save(iter, i, i + 1, COMMA);
        } else {
          save(iter, i, i + 1, PUNCTUATION);
        }
        i = 0;
        t = UNDEFINED;
        wordWithMinus = false;
        continue;
      } else if (arr_[i] == '-') {
        if (wordWithMinus == false) {
          wordWithMinus = true;
        } else {
          t = DASH;
        }
      } else if (isdigit(arr_[i])) {
        std::cerr << "letter+digit\n";
        exit(EXIT_FAILURE);
      }
    }

    else if (t == NUMBER) {
      if (isdigit(arr_[i])) {
        i++;
        continue;
      } else if (isspace(arr_[i])) {
        if (arr_[i - 1] == dot) {
          save(iter, 0, i - 1, t);
          save(iter, i - 1, i, PUNCTUATION);
        } else {
          save(iter, 0, i, t);
        }
        i = 0;
        t = UNDEFINED;
        numberWithDot = false;
        continue;
      } else if ((arr_[i] == dot) && (numberWithDot == false)) {
        numberWithDot = true;
      } else if ((ispunct(arr_[i])) && (arr_[i] != '-')) {
        if (arr_[i - 1] == dot) {
          std::cerr << "wrong combination of number with dot and punctuation\n";
          exit(EXIT_FAILURE);
        } else {
          save(iter, 0, i, NUMBER);
          if (arr_[i] == ',') {
            save(iter, i, i + 1, COMMA);
          } else {
            save(iter, i, i + 1, PUNCTUATION);
          }
          i = 0;
          t = UNDEFINED;
          numberWithDot = false;
          continue;
        }
      } else if (arr_[i] == '-') {
        if (i != 1) {
          save(iter, 0, i, NUMBER);
        }
        t = DASH;
      } else if (isalpha(arr_[i])) {
        std::cerr << "letter+digit\n";
        exit(EXIT_FAILURE);
      }
    }

    else if (t == DASH) {
      if (arr_[i - 2] == '-') {
        if (arr_[i] == '-') {
          if ((iter->t == PUNCTUATION) || (iter->t == UNDEFINED)) {
            std::cerr << "punctuation error\n";
            exit(EXIT_FAILURE);
          } else {
            save(iter, i - 2, i + 1, DASH);
            i = 0;
            t = UNDEFINED;
            wordWithMinus = false;
            numberWithDot = false;
            continue;
          }
        }
      } else {
        std::cerr << "--\n";
        exit(EXIT_FAILURE);
      }

      if (arr_[i] != '-') {
        std::cerr << "wrong dash\n";
        exit(EXIT_FAILURE);
      }
    }

    else if (t == UNDEFINED) {
      if (isspace(arr_[i])) {
        continue;
      } else if (isalpha(arr_[i])) {
        t = WORD;
      } else if (isdigit(arr_[i]) || (arr_[i] == '+') || (arr_[i] == '-')) {
        t = NUMBER;
      } else if ((ispunct(arr_[i])) && (arr_[i] != '-')) {
        if ((iter->t == UNDEFINED) || (iter->t == PUNCTUATION) ||
            (iter->t == COMMA) || (iter->t == DASH)) {
          std::cerr << "punctuation error\n";
          exit(EXIT_FAILURE);
        } else if (arr_[i] == ',') {
          save(iter, 0, 1, COMMA);
        } else {
          save(iter, 0, 1, PUNCTUATION);
        }
        continue;
      }
    }

    i++;
  }
  if (i > 0) {
    save(iter, 0, i, t);
  }
  while (elems_ != 0) {
    print();
  }
  std::cout << std::endl;
}

void parser::print() {
  pList iter = head_;
  std::string temp = iter->str;  // current word + punctuations
  elems_--;
  if (iter->next->t == COMMA) {
    temp += ',';
    iter = iter->next;
    iter->t = UNDEFINED;
    elems_--;
    if (iter->next->t == DASH) {
      temp += " ---";
      iter = iter->next;
      iter->t = UNDEFINED;
      elems_--;
    }
  } else if (iter->next->t == DASH) {
    temp += " ---";
    iter = iter->next;
    iter->t = UNDEFINED;
    elems_--;
  } else if (iter->next->t == PUNCTUATION) {
    temp += iter->next->str;
    iter = iter->next;
    iter->t = UNDEFINED;
    elems_--;
  }

  if (!first_) {
    sumSize_++;
  }
  sumSize_ += temp.size();
  if (sumSize_ > width_) {
    std::cout << std::endl;
    sumSize_ = temp.size();
  } else if (!first_) {
    std::cout << ' ';
  }

  std::cout << temp;
  first_ = false;
  head_ = iter->next;
}

void parser::save(pList& iter, int begin, int end, type_t t) {
  if ((end - begin) > 20) {
    std::cerr << "too large\n";
    exit(EXIT_FAILURE);
  }
  if ((iter->next == head_) && (writed_)) {
    print();
  }
  iter = iter->next;
  std::string temp(arr_ + begin, arr_ + end);
  iter->t = t;
  iter->str = temp;
  writed_ = true;
  elems_++;
}