Last change
on this file was
4,
checked in by zhangj, 11 years ago
|
Initial import--MML version from SOLEIL@2013
|
File size:
723 bytes
|
Line | |
---|
1 | function setepicscaaddrlist(AddrList) |
---|
2 | %SETEPICSCAADDRLIST - Sets the environmental varible EPICS_CA_ADDR_LIST |
---|
3 | % setepicscaaddrlist(AddrList) |
---|
4 | % |
---|
5 | % See also getepicscaaddrlist |
---|
6 | % |
---|
7 | % Written by Greg Portmann |
---|
8 | |
---|
9 | |
---|
10 | if nargin == 0 |
---|
11 | if strcmpi(getfamilydata('Machine'), 'ALS') |
---|
12 | ButtonName = questdlg('Only use EPICS server?','ALS','Yes','No','No'); |
---|
13 | switch ButtonName |
---|
14 | case 'Yes' |
---|
15 | % EPICS server (no setpoint control) |
---|
16 | AddrList = '131.243.90.255'; |
---|
17 | case 'No', |
---|
18 | % No EPICS server |
---|
19 | AddrList = '131.243.87.255 131.243.84.255'; |
---|
20 | end |
---|
21 | else |
---|
22 | error('One input needed'); |
---|
23 | end |
---|
24 | end |
---|
25 | |
---|
26 | setenv('EPICS_CA_ADDR_LIST', AddrList); |
---|
Note: See
TracBrowser
for help on using the repository browser.