wtokeini.c
407 Bytes
#include "sctk.h"
/* Modification: 9/14/95 JGF Changed to free the the word array */
WTOKE_STR1 *WTOKE_STR1_init(char *filename){
WTOKE_STR1 *tsegs;
alloc_singarr(tsegs,1,WTOKE_STR1);
tsegs->s=1;
tsegs->n=0;
tsegs->has_conf=0;
tsegs->id=(char *)TEXT_strdup((TEXT *)filename);
tsegs->max = 5000;
alloc_singarr(tsegs->word,tsegs->max,WTOKE1);
return(tsegs);
}