Pipe recording experiments

[code/pulserecorder.git] / pulserecorder

diff --git a/pulserecorder b/pulserecorder
index 7d3860e56f3efcedcaee992a56bad6152cd5c297..5dad254431cae55d6a3cbb5ec14b99993ce64420 100755 (executable)
--- a/pulserecorder
+++ b/pulserecorder
@@ -152,13 +152,23 @@ load_module() {
 }
 
 move_source_to_sink() {
 }
 
 move_source_to_sink() {

-  local c;
+  local c d;

   c=$(pactl list short sink-inputs | sed -rne "s,^${1}[[:space:]]+([[:digit:]]+).+,\1,p")
   c=$(pactl list short sink-inputs | sed -rne "s,^${1}[[:space:]]+([[:digit:]]+).+,\1,p")

+  d="$(pactl list short sinks | sed -rne "s,^${c}[[:space:]]+([^[:space:]]+).+,\1,p")"
+  case "$d" in
+    (record-to-file-*)
+      # Never restore to a record-to-file destination, or it could botch
+      # another recording
+      c="@DEFAULT_SINK@"
+      ;;
+    (*) :;;
+  esac
+  echo >&2 "Moving input $1 to sink $2 (restore to $c) …"

   cleanup_hook pactl move-sink-input $1 $c
   pactl move-sink-input $1 $2
 }
 
   cleanup_hook pactl move-sink-input $1 $c
   pactl move-sink-input $1 $2
 }
 

-if false; then
+if [ -n "${PAREC_PIPE:-}" ]; then

   # This would be great, but it does not work. For instance, trying this on
   # audible meant that audible would play at maximum speed (3h played in 3
   # minutes), but the result would be full of skips, making me think that
   # This would be great, but it does not work. For instance, trying this on
   # audible meant that audible would play at maximum speed (3h played in 3
   # minutes), but the result would be full of skips, making me think that


@@ -167,8 +177,11 @@ if false; then
 
   load_module module-pipe-sink "$devname" "$devname" file="$TMPDIR/outfifo"
   move_source_to_sink $index "$devname"
 
   load_module module-pipe-sink "$devname" "$devname" file="$TMPDIR/outfifo"
   move_source_to_sink $index "$devname"

-  oggenc --raw -q5 -o "$outfile" "$TMPDIR/outfifo" || :
-  #pv -pterb "$TMPDIR/outfifo" > $TMPDIR/outfile.wav || :
+  #oggenc --raw -q5 -o "$outfile" "$TMPDIR/outfifo" || :
+  pv -pterb "$TMPDIR/outfifo" > $TMPDIR/outfile.wav &
+  pid=$!
+  pa_wait_for_event sink-input remove $index >/dev/null
+  kill $pid

 
 else
   # More traditional approach, which just takes 1:1 time.
 
 else
   # More traditional approach, which just takes 1:1 time.