X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/fc2ec49c325b99370170789886b4be4f43e16d68..b8e89a384896a4f8ce3e1990a10c88e7164af55c:/documentation/code_VALInterpreter.computing.html diff --git a/documentation/code_VALInterpreter.computing.html b/documentation/code_VALInterpreter.computing.html deleted file mode 100644 index dc3a81f..0000000 --- a/documentation/code_VALInterpreter.computing.html +++ /dev/null @@ -1,45 +0,0 @@ - - - - - - - - - - - - - - - - -Interpreter.computing - - -let computing = fun f -> fun width -> fun length ->
-        let container_float_array_array_array = 
-                ref (Array.make length (Array.make width [||])) in
-        let index = ref 0 in
-
-        try
-                while !index < length do
-                        (!container_float_array_array_array).(!index) 
-                                      <- (Array.map convert_back_R (f (!index)));
-                        incr index;
-                done;
-                !container_float_array_array_array
-
-        with x ->
-                let error_message = 
-                        match x with
-                        |Convert_Error s -> "Convert_Error: " ^ s
-                        |Value_operation s -> "Value_operation: " ^ s
-                        |Signal_operation s -> "Signal_operation: " ^ s
-                        |Beam_Matching_Error s -> "Beam_Matching_Error: " ^ s
-                        |Evaluation_Error s -> "Evaluation_Error: " ^ s
-                        |NotYetDone -> "NotYetDone"
-                        |-> "Compute finished."
-                in
-                let () = print_endline error_message in
-                Array.sub (!container_float_array_array_array) 0 !index
\ No newline at end of file