workbench/c/Play.c

   1 /*
   2     Copyright © 2012-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12
  13         Play
  14
  15     SYNOPSIS
  16
  17         FILE/A
  18
  19     LOCATION
  20
  21         C:
  22
  23     FUNCTION
  24
  25         Play a sound file, using datatypes.library
  26
  27     INPUTS
  28
  29         FILE f   --  Filename to play
  30
  31     RESULT
  32
  33         Sound should play to the default audio device
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45     HISTORY
  46
  47 ******************************************************************************/
  48
  49 #define DEBUG 0
  50 #include <aros/debug.h>
  51
  52 #include <exec/memory.h>
  53 #include <proto/exec.h>
  54 #include <proto/dos.h>
  55 #include <proto/alib.h>
  56 #include <proto/datatypes.h>
  57
  58 #include <datatypes/datatypesclass.h>
  59 #include <datatypes/soundclass.h>
  60
  61 #include <aros/shcommands.h>
  62
  63 static inline BOOL isPlayable(struct Library *DataTypesBase, Object *obj)
  64 {
  65     struct DTMethod *dtm;
  66
  67     for (dtm = GetDTTriggerMethods(obj); dtm && dtm->dtm_Label; dtm++) {
  68         if (dtm->dtm_Method == STM_PLAY)
  69             return TRUE;
  70     }
  71
  72     return FALSE;
  73 }
  74
  75 AROS_SH1H(Play, 44.1, "Play a sound file using DataTypes\n",
  76 AROS_SHAH(STRPTR, , FILE, /A, NULL, "File to play\n"))
  77 {
  78     AROS_SHCOMMAND_INIT
  79
  80     LONG result = RETURN_FAIL;
  81     struct Library *DataTypesBase;
  82     STRPTR file = SHArg(FILE);
  83
  84     if ((DataTypesBase = OpenLibrary("datatypes.library", 0))) {
  85         Object *o;
  86         if ((o = NewDTObject(file, SDTA_SignalTask, FindTask(NULL),
  87             SDTA_SignalBitNumber, SIGB_SINGLE, TAG_END))) {
  88             if (isPlayable(DataTypesBase, o)) {
  89                 struct dtTrigger msg;
  90                 msg.MethodID          = DTM_TRIGGER;
  91                 msg.dtt_GInfo         = NULL;
  92                 msg.dtt_Function      = STM_PLAY;
  93                 msg.dtt_Data          = NULL;
  94                 if (0 == DoDTMethodA(o, NULL, NULL, (Msg)&msg)) {
  95                     Wait(SIGF_SINGLE | SIGBREAKF_CTRL_C);
  96                     result = RETURN_OK;
  97                 } else {
  98                     Printf("Can't play \"%s\"\n", file);
  99                     result = RETURN_FAIL;
 100                 }
 101             } else {
 102                 Printf("\"%s\" is not a DataType playable sound file\n", file);
 103                 result = RETURN_FAIL;
 104             }
 105             DisposeDTObject(o);
 106         } else {
 107             Printf("Can't open %s as a DataType object\n", file);
 108         }
 109         CloseLibrary(DataTypesBase);
 110     } else {
 111         Printf("Can't open datatypes.library\n");
 112     }
 113
 114     return result;
 115
 116     AROS_SHCOMMAND_EXIT
 117 }