int run_test2(SaHpiSessionIdT sessionId,
SaHpiResourceIdT resourceId,
SaHpiAnnunciatorRecT * annunRec, SaHpiSeverityT severity)
{
SaErrorT status;
int retval;
SaHpiAnnunciatorModeT mode;
SaHpiAnnunciatorNumT a_num = annunRec->AnnunciatorNum;
status = setWriteMode(sessionId, resourceId, annunRec, &mode);
if (status == ANNUN_ERROR) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (status == ANNUN_READONLY) {
retval = SAF_TEST_NOTSUPPORT;
} else {
status = saHpiAnnunciatorDelete(sessionId, resourceId, a_num,
SAHPI_ENTRY_UNSPECIFIED,
severity);
if (status == SA_OK) {
retval =
run_test1(sessionId, resourceId, a_num, severity);
} else {
e_print(saHpiAnnunciatorDelete, SA_OK, status);
retval = SAF_TEST_UNRESOLVED;
}
restoreMode(sessionId, resourceId, a_num, mode);
}
return retval;
}
int processAnnunRdr(SaHpiSessionIdT sessionId,
SaHpiResourceIdT resourceId,
SaHpiRdrT * rdr, SaHpiAnnunciatorRecT * annunRec)
{
SaErrorT status;
int retval;
SaHpiAnnunciatorNumT a_num = annunRec->AnnunciatorNum;
SaHpiAnnunciatorModeT mode;
SaHpiAnnouncementT announcement;
SaHpiBoolT found;
status = setWriteMode(sessionId, resourceId, annunRec, &mode);
if (status == ANNUN_ERROR) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (status == ANNUN_READONLY) {
retval = SAF_TEST_NOTSUPPORT;
} else {
status = addInfoAnnouncement(sessionId, resourceId,
a_num, &announcement);
if (status != SA_OK) {
m_print("addInfoAnnouncement fail!");
retval = SAF_TEST_UNRESOLVED;
} else {
status = saHpiAnnunciatorDelete(sessionId, resourceId,
a_num,
announcement.EntryId,
SAHPI_INFORMATIONAL);
if (status != SA_OK) {
retval = SAF_TEST_FAIL;
e_print(saHpiAnnunciatorDelete, SA_OK, status);
} else {
status =
containsAnnouncement(sessionId, resourceId,
a_num,
announcement.EntryId,
&found);
if (status != SA_OK) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (!found) {
retval = SAF_TEST_PASS;
} else {
retval = SAF_TEST_FAIL;
m_print
("saHpiAnnunciatorDelete failed to remove announcement!");
}
}
}
restoreMode(sessionId, resourceId, a_num, mode);
}
return retval;
}
int add_and_run_mismatch(SaHpiSessionIdT sessionId,
SaHpiResourceIdT resourceId,
SaHpiAnnunciatorRecT * annunRec)
{
SaErrorT status;
SaHpiAnnouncementT announcement1;
SaHpiAnnouncementT announcement2;
SaHpiAnnunciatorModeT mode;
int retval;
SaHpiAnnunciatorNumT a_num = annunRec->AnnunciatorNum;
status = setWriteMode(sessionId, resourceId, annunRec, &mode);
if (status == ANNUN_ERROR) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (status == ANNUN_READONLY) {
retval = SAF_TEST_NOTSUPPORT;
} else {
status = addInfoAnnouncement(sessionId, resourceId, a_num,
&announcement1);
if (status == SA_ERR_HPI_OUT_OF_SPACE) {
retval = SAF_TEST_NOTSUPPORT;
} else if (status != SA_OK) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else {
status =
addInfoAnnouncement(sessionId, resourceId, a_num,
&announcement2);
if (status == SA_ERR_HPI_OUT_OF_SPACE) {
retval = SAF_TEST_NOTSUPPORT;
} else if (status != SA_OK) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else {
retval =
run_mismatch(sessionId, resourceId, a_num);
deleteAnnouncement(sessionId, resourceId, a_num,
&announcement2);
}
deleteAnnouncement(sessionId, resourceId, a_num,
&announcement1);
}
restoreMode(sessionId, resourceId, a_num, mode);
}
return retval;
}
int processAnnunRdr(SaHpiSessionIdT sessionId,
SaHpiResourceIdT resourceId,
SaHpiRdrT * rdr, SaHpiAnnunciatorRecT * annunRec)
{
SaErrorT status;
int retval = SAF_TEST_NOTSUPPORT;
SaHpiAnnunciatorNumT a_num = annunRec->AnnunciatorNum;
SaHpiAnnunciatorModeT mode;
SaHpiEntryIdT invalidEntryId = SAHPI_FIRST_ENTRY;
status = setWriteMode(sessionId, resourceId, annunRec, &mode);
if (status == ANNUN_ERROR) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (status == ANNUN_READONLY) {
retval = SAF_TEST_NOTSUPPORT;
} else {
info_announcement.EntryId = invalidEntryId;
status = saHpiAnnunciatorAdd(sessionId, resourceId,
a_num, &info_announcement);
if (status == SA_ERR_HPI_OUT_OF_SPACE) {
retval = SAF_TEST_NOTSUPPORT;
} else if (status != SA_OK) {
retval = SAF_TEST_UNRESOLVED;
e_print(saHpiAnnunciatorAdd, SA_OK, status);
} else {
if (info_announcement.EntryId != invalidEntryId) {
retval = SAF_TEST_PASS;
} else {
retval = SAF_TEST_FAIL;
m_print
("saHpiAnnunciatorAdd failed to update EntryId field!");
}
deleteAnnouncement(sessionId, resourceId,
a_num, &info_announcement);
}
restoreMode(sessionId, resourceId, a_num, mode);
}
return retval;
}
int processAnnunRdr(SaHpiSessionIdT sessionId,
SaHpiResourceIdT resourceId,
SaHpiRdrT * rdr, SaHpiAnnunciatorRecT * annunRec)
{
SaErrorT status;
int retval;
SaHpiAnnunciatorNumT a_num = annunRec->AnnunciatorNum;
SaHpiAnnouncementT announcement;
SaHpiAnnunciatorModeT mode;
status = setWriteMode(sessionId, resourceId, annunRec, &mode);
if (status == ANNUN_ERROR) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (status == ANNUN_READONLY) {
retval = SAF_TEST_NOTSUPPORT;
} else {
status =
addInfoAnnouncement(sessionId, resourceId, a_num,
&announcement);
if (status != SA_OK) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else {
status =
acknowledgeAnnouncement(sessionId, resourceId,
a_num, &announcement);
if (status == SA_OK) {
retval = SAF_TEST_PASS;
} else {
e_trace();
retval = SAF_TEST_FAIL;
}
deleteAnnouncement(sessionId, resourceId, a_num,
&announcement);
}
restoreMode(sessionId, resourceId, a_num, mode);
}
return retval;
}
int processAnnunRdr(SaHpiSessionIdT sessionId,
SaHpiResourceIdT resourceId,
SaHpiRdrT * rdr, SaHpiAnnunciatorRecT * annunRec)
{
SaErrorT status;
int i;
int retval;
SaHpiAnnunciatorNumT a_num = annunRec->AnnunciatorNum;
SaHpiAnnunciatorModeT mode;
SaHpiStatusCondTypeT invalidCondType[] =
{ SAHPI_STATUS_COND_TYPE_SENSOR,
SAHPI_STATUS_COND_TYPE_RESOURCE,
SAHPI_STATUS_COND_TYPE_OEM,
BAD_STATUS_COND_TYPE
};
status = setWriteMode(sessionId, resourceId, annunRec, &mode);
if (status == ANNUN_ERROR) {
e_trace();
retval = SAF_TEST_UNRESOLVED;
} else if (status == ANNUN_READONLY) {
retval = SAF_TEST_NOTSUPPORT;
} else {
for (i = 0; i < 4; i++) {
retval =
run_test(sessionId, resourceId, a_num,
invalidCondType[i]);
if (retval != SAF_TEST_PASS) {
break;
}
}
restoreMode(sessionId, resourceId, a_num, mode);
}
return retval;
}
void externalPlot(char *library, mpfr_t a, mpfr_t b, mp_prec_t samplingPrecision, int random, node *func, int mode, mp_prec_t prec, char *name, int type) {
void *descr;
void (*myFunction)(mpfr_t, mpfr_t);
char *error;
mpfr_t x_h,x,y,temp,perturb,ulp,min_value;
double xd, yd;
FILE *file;
gmp_randstate_t state;
char *gplotname;
char *dataname;
char *outputname;
gmp_randinit_default (state);
if(samplingPrecision > prec) {
sollyaFprintf(stderr, "Error: you must use a sampling precision lower than the current precision\n");
return;
}
descr = dlopen(library, RTLD_NOW);
if (descr==NULL) {
sollyaFprintf(stderr, "Error: the given library (%s) is not available (%s)!\n",library,dlerror());
return;
}
dlerror(); /* Clear any existing error */
myFunction = (void (*)(mpfr_t, mpfr_t)) dlsym(descr, "f");
if ((error = dlerror()) != NULL) {
sollyaFprintf(stderr, "Error: the function f cannot be found in library %s (%s)\n",library,error);
return;
}
if(name==NULL) {
gplotname = (char *)safeCalloc(13 + strlen(PACKAGE_NAME), sizeof(char));
sprintf(gplotname,"/tmp/%s-%04d.p",PACKAGE_NAME,fileNumber);
dataname = (char *)safeCalloc(15 + strlen(PACKAGE_NAME), sizeof(char));
sprintf(dataname,"/tmp/%s-%04d.dat",PACKAGE_NAME,fileNumber);
outputname = (char *)safeCalloc(1, sizeof(char));
fileNumber++;
if (fileNumber >= NUMBEROFFILES) fileNumber=0;
}
else {
gplotname = (char *)safeCalloc(strlen(name)+3,sizeof(char));
sprintf(gplotname,"%s.p",name);
dataname = (char *)safeCalloc(strlen(name)+5,sizeof(char));
sprintf(dataname,"%s.dat",name);
outputname = (char *)safeCalloc(strlen(name)+5,sizeof(char));
if ((type==PLOTPOSTSCRIPT) || (type==PLOTPOSTSCRIPTFILE)) sprintf(outputname,"%s.eps",name);
}
/* Beginning of the interesting part of the code */
file = fopen(gplotname, "w");
if (file == NULL) {
sollyaFprintf(stderr,"Error: the file %s requested by plot could not be opened for writing: ",gplotname);
sollyaFprintf(stderr,"\"%s\".\n",strerror(errno));
return;
}
sollyaFprintf(file, "# Gnuplot script generated by %s\n",PACKAGE_NAME);
if ((type==PLOTPOSTSCRIPT) || (type==PLOTPOSTSCRIPTFILE)) sollyaFprintf(file,"set terminal postscript eps color\nset out \"%s\"\n",outputname);
sollyaFprintf(file, "set xrange [%1.50e:%1.50e]\n", mpfr_get_d(a, GMP_RNDD),mpfr_get_d(b, GMP_RNDU));
sollyaFprintf(file, "plot \"%s\" using 1:2 with dots t \"\"\n",dataname);
fclose(file);
file = fopen(dataname, "w");
if (file == NULL) {
sollyaFprintf(stderr,"Error: the file %s requested by plot could not be opened for writing: ",dataname);
sollyaFprintf(stderr,"\"%s\".\n",strerror(errno));
return;
}
mpfr_init2(x_h,samplingPrecision);
mpfr_init2(perturb, prec);
mpfr_init2(x,prec);
mpfr_init2(y,prec);
mpfr_init2(temp,prec);
mpfr_init2(ulp,prec);
mpfr_init2(min_value,53);
mpfr_sub(min_value, b, a, GMP_RNDN);
mpfr_div_2ui(min_value, min_value, 12, GMP_RNDN);
mpfr_set(x_h,a,GMP_RNDD);
while(mpfr_less_p(x_h,b)) {
mpfr_set(x, x_h, GMP_RNDN); // exact
if (mpfr_zero_p(x_h)) {
mpfr_set(x_h, min_value, GMP_RNDU);
}
else {
if (mpfr_cmpabs(x_h, min_value) < 0) mpfr_set_d(x_h, 0., GMP_RNDN);
else mpfr_nextabove(x_h);
}
if(random) {
mpfr_sub(ulp, x_h, x, GMP_RNDN);
mpfr_urandomb(perturb, state);
mpfr_mul(perturb, perturb, ulp, GMP_RNDN);
mpfr_add(x, x, perturb, GMP_RNDN);
}
(*myFunction)(temp,x);
evaluateFaithful(y, func, x,prec);
mpfr_sub(temp, temp, y, GMP_RNDN);
if(mode==RELATIVE) mpfr_div(temp, temp, y, GMP_RNDN);
xd = mpfr_get_d(x, GMP_RNDN);
if (xd >= MAX_VALUE_GNUPLOT) xd = MAX_VALUE_GNUPLOT;
if (xd <= -MAX_VALUE_GNUPLOT) xd = -MAX_VALUE_GNUPLOT;
sollyaFprintf(file, "%1.50e",xd);
if (!mpfr_number_p(temp)) {
if (verbosity >= 2) {
changeToWarningMode();
sollyaPrintf("Information: function undefined or not evaluable in point %s = ",variablename);
printValue(&x);
sollyaPrintf("\nThis point will not be plotted.\n");
restoreMode();
}
}
yd = mpfr_get_d(temp, GMP_RNDN);
if (yd >= MAX_VALUE_GNUPLOT) yd = MAX_VALUE_GNUPLOT;
if (yd <= -MAX_VALUE_GNUPLOT) yd = -MAX_VALUE_GNUPLOT;
sollyaFprintf(file, "\t%1.50e\n", yd);
}
fclose(file);
/* End of the interesting part.... */
dlclose(descr);
mpfr_clear(x);
mpfr_clear(y);
mpfr_clear(x_h);
mpfr_clear(temp);
mpfr_clear(perturb);
mpfr_clear(ulp);
mpfr_clear(min_value);
if ((name==NULL) || (type==PLOTFILE)) {
if (fork()==0) {
daemon(1,1);
execlp("gnuplot", "gnuplot", "-persist", gplotname, NULL);
perror("An error occurred when calling gnuplot ");
exit(1);
}
else wait(NULL);
}
else { /* Case we have an output: no daemon */
if (fork()==0) {
execlp("gnuplot", "gnuplot", "-persist", gplotname, NULL);
perror("An error occurred when calling gnuplot ");
exit(1);
}
else {
wait(NULL);
if((type==PLOTPOSTSCRIPT)) {
remove(gplotname);
remove(dataname);
}
}
}
free(gplotname);
free(dataname);
free(outputname);
return;
}