source: MML/trunk/machine/SOLEIL/StorageRing/insertions/idGetUndParam.m @ 17

function param = idGetUndParam(idName, attrName)

param = 0;
DServName = '';
StandByStr = ''; %String to search in the return of "Status" command of DServer
useAppleIIDServerLevel1 = 0;

[DServName, StandByStr] = idGetUndDServer(idName);

if strcmp(DServName, '') ~= 0
    fprintf('Device Server name can not be found\n');
    param = -1;
    return;
end

if strcmpi(attrName, 'Mode')
    TempStruct=tango_read_attribute2(DServName, 'phaseCtrlMode');
    if tango_error==-1
        fprintf('Problem while checking mode\n')
        param = -1;
        return;
    else
        TempValue=TempStruct.value;
        TempValue=TempValue(1);
        if TempValue==0
            param='ii';
        elseif TempValue==1
            param='x';
        elseif TempValue==2
            param='i2';
        elseif TempValue==3
            param='x2';
        else
            fprintf 'Wrong mode number\n')
            return
        end
        return
    end
end
if strcmp(idName, 'HU52_DEIMOS')
    useAppleIIDServerLevel1 = 1;
end

attr_name_list = {attrName};

if useAppleIIDServerLevel1
    %special case: controlling via DServer of Level 1
    
    if (strcmpi(attrName, 'gap'))
        attr_name_list = {'encoder1Position','encoder2Position','encoder3Position','encoder4Position'};
    elseif (strcmpi(attrName, 'phase'))
        attr_name_list = {'encoder5Position','encoder6Position'};
    end
    
end

attr_val_list = tango_read_attributes(DServName, attr_name_list);

if (tango_error == -1) %handle error 
    tango_print_error_stack; param = -1; return;
end
param = attr_val_list(1).value(1); %check why (1)

if useAppleIIDServerLevel1
    %special case: controlling via DServer of Level 1
    
        if (strcmp(attrName, 'gap') || strcmp(attrName, 'GAP'))
        param = 0.5*(attr_val_list(1).value + attr_val_list(2).value + attr_val_list(3).value + attr_val_list(4).value);
    elseif (strcmp(attrName, 'phase') || strcmp(attrName, 'PHASE'))
        param = 0.5*(abs(attr_val_list(1).value) + abs(attr_val_list(2).value))*sign(attr_val_list(1).value);
        if(sign(attr_val_list(1).value) ~= sign(attr_val_list(2).value))
            param = param + i;
        end
    end
end