Lines Matching refs:parent
130 def gen_ocaml_keyedunions(ty, interface, indent, parent = None): argument
138 if parent is None:
141 nparent = parent + "_" + ty.keyvar.name
178 def gen_ocaml_anonstruct(ty, interface, indent, parent = None): argument
185 name = "%s__anon" % parent
269 def c_val(ty, c, o, indent="", parent = None): argument
293 s += "\t%s = Wosize_val(%s);\n" % (parent + ty.lenvar.name, o)
294 s += "\t%s = (%s) calloc(%s, sizeof(*%s));\n" % (c, ty.typename, parent + ty.lenvar.name, c)
295 s += "\tfor(i=0; i<%s; i++) {\n" % (parent + ty.lenvar.name)
296 s += c_val(ty.elem_type, c+"[i]", "Field(%s, i)" % o, indent="\t\t", parent=parent) + "\n"
299 elif isinstance(ty,idl.Enumeration) and (parent is None):
315 parent + ty.keyvar.name,
318 …failwith_xl(ERROR_FAIL, \"variant handling bug %s%s (long)\"); break;\n" % (parent, ty.keyvar.name)
329 s += "\t\t %s = %s;\n" % (parent + ty.keyvar.name, f.enumname)
331 … s += "%s" % c_val(f.type, fexpr, "Field(%s, 0)" % o, parent=nparent, indent=indent+"\t\t ")
334 …ailwith_xl(ERROR_FAIL, \"variant handling bug %s%s (block)\"); break;\n" % (parent, ty.keyvar.name)
338 elif isinstance(ty, idl.Aggregate) and (parent is None or ty.rawname is None):
344 s += "%s\n" % c_val(f.type, fexpr, "Field(%s, %d)" % (o,n), parent=nparent)
347 …s += "%s_val(ctx, %s, %s);" % (ty.rawname, ty.pass_arg(c, parent is None, passby=idl.PASS_BY_REFER…
366 def ocaml_Val(ty, o, c, indent="", parent = None): argument
391 s += "\t %s = caml_alloc(%s,0);\n" % (o, parent + ty.lenvar.name)
392 s += "\t for(i=0; i<%s; i++) {\n" % (parent + ty.lenvar.name)
393 s += "\t %s\n" % ocaml_Val(ty.elem_type, "array_elem", c + "[i]", "", parent=parent)
397 elif isinstance(ty,idl.Enumeration) and (parent is None):
408 s += "switch(%s) {\n" % (parent + ty.keyvar.name)
421 (nparent,fexpr) = ty.member(c, f, parent is None)
425 s += ocaml_Val(f.type, 'tmp', fexpr, indent="\t\t ", parent=nparent)
434 elif isinstance(ty,idl.Aggregate) and (parent is None or ty.rawname is None):
449 (nparent,fexpr) = ty.member(c, f, parent is None)
452 s += "\t%s\n" % ocaml_Val(f.type, fn, ty.pass_arg(fexpr, c), parent=nparent)
457 s += "%s = Val_%s(%s);" % (o, ty.rawname, ty.pass_arg(c, parent is None))