Category : C Source Code
Archive   : CTSK22.ZIP
Filename : TSKNAME.C

/*
--- Version 2.2 90-10-12 10:33 ---

CTask Name searching routines

Public Domain Software written by
Thomas Wagner
Ferrari electronic Gmbh
Beusselstrasse 27
D-1000 Berlin 21
Germany

This file is new with version 2.1.
The find_name and find_group_name functions were moved here from
'tsksub.c', since they are not needed in the basic kernel.
This will save some code in applications not using the routines.

The add_name function to add a statically allocated structure to
the name list has been added in version 2.1.
*/

#include "tsk.h"
#include "tsklocal.h"

#if (TSK_NAMED)

local int Staticfunc tsk_streq (byteptr n1, byteptr n2)
{
while (*n1 && *n1 == *n2)
{
n1++;
n2++;
}
return *n1 == *n2;
}

/*
find_name
find_group_name
find structure, given name and type.
If type is less than zero, the first name-element matching the
name is returned.
If type is greater or equal to zero, the first structure matching
the name and type is returned.
*/

#if (GROUPS)
farptr Globalfunc find_group_name (gcbptr group, byteptr name, int kind)
{
queptr curr;

if (kind == TYP_GROUP && tsk_streq (name, group->namelist.name))
return group;

for (curr = group->namelist.list.first; !(curr->kind & Q_HEAD); curr = curr->next)
if (kind < 0 || (int)curr->kind == kind)
if (tsk_streq (name, ((nameptr)curr)->name))
return (kind >= 0) ? ((nameptr)curr)->strucp : curr;

return LNULL;
}
#endif


farptr Globalfunc find_name (byteptr name, int kind)
{
#if (GROUPS)
farptr curr;
gcbptr group;

if (tsk_global == LNULL)
if (!ctask_resident ())
return LNULL;

for (group = GLOBDATA current_task->group;
group != LNULL; group = group->home)
if ((curr = find_group_name (group, name, kind)) != LNULL)
return curr;
#else
queptr curr;

if (kind == TYP_GROUP)
return LNULL;

for (curr = GLOBDATA name_list.list.first; !(curr->kind & Q_HEAD);
curr = curr->next)
if (kind < 0 || (int)curr->kind == kind)
if (tsk_streq (name, ((nameptr)curr)->name))
return (kind >= 0) ? ((nameptr)curr)->strucp : curr;
#endif

return LNULL;
}


void Globalfunc add_event_name (nameptr elem)
{
CRITICAL;

if (elem->name [0] && elem->list.first == LNULL)
{
C_ENTER;
#if (GROUPS)
tsk_putqueue (&GLOBDATA current_task->group->namelist.list, (queptr)&elem->list);
#else
tsk_putqueue (&GLOBDATA name_list.list, (queptr)&elem->list);
#endif
C_LEAVE;
}
}
#endif