projet-traduction-langage/testPlacement.ml

(*

open Compilateur
open PasseTdsRat
open PasseTypeRat
open PassePlacementRat
open Passe

(* Return la liste des adresses des variables d'un programme RAT *)
let getListeDep ratfile =
  let input = open_in ratfile in
  let filebuf = Lexing.from_channel input in
  try
    let ast = Parser.main Lexer.token filebuf in
    let tast = PasseTdsRat.analyser ast in
    let tyast = PasseTypeRat.analyser tast in
    let past = PassePlacementRat.analyser tyast in
    let listeAdresses = PasseVerifPlacement.analyser past in
    listeAdresses
  with
  | Lexer.Error _ as e ->
      report_error ratfile filebuf "lexical error (unexpected character).";
      raise e
  | Parser.Error as e->
      report_error ratfile filebuf "syntax error.";
      raise e

(* teste si dans le fichier fichier, dans la fonction fonction (main pour programme principal)
la occ occurence de la variable var a l'adresse dep[registre]
*)
let test fichier fonction (var,occ) (dep,registre) = 
  let l = getListeDep fichier in
  let lmain = List.assoc fonction l in
  let rec aux i lmain = 
    if i=1 
    then
      let (d,r) = List.assoc var lmain in
      (d=dep && r=registre)
    else 
      aux (i-1) (List.remove_assoc var lmain)
  in aux occ lmain

(**** sans fonctions ****)

let%test "test1_x" = 
  test "../../fichiersRat/src-rat-placement-test/test1.rat"  "main" ("x",1)  (0,"SB")

let%test "test2_x" = 
  test "../../fichiersRat/src-rat-placement-test/test2.rat"  "main" ("x",1)  (0,"SB")

let%test "test2_y" = 
  test "../../fichiersRat/src-rat-placement-test/test2.rat"  "main" ("y",1) (1,"SB")

let%test "test2_z" = 
  test "../../fichiersRat/src-rat-placement-test/test2.rat"  "main" ("z",1)  (2 ,"SB")

let%test "test3_x" = 
  test "../../fichiersRat/src-rat-placement-test/test3.rat"  "main" ("x",1)  (0, "SB")

let%test "test3_y" = 
  test "../../fichiersRat/src-rat-placement-test/test3.rat"  "main" ("y",1)  (1, "SB")

let%test "test3_z" = 
  test "../../fichiersRat/src-rat-placement-test/test3.rat"  "main" ("z",1)  (2, "SB")

let%test "test4_x" = 
  test "../../fichiersRat/src-rat-placement-test/test4.rat"  "main" ("x",1)  (0, "SB")
  
let%test "test4_y" = 
  test "../../fichiersRat/src-rat-placement-test/test4.rat"  "main" ("y",1)  (2, "SB")
  
let%test "test4_z" = 
  test "../../fichiersRat/src-rat-placement-test/test4.rat"  "main" ("z",1)  (4, "SB")

let%test "test5_x" = 
  test "../../fichiersRat/src-rat-placement-test/test5.rat"  "main" ("x",1)  (0, "SB")
  
let%test "test5_y" = 
  test "../../fichiersRat/src-rat-placement-test/test5.rat"  "main" ("y",1)  (1, "SB")
  
let%test "test5_z" = 
  test "../../fichiersRat/src-rat-placement-test/test5.rat"  "main" ("z",1)  (3, "SB")

let%test "test6_x_1" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("x",1)  (0, "SB")
  
let%test "test6_y_1" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("y",1)  (1, "SB")
  
let%test "test6_z_1" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("z",1)  (3, "SB")

let%test "test6_x_2" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("x",2)  (4, "SB")
  
let%test "test6_y_2" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("y",2)  (5, "SB")
  
let%test "test6_z_2" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("z",2)  (7, "SB")

let%test "test6_x_3" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("x",3)  (4, "SB")
  
let%test "test6_y_3" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("y",3)  (5, "SB")
  
let%test "test6_z_3" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("z",3)  (7, "SB")

let%test "test6_x1" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("x1",1)  (4, "SB")
  
let%test "test6_y1" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("y1",1)  (5, "SB")
  
let%test "test6_z1" = 
  test "../../fichiersRat/src-rat-placement-test/test6.rat"  "main" ("z1",1)  (7, "SB")

let%test "test7_x_1" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("x",1)  (0, "SB")
    
let%test "test7_y_1" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("y",1)  (1, "SB")
    
let%test "test7_z_1" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("z",1)  (3, "SB")
  
let%test "test7_x_2" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("x",2)  (4, "SB")
    
let%test "test7_y_2" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("y",2)  (5, "SB")
    
let%test "test7_z_2" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("z",2)  (7, "SB")
  
let%test "test7_x1" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("x1",1)  (4, "SB")
    
let%test "test7_y1" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("y1",1)  (5, "SB")
    
let%test "test7_z1" = 
  test "../../fichiersRat/src-rat-placement-test/test7.rat"  "main" ("z1",1)  (7, "SB")

(**** avec fonctions ****)

let%test "test8_x_1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("x",1)  (0, "SB")
    
let%test "test8_y_1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("y",1)  (1, "SB")
    
let%test "test8_z_1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("z",1)  (3, "SB")
  
let%test "test8_x_2" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("x",2)  (4, "SB")
    
let%test "test8_y_2" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("y",2)  (5, "SB")
    
let%test "test8_z_2" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("z",2)  (7, "SB")
  
let%test "test8_x1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("x1",1)  (4, "SB")
    
let%test "test8_y1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("y1",1)  (5, "SB")
    
let%test "test8_z1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "main" ("z1",1)  (7, "SB")

let%test "test8_f_x_1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("x",1)  (3, "LB")
    
let%test "test8_f_y_1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("y",1)  (4, "LB")
    
let%test "test8_f_z_1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("z",1)  (6, "LB")
  
let%test "test8_f_x_2" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("x",2)  (7, "LB")
    
let%test "test8_f_y_2" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("y",2)  (8, "LB")
    
let%test "test8_f_z_2" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("z",2)  (10, "LB")
  
let%test "test8_f_x1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("x1",1)  (7, "LB")
    
let%test "test8_f_y1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("y1",1)  (8, "LB")
    
let%test "test8_f_z1" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("z1",1)  (10, "LB")
    
let%test "test8_f_a" = 
  test "../../fichiersRat/src-rat-placement-test/test8.rat"  "f" ("a",1)  (-1, "LB")
    
let%test "test9_f_a" = 
  test "../../fichiersRat/src-rat-placement-test/test9.rat"  "f" ("a",1)  (-1, "LB")

let%test "test10_f_a" = 
  test "../../fichiersRat/src-rat-placement-test/test10.rat"  "f" ("a",1)  (-2, "LB")

let%test "test11_f_a" = 
  test "../../fichiersRat/src-rat-placement-test/test11.rat"  "f" ("a",1)  (-1, "LB")
    
let%test "test12_f_b" = 
  test "../../fichiersRat/src-rat-placement-test/test12.rat"  "f" ("b",1)  (-4, "LB")
    
let%test "test12_f_r" = 
  test "../../fichiersRat/src-rat-placement-test/test12.rat"  "f" ("r",1)  (-3, "LB")
    
let%test "test12_f_i" = 
  test "../../fichiersRat/src-rat-placement-test/test12.rat"  "f" ("i",1)  (-1, "LB")
  
*)