/* $Id: wordwrap.cc,v 1.5 1997/03/23 13:52:15 dps Exp $ */
/* Wordwrap function for library */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif /* HAVE_CONFIG_H */
#include <stdio.h>
#include <stdlib.h>
#ifdef HAVE_CTYPE_H
#include <ctype.h>
#endif /* HAVE_CTYPE_H */
#include "tblock.h"
#define __EXLCUDE_READER_CLASSES
#include "lib.h"


/* Word wrap text into lines of length room */
tblock *word_wrap(const char *txt, const char *nl, const char *expl_nl,
		  const int room, const int ilen)
{
    struct tblock *ans;
    const char *wptr, *sc;
    int wlen, croom, flg;
    int nl_len;			// Performance hack

    ans=new(tblock);

    wlen=0;
    wptr=sc=txt;
    croom=room-ilen;
    nl_len=strlen(nl);
    flg=0;
	
    while (1)
    {
	/* FIXME: huge words might cause an oversize line */
	/* (this is not a typesetting program like *roff) */
	if (isspace(*sc) || *sc=='\n' || *sc=='\0')
	{
	    if (wlen+flg>croom)
	    {
		ans->add(nl,nl_len);
		croom=room;
		flg=0;
	    }
	    if (wlen>0)
	    {
		if (flg)
		{
		    ans->add(' ');
		    croom--;
		}
		ans->add(wptr, wlen);
		croom-=wlen;
		flg=1;
	    }
	    if (*sc=='\n')
	    {
		ans->add(expl_nl);
		croom=room;
		flg=0;
	    }
	    wlen=0;
	}
	else
	{
	    if (wlen==0)
		wptr=sc;
	    wlen++;
	}
	if (*sc=='\0') break;	// Stop condition
	sc++;
    }
    return ans;
}