Click above to get retro games delivered to your door ever month!

  m6_dbEval():

  Purpose:  Performs an optimized scan of a database evaluating a code block
            based on records that meet the FOR criteria.

   Syntax:  m6_dbEval( <bEvalBlk>, <cForExpr>, <bForBlk> )

    Where:  <bEvalBlk> = Code block to be evaluated
            <cForExpr> = FOR criteria as a string
            <bForBlk>  = FOR criteria as a code block

     Note:  In the event the expression is deemed non-optimizable, <bEvalBlk>
            and <bForBlk> will be passed on to Clipper's dbEval() for
            evaluation.

  Returns:  NIL


  Example:

        #include "SIXCDX.CH"
        #include "MACHSIX.CH"

        LOCAL bEval := {|| NIL }, cFor, bFor

        USE Salesmen INDEX Sales

        //..................................................setup params
        bEval := {|| bonus += 1000.00 }
        cFor  := "sales > 25000"
        bFor  := {|| sales > 25000 }

        //..............................................give 'em a bonus
        m6_dbEval( bEval, cFor, bFor )