workbench/c/Play.c

   1 /*
   2     Copyright © 2012, 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/S
  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.0,              "Play a sound file using DataTypes\n",
  76 AROS_SHAH(STRPTR, ,FILE   ,  ,NULL ,  "File to play\n") )
  77 {
  78     AROS_SHCOMMAND_INIT
  79
  80     struct Library *DataTypesBase;
  81     STRPTR file = SHArg(FILE);
  82
  83     SetIoErr(RETURN_FAIL);
  84
  85     if (file != NULL) {
  86         if ((DataTypesBase = OpenLibrary("datatypes.library", 0))) {
  87             Object *o;
  88             if ((o = NewDTObject(file, TAG_END))) {
  89                 if (isPlayable(DataTypesBase, o)) {
  90                     struct dtTrigger msg;
  91                     msg.MethodID          = DTM_TRIGGER;
  92                     msg.dtt_GInfo         = NULL;
  93                     msg.dtt_Function      = STM_PLAY;
  94                     msg.dtt_Data          = NULL;
  95                     if (0 == DoDTMethodA(o, NULL, NULL, (Msg)&msg)) {
  96                         SetIoErr(0);
  97                     } else {
  98                         Printf("Can't play \"%s\"\n", file);
  99                         SetIoErr(RETURN_FAIL);
 100                     }
 101                 } else {
 102                     Printf("\"%s\" is not a DataType playable sound file\n", file);
 103                     SetIoErr(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     } else {
 114         /* No file supplied - quiet success */
 115         SetIoErr(0);
 116     }
 117
 118     return IoErr();
 119
 120     AROS_SHCOMMAND_EXIT
 121 }
 122