#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <string.h>
#include <fcntl.h>
#include <ctype.h>
typedef struct Word {
char word[BUFSIZ];
int count;
struct Word *pre;
struct Word *next;
} Word;
Word *create_word(char *s)
{
Word *new_word;
new_word = (Word *)malloc(sizeof(Word));
if(new_word==NULL) printf("error malloc\n");
strcpy(new_word->word, s);
new_word->count = 0;
new_word->pre = NULL;
new_word->next = NULL;
return new_word;
}
void insert_word(Word **head, char *w)
{
Word *new_word = create_word(w);
Word *s = *head;
if(*head == NULL)
{
new_word->count++;
new_word->pre = *head;
*head = new_word;
}
else if(strcmp(s->word, new_word->word)==1)
{
new_word->count++;
new_word->pre = *head;
new_word->next = s;
s->pre = new_word;
*head = new_word;
}
else
{
while(s->next != NULL)
{
if(strcmp(s->word, new_word->word)==-1)
{
s = s->next;
}
else
break;
}
if(strcmp(s->word, new_word->word)==-1)
{
new_word->count++;
new_word->pre = s;
s->next = new_word;
}
else if(strcmp(s->word, new_word->word)==1)
{
s->pre->next = new_word;
new_word->pre = s->pre;
new_word->count++;
new_word->next = s;
s->pre = new_word;
}
else if(strcmp(s->word, new_word->word)==0)
{
s->count++;
free(new_word);
}
}
}
main()
{
int fdr, fdw;
Word *word;
int c;
char ch, buf, *buf_out, buffer[BUFSIZ];
off_t cur, end;
if((fdr=open("the_gold_bug.txt", O_RDONLY))==-1)
{
perror("open : the_gold_bug.txt");
exit(1);
}
if((fdw=open("text.res2", O_WRONLY | O_CREAT | O_TRUNC, S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH))==-1)
{
perror("open : text.res2");
exit(1);
}
while(read(fdr, &buf, 1)>0)
{
c = toascii(buf);
if((c>='a' && c<='z') || (c>='A' && c<='Z'))
{
if(c>='A' && c<='Z')
c+=32;
sprintf(&ch, "%c", c);
if(*buffer==0)
strcpy(buffer, &ch);
else
strcat(buffer, &ch);
}
else
{
if(*buffer != 0)
{
insert_word(&word, buffer);
}
memset(buffer, '\0', sizeof(buffer));
}
}
while(word)
{
sprintf(buf_out, "%s\t%d\n", word->word, word->count);
write(fdw, buf_out, strlen(buf_out)*sizeof(char));
word = word->next;
}
close(fdr);
close(fdw);
}
