/*  $DOC$
 *  $FUNCNAME$
 *      DEFAULT()
 *  $CATEGORY$
 *      HBCT MemVar functions
 *  $ONELINER$
 *      Assign a default value to a NIL argument.
 *  $SYNTAX$
 *      Default( @<uVar>, <uDefault> ) ---> NIL
 *  $ARGUMENTS$
 *      <uVar> The variable to which the default value will be assigned.
 *      <uVar> must be passed by reference to the Default() function.
 * 
 *      <uDefault> The default value to assign.
 *  $RETURNS$
 *      NIL
 *  $DESCRIPTION$
 *      Default() assigns <uDefault> to <uVar> IF <uVar> is equal to NIL.
 *      It is functionally equivalent to either of these code samples:
 *
 *      IF uVar == NIL
 *         uVar := uDefault
 *      ENDIF
 *
 *      IF IsNil(uVar)
 *   		uVar := uDefault
 *      ENDIF
 *  $EXAMPLES$
 *      Function Test( Arg1, Arg2 ... )
 *      Default(@Arg1,1)
 *      Default(@Arg2,"A")
 *  $TESTS$
 *      See examples
 *  $STATUS$
 *      Ready
 *  $COMPLIANCE$
 *      This function is CA-Visual Objects compatible.
 *  $PLATFORMS$
 *      All
 *  $FILES$
 *      Source is util.prg, library is libct.lib
 *  $SEEALSO$
 *      DEFAULT TO COMMAND
 *  $END$
 */
/*  $DOC$
 *  $FUNCNAME$
 *      ISDIR()
 *  $CATEGORY$
 *      HBCT Directory management
 *  $ONELINER$
 *      VerIFy IF a directory exist.
 *  $SYNTAX$
 *      IsDir( <cDirectory> ) ---> lSuccess
 *  $ARGUMENTS$
 *      <cDirectory> The directory name to verIFy.
 *  $RETURNS$
 *      True IF <cDirectory> exist, otherwise false.
 *  $DESCRIPTION$
 *  $STATUS$
 *      Ready
 *  $PLATFORMS$
 *      Windows
 *  $FILES$
 *      Source is util.prg, library is libct.lib
 *  $SEEALSO$
 *      DirName(),CurDir(),DirMake(),DirChange()
 *  $END$
 */
/*  $DOC$
 *  $FUNCNAME$
 *      OCCURS()
 *  $CATEGORY$
 *      HBCT String functions
 *  $ONELINER$
 *      Return the number of times that a substring occurs in a string.
 *  $SYNTAX$
 *      Occurs( <cSearch> , <cTarget> ) ---> nTimes
 *  $ARGUMENTS$
 *      <cSearch> The substring for which to search.
 *      <cTarget> The string in which to search.  (To specIFy an offset, use Occurs3()).
 *  $RETURNS$
 *      The number of times that <cSearch> appears in <cTarget>.
 *  $DESCRIPTION$
 *      Occurs() is case-sensitive.
 *  $EXAMPLES$
 *      This example shows typical use of Occurs():
 *  LOCAL cSearch,cTarget
 *      cSearch := "any"
 *      cTarget := "Anything goes anyway anytime."
 *      ? Occurs(cSearch, cTarget) // 2
 *      ? Occurs("any","ANY any")   // 1
 *  $TESTS$
 *  $STATUS$
 *      Ready
 *  $COMPLIANCE$
 *      This function is CA-Visual Objects compatible.
 *  $PLATFORMS$
 *      Windows
 *  $FILES$
 *      Source is util.prg, library is libct.lib
 *  $SEEALSO$
 *  $END$
 */
