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

@@ -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()

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
 
 //--------------------------------------------------------------//