home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / verify.c < prev    next >
C/C++ Source or Header  |  1993-10-14  |  3KB  |  103 lines

  1. /*
  2.  * File......: VERIFY.C
  3.  * Author....: Dave Pearson
  4.  * BBS.......: The Dark Knight Returns
  5.  * Net/Node..: 050/069
  6.  * User Name.: Dave Pearson
  7.  * Date......: $Date$
  8.  * Revision..: $Revision$
  9.  * Log file..: $Logfile$
  10.  *
  11.  * This is an original work by Dave Pearson and is placed in the public
  12.  * domain.
  13.  *
  14.  * Modification history:
  15.  * ---------------------
  16.  *
  17.  * $Log$
  18.  *
  19.  */
  20.  
  21. // NOTE: This code has been written for and compiled with Borland C++
  22. //       Version 3.1
  23. //
  24.  
  25. #include <extend.h>
  26.  
  27. Boolean GetVerify(void);
  28. void    SetVerify(char);
  29.  
  30. /*  $DOC$
  31.  *  $FUNCNAME$
  32.  *      GT_VERIFY()
  33.  *  $CATEGORY$
  34.  *      Environment
  35.  *  $ONELINER$
  36.  *      Set/Get the DOS verify flag.
  37.  *  $SYNTAX$
  38.  *      GT_Verify([<lNewSetting>]) --> lOldSetting
  39.  *  $ARGUMENTS$
  40.  *      <lNewSetting> is an optional logical parameter. If true (.T.)
  41.  *      the DOS verify flag will be turned on, if false (.F.) it will be
  42.  *      turned off. If not passed GT_Verify() just returns the current
  43.  *      setting.
  44.  *  $RETURNS$
  45.  *      The status of the verify flag. If a new setting is passed then
  46.  *      the previous setting is returned. If a new setting is not
  47.  *      passed then the current setting is returned.
  48.  *  $DESCRIPTION$
  49.  *      GT_Verify() can be used to set and get the status of the DOS verify
  50.  *      flag.
  51.  *  $EXAMPLES$
  52.  *      // Set the DOS verify flag on.
  53.  *
  54.  *      GT_Verify(TRUE)
  55.  *
  56.  *      // Display the current DOS verify flag setting.
  57.  *
  58.  *      ? GT_Verify()
  59.  *  $SEEALSO$
  60.  *      GT_BREAK()
  61.  *  $END$
  62.  */
  63.  
  64. CLIPPER GT_Verify()
  65. {
  66.         Boolean OldSetting = GetVerify();
  67.  
  68.         if (PCOUNT == 1 && ISLOG(1))
  69.         {
  70.                 SetVerify((char) _parl(1));
  71.         }
  72.         _retl(OldSetting);
  73. }
  74.  
  75. /*****************************************************************************
  76. * Function: GetVerify()                                                      *
  77. * Syntax..: Boolean GetVerify(void)                                          *
  78. * Usage...: Internal function to get the verify flag.                        *
  79. * By......: David A Pearson                                                  *
  80. *****************************************************************************/
  81.  
  82. static Boolean GetVerify(void)
  83. {
  84.         asm     Mov     AH,0x54
  85.         asm     Int     0x21
  86.         return(_AL);
  87. }
  88.  
  89. /*****************************************************************************
  90. * Function: SetVerify()                                                      *
  91. * Syntax..: Boolean SetVerify(void)                                          *
  92. * Usage...: Internal function to set the verify flag.                        *
  93. * By......: David A Pearson                                                  *
  94. *****************************************************************************/
  95.  
  96. static void SetVerify(char NewSetting)
  97. {
  98.         asm     Mov     AH,0x2E
  99.         asm     Mov     AL,NewSetting
  100.         asm     Mov     DL,0
  101.         asm     Int     0x21
  102. }
  103.