/* CCL print rpn tree - infix notation
* Europagate, 1995
*
- * $Id: cclptree.c,v 1.3 2004-10-15 00:18:59 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 ");
* Copyright (c) 1995-2004, Index Data.
* See the file LICENSE for details.
*
- * $Id: pquery.c,v 1.3 2004-11-17 00:17:17 adam Exp $
+ * $Id: pquery.c,v 1.4 2004-12-30 00:21:12 adam Exp $
*/
/**
* \file pquery.c
}
li->lex_buf = *qptr;
- if (**qptr == li->escape_char && isdigit ((*qptr)[1]))
+ if (**qptr == li->escape_char && isdigit (((const unsigned char *) *qptr)[1]))
{
++(li->lex_len);
++(*qptr);