예제 #1
0
N_NIMCALL(Tnode189813*, evaltemplate_382260)(Tnode189813* n, Tsym189843* tmpl, Tsym189843* gensymowner) {
	Tnode189813* result;
	NI TMP7634;
	Tnode189813* args;
	Templctx382019 ctx;
	Tnode189813* body;
	NI TMP7637;
	nimfr("evalTemplate", "evaltempl.nim")
	result = 0;
	nimln(78, "evaltempl.nim");
	TMP7634 = addInt(evaltemplatecounter_382256, ((NI) 1));
	evaltemplatecounter_382256 = (NI)(TMP7634);
	nimln(79, "evaltempl.nim");
	{
		if (!(((NI) 100) < evaltemplatecounter_382256)) goto LA3;
		nimln(80, "evaltempl.nim");
		globalerror_163134((*n).info, ((NU16) 183), ((NimStringDesc*) &TMP7631));
		nimln(81, "evaltempl.nim");
		result = n;
	}
	LA3: ;
	nimln(84, "evaltempl.nim");
	args = evaltemplateargs_382184(n, tmpl);
	memset((void*)(&ctx), 0, sizeof(ctx));
	nimln(86, "evaltempl.nim");
	ctx.owner = tmpl;
	nimln(87, "evaltempl.nim");
	ctx.gensymowner = gensymowner;
	nimln(88, "evaltempl.nim");
	initidtable_193057((&ctx.mapping));
	nimln(90, "evaltempl.nim");
	body = getbody_234647(tmpl);
	nimln(91, "evaltempl.nim");
	{
		NIM_BOOL LOC7;
		LOC7 = 0;
		LOC7 = isatom_194906(body);
		if (!LOC7) goto LA8;
		nimln(92, "evaltempl.nim");
		result = newnodei_191351(((NU8) 37), (*body).info);
		nimln(93, "evaltempl.nim");
		evaltemplateaux_382039(body, args, (&ctx), result);
		nimln(94, "evaltempl.nim");
		{
			NI LOC12;
			LOC12 = 0;
			LOC12 = len_190097(result);
			if (!(LOC12 == ((NI) 1))) goto LA13;
			if (((TMP7624[(*result).kind/8] &(1<<((*result).kind%8)))!=0)) raiseFieldError(((NimStringDesc*) &TMP7625));
			if ((NU)(((NI) 0)) >= (NU)((*result).kindU.S6.sons->Sup.len)) raiseIndexError();
			result = (*result).kindU.S6.sons->data[((NI) 0)];
		}
		goto LA10;
		LA13: ;
		{
			NimStringDesc* LOC16;
			nimln(96, "evaltempl.nim");
			nimln(97, "evaltempl.nim");
			LOC16 = 0;
			LOC16 = rendertree_211058(result, 4);
			localerror_163155((*result).info, ((NU16) 1), LOC16);
		}
		LA10: ;
	}
	goto LA5;
	LA8: ;
	{
		nimln(99, "evaltempl.nim");
		result = copynode_193640(body);
		nimln(100, "evaltempl.nim");
		ctx.instlines = !(((*body).kind == ((NU8) 115) || (*body).kind == ((NU8) 126) || (*body).kind == ((NU8) 112) || (*body).kind == ((NU8) 127)));
		nimln(102, "evaltempl.nim");
		{
			if (!ctx.instlines) goto LA20;
			(*result).info = (*n).info;
		}
		LA20: ;
		{
			NI i_382308;
			NI HEX3Atmp_382322;
			NI LOC23;
			NI TMP7635;
			NI res_382325;
			i_382308 = 0;
			HEX3Atmp_382322 = 0;
			nimln(103, "evaltempl.nim");
			LOC23 = 0;
			LOC23 = safelen_190125(body);
			TMP7635 = subInt(LOC23, ((NI) 1));
			HEX3Atmp_382322 = (NI)(TMP7635);
			nimln(1598, "system.nim");
			res_382325 = ((NI) 0);
			{
				nimln(1599, "system.nim");
				while (1) {
					NI TMP7636;
					if (!(res_382325 <= HEX3Atmp_382322)) goto LA25;
					nimln(1600, "system.nim");
					i_382308 = res_382325;
					nimln(104, "evaltempl.nim");
					if (((TMP7624[(*body).kind/8] &(1<<((*body).kind%8)))!=0)) raiseFieldError(((NimStringDesc*) &TMP7625));
					if ((NU)(i_382308) >= (NU)((*body).kindU.S6.sons->Sup.len)) raiseIndexError();
					evaltemplateaux_382039((*body).kindU.S6.sons->data[i_382308], args, (&ctx), result);
					nimln(1614, "system.nim");
					TMP7636 = addInt(res_382325, ((NI) 1));
					res_382325 = (NI)(TMP7636);
				} LA25: ;
			}
		}
	}
	LA5: ;
	nimln(106, "evaltempl.nim");
	TMP7637 = subInt(evaltemplatecounter_382256, ((NI) 1));
	evaltemplatecounter_382256 = (NI)(TMP7637);
	popFrame();
	return result;
}
예제 #2
0
N_NIMCALL(Tnode190813*, evaltemplate_382260)(Tnode190813* n, Tsym190843* tmpl, Tsym190843* gensymowner) {
	Tnode190813* result;
	Tnode190813* args;
	Templctx382019 ctx;
	Tnode190813* body;
	result = 0;
	evaltemplatecounter_382256 += ((NI) 1);
	{
		if (!(((NI) 100) < evaltemplatecounter_382256)) goto LA3;
		globalerror_164150((*n).info, ((NU16) 183), ((NimStringDesc*) &TMP2819));
		result = n;
	}
	LA3: ;
	args = evaltemplateargs_382184(n, tmpl);
	memset((void*)(&ctx), 0, sizeof(ctx));
	ctx.owner = tmpl;
	ctx.gensymowner = gensymowner;
	initidtable_194057((&ctx.mapping));
	body = getbody_234647(tmpl);
	{
		NIM_BOOL LOC7;
		LOC7 = 0;
		LOC7 = isatom_195906(body);
		if (!LOC7) goto LA8;
		result = newnodei_192351(((NU8) 37), (*body).info);
		evaltemplateaux_382039(body, args, (&ctx), result);
		{
			NI LOC12;
			LOC12 = 0;
			LOC12 = len_191097(result);
			if (!(LOC12 == ((NI) 1))) goto LA13;
			result = (*result).kindU.S6.sons->data[((NI) 0)];
		}
		goto LA10;
		LA13: ;
		{
			NimStringDesc* LOC16;
			LOC16 = 0;
			LOC16 = rendertree_212058(result, 4);
			localerror_164171((*result).info, ((NU16) 1), LOC16);
		}
		LA10: ;
	}
	goto LA5;
	LA8: ;
	{
		result = copynode_194644(body);
		ctx.instlines = !(((*body).kind == ((NU8) 115) || (*body).kind == ((NU8) 126) || (*body).kind == ((NU8) 112) || (*body).kind == ((NU8) 127)));
		{
			if (!ctx.instlines) goto LA20;
			(*result).info = (*n).info;
		}
		LA20: ;
		{
			NI i_382308;
			NI HEX3Atmp_382322;
			NI LOC23;
			NI res_382325;
			i_382308 = 0;
			HEX3Atmp_382322 = 0;
			LOC23 = 0;
			LOC23 = safelen_191125(body);
			HEX3Atmp_382322 = (NI)(LOC23 - ((NI) 1));
			res_382325 = ((NI) 0);
			{
				while (1) {
					if (!(res_382325 <= HEX3Atmp_382322)) goto LA25;
					i_382308 = res_382325;
					evaltemplateaux_382039((*body).kindU.S6.sons->data[i_382308], args, (&ctx), result);
					res_382325 += ((NI) 1);
				} LA25: ;
			}
		}
	}
	LA5: ;
	evaltemplatecounter_382256 -= ((NI) 1);
	return result;
}
예제 #3
0
N_NIMCALL(void, evaltemplateaux_382039)(Tnode189813* templ, Tnode189813* actual, Templctx382019* c, Tnode189813* result) {
	nimfr("evalTemplateAux", "evaltempl.nim")
	nimln(28, "evaltempl.nim");
	switch ((*templ).kind) {
	case ((NU8) 3):
	{
		Tsym189843* s;
		nimln(30, "evaltempl.nim");
		if (!(((TMP7622[(*templ).kind/8] &(1<<((*templ).kind%8)))!=0))) raiseFieldError(((NimStringDesc*) &TMP7623));
		s = (*templ).kindU.S4.sym;
		nimln(31, "evaltempl.nim");
		{
			if (!((*(*s).owner).Sup.id == (*(*c).owner).Sup.id)) goto LA4;
			nimln(32, "evaltempl.nim");
			{
				NIM_BOOL LOC8;
				Tnode189813* x;
				LOC8 = 0;
				LOC8 = ((*s).kind == ((NU8) 3));
				if (!(LOC8)) goto LA9;
				LOC8 = !((((*s).flags &(1<<((((NU8) 31))&31)))!=0));
				LA9: ;
				if (!LOC8) goto LA10;
				nimln(33, "evaltempl.nim");
				if (((TMP7624[(*actual).kind/8] &(1<<((*actual).kind%8)))!=0)) raiseFieldError(((NimStringDesc*) &TMP7625));
				if ((NU)((*s).position) >= (NU)((*actual).kindU.S6.sons->Sup.len)) raiseIndexError();
				x = (*actual).kindU.S6.sons->data[(*s).position];
				nimln(34, "evaltempl.nim");
				{
					if (!((*x).kind == ((NU8) 152))) goto LA14;
					{
						Tnode189813* y_382083;
						y_382083 = 0;
						{
							NI i_382142;
							NI HEX3Atmp_382144;
							NI LOC18;
							NI res_382146;
							i_382142 = 0;
							HEX3Atmp_382144 = 0;
							nimln(1537, "ast.nim");
							LOC18 = 0;
							LOC18 = len_190097(x);
							HEX3Atmp_382144 = subInt(LOC18, 1);
							nimln(1598, "system.nim");
							res_382146 = ((NI) 0);
							{
								nimln(1599, "system.nim");
								while (1) {
									NI TMP7626;
									if (!(res_382146 <= HEX3Atmp_382144)) goto LA20;
									nimln(1600, "system.nim");
									i_382142 = res_382146;
									nimln(1537, "ast.nim");
									if (((TMP7624[(*x).kind/8] &(1<<((*x).kind%8)))!=0)) raiseFieldError(((NimStringDesc*) &TMP7625));
									if ((NU)(i_382142) >= (NU)((*x).kindU.S6.sons->Sup.len)) raiseIndexError();
									y_382083 = (*x).kindU.S6.sons->data[i_382142];
									nimln(35, "evaltempl.nim");
									add_190164(result, y_382083);
									nimln(1619, "system.nim");
									TMP7626 = addInt(res_382146, ((NI) 1));
									res_382146 = (NI)(TMP7626);
								} LA20: ;
							}
						}
					}
				}
				goto LA12;
				LA14: ;
				{
					Tnode189813* LOC22;
					nimln(37, "evaltempl.nim");
					LOC22 = 0;
					LOC22 = copytree_194028(x);
					add_190164(result, LOC22);
				}
				LA12: ;
			}
			goto LA6;
			LA10: ;
			{
				Tsym189843* x;
				Tidobj165015* LOC29;
				TNimObject* LOC30;
				Tlineinfo161338 LOC37;
				Tnode189813* LOC43;
				nimln(854, "msgs.nim");
				{
					NimStringDesc* LOC28;
					nimln(39, "evaltempl.nim");
					if (!!((((*s).flags &(1<<((((NU8) 31))&31)))!=0))) goto LA26;
					nimln(854, "msgs.nim");
					LOC28 = 0;
					LOC28 = HEX24_163306(TMP7627);
					internalerror_163218(LOC28);
				}
				LA26: ;
				nimln(40, "evaltempl.nim");
				LOC29 = 0;
				LOC29 = &s->Sup;
				LOC30 = 0;
				LOC30 = idtableget_197182((*c).mapping, LOC29);
				if (LOC30) chckObj((*LOC30).m_type, (&NTI189843));
				x = ((Tsym189843*) (LOC30));
				nimln(41, "evaltempl.nim");
				{
					Tidobj165015* LOC35;
					TNimObject* LOC36;
					if (!(x == NIM_NIL)) goto LA33;
					nimln(42, "evaltempl.nim");
					x = copysym_192607(s, NIM_FALSE);
					nimln(43, "evaltempl.nim");
					asgnRefNoCycle((void**) (&(*x).owner), (*c).gensymowner);
					nimln(44, "evaltempl.nim");
					LOC35 = 0;
					LOC35 = &s->Sup;
					LOC36 = 0;
					LOC36 = &x->Sup.Sup;
					idtableput_197196((&(*c).mapping), LOC35, LOC36);
				}
				LA33: ;
				nimln(45, "evaltempl.nim");
				{
					if (!(*c).instlines) goto LA40;
					LOC37 = (*actual).info;
				}
				goto LA38;
				LA40: ;
				{
					LOC37 = (*templ).info;
				}
				LA38: ;
				LOC43 = 0;
				LOC43 = newsymnode_191338(x, LOC37);
				add_190164(result, LOC43);
			}
			LA6: ;
		}
		goto LA2;
		LA4: ;
		{
			Tnode189813* LOC45;
			nimln(47, "evaltempl.nim");
			LOC45 = 0;
			LOC45 = copynode_382027((&(*c)), templ, actual);
			add_190164(result, LOC45);
		}
		LA2: ;
	}
	break;
	case ((NU8) 0) ... ((NU8) 2):
	case ((NU8) 4) ... ((NU8) 23):
	{
		Tnode189813* LOC47;
		nimln(49, "evaltempl.nim");
		LOC47 = 0;
		LOC47 = copynode_382027((&(*c)), templ, actual);
		add_190164(result, LOC47);
	}
	break;
	default:
	{
		Tnode189813* res;
		nimln(51, "evaltempl.nim");
		res = copynode_382027((&(*c)), templ, actual);
		{
			NI i_382135;
			NI HEX3Atmp_382150;
			NI LOC50;
			NI TMP7629;
			NI res_382153;
			i_382135 = 0;
			HEX3Atmp_382150 = 0;
			nimln(52, "evaltempl.nim");
			LOC50 = 0;
			LOC50 = sonslen_192403(templ);
			TMP7629 = subInt(LOC50, ((NI) 1));
			HEX3Atmp_382150 = (NI)(TMP7629);
			nimln(1598, "system.nim");
			res_382153 = ((NI) 0);
			{
				nimln(1599, "system.nim");
				while (1) {
					NI TMP7630;
					if (!(res_382153 <= HEX3Atmp_382150)) goto LA52;
					nimln(1600, "system.nim");
					i_382135 = res_382153;
					nimln(53, "evaltempl.nim");
					if (((TMP7624[(*templ).kind/8] &(1<<((*templ).kind%8)))!=0)) raiseFieldError(((NimStringDesc*) &TMP7625));
					if ((NU)(i_382135) >= (NU)((*templ).kindU.S6.sons->Sup.len)) raiseIndexError();
					evaltemplateaux_382039((*templ).kindU.S6.sons->data[i_382135], actual, c, res);
					nimln(1614, "system.nim");
					TMP7630 = addInt(res_382153, ((NI) 1));
					res_382153 = (NI)(TMP7630);
				} LA52: ;
			}
		}
		nimln(54, "evaltempl.nim");
		add_190164(result, res);
	}
	break;
	}
	popFrame();
}
예제 #4
0
N_NIMCALL(void, evaltemplateaux_382039)(Tnode190813* templ, Tnode190813* actual, Templctx382019* c, Tnode190813* result) {
	switch ((*templ).kind) {
	case ((NU8) 3):
	{
		Tsym190843* s;
		s = (*templ).kindU.S4.sym;
		{
			if (!((*(*s).owner).Sup.id == (*(*c).owner).Sup.id)) goto LA4;
			{
				NIM_BOOL LOC8;
				Tnode190813* x;
				LOC8 = 0;
				LOC8 = ((*s).kind == ((NU8) 3));
				if (!(LOC8)) goto LA9;
				LOC8 = !((((*s).flags &(1<<((((NU8) 31))&31)))!=0));
				LA9: ;
				if (!LOC8) goto LA10;
				x = (*actual).kindU.S6.sons->data[(*s).position];
				{
					if (!((*x).kind == ((NU8) 152))) goto LA14;
					{
						Tnode190813* y_382083;
						y_382083 = 0;
						{
							NI i_382142;
							NI HEX3Atmp_382144;
							NI LOC18;
							NI res_382146;
							i_382142 = 0;
							HEX3Atmp_382144 = 0;
							LOC18 = 0;
							LOC18 = len_191097(x);
							HEX3Atmp_382144 = (LOC18 - 1);
							res_382146 = ((NI) 0);
							{
								while (1) {
									if (!(res_382146 <= HEX3Atmp_382144)) goto LA20;
									i_382142 = res_382146;
									y_382083 = (*x).kindU.S6.sons->data[i_382142];
									add_191164(result, y_382083);
									res_382146 += ((NI) 1);
								} LA20: ;
							}
						}
					}
				}
				goto LA12;
				LA14: ;
				{
					Tnode190813* LOC22;
					LOC22 = 0;
					LOC22 = copytree_195028(x);
					add_191164(result, LOC22);
				}
				LA12: ;
			}
			goto LA6;
			LA10: ;
			{
				Tsym190843* x;
				Tidobj166015* LOC29;
				TNimObject* LOC30;
				Tlineinfo162338 LOC37;
				Tnode190813* LOC43;
				{
					NimStringDesc* LOC28;
					if (!!((((*s).flags &(1<<((((NU8) 31))&31)))!=0))) goto LA26;
					LOC28 = 0;
					LOC28 = HEX24_164322(TMP2820);
					internalerror_164234(LOC28);
				}
				LA26: ;
				LOC29 = 0;
				LOC29 = &s->Sup;
				LOC30 = 0;
				LOC30 = idtableget_198182((*c).mapping, LOC29);
				x = ((Tsym190843*) (LOC30));
				{
					Tidobj166015* LOC35;
					TNimObject* LOC36;
					if (!(x == NIM_NIL)) goto LA33;
					x = copysym_193607(s, NIM_FALSE);
					asgnRefNoCycle((void**) (&(*x).owner), (*c).gensymowner);
					LOC35 = 0;
					LOC35 = &s->Sup;
					LOC36 = 0;
					LOC36 = &x->Sup.Sup;
					idtableput_198196((&(*c).mapping), LOC35, LOC36);
				}
				LA33: ;
				{
					if (!(*c).instlines) goto LA40;
					LOC37 = (*actual).info;
				}
				goto LA38;
				LA40: ;
				{
					LOC37 = (*templ).info;
				}
				LA38: ;
				LOC43 = 0;
				LOC43 = newsymnode_192338(x, LOC37);
				add_191164(result, LOC43);
			}
			LA6: ;
		}
		goto LA2;
		LA4: ;
		{
			Tnode190813* LOC45;
			LOC45 = 0;
			LOC45 = copynode_382027((&(*c)), templ, actual);
			add_191164(result, LOC45);
		}
		LA2: ;
	}
	break;
	case ((NU8) 0) ... ((NU8) 2):
	case ((NU8) 4) ... ((NU8) 23):
	{
		Tnode190813* LOC47;
		LOC47 = 0;
		LOC47 = copynode_382027((&(*c)), templ, actual);
		add_191164(result, LOC47);
	}
	break;
	default:
	{
		Tnode190813* res;
		res = copynode_382027((&(*c)), templ, actual);
		{
			NI i_382135;
			NI HEX3Atmp_382150;
			NI LOC50;
			NI res_382153;
			i_382135 = 0;
			HEX3Atmp_382150 = 0;
			LOC50 = 0;
			LOC50 = sonslen_193403(templ);
			HEX3Atmp_382150 = (NI)(LOC50 - ((NI) 1));
			res_382153 = ((NI) 0);
			{
				while (1) {
					if (!(res_382153 <= HEX3Atmp_382150)) goto LA52;
					i_382135 = res_382153;
					evaltemplateaux_382039((*templ).kindU.S6.sons->data[i_382135], actual, c, res);
					res_382153 += ((NI) 1);
				} LA52: ;
			}
		}
		add_191164(result, res);
	}
	break;
	}
}