diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

get rid of debugging info.

Browse Source 
routines are only define with wctype.h
This commit is contained in:
Vítor Santos Costa 2010-05-05 12:51:38 +01:00
parent f3b6a044f6
commit 950abd136e
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/scanner.c
View File

@ -48,6 +48,9 @@
#if HAVE_STRING_H #if HAVE_STRING_H
#include <string.h> #include <string.h>
#endif #endif
#if HAVE_WCTYPE_H
#include <wctype.h>
#endif
/* You just can't trust some machines */ /* You just can't trust some machines */
#define my_isxdigit(C,SU,SL) (chtype(C) == NU || (C >= 'A' && \ #define my_isxdigit(C,SU,SL) (chtype(C) == NU || (C >= 'A' && \
@ -124,12 +127,14 @@ char *Yap_chtype = chtype0+1;
int int
Yap_wide_chtype(Int ch) { Yap_wide_chtype(Int ch) {
#if HAVE_WCTYPE_H
if (iswalnum(ch)) { if (iswalnum(ch)) {
if (iswlower(ch)) return LC; if (iswlower(ch)) return LC;
if (iswdigit(ch)) return NU; if (iswdigit(ch)) return NU;
return UC; return UC;
} }
if (iswpunct(ch)) return SY; if (iswpunct(ch)) return SY;
#endif
return BS; return BS;
} }

1
H/yapio.h
View File

@ -275,7 +275,6 @@ chtype(Int ch)
{ {
if (ch < NUMBER_OF_CHARS) if (ch < NUMBER_OF_CHARS)
return Yap_chtype[ch]; return Yap_chtype[ch];
printf("type=%d\n",Yap_wide_chtype(ch));
return Yap_wide_chtype(ch); return Yap_wide_chtype(ch);
} }