string-malloc.c 1.92 KB
Newer Older
Linus Tolke Y's avatar
Linus Tolke Y committed
1
/*
Per Cederqvist's avatar
Per Cederqvist committed
2
 * $Id: string-malloc.c,v 0.8 1993/10/15 11:18:21 ceder Exp $
Linus Tolke Y's avatar
Linus Tolke Y committed
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 * Copyright (C) 1991  Lysator Academic Computer Association.
 *
 * 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.
 */

Per Cederqvist's avatar
Per Cederqvist committed
32
static char *rcsid = "$Id: string-malloc.c,v 0.8 1993/10/15 11:18:21 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 40
#include <stdio.h>

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

static int no_of_allocated_blocks = 0;

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


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

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

    return srealloc (ptr, size);
}


EXPORT void
dump_string_alloc_counts(FILE *stat_file)
{
    fprintf(stat_file, "---" __FILE__ ":\n"
	    "\tAllocated strings:    %d\n",
	    no_of_allocated_blocks);
}