Fix compilation on Snow Leopard/FreeBSD for pbx_spool.c
[asterisk/asterisk.git] / formats / format_sln.c
old mode 100755 (executable)
new mode 100644 (file)
index b7b309c..1a73cdf
 /*
- * Asterisk -- A telephony toolkit for Linux.
+ * Asterisk -- An open source telephony toolkit.
  *
- * RAW SLINEAR Format
+ * Copyright (C) 1999 - 2005, Anthony Minessale
  * Anthony Minessale (anthmct@yahoo.com)
- * Derived from format_pcm.c in the asterisk distro
+ *
+ * See http://www.asterisk.org for more information about
+ * the Asterisk project. Please do not directly contact
+ * any of the maintainers of this project for assistance;
+ * the project provides a web site, mailing lists and IRC
+ * channels for your use.
  *
  * This program is free software, distributed under the terms of
- * the GNU General Public License
+ * the GNU General Public License Version 2. See the LICENSE file
+ * at the top of the source tree.
+ */
+
+/*! \file
+ *
+ * \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>
 
+/*** MODULEINFO
+       <support_level>core</support_level>
+ ***/
 #include "asterisk.h"
 
 ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
 
-#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"
 
-#define BUF_SIZE 320           /* 320 samples */
-
-struct ast_filestream {
-       void *reserved[AST_RESERVED_POINTERS];
-       /* This is what a filestream means to us */
-       int fd; /* 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(int fd)
-{
-       /* 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->fd = fd;
-               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;
-}
-
-static struct ast_filestream *slinear_rewrite(int fd, 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->fd = fd;
-               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();
-       close(s->fd);
-       free(s);
-       s = NULL;
-}
-
-static struct ast_frame *slinear_read(struct ast_filestream *s, int *whennext)
+static struct ast_frame *generic_read(struct ast_filestream *s, int *whennext, unsigned int buf_size, enum ast_format_id id)
 {
        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;
+       ast_format_set(&s->fr.subclass.format, id, 0);
        s->fr.mallocd = 0;
-       s->fr.data = s->buf;
-       if ((res = read(s->fd, s->buf, BUF_SIZE)) < 1) {
+       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 (%d) (%s)!\n", 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)
+static int generic_write(struct ast_filestream *fs, struct ast_frame *f, enum ast_format_id id)
 {
        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);
+       if (f->subclass.format.id != id) {
+               ast_log(LOG_WARNING, "Asked to write non-slinear frame (%s)!\n", ast_getformatname(&f->subclass.format));
                return -1;
        }
-       if ((res = write(fs->fd, f->data, f->datalen)) != 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;
 
        min = 0;
        sample_offset <<= 1;
-       cur = lseek(fs->fd, 0, SEEK_CUR);
-       max = lseek(fs->fd, 0, SEEK_END);
+       cur = ftello(fs->f);
+       fseeko(fs->f, 0, SEEK_END);
+       max = ftello(fs->f);
        if (whence == SEEK_SET)
                offset = sample_offset;
        else if (whence == SEEK_CUR || whence == SEEK_FORCECUR)
@@ -175,66 +90,185 @@ 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 lseek(fs->fd, offset, SEEK_SET) / 2;
+       return fseeko(fs->f, offset, SEEK_SET);
 }
 
 static int slinear_trunc(struct ast_filestream *fs)
 {
-       return ftruncate(fs->fd, lseek(fs->fd,0,SEEK_CUR));
+       return ftruncate(fileno(fs->f), ftello(fs->f));
 }
 
-static long slinear_tell(struct ast_filestream *fs)
+static off_t slinear_tell(struct ast_filestream *fs)
 {
-       off_t offset;
-       offset = lseek(fs->fd, 0, SEEK_CUR);
-       return offset / 2;
+       return ftello(fs->f) / 2;
 }
 
-static char *slinear_getcomment(struct ast_filestream *s)
-{
-       return NULL;
-}
+static int slinear_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR);}
+static struct ast_frame *slinear_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 320, AST_FORMAT_SLINEAR);}
+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 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 int slinear12_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR12);}
+static struct ast_frame *slinear12_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 480, AST_FORMAT_SLINEAR12);}
+static struct ast_format_def slin12_f = {
+       .name = "sln12",
+       .exts = "sln12",
+       .write = slinear12_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear12_read,
+       .buf_size = 480 + AST_FRIENDLY_OFFSET,
+};
 
-int unload_module()
-{
-       return ast_format_unregister(name);
-}      
+static int slinear16_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR16);}
+static struct ast_frame *slinear16_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 640, AST_FORMAT_SLINEAR16);}
+static struct ast_format_def slin16_f = {
+       .name = "sln16",
+       .exts = "sln16",
+       .write = slinear16_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear16_read,
+       .buf_size = 640 + AST_FRIENDLY_OFFSET,
+};
+
+static int slinear24_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR24);}
+static struct ast_frame *slinear24_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 960, AST_FORMAT_SLINEAR24);}
+static struct ast_format_def slin24_f = {
+       .name = "sln24",
+       .exts = "sln24",
+       .write = slinear24_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear24_read,
+       .buf_size = 960 + AST_FRIENDLY_OFFSET,
+};
+
+static int slinear32_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR32);}
+static struct ast_frame *slinear32_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 1280, AST_FORMAT_SLINEAR32);}
+static struct ast_format_def slin32_f = {
+       .name = "sln32",
+       .exts = "sln32",
+       .write = slinear32_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear32_read,
+       .buf_size = 1280 + AST_FRIENDLY_OFFSET,
+};
+
+static int slinear44_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR44);}
+static struct ast_frame *slinear44_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 1764, AST_FORMAT_SLINEAR44);}
+static struct ast_format_def slin44_f = {
+       .name = "sln44",
+       .exts = "sln44",
+       .write = slinear44_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear44_read,
+       .buf_size = 1764 + AST_FRIENDLY_OFFSET,
+};
 
-int usecount()
+static int slinear48_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR48);}
+static struct ast_frame *slinear48_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 1920, AST_FORMAT_SLINEAR48);}
+static struct ast_format_def slin48_f = {
+       .name = "sln48",
+       .exts = "sln48",
+       .write = slinear48_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear48_read,
+       .buf_size = 1920 + AST_FRIENDLY_OFFSET,
+};
+
+static int slinear96_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR96);}
+static struct ast_frame *slinear96_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 3840, AST_FORMAT_SLINEAR96);}
+static struct ast_format_def slin96_f = {
+       .name = "sln96",
+       .exts = "sln96",
+       .write = slinear96_write,
+       .seek = slinear_seek,
+       .trunc = slinear_trunc,
+       .tell = slinear_tell,
+       .read = slinear96_read,
+       .buf_size = 3840 + AST_FRIENDLY_OFFSET,
+};
+
+static int slinear192_write(struct ast_filestream *fs, struct ast_frame *f){return generic_write(fs, f, AST_FORMAT_SLINEAR192);}
+static struct ast_frame *slinear192_read(struct ast_filestream *s, int *whennext){return generic_read(s, whennext, 7680, AST_FORMAT_SLINEAR192);}
+static struct ast_format_def slin192_f = {
+       .name = "sln192",
+       .exts = "sln192",
+       .write = slinear192_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,
+};
+
+static int load_module(void)
 {
-       int res;
-       if (ast_mutex_lock(&slinear_lock)) {
-               ast_log(LOG_WARNING, "Unable to lock slinear list\n");
-               return -1;
+       int i;
+       ast_format_set(&slin_f.format, AST_FORMAT_SLINEAR, 0);
+       ast_format_set(&slin12_f.format, AST_FORMAT_SLINEAR12, 0);
+       ast_format_set(&slin16_f.format, AST_FORMAT_SLINEAR16, 0);
+       ast_format_set(&slin24_f.format, AST_FORMAT_SLINEAR24, 0);
+       ast_format_set(&slin32_f.format, AST_FORMAT_SLINEAR32, 0);
+       ast_format_set(&slin44_f.format, AST_FORMAT_SLINEAR44, 0);
+       ast_format_set(&slin48_f.format, AST_FORMAT_SLINEAR48, 0);
+       ast_format_set(&slin96_f.format, AST_FORMAT_SLINEAR96, 0);
+       ast_format_set(&slin192_f.format, AST_FORMAT_SLINEAR192, 0);
+
+       for (i = 0; i < ARRAY_LEN(slin_list); i++) {
+               if (ast_format_def_register(slin_list[i])) {
+                       return AST_MODULE_LOAD_FAILURE;
+               }
        }
-       res = glistcnt;
-       ast_mutex_unlock(&slinear_lock);
-       return res;
-}
 
-char *description()
-{
-       return desc;
+       return AST_MODULE_LOAD_SUCCESS;
 }
 
-
-char *key()
+static int unload_module(void)
 {
-       return ASTERISK_GPL_KEY;
+       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 |= AST_MODULE_LOAD_FAILURE;
+               }
+       }
+       return res;
 }
+
+AST_MODULE_INFO(ASTERISK_GPL_KEY, AST_MODFLAG_LOAD_ORDER, "Raw Signed Linear Audio support (SLN) 8khz-192khz",
+       .load = load_module,
+       .unload = unload_module,
+       .load_pri = AST_MODPRI_APP_DEPEND
+);