home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_blank.prg < prev    next >
Text File  |  1993-10-14  |  2KB  |  79 lines
  1. /*
  2.  File......: GT_BLANK.prg
  3.  Author....: Phillip Hamlyn
  4.  BBS.......: The Dark Knight Returns
  5.  Net/Node..: 050/069
  6.  User Name.: Phillip Hamlyn
  7.  Date......: 03/03/93
  8.  Revision..: 1.0
  9.  
  10.  This is an original work by Phillip Hamlyn and is placed in the
  11.  public domain.
  12.  
  13.  Modification history:
  14.  ---------------------
  15.  
  16.  Rev 1.0 03/03/93
  17.  Initial revision.
  18. */
  19.  
  20. /*  $DOC$
  21.  *  $FUNCNAME$
  22.  *      GT_BLANK()
  23.  *  $CATEGORY$
  24.  *      General
  25.  *  $ONELINER$
  26.  *      Return a blank value for the type of parameter passed.
  27.  *  $SYNTAX$
  28.  *      GT_Blank( <xVar> ) --> <xBlankVar>
  29.  *  $ARGUMENTS$
  30.  *      <cVar>        Any Clipper variable type.
  31.  *  $RETURNS$
  32.  *      <xBlankVar>   A blank copy of the variable type of length of the
  33.  *                    parameter.
  34.  *  $DESCRIPTION$
  35.  *      Return a blank value for the type of parameter passed.
  36.  *  $EXAMPLES$
  37.  *      GT_Blank(space(8)) --> space(8)
  38.  *      GT_Blank("Phillip Hamlyn") --> space(14)
  39.  *      GT_Blank( {|| "PCH" } ) --> space(3)
  40.  *      GT_Blank( 123123 ) --> 0
  41.  *      GT_Blank( ctod("31/08/69") ) --> ctod("")
  42.  *      GT_Blank( {1,2,3} ) --> {}
  43.  *      GT_Blank( TbrowseNew() ) --> NIL
  44.  *      GT_Blank( TRUE ) --> FALSE
  45.  *  $SEEALSO$
  46.  *
  47.  *  $INCLUDE$
  48.  *
  49.  *  $END$
  50.  */
  51.  
  52. #include "gt_lib.ch"
  53.  
  54. * * * * * * * * *
  55. function GT_Blank (xVar)
  56. * * * * * * * * *
  57. // return a blank memory variable for GETS
  58. do case
  59.     case valtype(xVar) == TYPE_STRING
  60.         return space(len(xVar))
  61.     case valtype(xVar) == TYPE_NUMERIC
  62.         return 0
  63.     case valtype(xVar) == TYPE_DATE
  64.         return ctod("")
  65.     case valtype(xVar) == TYPE_ARRAY
  66.         return {}
  67.     case valtype(xVar) == TYPE_BLOCK
  68.         return GT_Blank(eval(xVar))
  69.     case valtype(xVar) == TYPE_LOGICAL
  70.         return FALSE
  71.     case valtype(xVar) == TYPE_MEMO
  72.         return ""
  73.     case valtype(xVar) == TYPE_OBJECT
  74.         return NIL
  75.     case valtype(xVar) == TYPE_NIL
  76.         return NIL
  77. endcase
  78. return NIL
  79.