/*

 * talloc_report into a FILE

 *

 * Copyright Volker Lendecke <vl@samba.org> 2015

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; either version 3 of the License, or

 * (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program.  If not, see <http://www.gnu.org/licenses/>.

 */

#include "replace.h"

#include "talloc_report_printf.h"

static void talloc_report_printf_helper(

  const void *ptr,

  int depth,

  int max_depth,

  int is_ref,

  void *private_data)

{

  FILE *f = private_data;

  const char *name = talloc_get_name(ptr);

  if (is_ref) {

    fprintf(f,

      "%*sreference to: %s\n",

      depth*4,

      "",

      name);

    return;

  }

  if (depth == 0) {

    fprintf(f,

      "%stalloc report on '%s' "

      "(total %6zu bytes in %3zu blocks)\n",

      (max_depth < 0 ? "full " :""), name,

      talloc_total_size(ptr),

      talloc_total_blocks(ptr));

    return;

  }

  if (strcmp(name, "char") == 0) {

    /*

     * Print out the first 50 bytes of the string

     */

    fprintf(f,

      "%*s%-30s contains %6zu bytes in %3zu blocks "

      "(ref %zu): %*s\n", depth*4, "", name,

      talloc_total_size(ptr),

      talloc_total_blocks(ptr),

      talloc_reference_count(ptr),

      (int)MIN(50, talloc_get_size(ptr)),

      (const char *)ptr);

    return;

  }

  fprintf(f,

    "%*s%-30s contains %6zu bytes in %3zu blocks (ref %zu) %p\n",

    depth*4, "", name,

    talloc_total_size(ptr),

    talloc_total_blocks(ptr),

    talloc_reference_count(ptr),

    ptr);

}

void talloc_full_report_printf(TALLOC_CTX *root, FILE *f)

{

  talloc_report_depth_cb(root, 0, -1, talloc_report_printf_helper, f);

#if defined(HAVE_MALLINFO2)

  {

    struct mallinfo2 mi2 = mallinfo2();

    fprintf(f,

      "mallinfo:\n"

      "    arena: %zu\n"

      "    ordblks: %zu\n"

      "    smblks: %zu\n"

      "    hblks: %zu\n"

      "    hblkhd: %zu\n"

      "    usmblks: %zu\n"

      "    fsmblks: %zu\n"

      "    uordblks: %zu\n"

      "    fordblks: %zu\n"

      "    keepcost: %zu\n",

      mi2.arena,

      mi2.ordblks,

      mi2.smblks,

      mi2.hblks,

      mi2.hblkhd,

      mi2.usmblks,

      mi2.fsmblks,

      mi2.uordblks,

      mi2.fordblks,

      mi2.keepcost);

  }

#elif defined(HAVE_MALLINFO)

  {

    struct mallinfo mi = mallinfo();

    fprintf(f,

      "mallinfo:\n"

      "    arena: %d\n"

      "    ordblks: %d\n"

      "    smblks: %d\n"

      "    hblks: %d\n"

      "    hblkhd: %d\n"

      "    usmblks: %d\n"

      "    fsmblks: %d\n"

      "    uordblks: %d\n"

      "    fordblks: %d\n"

      "    keepcost: %d\n",

      mi.arena,

      mi.ordblks,

      mi.smblks,

      mi.hblks,

      mi.hblkhd,

      mi.usmblks,

      mi.fsmblks,

      mi.uordblks,

      mi.fordblks,

      mi.keepcost);

  }

#endif /* HAVE_MALLINFO2 or HAVE_MALLINFO */

}