From c09e2a2779ab97a147e06b8f89aa6dad4b14d589 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Thu, 21 Jun 2001 21:52:07 +0000 Subject: [PATCH] 2001-06-21 14:55 UTC-0800 Ron Pinkas * source/pp/ppcore.c * Commented out test for continuation token at the end of an Expression in isExpress() /* Clipper does not validate extracted expression like that. This solves problem with: SAVE ALL LIKE Patt* TO File */ --- harbour/ChangeLog | 7 +++++++ harbour/source/pp/ppcore.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 75e2141d42..ada13e0876 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +2001-06-21 14:55 UTC-0800 Ron Pinkas + * source/pp/ppcore.c + * Commented out test for continuation token at the end of an Expression in isExpress() + /* Clipper does not validate extracted expression like that. This solves problem with: + SAVE ALL LIKE Patt* TO File + */ + 2001-06-21 14:05 UTC-0800 Ron Pinkas * contrib/dot/pp.prg + Revised explicit support for Extended expression match marker, in NextExp() to use normal logic for () expresiions. diff --git a/harbour/source/pp/ppcore.c b/harbour/source/pp/ppcore.c index 9fd5cf19f0..41304dd13c 100644 --- a/harbour/source/pp/ppcore.c +++ b/harbour/source/pp/ppcore.c @@ -2318,7 +2318,7 @@ static BOOL isExpres( char * stroka ) return ( l1 <= l2 ); */ - return ( l1 <= l2 && ! IsInStr( ( stroka - l2 )[l1-1], ":/+*-%^=(<>[{" ) ); + return ( l1 <= l2 /*&& ! IsInStr( ( stroka - l2 )[l1-1], ":/+*-%^=(<>[{" ) */ ); } static BOOL TestOptional( char *ptr1, char *ptr2 )