malloc/tst-mtrace.c

   1 /* Test program for mtrace.
   2    Copyright (C) 2000 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, write to the Free
  17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  18    02111-1307 USA.  */
  19
  20 #include <mcheck.h>
  21 #include <paths.h>
  22 #include <search.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26
  27
  28 static void print (const void *node, VISIT value, int level);
  29
  30 /* Used for several purposes.  */
  31 static FILE *fp;
  32
  33
  34 int
  35 main (void)
  36 {
  37   void *root = NULL;
  38   size_t linelen = 0;
  39   char *line = NULL;
  40
  41   /* Enable memory usage tracing.  */
  42   mtrace ();
  43
  44   /* Perform some operations which definitely will allocate some
  45      memory.  */
  46   fp = fopen (__FILE__, "r");
  47   if (fp == NULL)
  48     /* Shouldn't happen since this program is executed in the source
  49        directory.  */
  50     abort ();
  51
  52   while (!feof (fp))
  53     {
  54       char **p;
  55       char *copy;
  56       ssize_t n = getline (&line, &linelen, fp);
  57
  58       if (n < 0)
  59         break;
  60
  61       if (n == 0)
  62         continue;
  63
  64       copy = strdup (line);
  65       if (copy == NULL)
  66         abort ();
  67
  68       p = (char **) tsearch (copy, &root,
  69                              (int (*) (const void *, const void *)) strcmp);
  70       if (*p != copy)
  71         /* This line wasn't added.  */
  72         free (copy);
  73     }
  74
  75   fclose (fp);
  76
  77   fp = fopen (_PATH_DEVNULL, "w");
  78   if (fp != NULL)
  79     {
  80       /* Write something through stdout.  */
  81       twalk (root, print);
  82
  83       fclose (fp);
  84     }
  85
  86   /* Free everything.  */
  87   tdestroy (root, free);
  88
  89   /* Also the line buffer.  */
  90   free (line);
  91
  92   /* That's it.  */
  93   return 0;
  94 }
  95
  96
  97 static void
  98 print (const void *node, VISIT value, int level)
  99 {
 100   static int cnt;
 101   if (value == postorder || value == leaf)
 102     fprintf (fp, "%3d: %s", ++cnt, *(const char **) node);
 103 }