Subversion Repositories Kolibri OS

   GNU UnRTF, a command-line program to convert RTF documents to other formats.

   Copyright (C) 2000,2001 Zachary Thayer Smith

   it under the terms of the GNU General Public License as published by

   the Free Software Foundation; either version 2 of the License, or

   (at your option) any later version.

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   along with this program; if not, write to the Free Software

   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

=============================================================================*/

 * Module name:    word

 * Author name:    Zach Smith

 * Create date:    01 Sep 00

 * Purpose:        Management of Word objects, which contain strings

 *                 as well as other Words.

 *----------------------------------------------------------------------

 * Changes:

 * 14 Oct 00, tuorfa@yahoo.com: fixed \fs bug (# is 2X the point size).

 * 14 Oct 00, tuorfa@yahoo.com: fixed table data printing.

 * 14 Oct 00, tuorfa@yahoo.com: protection against null entries in \info

 * 14 Oct 00, tuorfa@yahoo.com: fixed printing of  again

 * 14 Oct 00, tuorfa@yahoo.com: fixed closure of tables

 * 15 Oct 00, tuorfa@yahoo.com: fixed font attributes preceding 

 * 15 Oct 00, tuorfa@yahoo.com: attributes now continue if >1 \cell in group

 * 15 Oct 00, tuorfa@yahoo.com: fixed font-size bug, lack of 

 *  7 Nov 00, tuorfa@yahoo.com: fixed \'## translatin bug

 *  8 Apr 01, tuorfa@yahoo.com: added check for out of memory after malloc

 * 21 Apr 01, tuorfa@yahoo.com: bug fixes regarding author, date

 * 21 Apr 01, tuorfa@yahoo.com: added paragraph alignment

 * 21 Apr 01, tuorfa@yahoo.com: fix for words getting lost after \par

 * 24 Jul 01, tuorfa@yahoo.com: moved conversion code to convert.c

 * 22 Sep 01, tuorfa@yahoo.com: moved word_dump to here from parse.c

 * 22 Sep 01, tuorfa@yahoo.com: added function-level comment blocks

 *--------------------------------------------------------------------*/

#include 

#include 

#include 

#include "parse.h"

#include "malloc.h"

#include "main.h"

#include "error.h"

#include "word.h"

#include "hash.h"

static int indent_level=0;

 * Name:	word_string

 * Purpose:	Obtains the string of a Word object. This involves accessing

 *		the Word hash.

 * Args:	Word*.

 * Returns:	String.

 *=======================================================================*/

word_string (Word *w) {

	char *str;

	CHECK_PARAM_NOT_NULL(w);

	if (w->hash_index) str = hash_get_string (w->hash_index);

	else str = NULL;

	return str;

}

 * Name:	word_new

 * Purpose:	Instantiates a new Word object.

 * Args:	String.

 * Returns:	Word*.

 *=======================================================================*/

word_new (char *str) {

	Word * w;

	if (!w)

		error_handler ("out of memory");

	memset ((void*) w, 0, sizeof(Word));

	if (!w) error_handler ("cannot allocate a Word");

	else w->hash_index = 0;

}

 * Name:	word_free

 * Purpose:	Deallocates a Word object.

 * Args:	Word.

 * Returns:	None.

 *=======================================================================*/

	Word *prev;

	Word *w2;

		w2 = w->child;

		if (w2)

			word_free(w2);

		w = w->next;

		my_free ((char*) prev);

	}

}

 * Name:	print_indentation

 * Purpose:	Prints padding for the word_dump routine.

 * Args:	Identation level.

 * Returns:	None.

 *=======================================================================*/

print_indentation (int level)

{

	int i;

		for (i=0;i

			printf (". ");

	} else {

		printf ("\n-----------------------------------------------------------------------\n\n");

	}

}

 * Name:	word_dump

 * Purpose:	Recursive diagnostic routine to print out a tree of words.

 * Args:	Word tree.

 * Returns:	None.

 *=======================================================================*/

word_dump (Word *w)

{

	char *s;

	indent_level += 2;

	print_indentation (indent_level);

		s = word_string (w);

		if (s) {

			printf ("\"%s\" ", s);

		} else {

			if (w->child) {

				word_dump (w->child);

				printf ("\n");

				print_indentation (indent_level);

			}

			else

				warning_handler ("Word object has no string and no children");

		}

		w = w->next;

	}

}

>