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

  Sx_IsReindex():

  Syntax:    Sx_IsReindex()

  Returns:   Logical .T. if a REINDEX is in progress, otherwise .F.

  Description:    This function is used to check whether or not a REINDEX
                  is occurring.  This function would be used in a UDF
                  (specified with the OPTION clause of INDEX or REINDEX) to
                  determine whether the UDF is being called from in INDEX or
                  a REINDEX.

    NOTE:  This function is NOT supported under SIXNTX.

  Example:

    #include "SIXCDX.CH"

    USE TEST VIA "SIXCDX"             // TEST.CDX opened automatically
    REINDEX OPTION ShowIt() STEP 100

    FUNC ShowIt()

      // Bof() is .T. on first call to OPTION UDF.  Use this for setup.
      IF Bof()
          // Display the appropriate message
          ? iif( Sx_IsReindex(), "Reindexing ", "Indexing ")

          // Display the index file name and tag name.
          ? Sx_I_IndexName() + " : " + Sx_I_TagName()
          ?
          Return(NIL)
      ENDIF

      // Show how many keys have been included so far
      @ ROW(),1 SAY Sx_KeysIncluded()

    Return(NIL)