From e068df9b865aa9b2d30910cb6a0ccbf019e91311 Mon Sep 17 00:00:00 2001 From: "Janet B. Anderson" Date: Fri, 25 Jan 1991 11:51:14 +0000 Subject: [PATCH] RCZ + MRK removals --- src/db/recGbl.c | 226 ------------------------------------------------ 1 file changed, 226 deletions(-) diff --git a/src/db/recGbl.c b/src/db/recGbl.c index cb174be28..a9642bffd 100644 --- a/src/db/recGbl.c +++ b/src/db/recGbl.c @@ -34,35 +34,6 @@ * char *pcaller_name; * calling routine name * * char *psupport_name; * support routine name * * -* int recGblGetTypeIndex(prec_name,ptypeIndex) -* char *prec_name; -* int *ptypeIndex; -* -* int recGblReportDbCommon(fp,paddr)) -* FILE *fp; -* struct dbAddr *paddr; -* -* int recGblReportLink(fp,pfield_name,plink) -* FILE *fp; -* char *pfield_name; -* struct link *plink; -* -* int recGblReportCvtChoice(fp,pfield_name,choice_value) -* FILE *fp; -* char *pfield_name; -* unsigned short choice_value; -* -* int recGblReportGblChoice(fp,precord,pfield_name,choice_value) -* FILE *fp; -* struct dbCommon *precord; -* char *pfield_name; -* unsigned short choice_value; -* -* int recGblReportRecChoice(fp,precord,pfield_name,choice_value) -* FILE *fp; -* struct dbCommon *precord; -* char *pfield_name; -* unsigned short choice_value; **************************************************************************/ recGblDbaddrError(status,paddr,pcaller_name) @@ -94,7 +65,6 @@ char *pcaller_name; /* calling routine name*/ return; } - recGblRecordError(status,precord,pcaller_name) long status; struct dbCommon *precord; @@ -159,199 +129,3 @@ char *psupport_name; errMessage(status,buffer); return; } - -int recGblGetTypeIndex(prec_name,ptypeIndex) - char *prec_name; - int *ptypeIndex; -{ - int i; - - for(i=0; i < dbRecType->number; i++) { - if(!(dbRecType->papName[i])) continue; - if(strcmp(dbRecType->papName[i],prec_name) == 0) { - *ptypeIndex = i; - return(0); - } - } - return(-1); -} - -int recGblReportDbCommon(fp,paddr) - FILE *fp; - struct dbAddr *paddr; -{ - struct dbCommon *precord=(struct dbCommon *)(paddr->precord); - struct devSup *pdevSup; - - if(fprintf(fp,"NAME %-28s\nDESC %-28s\n",precord->name,precord->desc)<0) - return(-1); - if(recGblReportGblChoice(fp,precord,"SCAN",precord->scan)) return(-1); - if(fprintf(fp,"PHAS %d\tEVNT %d\n", - precord->phas,precord->evnt)<0) return(-1); - if(fprintf(fp,"STAT %d\tSEVR %d\tNSTA %d\tNSEV %d\nDTYP %5d\n", - precord->stat,precord->sevr, - precord->nsta,precord->nsev,precord->dtyp)<0) return(-1); - if(precord->dset != NULL) { - if(!(pdevSup=GET_DEVSUP(paddr->record_type))) return(-1); - if(fprintf(fp,"DSET %s\n",(pdevSup->dsetName[precord->dtyp]))<0) - return(-1); - } - if(recGblReportLink(fp,"SDIS",&(precord->sdis))) return(-1); - if(fprintf(fp,"DISA %d\tPACT %d\t",precord->disa,precord->pact)<0) - return(-1); - if(fprintf(fp,"LSET %d\n",precord->lset)<0) return(-1); - if(fprintf(fp,"ESEC 0x%lx\tNSEC 0x%lx\n",precord->esec,precord->nsec)<0) - return(-1); - return(0); -} - -int recGblReportLink(fp,pfield_name,plink) - FILE *fp; - char *pfield_name; - struct link *plink; -{ - switch(plink->type) { - case CONSTANT: - if(fprintf(fp,"%4s %12.4G\n", - pfield_name, - plink->value.value)<0) return(-1); - break; - case PV_LINK: - if(fprintf(fp,"%4s %1d %1d PV_LINK: %28s %4s\n", - pfield_name, - plink->value.pv_link.process_passive, - plink->value.pv_link.maximize_sevr, - plink->value.pv_link.pvname, - plink->value.pv_link.fldname)<0) return(-1); - break; - case VME_IO: - if(fprintf(fp,"%4s VME: card=%2d signal=%2d\n", - pfield_name, - plink->value.vmeio.card,plink->value.vmeio.signal)<0) return(-1); - break; - case CAMAC_IO: - if(fprintf(fp, - "%4s CAMAC: branch=%2d crate=%2d slot=%2d channel=%2d\n", - pfield_name, - plink->value.camacio.branch,plink->value.camacio.crate, - plink->value.camacio.slot,plink->value.camacio.channel)<0) - return(-1); - break; - case AB_IO: - if(fprintf(fp, - "%4s ABIO: link=%2d adaptor=%2d card=%2d signal=%2d flag=%1d\n", - pfield_name, - plink->value.abio.link,plink->value.abio.adapter, - plink->value.abio.card,plink->value.abio.signal, - plink->value.abio.plc_flag)<0) return(-1); - break; - case GPIB_IO: - if(fprintf(fp, "%4s GPIB: link=%2d taddr=%2d laddr=%2d signal=%3d\n", - pfield_name, - plink->value.gpibio.link,plink->value.gpibio.taddr, - plink->value.gpibio.laddr,plink->value.gpibio.signal)<0) - return(-1); - break; - case BITBUS_IO: - if(fprintf(fp, "%4s BITBUS: link=%2d addr=%2d signal=%3d\n", - pfield_name, - plink->value.bitbusio.link,plink->value.bitbusio.addr, - plink->value.bitbusio.signal)<0) return(-1); - break; - case DB_LINK: - if(fprintf(fp,"%4s %1d %1d DB_LINK: %28s\n", - pfield_name, - plink->value.db_link.process_passive, - plink->value.db_link.maximize_sevr, - ((struct dbCommon *)( - ((struct dbAddr *)plink->value.db_link.pdbAddr) - ->precord))->name)<0) - return(-1); - break; - case CA_LINK: - if(fprintf(fp,"%4s %1d %1d CA_LINK: Not Yet Implemented\n", - pfield_name, - plink->value.ca_link.process_passive, - plink->value.ca_link.maximize_sevr) <0) return(-1); - break; - default: - errMessage(S_db_badField,"recGblReportLink: Illegal link.type"); - break; - } - return(0); -} - -int recGblReportCvtChoice(fp,pfield_name,choice_value) - FILE *fp; - char *pfield_name; - unsigned short choice_value; -{ - char *pchoice; - - if(!(pchoice=GET_CHOICE(choiceCvt,choice_value))) { - if(fprintf(fp,"%4s Illegal Choice\n",pfield_name)<0) return(-1); - } - else { - if(fprintf(fp,"%4s: %s\n",pfield_name,pchoice)<0) return(-1); - } - return(0); -} - - -int recGblReportGblChoice(fp,precord,pfield_name,choice_value) - FILE *fp; - struct dbCommon *precord; - char *pfield_name; - unsigned short choice_value; -{ - char name[PVNAME_SZ+1+FLDNAME_SZ+1]; - struct dbAddr dbAddr; - struct choiceSet *pchoiceSet; - char *pchoice; - - strncpy(name,precord->name,PVNAME_SZ); - strcat(name,"."); - strncat(name,pfield_name,FLDNAME_SZ); - if(dbNameToAddr(name,&dbAddr)) { - if(fprintf(fp,"%4s dbNameToAddr failed?\n",pfield_name)<0)return(-1); - return(0); - } - if( !(pchoiceSet=GET_PCHOICE_SET(choiceGbl,dbAddr.choice_set)) - || !(pchoice=GET_CHOICE(pchoiceSet,choice_value))) { - if(fprintf(fp,"%4s Cant find Choice\n",pfield_name)<0) return(-1); - } - else { - if(fprintf(fp,"%4s: %s\n",pfield_name,pchoice)<0) return(-1); - } - return(0); -} - -int recGblReportRecChoice(fp,precord,pfield_name,choice_value) - FILE *fp; - struct dbCommon *precord; - char *pfield_name; - unsigned short choice_value; -{ - char name[PVNAME_SZ+1+FLDNAME_SZ+1]; - struct dbAddr dbAddr; - struct arrChoiceSet *parrChoiceSet; - struct choiceSet *pchoiceSet; - char *pchoice; - - strncpy(name,precord->name,PVNAME_SZ); - strcat(name,"."); - strncat(name,pfield_name,FLDNAME_SZ); - if(dbNameToAddr(name,&dbAddr)) { - if(fprintf(fp,"%4s dbNameToAddr failed?\n",pfield_name)<0)return(-1); - return(0); - } - if( !(parrChoiceSet=GET_PARR_CHOICE_SET(choiceRec,dbAddr.record_type)) - || !(pchoiceSet=GET_PCHOICE_SET(parrChoiceSet,dbAddr.choice_set)) - || !(pchoice=GET_CHOICE(pchoiceSet,choice_value))) { - if(fprintf(fp,"%4s Cant find Choice\n",pfield_name)<0) return(-1); - } - else { - if(fprintf(fp,"%4s: %s\n",pfield_name,pchoice)<0) return(-1); - } - return(0); -}