#include "pidf_local.h"

SDDAS_INT
ReadPidf (SDDAS_ULONG key, const char *Exten, SDDAS_INT DataType,
          SDDAS_INT sennum, SDDAS_INT unitnum, PIDF what, void *ToBeFilled)
{
    SDDAS_INT ret_val;

    switch (what) {
        case NSETS    : if (DataType == CAL_DATA)
                            ret_val = CalNSets (key, Exten, sennum, (SDDAS_INT *) ToBeFilled);
                        else 
                            ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, ToBeFilled);
                        break;
        case NUNITS   : 
                        if (DataType == SWEEP_STEP) 
                            ret_val = SweepNUnits (key, Exten, sennum, (SDDAS_INT *) ToBeFilled);
                        else 
                            if (DataType == SCAN_DATA) 
                                ret_val = ScanNUnits (key, Exten, sennum, (SDDAS_INT *) ToBeFilled);
                            else 
                                ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, ToBeFilled);
                        break;
        case SENSETS  : if (DataType == CAL_DATA)
                            ret_val = CalSenSets (key, Exten, sennum, (SDDAS_INT *) ToBeFilled);
                        else 
                            ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, ToBeFilled);
                        break;
        case NAMES    : if (DataType != PIDF_GROUP) 
                            ret_val = DataTypeNames (key, Exten, DataType,
                                                    (SDDAS_CHAR **) ToBeFilled);
                        else 
                            ret_val = ReadNewPidf (key, Exten, DataType, sennum,
                                                   unitnum, what, ToBeFilled);
                        break;
        case PIDFNUMS : ret_val = DTPidfNums (key, Exten, DataType, sennum, 
                                              (SDDAS_INT *) ToBeFilled);
                        break;
        case VIDFNUMS : ret_val = DTVidfNums (key, Exten, DataType, sennum, 
                                              (SDDAS_INT *) ToBeFilled);
                        break;
        case COMPNAMES: ret_val = GroupCompNames (key, Exten, sennum, 
                                              (SDDAS_CHAR **) ToBeFilled);
                        break;
        case SENNAMES : ret_val = GroupSenNames (key, Exten, sennum, 
                                              (SDDAS_CHAR **) ToBeFilled);
                        break;
        case NUMINGRP : ret_val = GroupNumberSensors (key, Exten, sennum, 
                                              (SDDAS_INT *) ToBeFilled);
                        break;
        case UNITNUMS : 
                        if (DataType == SWEEP_STEP)
                            ret_val = SweepUnitNums (key, Exten, sennum, 
                                              (SDDAS_INT *) ToBeFilled);
                        else 
                            if (DataType == SCAN_DATA)
                                ret_val = ScanUnitNums (key, Exten, sennum, 
                                                  (SDDAS_INT *) ToBeFilled);
                            else 
                                ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, (void *) ToBeFilled);
                        break;
        case VARUNITUBNUMS : 
                        if (DataType == SWEEP_STEP)
                              ret_val = SweepVarUnitUbNums (key, Exten, unitnum, 
                                              (SDDAS_INT *) ToBeFilled);
                        else 
                          if (DataType == SCAN_DATA)
                              ret_val = ScanVarUnitUbNums (key, Exten, unitnum, 
                                              (SDDAS_INT *) ToBeFilled);
                        else 
                            ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, (void *) ToBeFilled);
                        break;
        case VARUNITNUMS : 
                          if (DataType == SWEEP_STEP)
                              ret_val = SweepVarUnitNums (key, Exten, unitnum, 
                                              (SDDAS_INT *) ToBeFilled);
                        else 
                          if (DataType == SCAN_DATA)
                              ret_val = ScanVarUnitNums (key, Exten, unitnum, 
                                              (SDDAS_INT *) ToBeFilled);
                        else 
                            ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, (void *) ToBeFilled);
                        break;
        case UNITFMTS : 
                        if (DataType == SWEEP_STEP)
                            ret_val = SweepUnitFmts (key, Exten, sennum, ToBeFilled);
                        else ret_val = ScanUnitFmts (key, Exten, sennum, ToBeFilled);
                        break;
        case VARUNITFMTS : 
                           if (DataType == SWEEP_STEP)
                               ret_val = SweepVarUnitFmts (key, Exten, sennum, ToBeFilled);
                           else ret_val = ScanVarUnitFmts (key, Exten, sennum, ToBeFilled);
                           break;
        case SCANSCFSEN : 
                           if (DataType == SWEEP_STEP) 
                               ret_val = SweepSCFSensor (key, Exten, sennum, unitnum, 
                                      (SDDAS_INT *) ToBeFilled);
                           else ret_val = ScanSCFSensor (key, Exten, sennum, unitnum, 
                                      (SDDAS_INT *) ToBeFilled);
                           break;
        case VSCANSCFSEN : 
                           if (DataType == SWEEP_STEP) 
                               ret_val = SweepVSCFSensor (key, Exten, sennum, unitnum,
                                      (SDDAS_INT *) ToBeFilled);
                           else ret_val = ScanVSCFSensor (key, Exten, sennum, unitnum,
                                      (SDDAS_INT *) ToBeFilled);
                           break;
        case VSCANUBSCFSEN : 
                           if (DataType == SWEEP_STEP) 
                               ret_val = SweepVUBSCFSensor (key, Exten, sennum, unitnum,
                                      (SDDAS_INT *) ToBeFilled);
                           else ret_val = ScanVUBSCFSensor (key, Exten, sennum, unitnum,
                                      (SDDAS_INT *) ToBeFilled);
                           break;
        case NUMBININDEX : ret_val = BinIndex (key, Exten, sennum, (SDDAS_INT *) ToBeFilled);
                           break;
        case MOMENTSDEF :  ret_val = MomentsDefined (key, Exten, (SDDAS_INT *) ToBeFilled);
                           break;
        case TENSORDEF :  ret_val = TensorDefined (key, Exten, (SDDAS_INT *) ToBeFilled);
                           break;
        case FLOWINTO : ret_val = FlowIntoDefined (key, Exten, (SDDAS_CHAR *) ToBeFilled);
                        break;
        case SRCFLAG  : if (DataType == CAL_DATA)
                            ret_val = CalSrcFlag (key, Exten, sennum, (SDDAS_CHAR *) ToBeFilled);
                        else 
                            ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                                   unitnum, what, ToBeFilled);
                        break;
        case CSDEF :  ret_val = CoordinateSystemDefined (key, Exten, (SDDAS_INT *) ToBeFilled);
                      break;
        default       : ret_val = ReadNewPidf (key, Exten, DataType, sennum, 
                                               unitnum, what, 
                                              (void *) ToBeFilled);
    } /* switch */
    return ret_val;
}