#include "exlib.conf"
#include "daclib.conf"
#include "exlib.h"
#include "daclib.h"
#include "mct.h"
Data Structures | |
union | SPCHDR |
Defines | |
#define | CPNAME "MCT" |
#define | CPTITL "Multi Channel Analyser Time Matrix" |
#define | CPDATE "(15Jan03/Hu)" |
#define | CIDPRG "MCT " |
#define | CVERSION "07sep00" |
#define | MFILNA 70 |
#define | useDATAROUT |
#define | CLKRATE sysClkRateGet() |
#define | BASEPRIO 40 |
#define | MAXLEN 0x10000 |
#define | INISTACK 5000 |
#define | INICHCK VX_FP_TASK |
#define | INIOPT VX_FP_TASK |
#define | MSTRTASK "tMctMstr" |
#define | MSTRPRIO (BASEPRIO+1) |
#define | MSTRSTACK 7000 |
#define | MSTROPT VX_FP_TASK |
#define | MSTROPT VX_FP_TASK |
#define | RLTTASK "tMctRlt" |
#define | RLTPRIO (BASEPRIO+0) |
#define | RLTSTACK 5000 |
#define | RLTOPT 0 |
#define | DATATASK "tMctData" |
#define | DATAPRIO (BASEPRIO+2) |
#define | DATASTACK 5000 |
#define | DATAOPT VX_FP_TASK |
#define | DATATIME 9 |
#define | DATAPAUSE 1 |
#define | CTRLTASK "tMctCtrl" |
#define | CTRLPRIO (BASEPRIO+2) |
#define | CTRLSTACK 5000 |
#define | CTRLOPT 0 |
#define | CTRLPAUSE 1 |
#define | CTRLECF ".ecf" |
#define | SAVBGDATA |
#define | CBGTASK "tMctBg" |
#define | CBGPRIO 100 |
#define | CBGFILE "~/ex_home/ex_prog/peakv.o" |
#define | CBGSYM "_peak" |
#define | CBGSTACK 11000 |
#define | CBGOPT VX_FP_TASK |
#define | CBGARG1 ",,\"peak_mct.vxw\",,'S'" |
#define | BGARGS |
#define | CBGCHECK FALSE |
#define | CBGUNLD TRUE |
#define | CIDPAR "STRZ-VXW" |
#define | CPARNA "bootHost:/ex_home/ex_param/mctpar.vxw" |
#define | CDFNAM "data:/spectrum.mct" |
#define | CHLPNA "bootHost:/ex_home/ex_help/mct.txt" |
#define | CISERV "servix" |
#define | CIUSER "vme-info" |
#define | CIFILE "mct/mct.info" |
#define | ffPARFILE parfile |
#define | ffPARMTR parfile.parmtr |
#define | ffROUTPAR parfile.routpar |
#define | ffDACLIBPAR parfile.daclibpar |
#define | ffEXLIBPAR parfile.exlibpar |
#define | HEADER0 parfile.header0 |
#define | ccCOMMON common |
#define | ccPARMTR common.parmtr |
#define | ccDACLIBCOM common.daclibcom |
#define | ccEXLIBCOM common.exlibcom |
#define | IDPAR ffPARMTR.idpar |
#define | PIDPRG ffPARMTR.idprg |
#define | PVERSION ffPARMTR.version |
#define | DFLTPAR ffPARMTR.dflts |
#define | PEXPMNT ffPARMTR.pexpmnt |
#define | SP0NAM ffPARMTR.sp0nam |
#define | ZZZZZZ ffPARMTR.zzzzzz |
#define | DATID ccPARMTR.datid |
#define | LFTID ccPARMTR.lftid |
#define | DRMENU ffROUTPAR.drmenu |
#define | DRTYPE ffROUTPAR.drtype |
#define | DRBASE ffROUTPAR.drbase |
#define | DROFFS ffROUTPAR.droffs |
#define | STOPRT ffROUTPAR.stoprt |
#define | RDSTAT ffROUTPAR.rdstat |
#define | RDSTCL ffROUTPAR.rdstcl |
#define | RDDATA ffROUTPAR.rddata |
#define | RDDACL ffROUTPAR.rddacl |
#define | RDIDNT ffROUTPAR.rdidnt |
#define | CRMENU ffROUTPAR.crmenu |
#define | CRMENU2 ffROUTPAR.crmenu2 |
#define | CRTYPE ffROUTPAR.crtype |
#define | CRBASE ffROUTPAR.crbase |
#define | CROFFS ffROUTPAR.croffs |
#define | CRCTRL ffROUTPAR.crctrl |
#define | CRSTAT ffROUTPAR.crstat |
#define | CRADDR ffROUTPAR.craddr |
#define | CRDATA ffROUTPAR.crdata |
#define | CRINTR ffROUTPAR.crintr |
#define | CRIDNT ffROUTPAR.cridnt |
#define | CRPRIO ffROUTPAR.crprio |
#define | CHDLEN "1" |
#define | CEXPMNT "??????" |
#define | CSPTYPE "MCA2" |
#define | CBYTES "4" |
#define | CLTXT " 80" |
#define | CDFTXT "MCT Matrix --- Strahlenzentrum Universitaet Giessen" |
#define | INITSPCHDR |
#define | SPSTAT XSPHDR->hdata.spcdat.status |
#define | RLTCNT XSPHDR->hdata.spcdat.rltcnt |
#define | LFTCNT XSPHDR->hdata.spcdat.lftcnt |
#define | DATCNT XSPHDR->hdata.spcdat.datcnt |
#define | OUTCNT XSPHDR->hdata.spcdat.outcnt |
#define | REJCNT XSPHDR->hdata.spcdat.rejcnt |
#define | FULCNT XSPHDR->hdata.spcdat.fulcnt |
#define | ERRCNT XSPHDR->hdata.spcdat.errcnt |
#define | SPOFFS XSPHDR->hdata.spcdat.spoffs |
#define | CMPRSS XSPHDR->hdata.spcdat.cmprss |
#define | HDATID XSPHDR->hdata.spcdat.hdatid |
#define | RUNTIM XSPHDR->hdata.spcdat.runtim |
#define | RUNROW XSPHDR->hdata.spcdat.runrow |
#define | USELFT XSPHDR->hdata.spcdat.uselft |
#define | MAXSPECS 1 |
#define | MAXHTYPS 1 |
#define | USHMAX 4 |
#define | HDSCR_MCT "208i1 1i2 8i4 2i2 2i4 1i4" |
#define | INITHTYPES |
#define | INITSPEPNTR |
#define | SHOWHDR |
#define | INPUTPARS1 |
#define | INPUTPARS2 |
#define | INPUTPARS5 |
#define | INPUTXPARS1 |
#define | INPUTXPARS2 |
#define | INPUTXPARS5 |
#define | INITPARS |
#define | DATAVARS |
#define | DATAMACRO |
Enumerations | |
enum | headertypes { MTX_HEADER, MCA_HEADER, MCT_HEADER, MS2_HEADER, MSC_HEADER, PCM_HEADER, MCA_VAX_HEADER, MCA_VXW_HEADER, ALL_VAX_HEADER, ALL_VXW_HEADER, MCA_VAX_HEADER, MCA_VXW_HEADER, ALL_VAX_HEADER, ALL_VXW_HEADER, DRM_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_1_HEADER, ECF_VAX_HEADER, ECF_0_HEADER, ECF_1_HEADER, ECF_1_HEADER, ESI_VAX_HEADER, ESW_VAX_HEADER, ESW_VXW_HEADER, ESS_VAX_HEADER, ESS_VXW_HEADER, ESS_HEADER, ECF_HEADER, ESW_HEADER, MASS_HEADER, ESW_VAX_HEADER, ESW_VXW_HEADER, ESS_VAX_HEADER, ESS_VXW_HEADER } |
modification history -------------------- 15aug08 kHu DOXYGEN comments added 25jun03 kHu CIFILE geaendert 29apr03 kHu *.conf, *.h Files neu geordnet 16apr03 kHu Fit gemacht fuer -Wall GCC-Option 15apr03 kHu Help mit INFO auf Server 04apr03 kHu define CPDATE EMKSTR(SIGNAT) 15jan03 kHu dac10.c: stets File-Name abfragen 14jan03 kHu dac10/25.c: neu: Edit header of spectrum 16aug02 kHu BGARGS um (int)&HEADER0 erweitert 30apr02 kHu Init task -> Master task 28feb02 kHu Parameters for background program 18feb02 kHu Argumente beim Start: PNAME,PTITLE,PARNAM,HLPNAM 28aug01 kHu BGARGS/Z ...,(int)xCntrl,... 08jan01 kHu ERRCNTo, ERRCNTd, ERRCNTf 04oct00 kHu eigener Parameter-File bei BG-Programm (BGPNAM) 13sep00 kHu tReadp() -> tMenu 07sep00 kHu DRMENU, DRTYPE, CRMENU, CRTYPE, CRPRIO neu 29mar00 kHu MSTRSTACK = 6000 20mar00 kHu IHDLEN, IBYTES 23feb00 kHu Header Typen Beschreibung geaendert 19nov99 kHu Zero spectrum if test run 11nov99 kHu New from MCA
#define BASEPRIO 40 |
#define BGARGS |
#define CBGARG1 ",,\"peak_mct.vxw\",,'S'" |
#define CBGCHECK FALSE |
#define CBGFILE "~/ex_home/ex_prog/peakv.o" |
#define CBGOPT VX_FP_TASK |
#define CBGPRIO 100 |
#define CBGSTACK 11000 |
#define CBGSYM "_peak" |
#define CBGTASK "tMctBg" |
#define CBGUNLD TRUE |
#define CBYTES "4" |
#define ccCOMMON common |
#define ccDACLIBCOM common.daclibcom |
#define ccEXLIBCOM common.exlibcom |
#define ccPARMTR common.parmtr |
#define CDFNAM "data:/spectrum.mct" |
#define CDFTXT "MCT Matrix --- Strahlenzentrum Universitaet Giessen" |
#define CEXPMNT "??????" |
#define CHDLEN "1" |
#define CHLPNA "bootHost:/ex_home/ex_help/mct.txt" |
#define CIDPAR "STRZ-VXW" |
#define CIDPRG "MCT " |
#define CIFILE "mct/mct.info" |
#define CISERV "servix" |
#define CIUSER "vme-info" |
#define CLKRATE sysClkRateGet() |
#define CLTXT " 80" |
#define CMPRSS XSPHDR->hdata.spcdat.cmprss |
#define CPARNA "bootHost:/ex_home/ex_param/mctpar.vxw" |
#define CPDATE "(15Jan03/Hu)" |
#define CPNAME "MCT" |
#define CPTITL "Multi Channel Analyser Time Matrix" |
#define CRADDR ffROUTPAR.craddr |
#define CRBASE ffROUTPAR.crbase |
#define CRCTRL ffROUTPAR.crctrl |
#define CRDATA ffROUTPAR.crdata |
#define CRIDNT ffROUTPAR.cridnt |
#define CRINTR ffROUTPAR.crintr |
#define CRMENU ffROUTPAR.crmenu |
#define CRMENU2 ffROUTPAR.crmenu2 |
#define CROFFS ffROUTPAR.croffs |
#define CRPRIO ffROUTPAR.crprio |
#define CRSTAT ffROUTPAR.crstat |
#define CRTYPE ffROUTPAR.crtype |
#define CSPTYPE "MCA2" |
#define CTRLECF ".ecf" |
#define CTRLOPT 0 |
#define CTRLPAUSE 1 |
#define CTRLPRIO (BASEPRIO+2) |
#define CTRLSTACK 5000 |
#define CTRLTASK "tMctCtrl" |
#define CVERSION "07sep00" |
#define DATAMACRO |
Value:
/* Check if we finished */ \ if((!USELFT && (RLTCNT >= (RUNROW * IROWS))) \ || (USELFT && (LFTCNT >= (RUNROW * IROWS))) \ ) { /* We finished */ \ datactrl = STOP; /* Stop data input */ \ STATUS |= 0x0020; /* Autonomous stop */ \ Termnl(7, 3, "\aExperiment finished\a"); \ return; /* Stop task */ \ } \ /* Test data ID */ \ if((nstat & 0x003f) == DATID) { /* Data ID OK*/ \ /* Compute data */ \ ndata = (ndata >> CMPRSS) - SPOFFS; \ if((ndata >= 0) && (ndata < ICOLS)) { \ if(USELFT) { /* Use lifetime for t-axis */ \ ndata += ICOLS *(LFTCNT/RUNROW); \ } else { /* Use realtime for t-axis */ \ ndata += ICOLS *(RLTCNT/RUNROW); \ } \ DATCNT++; /* Count data */ \ /* Increment channel in spectrum */ \ (*(SPEDATA+ndata))++; \ } else { \ OUTCNT++; /* Count data out of range */ \ } \ } else if((nstat & 0x003f) == LFTID) { /* Lifetime */ \ LFTCNT++; /* Count lifetime */ \ } else { \ REJCNT++; /* Count rejected data */ \ }
#define DATAOPT VX_FP_TASK |
#define DATAPAUSE 1 |
#define DATAPRIO (BASEPRIO+2) |
#define DATASTACK 5000 |
#define DATATASK "tMctData" |
#define DATATIME 9 |
#define DATAVARS |
#define DATCNT XSPHDR->hdata.spcdat.datcnt |
#define DATID ccPARMTR.datid |
#define DFLTPAR ffPARMTR.dflts |
#define DRBASE ffROUTPAR.drbase |
#define DRMENU ffROUTPAR.drmenu |
#define DROFFS ffROUTPAR.droffs |
#define DRTYPE ffROUTPAR.drtype |
#define ERRCNT XSPHDR->hdata.spcdat.errcnt |
#define ffDACLIBPAR parfile.daclibpar |
#define ffEXLIBPAR parfile.exlibpar |
#define ffPARFILE parfile |
#define ffPARMTR parfile.parmtr |
#define ffROUTPAR parfile.routpar |
#define FULCNT XSPHDR->hdata.spcdat.fulcnt |
#define HDATID XSPHDR->hdata.spcdat.hdatid |
#define HDSCR_MCT "208i1 1i2 8i4 2i2 2i4 1i4" |
#define HEADER0 parfile.header0 |
#define IDPAR ffPARMTR.idpar |
#define INICHCK VX_FP_TASK |
#define INIOPT VX_FP_TASK |
#define INISTACK 5000 |
#define INITHTYPES |
Value:
/* MCT-type, spectrum 0 */ \ {{TRUE}, /* Type valid for spectrum 0 */ \ CIDHDRvxw, /* Required header ID in IDHDR */ \ "MCT", /* Required program ID in IDPRG */ \ HDSCR_MCT, /* Header descriptor string */ \ MCT_HEADER}
#define INITPARS |
#define INITSPCHDR |
Value:
{0, \ 0,0,0,0,0,0,0,0, \ 0,0, \ 0,0,0}
#define INITSPEPNTR |
#define INPUTPARS1 |
#define INPUTPARS2 |
Value:
{ \ \ short shortpar; \ \ TEXT[lTEXT-1] = '\0'; /* Title of spectrum */ \ IHDLEN = 1; /* Blocks of header */ \ IBYTES = 4; /* Bytes per channel */ \ shortpar = HDATID >> 1; /* ID of data */ \ \ tMenu(NULL, 1, \ "%$-"lTEXTs"s\n\n" \ " Data ident. = 0x%@2.2hx\n", \ TEXT, \ &shortpar, 0, 0x003f \ ); \ \ /* ID of data */ \ DATID = HDATID = shortpar << 1; /* Data ID */ \ LFTID = DATID | 0x21; /* Lifetime ID */ \ }
#define INPUTPARS5 |
#define INPUTXPARS1 |
#define INPUTXPARS2 |
#define INPUTXPARS5 |
#define LFTCNT XSPHDR->hdata.spcdat.lftcnt |
#define LFTID ccPARMTR.lftid |
#define MAXHTYPS 1 |
#define MAXLEN 0x10000 |
#define MAXSPECS 1 |
#define MFILNA 70 |
#define MSTROPT VX_FP_TASK |
#define MSTROPT VX_FP_TASK |
#define MSTRPRIO (BASEPRIO+1) |
#define MSTRSTACK 7000 |
#define MSTRTASK "tMctMstr" |
#define OUTCNT XSPHDR->hdata.spcdat.outcnt |
#define PEXPMNT ffPARMTR.pexpmnt |
#define PIDPRG ffPARMTR.idprg |
#define PVERSION ffPARMTR.version |
#define RDDACL ffROUTPAR.rddacl |
#define RDDATA ffROUTPAR.rddata |
#define RDIDNT ffROUTPAR.rdidnt |
#define RDSTAT ffROUTPAR.rdstat |
#define RDSTCL ffROUTPAR.rdstcl |
#define REJCNT XSPHDR->hdata.spcdat.rejcnt |
#define RLTCNT XSPHDR->hdata.spcdat.rltcnt |
#define RLTOPT 0 |
#define RLTPRIO (BASEPRIO+0) |
#define RLTSTACK 5000 |
#define RLTTASK "tMctRlt" |
#define RUNROW XSPHDR->hdata.spcdat.runrow |
#define RUNTIM XSPHDR->hdata.spcdat.runtim |
#define SAVBGDATA |
#define SHOWHDR |
Value:
printf("Length: %lu * %lu\n", IROWS, ICOLS); \ printf("Offset: %6li\n", SPOFFS); \ printf("Cmprss: %6hu\n", CMPRSS); \ putchar('\n'); \ printf("%10lu Realtime\n", RLTCNT); \ printf("%10lu Lifetime\n", LFTCNT); \ printf("%10lu Processed data\n", DATCNT); \ printf("%10lu Data out of range\n", OUTCNT); \ printf("%10lu Rejected data\n", REJCNT); \ printf("%10lu Fifo overflows\n", FULCNT); \ printf("%10lu Data errors\n", ERRCNT);
#define SP0NAM ffPARMTR.sp0nam |
#define SPOFFS XSPHDR->hdata.spcdat.spoffs |
#define SPSTAT XSPHDR->hdata.spcdat.status |
#define STOPRT ffROUTPAR.stoprt |
#define useDATAROUT |
#define USELFT XSPHDR->hdata.spcdat.uselft |
#define USHMAX 4 |
#define ZZZZZZ ffPARMTR.zzzzzz |
enum headertypes |