meminfo.c

Go to the documentation of this file.

#include <../../nrnconf.h>
 
/**************************************************************************
**
** Copyright (C) 1993 David E. Steward & Zbigniew Leyk, all rights reserved.
**
**               Meschach Library
** 
** This Meschach Library is provided "as is" without any express 
** or implied warranty of any kind with respect to this software. 
** In particular the authors shall not be liable for any direct, 
** indirect, special, incidental or consequential damages arising 
** in any way from use of the software.
** 
** Everyone is granted permission to copy, modify and redistribute this
** Meschach Library, provided:
**  1.  All copies contain this copyright notice.
**  2.  All modified copies shall carry a notice stating who
**      made the last modification and the date of such modification.
**  3.  No charge is made for this software or works derived from it.  
**      This clause shall not be construed as constraining other software
**      distributed on the same medium as this software, nor is a
**      distribution fee considered a charge.
**
***************************************************************************/
 
 
/* meminfo.c  revised  22/11/93 */
 
/* 
  contains basic functions, types and arrays 
  to keep track of memory allocation/deallocation
*/
 
#include <stdio.h>
#include  "matrix.h"
#include  "meminfo.h"
#ifdef COMPLEX   
#include  "zmatrix.h"
#endif
#ifdef SPARSE
#include  "sparse.h"
#include  "iter.h"
#endif
 
static char rcsid[] = "meminfo.c,v 1.1 1997/12/04 17:55:37 hines Exp";
 
/* this array is defined further in this file */
extern MEM_CONNECT mem_connect[MEM_CONNECT_MAX_LISTS];
 
 
/* names of types */
static char *mem_type_names[] = {
   "MAT",
   "BAND",
   "PERM",
   "VEC",
   "IVEC"
#ifdef SPARSE
     ,"ITER",
     "SPROW",
     "SPMAT"
#endif
#ifdef COMPLEX   
       ,"ZVEC",
       "ZMAT"
#endif
      };
 
 
#define MEM_NUM_STD_TYPES  (sizeof(mem_type_names)/sizeof(mem_type_names[0]))
 
 
/* local array for keeping track of memory */
static MEM_ARRAY   mem_info_sum[MEM_NUM_STD_TYPES];  
 
 
/* for freeing various types */
static int (*mem_free_funcs[MEM_NUM_STD_TYPES])() = {
   m_free,
   bd_free,
   px_free,    
   v_free,  
   iv_free
#ifdef SPARSE
     ,iter_free,    
     sprow_free, 
     sp_free
#endif
#ifdef COMPLEX
       ,zv_free,    
       zm_free
#endif
      };
 
 
 
/* it is a global variable for passing 
   pointers to local arrays defined here */
MEM_CONNECT mem_connect[MEM_CONNECT_MAX_LISTS] = {
 { mem_type_names, mem_free_funcs, MEM_NUM_STD_TYPES, 
     mem_info_sum } 
};
 
 
/* attach a new list of types */
 
int mem_attach_list(list, ntypes, type_names, free_funcs, info_sum)
int list,ntypes;         /* number of a list and number of types there */
char *type_names[];      /* list of names of types */
int (*free_funcs[])();   /* list of releasing functions */
MEM_ARRAY info_sum[];    /* local table */
{
   if (list < 0 || list >= MEM_CONNECT_MAX_LISTS)
     return -1;
 
   if (type_names == NULL || free_funcs == NULL 
       || info_sum == NULL || ntypes < 0)
     return -1;
   
   /* if a list exists do not overwrite */
   if ( mem_connect[list].ntypes != 0 )
     error(E_OVERWRITE,"mem_attach_list");
   
   mem_connect[list].ntypes = ntypes;
   mem_connect[list].type_names = type_names;
   mem_connect[list].free_funcs = free_funcs;
   mem_connect[list].info_sum = info_sum;
   return 0;
}
 
 
/* release a list of types */
int mem_free_vars(list)
int list;
{   
   if (list < 0 || list >= MEM_CONNECT_MAX_LISTS)
     return -1;
   
   mem_connect[list].ntypes = 0;
   mem_connect[list].type_names = NULL;
   mem_connect[list].free_funcs = NULL;
   mem_connect[list].info_sum = NULL;
   
   return 0;
}
 
 
 
/* check if list is attached */
 
int mem_is_list_attached(list)
int list;
{
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
   return FALSE;
 
   if ( mem_connect[list].type_names != NULL &&
        mem_connect[list].free_funcs != NULL &&
        mem_connect[list].info_sum != NULL)
     return TRUE;
   else return FALSE;
}
 
/* to print out the contents of mem_connect[list] */
 
void mem_dump_list(fp,list)
FILE *fp;
int list;
{
   int i;
   MEM_CONNECT *mlist;
 
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
     return;
 
   mlist = &mem_connect[list];
   fprintf(fp," %15s[%d]:\n","CONTENTS OF mem_connect",list);
   fprintf(fp," %-7s   %-12s   %-9s   %s\n",
       "name of",
       "alloc.", "# alloc.",
       "address"
       );
   fprintf(fp," %-7s   %-12s   %-9s   %s\n",
       " type",
       "bytes", "variables",
       "of *_free()"
       );
 
   for (i=0; i < mlist->ntypes; i++) 
     fprintf(fp,"  %-7s   %-12ld   %-9d   %p\n",
         mlist->type_names[i], mlist->info_sum[i].bytes,
         mlist->info_sum[i].numvar, mlist->free_funcs[i]
         );
   
   fprintf(fp,"\n");
}
 
 
 
/*=============================================================*/
 
 
/* local variables */
 
static int  mem_switched_on = MEM_SWITCH_ON_DEF;  /* on/off */
 
 
/* switch on/off memory info */
 
int mem_info_on(sw)
int sw;
{
   int old = mem_switched_on;
   
   mem_switched_on = sw;
   return old;
}
 
#ifdef ANSI_C
int mem_info_is_on(void)
#else
int mem_info_is_on()
#endif
{
   return mem_switched_on;
}
 
 
/* information about allocated memory */
 
/* return the number of allocated bytes for type 'type' */
 
long mem_info_bytes(type,list)
int type,list;
{
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
     return 0l;
   if ( !mem_switched_on || type < 0 
       || type >= mem_connect[list].ntypes
       || mem_connect[list].free_funcs[type] == NULL )
     return 0l;
   
   return mem_connect[list].info_sum[type].bytes;
}
 
/* return the number of allocated variables for type 'type' */
int mem_info_numvar(type,list)
int type,list;
{
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
     return 0l;
   if ( !mem_switched_on || type < 0 
       || type >= mem_connect[list].ntypes
       || mem_connect[list].free_funcs[type] == NULL )
     return 0l;
   
   return mem_connect[list].info_sum[type].numvar;
}
 
 
 
/* print out memory info to the file fp */
void mem_info_file(fp,list)
FILE *fp;
int list;
{
   unsigned int type;
   long t = 0l, d;
   int n = 0, nt = 0;
   MEM_CONNECT *mlist;
   
   if (!mem_switched_on) return;
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
     return;
   
   if (list == 0)
     fprintf(fp," MEMORY INFORMATION (standard types):\n");
   else
     fprintf(fp," MEMORY INFORMATION (list no. %d):\n",list);
 
   mlist = &mem_connect[list];
 
   for (type=0; type < mlist->ntypes; type++) {
      if (mlist->type_names[type] == NULL ) continue;
      d = mlist->info_sum[type].bytes;
      t += d;
      n = mlist->info_sum[type].numvar;
      nt += n;
      fprintf(fp," type %-7s %10ld alloc. byte%c  %6d alloc. variable%c\n",
          mlist->type_names[type], d, (d!=1 ? 's' : ' '),
          n, (n!=1 ? 's' : ' '));
   }
 
   fprintf(fp," %-12s %10ld alloc. byte%c  %6d alloc. variable%c\n\n",
       "total:",t, (t!=1 ? 's' : ' '),
       nt, (nt!=1 ? 's' : ' '));
}
 
 
/* function for memory information */
 
 
/* mem_bytes_list
   
   Arguments:
   type - the number of type;
   old_size - old size of allocated memory (in bytes);
   new_size - new size of allocated memory (in bytes);
   list - list of types
   */
 
 
void mem_bytes_list(type,old_size,new_size,list)
int type,list;
int old_size,new_size;
{
   MEM_CONNECT *mlist;
   
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
     return;
   
   mlist = &mem_connect[list];
   if (  type < 0 || type >= mlist->ntypes
       || mlist->free_funcs[type] == NULL )
     return;
 
   if ( old_size < 0 || new_size < 0 )
     error(E_NEG,"mem_bytes_list");
 
   mlist->info_sum[type].bytes += new_size - old_size;
   
   /* check if the number of bytes is non-negative */
   if ( old_size > 0 ) {
 
      if (mlist->info_sum[type].bytes < 0)
      {
     fprintf(stderr,
       "\n WARNING !! memory info: allocated memory is less than 0\n");
     fprintf(stderr,"\t TYPE %s \n\n", mlist->type_names[type]);
 
     if ( !isatty(fileno(stdout)) ) {
        fprintf(stdout,
          "\n WARNING !! memory info: allocated memory is less than 0\n");
        fprintf(stdout,"\t TYPE %s \n\n", mlist->type_names[type]);
     }
      }
   }
}
 
 
/* mem_numvar_list
   
   Arguments:
   type - the number of type;
   num - # of variables allocated (> 0) or deallocated ( < 0)
   list - list of types
   */
 
 
void mem_numvar_list(type,num,list)
int type,list,num;
{
   MEM_CONNECT *mlist;
   
   if ( list < 0 || list >= MEM_CONNECT_MAX_LISTS )
     return;
   
   mlist = &mem_connect[list];
   if (  type < 0 || type >= mlist->ntypes
       || mlist->free_funcs[type] == NULL )
     return;
 
   mlist->info_sum[type].numvar += num;
   
   /* check if the number of variables is non-negative */
   if ( num < 0 ) {
 
      if (mlist->info_sum[type].numvar < 0)
      {
     fprintf(stderr,
       "\n WARNING !! memory info: allocated # of variables is less than 0\n");
     fprintf(stderr,"\t TYPE %s \n\n", mlist->type_names[type]);
     if ( !isatty(fileno(stdout)) ) {
        fprintf(stdout,
      "\n WARNING !! memory info: allocated # of variables is less than 0\n");
        fprintf(stdout,"\t TYPE %s \n\n", mlist->type_names[type]);
     }
      }
   }
}