main () {
pwr_tStatus sts;
tree_sTable *nodes;
qini_sNode *nep;
qini_sNode *me = NULL;
char *s;
FILE *f;
char my_name[80];
int len = sizeof(my_name);
int errors;
gethostname(my_name, len);
if ((s = strchr(my_name, '.')) != NULL)
*s = '\0';
printf("-- Starting QCOM on node: %s\n", my_name);
f = fopen("sys$login:ld_hosts_001.dat", "r");
if (f == NULL) {
perror("sys$login:ld_hosts_001.dat");
exit(1);
}
nodes = tree_CreateTable(sizeof(pwr_tNodeId), offsetof(qini_sNode, nid),
sizeof(qini_sNode), 10, tree_eComp_nid, NULL);
errors = qini_ParseFile(f, nodes);
if (errors != 0) {
printf("** %d errors where found, qcom will not be started!\n", errors);
exit(1);
}
for (
nep = tree_Minimum(nodes);
nep != NULL;
nep = tree_Successor(nodes, nep)
) {
printf("%s %d %d %d %d\n", nep->name, nep->nid, nep->naddr, nep->port,
nep->connect);
if (strcmp(my_name, nep->name) == 0) {
printf("-- My nid is: %d\n", nep->nid);
me = nep;
}
}
if (me == NULL) {
printf("** Could not find myself!\n");
exit(1);
}
qini_BuildDb(&sts, nodes, me, NULL, 1);
qdb->g->log.m = 7;
sleep(20000000);
}
pwr_tBoolean ini_ReadNodeFile (
pwr_tStatus *status,
ini_sContext *cp
)
{
FILE *f;
pwr_dStatus(sts, status, INI__SUCCESS);
f = ini_OpenFile(sts, cp, &cp->nodefile);
if (f == NULL)
return NO;
errh_LogInfo(&cp->log, "Reading Node file %s", cp->nodefile.name);
qini_ParseFile(f, cp->nid_t, &cp->warnings, &cp->errors, &cp->fatals);
fclose(f);
return YES;
}
