#include <stdio.h>
#include <stdlib.h>
#include <string.h>

void header(int width, int margin, char lineChar, char *headerTitle, char *inputMessage, int meslen);

int main() {
  char message[] = "Testing this out some more. okay i think its working now DHOWEIFH HDSOIHTOHNDS HSODUIHT. This program will calculate your life expecantacy and bmi and BSA by just your weight(kg), height(cm), and gender.";

  header(80, 4, '*', "Purpose", message, (int)strlen(message));

  return 0;
}

void header(int width, int margin, char lineChar, char *headerTitle, char *inputMessage, int meslen) {
  int TITLE_MARGIN = 3;
  int CONTENT_MARGIN = margin;
  
  int rows = 1;



  char line[width + 1];
  char topLine[width + 1];

  int contentWidth = (width - 2 * CONTENT_MARGIN) - 2;
  // Create Line
  for (int i = 0; i < width; i++) {
    line[i] = lineChar;
  }

  line[width] = 0;

  strcpy(topLine, line);
  // Add header title
  for (int i = TITLE_MARGIN; i < ((int)strlen(headerTitle) + TITLE_MARGIN); i++) {
    topLine[i] = headerTitle[i - TITLE_MARGIN];
  } 

  topLine[width] = 0;


  char *message = (char *)malloc((meslen + 100) * sizeof(char));
  if (message == NULL) {
    printf("Memory allocation failed!\n");
    exit(1);
  }


  strncpy(message, inputMessage, meslen + 100);


  while(1) {
    if ((contentWidth * rows) > (int)strlen(message)) { break; }
    if (message[(contentWidth * rows)] != ' ') {
      int i = 1;
      int tempCounter = 0;
      while (1) {
        if (message[(contentWidth * rows) - i] == ' ') {
          int start = ((contentWidth * rows) - i) + 1;
          char tempMessage[(int)strlen(message)];
          int k = 0;
          for (int j = 0; j < (int)strlen(message); j++) {
            tempMessage[j] = ' ';
          }
          for (int j = start; j < strlen(message); j++) {
            tempMessage[k] = message[j];
            tempCounter = k;
            k++;
          }
          for (int j = 0; j < i; j++) {
            message[start + j] = ' ';
          }
          for (int j = 0; j < tempCounter + 2; j++) {
            message[(start + i) +  j] = tempMessage[j];
            if (tempCounter + 1 == j) {
              message[(start + i) + j] = 0;
            }
          }
          break;
        }
        i++;
      }
    }
    rows++;
  }


  printf("%s\n", topLine);

  for (int i = 0; i < rows; i++) {
    int charCount = 0;
    printf("*");
    for (int j = 0; j < CONTENT_MARGIN; j++) {
      printf(" ");
    }
    for (int j = 0; j < contentWidth; j++) {
      if (charCount == 0 && (message[j + (i * contentWidth)] == ' ')) {j++;}
      if (!(message[j + (i * contentWidth)])) {
        break;
      }
      printf("%c", message[j + (i * contentWidth)]);
      charCount++;
    }
    for (int j = 0; j < contentWidth - charCount; j++) {
      printf(" ");
    }
    for (int j = 0; j < CONTENT_MARGIN; j++) {
      printf(" ");
    }
    printf("*\n");
  }

  printf("%s\n", line);

  free(message);
}