string-malloc.c 1.94 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
2 3
 * $Id: string-malloc.c,v 0.11 1995/01/01 19:31:52 ceder Exp $
 * Copyright (C) 1991, 1993, 1994  Lysator Academic Computer Association.
Linus Tolke Y's avatar
Linus Tolke Y committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 *
 * This file is part of the LysKOM server.
 * 
 * LysKOM 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 1, or (at your option) 
 * any later version.
 * 
 * LysKOM 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 LysKOM; see the file COPYING.  If not, write to
 * Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
 * or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
 * MA 02139, USA.
 *
 * Please mail bug reports to bug-lyskom@lysator.liu.se. 
 */
Per Cederqvist's avatar
Per Cederqvist committed
25 26 27 28 29 30 31
/*
 * Malloc wrappers for the string package.
 *
 * These functions call smalloc and also counts
 * how many allocated strings there are.
 */

32
static char *rcsid = "$Id: string-malloc.c,v 0.11 1995/01/01 19:31:52 ceder Exp $";
33 34
#include "rcs.h"
USE(rcsid);
Per Cederqvist's avatar
Per Cederqvist committed
35

Per Cederqvist's avatar
Per Cederqvist committed
36 37 38
#ifdef HAVE_STDDEF_H
#  include <stddef.h>
#endif
Per Cederqvist's avatar
Per Cederqvist committed
39
#include <stdio.h>
Per Cederqvist's avatar
Per Cederqvist committed
40
#include <sys/types.h>
Per Cederqvist's avatar
Per Cederqvist committed
41

Per Cederqvist's avatar
Per Cederqvist committed
42
#include "exp.h"
Per Cederqvist's avatar
Per Cederqvist committed
43
#include "server/smalloc.h"
Per Cederqvist's avatar
Per Cederqvist committed
44
#include "string-malloc.h"
Per Cederqvist's avatar
Per Cederqvist committed
45 46 47 48

static int no_of_allocated_blocks = 0;

EXPORT  void *
Per Cederqvist's avatar
Per Cederqvist committed
49
string_malloc(size_t size)
Per Cederqvist's avatar
Per Cederqvist committed
50 51 52 53 54 55 56
{
   ++no_of_allocated_blocks;
   return smalloc (size);
}


EXPORT  void
Per Cederqvist's avatar
Per Cederqvist committed
57
string_free(void * ptr)
Per Cederqvist's avatar
Per Cederqvist committed
58 59 60 61 62 63
{
    --no_of_allocated_blocks;
    sfree(ptr);
}

EXPORT  void *
Per Cederqvist's avatar
Per Cederqvist committed
64
string_realloc (void * ptr,
Per Cederqvist's avatar
Per Cederqvist committed
65 66 67
		size_t size)
{
    if ( ptr == NULL )
Per Cederqvist's avatar
Per Cederqvist committed
68
	return string_malloc (size);
Per Cederqvist's avatar
Per Cederqvist committed
69 70 71 72 73 74 75 76

    return srealloc (ptr, size);
}


EXPORT void
dump_string_alloc_counts(FILE *stat_file)
{
Per Cederqvist's avatar
Per Cederqvist committed
77 78
    fprintf(stat_file, "---%s:\n\tAllocated strings:    %d\n",
	    __FILE__, no_of_allocated_blocks);
Per Cederqvist's avatar
Per Cederqvist committed
79
}