Lines Matching refs:name
60 def stub_fn_name(ty, name): argument
61 return "stub_xl_%s_%s" % (ty.rawname,name)
104 def munge_name(name): argument
105 if name in ocaml_keywords:
106 return "xl_" + name
108 return name
112 name = f.type.keyvar.name
114 name = f.name
115 return "%s : %s" % (munge_name(name), ocaml_type_of(f.type))
136 nparent = ty.keyvar.name
138 nparent = parent + "_" + ty.keyvar.name
144 s += "\ntype %s_%s =\n" % (nparent,f.name)
149 name = "%s__union" % ty.keyvar.name
151 s += "type %s = " % name
155 u.append("%s" % (f.name.capitalize()))
158 u.append("%s of %s.t" % (f.name.capitalize(), f.type.rawname.capitalize()))
160 u.append("%s of %s_%s" % (f.name.capitalize(), nparent, f.name))
162 u.append("%s" % (f.name.capitalize()))
167 ty.union_name = name
182 name = "%s__anon" % parent
183 s += "type %s = {\n" % name
186 ty.anon_struct = name
237 anon = gen_ocaml_anonstruct(f.type, interface, "\t", f.name)
255 for name,args in functions[ty.rawname]:
256 s += "\texternal %s : " % name
258 s += " = \"%s\"\n" % stub_fn_name(ty,name)
290 s += "\t%s = Wosize_val(%s);\n" % (parent + ty.lenvar.name, o)
291 s += "\t%s = (%s) calloc(%s, sizeof(*%s));\n" % (c, ty.typename, parent + ty.lenvar.name, c)
292 s += "\tfor(i=0; i<%s; i++) {\n" % (parent + ty.lenvar.name)
300 s += " case %d: *%s = %s; break;\n" % (n, c, e.name)
312 parent + ty.keyvar.name,
315 …_xl(ERROR_FAIL, \"variant handling bug %s%s (long)\"); break;\n" % (parent, ty.keyvar.name)
326 s += "\t\t %s = %s;\n" % (parent + ty.keyvar.name, f.enumname)
331 …ailwith_xl(ERROR_FAIL, \"variant handling bug %s%s (block)\"); break;\n" % (parent, ty.keyvar.name)
388 s += "\t %s = caml_alloc(%s,0);\n" % (o, parent + ty.lenvar.name)
389 s += "\t for(i=0; i<%s; i++) {\n" % (parent + ty.lenvar.name)
398 s += " case %s: %s = Val_int(%d); break;\n" % (e.name, o, n)
405 s += "switch(%s) {\n" % (parent + ty.keyvar.name)
474 for name,args in fns:
476 s += "value %s(" % stub_fn_name(ty, name)
490 "".join(["value " + u.name + ", " for u in union_types]))
492 …s += "\tCAMLparam%d(ctx, %sunit);\n" % (len(union_types) + 2, "".join([u.name + ", " for u in unio…
497 s += "\tif (%s != Val_none) {\n" % u.name
499 s += "\t\t%s_val(CTX, &c, Some_val(%s));\n" % (u.type.rawname, u.name)
500 s += "\t\tlibxl_%s_init_%s(&c_val, c);\n" % (ty.rawname, u.name)