From 5f148b96e2e2ce0c50db349cc45b912fcc61ffbb Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Fri, 20 Dec 2013 18:20:40 +0100
Subject: =?UTF-8?q?Impl=C3=A9mentation=20de=20l'h=C3=A9ritage=20multiple?=
 =?UTF-8?q?=20(au=20niveau=20du=20typage)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/main.ml | 120 ++++++++++++++++++++++++++++++------------------------------
 1 file changed, 61 insertions(+), 59 deletions(-)

(limited to 'src/main.ml')

diff --git a/src/main.ml b/src/main.ml
index ca1134a..976586f 100644
--- a/src/main.ml
+++ b/src/main.ml
@@ -13,70 +13,72 @@ let set_var v s = v := s
 let usage = "usage: mini-cpp [options] file.cpp"
 
 let localisation pos =
-	let l = pos.pos_lnum in
-	let c = pos.pos_cnum - pos.pos_bol + 1 in
-	eprintf "File \"%s\", line %d, characters %d-%d:\n"
-		!ifile l (c-1) c
+  let l = pos.pos_lnum in
+  let c = pos.pos_cnum - pos.pos_bol + 1 in
+  eprintf "File \"%s\", line %d, characters %d-%d:\n"
+    !ifile l (c-1) c
 
 let localisation2 (pos1,pos2) =
-	let l = pos1.pos_lnum in
-	let c1 = pos1.pos_cnum - pos1.pos_bol + 1 in
-	let c2 = pos2.pos_cnum - pos2.pos_bol + 1 in
-	eprintf "File \"%s\", line %d, characters %d-%d:\n"
-		!ifile l c1 c2
-	
+  let l = pos1.pos_lnum in
+  let c1 = pos1.pos_cnum - pos1.pos_bol + 1 in
+  let c2 = pos2.pos_cnum - pos2.pos_bol + 1 in
+  eprintf "File \"%s\", line %d, characters %d-%d:\n"
+    !ifile l c1 c2
+  
 let options = [
-	"--parse-only", Arg.Set parse_only, "Stops after parsing of the input file.";
-	"--type-only", Arg.Set type_only, "Stops after typechecking of the input file.";
-	"--dump", Arg.Set dump, "Dump the AST after parsing.";
-	"--dumpt", Arg.Set dumpt, "Dump the AST after typing."
-	]
+  "--parse-only", Arg.Set parse_only, "Stops after parsing of the input file.";
+  "--type-only", Arg.Set type_only, "Stops after typechecking of the input file.";
+  "--dump", Arg.Set dump, "Dump the AST after parsing.";
+  "--dumpt", Arg.Set dumpt, "Dump the AST after typing."
+  ]
 
 let () =
-	Arg.parse options (set_var ifile) usage;
+  Arg.parse options (set_var ifile) usage;
 
-	if !ifile = "" then (
-		eprintf "No input file\n@?";
-		exit 1);
-	
-	if not (Filename.check_suffix !ifile ".cpp") then (
-		eprintf "Input files must have suffix .cpp\n@?";
-		Arg.usage options usage;
-		exit 1);
-	
-	let f = open_in !ifile in
-	let buf = Lexing.from_channel f in
+  if !ifile = "" then (
+    eprintf "No input file\n@?";
+    exit 1);
+  
+  if not (Filename.check_suffix !ifile ".cpp") then (
+    eprintf "Input files must have suffix .cpp\n@?";
+    Arg.usage options usage;
+    exit 1);
+  let basename = Filename.chop_suffix !ifile ".cpp" in
+  
+  let f = open_in !ifile in
+  let buf = Lexing.from_channel f in
 
-	try
-		let p = Parser.prog Lexer.token buf in
-		close_in f;
-		
-		if !dump then Pretty.print_prog p;
-		if not !parse_only then begin
-			let t = Typing.prog p in
-			if !dumpt then Pretty_typing.print_prog t;
+  try
+    let p = Parser.prog Lexer.token buf in
+    close_in f;
+    
+    if !dump then Pretty.print_prog p;
+    if not !parse_only then begin
+      let p = Typing.prog p in
+      if !dumpt then Pretty_typing.print_prog p;
 
-			if not !type_only then begin
-				()
-			end
-		end
-	with
-		| Lexer.Lexing_error s ->
-			localisation (Lexing.lexeme_start_p buf);
-			eprintf "Lexical analysis error: %s@." s;
-			exit 1
-		| Parser.Error -> 
-		        localisation (Lexing.lexeme_start_p buf);
-			eprintf "Parsing error.@.";
-			exit 1
-		| Typing.Error(msg) ->
-			eprintf "Typing error (unknown location): %s@." msg;
-			exit 2
-		| Typing.LocError (loc, msg) ->
-		  localisation2 loc;
-		  eprintf "%s@." msg;
-		  exit 2
-		  
-		| _ ->
-			eprintf "Unexpected error...@.";
-			exit 3
+      if not !type_only then begin
+        let asm = Codegen.generate p in
+        Mips.print_in_file (basename ^ ".s") asm
+      end
+    end
+  with
+    | Lexer.Lexing_error s ->
+      localisation (Lexing.lexeme_start_p buf);
+      eprintf "Lexical analysis error: %s@." s;
+      exit 1
+    | Parser.Error -> 
+            localisation (Lexing.lexeme_start_p buf);
+      eprintf "Parsing error.@.";
+      exit 1
+    | Typing.Error(msg) ->
+      eprintf "Typing error (unknown location): %s@." msg;
+      exit 2
+    | Typing.LocError (loc, msg) ->
+      localisation2 loc;
+      eprintf "%s@." msg;
+      exit 2
+      
+    | _ ->
+      eprintf "Unexpected error...@.";
+      exit 3
-- 
cgit v1.2.3