mirror of
https://port.numenaute.org/aleajactaest/khanat-opennel-code.git
synced 2024-12-15 14:08:42 +00:00
126 lines
2.6 KiB
C
126 lines
2.6 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <malloc.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
|
|
#define PIC_ERRSIZE 256
|
|
|
|
static unsigned long PIC_Sys_MEM_Allocated;
|
|
static unsigned long PIC_Sys_MEM_NbAllocs;
|
|
|
|
// ----------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
void *Pic_malloc(unsigned long size)
|
|
{
|
|
void *mem;
|
|
mem=malloc(size);
|
|
if (mem)
|
|
{
|
|
PIC_Sys_MEM_Allocated+=size;
|
|
PIC_Sys_MEM_NbAllocs++;
|
|
}
|
|
return(mem);
|
|
}
|
|
// -----
|
|
void *Pic_calloc(unsigned long count, unsigned long size)
|
|
{
|
|
void *mem;
|
|
mem=calloc(count,size);
|
|
if (mem)
|
|
{
|
|
PIC_Sys_MEM_Allocated+=(size*count);
|
|
PIC_Sys_MEM_NbAllocs++;
|
|
}
|
|
return(mem);
|
|
}
|
|
// -----
|
|
void Pic_free(void *memblock)
|
|
{
|
|
unsigned long size;
|
|
size=_msize(memblock);
|
|
PIC_Sys_MEM_Allocated-=size;
|
|
PIC_Sys_MEM_NbAllocs--;
|
|
free(memblock);
|
|
}
|
|
// -----
|
|
unsigned long Pic__msize(void *memblock)
|
|
{
|
|
return(_msize(memblock));
|
|
}
|
|
// -----
|
|
unsigned long PIC_GetMemNbAllocs(void)
|
|
{
|
|
return(PIC_Sys_MEM_NbAllocs);
|
|
}
|
|
// -----
|
|
unsigned long PIC_GetMemAllocated(void)
|
|
{
|
|
return(PIC_Sys_MEM_Allocated);
|
|
}
|
|
|
|
// ----------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
static unsigned char PIC_ErrorFlag;
|
|
static unsigned char PIC_ErrorString[PIC_ERRSIZE];
|
|
static unsigned char PIC_Sys_FnctActive=0;
|
|
static void (*PIC_Sys_Fnct)(void);
|
|
|
|
void Pic_SetError(unsigned char *msg, ...)
|
|
{
|
|
unsigned char curerr[PIC_ERRSIZE],olderr[PIC_ERRSIZE];
|
|
va_list args;
|
|
|
|
va_start(args,msg);
|
|
vsprintf(curerr,msg,args);
|
|
va_end(args);
|
|
if ( (strlen(curerr)+strlen(PIC_ErrorString))>PIC_ERRSIZE ) return;
|
|
|
|
if (PIC_ErrorFlag)
|
|
{
|
|
strcpy(olderr,PIC_ErrorString);
|
|
sprintf(PIC_ErrorString,"--- [PIC#%03d] :\n%s",PIC_ErrorFlag,curerr);
|
|
strcat(PIC_ErrorString,"\n");
|
|
strcat(PIC_ErrorString,olderr);
|
|
}
|
|
else
|
|
{
|
|
sprintf(PIC_ErrorString,"--- [PIC#%03d] :\n%s",PIC_ErrorFlag,curerr);
|
|
}
|
|
PIC_ErrorFlag++;
|
|
if (PIC_Sys_FnctActive) PIC_Sys_Fnct();
|
|
return;
|
|
}
|
|
// -----
|
|
char* PIC_GetError(void)
|
|
{
|
|
return(PIC_ErrorString);
|
|
}
|
|
// -----
|
|
unsigned char PIC_Error(void)
|
|
{
|
|
return(PIC_ErrorFlag);
|
|
}
|
|
// -----
|
|
void PIC_ResetError(void)
|
|
{
|
|
strcpy(PIC_ErrorString,"");
|
|
PIC_ErrorFlag=0;
|
|
}
|
|
// -----
|
|
unsigned char PIC_OnErrorCall( void pFnct(void) )
|
|
{
|
|
if (pFnct != NULL)
|
|
{
|
|
PIC_Sys_Fnct=pFnct;
|
|
PIC_Sys_FnctActive=1;
|
|
}
|
|
else
|
|
{
|
|
PIC_Sys_FnctActive=0;
|
|
}
|
|
return(1);
|
|
}
|
|
|
|
// ----------------------------------------------------------------------------------------------------------------------------------
|
|
|