jba pact now used to test for asyn processing, not return value

This commit is contained in:
Janet B. Anderson
1992-04-17 12:57:07 +00:00
parent e78682784f
commit 4184bdd54e
10 changed files with 33 additions and 15 deletions

View File

@@ -32,7 +32,8 @@
* -----------------
* .01 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .02 02-05-92 jba Changed function arguments from paddr to precord
* .02 03-13-92 jba ANSI C changes
* .03 03-13-92 jba ANSI C changes
* .04 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -92,8 +93,6 @@ static void myCallback(pcallback)
(*prset->process)(precord);
dbScanUnlock(precord);
}
static long init_record(pai)
struct aiRecord *pai;
@@ -140,7 +139,8 @@ static long read_ai(pai)
callbackSetPriority(pai->prio,pcallback);
printf("%s Starting asynchronous processing\n",pai->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pai->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pai,SOFT_ALARM,VALID_ALARM)){

View File

@@ -34,6 +34,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -139,7 +140,8 @@ static long write_ao(pao)
callbackSetPriority(pao->prio,pcallback);
printf("%s Starting asynchronous processing\n",pao->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pao->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pao,SOFT_ALARM,VALID_ALARM)){

View File

@@ -34,6 +34,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -140,7 +141,8 @@ static long read_bi(pbi)
callbackSetPriority(pbi->prio,pcallback);
printf("%s Starting asynchronous processing\n",pbi->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pbi->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pbi,SOFT_ALARM,VALID_ALARM)){

View File

@@ -34,6 +34,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -132,14 +133,15 @@ static long write_bo(pbo)
case (CONSTANT) :
if(pbo->pact) {
printf("%s Completed\n",pbo->name);
return(0); /* don`t convert*/
return(0);
} else {
wait_time = (int)(pbo->disv * vxTicksPerSecond);
if(wait_time<=0) return(0);
callbackSetPriority(pbo->prio,pcallback);
printf("%s Starting asynchronous processing\n",pbo->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pbo->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pbo,SOFT_ALARM,VALID_ALARM)){

View File

@@ -33,6 +33,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -136,7 +137,8 @@ static long read_histogram(phistogram)
callbackSetPriority(phistogram->prio,pcallback);
printf("%s Starting asynchronous processing\n",phistogram->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
phistogram->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(phistogram,SOFT_ALARM,VALID_ALARM)){

View File

@@ -34,6 +34,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -139,7 +140,8 @@ static long read_mbbi(pmbbi)
callbackSetPriority(pmbbi->prio,pcallback);
printf("%s Starting asynchronous processing\n",pmbbi->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pmbbi->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pmbbi,SOFT_ALARM,VALID_ALARM)){

View File

@@ -34,6 +34,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -132,14 +133,15 @@ static long write_mbbo(pmbbo)
case (CONSTANT) :
if(pmbbo->pact) {
printf("%s Completed\n",pmbbo->name);
return(0); /* don`t convert*/
return(0);
} else {
wait_time = (int)(pmbbo->disv * vxTicksPerSecond);
if(wait_time<=0) return(0);
callbackSetPriority(pmbbo->prio,pcallback);
printf("%s Starting asynchronous processing\n",pmbbo->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pmbbo->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pmbbo,SOFT_ALARM,VALID_ALARM)){

View File

@@ -33,6 +33,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -140,7 +141,8 @@ static long read_stringin(pstringin)
callbackSetPriority(pstringin->prio,pcallback);
printf("%s Starting asynchronous processing\n",pstringin->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pstringin->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pstringin,SOFT_ALARM,VALID_ALARM)){

View File

@@ -33,6 +33,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -137,7 +138,8 @@ static long write_stringout(pstringout)
callbackSetPriority(pstringout->prio,pcallback);
printf("%s Starting asynchronous processing\n",pstringout->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pstringout->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pstringout,SOFT_ALARM,VALID_ALARM)){

View File

@@ -34,6 +34,7 @@
* .02 01-08-92 jba Added cast in call to wdStart to avoid compile warning msg
* .03 02-05-92 jba Changed function arguments from paddr to precord
* .04 03-13-92 jba ANSI C changes
* .05 04-10-92 jba pact now used to test for asyn processing, not return value
* ...
*/
@@ -137,7 +138,8 @@ static long read_wf(pwf)
callbackSetPriority(pwf->prio,pcallback);
printf("%s Starting asynchronous processing\n",pwf->name);
wdStart(pcallback->wd_id,wait_time,callbackRequest,(int)pcallback);
return(1);
pwf->pact=TRUE;
return(0);
}
default :
if(recGblSetSevr(pwf,SOFT_ALARM,VALID_ALARM)){