Lines Matching refs:name
63 def stub_fn_name(ty, name): argument
64 return "stub_xl_%s_%s" % (ty.rawname,name)
107 def munge_name(name): argument
108 if name in ocaml_keywords:
109 return "xl_" + name
111 return name
115 name = f.type.keyvar.name
117 name = f.name
118 return "%s : %s" % (munge_name(name), ocaml_type_of(f.type))
139 nparent = ty.keyvar.name
141 nparent = parent + "_" + ty.keyvar.name
147 s += "\ntype %s_%s =\n" % (nparent,f.name)
152 name = "%s__union" % ty.keyvar.name
154 s += "type %s = " % name
158 u.append("%s" % (f.name.capitalize()))
161 u.append("%s of %s.t" % (f.name.capitalize(), f.type.rawname.capitalize()))
163 u.append("%s of %s_%s" % (f.name.capitalize(), nparent, f.name))
165 u.append("%s" % (f.name.capitalize()))
170 ty.union_name = name
185 name = "%s__anon" % parent
186 s += "type %s = {\n" % name
189 ty.anon_struct = name
240 anon = gen_ocaml_anonstruct(f.type, interface, "\t", f.name)
258 for name,args in functions[ty.rawname]:
259 s += "\texternal %s : " % name
261 s += " = \"%s\"\n" % stub_fn_name(ty,name)
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)
303 s += " case %d: *%s = %s; break;\n" % (n, c, e.name)
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)
334 …ailwith_xl(ERROR_FAIL, \"variant handling bug %s%s (block)\"); break;\n" % (parent, ty.keyvar.name)
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)
401 s += " case %s: %s = Val_int(%d); break;\n" % (e.name, o, n)
408 s += "switch(%s) {\n" % (parent + ty.keyvar.name)
477 for name,args in fns:
479 s += "value %s(" % stub_fn_name(ty, name)
493 "".join(["value " + u.name + ", " for u in union_types]))
495 …s += "\tCAMLparam%d(ctx, %sunit);\n" % (len(union_types) + 2, "".join([u.name + ", " for u in unio…
500 s += "\tif (%s != Val_none) {\n" % u.name
502 s += "\t\t%s_val(CTX, &c, Some_val(%s));\n" % (u.type.rawname, u.name)
503 s += "\t\tlibxl_%s_init_%s(&c_val, c);\n" % (ty.rawname, u.name)