[CM] Disk full with SND files in /tmp

[e deleflie]

All,

I've got a script that runs the script below 10 times (it reads a 4
channel file, passes it through a LADSPA plugin, then writes 4 mono
files).

I've just noticed that my hard drive is getting fuller and fuller,
even though I've been erasing the output of the script.

I did a search for recnelty modified files and found that /tmp is
filling up with very large files named snd_xxx_0.snd

Have I done something wrong in the script below? (I _do_close the
original file). I'm running SND version 7.9 (until I fix the compile
errors posted in the previous email).

regards,
Etienne



> -----------------------------------------------------------------
> #!/usr/bin/snd -b
> !#
> (use-modules (ice-9 format))
> ; set some global variables
> (set! (sinc-width) 100); set the sync width to very high to get the
> smaple rate conversion as accurate as possible
> (if (not (= (length (script-args)) 3)) ;
>         (display "usage: decode_to_square.sh file-name")
>         (begin
>                 (let ((name (list-ref (script-args) (+ (script-arg) 1)) ))
>                         (let ((index (open-sound name)))
>                                 (display (format #f "header is ~a (or
> ~a) \n" (header-type index) (mus-header-type-name (header-type index))
> ))
>                                 (display (format #f "data-format is ~a
> (or ~a) \n" (data-format index) (mus-data-format-name (data-format
> index) ) ))
>                                 (display (format #f "Resampling from
> ~D to 44100 \n" (srate index)))
>
>                                 ; resample
>                                 (src-sound (/ (srate index) 44100) 1.0 index)
>
>                                 ; apply LADSPA plugin that converts to
> 4 speaker feeds in a square
>                                 (apply-ladspa   (list
> (make-sample-reader 0 0 0)  ; W
>
> (make-sample-reader 0 0 1)  ; X
>
> (make-sample-reader 0 0 2)  ; Y
>
> (make-sample-reader 0 0 3)) ; Z
>                                                 (list "ambis1"
> "Ambisonics-square-decoder" 0 1 1.4138 2 380 2.7)
>                                                 (mus-sound-frames name)
>                                                 "ambisonic file")
>
>                                 ; now convert the 4 channels into 4
> mono wav files, and write to disk
>                                 (do ((i 0 (1+ i)))
>                                            ((= i 4))
>                                         (display (format #f "writing
> channel ~D\n" i))
>                                         (save-sound-as (format #f "~a.~a" name
>                                                                 (case i
>
>  ((0) "LFront.wav")
>
>  ((1) "RFront.wav")
>
>  ((2) "RSurround.wav")
>
>  ((3) "LSurround.wav")
>
>  (else "lost")
>                                                                 )
>                                                         )
>                                                         index
>                                                         :header-type
> mus-riff ; (value= 3) RIFF header (for Microsoft WAVE)
>                                                         :data-format
> mus-l24int ; (value= 16) 24 Bit little endian int
>                                                         :srate 44100 ;
> the sound is already resampled, so lets set the appropriate file
> header
>                                                         :channel i)
>                                 )
>                                 (close-sound index)
>                         )
>               )
>        )
> )
> (exit)
>