Merge "res_pjsip: Implement additional SIP RFCs for Google Voice trunk compatability"
[asterisk/asterisk.git] / formats / format_sln.c
index d155b09..80d3484 100644 (file)
 
 /*! \file
  *
- * \brief RAW SLINEAR Format
- * \arg File name extensions: sln, raw
+ * \brief RAW SLINEAR Formats
  * \ingroup formats
  */
-#include <unistd.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-#include <stdlib.h>
-#include <sys/time.h>
-#include <stdio.h>
-#include <errno.h>
-#include <string.h>
 
-#include "asterisk.h"
+/*** MODULEINFO
+       <support_level>core</support_level>
+ ***/
 
-ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
+#include "asterisk.h"
 
-#include "asterisk/lock.h"
-#include "asterisk/channel.h"
-#include "asterisk/file.h"
-#include "asterisk/logger.h"
-#include "asterisk/sched.h"
+#include "asterisk/mod_format.h"
 #include "asterisk/module.h"
 #include "asterisk/endian.h"
+#include "asterisk/format_cache.h"
 
-#define BUF_SIZE 320           /* 320 samples */
-
-struct ast_filestream {
-       void *reserved[AST_RESERVED_POINTERS];
-       /* This is what a filestream means to us */
-       FILE *f; /* Descriptor */
-       struct ast_channel *owner;
-       struct ast_frame fr;                            /* Frame information */
-       char waste[AST_FRIENDLY_OFFSET];        /* Buffer for sending frames, etc */
-       char empty;                                                     /* Empty character */
-       unsigned char buf[BUF_SIZE];                            /* Output Buffer */
-       struct timeval last;
-};
-
-
-AST_MUTEX_DEFINE_STATIC(slinear_lock);
-static int glistcnt = 0;
-
-static char *name = "sln";
-static char *desc = "Raw Signed Linear Audio support (SLN)";
-static char *exts = "sln|raw";
-
-static struct ast_filestream *slinear_open(FILE *f)
+static struct ast_frame *generic_read(struct ast_filestream *s, int *whennext, unsigned int buf_size)
 {
-       /* We don't have any header to read or anything really, but
-          if we did, it would go here.  We also might want to check
-          and be sure it's a valid file.  */
-       struct ast_filestream *tmp;
-       if ((tmp = malloc(sizeof(struct ast_filestream)))) {
-               memset(tmp, 0, sizeof(struct ast_filestream));
-               if (ast_mutex_lock(&slinear_lock)) {
-                       ast_log(LOG_WARNING, "Unable to lock slinear list\n");
-                       free(tmp);
-                       return NULL;
-               }
-               tmp->f = f;
-               tmp->fr.data = tmp->buf;
-               tmp->fr.frametype = AST_FRAME_VOICE;
-               tmp->fr.subclass = AST_FORMAT_SLINEAR;
-               /* datalen will vary for each frame */
-               tmp->fr.src = name;
-               tmp->fr.mallocd = 0;
-               glistcnt++;
-               ast_mutex_unlock(&slinear_lock);
-               ast_update_use_count();
-       }
-       return tmp;
-}
+       size_t res;
 
-static struct ast_filestream *slinear_rewrite(FILE *f, const char *comment)
-{
-       /* We don't have any header to read or anything really, but
-          if we did, it would go here.  We also might want to check
-          and be sure it's a valid file.  */
-       struct ast_filestream *tmp;
-       if ((tmp = malloc(sizeof(struct ast_filestream)))) {
-               memset(tmp, 0, sizeof(struct ast_filestream));
-               if (ast_mutex_lock(&slinear_lock)) {
-                       ast_log(LOG_WARNING, "Unable to lock slinear list\n");
-                       free(tmp);
-                       return NULL;
-               }
-               tmp->f = f;
-               glistcnt++;
-               ast_mutex_unlock(&slinear_lock);
-               ast_update_use_count();
-       } else
-               ast_log(LOG_WARNING, "Out of memory\n");
-       return tmp;
-}
-
-static void slinear_close(struct ast_filestream *s)
-{
-       if (ast_mutex_lock(&slinear_lock)) {
-               ast_log(LOG_WARNING, "Unable to lock slinear list\n");
-               return;
-       }
-       glistcnt--;
-       ast_mutex_unlock(&slinear_lock);
-       ast_update_use_count();
-       fclose(s->f);
-       free(s);
-       s = NULL;
-}
-
-static struct ast_frame *slinear_read(struct ast_filestream *s, int *whennext)
-{
-       int res;
-       int delay;
        /* Send a frame from the file to the appropriate channel */
-
-       s->fr.frametype = AST_FRAME_VOICE;
-       s->fr.subclass = AST_FORMAT_SLINEAR;
-       s->fr.offset = AST_FRIENDLY_OFFSET;
-       s->fr.mallocd = 0;
-       s->fr.data = s->buf;
-       if ((res = fread(s->buf, 1, BUF_SIZE, s->f)) < 1) {
-               if (res)
-                       ast_log(LOG_WARNING, "Short read (%d) (%s)!\n", res, strerror(errno));
+       AST_FRAME_SET_BUFFER(&s->fr, s->buf, AST_FRIENDLY_OFFSET, buf_size);
+       if ((res = fread(s->fr.data.ptr, 1, s->fr.datalen, s->f)) < 1) {
+               if (res) {
+                       ast_log(LOG_WARNING, "Short read of %s data (expected %d bytes, read %zu): %s\n",
+                                       ast_format_get_name(s->fr.subclass.format), s->fr.datalen, res,
+                                       strerror(errno));
+               }
                return NULL;
        }
-       s->fr.samples = res/2;
+       *whennext = s->fr.samples = res/2;
        s->fr.datalen = res;
-       delay = s->fr.samples;
-       *whennext = delay;
        return &s->fr;
 }
 
 static int slinear_write(struct ast_filestream *fs, struct ast_frame *f)
 {
        int res;
-       if (f->frametype != AST_FRAME_VOICE) {
-               ast_log(LOG_WARNING, "Asked to write non-voice frame!\n");
-               return -1;
-       }
-       if (f->subclass != AST_FORMAT_SLINEAR) {
-               ast_log(LOG_WARNING, "Asked to write non-slinear frame (%d)!\n", f->subclass);
-               return -1;
+
+       /* Don't try to write an interpolated frame */
+       if (f->datalen == 0) {
+               return 0;
        }
-       if ((res = fwrite(f->data, 1, f->datalen, fs->f)) != f->datalen) {
+
+       if ((res = fwrite(f->data.ptr, 1, f->datalen, fs->f)) != f->datalen) {
                        ast_log(LOG_WARNING, "Bad write (%d/%d): %s\n", res, f->datalen, strerror(errno));
                        return -1;
        }
        return 0;
 }
 
-static int slinear_seek(struct ast_filestream *fs, long sample_offset, int whence)
+static int slinear_seek(struct ast_filestream *fs, off_t sample_offset, int whence)
 {
-       off_t offset=0,min,cur,max;
+       off_t offset=0, min = 0, cur, max;
 
-       min = 0;
        sample_offset <<= 1;
-       cur = ftell(fs->f);
-       fseek(fs->f, 0, SEEK_END);
-       max = ftell(fs->f);
+
+       if ((cur = ftello(fs->f)) < 0) {
+               ast_log(AST_LOG_WARNING, "Unable to determine current position in sln filestream %p: %s\n", fs, strerror(errno));
+               return -1;
+       }
+
+       if (fseeko(fs->f, 0, SEEK_END) < 0) {
+               ast_log(AST_LOG_WARNING, "Unable to seek to end of sln filestream %p: %s\n", fs, strerror(errno));
+               return -1;
+       }
+
+       if ((max = ftello(fs->f)) < 0) {
+               ast_log(AST_LOG_WARNING, "Unable to determine max position in sln filestream %p: %s\n", fs, strerror(errno));
+               return -1;
+       }
+
        if (whence == SEEK_SET)
                offset = sample_offset;
        else if (whence == SEEK_CUR || whence == SEEK_FORCECUR)
@@ -189,59 +99,191 @@ static int slinear_seek(struct ast_filestream *fs, long sample_offset, int whenc
        }
        /* always protect against seeking past begining. */
        offset = (offset < min)?min:offset;
-       return fseek(fs->f, offset, SEEK_SET);
+       return fseeko(fs->f, offset, SEEK_SET);
 }
 
 static int slinear_trunc(struct ast_filestream *fs)
 {
-       return ftruncate(fileno(fs->f), ftell(fs->f));
-}
+       int fd;
+       off_t cur;
 
-static long slinear_tell(struct ast_filestream *fs)
-{
-       off_t offset;
-       offset = ftell(fs->f);
-       return offset / 2;
+       if ((fd = fileno(fs->f)) < 0) {
+               ast_log(AST_LOG_WARNING, "Unable to determine file descriptor for sln filestream %p: %s\n", fs, strerror(errno));
+               return -1;
+       }
+       if ((cur = ftello(fs->f)) < 0) {
+               ast_log(AST_LOG_WARNING, "Unable to determine current position in sln filestream %p: %s\n", fs, strerror(errno));
+               return -1;
+       }
+       /* Truncate file to current length */
+       return ftruncate(fd, cur);
 }
 
-static char *slinear_getcomment(struct ast_filestream *s)
+static off_t slinear_tell(struct ast_filestream *fs)
 {
-       return NULL;
+       return ftello(fs->f) / 2;
 }
 
-int load_module()
-{
-       return ast_format_register(name, exts, AST_FORMAT_SLINEAR,
-                                                               slinear_open,
-                                                               slinear_rewrite,
-                                                               slinear_write,
-                                                               slinear_seek,
-                                                               slinear_trunc,
-                                                               slinear_tell,
-                                                               slinear_read,
-                                                               slinear_close,
-                                                               slinear_getcomment);
-                                                               
-                                                               
-}
+static struct ast_frame *slinear_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 320);}
+static struct ast_format_def slin_f = {
+       .name = "sln",
+       .exts = "sln|raw",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear_read,
+       .buf_size = 320 + AST_FRIENDLY_OFFSET,
+};
 
-int unload_module()
-{
-       return ast_format_unregister(name);
-}      
+static struct ast_frame *slinear12_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 480);}
+static struct ast_format_def slin12_f = {
+       .name = "sln12",
+       .exts = "sln12",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear12_read,
+       .buf_size = 480 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear16_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 640);}
+static struct ast_format_def slin16_f = {
+       .name = "sln16",
+       .exts = "sln16",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear16_read,
+       .buf_size = 640 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear24_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 960);}
+static struct ast_format_def slin24_f = {
+       .name = "sln24",
+       .exts = "sln24",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear24_read,
+       .buf_size = 960 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear32_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 1280);}
+static struct ast_format_def slin32_f = {
+       .name = "sln32",
+       .exts = "sln32",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear32_read,
+       .buf_size = 1280 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear44_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 1764);}
+static struct ast_format_def slin44_f = {
+       .name = "sln44",
+       .exts = "sln44",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear44_read,
+       .buf_size = 1764 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear48_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 1920);}
+static struct ast_format_def slin48_f = {
+       .name = "sln48",
+       .exts = "sln48",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear48_read,
+       .buf_size = 1920 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear96_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 3840);}
+static struct ast_format_def slin96_f = {
+       .name = "sln96",
+       .exts = "sln96",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear96_read,
+       .buf_size = 3840 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_frame *slinear192_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 7680);}
+static struct ast_format_def slin192_f = {
+       .name = "sln192",
+       .exts = "sln192",
+       .write = slinear_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear192_read,
+       .buf_size = 7680 + AST_FRIENDLY_OFFSET,
+};
+
+static struct ast_format_def *slin_list[] = {
+       &slin_f,
+       &slin12_f,
+       &slin16_f,
+       &slin24_f,
+       &slin32_f,
+       &slin44_f,
+       &slin48_f,
+       &slin96_f,
+       &slin192_f,
+};
 
-int usecount()
+static int unload_module(void)
 {
-       return glistcnt;
+       int res = 0;
+       int i = 0;
+
+       for (i = 0; i < ARRAY_LEN(slin_list); i++) {
+               if (ast_format_def_unregister(slin_list[i]->name)) {
+                       res = -1;
+               }
+       }
+       return res;
 }
 
-char *description()
+static int load_module(void)
 {
-       return desc;
-}
+       int i;
 
+       slin_f.format = ast_format_slin;
+       slin12_f.format = ast_format_slin12;
+       slin16_f.format = ast_format_slin16;
+       slin24_f.format = ast_format_slin24;
+       slin32_f.format = ast_format_slin32;
+       slin44_f.format = ast_format_slin44;
+       slin48_f.format = ast_format_slin48;
+       slin96_f.format = ast_format_slin96;
+       slin192_f.format = ast_format_slin192;
 
-char *key()
-{
-       return ASTERISK_GPL_KEY;
+       for (i = 0; i < ARRAY_LEN(slin_list); i++) {
+               if (ast_format_def_register(slin_list[i])) {
+                       unload_module();
+                       return AST_MODULE_LOAD_DECLINE;
+               }
+       }
+
+       return AST_MODULE_LOAD_SUCCESS;
 }
+
+AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_LOAD_ORDER, "Raw Signed Linear Audio support (SLN) 8khz-192khz",
+       .support_level = AST_MODULE_SUPPORT_CORE,
+       .load = load_module,
+       .unload = unload_module,
+       .load_pri = AST_MODPRI_APP_DEPEND
+);