[1873] | 1 | /* |
---|
| 2 | * ---------------------------------------------------------------------- |
---|
| 3 | * Rappture::MediaPlayer |
---|
| 4 | * |
---|
| 5 | * This is an interface to the rappture movieplayer module. |
---|
| 6 | * It allows you to grab image frames from mpeg movies using ffmpeg. |
---|
| 7 | * ====================================================================== |
---|
| 8 | * AUTHOR: Derrick Kearney, Purdue University |
---|
[3177] | 9 | * Copyright (c) 2004-2012 HUBzero Foundation, LLC |
---|
[1873] | 10 | * |
---|
| 11 | * See the file "license.terms" for information on usage and |
---|
| 12 | * redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
---|
| 13 | * ====================================================================== |
---|
| 14 | */ |
---|
| 15 | #include <tcl.h> |
---|
| 16 | #include "RpMediaPlayer.h" |
---|
| 17 | |
---|
| 18 | extern "C" Tcl_AppInitProc RpMediaPlayer_Init; |
---|
| 19 | |
---|
| 20 | #include "RpOp.h" |
---|
| 21 | |
---|
| 22 | static Tcl_ObjCmdProc MediaPlayerCmd; |
---|
| 23 | static Tcl_ObjCmdProc MediaPlayerCallCmd; |
---|
| 24 | static Tcl_ObjCmdProc InitOp; |
---|
| 25 | static Tcl_ObjCmdProc LoadOp; |
---|
| 26 | static Tcl_ObjCmdProc ReadOp; |
---|
| 27 | static Tcl_ObjCmdProc ReleaseOp; |
---|
| 28 | |
---|
| 29 | static Rp_OpSpec rpMediaPlayerOps[] = { |
---|
| 30 | {"init", 1, (void *)InitOp, 3, 3, "<path>",}, |
---|
| 31 | {"load", 1, (void *)LoadOp, 3, 3, "<path>",}, |
---|
| 32 | {"read", 1, (void *)ReadOp, 2, 2, "",}, |
---|
| 33 | {"release", 1, (void *)ReleaseOp, 2, 2, "",}, |
---|
| 34 | }; |
---|
| 35 | |
---|
| 36 | static int nRpMediaPlayerOps = sizeof(rpMediaPlayerOps) / sizeof(Rp_OpSpec); |
---|
| 37 | |
---|
| 38 | /* |
---|
| 39 | * ------------------------------------------------------------------------ |
---|
| 40 | * RpMediaPlayer_Init() |
---|
| 41 | * |
---|
| 42 | * Called in Rappture_Init() to initialize the commands defined |
---|
| 43 | * in this file. |
---|
| 44 | * ------------------------------------------------------------------------ |
---|
| 45 | */ |
---|
| 46 | int |
---|
| 47 | RpMediaPlayer_Init(Tcl_Interp *interp) |
---|
| 48 | { |
---|
| 49 | |
---|
| 50 | Tcl_CreateObjCommand(interp, "::Rappture::MediaPlayer", |
---|
| 51 | MediaPlayerCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); |
---|
| 52 | |
---|
| 53 | return TCL_OK; |
---|
| 54 | } |
---|
| 55 | |
---|
| 56 | /* |
---|
| 57 | * USAGE: MediaPlayer <file> |
---|
| 58 | */ |
---|
| 59 | static int |
---|
| 60 | MediaPlayerCmd(ClientData clientData, Tcl_Interp *interp, int objc, |
---|
| 61 | Tcl_Obj* const *objv) |
---|
| 62 | { |
---|
| 63 | char cmdName[64]; |
---|
| 64 | static int movieCount = 0; |
---|
| 65 | const char *filename = Tcl_GetString(objv[1]); |
---|
| 66 | Rappture::Outcome context; |
---|
| 67 | |
---|
| 68 | // create a new command |
---|
| 69 | Rappture::MediaPlayer *movie = new Rappture::MediaPlayer(); |
---|
| 70 | if (!movie->init(context, filename)) { |
---|
| 71 | Tcl_AppendResult(interp, context.remark(), "\n", |
---|
| 72 | context.context(), (char*)NULL); |
---|
| 73 | return TCL_ERROR; |
---|
| 74 | } |
---|
| 75 | |
---|
| 76 | sprintf(cmdName,"::movieObj%d",movieCount); |
---|
| 77 | |
---|
| 78 | Tcl_CreateObjCommand(interp, cmdName, MediaPlayerCallCmd, |
---|
| 79 | (ClientData)movie, (Tcl_CmdDeleteProc*)NULL); |
---|
| 80 | |
---|
| 81 | Tcl_AppendResult(interp, cmdName, (char*)NULL); |
---|
| 82 | return TCL_OK; |
---|
| 83 | } |
---|
| 84 | |
---|
| 85 | |
---|
| 86 | static int |
---|
| 87 | MediaPlayerCallCmd(ClientData clientData, Tcl_Interp *interp, int objc, |
---|
| 88 | Tcl_Obj *const *objv) |
---|
| 89 | { |
---|
| 90 | Tcl_ObjCmdProc *proc; |
---|
| 91 | |
---|
| 92 | proc = (Tcl_ObjCmdProc *)Rp_GetOpFromObj(interp, nRpMediaPlayerOps, rpMediaPlayerOps, |
---|
| 93 | RP_OP_ARG1, objc, objv, 0); |
---|
| 94 | |
---|
| 95 | if (proc == NULL) { |
---|
| 96 | return TCL_ERROR; |
---|
| 97 | } |
---|
| 98 | return (*proc)(clientData, interp, objc, objv); |
---|
| 99 | } |
---|
| 100 | |
---|
| 101 | /**********************************************************************/ |
---|
| 102 | // FUNCTION: InitOp() |
---|
| 103 | /// initialize a movie player object |
---|
| 104 | /** |
---|
| 105 | * Initialize a movie player object with the video located at <path> |
---|
| 106 | * Full function call: |
---|
| 107 | * |
---|
| 108 | * init <path> |
---|
| 109 | * |
---|
| 110 | * <path> is the path of a video file. |
---|
| 111 | */ |
---|
| 112 | static int |
---|
| 113 | InitOp (ClientData clientData, Tcl_Interp *interp, int objc, |
---|
| 114 | Tcl_Obj *const *objv) |
---|
| 115 | { |
---|
| 116 | Rappture::Outcome context; |
---|
| 117 | const char *path = NULL; // path of video |
---|
| 118 | |
---|
| 119 | path = Tcl_GetString(objv[0]); |
---|
| 120 | |
---|
| 121 | if (! ((Rappture::MediaPlayer *) clientData)->init(context, path) ) { |
---|
| 122 | Tcl_AppendResult(interp, context.remark(), "\n", |
---|
| 123 | context.context(), (char*)NULL); |
---|
| 124 | return TCL_ERROR; |
---|
| 125 | } |
---|
| 126 | |
---|
| 127 | return TCL_OK; |
---|
| 128 | } |
---|
| 129 | |
---|
| 130 | /**********************************************************************/ |
---|
| 131 | // FUNCTION: LoadOp() |
---|
| 132 | /// Load a new video into the movie player object |
---|
| 133 | /** |
---|
| 134 | * Load a new video into the movie player object |
---|
| 135 | * Full function call: |
---|
| 136 | * |
---|
| 137 | * load <path> |
---|
| 138 | * |
---|
| 139 | * <path> is the path of a video file. |
---|
| 140 | */ |
---|
| 141 | static int |
---|
| 142 | LoadOp (ClientData clientData, Tcl_Interp *interp, int objc, |
---|
| 143 | Tcl_Obj *const *objv) |
---|
| 144 | { |
---|
| 145 | Rappture::Outcome context; |
---|
| 146 | const char *path = NULL; // path of video |
---|
| 147 | |
---|
| 148 | path = Tcl_GetString(objv[2]); |
---|
| 149 | |
---|
| 150 | if (! ((Rappture::MediaPlayer *) clientData)->load(context, path) ) { |
---|
| 151 | Tcl_AppendResult(interp, context.remark(), "\n", |
---|
| 152 | context.context(), (char*)NULL); |
---|
| 153 | return TCL_ERROR; |
---|
| 154 | } |
---|
| 155 | |
---|
| 156 | return TCL_OK; |
---|
| 157 | } |
---|
| 158 | |
---|
| 159 | /**********************************************************************/ |
---|
| 160 | // FUNCTION: ReadOp() |
---|
| 161 | /// Read frames from a video |
---|
| 162 | /** |
---|
| 163 | * Read frames from a video and return them as images |
---|
| 164 | * Full function call: |
---|
| 165 | * |
---|
| 166 | * read |
---|
| 167 | * |
---|
| 168 | */ |
---|
| 169 | static int |
---|
| 170 | ReadOp (ClientData clientData, Tcl_Interp *interp, int objc, |
---|
| 171 | Tcl_Obj *const *objv) |
---|
| 172 | { |
---|
| 173 | Rappture::Outcome context; |
---|
| 174 | Rappture::SimpleCharBuffer sb; |
---|
| 175 | |
---|
| 176 | if (((Rappture::MediaPlayer *)clientData)->read(context, &sb) != 1 ) { |
---|
| 177 | Tcl_AppendResult(interp, context.remark(), "\n", |
---|
| 178 | context.context(), (char*)NULL); |
---|
| 179 | return TCL_ERROR; |
---|
| 180 | } |
---|
| 181 | |
---|
| 182 | Tcl_SetByteArrayObj(Tcl_GetObjResult(interp), |
---|
| 183 | (const unsigned char*)sb.bytes(), sb.size()); |
---|
| 184 | |
---|
| 185 | return TCL_OK; |
---|
| 186 | } |
---|
| 187 | |
---|
| 188 | /**********************************************************************/ |
---|
| 189 | // FUNCTION: ReleaseOp() |
---|
| 190 | /// Clean up memory from an open video in a movie player object |
---|
| 191 | /** |
---|
| 192 | * Close all file handles and free allocated memory associated with an |
---|
| 193 | * open video in a movie player object. |
---|
| 194 | * Full function call: |
---|
| 195 | * |
---|
| 196 | * close |
---|
| 197 | * |
---|
| 198 | */ |
---|
| 199 | static int |
---|
| 200 | ReleaseOp (ClientData clientData, Tcl_Interp *interp, int objc, |
---|
| 201 | Tcl_Obj *const *objv) |
---|
| 202 | { |
---|
| 203 | Rappture::Outcome context; |
---|
| 204 | |
---|
| 205 | if (! ((Rappture::MediaPlayer *) clientData)->release() ) { |
---|
| 206 | Tcl_AppendResult(interp, context.remark(), "\n", |
---|
| 207 | context.context(), (char*)NULL); |
---|
| 208 | return TCL_ERROR; |
---|
| 209 | } |
---|
| 210 | |
---|
| 211 | Tcl_ResetResult(interp); |
---|
| 212 | return TCL_OK; |
---|
| 213 | } |
---|
| 214 | |
---|