lnk/microser
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

自主协议库编译通过

Browse Source
This commit is contained in:
lnk
2026-06-15 15:48:16 +08:00
parent d3579a2aa7
commit 7205cb5cb9
621 changed files with 224958 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

755
mmslib/mvlu/mvl_objb.c Normal file
View File

@@ -0,0 +1,755 @@
/************************************************************************/
/* SISCO SOFTWARE MODULE HEADER *****************************************/
/************************************************************************/
/* (c) Copyright Systems Integration Specialists Company, Inc., */
/* 1999 - 2002, All Rights Reserved */
/* */
/* MODULE NAME : mvl_objb.c */
/* PRODUCT(S) : MMSEASE-LITE */
/* */
/* MODULE DESCRIPTION : */
/* Functions for maintaining arrays of "generic objects" */
/* using "bsearch". */
/* */
/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */
/* mvl_obj_insert */
/* mvl_obj_delete */
/* mvl_obj_find */
/* mvl_obj_find_key */
/* mvl_vmd_dom_insert */
/* mvl_vmd_var_insert */
/* mvl_vmd_nvl_insert */
/* mvl_vmd_jou_insert */
/* mvl_vmd_dom_delete */
/* mvl_vmd_var_delete */
/* mvl_vmd_nvl_delete */
/* mvl_vmd_jou_delete */
/* mvl_vmd_find_dom */
/* mvl_vmd_find_var */
/* mvl_vmd_find_nvl */
/* mvl_vmd_find_jou */
/* mvl_vmd_dom_find_last */
/* */
/* MODIFICATION LOG : */
/* Date Who Rev Comments */
/* -------- --- ------ ------------------------------------------- */
/* 02/01/07 JRB 14 Fix function names in module header. */
/* 10/30/06 JRB 13 Add vmd_ctrl arg to several functions & chg */
/* prefix from "mvl_" to "mvl_vmd_". */
/* Also add net_info arg to "mvl_vmd_find_*" */
/* so global _mvl_curr_net_info not needed. */
/* Move all obj delete functs from mvl_obj.c to here.*/
/* 01/30/06 GLB 12 Integrated porting changes for VMS */
/* 04/11/05 CRM 11 Added mvl_dom_find_last */
/* 11/11/04 MDE 10 Check for 0 elements before calling bsearch */
/* 01/23/02 EJV 09 Added journals to domain: */
/* mvl_jou_insert - added DOM_SPEC case */
/* mvl_find_jou - added DOM_SPEC case */
/* mvl_sort_objs - added qsort dom->jou_tbl */
/* 04/14/00 JRB 08 Move sort & compare code FROM mvl_obj.c to */
/* here and make it ANSI compatible. */
/* 04/10/00 JRB 07 Fix usage of bsearch to be ANSI compatible. */
/* 09/15/99 JRB 06 Move mvl_obj_nosort here for DOS link */
/* 09/13/99 MDE 05 Added SD_CONST modifiers */
/* 09/07/99 MDE 04 Changed MVL_VA_SCOPE to MVL_SCOPE, added */
/* scope to MVL_NVLIST_CTRL */
/* 04/07/99 MDE 03 Logging improvements */
/* 03/18/99 MDE 02 Enhanced dynamic object facilities */
/* 01/15/99 JRB 01 Created */
/************************************************************************/
#include "glbtypes.h"
#include "sysincs.h"
#include "mvl_defs.h"
#include "mvl_log.h"
/************************************************************************/
/* For debug version, use a static pointer to avoid duplication of */
/* __FILE__ strings. */
/************************************************************************/
#ifdef DEBUG_SISCO
SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__;
#endif
ST_BOOLEAN mvl_obj_nosort;
/************************************************************************/
/* Local functions. */
/************************************************************************/
int _mvl_obj_compare (const void *obj1, const void *obj2);
/************************************************************************/
/* Static variables. */
/************************************************************************/
/* NONE */
/************************************************************************/
/* mvl_obj_insert */
/* NOTE: newElement should point to a "real" structure that has already */
/* been allocated. This allows this function to work without */
/* caring about the size of the "real" structure. */
/* This function just adds the ptr to the array of ptrs. */
/************************************************************************/
ST_RET mvl_obj_insert (MVL_OBJ **elementTable,
ST_INT *numElement,
ST_INT maxElement,
MVL_OBJ *newElement)
{
MVL_OBJ **key;
if (*numElement >= maxElement)
{
MVL_LOG_ERR2 ("ERROR inserting '%s' object. Max num %d exceeded.",
newElement->name, maxElement);
return (SD_FAILURE); /* No more room in array. */
}
/* Check to see if we are bulk updating, and put at end if so */
if (mvl_obj_nosort || (*numElement == 0))
{
elementTable [(*numElement)++] = newElement; /* Add to end of array */
}
else
{
/* Make sure it's not already in array. Can't have duplicates. */
if (*numElement)
key = (MVL_OBJ **) bsearch (&newElement, elementTable, *numElement,
sizeof (MVL_OBJ *), _mvl_obj_compare);
else
key = NULL;
if (key != NULL)
{
MVL_LOG_ERR1 ("ERROR inserting '%s' object. Duplicate.",
newElement->name);
return (SD_FAILURE); /* Already in array. */
}
/* Add to array and resort. */
elementTable [(*numElement)++] = newElement; /* Add to end of array */
qsort (elementTable, *numElement, sizeof (MVL_OBJ *), _mvl_obj_compare);
}
return (SD_SUCCESS);
}
/************************************************************************/
/* mvl_obj_delete */
/************************************************************************/
MVL_OBJ *mvl_obj_delete (MVL_OBJ **elementTable,
ST_INT *numElement,
ST_CHAR *itemName)
{
MVL_OBJ *el;
MVL_OBJ **foundElement;
MVL_OBJ **destElement;
MVL_OBJ **endElement;
/* Locate the element of interest. We get a pointer into the array of */
/* element pointers if it is found. */
foundElement = mvl_obj_find_key (elementTable, *numElement, itemName);
if (!foundElement)
return (NULL);
el = *foundElement;
/* OK, now just move up the remaining pointers */
/* Array was sorted before, so it will still be sorted. */
destElement = foundElement;
endElement = elementTable + *numElement;
while (++destElement < endElement)
*(destElement-1) = *destElement;
--(*numElement);
/* Return the element for further work */
return (el);
}
/************************************************************************/
/* mvl_obj_find */
/* This function is used to locate an element that is referenced in a */
/* sorted table of element pointers. */
/************************************************************************/
MVL_OBJ *mvl_obj_find (MVL_OBJ **elementTable,
ST_INT numElement,
ST_CHAR *itemName)
{
MVL_OBJ **key;
/* First find just the "key". */
key = mvl_obj_find_key (elementTable, numElement, itemName);
/* If key != NULL, return "*key", else return NULL. */
if (key) /* "key" is pointer to pointer to structure. */
return (*key); /* "*key" is pointer to structure. */
return (NULL); /* Not found!! */
}
/************************************************************************/
/* mvl_obj_find_key */
/* This function is used to locate an element that is referenced in a */
/* sorted table of element pointers. */
/* This function only finds the key. Convenient for delete function. */
/************************************************************************/
MVL_OBJ **mvl_obj_find_key (MVL_OBJ **elementTable,
ST_INT numElement,
ST_CHAR *itemName)
{
MVL_OBJ **key;
MVL_OBJ TmpObj; /* Temporary object to search for. */
MVL_OBJ *pTmpObj; /* ptr to temp object. */
if (numElement == 0)
return (NULL);
/* Create a element from the itemName, such that a pointer to the */
/* element pointer can be passed to the search function. */
TmpObj.name = itemName;
pTmpObj = &TmpObj;
if (numElement)
key = (MVL_OBJ **) bsearch (&pTmpObj, elementTable, numElement,
sizeof (MVL_OBJ *), _mvl_obj_compare);
else
key = NULL;
return (key);
}
/************************************************************************/
/* mvl_vmd_dom_insert */
/************************************************************************/
ST_RET mvl_vmd_dom_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_DOM_CTRL *dom)
{
/* Domain can only be VMD_SPEC, so this one is easy. */
return (mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->dom_tbl,
&vmd_ctrl->num_dom, vmd_ctrl->max_num_dom,
(MVL_OBJ *) dom));
}
/************************************************************************/
/* mvl_vmd_var_insert */
/************************************************************************/
ST_RET mvl_vmd_var_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_VAR_ASSOC *va, OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
ST_RET retcode = SD_FAILURE;
MVL_DOM_CTRL *dom;
MVL_AA_OBJ_CTRL *aa_objs;
switch (obj->object_tag)
{
case VMD_SPEC:
retcode = mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->var_assoc_tbl,
&vmd_ctrl->num_var_assoc, vmd_ctrl->max_num_var_assoc,
(MVL_OBJ *) va);
break;
case DOM_SPEC:
if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id)))
retcode = mvl_obj_insert ((MVL_OBJ **) dom->var_assoc_tbl,
&dom->num_var_assoc, dom->max_num_var_assoc,
(MVL_OBJ *) va);
else
{
MVL_LOG_NERR1 ("Insert var: Domain '%s' not found", obj->domain_id);
}
break;
case AA_SPEC:
if (net_info)
{
aa_objs = net_info->aa_objs;
retcode = mvl_obj_insert ((MVL_OBJ **) aa_objs->var_assoc_tbl,
&aa_objs->num_var_assoc, aa_objs->max_num_var_assoc,
(MVL_OBJ *) va);
}
else
MVL_LOG_ERR0 ("Association not known. Cannot insert Application Association-specific variable.");
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", obj->obj_name.vmd_spec);
break;
}
return (retcode);
}
/************************************************************************/
/* mvl_vmd_nvl_insert */
/************************************************************************/
ST_RET mvl_vmd_nvl_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_NVLIST_CTRL *nvl, OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
ST_RET retcode = SD_FAILURE;
MVL_DOM_CTRL *dom;
MVL_AA_OBJ_CTRL *aa_objs;
switch (obj->object_tag)
{
case VMD_SPEC:
retcode = mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->nvlist_tbl,
&vmd_ctrl->num_nvlist, vmd_ctrl->max_num_nvlist,
(MVL_OBJ *) nvl);
nvl->nvl_scope.scope = VMD_SPEC;
break;
case DOM_SPEC:
if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id)))
retcode = mvl_obj_insert ((MVL_OBJ **) dom->nvlist_tbl,
&dom->num_nvlist, dom->max_num_nvlist,
(MVL_OBJ *) nvl);
else
{
MVL_LOG_NERR1 ("Insert NVL: Domain '%s' not found", obj->domain_id);
}
nvl->nvl_scope.scope = DOM_SPEC;
nvl->nvl_scope.dom = dom;
break;
case AA_SPEC:
if (net_info)
{
aa_objs = net_info->aa_objs;
retcode = mvl_obj_insert ((MVL_OBJ **) aa_objs->nvlist_tbl,
&aa_objs->num_nvlist, aa_objs->max_num_nvlist,
(MVL_OBJ *) nvl);
nvl->nvl_scope.scope = AA_SPEC;
}
else
MVL_LOG_ERR0 ("Association not known. Cannot insert Application Association-specific NVL.");
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", obj->obj_name.vmd_spec);
break;
}
return (retcode);
}
/************************************************************************/
/* mvl_vmd_jou_insert */
/************************************************************************/
ST_RET mvl_vmd_jou_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_JOURNAL_CTRL *jou, OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
ST_RET retcode = SD_FAILURE;
MVL_AA_OBJ_CTRL *aa_objs;
MVL_DOM_CTRL *dom;
switch (obj->object_tag)
{
case VMD_SPEC:
retcode = mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->jou_tbl,
&vmd_ctrl->num_jou, vmd_ctrl->max_num_jou,
(MVL_OBJ *) jou);
break;
case AA_SPEC:
if (net_info)
{
aa_objs = net_info->aa_objs;
retcode = mvl_obj_insert ((MVL_OBJ **) aa_objs->jou_tbl,
&aa_objs->num_jou, aa_objs->max_num_jou,
(MVL_OBJ *) jou);
}
else
MVL_LOG_ERR0 ("Association not known. Cannot insert Application Association-specific journal.");
break;
case DOM_SPEC:
dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id);
if (dom)
retcode = mvl_obj_insert ((MVL_OBJ **) dom->jou_tbl,
&dom->num_jou, dom->max_num_jou, (MVL_OBJ *) jou);
else
{
MVL_LOG_NERR1 ("Insert journal: Domain '%s' not found", obj->domain_id);
}
break;
default:
/* NOTE: DOM_SPEC illegal for journals. */
MVL_LOG_ERR1 ("Illegal scope for '%s'", obj->obj_name.vmd_spec);
break;
}
return (retcode);
}
/************************************************************************/
/* mvl_vmd_dom_delete */
/************************************************************************/
MVL_DOM_CTRL *mvl_vmd_dom_delete (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name)
{
MVL_DOM_CTRL *dom;
dom = (MVL_DOM_CTRL *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->dom_tbl,
&vmd_ctrl->num_dom, dom_name);
return (dom);
}
/************************************************************************/
/* mvl_vmd_var_delete */
/************************************************************************/
MVL_VAR_ASSOC *mvl_vmd_var_delete (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
MVL_VAR_ASSOC *va;
MVL_DOM_CTRL *dom;
MVL_AA_OBJ_CTRL *aa_objs;
ST_CHAR *name;
va = NULL;
name = obj->obj_name.vmd_spec; /* We know this is a union ... */
switch (obj->object_tag)
{
case VMD_SPEC:
va = (MVL_VAR_ASSOC *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->var_assoc_tbl,
&vmd_ctrl->num_var_assoc, name);
break;
case DOM_SPEC:
if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id)))
va = (MVL_VAR_ASSOC *) mvl_obj_delete ((MVL_OBJ **) dom->var_assoc_tbl,
&dom->num_var_assoc, name);
else
{
MVL_LOG_NERR1 ("Delete var: Domain '%s' not found", obj->domain_id);
}
break;
case AA_SPEC:
if (net_info)
{
aa_objs = net_info->aa_objs;
va = (MVL_VAR_ASSOC *) mvl_obj_delete ((MVL_OBJ **) aa_objs->var_assoc_tbl,
&aa_objs->num_var_assoc, name);
}
else
MVL_LOG_ERR0 ("Association not known. Cannot delete Application Association-specific variable.");
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", name);
break;
}
return (va);
}
/************************************************************************/
/* mvl_vmd_nvl_delete */
/************************************************************************/
MVL_NVLIST_CTRL *mvl_vmd_nvl_delete (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
MVL_NVLIST_CTRL *nvl = NULL;
MVL_DOM_CTRL *dom;
MVL_AA_OBJ_CTRL *aa_objs;
ST_CHAR *name;
name = obj->obj_name.vmd_spec; /* We know this is a union ... */
switch (obj->object_tag)
{
case VMD_SPEC:
nvl = (MVL_NVLIST_CTRL *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->nvlist_tbl,
&vmd_ctrl->num_nvlist, name);
break;
case DOM_SPEC:
if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id)))
nvl = (MVL_NVLIST_CTRL *) mvl_obj_delete ((MVL_OBJ **) dom->nvlist_tbl,
&dom->num_nvlist, name);
else
{
MVL_LOG_NERR1 ("Delete NVL: Domain '%s' not found", obj->domain_id);
}
break;
case AA_SPEC:
if (net_info)
{
aa_objs = net_info->aa_objs;
nvl = (MVL_NVLIST_CTRL *) mvl_obj_delete ((MVL_OBJ **) aa_objs->nvlist_tbl,
&aa_objs->num_nvlist, name);
}
else
MVL_LOG_ERR0 ("Association not known. Cannot delete Application Association-specific NVL.");
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", name);
break;
}
return (nvl);
}
/************************************************************************/
/* mvl_vmd_jou_delete */
/************************************************************************/
MVL_JOURNAL_CTRL *mvl_vmd_jou_delete (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
MVL_JOURNAL_CTRL *jou;
MVL_AA_OBJ_CTRL *aa_objs;
MVL_DOM_CTRL *dom;
ST_CHAR *name;
jou = NULL;
name = obj->obj_name.vmd_spec; /* We know this is a union ... */
switch (obj->object_tag)
{
case VMD_SPEC:
jou = (MVL_JOURNAL_CTRL *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->jou_tbl,
&vmd_ctrl->num_jou, name);
break;
case AA_SPEC:
if (net_info)
{
aa_objs = net_info->aa_objs;
jou = (MVL_JOURNAL_CTRL *) mvl_obj_delete ((MVL_OBJ **) aa_objs->jou_tbl,
&aa_objs->num_jou, name);
}
else
MVL_LOG_ERR0 ("Association not known. Cannot delete Application Association-specific journal.");
break;
case DOM_SPEC:
dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id);
if (dom)
jou = (MVL_JOURNAL_CTRL *) mvl_obj_delete ((MVL_OBJ **) dom->jou_tbl,
&dom->num_jou, name);
else
{
MVL_LOG_NERR1 ("Delete journal: Domain '%s' not found", obj->domain_id);
}
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", name);
break;
}
return (jou);
}
/************************************************************************/
/* mvl_vmd_find_dom */
/************************************************************************/
MVL_DOM_CTRL *mvl_vmd_find_dom (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *name)
{
MVL_DOM_CTRL *result;
result = (MVL_DOM_CTRL *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->dom_tbl,
vmd_ctrl->num_dom, name);
return(result);
}
/************************************************************************/
/* mvl_vmd_dom_find_last */
/* Find the last domain. */
/************************************************************************/
MVL_DOM_CTRL *mvl_vmd_dom_find_last (MVL_VMD_CTRL *vmd_ctrl)
{
MVL_DOM_CTRL *dom;
if (vmd_ctrl->num_dom > 0)
dom = vmd_ctrl->dom_tbl [vmd_ctrl->num_dom-1];
else
dom = NULL; /* no more dynamically created domains. */
return (dom);
}
/************************************************************************/
/* mvl_vmd_find_var */
/* This function finds the 'variable association' for a particular var */
/* name. */
/************************************************************************/
MVL_VAR_ASSOC *mvl_vmd_find_var (MVL_VMD_CTRL *vmd_ctrl,
OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
MVL_DOM_CTRL *dom;
MVL_AA_OBJ_CTRL *aa;
ST_CHAR *name;
name = obj->obj_name.vmd_spec; /* We know this is a union ... */
switch (obj->object_tag)
{
case VMD_SPEC :
return ((MVL_VAR_ASSOC *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->var_assoc_tbl,
vmd_ctrl->num_var_assoc, name));
case DOM_SPEC :
dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id);
if (dom)
return ((MVL_VAR_ASSOC *) mvl_obj_find ((MVL_OBJ **) dom->var_assoc_tbl,
dom->num_var_assoc, name));
else
{
MVL_LOG_NERR1 ("Find Va: Domain '%s' not found", obj->domain_id);
}
break;
case AA_SPEC :
if (net_info)
{
aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs;
return ((MVL_VAR_ASSOC *) mvl_obj_find ((MVL_OBJ **) aa->var_assoc_tbl,
aa->num_var_assoc, name));
}
else
MVL_LOG_ERR0 ("Association not known. Cannot find Application Association-specific variable.");
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", name);
break;
}
return (NULL);
}
/************************************************************************/
/* mvl_vmd_find_nvl */
/************************************************************************/
MVL_NVLIST_CTRL *mvl_vmd_find_nvl (MVL_VMD_CTRL *vmd_ctrl,
OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
MVL_DOM_CTRL *dom;
MVL_AA_OBJ_CTRL *aa;
ST_CHAR *name;
/* Get the NVL name. We know this is a union ... */
name = obj->obj_name.vmd_spec;
switch (obj->object_tag)
{
case VMD_SPEC :
return ((MVL_NVLIST_CTRL *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->nvlist_tbl,
vmd_ctrl->num_nvlist, name));
case DOM_SPEC :
dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id);
if (dom)
return ((MVL_NVLIST_CTRL *) mvl_obj_find ((MVL_OBJ **) dom->nvlist_tbl,
dom->num_nvlist, name));
else
{
MVL_LOG_NERR1 ("Find NVL: Domain '%s' not found", obj->domain_id);
}
break;
case AA_SPEC :
if (net_info)
{
aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs;
return ((MVL_NVLIST_CTRL *) mvl_obj_find ((MVL_OBJ **) aa->nvlist_tbl,
aa->num_nvlist, name));
}
else
MVL_LOG_ERR0 ("Association not known. Cannot find Application Association-specific NVL.");
break;
default:
MVL_LOG_ERR1 ("Illegal scope for '%s'", name);
break;
}
return (NULL);
}
/************************************************************************/
/* mvl_vmd_find_jou */
/* This function finds the 'journal control' corresponding to 'obj'. */
/************************************************************************/
MVL_JOURNAL_CTRL *mvl_vmd_find_jou (MVL_VMD_CTRL *vmd_ctrl,
OBJECT_NAME *obj,
MVL_NET_INFO *net_info) /* Only used if AA_SPEC */
{
MVL_AA_OBJ_CTRL *aa_objs;
MVL_DOM_CTRL *dom;
ST_CHAR *name;
name = obj->obj_name.vmd_spec; /* We know this is a union ... */
switch (obj->object_tag)
{
case VMD_SPEC :
return ((MVL_JOURNAL_CTRL *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->jou_tbl,
vmd_ctrl->num_jou, name));
break;
case AA_SPEC :
if (net_info)
{
aa_objs = (MVL_AA_OBJ_CTRL *) net_info->aa_objs;
return ((MVL_JOURNAL_CTRL *) mvl_obj_find ((MVL_OBJ **) aa_objs->jou_tbl,
aa_objs->num_jou, name));
}
else
MVL_LOG_ERR0 ("Association not known. Cannot find Application Association-specific journal.");
break;
case DOM_SPEC :
dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id);
if (dom)
return ((MVL_JOURNAL_CTRL *) mvl_obj_find ((MVL_OBJ **) dom->jou_tbl,
dom->num_jou, name));
else
{
MVL_LOG_NERR1 ("Find journal: Domain '%s' not found", obj->domain_id);
}
break;
default:
/* NOTE: DOM_SPEC is illegal for Journals. */
MVL_LOG_ERR1 ("Illegal scope for '%s'", name);
break;
}
return (NULL);
}
/************************************************************************/
/* mvl_sort_objs */
/************************************************************************/
ST_VOID mvl_sort_objs (ST_VOID)
{
ST_INT i;
MVL_DOM_CTRL *dom;
mvl_obj_nosort = SD_FALSE;
qsort (mvl_vmd.dom_tbl, mvl_vmd.num_dom, sizeof (MVL_OBJ *), _mvl_obj_compare);
qsort (mvl_vmd.var_assoc_tbl, mvl_vmd.num_var_assoc, sizeof (MVL_OBJ *), _mvl_obj_compare);
qsort (mvl_vmd.nvlist_tbl, mvl_vmd.num_nvlist, sizeof (MVL_OBJ *), _mvl_obj_compare);
qsort (mvl_vmd.jou_tbl, mvl_vmd.num_jou, sizeof (MVL_OBJ *), _mvl_obj_compare);
for (i = 0; i < mvl_vmd.num_dom; ++i)
{
dom = mvl_vmd.dom_tbl[i];
qsort (dom->var_assoc_tbl, dom->num_var_assoc, sizeof (MVL_OBJ *), _mvl_obj_compare);
qsort (dom->nvlist_tbl, dom->num_nvlist, sizeof (MVL_OBJ *), _mvl_obj_compare);
qsort (dom->jou_tbl, dom->num_jou, sizeof (MVL_OBJ *), _mvl_obj_compare);
}
}
/************************************************************************/
/* _mvl_obj_compare */
/************************************************************************/
int _mvl_obj_compare (const void *obj1, const void *obj2)
{
const MVL_OBJ **mvl_obj1 = (const MVL_OBJ **) obj1;
const MVL_OBJ **mvl_obj2 = (const MVL_OBJ **) obj2;
return (strcmp ((*mvl_obj1)->name, (*mvl_obj2)->name));
}