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

#define SIZE 10
#define WORD_SIZE 64
#define TEXT_SIZE 512

typedef struct {
  size_t size;
  void *ptr;
  size_t alloc_size;
  size_t use_size;
} ARRAY;

typedef struct {
  ARRAY word;
  ARRAY text;
} WORD;

int word_sort(const void *a, const void *b)
{
  return alphasort(&(((WORD *)a)->word.ptr), &(((WORD *)b)->word.ptr));
}

void init_array(ARRAY *ap, size_t size)
{
  memset(ap, 0, sizeof(ARRAY));
  ap->size = size;
}

void alloc_array(ARRAY *ap)
{
  void *temp;
  
  temp = ap->ptr;
  
  if (ap->ptr) {
    if (ap->use_size % (ap->size * SIZE) == 0) {
      ap->alloc_size += ap->size * SIZE;
      temp = realloc(temp, ap->alloc_size);
      memset(&((char *)temp)[ap->alloc_size - (ap->size * SIZE)], 0, ap->size * SIZE);
    }
  }else{
    ap->alloc_size = ap->size * SIZE;
    temp = malloc(ap->alloc_size);
    memset(temp, 0, ap->alloc_size);
  }
  
  ap->ptr = temp;
}

void expand_array(ARRAY *ap, size_t expand_size)
{
  size_t old_size;
  size_t new_size;
  size_t init_size;
  
  if (ap->alloc_size >= expand_size) {
    return;
  }
  
  if (expand_size % (ap->size * SIZE) == 0) {
    new_size = expand_size;
  }else{
    new_size = ((int)(expand_size / (ap->size * SIZE)) + 1) * (ap->size * SIZE);
  }
  
  old_size = ap->alloc_size;
  init_size = new_size - old_size;
  ap->alloc_size = new_size;
  ap->ptr = realloc(ap->ptr, ap->alloc_size);
  memset(&((char *)ap->ptr)[old_size], 0, init_size);
}

void trim_symbol(char *cp, size_t n)
{
  int i;
  int c;
  
  i = 0;
  c = 0;
  while (cp[i] || i == n) {
    if (isalpha(cp[i])) {
      cp[c] = cp[i];
      c++;
    }
    i++;
  }
  
  cp[c] = '\0';
}

void init_text(char cp[1024], FILE *in)
{
  char temp[1024];
  
  fgets(temp, 1024, in);
  strncpy(cp, temp, 1024);
}

void tokenize_text(ARRAY *word_list, char cp[1024])
{
  int i;
  char *word;
  WORD *tword;
  char *tcp;
  
  i = (word_list->use_size / word_list->size) - 1;
  word = strtok(cp, ".,? \n");
  while (word != NULL) {
    i++;
    alloc_array(word_list);
    tword = &(((WORD *)(word_list->ptr))[i]);
    init_array(&(tword->word), sizeof(char));
    alloc_array(&(tword->word));
    expand_array(&(tword->word), strlen(word) + 1);
    init_array(&(tword->text), sizeof(char));
    alloc_array(&(tword->text));
    tcp = tword->word.ptr;
    strncpy(tcp, word, tword->word.alloc_size);
    tword->word.use_size = strlen(word) + 1;
    trim_symbol(tcp, tword->word.alloc_size);
    word = strtok(NULL, ".,? \n");
    word_list->use_size += word_list->size;
  }
}

void show_words(ARRAY *ap, FILE *out)
{
  int i;
  
  for (i = 0; i < (ap->use_size / ap->size); i++) {
    fprintf(out, "[%d] = %s\n", i, (char *)(((WORD *)(ap->ptr))[i].word.ptr));
  }
}

int menu(void)
{
  int temp;
  
  puts("MENU");
  puts("--------------------");
  puts("1.単語を登録");
  puts("2.単語を一括登録");
  puts("3.単語の検索");
  puts("4.単語の編集");
  puts("5.単語の削除");
  puts("6.データの保存");
  puts("0.終了");
  puts("--------------------");
  puts("番号を入力してください");
  
  temp = getchar();
  getchar();
  
  return temp - '0';
}

int main(void)
{
  FILE *in = NULL;
  FILE *out = NULL;
  FILE *ifp = NULL;
  FILE *ofp = NULL;
  char input[1024];
  ARRAY word_list;
  size_t use = 0;
  size_t size;
  
  /*while (1) {
    switch (menu()) {
    case 0:
      exit(0);
      break;
    case 1:
      
      break;
    case 2:
      break;
    case 3:
      break;
    case 4:
      break;
    case 5:
      break;
    case 6:
      break;
    default:
      continue;
    }
    }*/
  
  puts("入力元を指定してください(s:標準入力 f:ファイル)");
  switch (getchar()) {
  case 's':
    in = stdin;
    break;
  case 'f':
    ifp = fopen("input.txt", "r");
    in = ifp;
    break;
  }
  getchar();
  
  puts("出力先を指定してください(s:標準出力 f:ファイル)");
  switch (getchar()) {
  case 's':
    out = stdout;
    break;
  case 'f':
    ofp = fopen("output.txt", "w");
    out = ofp;
    break;
  }
  getchar();
  
  memset(input, 0, 1024);
  
  init_text(input, in);
  init_array(&word_list, sizeof(WORD));
  tokenize_text(&word_list, input);
  qsort(word_list.ptr, word_list.use_size / word_list.size, word_list.size, word_sort);
  show_words(&word_list, out);
  
  if (ifp) {
    fclose(ifp);
  }
  if (ofp) {
    fclose(ofp);
  }
  
  return 0;
}