more fixes to PLStream

packages/PLStream/pl-ctype.c

@@ -220,6 +220,7 @@ mkfunction(iswspace)
 
 INIT_DEF(char_type, char_types, 26)
 ADD_DEF2(ATOM_alnum, fiswalnum)
+ADD_DEF2(ATOM_alpha, fiswalpha)
 ADD_DEF2(ATOM_csym,	fiscsym )
 ADD_DEF2(ATOM_csymf,	fiscsymf )
 ADD_DEF2(ATOM_ascii,	fisascii )

packages/PLStream/pl-os.c

@@ -24,6 +24,9 @@
 
 /*  Modified (M) 1993 Dave Sherratt  */
 
+#ifdef __YAP_PROLOG__
+#define IN_PL_OS_C 1
+#endif
 /*#define O_DEBUG 1*/
 
 #if __TOS__

packages/PLStream/pl-yap.h

@@ -185,7 +185,7 @@ valHandle(term_t tt)
 
 #endif /* __YAP_PROLOG__ */
 
-
+#if IN_PL_OS_C
 static int
 stripostfix(const char *s, const char *e)
 { size_t ls = strlen(s);
@@ -196,6 +196,6 @@ stripostfix(const char *s, const char *e)
 
   return FALSE;
 } 
-
+#endif
 
 #endif /* PL_YAP_H */