开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > DVD > 查看源码
thg_glue.c
资源名称：tb_i86_wr_1019_1102.　[点击查看]
上传用户：super_houu
上传日期：2008-09-21
资源大小：4099k
文件大小：13k
源码类别：

DVD

开发平台：

Others

thg_glue.c：源码内容
  1. /*******************************************************************************
  2. * Copyright(c) Philips Consumer Electronics B.V. 2001
  3. * The attached material and the information contained therein is proprietary
  4. * to Philips and is issued only under strict confidentiality arrangements.
  5. * It shall not be used, reproduced, copied in whole or in part, adapted,
  6. * modified, or disseminated without a written license of Philips.
  7. * It must be returned to Philips upon its first request.
  8. *
  9. *  Project:        SA-MP ( Super Audio Media Player )
  10. *  File %name:     thg_glue.c %
  11. *  %version:       17 %
  12. *  %date_modified: Fri Nov 15 09:39:38 2002 %
  13. *  %derived_by:    klerxm %
  14. *  Creation date:  Thu Jun 14 16:08:55 2001
  15. *  First author:   klerxm
  16. *
  17. *  Advanced Systems and Applications Lab - Eindhoven
  18. *
  19. *  Continuus %full_filespec: thg_glue.c~17:csrc:1 %
  20. *
  21. *  Description:    Test harness of the Glue layer
  22. *
  23. * Change history:
  24. *
  25. * Rev  Date       Who      Comments
  26. * ---- ---------- -------- -----------------------------------------------------
  27. *   1  2001-06-06 klerxm   Dummy version
  28. *   2  2001-06-14 klerxm   Template update
  29. *   3  2001-07-30 klerxm   Initial version
  30. *   4  2001-09-04 klerxm   Changes required for new global header files
  31. *   5  2001-09-10 klerxm   Added DBG_SetMask
  32. *   6  2001-12-17 kokh     Added interrupt installation
  33. *   7  2002-02-19 klerxm   See CRPR154: Added all required interface functions
  34. *                          for testing purposes
  35. *   8  2002-02-27 kokh     TH_Send -> SAMP(TH_Send)
  36. *   9  2002-03-14 kokh     Additions for tests on OSA interface
  37. *  10  2002-03-26 klerxm   Added some #ifdef THG_GLUE 's
  38. *  11  2002-04-05 potm     Extended DAC_SetMode with parameters for stereo DAC
  39. *                          and moved parameter conversion to glue layer (PR393)
  40. *  12  2002-04-19 klerxm   Removed OS_Disable/EnableInterrupts (CRPR391)
  41. *  13  2002-05-15 klerxm   Added time measurement for BE command (CRPR389)
  42. *  14  2002-05-24 klerxm   Include OSA test functions only if DEVELOPMENT defined
  43. *  15  2002-10-14 potm     Fixed some warnings
  44. *  16  2002-11-06 potm     Replaced UInt16* with UInt32* in call to TH_GetParam
  45. *  17  2002-11-15 klerxm   Solved implicit narrowing cast compiler warning
  46. *
  47. *******************************************************************************/
  48. #define COMP_PREFIX "GLUE"
  50. /*******************************************************************************
  51. *                                Include Files
  52. *******************************************************************************/
  53. #include "config.h"
  55. #ifdef TEST_HARNASS
  57. #include <samp_gen.h>
  58. #include <samp_sdm.h>
  60. #include <glue_be.h>
  61. #include <glue_dbg.h>
  62. #include <glue_test.h>
  63. #include <testharn.h>
  65. #include <stdlib.h>
  67. /*******************************************************************************
  68. *                               Macro Definitions
  69. *******************************************************************************/
  71. /*******************************************************************************
  72. *                               Data Definitions
  73. *******************************************************************************/
  74. #ifdef THGGLUE
  75. #ifdef DEVELOPMENT
  76. static char osaBuffer[2][1024];
  77. static int  osaFill[2] = { 0, 0 };
  78. static int  osaInt = 0;
  79. #endif
  80. #endif
  82. /*******************************************************************************
  83. *                              Function prototype
  84. *******************************************************************************/
  85. DECLARE_GROUPFUNC(THG_GLUE)
  87. /*******************************************************************************
  88. *                                Local Functions
  89. *******************************************************************************/
  90. #ifdef THGGLUE
  91. #ifdef DEVELOPMENT
  92. void TaskSpawn(int buf)
  93. {
  94.   int i = 0;
  95.   SAMP(TH_Send)(COMP_PREFIX, "TaskStarted", "%u", buf);
  97.   while (i<osaFill[buf])
  98.   {
  99.     /* find the comma */
  100.     int j = i;
  101.     while (j < osaFill[buf])
  102.     {
  103.       if (osaBuffer[buf][j] == ',')
  104.       {
  105.         osaBuffer[buf][j] = '';
  106.         j++;
  107.         break;
  108.       }
  109.       j++;
  110.     }
  112.     THG_GLUE(&osaBuffer[buf][i], &osaBuffer[buf][j]);
  114.     i += j + strlen(&osaBuffer[buf][j]) + 1;
  115.   }
  117.   osaBuffer[buf][0] = 0;
  118.   osaFill[buf]      = 0;
  120.   SAMP(TH_Send)(COMP_PREFIX, "TaskEnded", "%u", buf);
  121. }
  123. void TaskSpawn0(void)
  124. {
  125.   TaskSpawn(0);
  126. }
  128. void TaskSpawn1(void)
  129. {
  130.   TaskSpawn(1);
  131. }
  133. void TaskSpawn2(void)
  134. {
  135.   int i, j, prod;
  136.   SAMP(UInt32) tm, tm2;
  137.   SAMP(TH_Send)(COMP_PREFIX, "TaskStarted", "%u", 2);
  139.   osaInt = 0;
  140.   /* Just occupy CPU for a while! */
  141.   i = 0;
  142.   SAMP(OS_GetTime)(&tm);
  143.   do {
  144.     for (j=0; j<100000; j++)
  145.     {
  146.       prod = i*j + i + j;
  147.     }
  148.     SAMP(OS_GetTime)(&tm2);
  149.   } while (tm2 < tm+10);
  151.   i = i*20;
  152.   while (i > 0)
  153.   {
  154.     for (j=0; j<100000; j++)
  155.     {
  156.       prod = i*j + i + j;
  157.     }
  158.   }
  160.   SAMP(TH_Send)(COMP_PREFIX, "NotInterrupted", "%u", osaInt);
  162.   SAMP(TH_Send)(COMP_PREFIX, "TaskEnded", "%u", 2);
  163. }
  165. void TaskSpawn3(void)
  166. {
  167.   int i, j, prod;
  168.   SAMP(UInt32) tm, tm2;
  169.   SAMP(TH_Send)(COMP_PREFIX, "TaskStarted", "%u", 3);
  171.   /* Just occupy CPU for a while! */
  172.   i = 0;
  173.   SAMP(OS_GetTime)(&tm);
  174.   do {
  175.     for (j=0; j<100000; j++)
  176.     {
  177.       prod = i*j + i + j;
  178.     }
  179.     osaInt = 1;
  180.     SAMP(OS_GetTime)(&tm2);
  181.   } while (tm2 < tm+200);
  183.   SAMP(TH_Send)(COMP_PREFIX, "TaskEnded", "%u", 3);
  184. }
  185. #endif
  186. #endif
  188. /*******************************************************************************
  189. *                          Global test-harness function
  190. *******************************************************************************/
  191. DEFINE_GROUPFUNC(THG_GLUE)
  192. #ifdef THGGLUE
  193.   GROUP_SWITCH
  195. #ifdef DEVELOPMENT
  196.   CASE_CMD( "DBG_SetMask" )
  197.     SAMP(UInt32) lMask;
  198.     char         lPrefix[8];
  199.     TH_GetParam (OPTIONS, "%s%u", lPrefix, &lMask);
  200.     SAMP(DBG_SetMask)( lPrefix, (SAMP(Int16))lMask );
  201.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", 0);
  202.   END_CASE
  203. #endif
  205.   CASE_CMD ("BE_Init")
  206.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  207.     lErr = SAMP(BE_Init)();
  208.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  209.   END_CASE
  211.   CASE_CMD ("BE_Term")
  212.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  213.     lErr = SAMP(BE_Term)();
  214.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  215.   END_CASE
  217.   CASE_CMD( "BE_Seek" )
  218.     SAMP(ErrCode) lErr;
  219.     SAMP(UInt32)  lPos;
  220.     SAMP(UInt32)  lT0,lT1;
  221.     TH_GetParam (OPTIONS, "%u", &lPos);
  222.     SAMP(OS_GetTime)(&lT0);
  223.     lErr = SAMP(BE_Seek)( lPos&~0xF );
  224.     SAMP(OS_GetTime)(&lT1);
  225.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u", (SAMP(UInt32))lErr, lT1-lT0);
  226.   END_CASE
  228.   CASE_CMD( "BE_SetTransferRate" )
  229.     SAMP(ErrCode) lErr;
  230.     SAMP(UInt32)  lRate;
  231.     SAMP(UInt32)  lT0,lT1;
  232.     TH_GetParam (OPTIONS, "%u", &lRate);
  233.     SAMP(OS_GetTime)(&lT0);
  234.     lErr = SAMP(BE_SetTransferRate)( lRate );
  235.     SAMP(OS_GetTime)(&lT1);
  236.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u", (SAMP(UInt32))lErr, lT1-lT0);
  237.   END_CASE
  239.   CASE_CMD( "BE_GetDataArea" )
  240.     SAMP(ErrCode) lErr;
  241.     SAMP(UInt32)  lStart = 0, lEnd = 0, lLayer0 = 0;
  242.     SAMP(UInt32)  lT0,lT1;
  243.     SAMP(OS_GetTime)(&lT0);
  244.     lErr = SAMP(BE_GetDataArea)( &lStart, &lEnd, &lLayer0 );
  245.     SAMP(OS_GetTime)(&lT1);
  246.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u%u%u%u", lStart, lEnd, lLayer0, (SAMP(UInt32))lErr, lT1-lT0);
  247.   END_CASE
  249.   CASE_CMD ("BE_TrayOpen")
  250.     SAMP(ErrCode) lErr;
  251.     lErr = SAMP(BE_TrayOpen)();
  252.     SAMP(TH_Send) (COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  253.   END_CASE
  255.   CASE_CMD ("BE_TrayClose")
  256.     SAMP(ErrCode) lErr;
  257.     lErr = SAMP(BE_TrayClose)();
  258.     SAMP(TH_Send) (COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  259.   END_CASE
  261.   CASE_CMD ("BE_ReadToc")
  262.     SAMP(ErrCode) lErr;
  263.     SAMP(UInt32)  lT0,lT1;
  264.     SAMP(OS_GetTime)(&lT0);
  265.     lErr = SAMP(BE_ReadToc)();
  266.     SAMP(OS_GetTime)(&lT1);
  267.     SAMP(TH_Send) (COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr, lT1-lT0);
  268.   END_CASE
  270. #ifdef THGSDM
  271.   CASE_CMD( "ISR_Install" )
  272.     void (*lFuroreISR)(void);
  273.     SAMP(ErrCode)  lErr = SAMP(ERR_OK);
  274.     SAMP(SDM_GetHandler)( &lFuroreISR );
  275.     lErr = SAMP(ISR_Install)( lFuroreISR );
  276.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  277.   END_CASE
  278. #endif
  280.   CASE_CMD ("DAC_Init")
  281.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  282.     lErr = SAMP(DAC_Init)();
  283.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  284.   END_CASE
  286.   CASE_CMD ("DAC_Term")
  287.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  288.     lErr = SAMP(DAC_Init)();
  289.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  290.   END_CASE
  292.   CASE_CMD ("DAC_SetMode")
  293.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  294.     SAMP(UInt32) lStream6ch, lStream2ch, lBaseFrequency, lPcmUpsampling6ch, lPcmUpsampling2ch;
  295.     TH_GetParam(OPTIONS, "%u%u%u%u%u", &lStream6ch, &lPcmUpsampling6ch, &lStream2ch, &lPcmUpsampling2ch, &lBaseFrequency);
  296.     lErr = SAMP(DAC_SetMode)(lStream6ch, lPcmUpsampling6ch, lStream2ch, lPcmUpsampling2ch, lBaseFrequency);
  297.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", (SAMP(UInt32))lErr);
  298.   END_CASE
  300. #ifdef DEVELOPMENT
  301.   CASE_CMD ("StoreCmd")
  302.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  303.     int buf = atoi(OPTIONS);
  305.     if (buf >= 0 && buf < 2)
  306.     {
  307.       if (osaFill[buf] + strlen(OPTIONS) > 1024)
  308.       {
  309.         lErr = SAMP(ERR_INVALID_PARAM);
  310.       } else
  311.       {
  312.         /* find a comma */
  313.         unsigned int i=0;
  314.         while (i<strlen(OPTIONS))
  315.         {
  316.           if (OPTIONS[i] == ',')
  317.           {
  318.             i++;
  319.             break;
  320.           }
  321.           i++;
  322.         }
  324.         /* copy the command */
  325.         strcpy(&osaBuffer[buf][osaFill[buf]], &OPTIONS[i]);
  327.         osaFill[buf] += strlen(OPTIONS) - i + 1;
  328.       }
  329.     } else
  330.     {
  331.       lErr = SAMP(ERR_INVALID_PARAM);
  332.     }
  334.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", lErr);
  335.   END_CASE
  337.   CASE_CMD ("OS_TaskCreate")
  338.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  339.     SAMP(UInt32)  prio;
  340.     size_t        stacksize;
  341.     SAMP(UInt32)  tasknum;
  342.     SAMP(UInt32)  id = 0;
  344.     TH_GetParam (OPTIONS, "%u%u%u", &prio, &stacksize, &tasknum);
  345.     if (tasknum == 0)
  346.     {
  347.       lErr = SAMP(OS_TaskCreate)(prio, stacksize, TaskSpawn0, &id);
  348.     } else if (tasknum == 1)
  349.     {
  350.       lErr = SAMP(OS_TaskCreate)(prio, stacksize, TaskSpawn1, &id);
  351.     } else if (tasknum == 2)
  352.     {
  353.       lErr = SAMP(OS_TaskCreate)(prio, stacksize, TaskSpawn2, &id);
  354.     } else if (tasknum == 3)
  355.     {
  356.       lErr = SAMP(OS_TaskCreate)(prio, stacksize, TaskSpawn3, &id);
  357.     } else
  358.     {
  359.       lErr = SAMP(ERR_INVALID_PARAM);
  360.     }
  362.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u", lErr, id);
  363.   END_CASE
  365.   CASE_CMD ("OS_TaskDelete")
  366.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  367.     SAMP(UInt32)  id;
  369.     TH_GetParam (OPTIONS, "%u", &id);
  370.     lErr = SAMP(OS_TaskDelete)(id);
  372.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", lErr);
  373.   END_CASE
  375.   CASE_CMD ("OS_SemCreate")
  376.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  377.     SAMP(UInt32)  units;
  378.     SAMP(UInt32)  id;
  380.     TH_GetParam (OPTIONS, "%u", &units);
  381.     lErr = SAMP(OS_SemCreate)(units, &id);
  383.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u", lErr, id);
  384.   END_CASE
  386.   CASE_CMD ("OS_SemDelete")
  387.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  388.     SAMP(UInt32)  id;
  390.     TH_GetParam (OPTIONS, "%u", &id);
  391.     lErr = SAMP(OS_SemDelete)(id);
  393.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", lErr);
  394.   END_CASE
  396.   CASE_CMD ("OS_SemP")
  397.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  398.     SAMP(UInt32)  id;
  399.     SAMP(UInt32)  timeout;
  401.     TH_GetParam (OPTIONS, "%u%u", &id, &timeout);
  402.     lErr = SAMP(OS_SemP)(id, timeout);
  404.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", lErr);
  405.   END_CASE
  407.   CASE_CMD ("OS_SemV")
  408.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  409.     SAMP(UInt32)  id;
  411.     TH_GetParam (OPTIONS, "%u", &id);
  412.     lErr = SAMP(OS_SemV)(id);
  414.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", lErr);
  415.   END_CASE
  417.   CASE_CMD ("OS_TimerEvery")
  418.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  419.     SAMP(UInt32)  ticks;
  420.     SAMP(UInt32)  task;
  421.     SAMP(UInt32)  id=0;
  423.     TH_GetParam (OPTIONS, "%u%u", &ticks, &task);
  424.     if (task == 0)
  425.     {
  426.       lErr = SAMP(OS_TimerEvery)(ticks, TaskSpawn0, &id);
  427.     } else if (task == 1)
  428.     {
  429.       lErr = SAMP(OS_TimerEvery)(ticks, TaskSpawn1, &id);
  430.     } else
  431.     {
  432.       lErr = SAMP(ERR_INVALID_PARAM);
  433.     }
  435.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u", lErr, id);
  436.   END_CASE
  438.   CASE_CMD ("OS_TimerCancel")
  439.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  440.     SAMP(UInt32)  id;
  442.     TH_GetParam (OPTIONS, "%u", &id);
  443.     lErr = SAMP(OS_TimerCancel)(id);
  445.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u", lErr);
  446.   END_CASE
  448.   CASE_CMD ("OS_GetTime")
  449.     SAMP(ErrCode) lErr = SAMP(ERR_OK);
  450.     SAMP(UInt32)  ticks;
  452.     lErr = SAMP(OS_GetTime)(&ticks);
  454.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%u%u", lErr, ticks);
  455.   END_CASE
  456. #endif
  458.   DEFAULT
  459.     SAMP(TH_Send)(COMP_PREFIX, cmd, "%s", "Unknown command");
  460.   END_CASE
  461. #endif
  462. END_GROUPFUNC
  464. /*******************************************************************************
  465. *                                 End of File
  466. *******************************************************************************/
  468. #endif