Browse Source

group unused printer cases

Simon Krajewski 11 years ago
parent
commit
41bc47a03b
1 changed files with 1 additions and 13 deletions
  1. 1 13
      genpy.ml

+ 1 - 13
genpy.ml

@@ -1005,7 +1005,6 @@ module Printer = struct
 				Printf.sprintf "%s.params[%i]" (print_expr pctx e1) index
 				Printf.sprintf "%s.params[%i]" (print_expr pctx e1) index
 			| TArray(e1,e2) ->
 			| TArray(e1,e2) ->
 				Printf.sprintf "HxOverrides.arrayGet(%s, %s)" (print_expr pctx e1) (print_expr pctx e2)
 				Printf.sprintf "HxOverrides.arrayGet(%s, %s)" (print_expr pctx e1) (print_expr pctx e2)
-
 			| TBinop(OpAssign,{eexpr = TArray(e1,e2)},e3) ->
 			| TBinop(OpAssign,{eexpr = TArray(e1,e2)},e3) ->
 				Printf.sprintf "HxOverrides.arraySet(%s,%s,%s)" (print_expr pctx e1) (print_expr pctx e2) (print_expr pctx e3)
 				Printf.sprintf "HxOverrides.arraySet(%s,%s,%s)" (print_expr pctx e1) (print_expr pctx e2) (print_expr pctx e3)
 			| TBinop(OpAssign,{eexpr = TField(ef1,fa)},e2) ->
 			| TBinop(OpAssign,{eexpr = TField(ef1,fa)},e2) ->
@@ -1071,9 +1070,6 @@ module Printer = struct
 			| TNew(c,_,el) ->
 			| TNew(c,_,el) ->
 				let id = print_base_type (t_infos (TClassDecl c)) in
 				let id = print_base_type (t_infos (TClassDecl c)) in
 				Printf.sprintf "%s(%s)" id (print_exprs pctx ", " el)
 				Printf.sprintf "%s(%s)" id (print_exprs pctx ", " el)
-			| TUnop(op,Postfix,e1) ->
-				assert false
-				(* Printf.sprintf "%s%s" (print_expr pctx e1) (print_unop op) *)
 			| TUnop(Not,Prefix,e1) ->
 			| TUnop(Not,Prefix,e1) ->
 				Printf.sprintf "(%s%s)" (print_unop Not) (print_expr pctx e1)
 				Printf.sprintf "(%s%s)" (print_unop Not) (print_expr pctx e1)
 			| TUnop(op,Prefix,e1) ->
 			| TUnop(op,Prefix,e1) ->
@@ -1082,7 +1078,6 @@ module Printer = struct
 				print_function pctx tf None
 				print_function pctx tf None
 			| TVar (v,eo) ->
 			| TVar (v,eo) ->
 				print_var pctx v eo
 				print_var pctx v eo
-
 			| TBlock [] ->
 			| TBlock [] ->
 				Printf.sprintf "pass\n%s" indent
 				Printf.sprintf "pass\n%s" indent
 			| TBlock [{ eexpr = TBlock _} as b] ->
 			| TBlock [{ eexpr = TBlock _} as b] ->
@@ -1093,12 +1088,6 @@ module Printer = struct
 				let s = print_block_exprs pctx ("\n" ^ !tabs) pctx.pc_debug el in
 				let s = print_block_exprs pctx ("\n" ^ !tabs) pctx.pc_debug el in
 				tabs := old;
 				tabs := old;
 				Printf.sprintf "%s\n" s
 				Printf.sprintf "%s\n" s
-			| TFor(v,e1,e2) ->
-				assert false
-				(* let pctx2 = {pctx with pc_indent = "\t" ^ pctx.pc_indent} in
-				let ind1 = pctx.pc_indent in
-				let ind2 = pctx2.pc_indent in
-				Printf.sprintf "_it = %s\n%swhile _it.hasNext():\n%s%s = _it.next()\n%s%s" (print_expr pctx e1) ind1 ind2 v.v_name ind2 (print_expr pctx2 e2) *)
 			| TIf(econd,eif,(Some {eexpr = TIf _} as eelse)) ->
 			| TIf(econd,eif,(Some {eexpr = TIf _} as eelse)) ->
 				print_if_else pctx econd eif eelse true
 				print_if_else pctx econd eif eelse true
 			| TIf(econd,eif,eelse) ->
 			| TIf(econd,eif,eelse) ->
@@ -1123,7 +1112,7 @@ module Printer = struct
 				Printf.sprintf "%s if %s else %s" (print_expr pctx eif) (print_expr pctx econd) (print_expr pctx eelse)
 				Printf.sprintf "%s if %s else %s" (print_expr pctx eif) (print_expr pctx econd) (print_expr pctx eelse)
 			| TMeta(_,e1) ->
 			| TMeta(_,e1) ->
 				print_expr pctx e1
 				print_expr pctx e1
-			| TPatMatch _ | TSwitch _ | TCast(_, Some _) ->
+			| TPatMatch _ | TSwitch _ | TCast(_, Some _) | TFor _ | TUnop(_,Postfix,_) ->
 				assert false
 				assert false
 
 
 	and print_if_else pctx econd eif eelse as_elif =
 	and print_if_else pctx econd eif eelse as_elif =
@@ -1594,7 +1583,6 @@ module Generator = struct
 				end
 				end
 		end
 		end
 
 
-
 	let gen_static_field ctx c p cf =
 	let gen_static_field ctx c p cf =
 		let p = get_path (t_infos (TClassDecl c)) in
 		let p = get_path (t_infos (TClassDecl c)) in
 		let field = handle_keywords cf.cf_name in
 		let field = handle_keywords cf.cf_name in