int l8590___store(struct descriptor_s *niddsc_ptr, InStoreStruct *setup) { int samples = 0; int status; static DESCRIPTOR_A_BOUNDS(raw,sizeof(unsigned short),DTYPE_WU,0,1,0); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR_WITH_UNITS(counts,&raw,&counts_str); static int latch_nid; static DESCRIPTOR_NID(latch,&latch_nid); static FUNCTION(1) value = {2,DTYPE_FUNCTION,CLASS_R,(unsigned char *)&OpcValue,0,0}; static DESCRIPTOR_SIGNAL_1(signal,&value,&counts,&latch); latch_nid = setup->head_nid + L8590_N_LATCH; pio(setup->name,2,0,&samples); if (samples > 32766) { printf("Got large sample count from L8590: %s --- %d\n",setup->name,samples); samples=32766; } if (samples) { int samps_per_chan = samples/setup->num_active; unsigned short *values = calloc(samples * 2,sizeof(*values)); unsigned short *cdata = values + samples; int chan; int i; int min_idx = 0; int max_idx = samps_per_chan - 1; pio(setup->mem_cts_name,19,0,&zero); pio(setup->mem_cts_name,18,0,&zero); pio(setup->mem_cts_name,25,0,0); pio(setup->mem_cts_name,2,0,&values[0]); stop(setup->mem_cts_name,2,0,samples,values); for (i=0;i<samples;i++) cdata[i/setup->num_active + (i % setup->num_active) * samps_per_chan] = values[i]; for (chan=0;chan<setup->num_active;chan++) { int data_nid = setup->head_nid+L8590_N_INPUT_1+(L8590_N_INPUT_2 - L8590_N_INPUT_1)*chan; int start_nid = data_nid + L8590_N_INPUT_1_STARTIDX - L8590_N_INPUT_1; int end_nid = data_nid + L8590_N_INPUT_1_ENDIDX - L8590_N_INPUT_1; if (TreeIsOn(data_nid) & 1) { status = DevLong(&start_nid,(int *)&raw.bounds[0].l); if (status&1) raw.bounds[0].l = min(max_idx,max(min_idx,raw.bounds[0].l)); else raw.bounds[0].l = min_idx; status = DevLong(&end_nid, (int *)&raw.bounds[0].u); if (status&1) raw.bounds[0].u = min(max_idx,max(min_idx,raw.bounds[0].u)); else raw.bounds[0].u = max_idx; raw.m[0] = raw.bounds[0].u - raw.bounds[0].l + 1; if (raw.m[0] > 0) { raw.pointer = (char *)(cdata + chan * samps_per_chan + raw.bounds[0].l); raw.a0 = raw.pointer - raw.bounds[0].l * sizeof(*cdata); raw.arsize = raw.m[0] * 2; status = TreePutRecord(data_nid,(struct descriptor *)&signal,0); } } } free(values); } return status; }
int mit__clock__get_setup(Dptr niddsc_ptr, Dptr method, DecoderSetup *setup, EventMask *event_mask, Dptr *output) { int status; InGet_setupStruct s; status = mit__clock___get_setup(niddsc_ptr,&s); if (status & 1) { static int output_nid; static DESCRIPTOR_NID(output_dsc,(char *)&output_nid); int invert = 0; int start_low_nid = s.head_nid + MIT__CLOCK_N_START_LOW; float max_period; float period; int pulses; int clock_source; memset(event_mask,0,sizeof(EventMask)); invert = TreeIsOn(start_low_nid); invert = (invert == TreeOFF) || (invert == TreeBOTH_OFF); max_period = 1/s.frequency; for (clock_source = EXT_1MHZ, period = 1E-6; period * 65534 < max_period && clock_source <= EXT_100HZ; clock_source++, period *= 10); setup->output_control = TOGGLE; setup->start_high = invert; setup->count_up = 0; setup->bcd_count = 0; setup->repeat_count = 1; setup->double_load = 1; setup->special_gate = 0; setup->clock_source = clock_source; setup->falling_edge = 0; setup->gating = GATE_NONE; pulses = max_period/period + .4999; setup->load = pulses * s.duty_cycle + .4999; setup->hold = pulses - setup->load; if (setup->load == 0) { setup->load++; setup->hold--; } if (setup->hold == 0) { setup->load--; setup->hold++; } if (invert) { int tmp = setup->load; setup->load = setup->hold; setup->hold = tmp; } output_nid = s.head_nid + MIT__CLOCK_N_EDGES_R; *output = &output_dsc; GenDeviceFree(&s); } return status; }
int l8201___store(struct descriptor *niddsc_ptr, InStoreStruct *setup) { int status; int upload_nid = setup->head_nid + L8201_N_UPLOAD; pio(9,0); pio(2,&buffer[0]); stop(2); pio(11,&zero); pio(26,0); if (TreeIsOn(upload_nid)&1) status = TreePutRecord(upload_nid,(struct descriptor *)&data,0); return status; }
int h911___store(struct descriptor *nid_d_ptr, InStoreStruct *in) { struct _status_reg { unsigned mode:2; unsigned over:1; unsigned full:1; unsigned :20; } status_reg; short mems; short chans; int samples; int status; int i; short *buffer; pio(0,2,(short *)&status_reg) /* read back the status register */ if (! status_reg.full) return DEV$_NOT_TRIGGERED; pio(0,3,&mems); mems++; pio(0,4,&chans); chans++; samples = mems*32768/chans -1; buffer = malloc(samples*sizeof(short)); { static DESCRIPTOR_A(data_dsc, sizeof(short), DTYPE_W, 0, 0); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR_WITH_UNITS(counts, &data_dsc, &counts_str); static int clk_nid; static DESCRIPTOR_NID(clock_dsc,&clk_nid); static DESCRIPTOR_SIGNAL_1(sig, &counts, 0, &clock_dsc); data_dsc.pointer = (char *)buffer; data_dsc.arsize = samples * sizeof(short); clk_nid = in->head_nid+H911_N_EXT_CLOCK; for (i=0,status=1; ((status&1) && (i<chans)); i++) { int nid = in->head_nid+H911_N_CHANNEL_01 + i; if (TreeIsOn(nid)) { short addr = i; pio(17,1,&addr); /* readback mode 1 chan at a time starting with sample 1 of this channel */ stop(0,0,samples,buffer); status = TreePutRecord(nid, (struct descriptor *)&sig,0); } } } free(buffer); return(status); }
int ec727___store(struct descriptor *niddsc_ptr, InStoreStruct *setup) { static DESCRIPTOR(sigdef,"BUILD_SIGNAL(BUILD_WITH_UNITS($,'counts'),*,$[ $ : $ ])"); static DESCRIPTOR_A_BOUNDS(raw,sizeof(int),DTYPE_L,0,1,0); static DESCRIPTOR_LONG(start_d,&raw.bounds[0].l); static DESCRIPTOR_LONG(end_d,&raw.bounds[0].u); static EMPTYXD(signal); static int xfer_in; static DESCRIPTOR_NID(xfer_in_d,&xfer_in); int data[1024][32]; int cdata[1024]; int *dptr = (int *)data; int status; int i; int chan; xfer_in = setup->head_nid + EC727_N_XFER_IN; pio(17,0); for (i=0;i<4;i++,dptr += 8192) stop(0,0,8192,dptr); for (chan=0;((chan < 32) && (status & 1));chan++) { int c_nid = setup->head_nid + EC727_N_INPUT_01 + chan * (EC727_N_INPUT_02 - EC727_N_INPUT_01); int s_nid = c_nid + EC727_N_INPUT_01_STARTIDX - EC727_N_INPUT_01; int e_nid = c_nid + EC727_N_INPUT_01_ENDIDX - EC727_N_INPUT_01; if (TreeIsOn(c_nid) & 1) { status = DevLong(&s_nid,(int *)&raw.bounds[0].l); if (status&1) raw.bounds[0].l = min(1023,max(0,raw.bounds[0].l)); else raw.bounds[0].l = 0; status = DevLong(&e_nid, (int *)&raw.bounds[0].u); if (status&1) raw.bounds[0].u = min(1023,max(0,raw.bounds[0].u)); else raw.bounds[0].u = 1023; raw.m[0] = raw.bounds[0].u - raw.bounds[0].l + 1; if (raw.m[0] > 0) { for (i=0;i<1024;i++) cdata[i] = data[i][chan]; raw.pointer = (char *)(cdata + (raw.bounds[0].l)); raw.a0 = (char *)cdata; raw.arsize = raw.m[0] * 4; TdiCompile(&sigdef,&raw,&xfer_in_d,&start_d,&end_d,&signal MDS_END_ARG); status = TreePutRecord(c_nid,(struct descriptor *)signal.pointer,0); } } } return status; }
int l8206___store(struct descriptor *niddsc_ptr, InStoreStruct *setup) { int status; int savstatus; int upload_nid = setup->head_nid + L8206_N_UPLOAD; pio(19,&zero); if (TreeIsOn(upload_nid)&1) { int numpoints = 0; short *bptr; int pread; pio(8,0); if (CamQ(0) & 1) { numpoints = 65536; } else { pio(0,&numpoints); } pio(25,0); pio(18,&zero); pio(2,&buffer[0]); /* junk word */ for (pread = 0,bptr = buffer; pread < numpoints;) { int num = numpoints - pread; if (num > 32767) num = 32767; stop(2,num,bptr); pread += num; bptr += num; } if (numpoints > 0) { data.arsize = numpoints * sizeof(short); status = TreePutRecord(upload_nid,(struct descriptor *)&data,0); } else status = L8206$_NODATA; } savstatus = status; pio(18,&zero); pio(11,&zero); pio(26,&zero); if (status & 1) status = savstatus; return status; }
int joerger_dac16___init(struct descriptor *nid_dsc, InInitStruct *setup) { int i; static int c_nids[JOERGER_DAC16_K_CONG_NODES]; int status; unsigned int module_id; int range; short int bad_chans = 0; float *outputs; outputs = &setup->output_01; return_on_error(DevNids(nid_dsc,sizeof(c_nids),c_nids)); pio24(1, 15, &module_id); range = module_id & 3; for (i=0; i < 16; i++) { if (TreeIsOn(c_nids[JOERGER_DAC16_N_OUTPUT_01+i])&1) { switch (range) { case 0: if ((outputs[i] >= 0) && (outputs[i] <= 10)) { short int data = outputs[i]/10.0*4096; pio(16, i, &data); } else bad_chans |= 1<<i; break; case 1: if ((outputs[i] >= 0) && (outputs[i] <= 5)) { short int data = outputs[i]/5.0*4096; pio(16, i, &data); } else bad_chans |= 1<<i; break; case 2: if ((outputs[i] >= -10) && (outputs[i] <= 10)) { short int data = (outputs[i]+10)/20.0*4096; pio(16, i, &data); } else bad_chans |= 1<<i; break; case 3: if ((outputs[i] >= -5) && (outputs[i] <= 5)) { short int data = (outputs[i]+5)/10.0*4096; pio(16, i, &data); } else bad_chans |= 1<<i; break; } } } return (bad_chans != 0) ? J_DAC$_OUTRNG : 1; }
int l8206___init(struct descriptor *niddsc_ptr, InInitStruct *setup) { int status; int download_nid = setup->head_nid + L8206_N_DOWNLOAD; pio(9,0); if (TreeIsOn(download_nid) & 1) { data.arsize = sizeof(buffer); return_on_error(TdiData(setup->download,&data MDS_END_ARG),status); stop(16,16384,buffer); stop(16,16384,&buffer[16384]); stop(16,16384,&buffer[32768]); stop(16,16384,&buffer[49152]); } pio(18,&zero); pio(11,&zero); pio(26,&zero); return status; }
int hv1443__get_settings(struct descriptor *niddsc_ptr, struct descriptor *meth, int max_chans, int *settings) { int status = 1; static InGet_settingsStruct setup; if (max_chans != HV1443_K_CHANS) return HV1440$_WRONG_POD_TYPE; status = hv1443___get_settings(niddsc_ptr, &setup); if (status & 1) { int i; for (i=0; i<HV1443_K_CHANS; i++) { int nid = setup.head_nid + HV1443_N_VOLTAGE_01 + i; if (TreeIsOn(nid)&1) { if ((DevLong(&nid, &settings[i])&1)==0) settings[i] = 0; } else settings[i] = 0; } GenDeviceFree(&setup); } return status; }
int joerger_adc___store(int *niddsc, InStoreStruct *setup) { int status; int data_nid = setup->head_nid + JOERGER_ADC_N_DATA; if (TreeIsOn(data_nid)&1) { static short raw[64]; static ARRAY_BOUNDS(short,1) raw_d = {4,DTYPE_W,CLASS_A,raw,0,0,{0,0,1,1,1},1,sizeof(raw),raw-1,32,1,32}; static int vstrap_nid; static DESCRIPTOR_NID(vstrap_d,&vstrap_nid); static EMPTYXD(xd); static DESCRIPTOR(expr,"BUILD_WITH_UNITS($ * $/4095,'VOLTS'"); int bytcnt; vstrap_nid = setup->head_nid + JOERGER_ADC_N_VSTRAP; return_on_error(DevCamChk(CamQstopw(setup->name,0,2,64,&raw,16,0),&one,0),status); bytcnt = CamBytcnt(0); raw_d.arsize = bytcnt; raw_d.m[0] = raw_d.bounds[0].u = bytcnt/2; TdiCompile(expr,&raw_d,&vstrap_d,&xd MDS_END_ARG); status = TreePutRecord(data_nid,(struct descriptor *)&xd,0); } return status; }
/**************************************************************** * TclDoMethod: ****************************************************************/ int TclDoMethod() { int i; int argc; int sts; unsigned char do_it; struct descriptor_xd xdarg[255]; static int nid; static unsigned short boolVal; static struct descriptor_s bool_dsc = {sizeof(boolVal), DTYPE_W, CLASS_S, (char *)&boolVal}; static struct descriptor nid_dsc = {4,DTYPE_NID,CLASS_S,(char *)&nid}; static struct descriptor_xd empty_xd = {0,DTYPE_DSC,CLASS_XD,0,0}; static DYNAMIC_DESCRIPTOR(arg); static DYNAMIC_DESCRIPTOR(if_clause); static DYNAMIC_DESCRIPTOR(method); static DYNAMIC_DESCRIPTOR(object); static void *arglist[256] = {(void *)2,&nid_dsc,&method}; cli_get_value("OBJECT",&object); sts = TreeFindNode(object.dscA_pointer,&nid); if (sts & 1) { do_it = (TreeIsOn(nid) | cli_present("OVERRIDE")) & 1; if (cli_present("IF") & 1) { cli_get_value("IF",&if_clause); sts = TdiExecute(&if_clause,&bool_dsc MDS_END_ARG); if (sts & 1) do_it = do_it && boolVal; else do_it = 0; } if (do_it) { int dometh_stat; DESCRIPTOR_LONG(dometh_stat_d,0); cli_get_value("METHOD",&method); argc = 0; if (cli_present("ARGUMENT") & 1) { while (cli_get_value("ARGUMENT",&arg) & 1) { xdarg[argc] = empty_xd; sts = TdiCompile(&arg,&xdarg[argc] MDS_END_ARG); if (sts & 1) { arglist[argc + 3] = xdarg[argc].dscA_pointer; argc++; } else break; } } if (sts & 1) { #ifdef vms arglist[0] = (void *)(argc + 2); #else dometh_stat_d.dscA_pointer = (char *)&dometh_stat; arglist[argc+3] = &dometh_stat_d; arglist[argc+4] = MdsEND_ARG; arglist[0] = (argc + 4)+(char *)0; #endif sts = (char *)LibCallg(arglist,TreeDoMethod)-(char *)0; if (sts & 1) sts = dometh_stat; } str_free1_dx(&arg); str_free1_dx(&method); for (i = 0; i < argc; i++) MdsFree1Dx(&xdarg[i],NULL); } } str_free1_dx(&object); #ifdef vms if (!(sts & 1)) lib$signal(sts,0); #else if (!(sts & 1)) { char msg[512]; sprintf(msg,"Error executing method - %s",MdsGetMsg(sts)); TclTextOut(msg); } #endif return sts; }
int l8501___store(struct descriptor *niddsc_ptr, InStoreStruct *setup) { static float one_thous = 1.E-3; static DESCRIPTOR_FLOAT(one_thousandth,&one_thous); static int freq1_nid; static DESCRIPTOR_NID(freq1,&freq1_nid); static int freq2_nid; static DESCRIPTOR_NID(freq2,&freq2_nid); static int freq3_nid; static DESCRIPTOR_NID(freq3,&freq3_nid); static int f2_count_nid; static DESCRIPTOR_NID(f2_count,&f2_count_nid); static int f3_count_nid; static DESCRIPTOR_NID(f3_count,&f3_count_nid); static int trigger1_nid; static DESCRIPTOR_NID(trigger1,&trigger1_nid); static int trigger2_nid; static DESCRIPTOR_NID(trigger2,&trigger2_nid); static int trigger3_nid; static DESCRIPTOR_NID(trigger3,&trigger3_nid); static DESCRIPTOR(seconds,"seconds"); static int mode; unsigned short lam; int status; static DESCRIPTOR_FUNCTION_2(dt1,(unsigned char *)&OpcDivide,&one_thousandth,&freq1); static DESCRIPTOR_FUNCTION_2(dt2,(unsigned char *)&OpcDivide,&one_thousandth,&freq2); static DESCRIPTOR_FUNCTION_2(dt3,(unsigned char *)&OpcDivide,&one_thousandth,&freq3); static float past_val = -1.E30; static DESCRIPTOR_FLOAT(past,&past_val); static float future_val = 1.E30; static DESCRIPTOR_FLOAT(future,&future_val); int clock_out_nid = setup->head_nid + L8501_N_CLOCK_OUT; int stop_out_nid = setup->head_nid + L8501_N_STOP_OUT; freq1_nid = setup->head_nid + L8501_N_FREQ1; freq2_nid = setup->head_nid + L8501_N_FREQ2; freq3_nid = setup->head_nid + L8501_N_FREQ3; f2_count_nid = setup->head_nid + L8501_N_F2_COUNT; f3_count_nid = setup->head_nid + L8501_N_F3_COUNT; trigger1_nid = setup->head_nid + L8501_N_TRIGGER1; trigger2_nid = setup->head_nid + L8501_N_TRIGGER2; trigger3_nid = setup->head_nid + L8501_N_TRIGGER3; /********************************************* Read in the clock mode record. **********************************************/ switch (setup->mode_convert) { /************************************** Mode 1 is Counted frequency shifts. clock runs at F1 until Trigger 1 then runs at F2 for a preset number of pulses and then switches to F3 for a preset number of pulses and then generates a stop trigger. ****************************************/ case 0: if (TreeIsOn(clock_out_nid) & 1) { static DESCRIPTOR_FUNCTION_2(mult,(unsigned char *)&OpcMultiply,&dt2,&f2_count); static DESCRIPTOR_FUNCTION_2(fswitch,(unsigned char *)&OpcAdd,&mult,&trigger1); static FUNCTION(3) r_start = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&past, (struct descriptor *)&trigger1, (struct descriptor *)&fswitch}; static FUNCTION(3) r_end = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&trigger1, (struct descriptor *)&fswitch, (struct descriptor *)&future}; static FUNCTION(3) r_delta = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&dt1, (struct descriptor *)&dt2, (struct descriptor *)&dt3}; static DESCRIPTOR_RANGE(range,&r_start,&r_end,&r_delta); static DESCRIPTOR_WITH_UNITS(clock,&range,&seconds); return_on_error(TreePutRecord(clock_out_nid, (struct descriptor *)&clock,0),status); /****************************** If stop trigger is wanted then declare an expression for the time of the stop trigger and write it out. ******************************/ if (status & 1 && TreeIsOn(stop_out_nid) & 1) { static DESCRIPTOR_FUNCTION_2(trig_mult_exp, (unsigned char *)&OpcMultiply, &dt3, &f3_count); static DESCRIPTOR_FUNCTION_2(trig_add_exp, (unsigned char *)&OpcAdd, &fswitch, &trig_mult_exp); static DESCRIPTOR_WITH_UNITS(stop, &trig_add_exp, &seconds); return_on_error(TreePutRecord(stop_out_nid, (struct descriptor *)&stop,0),status); } } break; /************************************ Mode 2 is triggered frequency shift mode. clock runs at F1 until Trigger 1 then runs at F2 until Trigger 2 and then switches to F3. *************************************/ case 1: if (TreeIsOn(clock_out_nid) & 1) { /********************************** Read the lam register. If there were overflows then store information based on the triggers. ************************************/ pio(2,0,&lam); if (lam & 6) { static FUNCTION(3) r_start = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&past, (struct descriptor *)&trigger1, (struct descriptor *)&trigger2}; static FUNCTION(3) r_end = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&trigger1,(struct descriptor *)&trigger2, (struct descriptor *)&future}; static FUNCTION(3) r_delta = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&dt1, (struct descriptor *)&dt2, (struct descriptor *)&dt3}; static DESCRIPTOR_RANGE(range, &r_start, &r_end, &r_delta); static DESCRIPTOR_WITH_UNITS(clock,&range,&seconds); return_on_error(TreePutRecord(clock_out_nid, (struct descriptor *)&clock,0),status); /*************************** write out the stop trigger record. ****************************/ if (TreeIsOn(stop_out_nid) & 1) { DESCRIPTOR_WITH_UNITS(stop, &trigger3, &seconds); return_on_error(TreePutRecord(stop_out_nid, (struct descriptor *)&stop,0),status); } } else /**************************** otherwise store information based on the counters. *****************************/ { static short f2_count_act; static struct descriptor f2_count_actual = {sizeof(f2_count_act),DTYPE_W,CLASS_S,(char *)&f2_count_act}; static DESCRIPTOR_FUNCTION_2(mult,(unsigned char *)&OpcMultiply,&dt2,&f2_count_act); static DESCRIPTOR_FUNCTION_2(fswitch,(unsigned char *)&OpcAdd,&mult,&trigger1); static FUNCTION(3) r_start = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&past, (struct descriptor *)&trigger1, (struct descriptor *)&fswitch}; static FUNCTION(3) r_end = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&trigger1, (struct descriptor *)&fswitch, (struct descriptor *)&future}; static FUNCTION(3) r_delta = {sizeof(unsigned short), DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcVector, 3, __fill_name__ (struct descriptor *)&dt1, (struct descriptor *)&dt2, (struct descriptor *)&dt3}; static DESCRIPTOR_RANGE(range, (struct descriptor *)&r_start, (struct descriptor *)&r_end, (struct descriptor *)&r_delta); static DESCRIPTOR_WITH_UNITS(clock, &range, &seconds); pio(0,0,&f2_count_act); return_on_error(TreePutRecord(clock_out_nid, (struct descriptor *)&clock,0),status); /****************************** if stop trigger is wanted then declare an expression for the time of the stop trigger and write it out. ******************************/ if (TreeIsOn(stop_out_nid) & 1) { static short f3_count_act; static struct descriptor f3_count_actual = {sizeof(f3_count_act),DTYPE_W,CLASS_S,(char *)&f3_count_act}; static DESCRIPTOR_FUNCTION_2(mult,(unsigned char *)&OpcMultiply,&dt3,&f3_count_act); static DESCRIPTOR_FUNCTION_2(fswitch2,(unsigned char *)&OpcAdd,&mult,&fswitch); static DESCRIPTOR_WITH_UNITS(stop, &fswitch2, &seconds); pio(1,0,&f3_count); return_on_error(TreePutRecord(stop_out_nid, (struct descriptor *)&stop,0),status); } } }
int l6810___store(struct descriptor *niddsc_ptr, InStoreStruct *in_struct) { #undef return_on_error #define return_on_error(f) if (!((status = f) & 1)) return status; #undef pio #define pio(f,a,d,q) return_on_error(DevCamChk(CamPiow(in_struct->name, a, f, d, 16, 0), &one, &q)) #define CHAN_NID(chan, field) c_nids[L6810_N_CHANNELS+chan*L6810_K_NODES_PER_CHANNEL+field] static int one = 1; static int c_nids[L6810_K_CONG_NODES]; static DESCRIPTOR_A_BOUNDS(raw,sizeof(short),DTYPE_W,0,1,0); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR_WITH_UNITS(counts,&raw,&counts_str); static DESCRIPTOR_LONG(one_d,&one); static DESCRIPTOR_LONG(start_d,&raw.bounds[0].l); static DESCRIPTOR_FUNCTION_2(start_expr_d,(unsigned char *)&OpcAdd,&start_d,&one_d); static DESCRIPTOR_LONG(end_d,&raw.bounds[0].u); static DESCRIPTOR_FUNCTION_2(end_expr_d,(unsigned char *)&OpcAdd,&end_d,&one_d); static DESCRIPTOR_NID(trigger_d,&c_nids[L6810_N_STOP_TRIG]); static float frequency = 4E-6; static DESCRIPTOR_FLOAT(frequency_d,&frequency); static DESCRIPTOR_RANGE(int_clock_d,0,0,&frequency_d); static DESCRIPTOR_NID(ext_clock_d,&c_nids[L6810_N_EXT_CLOCK_IN]); static float coeffs[] = {100E-6, 250E-6, 500E-6, 1E-3, 2.5E-3, 6.26E-3, 12.5E-3, 25E-3}; static float coefficient; static DESCRIPTOR_FLOAT(coef_d,&coefficient); static short offset = -2048; static struct descriptor_s offset_d = {2,DTYPE_W,CLASS_S,(char *)&offset}; static DESCRIPTOR_FUNCTION_1(dvalue,(unsigned char *)&OpcValue,0); static DESCRIPTOR_FUNCTION_2(add_exp,(unsigned char *)&OpcAdd,&offset_d,&dvalue); static DESCRIPTOR_FUNCTION_2(mult_exp,(unsigned char *)&OpcMultiply,&coef_d,&add_exp); static DESCRIPTOR(volts_str,"volts"); static DESCRIPTOR_WITH_UNITS(volts,&mult_exp,&volts_str); static DESCRIPTOR_WINDOW(window,&start_expr_d,&end_expr_d,&trigger_d); static DESCRIPTOR_DIMENSION(dimension,&window,0); static DESCRIPTOR(time_str,"seconds"); static DESCRIPTOR_WITH_UNITS(time,&dimension,&time_str); static DESCRIPTOR_SIGNAL_1(signal,&volts,&counts,&time); short *channel_data; int status; int chan; int samples_to_read; int i; int min_idx; int max_idx; int post_trig; int samples_per_channel; struct setup setup; return_on_error(DevNids(niddsc_ptr,sizeof(c_nids),c_nids)); dvalue.ndesc = 0; return_on_error(DevCamChk(CamPiow(in_struct->name, 0, 8, 0, 16, 0), &one, 0)); if ((CamXandQ(0)&1) == 0) return DEV$_NOT_TRIGGERED; pio(18, 0, &zero, one); /* prepare to read setup information */ stop(2,1,33,&setup); /* read the setup information */ if (setup.f1_freq == 0) { dimension.axis = (struct descriptor *)(&ext_clock_d); } else { static float freqs[] = {0.0, 1/20., 1/50., 1/100., 1/200., 1/500., 1/1000., 1/2000., 1/5000., 1/10000., 1/20000., 1/50000., 1/100000., 1/200000., 1/500000., 1/1000000., 1/2000000., 1/5000000.}; dimension.axis = (struct descriptor *)(&int_clock_d); frequency = freqs[setup.f1_freq]; } samples_per_channel = (1<<setup.samps_per_seg)*1024; post_trig = samples_per_channel; min_idx = 0; max_idx = post_trig - 2; channel_data = (short *)malloc(samples_per_channel*sizeof(short)); #undef return_on_error #define return_on_error(f) if (!((status = f) & 1)) {free(channel_data); return status;} for (chan=0;((chan < 4) && (status & 1));chan++) { if (TreeIsOn(CHAN_NID(chan,L6810_N_CHAN_HEAD)) & 1) { status = DevLong(&CHAN_NID(chan,L6810_N_CHAN_STARTIDX),(int *)&raw.bounds[0].l); if (status&1) raw.bounds[0].l = min(max_idx,max(min_idx,raw.bounds[0].l)); else raw.bounds[0].l = min_idx; status = DevLong(&CHAN_NID(chan,L6810_N_CHAN_ENDIDX), (int *)&raw.bounds[0].u); if (status&1) raw.bounds[0].u = min(max_idx,max(raw.bounds[0].l,raw.bounds[0].u)); else raw.bounds[0].u = max_idx; raw.m[0] = raw.bounds[0].u - raw.bounds[0].l + 1; if (raw.m[0] > 0) { samples_to_read = raw.bounds[0].u - min_idx + 1; status = ReadChannel(in_struct->name,chan,&samples_to_read,channel_data); if (status & 1) { coefficient = coeffs[setup.sensitivity[chan]]; raw.pointer = (char *)(channel_data + (raw.bounds[0].l - min_idx)); raw.a0 = raw.pointer - (raw.bounds[0].l * sizeof(channel_data[0])); raw.arsize = raw.m[0] * 2; status = TreePutRecord(CHAN_NID(chan,L6810_N_CHAN_HEAD),(struct descriptor *)&signal,0); } } } } free(channel_data); return status; }
static int Store(struct descriptor *niddsc_ptr, InStoreStruct *setup, int sort) { static struct descriptor rpt_name = {0,DTYPE_T,CLASS_D,0}; static struct descriptor name = {0,DTYPE_T,CLASS_D,0}; static struct descriptor names[10] = {{0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}, {0,DTYPE_T,CLASS_D,0}}; static struct descriptor_xd limits[10] = {{0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}, {0,DTYPE_DSC,CLASS_XD,0,0}}; TIME *tims[10]; float *vals[10]; int nums[10]; int sizes[10]; int delete_file_nid = setup->head_nid + PARAGON_HIST_N_DELETE_FILE; int i; int status; char line[256]; FILE *file; int isftp; status = PARAGON_FTP_COPY(setup->report_name,&rpt_name,&isftp); if (!(status & 1)) { return(status); } for (i=0; i<10; i++) { int name_nid = setup->head_nid + PARAGON_HIST_N_NAME_0 + i; nums[i] = 0; tims[i] = NULL; vals[i] = NULL; status = DevText(&name_nid, &names[i]); if (status) { static int limit_nid; static DESCRIPTOR_NID(nid_dsc,&limit_nid); limit_nid = setup->head_nid + PARAGON_HIST_N_LIMIT_0 + i; status = TdiData(&nid_dsc, &limits[i] MDS_END_ARG); if (!(status&1)) MdsFree1Dx(&limits[i],0); nums[i] = 0; sizes[i] = INITIAL_SIZE; tims[i] = (TIME *)malloc(sizeof(TIME)*INITIAL_SIZE); vals[i] = (float *)malloc(sizeof(float)*INITIAL_SIZE); } } file = fopen(rpt_name.pointer,"r"); if (file != NULL) { while(fgets(line,255,file)) { TIME time; float value; if (strlen(line) >= 70) { if (ParseHistorian(line, &name, &value, &time) ) { for (i=0; i<10;) { if (StrCompare(&name, &names[i])==0) break; else i++; } if (i < 10) { if (nums[i] >= sizes[i]) { TIME *t_time = tims[i]; float *t_val = vals[i]; int j; tims[i] = (TIME *)malloc(sizeof(TIME)*sizes[i]*2); vals[i] = (float *)malloc(sizeof(float)*sizes[i]*2); for (j=0; j<sizes[i]; j++) { (tims[i])[j] = t_time[j]; (vals[i])[j] = t_val[j]; } sizes[i]*=2; free(t_time); free(t_val); } (tims[i])[nums[i]] = time; (vals[i])[nums[i]] = value; nums[i]++; } } } } fclose(file); for (i=0; i<10; i++) { if (nums[i]) { int value_nid = setup->head_nid + PARAGON_HIST_N_VALUE_0 + i; if (TreeIsOn(value_nid)&1) StoreSignal(value_nid, nums[i], vals[i], tims[i], &limits[i], sort); } if (vals[i]) free(vals[i]); if (tims[i]) free(tims[i]); } PARAGON_FTP_DELETE(setup->report_name,TreeIsOn(delete_file_nid)); } return 1; }
int l8210___store(struct descriptor *niddsc_ptr, InStoreStruct *setup) { static DESCRIPTOR_A_BOUNDS(raw,sizeof(short),DTYPE_W,0,1,0); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR_WITH_UNITS(counts,&raw,&counts_str); static DESCRIPTOR_LONG(start_d,&raw.bounds[0].l); static DESCRIPTOR_LONG(end_d,&raw.bounds[0].u); static int stop_trig_nid; static DESCRIPTOR_NID(trigger_d,&stop_trig_nid); static float frequency; static DESCRIPTOR_FLOAT(frequency_d,&frequency); static DESCRIPTOR_RANGE(int_clock_d,0,0,&frequency_d); static int ext_clock_in_nid; static DESCRIPTOR_NID(ext_clock_d,&ext_clock_in_nid); static float coefficient = 10.0/1024; static DESCRIPTOR_FLOAT(coef_d,&coefficient); static short offset = -512; static struct descriptor offset_d = {2,DTYPE_W,CLASS_S,(char *)&offset}; #define DESCRIPTOR_VALUE(name)\ struct descriptor_function_0 { RECORD_HEAD } name =\ {2, DTYPE_FUNCTION, CLASS_R, (unsigned char *)&OpcValue, 0} static DESCRIPTOR_VALUE(value); static DESCRIPTOR_FUNCTION_2(add_exp,(unsigned char *)&OpcAdd,&offset_d,&value); static DESCRIPTOR_FUNCTION_2(mult_exp,(unsigned char *)&OpcMultiply,&coef_d,&add_exp); static DESCRIPTOR(volts_str,"volts"); static DESCRIPTOR_WITH_UNITS(volts,&mult_exp,&volts_str); static DESCRIPTOR_WINDOW(window,&start_d,&end_d,&trigger_d); static int clock_out_nid; static DESCRIPTOR_NID(clock_out,&clock_out_nid); static DESCRIPTOR_DIMENSION(dimension,&window,&clock_out); static DESCRIPTOR(time_str,"seconds"); static DESCRIPTOR_WITH_UNITS(time,&dimension,&time_str); static DESCRIPTOR_SIGNAL_1(signal,&volts,&counts,&time); int samples_per_channel; int min_idx; int max_idx; int num_chans; int vm_size; short *channel_data_ptr; int status; int chan; int samples_to_read; int i; float wait_time; stop_trig_nid = setup->head_nid + L8210_N_STOP_TRIG; ext_clock_in_nid = setup->head_nid + L8210_N_EXT_CLOCK_IN; clock_out_nid = setup->head_nid + L8210_N_CLOCK_OUT; pio(26,0,0); wait_time = setup->memories*30E-3; DevWait(wait_time); pio(8,0,0); if ((CamXandQ(0)&1) == 0) return DEV$_NOT_TRIGGERED; return_on_error(ReadSetup(setup, &setup->memories, setup->header, &samples_per_channel, &min_idx, &max_idx, &frequency, &num_chans), status); channel_data_ptr = malloc(samples_per_channel * sizeof(short)); status = TreePutRecord(clock_out_nid, (struct descriptor *)(frequency == 0.0) ? &ext_clock_d : (struct descriptor *)(&int_clock_d),0); for (chan=0;((chan<num_chans) && (status & 1));chan++) { int channel_nid = setup->head_nid + L8210_N_INPUT_1 + chan * (L8210_N_INPUT_2 - L8210_N_INPUT_1); int usetimes_nid = channel_nid + L8210_N_INPUT_1_USETIMES - L8210_N_INPUT_1; int startidx_nid = channel_nid + L8210_N_INPUT_1_STARTIDX - L8210_N_INPUT_1; int endidx_nid = channel_nid + L8210_N_INPUT_1_ENDIDX - L8210_N_INPUT_1; if (TreeIsOn(channel_nid) & 1) { int use_times = 0; DevLong(&usetimes_nid,&use_times); if(use_times) { float start_time, end_time; raw.bounds[0].l = min_idx; raw.bounds[0].u = max_idx; status = DevFloat(&startidx_nid,&start_time); if (~status&1) start_time = -1; status = DevFloat(&endidx_nid,&end_time); if (~status&1) end_time = -1; status = DevXToI(start_time, end_time, &dimension, min_idx, max_idx, &raw.bounds[0].l, &raw.bounds[0].u); if (~status&1) { raw.bounds[0].l = min_idx; raw.bounds[0].u = max_idx; } } else { status = DevLong(&startidx_nid,(int *)&raw.bounds[0].l); if (status&1) raw.bounds[0].l = min(max_idx,max(min_idx,raw.bounds[0].l)); else raw.bounds[0].l = min_idx; status = DevLong(&endidx_nid, (int *)&raw.bounds[0].u); if (status&1) raw.bounds[0].u = min(max_idx,max(min_idx,raw.bounds[0].u)); else raw.bounds[0].u = max_idx; } raw.m[0] = raw.bounds[0].u - raw.bounds[0].l + 1; if (raw.m[0] > 0) { samples_to_read = raw.bounds[0].u - min_idx + 1; status = ReadChannel(setup,&samples_per_channel,chan,&samples_to_read,channel_data_ptr); if (status & 1) { raw.pointer = (char *)(channel_data_ptr + (raw.bounds[0].l - min_idx)); raw.a0 = raw.pointer - raw.bounds[0].l * sizeof(*channel_data_ptr); raw.arsize = raw.m[0] * 2; status = TreePutRecord(channel_nid,(struct descriptor *)&signal,0); } } } } free(channel_data_ptr); return status; }
int t4012___store(int *niddsc, InStoreStruct *setup) { int channels; int pts; int memPerChannel; int channels_read; int dig; int dig_nid; static int memsize=0; static unsigned short *mem; int idxmin; int idxmax; char digname[512]; char *nodename; int chan_nid = 0; struct _t4012_status { unsigned sampling : 1; unsigned calibrate : 1; unsigned master_armed : 1; unsigned master_enabled : 1; unsigned stop_received : 1; unsigned triggered : 1; unsigned t4012p : 1; unsigned cal_mem : 1; unsigned : 24; } dig_status; int status; static short offset; static float coefficient; static float f[2]; static DESCRIPTOR_A_BOUNDS(raw,sizeof(short),DTYPE_W,0,1,0); static int *lbound = &raw.bounds[0].l; static int *ubound = &raw.bounds[0].u; static unsigned int *acoef = &raw.m[0]; static DESCRIPTOR_A(f2_d,sizeof(f[0]),DTYPE_NATIVE_FLOAT,f,8); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR(volts_str,"volts"); static DESCRIPTOR(seconds_str,"seconds"); static DESCRIPTOR_LONG(start_d,&raw.bounds[0].l); static DESCRIPTOR_LONG(end_d,&raw.bounds[0].u); static int trigger_nid; static DESCRIPTOR_NID(stop_d,&trigger_nid); static int switch_trig_nid; static DESCRIPTOR_NID(swi_d,&switch_trig_nid); static int extern_clock_nid; static DESCRIPTOR_NID(ext_clock_d,&extern_clock_nid); static struct descriptor offset_d = {2,DTYPE_W, CLASS_S, (char *)&offset}; static DESCRIPTOR_FLOAT(coef_d,&coefficient); static DESCRIPTOR_FLOAT(f1_d,f); static int _roprand = 32768; static DESCRIPTOR_FLOAT(roprand,&_roprand); static FUNCTION(1) value = {2,DTYPE_FUNCTION,CLASS_R,(unsigned char *)&OpcValue,0,0}; static DESCRIPTOR_FUNCTION_2(subtract_exp,(unsigned char *)&OpcSubtract,&value,&offset_d); static DESCRIPTOR_FUNCTION_2(mult_exp,(unsigned char *)&OpcMultiply,&coef_d,&subtract_exp); static DESCRIPTOR_WITH_UNITS(counts,&raw,&counts_str); static DESCRIPTOR_WITH_UNITS(volts,&mult_exp,&volts_str); static DESCRIPTOR_FUNCTION_2(rangesub,(unsigned char *)&OpcSubtract,0,&f1_d); static DESCRIPTOR_WINDOW(window,&start_d,&end_d,&stop_d); static struct descriptor *begin_ptrs[] = {&roprand,0}; static struct descriptor *end_ptrs[] = {(struct descriptor *)&rangesub,&roprand}; static DESCRIPTOR_APD(begin_apd,0,begin_ptrs,2); static DESCRIPTOR_APD(end_apd,0,end_ptrs,2); static DESCRIPTOR_RANGE(int_clock1_d,0,0,&f1_d); static DESCRIPTOR_RANGE(int_clock2_d,&begin_apd,&end_apd,&f2_d); static int clock_out_nid; static DESCRIPTOR_NID(clock_out_d,&clock_out_nid); static DESCRIPTOR_DIMENSION(dimension,&window,&clock_out_d); static DESCRIPTOR_WITH_UNITS(seconds,&dimension,&seconds_str); static DESCRIPTOR_SIGNAL_1(signal,&volts,&counts,&seconds); void *ctx = 0; max_time=-1; trigger_nid = setup->head_nid + T4012_N_TRIGGER; switch_trig_nid = setup->head_nid + T4012_N_SWITCH_TRIG; extern_clock_nid = setup->head_nid + T4012_N_EXTERN_CLOCK; clock_out_nid = setup->head_nid + T4012_N_CLOCK_OUT; pio(8,0,0); status = Input(setup,14); dig_status = *(struct _t4012_status *)&status; if (dig_status.sampling) { return DEV$_NOT_TRIGGERED; } channels = Input(setup,1); pts = Input(setup,2); memPerChannel = Input(setup,3) * 1024; if (Input(setup,7) == 1) TreePutRecord(clock_out_nid,(struct descriptor *)&ext_clock_d,0); else { int shift = Input(setup,6); f[0] = freqs[Input(setup,4)]; if (shift) { f[1] = freqs[Input(setup,5)]; rangesub.arguments[0] = begin_ptrs[1] = (shift == 1) ? &swi_d : &stop_d; TreePutRecord(clock_out_nid,(struct descriptor *)&int_clock2_d,0); } else TreePutRecord(clock_out_nid,(struct descriptor *)&int_clock1_d,0); } idxmin = (pts - 8.)/8. * memPerChannel; idxmax = idxmin + memPerChannel - 1; if (memsize < (memPerChannel * 2)) { if (memsize) free(mem); memsize = memPerChannel * 2; mem = malloc(memsize); } return_on_error(AccessTraq(setup,0x8001,16,0,0),status); /* Remote control */ nodename = TreeGetPath(setup->head_nid); strcpy(digname,nodename); TreeFree(nodename); strcat(digname,":T28%%_%%"); status = TreeFindNodeWild(digname,&dig_nid,&ctx,1 << TreeUSAGE_DEVICE); for (dig=1,channels_read=0;(channels_read < channels) && (status & 1);dig++) { static int dig_nids[1+8*T28XX_K_NODES_PER_INP]; static int nidlen; static NCI_ITM itmlst[] = {{sizeof(dig_nids),NciCONGLOMERATE_NIDS,(unsigned char *)&dig_nids,&nidlen}, {0,NciEND_OF_LIST,0,0}}; if (status & 1) { int i; int digchannels; status = TreeGetNci(dig_nid,itmlst); digchannels = (nidlen/sizeof(dig_nid)-1)/T28XX_K_NODES_PER_INP; for (i=0;i<digchannels && (status & 1) && channels_read < channels;i++) { if (TreeIsOn(CNID(i,HEAD))&1) { int channel_select = 0x0A000 | (channels_read + 1); AccessTraq(setup,channel_select,24,0,0); if (chan_nid && (*acoef > 1)) { return_on_error(TreePutRecord(chan_nid,(struct descriptor *)&signal,0),status); chan_nid = 0; } else DevWait((float).005); chan_nid = CNID(i,HEAD); *lbound = (DevLong(&CNID(i,STARTIDX),(int *)lbound) & 1) ? min(idxmax,max(idxmin,*lbound)) : idxmin; *ubound = (DevLong(&CNID(i,ENDIDX), (int *)ubound) & 1) ? min(idxmax,max(idxmin,*ubound)) : idxmax; *acoef = *ubound - *lbound + 1; if (*acoef > 0) { int points_read = 0; int first_sample_offset = *lbound-idxmin; int chunk = first_sample_offset/1024; int chunk_offset = first_sample_offset % 1024; float calib[]={0,0}; status = ReadChannel(setup, chunk,*acoef+chunk_offset,mem,&points_read,&CNID(i,CALIBRATION),calib); if (status & 1) { offset = calib[0]; if (calib[0] == calib[1]) coefficient = (offset > 1000) ? 10./4096 : 5./4096.; else coefficient = calib[1]; raw.pointer = (char *)(mem + chunk_offset); raw.a0 = raw.pointer - *lbound * sizeof(*mem); *ubound = (points_read - chunk_offset) + *lbound - 1; *acoef = (points_read - chunk_offset); raw.arsize = *acoef * 2; } } } channels_read++; } } if (channels_read < channels && (status & 1)) status = TreeFindNodeWild(digname,&dig_nid,&ctx,1 << TreeUSAGE_DEVICE); } TreeFindNodeEnd(&ctx); if (chan_nid && (*acoef > 1)) return_on_error(TreePutRecord(chan_nid,(struct descriptor *)&signal,0),status); return status; }
int l8590_mem___store(struct descriptor_s *niddsc_ptr, InStoreStruct *setup) { int total_chans = 0; int total_samps = 0; void *ctx; int sclrs; int sclr_nids[L8590_MEM_K_MAX_SCALERS]; int active[L8590_MEM_K_MAX_SCALERS]; int samples[L8590_MEM_K_MAX_SCALERS]; int old_def; int status; static DESCRIPTOR_A_BOUNDS(raw,sizeof(unsigned short),DTYPE_WU,0,1,0); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR_WITH_UNITS(counts,&raw,&counts_str); static InGet_setupStruct sclr_setup; static DESCRIPTOR_NID(sclr_niddsc,0); static int latch_nid; static DESCRIPTOR_NID(latch,&latch_nid); static FUNCTION(1) dvalue = {2,DTYPE_FUNCTION,CLASS_R,(unsigned char *)&OpcValue,0,0}; static DESCRIPTOR_SIGNAL_1(signal,&dvalue,&counts,&latch); int setup_status = 0; latch_nid = setup->head_nid + L8590_MEM_N_LATCH; TreeGetDefaultNid(&old_def); TreeSetDefaultNid(*(int *)niddsc_ptr->pointer); for (ctx=0,sclrs=0; TreeFindNodeWild("L8590_%", &sclr_nids[sclrs], &ctx, -1)&1;sclrs++) { sclr_niddsc.pointer = (char *)&sclr_nids[sclrs]; setup_status = l8590_sclr___get_setup(&sclr_niddsc,&sclr_setup); if (setup_status & 1) { samples[sclrs] = 0; active[sclrs] = sclr_setup.num_active; pio(sclr_setup.name,2,0,&samples[sclrs]); total_samps += samples[sclrs]; total_chans += active[sclrs]; GenDeviceFree(&sclr_setup); } else { return_on_error(setup_status,status); } } if (total_samps > 32766) { printf("Total samples too large for L8590_MEM: %s --- %d\n",setup->name,total_samps); total_samps = 32767; } if (!(TreeIsOn(setup->head_nid + L8590_MEM_N_COMMENT) & 1)) { total_samps = total_chans*2000; } if (total_samps) { int chan; int chan_idx; unsigned short *values = calloc(total_samps * 2,sizeof(*values)); unsigned short *cdata = values + total_samps; int samps_per_chan = total_samps/total_chans; int min_idx = 0; int max_idx = samps_per_chan - 1; int i; int sclr; pio(setup->name,19,0,&zero); pio(setup->name,18,0,&zero); pio(setup->name,25,0,0); pio(setup->name,2,0,&values[0]); pio(setup->name,19,0,&zero); stop(setup->name,2,0,total_samps,values); for (i=0;i<total_samps;i++) cdata[i/total_chans + (i % total_chans) * samps_per_chan] = values[i]; for (chan_idx=0, sclr=0; sclr<sclrs; sclr++) { for (chan=0; chan<active[sclr]; chan++, chan_idx++) { int data_nid = sclr_nids[sclr]+L8590_SCLR_N_INPUT_1+(L8590_SCLR_N_INPUT_2 - L8590_SCLR_N_INPUT_1)*chan; int start_nid = data_nid + L8590_SCLR_N_INPUT_1_STARTIDX - L8590_SCLR_N_INPUT_1; int end_nid = data_nid + L8590_SCLR_N_INPUT_1_ENDIDX - L8590_SCLR_N_INPUT_1; if (TreeIsOn(data_nid) & 1) { status = DevLong(&start_nid,(int *)&raw.bounds[0].l); if (status&1) raw.bounds[0].l = min(max_idx,max(min_idx,raw.bounds[0].l)); else raw.bounds[0].l = min_idx; status = DevLong(&end_nid, (int *)&raw.bounds[0].u); if (status&1) raw.bounds[0].u = min(max_idx,max(min_idx,raw.bounds[0].u)); else raw.bounds[0].u = max_idx; raw.m[0] = raw.bounds[0].u - raw.bounds[0].l + 1; if (raw.m[0] > 0) { raw.pointer = (char *)(cdata + chan_idx * samps_per_chan + raw.bounds[0].l); raw.a0 = raw.pointer - raw.bounds[0].l * sizeof(*cdata); raw.arsize = raw.m[0] * 2; status = TreePutRecord(data_nid,(struct descriptor *)&signal,0); } } } } free(values); } TreeSetDefaultNid(old_def); return status; }
int l2256___store(struct descriptor *niddsc, InStoreStruct *setup) { static struct descriptor name = {0,DTYPE_T,CLASS_D,0}; static DESCRIPTOR_A_BOUNDS(raw,sizeof(short),DTYPE_W,0,1,0); static DESCRIPTOR(counts_str,"counts"); static DESCRIPTOR_WITH_UNITS(counts,&raw, &counts_str); static DESCRIPTOR_LONG(start_d,&raw.bounds[0].l); static DESCRIPTOR_LONG(end_d,&raw.bounds[0].u); static int trigger_nid; static DESCRIPTOR_NID(trigger_d,&trigger_nid); static float frequency; static DESCRIPTOR_FLOAT(frequency_d,&frequency); static DESCRIPTOR_RANGE(int_clock_d,0,0,&frequency_d); static int ext_clock_nid; static DESCRIPTOR_NID(ext_clock_d,&ext_clock_nid); static float coefficient = .002; static DESCRIPTOR_FLOAT(coef_d,&coefficient); static float offset = 0; static struct descriptor_s offset_d = {4,DTYPE_NATIVE_FLOAT,CLASS_S,(char *)&offset}; static int key; static DESCRIPTOR_LONG(key_d,&key); static DESCRIPTOR_FUNCTION_1(value,(unsigned char *)&OpcValue,0); static DESCRIPTOR_FUNCTION_2(add_exp,(unsigned char *)&OpcAdd,&offset_d,&value); static DESCRIPTOR_FUNCTION_2(mult_exp,(unsigned char *)&OpcMultiply,&coef_d,&add_exp); static DESCRIPTOR(volts_str,"volts"); static DESCRIPTOR_WITH_UNITS(volts,&mult_exp,&volts_str); static DESCRIPTOR_WINDOW(window,&start_d,&end_d,&trigger_d); static DESCRIPTOR_DIMENSION(dimension,&window,0); static DESCRIPTOR(time_str,"seconds"); static DESCRIPTOR_WITH_UNITS(time,&dimension,&time_str); static DESCRIPTOR_SIGNAL_1(signal,&volts,&counts,&time); static float dts[] = {0.,5.e-6,2.e-6,1.e-6,500.e-9,200.e-9,100.e-9,50.e-9}; static int pre[] = {0, 128, 256, 348, 512, 640, 768, 896}; int channel_nid = setup->head_nid + L2256_N_INPUT; short channel_data[1024]; int status=1; int maxidx; int minidx; int i; int pts; #pragma member_alignment save #pragma nomember_alignment struct { unsigned __attribute__ ((packed)) frequency : 3; unsigned __attribute__ ((packed)) pre : 3; unsigned __attribute__ ((packed)) offset : 8; } reg; #pragma member_alignment restore if (TreeIsOn(channel_nid) & 1) { value.ndesc = 0; pio(8,0); if ((CamXandQ(0)&1) == 0) return DEV$_NOT_TRIGGERED; ext_clock_nid = setup->head_nid + L2256_N_EXT_CLOCK; trigger_nid = setup->head_nid + L2256_N_TRIGGER; pio(9,0); pio(27,0); pioqrep(1,0,(short *)®); offset = reg.offset * -.002; frequency = dts[reg.frequency]; pts = 1024 - pre[reg.pre]; raw.bounds[0].u = pts; raw.bounds[0].l = pts - 1023; raw.pointer = (char *)channel_data; dimension.axis = (reg.frequency == 0) ? (struct descriptor *)&ext_clock_d : (struct descriptor *)&int_clock_d; raw.m[0] = 1024; raw.arsize = sizeof(channel_data); raw.a0 = (char *)(channel_data - raw.bounds[0].l); fstopw(2,0,1024,channel_data); if (status & 1) status = TreePutRecord(channel_nid,(struct descriptor *)&signal,0); } return status; }