adding NAS plugin

Original commit message from CVS:
adding NAS plugin

11 files changed, 821 insertions, 16 deletions

diff --git a/ChangeLog b/ChangeLog
index 6e5f93a5..daffeed0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2004-01-21  Christian Schaller <uraeus@gnome.org>
+
+	* ext/nas/
+	Add libnas (network audio system) plugin, patch from Arwed von Merkatz
+	based on earlier patch from Laurent Vivier
+
 2004-01-20  Jeremy Simon  <jesimon@libertysurf.fr>
 
 	* ext/ffmpeg/gstffmpegcodecmap.c: (gst_ffmpeg_caps_to_extradata):
diff --git a/Makefile.am b/Makefile.am
index fc5fd046..db020efa 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -25,8 +25,8 @@ SUBDIRS=gst-libs \
 	po \
 	pkgconfig
 
-DIST_SUBDIRS=gst-libs \
-	gst sys ext \
+DIST_SUBDIRS=ext gst-libs \
+	gst sys \
 	examples \
 	tools \
 	gconf \
diff --git a/TODO b/TODO
index c7769749..21b862be 100644
--- a/TODO
+++ b/TODO
@@ -38,3 +38,5 @@
 * check if we can drop some of the AC_SUBST's for libs and cflags
 
 * the mikmod author needs to drop the lib from the name ;)
+
+* Port wavparse plugin to use our rifflib - Ask Ronald Bultje for details
diff --git a/configure.ac b/configure.ac
index a8af0ae6..0fa8bc55 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1219,6 +1219,21 @@ GST_CHECK_FEATURE(MUSICBRAINZ, [musicbrainz], musicbrainz, [
   AC_SUBST(MUSICBRAINZ_LIBS)
 ])
 
+dnl *** nas ***
+translit(dnm, m, l) AM_CONDITIONAL(USE_NAS, true)
+GST_CHECK_FEATURE(NAS, [nas plug-in], nassink, [
+  HAVE_NAS="no"
+  if test "x$HAVE_X" = "xyes"; then
+    save_cppflags=$CFLAGS
+    CPPFLAGS="$CPPFLAGS $X_CFLAGS"
+    GST_CHECK_LIBHEADER(NAS, audio, AuOpenServer, $X_LIBS, audio/audiolib.h,
+      NAS_LIBS="$X_LIBS -laudio" NAS_CFLAGS="$X_CFLAGS")
+    CPPFLAGS="$save_cppflags"
+  fi
+  AC_SUBST(NAS_CFLAGS)
+  AC_SUBST(NAS_LIBS)
+])
+
 dnl *** pango ***
 translit(dnm, m, l) AM_CONDITIONAL(USE_PANGO, true)
 GST_CHECK_FEATURE(PANGO, [pango], pango, [
@@ -1659,6 +1674,7 @@ ext/mpeg2dec/Makefile
 ext/mpeg2enc/Makefile
 ext/mplex/Makefile
 ext/musicbrainz/Makefile
+ext/nas/Makefile
 ext/ogg/Makefile
 ext/pango/Makefile
 ext/raw1394/Makefile
diff --git a/ext/Makefile.am b/ext/Makefile.am
index 36a605ff..b5eb1491 100644
--- a/ext/Makefile.am
+++ b/ext/Makefile.am
@@ -82,6 +82,12 @@ else
 FAAD_DIR=
 endif
 
+if USE_NAS
+NAS_DIR=nas
+else
+NAS_DIR=
+endif
+
 ## if USE_FESTIVAL
 ## FESTIVAL_DIR=festival
 ## else
@@ -322,6 +328,7 @@ SUBDIRS=\
 	$(DVDREAD_DIR) \
 	$(DVDNAV_DIR) \
 	$(ESD_DIR) \
+	$(NAS_DIR) \
 	$(FAAC_DIR) \
 	$(FAAD_DIR) \
 	$(FFMPEG_DIR) \
@@ -376,6 +383,7 @@ DIST_SUBDIRS=\
 	dvdread \
 	dvdnav \
 	esd \
+	nas \
 	mas \
 	faac \
 	faad \
@@ -401,6 +409,7 @@ DIST_SUBDIRS=\
 	mpeg2enc \
 	mplex \
 	musicbrainz \
+	nas \
 	ogg \
 	pango \
 	raw1394 \
diff --git a/ext/nas/Makefile.am b/ext/nas/Makefile.am
new file mode 100644
index 00000000..d9fe3cb7
--- /dev/null
+++ b/ext/nas/Makefile.am
@@ -0,0 +1,9 @@
+plugin_LTLIBRARIES = libgstnassink.la
+
+libgstnassink_la_SOURCES = nassink.c
+libgstnassink_la_CFLAGS = $(GST_CFLAGS) $(NAS_CFLAGS)
+libgstnassink_la_LIBADD = $(NAS_LIBS)
+libgstnassink_la_LDFLAGS = $(GST_PLUGIN_LDFLAGS)
+
+noinst_HEADERS = nassink.h
+EXTRA_DIST = README
diff --git a/ext/nas/README b/ext/nas/README
new file mode 100644
index 00000000..34b563c6
--- /dev/null
+++ b/ext/nas/README
@@ -0,0 +1,8 @@
+The nassink plugin
+==================
+
+The nassink plugin is for outputting an audio stream to a Network Audio Server (NCD X/Terminal)
+
+nassink has arguments that it accepts:
+ - 'mute'      (boolean value)
+ - 'host'      (name of X/Terminal, default is $AUDIOSERVER or $DISPLAY)
diff --git a/ext/nas/nassink.c b/ext/nas/nassink.c
new file mode 100644
index 00000000..45862750
--- /dev/null
+++ b/ext/nas/nassink.c
@@ -0,0 +1,643 @@
+/* GStreamer
+ * Copyright (C) <2003> Laurent Vivier <Laurent.Vivier@bull.net>
+ * Copyright (C) <2004> Arwed v. Merkatz <v.merkatz@gmx.net>
+ *
+ * Based on esdsink.c:
+ * Copyright (C) <2001> Richard Boulton <richard-gst@tartarus.org>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+#include <gst/gst.h>
+#include <string.h>
+#include <audio/audiolib.h>
+#include <audio/soundlib.h>
+#include "nassink.h"
+
+#define NAS_SOUND_PORT_DURATION	(2)
+
+/* Signals and args */
+enum {
+  /* FILL ME */
+  LAST_SIGNAL
+};
+
+enum {
+  ARG_0,
+  ARG_MUTE,
+  ARG_HOST
+};
+
+static GstStaticPadTemplate sink_factory =
+GST_STATIC_PAD_TEMPLATE (
+  "sink",
+  GST_PAD_SINK,
+  GST_PAD_ALWAYS,
+  GST_STATIC_CAPS(
+    "audio/x-raw-int, "
+      "endianess = (int) BYTE_ORDER, "
+      "signed = (boolean) TRUE, "
+      "width = (int) 16, "
+      "depth = (int) 16, "
+      "rate = (int) [ 8000, 96000 ], "
+      "channels = (int) [ 1, 2 ]; "
+    "audio/x-raw-int, "
+      "signed = (boolean) FALSE, "
+      "width = (int) 8, "
+      "depth = (int) 8, "
+      "rate = (int) [ 8000, 96000 ], "
+      "channels = (int) [ 1, 2 ]"
+  )
+);
+
+static void                     gst_nassink_base_init           (gpointer g_class);
+static void			gst_nassink_class_init		(GstNassinkClass *klass);
+static void			gst_nassink_init		(GstNassink *nassink);
+
+static gboolean			gst_nassink_open_audio		(GstNassink *sink);
+static void			gst_nassink_close_audio		(GstNassink *sink);
+static GstElementStateReturn	gst_nassink_change_state	(GstElement *element);
+static gboolean			gst_nassink_sync_parms		(GstNassink *nassink);
+static GstPadLinkReturn		gst_nassink_sinkconnect		(GstPad *pad, const GstCaps *caps);
+
+static void			gst_nassink_chain		(GstPad *pad, GstData *_data);
+
+static void			gst_nassink_set_property	(GObject *object, guint prop_id, 
+								 const GValue *value, GParamSpec *pspec);
+static void			gst_nassink_get_property	(GObject *object, guint prop_id, 
+								 GValue *value, GParamSpec *pspec);
+
+static void			NAS_flush			(GstNassink *sink);
+static void			NAS_sendData			(GstNassink *sink, AuUint32 numBytes);
+static AuBool			NAS_EventHandler		(AuServer *aud, AuEvent *ev, AuEventHandlerRec *handler);
+static AuDeviceID		NAS_getDevice			(AuServer* aud, int numTracks);
+static int			NAS_allocBuffer			(GstNassink *sink);
+static int			NAS_createFlow			(GstNassink *sink, unsigned char format, unsigned short rate, int numTracks);
+
+static GstElementClass *parent_class = NULL;
+
+GType
+gst_nassink_get_type (void)
+{
+  static GType nassink_type = 0;
+
+  if (!nassink_type) {
+    static const GTypeInfo nassink_info = {
+      sizeof(GstNassinkClass),
+      gst_nassink_base_init,
+      NULL,
+      (GClassInitFunc)gst_nassink_class_init,
+      NULL,
+      NULL,
+      sizeof(GstNassink),
+      0,
+      (GInstanceInitFunc)gst_nassink_init,
+    };
+    nassink_type = g_type_register_static(GST_TYPE_ELEMENT, "GstNassink", &nassink_info, 0);
+  }
+
+  return nassink_type;
+}
+
+static void
+gst_nassink_base_init (gpointer g_class)
+{
+  static GstElementDetails nassink_details = {
+    "NAS sink",
+    "Sink/Audio",
+    "Plays audio to a Network Audio Server",
+    "Laurent Vivier <Laurent.Vivier@bull.net>, "
+    "Arwed v. Merkatz <v.merkatz@gmx.net>"
+  };
+  GstElementClass *element_class = GST_ELEMENT_CLASS (g_class);
+
+  gst_element_class_add_pad_template (element_class,
+      gst_static_pad_template_get (&sink_factory));
+  gst_element_class_set_details (element_class, &nassink_details);
+}
+
+static void
+gst_nassink_class_init (GstNassinkClass *klass)
+{
+  GObjectClass *gobject_class;
+  GstElementClass *gstelement_class;
+
+  gobject_class = (GObjectClass*)klass;
+  gstelement_class = (GstElementClass*)klass;
+
+  if (parent_class == NULL)
+    parent_class = g_type_class_ref(GST_TYPE_ELEMENT);
+
+  gobject_class->set_property = gst_nassink_set_property;
+  gobject_class->get_property = gst_nassink_get_property;
+
+  g_object_class_install_property(G_OBJECT_CLASS(klass), ARG_MUTE,
+    g_param_spec_boolean("mute","mute","mute",
+                         TRUE,G_PARAM_READWRITE)); /* CHECKME */
+  g_object_class_install_property(G_OBJECT_CLASS(klass), ARG_HOST,
+    g_param_spec_string("host","host","host",
+                        NULL, G_PARAM_READWRITE)); /* CHECKME */
+
+  gstelement_class->change_state = gst_nassink_change_state;
+}
+
+static void
+gst_nassink_init(GstNassink *nassink)
+{
+  nassink->sinkpad = gst_pad_new_from_template (
+      gst_static_pad_template_get (&sink_factory), "sink");
+  gst_element_add_pad(GST_ELEMENT(nassink), nassink->sinkpad);
+  gst_pad_set_chain_function(nassink->sinkpad, GST_DEBUG_FUNCPTR(gst_nassink_chain));
+  gst_pad_set_link_function(nassink->sinkpad, gst_nassink_sinkconnect);
+
+  nassink->mute = FALSE;
+  nassink->depth = 16;
+  nassink->tracks = 2;
+  nassink->rate = 44100;
+  nassink->host = g_strdup (getenv("AUDIOSERVER"));
+  if (nassink->host == NULL)
+    nassink->host = g_strdup (getenv("DISPLAY"));
+
+  nassink->audio = NULL;
+  nassink->flow = AuNone;
+  nassink->size = 0;
+  nassink->pos = 0;
+  nassink->buf = NULL;
+}
+
+static gboolean
+gst_nassink_sync_parms (GstNassink *nassink)
+{
+  gint ret;
+  unsigned char format;
+  g_return_val_if_fail (nassink != NULL, FALSE);
+  g_return_val_if_fail (GST_IS_NASSINK (nassink), FALSE);
+
+  if (nassink->audio == NULL) return TRUE;
+
+  if (nassink->flow != AuNone)
+  {
+    while (nassink->pos && nassink->buf)
+      NAS_flush(nassink);
+    AuStopFlow( nassink->audio, nassink->flow, NULL);
+    AuReleaseScratchFlow(nassink->audio, nassink->flow, NULL);
+    nassink->flow = AuNone;
+  }
+
+  if (nassink->depth == 16)
+#if G_BYTE_ORDER == G_BIG_ENDIAN
+    format = AuFormatLinearSigned16MSB;
+#else
+    format = AuFormatLinearSigned16LSB;
+#endif
+  else
+    format = AuFormatLinearUnsigned8;
+
+  ret = NAS_createFlow(nassink, format, nassink->rate, nassink->tracks);
+
+  return ret >= 0;
+}
+
+static GstPadLinkReturn
+gst_nassink_sinkconnect (GstPad *pad, const GstCaps *caps)
+{
+  GstNassink *nassink;
+  GstStructure *structure;
+
+  nassink = GST_NASSINK (gst_pad_get_parent (pad));
+
+  structure = gst_caps_get_structure (caps, 0);
+
+  gst_structure_get_int (structure, "depth", &nassink->depth);
+  gst_structure_get_int (structure, "channels", &nassink->tracks);
+  gst_structure_get_int (structure, "rate", &nassink->rate);
+
+  if (!gst_nassink_sync_parms(nassink))
+    return GST_PAD_LINK_REFUSED;
+
+  return GST_PAD_LINK_OK;
+}
+
+static void
+gst_nassink_chain (GstPad *pad, GstData *_data)
+{
+  GstBuffer *buf = GST_BUFFER (_data);
+  int pos = 0;
+  int remaining;
+  int available;
+  GstNassink *nassink;
+
+  g_return_if_fail(pad != NULL);
+  g_return_if_fail(GST_IS_PAD(pad));
+  g_return_if_fail(buf != NULL);
+
+  nassink = GST_NASSINK (gst_pad_get_parent (pad));
+
+  g_return_if_fail(nassink->buf != NULL);
+
+  if (GST_BUFFER_DATA (buf) != NULL) {
+    if (!nassink->mute && nassink->audio != NULL) {
+      GST_DEBUG ("nassink: data=%p size=%d", GST_BUFFER_DATA (buf), GST_BUFFER_SIZE (buf));
+
+      remaining = GST_BUFFER_SIZE (buf);
+      while ((nassink->flow != AuNone) && ( remaining > 0)) {
+
+        /* number of bytes we can copy to buffer */
+     
+        available = remaining > nassink->size - nassink->pos ?
+		    nassink->size - nassink->pos : remaining;
+
+	/* fill the buffer */
+
+	memcpy (nassink->buf + nassink->pos, GST_BUFFER_DATA (buf) + pos, available);
+
+	nassink->pos += available;
+	pos += available;
+
+	remaining -= available;
+
+	/* if we have more bytes, need to flush the buffer */
+
+	if (remaining > 0) {
+	  while ((nassink->flow != AuNone) && (nassink->pos == nassink->size)) {
+	    NAS_flush(nassink);
+	  }
+	}
+      }
+
+      /* give some time to event handler */
+
+      AuSync(nassink->audio, AuFalse);
+
+    }
+  }
+  gst_buffer_unref (buf);
+}
+
+static void
+gst_nassink_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec)
+{
+  GstNassink *nassink;
+
+  /* it's not null if we got it, but it might not be ours */
+  g_return_if_fail(GST_IS_NASSINK(object));
+  nassink = GST_NASSINK(object);
+
+  switch (prop_id) {
+  case ARG_MUTE:
+    nassink->mute = g_value_get_boolean (value);
+    break;
+  case ARG_HOST:
+    if (nassink->host != NULL) g_free(nassink->host);
+    if (g_value_get_string (value) == NULL)
+        nassink->host = NULL;
+    else
+        nassink->host = g_strdup (g_value_get_string (value));
+    break;
+  default:
+    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
+    break;
+  }
+}
+
+static void
+gst_nassink_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec)
+{
+  GstNassink *nassink;
+
+  g_return_if_fail(GST_IS_NASSINK(object));
+
+  nassink = GST_NASSINK(object);
+
+  switch (prop_id) {
+  case ARG_MUTE:
+    g_value_set_boolean (value, nassink->mute);
+    break;
+  case ARG_HOST:
+    g_value_set_string (value, nassink->host);
+    break;
+  default:
+    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
+    break;
+  }
+}
+
+static gboolean
+plugin_init (GstPlugin *plugin)
+{
+  if (!gst_element_register (plugin, "nassink", GST_RANK_NONE,
+        GST_TYPE_NASSINK)){
+    return FALSE;
+  }
+
+  return TRUE;
+}
+
+GST_PLUGIN_DEFINE (
+  GST_VERSION_MAJOR,
+  GST_VERSION_MINOR,
+  "nassink",
+  "uses NAS for audio output",
+  plugin_init,
+  VERSION,
+  "LGPL",
+  GST_PACKAGE,
+  GST_ORIGIN
+);
+
+static gboolean
+gst_nassink_open_audio (GstNassink *sink)
+{
+  /* Open Server */
+
+  sink->audio = AuOpenServer(sink->host, 0, NULL, 0, NULL, NULL);
+  if (sink->audio == NULL)
+    return FALSE;
+
+  sink->flow = AuNone;
+  sink->size = 0;
+  sink->pos = 0;
+  sink->buf = NULL;
+
+  /* Start a flow */
+
+  GST_FLAG_SET (sink, GST_NASSINK_OPEN);
+
+  return TRUE;
+}
+
+static void
+gst_nassink_close_audio (GstNassink *sink)
+{
+  if (sink->audio == NULL) return;
+
+  if (sink->flow != AuNone) {
+    while (sink->pos && sink->buf) {
+      NAS_flush(sink);
+    }
+
+    AuStopFlow( sink->audio, sink->flow, NULL);
+    AuReleaseScratchFlow(sink->audio, sink->flow, NULL);
+    sink->flow = AuNone;
+  }
+
+  if (sink->buf != NULL)
+  {
+    free(sink->buf);
+    sink->buf = NULL;
+  }
+
+  AuCloseServer(sink->audio);
+  sink->audio = NULL;
+
+  GST_FLAG_UNSET (sink, GST_NASSINK_OPEN);
+
+  GST_DEBUG ("nassink: closed sound device");
+}
+
+static GstElementStateReturn
+gst_nassink_change_state (GstElement *element)
+{
+  GstNassink *nassink;
+  g_return_val_if_fail (GST_IS_NASSINK (element), FALSE);
+
+  nassink = GST_NASSINK (element);
+
+  switch (GST_STATE_PENDING (element)) {
+  case GST_STATE_NULL:
+    if (GST_FLAG_IS_SET (element, GST_NASSINK_OPEN))
+      gst_nassink_close_audio (nassink);
+    break;
+
+  case GST_STATE_READY:
+    if (!GST_FLAG_IS_SET (element, GST_NASSINK_OPEN))
+      gst_nassink_open_audio (nassink);
+    break;
+
+  case GST_STATE_PAUSED:
+    while (nassink->pos && nassink->buf)
+      NAS_flush(nassink);
+    break;
+
+  case GST_STATE_PLAYING:
+    break;
+  }
+
+  if (GST_ELEMENT_CLASS (parent_class)->change_state)
+    return GST_ELEMENT_CLASS (parent_class)->change_state (element);
+
+  return GST_STATE_SUCCESS;
+}
+
+static void
+NAS_flush(GstNassink *sink)
+{
+  AuEvent ev;
+
+  AuNextEvent(sink->audio, AuTrue, &ev);
+  AuDispatchEvent(sink->audio, &ev);
+}
+
+static void
+NAS_sendData(GstNassink *sink, AuUint32 numBytes)
+{
+  if (numBytes < (sink->pos)) {
+
+    AuWriteElement(sink->audio, sink->flow, 0,
+		   numBytes, sink->buf, AuFalse, NULL);
+
+    memmove(sink->buf, sink->buf + numBytes,
+	    sink->pos - numBytes);
+
+    sink->pos = sink->pos - numBytes;
+
+  } else
+  {
+    AuWriteElement(sink->audio, sink->flow, 0,
+		   sink->pos, sink->buf,
+		   (numBytes > sink->pos), NULL);
+    sink->pos = 0;
+  }
+}
+
+static AuBool
+NAS_EventHandler(AuServer *aud, AuEvent *ev, AuEventHandlerRec *handler)
+{
+  GstNassink *sink = (GstNassink *)handler->data;
+  AuElementNotifyEvent *notify;
+
+  switch (ev->type) {
+
+  case AuEventTypeElementNotify:
+
+    notify = (AuElementNotifyEvent *) ev;
+
+    switch(notify->kind) {
+
+    case AuElementNotifyKindLowWater:
+      NAS_sendData(sink, notify->num_bytes);
+      break;
+
+    case AuElementNotifyKindState:
+
+      switch(notify->cur_state) {
+
+      case AuStateStop:
+	 
+	if (sink->flow != AuNone) {
+	  if (notify->reason == AuReasonEOF)
+	    AuStopFlow(handler->aud, sink->flow, NULL);
+	  AuReleaseScratchFlow(handler->aud, sink->flow, NULL);
+	  sink->flow = AuNone;
+	}
+	AuUnregisterEventHandler(handler->aud, handler);
+        break;
+
+      case AuStatePause:
+
+        switch(notify->reason) {
+	case AuReasonUnderrun:
+	case AuReasonOverrun:
+	case AuReasonEOF:
+	case AuReasonWatermark:
+
+	  NAS_sendData(sink, notify->num_bytes);
+
+	  break;
+
+	case AuReasonHardware:
+
+	  if (AuSoundRestartHardwarePauses)
+	    AuStartFlow(handler->aud, sink->flow, NULL);
+	  else
+	    AuStopFlow(handler->aud, sink->flow, NULL);
+
+	  break;
+	}
+        break;
+      }
+      break;
+    }
+    break;
+  }
+
+  return AuTrue;
+}
+
+static AuDeviceID
+NAS_getDevice(AuServer* aud, int numTracks)
+{
+  int i;
+
+  for (i = 0; i < AuServerNumDevices(aud); i++) {
+    if ( (AuDeviceKind(AuServerDevice(aud, i))
+	 == AuComponentKindPhysicalOutput) &&
+         (AuDeviceNumTracks(AuServerDevice(aud, i)) == numTracks )) {
+
+      return AuDeviceIdentifier(AuServerDevice(aud, i));
+
+    }
+  }
+
+  return AuNone;
+}
+
+static int
+NAS_allocBuffer(GstNassink *sink)
+{
+  if (sink->buf != NULL) {
+    free(sink->buf);
+  }
+
+  sink->buf = (char *) malloc(sink->size);
+  if (sink->buf == NULL) {
+    return -1;
+  }
+
+  sink->pos = 0;
+
+  return 0;
+}
+
+static int
+NAS_createFlow(GstNassink *sink, unsigned char format, unsigned short rate, int numTracks)
+{
+  AuDeviceID device;
+  AuElement elements[2];
+  AuUint32 buf_samples;
+
+  device = NAS_getDevice(sink->audio, numTracks);
+  if (device == AuNone) {
+    return -1;
+  }
+
+  sink->flow = AuGetScratchFlow(sink->audio, NULL);
+  if (sink->flow == 0) {
+    return -1;
+  }
+
+  buf_samples = rate * NAS_SOUND_PORT_DURATION;
+
+  AuMakeElementImportClient( &elements[0],		/* element */
+                             rate,			/* rate */
+                             format,			/* format */
+                             numTracks,			/* number of tracks */
+                             AuTrue,			/* discart */
+                             buf_samples,		/* max samples */
+                             (AuUint32) (buf_samples / 100
+                                      * AuSoundPortLowWaterMark),
+							/* low water mark */
+                             0,				/* num actions */
+                             NULL);
+
+  AuMakeElementExportDevice( &elements[1],		/* element */
+                             0,				/* input */
+                             device,			/* device */
+                             rate,			/* rate */
+                             AuUnlimitedSamples,	/* num samples */
+                             0,				/* num actions */
+                             NULL);			/* actions */
+
+  AuSetElements( sink->audio,				/* server */
+                 sink->flow,				/* flow ID */
+                 AuTrue,				/* clocked */
+                 2,					/* num elements */
+                 elements,				/* elements */
+                 NULL);
+
+  AuRegisterEventHandler( sink->audio,			/* server */
+                          AuEventHandlerIDMask,		/* value mask */
+                          0,				/* type */
+                          sink->flow,			/* flow ID */
+                          NAS_EventHandler,		/* callback */
+                          (AuPointer)sink);		/* data */
+
+  sink->size = buf_samples * numTracks * AuSizeofFormat(format);
+
+  if (NAS_allocBuffer(sink) < 0) {
+
+    AuReleaseScratchFlow(sink->audio, sink->flow, NULL);
+
+    return -1;
+  }
+
+  AuStartFlow(sink->audio, sink->flow, NULL);
+
+  return 0;
+}
diff --git a/ext/nas/nassink.h b/ext/nas/nassink.h
new file mode 100644
index 00000000..abc4c9f9
--- /dev/null
+++ b/ext/nas/nassink.h
@@ -0,0 +1,88 @@
+/* GStreamer
+ * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+
+#ifndef __GST_NASSINK_H__
+#define __GST_NASSINK_H__
+
+#include <gst/gst.h>
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+
+#define GST_TYPE_NASSINK \
+  (gst_nassink_get_type())
+#define GST_NASSINK(obj) \
+  (G_TYPE_CHECK_INSTANCE_CAST((obj),GST_TYPE_NASSINK,GstNassink))
+#define GST_NASSINK_CLASS(klass) \
+  (G_TYPE_CHECK_CLASS_CAST((klass),GST_TYPE_NASSINK,GstNassink))
+#define GST_IS_NASSINK(obj) \
+  (G_TYPE_CHECK_INSTANCE_TYPE((obj),GST_TYPE_NASSINK))
+#define GST_IS_NASSINK_CLASS(obj) \
+  (G_TYPE_CHECK_CLASS_TYPE((klass),GST_TYPE_NASSINK))
+
+typedef enum {
+  GST_NASSINK_OPEN            = GST_ELEMENT_FLAG_LAST,
+  GST_NASSINK_FLAG_LAST       = GST_ELEMENT_FLAG_LAST+2
+} GstNasSinkFlags;
+
+typedef struct _GstNassink GstNassink;
+typedef struct _GstNassinkClass GstNassinkClass;
+
+struct _GstNassink {
+  GstElement element;
+
+  GstPad *sinkpad;
+
+  /* instance properties */
+
+  gboolean mute;
+  gint depth;
+  gint tracks;
+  gint rate;
+  gchar* host;
+
+  /* Server info */
+
+  AuServer *audio;
+  AuFlowID flow;
+
+  /* buffer */
+
+  AuUint32 size;
+  AuUint32 pos;
+
+  char *buf;
+};
+
+struct _GstNassinkClass {
+  GstElementClass parent_class;
+};
+
+GType gst_nassink_get_type(void);
+
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+
+#endif /* __GST_NASSINK_H__ */
diff --git a/gst-plugins.spec.in b/gst-plugins.spec.in
index 63aa74ff..0d8985fd 100644
--- a/gst-plugins.spec.in
+++ b/gst-plugins.spec.in
@@ -385,7 +385,6 @@ GStreamer support libraries header files.
 @USE_AALIB_TRUE@Summary:        GStreamer plug-in for libcaca Ascii-art output.
 @USE_AALIB_TRUE@Group:          Libraries/Multimedia
 @USE_AALIB_TRUE@Requires:       gstreamer-plugins = %{version}
-@USE_AALIB_TRUE@Requires:       libcaca >= 0.7
 @USE_AALIB_TRUE@BuildRequires:  libcaca-devel >= 0.7
 @USE_AALIB_TRUE@
 @USE_AALIB_TRUE@%description -n gstreamer-libcaca
@@ -637,6 +636,28 @@ Plug-ins for playback of AVI format media files.
 @USE_JACK_TRUE@%{_bindir}/gst-register-%{majorminor} > /dev/null 2> /dev/null
 @USE_JACK_TRUE@### %{_bindir}/gst-compprep > /dev/null 2> /dev/null
 
+#### NETWORK AUDIO SYSTEM  ###
+@USE_NAS_TRUE@%package -n gstreamer-nas
+@USE_NAS_TRUE@Summary:  GStreamer plug-in for the Network Audio System.
+@USE_NAS_TRUE@Group:    Libraries/Multimedia
+@USE_NAS_TRUE@Requires: gstreamer-plugins = %{version}
+@USE_NAS_TRUE@Requires: libnas2 => 1.6
+@USE_NAS_TRUE@
+@USE_NAS_TRUE@%description -n gstreamer-nas
+@USE_NAS_TRUE@Plug-in for the Network Audio System sound server.
+@USE_NAS_TRUE@
+@USE_NAS_TRUE@%files -n gstreamer-nas
+@USE_NAS_TRUE@%defattr(-, root, root)
+@USE_NAS_TRUE@%{_libdir}/gstreamer-%{majorminor}/libgstnassink.so
+@USE_NAS_TRUE@
+@USE_NAS_TRUE@%post -n gstreamer-nas
+@USE_NAS_TRUE@%{_bindir}/gst-register-%{majorminor} > /dev/null 2> /dev/null
+@USE_NAS_TRUE@### %{_bindir}/gst-compprep > /dev/null 2> /dev/null
+@USE_NAS_TRUE@
+@USE_NAS_TRUE@%postun -n gstreamer-nas
+@USE_NAS_TRUE@%{_bindir}/gst-register-%{majorminor} > /dev/null 2> /dev/null
+
+
 ### LADSPA ###
 @USE_LADSPA_TRUE@%package -n gstreamer-ladspa
 @USE_LADSPA_TRUE@Summary:       GStreamer wrapper for LADSPA plug-ins.
@@ -887,6 +908,9 @@ Plug-in for playing ASF movies under GStreamer.
 
 
 %changelog
+* Wed Jan 21 2004 Christian Schaller <Uraeus@gnome.org>
+- added NAS plugin
+
 * Fri Jan 16 2004 Christian Schaller <uraeus@gnome.org>
 - added libcaca plugin
 - added libgstcolorspace - fixed name of libgsthermescolorspace
diff --git a/po/nl.po b/po/nl.po
index 60dd6a85..68beb7f2 100644
--- a/po/nl.po
+++ b/po/nl.po
@@ -7,7 +7,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: gst-plugins\n"
 "Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2004-01-19 16:09+0100\n"
+"POT-Creation-Date: 2004-01-20 23:32+0100\n"
 "PO-Revision-Date: 2004-01-13 12:03+0100\n"
 "Last-Translator: Thomas Vander Stichele <thomas@apestaart.org>\n"
 "Language-Team: Dutch <nl@li.org>\n"
@@ -15,17 +15,17 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: ext/audiofile/gstafsink.c:345 ext/sndfile/gstsf.c:601
+#: ext/audiofile/gstafsink.c:350 ext/sndfile/gstsf.c:601
 #, c-format
 msgid "Could not open file \"%s\" for writing"
 msgstr "Kon bestand \"%s\" niet openen voor schrijven"
 
-#: ext/audiofile/gstafsink.c:368 ext/audiofile/gstafsrc.c:372
+#: ext/audiofile/gstafsink.c:373 ext/audiofile/gstafsrc.c:378
 #, c-format
 msgid "Error closing file \"%s\""
 msgstr "Kon bestand \"%s\" niet sluiten"
 
-#: ext/audiofile/gstafsrc.c:314
+#: ext/audiofile/gstafsrc.c:320
 #, c-format
 msgid "Could not open file \"%s\" for reading"
 msgstr "Kon bestand \"%s\" niet openen voor lezen"
@@ -58,47 +58,47 @@ msgstr "Kon niet schrijven naar bestand \"%s\""
 msgid "No or invalid input audio, AVI stream will be corrupt"
 msgstr "Geen of foutief invoergeluid, AVI zal corrupt zijn"
 
-#: sys/dxr3/dxr3audiosink.c:313
+#: sys/dxr3/dxr3audiosink.c:314
 #, c-format
 msgid "Could not open audio device \"%s\" for writing"
 msgstr "Kon audio-apparaat \"%s\" niet openen voor schrijven"
 
-#: sys/dxr3/dxr3audiosink.c:325 sys/dxr3/dxr3videosink.c:292
+#: sys/dxr3/dxr3audiosink.c:326 sys/dxr3/dxr3videosink.c:293
 #, c-format
 msgid "Could not open control device \"%s\" for writing"
 msgstr "Kon controle-apparaat \"%s\" niet openen voor schrijven"
 
-#: sys/dxr3/dxr3audiosink.c:359
+#: sys/dxr3/dxr3audiosink.c:360
 #, c-format
 msgid "Could not configure audio device \"%s\""
 msgstr "Kon audio-apparaat \"%s\" niet configureren"
 
-#: sys/dxr3/dxr3audiosink.c:373 sys/dxr3/dxr3audiosink.c:410
+#: sys/dxr3/dxr3audiosink.c:374 sys/dxr3/dxr3audiosink.c:411
 #, c-format
 msgid "Could not set audio device \"%s\" to %d Hz"
 msgstr "Kon audio-apparaat \"%s\" niet instellen op %d Hz"
 
-#: sys/dxr3/dxr3audiosink.c:438
+#: sys/dxr3/dxr3audiosink.c:439
 #, c-format
 msgid "Could not close audio device \"%s\""
 msgstr "Kon audio-apparaat \"%s\" niet sluiten"
 
-#: sys/dxr3/dxr3audiosink.c:445 sys/dxr3/dxr3videosink.c:319
+#: sys/dxr3/dxr3audiosink.c:446 sys/dxr3/dxr3videosink.c:320
 #, c-format
 msgid "Could not close control device \"%s\""
 msgstr "Kon controle-apparaat \"%s\" niet sluiten"
 
-#: sys/dxr3/dxr3videosink.c:280
+#: sys/dxr3/dxr3videosink.c:281
 #, c-format
 msgid "Could not open video device \"%s\" for writing"
 msgstr "Kon video-apparaat \"%s\" niet openen voor schrijven"
 
-#: sys/dxr3/dxr3videosink.c:311
+#: sys/dxr3/dxr3videosink.c:312
 #, c-format
 msgid "Could not close video device \"%s\""
 msgstr "Kon video-apparaat \"%s\" niet sluiten"
 
-#: sys/dxr3/dxr3videosink.c:467 sys/v4l2/v4l2src_calls.c:121
+#: sys/dxr3/dxr3videosink.c:468 sys/v4l2/v4l2src_calls.c:121
 #, c-format
 msgid "Could not write to device \"%s\""
 msgstr "Kon niet schrijven naar apparaat \"%s\""