spi.c

//memcpy
#include <string.h>

// bfin_lib
#include "bfin_core.h"
#include "control.h"
#include "gpio.h"
#include "module.h"
#include "protocol.h"
#include "types.h"
#include "util.h"
#include "spi.h"

// byte to process
static eSpiByte byte = eCom;
// current command
static u8 com;
// current param index
static u32 idx;
// current sequencer position
static u32 sqstep;

// current sample offset
static u32 sample_offset;
// current sample size
static u32 sample_size;

static void spi_set_param(u32 idx, ParamValue pv) {
    //    gModuleData->paramData[idx].value = pv;
    module_set_param(idx, pv);
}

static void spi_set_sqparam(u32 step, u8 idx, ParamValue pv) {
    //    gModuleData->paramData[idx].value = pv;
    module_set_sqparam(step, idx, pv);
}

static void spi_load_sample(s32 sample) {
    //  gModule...
    module_load_sample(sample);
}

//------- function definitions
// deal with new data in the spi rx ringbuffer
// return byte to load for next MISO
u8 spi_process(u8 rx) {
    //  variable for parameter transfer
    static ParamValueSwap pstep;
    static ParamValueSwap pval;
    
    //  variables for sample transfer
    static ParamValueSwap boffset;
    static ParamValueSwap bsize;
    static ParamValueSwap sample;

    //  caveman style case statement
    switch(byte) {
        case eCom :
            com = rx;
            
    switch(com) {
        case MSG_SET_PARAM_COM :
            byte = eSetParamIdx;
            break;
        case MSG_GET_PARAM_COM :
            byte = eGetParamIdx;
            break;
        case MSG_GET_NUM_PARAMS_COM :
            byte = eNumParamsVal;
            return gModuleData->numParams; // load num params
            break;
//  case MSG_GET_PARAM_DESC_COM:
        case MSG_GET_MODULE_NAME_COM :
            byte = eModuleName0;
            return gModuleData->name[0];
            break;
        case MSG_GET_MODULE_VERSION_COM :
            byte = eModuleVersionMaj;
            return MAJ;
            break;
        case MSG_ENABLE_AUDIO :
            processAudio = 1;
            return processAudio;
            break;
        case MSG_DISABLE_AUDIO :
            processAudio = 0;
            return processAudio;
            break;
        case MSG_SET_EVENT_COM :
            //  call module event function
            module_set_event();
            break;
        case MSG_NEW_SAMPLE_COM :
            byte = eBufferOffset0;
            break;
        case MSG_TRANSFER_SAMPLE_COM :
            byte = eBufferSample0;
            break;
        case MSG_SET_SQPARAM_COM :
            byte = eSetParamStep0;
            break;
        case MSG_GET_HEADSTATUS_COM :
            byte = eHeadState;
//            return gModuleData->headState; // load head status
            break;
        case MSG_GET_HEADPOSITION_COM :
            byte = eGetHeadPosition;
//            return gModuleData->headPosition; // load playcounter
            break;
           
        default:
            break;
    }
    return 0;
    break;

        //  set param
        case eSetParamIdx :
            //  set index
            idx = rx;
            byte = eSetParamData0;
            return 0;
            break;
        case eSetParamData0 :
            byte = eSetParamData1;
            //  byte-swap from BE on avr32
            //  set paramval
            pval.asByte[3] = rx;
            return 0;
            break;
        case eSetParamData1 :
            byte = eSetParamData2;
            pval.asByte[2] = rx;
            return 0;
            break;
        case eSetParamData2 :
            byte = eSetParamData3;
            pval.asByte[1] = rx;
            return 0;
            break;
        case eSetParamData3 :
            pval.asByte[0] = rx;
            spi_set_param(idx, pval.asInt);
            //  reset
            byte = eCom;
            return 0;
            break;
    
        //  get param
        case eGetParamIdx :
            //  set index
            idx = rx;
            byte = eGetParamData0;
            pval.asInt = gModuleData->paramData[idx].value;
            //  byte-swap from BE on avr32
            return pval.asByte[3];
            break;

        case eGetParamData0 :
            byte = eGetParamData1;
            return pval.asByte[2];
            break;
        case eGetParamData1 :
            byte = eGetParamData2;
            return pval.asByte[1];
            break;
        case eGetParamData2 :
            byte = eGetParamData3;
            return pval.asByte[0];
            break;
        case eGetParamData3 :
            //  reset
            byte = eCom;
            return 0;
            break;

        //  get num params
        case eNumParamsVal :
            //  reset
            byte = eCom;
            return 0;
            break;
          
//  get param descriptor
#if 0
  /* case eParamDescIdx : */
  /*   byte = eParamDescLabel0; */
  /*   idx = rx; */
  /*   return gModuleData->paramDesc[idx].label[0]; // load label  */
  /*   break; */
  /*   // label */
  /* case eParamDescLabel0 : */
  /*   byte = eParamDescLabel1; */
  /*   return gModuleData->paramDesc[idx].label[1]; // load label  */
  /*   break; */
  /* case eParamDescLabel1 : */
  /*   byte = eParamDescLabel2; */
  /*   return gModuleData->paramDesc[idx].label[2]; // load label  */
  /*   break; */
  /* case eParamDescLabel2 : */
  /*   byte = eParamDescLabel3; */
  /*   return gModuleData->paramDesc[idx].label[3]; // load label  */
  /*   break; */
  /* case eParamDescLabel3 : */
  /*   byte = eParamDescLabel4; */
  /*   return gModuleData->paramDesc[idx].label[4]; // load label  */
  /*   break; */
  /* case eParamDescLabel4 : */
  /*   byte = eParamDescLabel5; */
  /*   return gModuleData->paramDesc[idx].label[5]; // load label  */
  /*   break; */
  /* case eParamDescLabel5 : */
  /*   byte = eParamDescLabel6; */
  /*   return gModuleData->paramDesc[idx].label[6]; // load label  */
  /*   break; */
  /* case eParamDescLabel6 : */
  /*   byte = eParamDescLabel7; */
  /*   return gModuleData->paramDesc[idx].label[7]; // load label  */
  /*   break; */
  /* case eParamDescLabel7 : */
  /*   byte = eParamDescLabel8; */
  /*   return gModuleData->paramDesc[idx].label[8]; // load label  */
  /*   break; */
  /* case eParamDescLabel8 : */
  /*   byte = eParamDescLabel9; */
  /*   return gModuleData->paramDesc[idx].label[9]; // load label  */
  /*   break; */
  /* case eParamDescLabel9 : */
  /*   byte = eParamDescLabel10; */
  /*   return gModuleData->paramDesc[idx].label[10]; // load label  */
  /*   break; */
  /* case eParamDescLabel10 : */
  /*   byte = eParamDescLabel11; */
  /*   return gModuleData->paramDesc[idx].label[11]; // load label  */
  /*   break; */
  /* case eParamDescLabel11 : */
  /*   byte = eParamDescLabel12; */
  /*   return gModuleData->paramDesc[idx].label[12]; // load label  */
  /*   break; */
  /* case eParamDescLabel12 : */
  /*   byte = eParamDescLabel13; */
  /*   return gModuleData->paramDesc[idx].label[13]; // load label  */
  /*   break; */
  /* case eParamDescLabel13 : */
  /*   byte = eParamDescLabel14; */
  /*   return gModuleData->paramDesc[idx].label[14]; // load label  */
  /*   break; */
  /* case eParamDescLabel14 : */
  /*   byte = eParamDescLabel15; */
  /*   return gModuleData->paramDesc[idx].label[15]; // load label  */
  /*   break; */
  /* case eParamDescLabel15 : */
  /*   //    byte = eParamDescUnit0; */
  /*   byte = eParamDescType; */
  /*   //    return gModuleData->paramDesc[idx].unit[0]; // load label  */
  /*   return gModuleData->paramDesc[idx].type; */
  /*   break; */
  /*   // unit */
  /*   /\* */
  /*   // don't need with new type system... didn't really need anyways */

  /*   case eParamDescUnit0 : */
  /*   byte = eParamDescUnit1; */
  /*   return gModuleData->paramDesc[idx].unit[1]; // load unit */
  /*   break; */
  /*   case eParamDescUnit1 : */
  /*   byte = eParamDescUnit2; */
  /*   return gModuleData->paramDesc[idx].unit[2]; // load unit */
  /*   break; */
  /*   case eParamDescUnit2 : */
  /*   byte = eParamDescUnit3; */
  /*   return gModuleData->paramDesc[idx].unit[3]; // load unit */
  /*   break; */
  /*   case eParamDescUnit3 : */
  /*   byte = eParamDescUnit4; */
  /*   return gModuleData->paramDesc[idx].unit[4]; // load unit */
  /*   break; */
  /*   case eParamDescUnit4 : */
  /*   byte = eParamDescUnit5; */
  /*   return gModuleData->paramDesc[idx].unit[5]; // load unit */
  /*   break; */
  /*   case eParamDescUnit5 : */
  /*   byte = eParamDescUnit6; */
  /*   return gModuleData->paramDesc[idx].unit[6]; // load unit */
  /*   break; */
  /*   case eParamDescUnit6 : */
  /*   byte = eParamDescUnit7; */
  /*   return gModuleData->paramDesc[idx].unit[7]; // load unit */
  /*   break; */
  /*   case eParamDescUnit7 : */
  /*   byte = eParamDescType; */
  /*   return gModuleData->paramDesc[idx].type; // load type */
  /*   break; */
  /*   *\/ */
  /*   // type */
  /* case eParamDescType : */
  /*   byte = eParamDescMin0; */
  /*   pval.asInt = gModuleData->paramDesc[idx].min; */
  /*   return pval.asByte[3]; // min, high byte */
  /*   break; */
  /*   // min  // === byteswap for BE on avr32 */
  /* case eParamDescMin0 : */
  /*   byte = eParamDescMin1; */
  /*   return pval.asByte[2]; */
  /*   break; */
  /* case eParamDescMin1 : */
  /*   byte = eParamDescMin2; */
  /*   return pval.asByte[1]; */
  /*   break; */
  /* case eParamDescMin2 : */
  /*   byte = eParamDescMin3; */
  /*   return pval.asByte[0]; // min, low byte */
  /*   break; */
  /* case eParamDescMin3 : */
  /*   byte = eParamDescMax0; */
  /*   pval.asInt = gModuleData->paramDesc[idx].max; */
  /*   return pval.asByte[3]; // max, high byte */
  /*   break; */
  /*   // max  // === byteswap for BE on avr32 */
  /* case eParamDescMax0 : */
  /*   byte = eParamDescMax1; */
  /*   return pval.asByte[2]; */
  /*   break; */
  /* case eParamDescMax1 : */
  /*   byte = eParamDescMax2; */
  /*   return pval.asByte[1]; */
  /*   break; */
  /* case eParamDescMax2 : */
  /*   byte = eParamDescMax3; */
  /*   return pval.asByte[0]; // max, low byte */
  /*   break; */
  /* case eParamDescMax3 : */
  /*   byte = eParamDescRadix; */
  /*   return gModuleData->paramDesc[idx].radix; */
  /*   break; */
  /*   // radix */
  /* case eParamDescRadix : */
  /*   byte = eCom; // reset */
  /*   return 0; // dont care */
  /*   break; */
#endif


    //----- get module name
  case eModuleName0 :
    byte = eModuleName1;
    return gModuleData->name[1];
    break;
  case eModuleName1 :
    byte = eModuleName2;
    return gModuleData->name[2];
    break;
  case eModuleName2 :
    byte = eModuleName3;
    return gModuleData->name[3];
    break;
  case eModuleName3 :
    byte = eModuleName4;
    return gModuleData->name[4];
    break;
  case eModuleName4 :
    byte = eModuleName5;
    return gModuleData->name[5];
    break;
  case eModuleName5 :
    byte = eModuleName6;
    return gModuleData->name[6];
    break;
  case eModuleName6 :
    byte = eModuleName7;
    return gModuleData->name[7];
    break;
  case eModuleName7 :
    byte = eModuleName8;
    return gModuleData->name[8];
    break;
  case eModuleName8 :
    byte = eModuleName9;
    return gModuleData->name[9];
    break;
  case eModuleName9 :
    byte = eModuleName10;
    return gModuleData->name[10];
    break;
  case eModuleName10 :
    byte = eModuleName11;
    return gModuleData->name[11];
    break;
  case eModuleName11 :
    byte = eModuleName12;
    return gModuleData->name[12];
    break;
  case eModuleName12 :
    byte = eModuleName13;
    return gModuleData->name[13];
    break;
  case eModuleName13 :
    byte = eModuleName14;
    return gModuleData->name[14];
    break;
  case eModuleName14 :
    byte = eModuleName15;
    return gModuleData->name[15];
    break;
  case eModuleName15 :
    byte = eModuleName16;
    return gModuleData->name[16];
    break;
  case eModuleName16 :
    byte = eModuleName17;
    return gModuleData->name[17];
    break;
  case eModuleName17 :
    byte = eModuleName18;
    return gModuleData->name[18];
    break;
  case eModuleName18 :
    byte = eModuleName19;
    return gModuleData->name[19];
    break;
  case eModuleName19 :
    byte = eModuleName20;
    return gModuleData->name[20];
    break;
  case eModuleName20 :
    byte = eModuleName21;
    return gModuleData->name[21];
    break;
  case eModuleName21 :
    byte = eModuleName22;
    return gModuleData->name[22];
    break;
  case eModuleName22 :
    byte = eModuleName23;
    return gModuleData->name[23];
    break;
  case eModuleName23 :
    byte = eCom; // reset
    return 0;    // don't care
    break;

    /// version
  case eModuleVersionMaj :
    byte = eModuleVersionMin;
    return MIN; 
    break;

  case eModuleVersionMin :
    byte = eModuleVersionRev0;
    // patch (u16)
    // === byteswap for BE on avr32
    return REV >> 8;  
    break;

  case eModuleVersionRev0 :
    byte = eModuleVersionRev1;
    return REV & 0x00ff;
    break;

  case eModuleVersionRev1 :
    byte = eCom; // reset
    return 0;    // don't care
    break;
            
        case eBufferOffset0 :
            byte = eBufferOffset1;
            //  byte-swap from BE on avr32
            //  set buffer offset
            boffset.asByte[3] = rx;
            return 0;
            break;
        case eBufferOffset1 :
            byte = eBufferOffset2;
            boffset.asByte[2] = rx;
            return 0;
            break;
        case eBufferOffset2 :
            byte = eBufferOffset3;
            boffset.asByte[1] = rx;
            return 0;
            break;
        case eBufferOffset3 :
            byte = eBufferSize0;
            boffset.asByte[0] = rx;
            sample_offset = boffset.asInt;
            return 0;
            break;
        case eBufferSize0 :
            byte = eBufferSize1;
            //  byte-swap from BE on avr32
            //  set buffer size
            bsize.asByte[3] = rx;
            return 0;
            break;
        case eBufferSize1 :
            byte = eBufferSize2;
            bsize.asByte[2] = rx;
            return 0;
            break;
        case eBufferSize2 :
            byte = eBufferSize3;
            bsize.asByte[1] = rx;
            return 0;
            break;
        case eBufferSize3 :
            bsize.asByte[0] = rx;
            sample_size = bsize.asInt;
            byte = eCom; // reset
            return 0;
            break;
            
        case eBufferSample0 :
            byte = eBufferSample1;
            //  byte-swap from BE on avr32
            sample.asByte[3] = rx;
            return 0;
            break;
        case eBufferSample1 :
            byte = eBufferSample2;
            sample.asByte[2] = rx;
            return 0;
            break;
        case eBufferSample2 :
            byte = eBufferSample3;
            sample.asByte[1] = rx;
            return 0;
            break;
        case eBufferSample3 :
            sample.asByte[0] = rx;
            spi_load_sample(sample.asInt);
            byte = eCom;
            return 0;
            break;

        case eSetParamStep0 :
            byte = eSetParamStep1;
            //  byte-swap from BE on avr32
            pstep.asByte[3] = rx;
            return 0;
            break;
        case eSetParamStep1 :
            byte = eSetParamStep2;
            pstep.asByte[2] = rx;
            return 0;
            break;
        case eSetParamStep2 :
            byte = eSetParamStep3;
            pstep.asByte[1] = rx;
            return 0;
            break;
        case eSetParamStep3 :
            pstep.asByte[0] = rx;
            sqstep = pstep.asInt;
            byte = eSetParamStepIdx;
            return 0;
            break;

        case eSetParamStepIdx :
            //  set index
            idx = rx;
            byte = eSetParamStepData0;
            return 0;
            break;
            
        case eSetParamStepData0 :
            byte = eSetParamStepData1;
            //  byte-swap from BE on avr32
            //  set paramval
            pval.asByte[3] = rx;
            return 0;
            break;
        case eSetParamStepData1 :
            byte = eSetParamStepData2;
            pval.asByte[2] = rx;
            return 0;
            break;
        case eSetParamStepData2 :
            byte = eSetParamStepData3;
            pval.asByte[1] = rx;
            return 0;
            break;
        case eSetParamStepData3 :
            pval.asByte[0] = rx;
            spi_set_sqparam(sqstep, idx, pval.asInt);
            //  reset
            byte = eCom;
            return 0;
            break;
            
        case eHeadState :
            //  reset
            byte = eCom;
            return 0;
            break;
            
        case eGetHeadPosition :
            byte = eCom;
            return 0;
            break;

        default:
            byte = eCom; //reset
            return 0;
            break;
    }
}