浏览代码

[cs] support interpolated __cs__

Dan Korostelev 11 年之前
父节点
当前提交
a05b5322ab
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      gencs.ml

+ 2 - 0
gencs.ml

@@ -1286,6 +1286,8 @@ let configure gen =
 					write w " )";
 				| TCall ({ eexpr = TLocal( { v_name = "__cs__" } ) }, [ { eexpr = TConst(TString(s)) } ] ) ->
 					write w s
+				| TCall ({ eexpr = TLocal( { v_name = "__cs__" } ) }, { eexpr = TConst(TString(s)) } :: tl ) ->
+					Codegen.interpolate_code gen.gcon s tl (write w) (expr_s w) e.epos
 				| TCall ({ eexpr = TLocal( { v_name = "__unsafe__" } ) }, [ e ] ) ->
 					write w "unsafe";
 					expr_s w (mk_block e)