#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);
}