chiark - git - mdw - become/blob - src/dbutils.h

   1 /* -*-c-*-
   2  *
   3  * $Id: dbutils.h,v 1.5 1998/01/12 16:43:29 mdw Exp $
   4  *
   5  * Debugging things
   6  *
   7  * (c) 1998 Straylight
   8  */
   9
  10 /*----- Licensing notice --------------------------------------------------*
  11  *
  12  * This file is part of `become'
  13  *
  14  * `Become' is free software; you can redistribute it and/or modify
  15  * it under the terms of the GNU General Public License as published by
  16  * the Free Software Foundation; either version 2 of the License, or
  17  * (at your option) any later version.
  18  *
  19  * `Become' is distributed in the hope that it will be useful,
  20  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  21  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22  * GNU General Public License for more details.
  23  *
  24  * You should have received a copy of the GNU General Public License
  25  * along with `become'; if not, write to the Free Software Foundation,
  26  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  27  */
  28
  29 /*----- Revision history --------------------------------------------------*
  30  *
  31  * $Log: dbutils.h,v $
  32  * Revision 1.5  1998/01/12 16:43:29  mdw
  33  * Include required header files.  Fix copyright date.
  34  *
  35  * Revision 1.4  1997/08/07 10:01:46  mdw
  36  * (Log entry for previous version is bogus.)  No changes made.
  37  *
  38  * Revision 1.2  1997/08/04 10:24:22  mdw
  39  * Sources placed under CVS control.
  40  *
  41  * Revision 1.1  1997/07/21  13:47:50  mdw
  42  * Initial revision
  43  *
  44  */
  45
  46 #ifndef DBUTILS_H
  47 #define DBUTILS_H
  48
  49 /* --- Note --- *
  50  *
  51  * This is most certainly not portable.  I'm using VT100-specific control
  52  * codes to clear the screen and @select@ to pause for a bit between
  53  * allocations to stop the scree flicker driving me up the wall.
  54  *
  55  * The main routine just allocates and frees blocks randomly, and displays
  56  */
  57
  58 #if defined(__unix)
  59 #  include <sys/time.h>
  60 #  include <unistd.h>
  61 #  define cls fputs("\33[H\33[2J", stderr) /* VT100 specific */
  62 #  define pause do {                                                    \
  63      struct timeval tv = { 0, 10000 };                                  \
  64      select(0, 0, 0, 0, &tv);                                           \
  65    } while (0)
  66 #elif defined(__riscos)
  67 #  include "swiv.h"
  68 #  include "swis.h"
  69 #  define cls _swi(OS_WriteC, _in(0), 12)
  70 #  define pause _swi(OS_Byte, _in(0), 19)
  71 #else
  72 #  define cls                           /* Tough.  Write these yourself. */
  73 #  define pause
  74 #endif
  75
  76 /*----- That's all, folks -------------------------------------------------*/
  77
  78 #endif