Jeff Hill
154 lines
4.2 KiB
C++
154 lines
4.2 KiB
C++
/*************************************************************************\
|
|
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
|
|
* National Laboratory.
|
|
* Copyright (c) 2002 The Regents of the University of California, as
|
|
* Operator of Los Alamos National Laboratory.
|
|
* EPICS BASE Versions 3.13.7
|
|
* and higher are distributed subject to a Software License Agreement found
|
|
* in file LICENSE that is included with this distribution.
|
|
\*************************************************************************/
|
|
/* epicsMutex.c */
|
|
/* Author: Marty Kraimer and Jeff Hill Date: 03APR01 */
|
|
|
|
#include <new>
|
|
|
|
#include <stddef.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#define epicsExportSharedSymbols
|
|
#include "epicsThread.h"
|
|
#include "ellLib.h"
|
|
#include "errlog.h"
|
|
#include "epicsMutex.h"
|
|
#include "epicsThread.h"
|
|
|
|
#define STATIC static
|
|
|
|
STATIC int firstTime = 1;
|
|
STATIC ELLLIST mutexList;
|
|
STATIC ELLLIST freeList;
|
|
|
|
typedef struct mutexNode {
|
|
ELLNODE node;
|
|
epicsMutexId id;
|
|
const char *pFileName;
|
|
int lineno;
|
|
}mutexNode;
|
|
|
|
STATIC epicsMutexId epicsMutexGlobalLock;
|
|
|
|
epicsMutexId epicsShareAPI epicsMutexOsiCreate(
|
|
const char *pFileName,int lineno)
|
|
{
|
|
epicsMutexId id;
|
|
mutexNode *pmutexNode;
|
|
|
|
if(firstTime) {
|
|
firstTime=0;
|
|
ellInit(&mutexList);
|
|
ellInit(&freeList);
|
|
epicsMutexGlobalLock = epicsMutexOsdCreate();
|
|
}
|
|
epicsMutexMustLock(epicsMutexGlobalLock);
|
|
id = epicsMutexOsdCreate();
|
|
if(id) {
|
|
pmutexNode = (mutexNode *)ellFirst(&freeList);
|
|
if(pmutexNode) {
|
|
ellDelete(&freeList,&pmutexNode->node);
|
|
} else {
|
|
pmutexNode = static_cast <mutexNode *> ( calloc(1,sizeof(mutexNode)) );
|
|
}
|
|
pmutexNode->id = id;
|
|
pmutexNode->pFileName = pFileName;
|
|
pmutexNode->lineno = lineno;
|
|
ellAdd(&mutexList,&pmutexNode->node);
|
|
}
|
|
epicsMutexUnlock(epicsMutexGlobalLock);
|
|
return(id);
|
|
}
|
|
|
|
epicsMutexId epicsShareAPI epicsMutexOsiMustCreate(
|
|
const char *pFileName,int lineno)
|
|
{
|
|
epicsMutexId id = epicsMutexOsiCreate(pFileName,lineno);
|
|
assert(id);
|
|
return(id );
|
|
}
|
|
|
|
void epicsShareAPI epicsMutexDestroy(epicsMutexId id)
|
|
{
|
|
mutexNode *pmutexNode;
|
|
|
|
epicsMutexMustLock(epicsMutexGlobalLock);
|
|
pmutexNode = (mutexNode *)ellLast(&mutexList);
|
|
while(pmutexNode) {
|
|
if(id==pmutexNode->id) {
|
|
ellDelete(&mutexList,&pmutexNode->node);
|
|
ellAdd(&freeList,&pmutexNode->node);
|
|
epicsMutexOsdDestroy(pmutexNode->id);
|
|
epicsMutexUnlock(epicsMutexGlobalLock);
|
|
return;
|
|
}
|
|
pmutexNode = (mutexNode *)ellPrevious(&pmutexNode->node);
|
|
}
|
|
epicsMutexUnlock(epicsMutexGlobalLock);
|
|
errlogPrintf("epicsMutexDestroy Did not find epicsMutexId\n");
|
|
}
|
|
|
|
void epicsShareAPI epicsMutexShowAll(int onlyLocked,unsigned int level)
|
|
{
|
|
mutexNode *pmutexNode;
|
|
|
|
if(firstTime) return;
|
|
printf("ellCount(&mutexList) %d ellCount(&freeList) %d\n",
|
|
ellCount(&mutexList),ellCount(&freeList));
|
|
epicsMutexMustLock(epicsMutexGlobalLock);
|
|
pmutexNode = (mutexNode *)ellFirst(&mutexList);
|
|
while(pmutexNode) {
|
|
if(onlyLocked) {
|
|
epicsMutexLockStatus status;
|
|
status = epicsMutexTryLock(pmutexNode->id);
|
|
if(status==epicsMutexLockOK) {
|
|
epicsMutexUnlock(pmutexNode->id);
|
|
pmutexNode = (mutexNode *)ellNext(&pmutexNode->node);
|
|
continue;
|
|
}
|
|
}
|
|
printf("epicsMutexId %p source %s line %d\n",
|
|
(void *)pmutexNode->id,pmutexNode->pFileName,pmutexNode->lineno);
|
|
epicsMutexShow(pmutexNode->id,level);
|
|
pmutexNode = (mutexNode *)ellNext(&pmutexNode->node);
|
|
}
|
|
epicsMutexUnlock(epicsMutexGlobalLock);
|
|
}
|
|
|
|
|
|
epicsMutex :: epicsMutex () throw ( std::bad_alloc ) :
|
|
id ( epicsMutexCreate () )
|
|
{
|
|
if ( this->id == 0 ) {
|
|
throw std::bad_alloc ();
|
|
}
|
|
}
|
|
|
|
epicsMutex ::~epicsMutex ()
|
|
throw ()
|
|
{
|
|
epicsMutexDestroy ( this->id );
|
|
}
|
|
|
|
void epicsMutex :: show ( unsigned level ) const
|
|
throw ()
|
|
{
|
|
epicsMutexShow ( this->id, level );
|
|
}
|
|
|
|
void epicsMutex :: throwInvalidSemaphore ()
|
|
throw ( epicsMutex::invalidSemaphore )
|
|
{
|
|
throw invalidSemaphore ();
|
|
}
|
|
|