Bugs fixed for stdin and stdout.
authorWANG <wang@wang-OptiPlex-780.(none)>
Fri, 27 Sep 2013 15:07:30 +0000 (17:07 +0200)
committerWANG <wang@wang-OptiPlex-780.(none)>
Fri, 27 Sep 2013 15:07:30 +0000 (17:07 +0200)
examples/dilation/Makefile
examples/dilation/img_write.m
examples/primitives/Makefile
examples/sinwave/Makefile
interpreter/aux.ml
interpreter/faustio.ml
interpreter/main.ml

index 3d2c6dd..93a2ece 100644 (file)
@@ -2,10 +2,8 @@ SRC = dilation.dsp
 IMGIN = letter_j.png
 LINES = 150
 
 IMGIN = letter_j.png
 LINES = 150
 
-BASENAME = output
-FORMAT = csv
+CSVOUT = dilation.csv
 CSVIN = $(IMGIN:.png=.csv)
 CSVIN = $(IMGIN:.png=.csv)
-CSVOUT = $(BASENAME)1.$(FORMAT)
 IMGOUT = $(SRC:.dsp=.png)
 
 all: $(IMGOUT)
 IMGOUT = $(SRC:.dsp=.png)
 
 all: $(IMGOUT)
@@ -14,10 +12,10 @@ $(IMGOUT): $(CSVOUT)
        octave -qf img_write.m
 
 $(CSVOUT): $(SRC) $(CSVIN)
        octave -qf img_write.m
 
 $(CSVOUT): $(SRC) $(CSVIN)
-       faustine -f $(SRC) -i $(CSVIN) -l $(LINES) --oformat $(FORMAT) --obasename $(BASENAME)
+       faustine -f $(SRC) -l $(LINES) < $(CSVIN) 1> $@
 
 $(CSVIN): $(IMGIN)
        octave -qf img_read.m
 
 clean::
 
 $(CSVIN): $(IMGIN)
        octave -qf img_read.m
 
 clean::
-       rm -f gmon.out $(IMGOUT) $(BASENAME)*
+       rm -f gmon.out $(IMGOUT) $(CSVOUT)
index 574f59d..85d5b81 100644 (file)
@@ -1,4 +1,4 @@
 a = imread('letter_j.png' );
 a = imread('letter_j.png' );
-b = csvread('output1.csv' );
+b = csvread('dilation.csv' );
 imwrite(b, 'dilation.png');
 
 imwrite(b, 'dilation.png');
 
index fb73fc3..7494e85 100644 (file)
@@ -2,14 +2,12 @@ EXAMPLE = primitives
 SRC = $(EXAMPLE).dsp
 SAMPLES = 30
 
 SRC = $(EXAMPLE).dsp
 SAMPLES = 30
 
-BASENAME = output
-FORMAT = csv
-CSVOUT = $(BASENAME)1.$(FORMAT)
+FILEOUT = primitives.csv
 
 
-all: $(CSVOUT)
+all: $(FILEOUT)
 
 
-$(CSVOUT): $(SRC)
-       faustine -f $(SRC) -l $(SAMPLES) --oformat $(FORMAT) --obasename $(BASENAME)
+$(FILEOUT): $(SRC)
+       faustine -f $(SRC) -l $(SAMPLES) 1> $@ 2> toto.txt
 
 clean::
 
 clean::
-       rm -f gmon.out output*
+       rm -f gmon.out $(FILEOUT)
index 064b7c8..cdd957c 100644 (file)
@@ -7,7 +7,7 @@ WAVOUT = $(BASENAME)1.$(FORMAT)
 all: $(WAVOUT)
 
 $(WAVOUT): $(SRC)
 all: $(WAVOUT)
 
 $(WAVOUT): $(SRC)
-       faustine -f $< --obasename $(BASENAME) --oformat $(FORMAT)
+       faustine -f $< > sin.wav
 
 clean::
 
 clean::
-       rm -f gmon.out $(BASENAME)*
+       rm -f gmon.out $(BASENAME)* *.wav *~
index 5321349..0564c30 100644 (file)
@@ -34,3 +34,9 @@ let remainder_float : float -> float -> float =
     if (abs_float r) > ((abs_float f2) /. 2.) then
       (if r *. f2 > 0. then (r -. f2) else (r +. f2))
     else r;;
     if (abs_float r) > ((abs_float f2) /. 2.) then
       (if r *. f2 > 0. then (r -. f2) else (r +. f2))
     else r;;
+
+let format_of_file : string -> string = 
+  fun (path : string) ->
+    let fragments = Str.split (Str.regexp "\.") path in
+       let n = List.length fragments in
+       List.nth fragments (n - 1);;
index 47e07ce..9539bf3 100644 (file)
@@ -79,7 +79,7 @@ class waveio : io_type =
              Array.init n (fun i -> 
                _dir ^ _basename ^ (string_of_int (i + 1)) ^ ".wav") 
            else if n = 1 then 
              Array.init n (fun i -> 
                _dir ^ _basename ^ (string_of_int (i + 1)) ^ ".wav") 
            else if n = 1 then 
-             let () = Unix.unlink "_filename" in [|(_filename ^ ".wav")|]
+             let () = Unix.unlink _filename in [|_filename|]
            else raise (Faustine_IO_Error ("The process has several output signals, 
                        however stdout supports only one output signal. Please remove 
                        the '> " ^ _filename ^ "'.")) in
            else raise (Faustine_IO_Error ("The process has several output signals, 
                        however stdout supports only one output signal. Please remove 
                        the '> " ^ _filename ^ "'.")) in
@@ -141,7 +141,7 @@ class csvio : io_type =
              Array.init n (fun i -> 
                _dir ^ _basename ^ (string_of_int (i + 1)) ^ ".csv") 
            else if n = 1 then 
              Array.init n (fun i -> 
                _dir ^ _basename ^ (string_of_int (i + 1)) ^ ".csv") 
            else if n = 1 then 
-             let () = Unix.unlink _filename in [|(_filename ^ ".csv")|]
+             let () = Unix.unlink _filename in [|_filename|]
            else raise (Faustine_IO_Error ("The process has several output signals, 
                        however stdout supports only one output signal. Please remove 
                        the '> " ^ _filename ^ "'.")) in
            else raise (Faustine_IO_Error ("The process has several output signals, 
                        however stdout supports only one output signal. Please remove 
                        the '> " ^ _filename ^ "'.")) in
@@ -171,15 +171,9 @@ class iomanager =
     val mutable _format = ""
     val mutable _basename = ""
 
     val mutable _format = ""
     val mutable _basename = ""
 
-    method private grab_format : string -> string = 
-      fun (path : string) ->
-       let fragments = Str.split (Str.regexp "\.") path in
-       let n = List.length fragments in
-       List.nth fragments (n - 1)      
-
     method read : string list -> beam_type = 
       fun (paths : string list) ->
     method read : string list -> beam_type = 
       fun (paths : string list) ->
-       let formats = List.map self#grab_format paths in
+       let formats = List.map format_of_file paths in
        let read_one : string -> string -> beam_type = 
          fun (format : string) ->
            fun (path : string) ->
        let read_one : string -> string -> beam_type = 
          fun (format : string) ->
            fun (path : string) ->
@@ -206,12 +200,19 @@ class iomanager =
     method write : rate array -> data -> string array = 
       fun (rates : rate array) ->
        fun (data : data) ->
     method write : rate array -> data -> string array = 
       fun (rates : rate array) ->
        fun (data : data) ->
-         if _format = "" then
-           raise (Invalid_argument "output format unset.")
-         else if _format = "wav" then 
-           wave#write rates data
-         else if _format = "csv" then
-           csv#write rates data 
-         else raise (Invalid_argument "unknown format.")
-       
+         if _output_filename = "" then (
+           if _format = "" then
+             raise (Invalid_argument "output format unset.")
+           else if _format = "wav" then 
+             wave#write rates data
+           else if _format = "csv" then
+             csv#write rates data 
+           else raise (Invalid_argument "unknown format."))
+         else (
+           let format = format_of_file _output_filename in
+           if format = "wav" then
+             wave#write rates data
+           else if format = "csv" then
+             csv#write rates data
+           else raise (Invalid_argument ("unknown format" ^ format)))
   end;;
   end;;
index 2f102f3..3c5ef42 100644 (file)
@@ -35,7 +35,7 @@ let inputs = ref [];;
 let time_max = ref 0xFFFF;;
 let dir_output = ref "";;
 let format_output = ref "csv";;
 let time_max = ref 0xFFFF;;
 let dir_output = ref "";;
 let format_output = ref "csv";;
-let basename_output = ref "output";;
+let basename_output = ref "";;
 let output = ref "";;
 
 let option_usage = "usage: " ^ Sys.argv.(0) 
 let output = ref "";;
 
 let option_usage = "usage: " ^ Sys.argv.(0)