* USE OR PERFORMANCE OF THIS SOFTWARE.
*
*/
+
+/**
+ * \file cclptree.c
+ * \brief Implements CCL parse tree printing
+ *
+ * This source file implements functions to parse and print
+ * a CCL node tree (as a result of parsing).
+ */
+
/* CCL print rpn tree - infix notation
* Europagate, 1995
*
- * $Id: cclptree.c,v 1.2 2003-12-18 13:08:48 adam Exp $
+ * $Id: cclptree.c,v 1.4 2004-12-30 00:22:25 adam Exp $
*
* Old Europagate Log:
*
if (*cp == '!')
{
/* word order specified */
- if (isdigit(cp[1]))
+ if (isdigit(((const unsigned char *) cp)[1]))
fprintf(fd_out, "@prox 0 %s 1 2 known 2", cp+1);
else
fprintf(fd_out, "@prox 0 1 1 2 known 2");
else if (*cp == '%')
{
/* word order not specified */
- if (isdigit(cp[1]))
+ if (isdigit(((const unsigned char *) cp)[1]))
fprintf(fd_out, "@prox 0 %s 0 2 known 2", cp+1);
else
fprintf(fd_out, "@prox 0 1 0 2 known 2");
if (*cp == '!')
{
/* word order specified */
- if (isdigit(cp[1]))
+ if (isdigit(((const unsigned char *) cp)[1]))
wrbuf_printf(w, "@prox 0 %s 1 2 k 2 ", cp+1);
else
wrbuf_printf(w, "@prox 0 1 1 2 k 2 ");
else if (*cp == '%')
{
/* word order not specified */
- if (isdigit(cp[1]))
+ if (isdigit(((const unsigned char *) cp)[1]))
wrbuf_printf(w, "@prox 0 %s 0 2 k 2 ", cp+1);
else
wrbuf_printf(w, "@prox 0 1 0 2 k 2 ");
/*
* Local variables:
- * tab-width: 4
+ * tab-width: 8
* c-basic-offset: 4
* End:
*/