From c2fff8a5ccc766cd7d261a50ca1ee87d4d2afc23 Mon Sep 17 00:00:00 2001 From: Patrick Mast Date: Sun, 10 Jun 2001 17:11:01 +0000 Subject: [PATCH] 2001-06-10 19:07 GMT+1 Patrick Mast * contrib/tprepro/tprepro.prg * SetIncludePath() method uses __PP_PATH now + Added AddIncludePath(cIncludePath) method to TPreProcessor class --- harbour/ChangeLog | 5 +++++ harbour/contrib/tprepro/tprepro.prg | 14 +++++++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4d01b421df..a29240069f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2001-06-10 19:07 GMT+1 Patrick Mast + * contrib/tprepro/tprepro.prg + * SetIncludePath() method uses __PP_PATH now + + Added AddIncludePath(cIncludePath) method to TPreProcessor class + 2001-06-10 18:35 GMT+3 Alexander Kresin * source/pp/pplib.c + __PP_PATH( cPath, lClear ) added diff --git a/harbour/contrib/tprepro/tprepro.prg b/harbour/contrib/tprepro/tprepro.prg index ede35b1f20..bfda7a75bc 100644 --- a/harbour/contrib/tprepro/tprepro.prg +++ b/harbour/contrib/tprepro/tprepro.prg @@ -80,6 +80,7 @@ CLASS TPreProcessor METHOD End() METHOD AddRule( cRule ) + METHOD AddIncludepath( cIncludePath ) METHOD SetIncludepath( cIncludePath ) METHOD TranslateLine( cCode ) METHOD TranslateFile( cFile, lWritePPO ) @@ -112,7 +113,7 @@ return Self METHOD SetIncludepath( cIncludePath ) CLASS TPreprocessor - __PP_Init( cIncludePath ) + __PP_PATH( cIncludePath, .t. ) ::cIncludepath:=cIncludePath @@ -121,6 +122,17 @@ return Self +METHOD AddIncludepath( cIncludePath ) CLASS TPreprocessor + + __PP_PATH( cIncludePath, .f. ) + + ::cIncludepath:=::cIncludePath+";"+cIncludePath + +return Self + + + + METHOD AddRule( cRule ) CLASS TPreprocessor