From 73db18f32ddb8cb095eca97412deeb8115952f0c Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Wed, 30 May 2001 16:07:37 +0000
Subject: [PATCH] 2001-05-30 09:05 UTC-0800 Ron Pinkas <ron@profit-master.com> 
   * contrib/dot/pp.prg      + PP_ResetRules()      + PP_InitStd()      +
 PP_LoadRun()      + PP_LoadClass()      + PP_LoadFW()

---
 harbour/ChangeLog          |  8 ++++++
 harbour/contrib/dot/pp.prg | 50 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a087f85595..52bd6314f4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+2001-05-30 09:05 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * contrib/dot/pp.prg
+     + PP_ResetRules()
+     + PP_InitStd()
+     + PP_LoadRun()
+     + PP_LoadClass()
+     + PP_LoadFW()
+
 2001-05-30 08:45 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * contrib/dot/pp.prg
      ! Fixed PP_PreProLine() to not generate '#line n "<module>"' if module name is empty()
diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg
index f9f2b54fcb..0e6f8a9cc5 100644
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -7762,12 +7762,62 @@ FUNCTION PP_RunText( sLines, bPP, aParams )
 
 RETURN xRet
 
+//--------------------------------------------------------------//
+PROCEDURE PP_ResetRules()
+
+   aDefRules     := {}; aDefResults   := {}
+   aTransRules   := {}; aTransResults := {}
+   aCommRules    := {}; aCommResults  := {}
+
+   s_lRunLoaded := .F.
+   s_lClsLoaded := .F.
+   s_lFWLoaded  := .F.
+
+RETURN
+
 //--------------------------------------------------------------//
 PROCEDURE PP_InitStd()
 
    InitRules()
    InitResults()
 
+   s_lRunLoaded := .F.
+   s_lClsLoaded := .F.
+   s_lFWLoaded  := .F.
+
+RETURN
+
+//--------------------------------------------------------------//
+PROCEDURE PP_LoadRun()
+
+   IF ! s_lRunLoaded
+      s_lRunLoaded := .T.
+      InitRunRules()
+      InitRunResults()
+   ENDIF
+
+RETURN
+
+//--------------------------------------------------------------//
+PROCEDURE PP_LoadClass()
+
+   IF ! s_lClsLoaded
+      s_lClsLoaded := .T.
+      InitClsRules()
+      InitClsResults()
+   ENDIF
+
+RETURN
+
+//--------------------------------------------------------------//
+PROCEDURE PP_LoadFW()
+
+   IF ! s_lFWLoaded
+      s_lFWLoaded := .T.
+      InitFWRules()
+      InitFWResults()
+   ENDIF
+
 RETURN
 
 //--------------------------------------------------------------//