Ejemplo n.º 1
0
N_NIMCALL(void, nodetableput_224605)(tnodetable172717* t, tnode172659* key, NI val) {
	tnodepairseq172715* n;
	NI k;
	NI index;
	nimfr("NodeTablePut", "treetab.nim")
	n = 0;
	nimln(79, "treetab.nim");
	k = hashtree_224018(key);
	nimln(80, "treetab.nim");
	index = nodetablerawget_224377((*t), k, key);
	nimln(81, "treetab.nim");
	{
		nimln(702, "system.nim");
		if (!(0 <= index)) goto LA3;
		nimln(82, "treetab.nim");
		{
			nimln(82, "treetab.nim");
			nimln(82, "treetab.nim");
			nimln(82, "treetab.nim");
			if ((NU)(index) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
			if (!!(!(((*t).Data->data[index].Key == NIM_NIL)))) goto LA7;
			nimln(82, "treetab.nim");
			hiddenraiseassert_76217(((NimStringDesc*) &TMP3159));		}		LA7: ;
		nimln(83, "treetab.nim");
		if ((NU)(index) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
		(*t).Data->data[index].Val = val;
	}	goto LA1;
	LA3: ;
	{
		nimln(85, "treetab.nim");
		{
			NIM_BOOL LOC12;
			NI TMP3160;
			NI i_224836;
			NI HEX3Atmp_224874;
			NI res_224876;
			tnodepairseq172715* LOC20;
			nimln(85, "treetab.nim");
			nimln(85, "treetab.nim");
			LOC12 = 0;
			LOC12 = mustrehash_179191((*t).Data->Sup.len, (*t).Counter);
			if (!LOC12) goto LA13;
			nimln(86, "treetab.nim");
			nimln(86, "treetab.nim");
			nimln(86, "treetab.nim");
			TMP3160 = mulInt((*t).Data->Sup.len, 2);
			n = (tnodepairseq172715*) newSeq((&NTI172715), (NI32)(TMP3160));
			i_224836 = 0;
			HEX3Atmp_224874 = 0;
			nimln(87, "treetab.nim");
			nimln(87, "treetab.nim");
			HEX3Atmp_224874 = ((*t).Data->Sup.len-1);
			nimln(1301, "system.nim");
			res_224876 = 0;
			nimln(1302, "system.nim");
			while (1) {
				nimln(1302, "system.nim");
				if (!(res_224876 <= HEX3Atmp_224874)) goto LA15;
				nimln(1301, "system.nim");
				i_224836 = res_224876;
				nimln(88, "treetab.nim");
				{
					nimln(698, "system.nim");
					nimln(698, "system.nim");
					if ((NU)(i_224836) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if (!!(((*t).Data->data[i_224836].Key == NIM_NIL))) goto LA18;
					nimln(89, "treetab.nim");
					if ((NU)(i_224836) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if ((NU)(i_224836) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if ((NU)(i_224836) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					nodetablerawinsert_224411(&n, (*t).Data->data[i_224836].H, (*t).Data->data[i_224836].Key, (*t).Data->data[i_224836].Val);				}				LA18: ;
				nimln(1304, "system.nim");
				res_224876 = addInt(res_224876, 1);
			} LA15: ;
			nimln(90, "treetab.nim");
			LOC20 = 0;
			LOC20 = (*t).Data;
			unsureAsgnRef((void**) &(*t).Data, n);
			n = LOC20;
		}		LA13: ;
		nimln(91, "treetab.nim");
		nodetablerawinsert_224411(&(*t).Data, k, key, val);		nimln(92, "treetab.nim");
		(*t).Counter = addInt((*t).Counter, 1);
	}	LA1: ;
	popFrame();
}
Ejemplo n.º 2
0
N_NIMCALL(void, fillbuffer_179097)(Tbaselexer179024* L) {
	NI charsread;
	NI tocopy;
	NI s;
	NI oldbuflen;
	NI TMP2124;
	NI TMP2125;
	NI TMP2129;
	NI TMP2130;
	NI LOC13;
	NI TMP2131;
	NI TMP2132;
	nimfr("fillBuffer", "nimlexbase.nim")
	charsread = 0;
	tocopy = 0;
	s = 0;
	oldbuflen = 0;
	nimln(82, "nimlexbase.nim");
	{
		if (!!(((*L).sentinel < (*L).buflen))) goto LA3;
		failedassertimpl_87217(((NimStringDesc*) &TMP2123));
	}
	LA3: ;
	nimln(83, "nimlexbase.nim");
	TMP2124 = subInt((*L).buflen, (*L).sentinel);
	TMP2125 = subInt((NI)(TMP2124), ((NI) 1));
	tocopy = (NI)(TMP2125);
	nimln(84, "nimlexbase.nim");
	{
		if (!!((((NI) 0) <= tocopy))) goto LA7;
		failedassertimpl_87217(((NimStringDesc*) &TMP2126));
	}
	LA7: ;
	nimln(85, "nimlexbase.nim");
	{
		NI TMP2127;
		NI TMP2128;
		if (!(((NI) 0) < tocopy)) goto LA11;
		nimln(86, "nimlexbase.nim");
		TMP2127 = addInt((*L).sentinel, ((NI) 1));
		TMP2128 = mulInt(tocopy, ((NI) 1));
		memmove(((void*) ((*L).buf)), ((void*) ((&(*L).buf[(NI)(TMP2127)]))), ((NI)chckRange((NI)(TMP2128), ((NI) 0), ((NI) 2147483647))));
	}
	LA11: ;
	nimln(88, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	nimln(88, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	TMP2129 = addInt((*L).sentinel, ((NI) 1));
	TMP2130 = mulInt((NI)(TMP2129), ((NI) 1));
	LOC13 = 0;
	LOC13 = llstreamread_178584((*L).stream, ((void*) ((&(*L).buf[tocopy]))), (NI)(TMP2130));
	TMP2131 = divInt(LOC13, ((NI) 1));
	charsread = (NI)(TMP2131);
	nimln(90, "nimlexbase.nim");
	TMP2132 = addInt(tocopy, charsread);
	s = (NI)(TMP2132);
	nimln(91, "nimlexbase.nim");
	{
		NI TMP2133;
		TMP2133 = addInt((*L).sentinel, ((NI) 1));
		if (!(charsread < (NI)(TMP2133))) goto LA16;
		nimln(92, "nimlexbase.nim");
		(*L).buf[s] = 0;
		nimln(93, "nimlexbase.nim");
		(*L).sentinel = s;
	}
	goto LA14;
	LA16: ;
	{
		NI TMP2134;
		nimln(96, "nimlexbase.nim");
		TMP2134 = subInt(s, ((NI) 1));
		s = (NI)(TMP2134);
		{
			nimln(97, "nimlexbase.nim");
			while (1) {
				nimln(98, "nimlexbase.nim");
				{
					if (!!((s < (*L).buflen))) goto LA23;
					failedassertimpl_87217(((NimStringDesc*) &TMP2135));
				}
				LA23: ;
				{
					nimln(99, "nimlexbase.nim");
					while (1) {
						NIM_BOOL LOC27;
						NI TMP2136;
						LOC27 = 0;
						LOC27 = (((NI) 0) <= s);
						if (!(LOC27)) goto LA28;
						LOC27 = !((((NU8)((*L).buf[s])) == ((NU8)(13)) || ((NU8)((*L).buf[s])) == ((NU8)(10))));
						LA28: ;
						if (!LOC27) goto LA26;
						TMP2136 = subInt(s, ((NI) 1));
						s = (NI)(TMP2136);
					} LA26: ;
				}
				nimln(100, "nimlexbase.nim");
				{
					if (!(((NI) 0) <= s)) goto LA31;
					nimln(102, "nimlexbase.nim");
					(*L).sentinel = s;
					nimln(103, "nimlexbase.nim");
					goto LA19;
				}
				goto LA29;
				LA31: ;
				{
					NI TMP2137;
					NI TMP2138;
					void* LOC34;
					NI TMP2141;
					NI LOC39;
					NI TMP2142;
					NI TMP2145;
					nimln(107, "nimlexbase.nim");
					oldbuflen = (*L).buflen;
					nimln(108, "nimlexbase.nim");
					TMP2137 = mulInt((*L).buflen, ((NI) 2));
					(*L).buflen = (NI)(TMP2137);
					nimln(109, "nimlexbase.nim");
					TMP2138 = mulInt((*L).buflen, ((NI) 1));
					LOC34 = 0;
					LOC34 = realloc_6033(((void*) ((*L).buf)), ((NI)chckRange((NI)(TMP2138), ((NI) 0), ((NI) 2147483647))));
					(*L).buf = ((NCSTRING) (LOC34));
					nimln(110, "nimlexbase.nim");
					{
						NI TMP2139;
						TMP2139 = subInt((*L).buflen, oldbuflen);
						if (!!(((NI)(TMP2139) == oldbuflen))) goto LA37;
						failedassertimpl_87217(((NimStringDesc*) &TMP2140));
					}
					LA37: ;
					nimln(111, "nimlexbase.nim");
					nimln(112, "nimlexbase.nim");
					nimln(111, "nimlexbase.nim");
					nimln(112, "nimlexbase.nim");
					TMP2141 = mulInt(oldbuflen, ((NI) 1));
					LOC39 = 0;
					LOC39 = llstreamread_178584((*L).stream, ((void*) ((&(*L).buf[oldbuflen]))), (NI)(TMP2141));
					TMP2142 = divInt(LOC39, ((NI) 1));
					charsread = (NI)(TMP2142);
					nimln(113, "nimlexbase.nim");
					{
						NI TMP2143;
						NI TMP2144;
						if (!(charsread < oldbuflen)) goto LA42;
						nimln(114, "nimlexbase.nim");
						TMP2143 = addInt(oldbuflen, charsread);
						(*L).buf[(NI)(TMP2143)] = 0;
						nimln(115, "nimlexbase.nim");
						TMP2144 = addInt(oldbuflen, charsread);
						(*L).sentinel = (NI)(TMP2144);
						nimln(116, "nimlexbase.nim");
						goto LA19;
					}
					LA42: ;
					nimln(117, "nimlexbase.nim");
					TMP2145 = subInt((*L).buflen, ((NI) 1));
					s = (NI)(TMP2145);
				}
				LA29: ;
			}
		} LA19: ;
	}
	LA14: ;
	popFrame();
}
Ejemplo n.º 3
0
N_NIMCALL(NI, npuParseBiggestFloat)(NimStringDesc* s, NF* number, NI start) {
	NI result;
	NF esign;
	NF sign;
	NI i;
	NI exponent;
	NI flags;
	NF hd;
	NI TMP1865;
	nimfr("parseBiggestFloat", "parseutils.nim")
	result = 0;
	nimln(251, "parseutils.nim");
	esign = 1.0000000000000000e+000;
	nimln(252, "parseutils.nim");
	sign = 1.0000000000000000e+000;
	nimln(253, "parseutils.nim");
	i = start;
	exponent = 0;
	flags = 0;
	nimln(256, "parseutils.nim");
	(*number) = 0.0;
	nimln(257, "parseutils.nim");
	{
		nimln(257, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		if (!((NU8)(s->data[i]) == (NU8)(43))) goto LA3;
		nimln(257, "parseutils.nim");
		i = addInt(i, 1);
	}
	goto LA1;
	LA3: ;
	{
		nimln(258, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		if (!((NU8)(s->data[i]) == (NU8)(45))) goto LA6;
		nimln(259, "parseutils.nim");
		sign = -1.0000000000000000e+000;
		nimln(260, "parseutils.nim");
		i = addInt(i, 1);
	}
	goto LA1;
	LA6: ;
	LA1: ;
	nimln(261, "parseutils.nim");
	{
		NIM_BOOL LOC10;
		nimln(261, "parseutils.nim");
		LOC10 = 0;
		nimln(261, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		LOC10 = ((NU8)(s->data[i]) == (NU8)(78));
		if (LOC10) goto LA11;
		nimln(261, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		LOC10 = ((NU8)(s->data[i]) == (NU8)(110));
		LA11: ;
		if (!LOC10) goto LA12;
		nimln(262, "parseutils.nim");
		{
			NIM_BOOL LOC16;
			NI TMP1846;
			NI TMP1847;
			nimln(262, "parseutils.nim");
			LOC16 = 0;
			nimln(262, "parseutils.nim");
			nimln(262, "parseutils.nim");
			TMP1846 = addInt(i, 1);
			if ((NU)((NI32)(TMP1846)) > (NU)(s->Sup.len)) raiseIndexError();
			LOC16 = ((NU8)(s->data[(NI32)(TMP1846)]) == (NU8)(65));
			if (LOC16) goto LA17;
			nimln(262, "parseutils.nim");
			nimln(262, "parseutils.nim");
			TMP1847 = addInt(i, 1);
			if ((NU)((NI32)(TMP1847)) > (NU)(s->Sup.len)) raiseIndexError();
			LOC16 = ((NU8)(s->data[(NI32)(TMP1847)]) == (NU8)(97));
			LA17: ;
			if (!LOC16) goto LA18;
			nimln(263, "parseutils.nim");
			{
				NIM_BOOL LOC22;
				NI TMP1848;
				NI TMP1849;
				nimln(263, "parseutils.nim");
				LOC22 = 0;
				nimln(263, "parseutils.nim");
				nimln(263, "parseutils.nim");
				TMP1848 = addInt(i, 2);
				if ((NU)((NI32)(TMP1848)) > (NU)(s->Sup.len)) raiseIndexError();
				LOC22 = ((NU8)(s->data[(NI32)(TMP1848)]) == (NU8)(78));
				if (LOC22) goto LA23;
				nimln(263, "parseutils.nim");
				nimln(263, "parseutils.nim");
				TMP1849 = addInt(i, 2);
				if ((NU)((NI32)(TMP1849)) > (NU)(s->Sup.len)) raiseIndexError();
				LOC22 = ((NU8)(s->data[(NI32)(TMP1849)]) == (NU8)(110));
				LA23: ;
				if (!LOC22) goto LA24;
				nimln(264, "parseutils.nim");
				{
					NI TMP1850;
					NI TMP1851;
					NI TMP1852;
					nimln(264, "parseutils.nim");
					nimln(264, "parseutils.nim");
					nimln(264, "parseutils.nim");
					TMP1850 = addInt(i, 3);
					if ((NU)((NI32)(TMP1850)) > (NU)(s->Sup.len)) raiseIndexError();
					if (!!((((NU8)(s->data[(NI32)(TMP1850)])) >= ((NU8)(97)) && ((NU8)(s->data[(NI32)(TMP1850)])) <= ((NU8)(122)) || ((NU8)(s->data[(NI32)(TMP1850)])) >= ((NU8)(65)) && ((NU8)(s->data[(NI32)(TMP1850)])) <= ((NU8)(90)) || ((NU8)(s->data[(NI32)(TMP1850)])) >= ((NU8)(48)) && ((NU8)(s->data[(NI32)(TMP1850)])) <= ((NU8)(57)) || ((NU8)(s->data[(NI32)(TMP1850)])) == ((NU8)(95))))) goto LA28;
					nimln(265, "parseutils.nim");
					(*number) = NAN;
					nimln(266, "parseutils.nim");
					nimln(266, "parseutils.nim");
					nimln(266, "parseutils.nim");
					nimln(266, "parseutils.nim");
					TMP1851 = addInt(i, 3);
					TMP1852 = subInt((NI32)(TMP1851), start);
					result = (NI32)(TMP1852);
					goto BeforeRet;
				}
				LA28: ;
			}
			LA24: ;
		}
		LA18: ;
		nimln(267, "parseutils.nim");
		nimln(267, "parseutils.nim");
		result = 0;
		goto BeforeRet;
	}
	LA12: ;
	nimln(268, "parseutils.nim");
	{
		NIM_BOOL LOC32;
		nimln(268, "parseutils.nim");
		LOC32 = 0;
		nimln(268, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		LOC32 = ((NU8)(s->data[i]) == (NU8)(73));
		if (LOC32) goto LA33;
		nimln(268, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		LOC32 = ((NU8)(s->data[i]) == (NU8)(105));
		LA33: ;
		if (!LOC32) goto LA34;
		nimln(269, "parseutils.nim");
		{
			NIM_BOOL LOC38;
			NI TMP1853;
			NI TMP1854;
			nimln(269, "parseutils.nim");
			LOC38 = 0;
			nimln(269, "parseutils.nim");
			nimln(269, "parseutils.nim");
			TMP1853 = addInt(i, 1);
			if ((NU)((NI32)(TMP1853)) > (NU)(s->Sup.len)) raiseIndexError();
			LOC38 = ((NU8)(s->data[(NI32)(TMP1853)]) == (NU8)(78));
			if (LOC38) goto LA39;
			nimln(269, "parseutils.nim");
			nimln(269, "parseutils.nim");
			TMP1854 = addInt(i, 1);
			if ((NU)((NI32)(TMP1854)) > (NU)(s->Sup.len)) raiseIndexError();
			LOC38 = ((NU8)(s->data[(NI32)(TMP1854)]) == (NU8)(110));
			LA39: ;
			if (!LOC38) goto LA40;
			nimln(270, "parseutils.nim");
			{
				NIM_BOOL LOC44;
				NI TMP1855;
				NI TMP1856;
				nimln(270, "parseutils.nim");
				LOC44 = 0;
				nimln(270, "parseutils.nim");
				nimln(270, "parseutils.nim");
				TMP1855 = addInt(i, 2);
				if ((NU)((NI32)(TMP1855)) > (NU)(s->Sup.len)) raiseIndexError();
				LOC44 = ((NU8)(s->data[(NI32)(TMP1855)]) == (NU8)(70));
				if (LOC44) goto LA45;
				nimln(270, "parseutils.nim");
				nimln(270, "parseutils.nim");
				TMP1856 = addInt(i, 2);
				if ((NU)((NI32)(TMP1856)) > (NU)(s->Sup.len)) raiseIndexError();
				LOC44 = ((NU8)(s->data[(NI32)(TMP1856)]) == (NU8)(102));
				LA45: ;
				if (!LOC44) goto LA46;
				nimln(271, "parseutils.nim");
				{
					NI TMP1857;
					NI TMP1858;
					NI TMP1859;
					nimln(271, "parseutils.nim");
					nimln(271, "parseutils.nim");
					nimln(271, "parseutils.nim");
					TMP1857 = addInt(i, 3);
					if ((NU)((NI32)(TMP1857)) > (NU)(s->Sup.len)) raiseIndexError();
					if (!!((((NU8)(s->data[(NI32)(TMP1857)])) >= ((NU8)(97)) && ((NU8)(s->data[(NI32)(TMP1857)])) <= ((NU8)(122)) || ((NU8)(s->data[(NI32)(TMP1857)])) >= ((NU8)(65)) && ((NU8)(s->data[(NI32)(TMP1857)])) <= ((NU8)(90)) || ((NU8)(s->data[(NI32)(TMP1857)])) >= ((NU8)(48)) && ((NU8)(s->data[(NI32)(TMP1857)])) <= ((NU8)(57)) || ((NU8)(s->data[(NI32)(TMP1857)])) == ((NU8)(95))))) goto LA50;
					nimln(272, "parseutils.nim");
					nimln(272, "parseutils.nim");
					(*number) = ((NF)(INF) * (NF)(sign));
					nimln(273, "parseutils.nim");
					nimln(273, "parseutils.nim");
					nimln(273, "parseutils.nim");
					nimln(273, "parseutils.nim");
					TMP1858 = addInt(i, 3);
					TMP1859 = subInt((NI32)(TMP1858), start);
					result = (NI32)(TMP1859);
					goto BeforeRet;
				}
				LA50: ;
			}
			LA46: ;
		}
		LA40: ;
		nimln(274, "parseutils.nim");
		nimln(274, "parseutils.nim");
		result = 0;
		goto BeforeRet;
	}
	LA34: ;
	nimln(275, "parseutils.nim");
	while (1) {
		NI TMP1860;
		nimln(275, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		if (!(((NU8)(s->data[i])) >= ((NU8)(48)) && ((NU8)(s->data[i])) <= ((NU8)(57)))) goto LA52;
		nimln(277, "parseutils.nim");
		nimln(277, "parseutils.nim");
		flags = (NI)(flags | 1);
		nimln(278, "parseutils.nim");
		nimln(278, "parseutils.nim");
		nimln(278, "parseutils.nim");
		nimln(278, "parseutils.nim");
		nimln(278, "parseutils.nim");
		nimln(278, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		TMP1860 = subInt(((NI) (((NU8)(s->data[i])))), 48);
		(*number) = ((NF)(((NF)((*number)) * (NF)(1.0000000000000000e+001))) + (NF)(((double) (((NI) ((NI32)(TMP1860)))))));
		nimln(279, "parseutils.nim");
		i = addInt(i, 1);
		nimln(280, "parseutils.nim");
		while (1) {
			nimln(280, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			if (!((NU8)(s->data[i]) == (NU8)(95))) goto LA53;
			nimln(280, "parseutils.nim");
			i = addInt(i, 1);
		} LA53: ;
	} LA52: ;
	nimln(282, "parseutils.nim");
	{
		NF hd;
		nimln(282, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		if (!((NU8)(s->data[i]) == (NU8)(46))) goto LA56;
		nimln(283, "parseutils.nim");
		hd = 1.0000000000000000e+000;
		nimln(284, "parseutils.nim");
		i = addInt(i, 1);
		nimln(285, "parseutils.nim");
		while (1) {
			NI TMP1861;
			nimln(285, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			if (!(((NU8)(s->data[i])) >= ((NU8)(48)) && ((NU8)(s->data[i])) <= ((NU8)(57)))) goto LA58;
			nimln(287, "parseutils.nim");
			nimln(287, "parseutils.nim");
			flags = (NI)(flags | 2);
			nimln(288, "parseutils.nim");
			nimln(288, "parseutils.nim");
			nimln(288, "parseutils.nim");
			nimln(288, "parseutils.nim");
			nimln(288, "parseutils.nim");
			nimln(288, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			TMP1861 = subInt(((NI) (((NU8)(s->data[i])))), 48);
			(*number) = ((NF)(((NF)((*number)) * (NF)(1.0000000000000000e+001))) + (NF)(((double) (((NI) ((NI32)(TMP1861)))))));
			nimln(289, "parseutils.nim");
			nimln(289, "parseutils.nim");
			hd = ((NF)(hd) * (NF)(1.0000000000000000e+001));
			nimln(290, "parseutils.nim");
			i = addInt(i, 1);
			nimln(291, "parseutils.nim");
			while (1) {
				nimln(291, "parseutils.nim");
				if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
				if (!((NU8)(s->data[i]) == (NU8)(95))) goto LA59;
				nimln(291, "parseutils.nim");
				i = addInt(i, 1);
			} LA59: ;
		} LA58: ;
		nimln(292, "parseutils.nim");
		nimln(292, "parseutils.nim");
		(*number) = ((NF)((*number)) / (NF)(hd));
	}
	LA56: ;
	nimln(294, "parseutils.nim");
	{
		nimln(294, "parseutils.nim");
		if (!(flags == 0)) goto LA62;
		nimln(294, "parseutils.nim");
		nimln(294, "parseutils.nim");
		result = 0;
		goto BeforeRet;
	}
	LA62: ;
	nimln(296, "parseutils.nim");
	{
		nimln(296, "parseutils.nim");
		if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
		if (!(((NU8)(s->data[i])) == ((NU8)(101)) || ((NU8)(s->data[i])) == ((NU8)(69)))) goto LA66;
		nimln(297, "parseutils.nim");
		i = addInt(i, 1);
		nimln(298, "parseutils.nim");
		{
			nimln(298, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			if (!((NU8)(s->data[i]) == (NU8)(43))) goto LA70;
			nimln(299, "parseutils.nim");
			i = addInt(i, 1);
		}
		goto LA68;
		LA70: ;
		{
			nimln(300, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			if (!((NU8)(s->data[i]) == (NU8)(45))) goto LA73;
			nimln(301, "parseutils.nim");
			esign = -1.0000000000000000e+000;
			nimln(302, "parseutils.nim");
			i = addInt(i, 1);
		}
		goto LA68;
		LA73: ;
		LA68: ;
		nimln(303, "parseutils.nim");
		{
			nimln(303, "parseutils.nim");
			nimln(303, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			if (!!((((NU8)(s->data[i])) >= ((NU8)(48)) && ((NU8)(s->data[i])) <= ((NU8)(57))))) goto LA77;
			nimln(304, "parseutils.nim");
			nimln(304, "parseutils.nim");
			result = 0;
			goto BeforeRet;
		}
		LA77: ;
		nimln(305, "parseutils.nim");
		while (1) {
			NI TMP1862;
			NI TMP1863;
			NI TMP1864;
			nimln(305, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			if (!(((NU8)(s->data[i])) >= ((NU8)(48)) && ((NU8)(s->data[i])) <= ((NU8)(57)))) goto LA79;
			nimln(306, "parseutils.nim");
			nimln(306, "parseutils.nim");
			nimln(306, "parseutils.nim");
			nimln(306, "parseutils.nim");
			TMP1862 = mulInt(exponent, 10);
			nimln(306, "parseutils.nim");
			if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
			TMP1863 = addInt((NI32)(TMP1862), ((NI) (((NU8)(s->data[i])))));
			TMP1864 = subInt((NI32)(TMP1863), 48);
			exponent = (NI32)(TMP1864);
			nimln(307, "parseutils.nim");
			i = addInt(i, 1);
			nimln(308, "parseutils.nim");
			while (1) {
				nimln(308, "parseutils.nim");
				if ((NU)(i) > (NU)(s->Sup.len)) raiseIndexError();
				if (!((NU8)(s->data[i]) == (NU8)(95))) goto LA80;
				nimln(308, "parseutils.nim");
				i = addInt(i, 1);
			} LA80: ;
		} LA79: ;
	}
	LA66: ;
	nimln(310, "parseutils.nim");
	hd = tentothepowerof_86712(exponent);
	nimln(311, "parseutils.nim");
	{
		nimln(311, "parseutils.nim");
		if (!(0.0 < esign)) goto LA83;
		nimln(311, "parseutils.nim");
		nimln(311, "parseutils.nim");
		(*number) = ((NF)((*number)) * (NF)(hd));
	}
	goto LA81;
	LA83: ;
	{
		nimln(312, "parseutils.nim");
		nimln(312, "parseutils.nim");
		(*number) = ((NF)((*number)) / (NF)(hd));
	}
	LA81: ;
	nimln(314, "parseutils.nim");
	nimln(314, "parseutils.nim");
	(*number) = ((NF)((*number)) * (NF)(sign));
	nimln(315, "parseutils.nim");
	nimln(315, "parseutils.nim");
	TMP1865 = subInt(i, start);
	result = (NI32)(TMP1865);
	BeforeRet: ;
	popFrame();
	return result;
}
Ejemplo n.º 4
0
N_NIMCALL(NI, nodetabletestorset_224881)(tnodetable172717* t, tnode172659* key, NI val) {
	NI result;
	tnodepairseq172715* n;
	NI k;
	NI index;
	nimfr("NodeTableTestOrSet", "treetab.nim")
	result = 0;
	n = 0;
	nimln(96, "treetab.nim");
	k = hashtree_224018(key);
	nimln(97, "treetab.nim");
	index = nodetablerawget_224377((*t), k, key);
	nimln(98, "treetab.nim");
	{
		nimln(702, "system.nim");
		if (!(0 <= index)) goto LA3;
		nimln(99, "treetab.nim");
		{
			nimln(99, "treetab.nim");
			nimln(99, "treetab.nim");
			nimln(99, "treetab.nim");
			if ((NU)(index) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
			if (!!(!(((*t).Data->data[index].Key == NIM_NIL)))) goto LA7;
			nimln(99, "treetab.nim");
			hiddenraiseassert_76217(((NimStringDesc*) &TMP3159));		}		LA7: ;
		nimln(100, "treetab.nim");
		if ((NU)(index) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
		result = (*t).Data->data[index].Val;
	}	goto LA1;
	LA3: ;
	{
		nimln(102, "treetab.nim");
		{
			NIM_BOOL LOC12;
			NI TMP3161;
			NI i_225036;
			NI HEX3Atmp_225074;
			NI res_225076;
			tnodepairseq172715* LOC20;
			nimln(102, "treetab.nim");
			nimln(102, "treetab.nim");
			LOC12 = 0;
			LOC12 = mustrehash_179191((*t).Data->Sup.len, (*t).Counter);
			if (!LOC12) goto LA13;
			nimln(103, "treetab.nim");
			nimln(103, "treetab.nim");
			nimln(103, "treetab.nim");
			TMP3161 = mulInt((*t).Data->Sup.len, 2);
			n = (tnodepairseq172715*) newSeq((&NTI172715), (NI32)(TMP3161));
			i_225036 = 0;
			HEX3Atmp_225074 = 0;
			nimln(104, "treetab.nim");
			nimln(104, "treetab.nim");
			HEX3Atmp_225074 = ((*t).Data->Sup.len-1);
			nimln(1301, "system.nim");
			res_225076 = 0;
			nimln(1302, "system.nim");
			while (1) {
				nimln(1302, "system.nim");
				if (!(res_225076 <= HEX3Atmp_225074)) goto LA15;
				nimln(1301, "system.nim");
				i_225036 = res_225076;
				nimln(105, "treetab.nim");
				{
					nimln(698, "system.nim");
					nimln(698, "system.nim");
					if ((NU)(i_225036) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if (!!(((*t).Data->data[i_225036].Key == NIM_NIL))) goto LA18;
					nimln(106, "treetab.nim");
					if ((NU)(i_225036) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if ((NU)(i_225036) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if ((NU)(i_225036) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					nodetablerawinsert_224411(&n, (*t).Data->data[i_225036].H, (*t).Data->data[i_225036].Key, (*t).Data->data[i_225036].Val);				}				LA18: ;
				nimln(1304, "system.nim");
				res_225076 = addInt(res_225076, 1);
			} LA15: ;
			nimln(107, "treetab.nim");
			LOC20 = 0;
			LOC20 = (*t).Data;
			unsureAsgnRef((void**) &(*t).Data, n);
			n = LOC20;
		}		LA13: ;
		nimln(108, "treetab.nim");
		nodetablerawinsert_224411(&(*t).Data, k, key, val);		nimln(109, "treetab.nim");
		result = val;
		nimln(110, "treetab.nim");
		(*t).Counter = addInt((*t).Counter, 1);
	}	LA1: ;
	popFrame();
	return result;
}N_NOINLINE(void, compilertreetabInit)(void) {
Ejemplo n.º 5
0
N_NIMCALL(void, fillbuffer_277084)(tbaselexer277029* l) {
	NI charsread;
	NI tocopy;
	NI s;
	NI oldbuflen;
	NI TMP3619;
	NI TMP3620;
	NI TMP3624;
	NI TMP3625;
	NI LOC13;
	NI TMP3626;
	NI TMP3627;
	nimfr("fillBuffer", "lexbase.nim")
	charsread = 0;
	tocopy = 0;
	s = 0;
	oldbuflen = 0;
	nimln(77, "lexbase.nim");
	{
		nimln(77, "lexbase.nim");
		nimln(77, "lexbase.nim");
		if (!!(((*l).Sentinel < (*l).Buflen))) goto LA3;
		nimln(77, "lexbase.nim");
		failedassertimpl_79821(((NimStringDesc*) &TMP3618));
	}
	LA3: ;
	nimln(78, "lexbase.nim");
	nimln(78, "lexbase.nim");
	nimln(78, "lexbase.nim");
	TMP3619 = subInt((*l).Buflen, (*l).Sentinel);
	TMP3620 = subInt((NI32)(TMP3619), 1);
	tocopy = (NI32)(TMP3620);
	nimln(79, "lexbase.nim");
	{
		nimln(79, "lexbase.nim");
		nimln(79, "lexbase.nim");
		if (!!((0 <= tocopy))) goto LA7;
		nimln(79, "lexbase.nim");
		failedassertimpl_79821(((NimStringDesc*) &TMP3621));
	}
	LA7: ;
	nimln(80, "lexbase.nim");
	{
		NI TMP3622;
		NI TMP3623;
		nimln(80, "lexbase.nim");
		if (!(0 < tocopy)) goto LA11;
		nimln(81, "lexbase.nim");
		nimln(81, "lexbase.nim");
		TMP3622 = addInt((*l).Sentinel, 1);
		nimln(81, "lexbase.nim");
		TMP3623 = mulInt(tocopy, 1);
		memmove(((void*) ((*l).Buf)), ((void*) (&(*l).Buf[(NI32)(TMP3622)])), (NI32)(TMP3623));
	}
	LA11: ;
	nimln(83, "lexbase.nim");
	nimln(84, "lexbase.nim");
	nimln(83, "lexbase.nim");
	nimln(84, "lexbase.nim");
	nimln(84, "lexbase.nim");
	TMP3624 = addInt((*l).Sentinel, 1);
	TMP3625 = mulInt((NI32)(TMP3624), 1);
	LOC13 = 0;
	LOC13 = readdata_123733((*l).Input, ((void*) (&(*l).Buf[tocopy])), (NI32)(TMP3625));
	TMP3626 = divInt(LOC13, 1);
	charsread = (NI32)(TMP3626);
	nimln(85, "lexbase.nim");
	nimln(85, "lexbase.nim");
	TMP3627 = addInt(tocopy, charsread);
	s = (NI32)(TMP3627);
	nimln(86, "lexbase.nim");
	{
		NI TMP3628;
		nimln(86, "lexbase.nim");
		nimln(86, "lexbase.nim");
		TMP3628 = addInt((*l).Sentinel, 1);
		if (!(charsread < (NI32)(TMP3628))) goto LA16;
		nimln(87, "lexbase.nim");
		(*l).Buf[s] = 0;
		nimln(88, "lexbase.nim");
		(*l).Sentinel = s;
	}
	goto LA14;
	LA16: ;
	{
		nimln(91, "lexbase.nim");
		s = subInt(s, 1);
		nimln(92, "lexbase.nim");
		while (1) {
			nimln(93, "lexbase.nim");
			{
				nimln(93, "lexbase.nim");
				nimln(93, "lexbase.nim");
				if (!!((s < (*l).Buflen))) goto LA22;
				nimln(93, "lexbase.nim");
				failedassertimpl_79821(((NimStringDesc*) &TMP3629));
			}
			LA22: ;
			nimln(94, "lexbase.nim");
			while (1) {
				NIM_BOOL LOC25;
				nimln(94, "lexbase.nim");
				LOC25 = 0;
				nimln(94, "lexbase.nim");
				LOC25 = (0 <= s);
				if (!(LOC25)) goto LA26;
				nimln(94, "lexbase.nim");
				nimln(94, "lexbase.nim");
				LOC25 = !((((NU8)((*l).Buf[s])) == ((NU8)(13)) || ((NU8)((*l).Buf[s])) == ((NU8)(10))));
				LA26: ;
				if (!LOC25) goto LA24;
				nimln(94, "lexbase.nim");
				s = subInt(s, 1);
			} LA24: ;
			nimln(95, "lexbase.nim");
			{
				nimln(95, "lexbase.nim");
				if (!(0 <= s)) goto LA29;
				nimln(97, "lexbase.nim");
				(*l).Sentinel = s;
				nimln(98, "lexbase.nim");
				goto LA19;
			}
			goto LA27;
			LA29: ;
			{
				NI TMP3630;
				NI TMP3631;
				void* LOC32;
				NI TMP3634;
				NI LOC37;
				NI TMP3635;
				NI TMP3638;
				nimln(102, "lexbase.nim");
				oldbuflen = (*l).Buflen;
				nimln(103, "lexbase.nim");
				nimln(103, "lexbase.nim");
				TMP3630 = mulInt((*l).Buflen, 2);
				(*l).Buflen = (NI32)(TMP3630);
				nimln(104, "lexbase.nim");
				nimln(104, "lexbase.nim");
				nimln(104, "lexbase.nim");
				TMP3631 = mulInt((*l).Buflen, 1);
				LOC32 = 0;
				LOC32 = realloc_4631(((void*) ((*l).Buf)), (NI32)(TMP3631));
				(*l).Buf = ((NCSTRING) (LOC32));
				nimln(105, "lexbase.nim");
				{
					NI TMP3632;
					nimln(105, "lexbase.nim");
					nimln(105, "lexbase.nim");
					nimln(105, "lexbase.nim");
					TMP3632 = subInt((*l).Buflen, oldbuflen);
					if (!!(((NI32)(TMP3632) == oldbuflen))) goto LA35;
					nimln(105, "lexbase.nim");
					failedassertimpl_79821(((NimStringDesc*) &TMP3633));
				}
				LA35: ;
				nimln(106, "lexbase.nim");
				nimln(107, "lexbase.nim");
				nimln(106, "lexbase.nim");
				nimln(107, "lexbase.nim");
				TMP3634 = mulInt(oldbuflen, 1);
				LOC37 = 0;
				LOC37 = readdata_123733((*l).Input, ((void*) (&(*l).Buf[oldbuflen])), (NI32)(TMP3634));
				TMP3635 = divInt(LOC37, 1);
				charsread = (NI32)(TMP3635);
				nimln(108, "lexbase.nim");
				{
					NI TMP3636;
					NI TMP3637;
					nimln(108, "lexbase.nim");
					if (!(charsread < oldbuflen)) goto LA40;
					nimln(109, "lexbase.nim");
					nimln(109, "lexbase.nim");
					TMP3636 = addInt(oldbuflen, charsread);
					(*l).Buf[(NI32)(TMP3636)] = 0;
					nimln(110, "lexbase.nim");
					nimln(110, "lexbase.nim");
					TMP3637 = addInt(oldbuflen, charsread);
					(*l).Sentinel = (NI32)(TMP3637);
					nimln(111, "lexbase.nim");
					goto LA19;
				}
				LA40: ;
				nimln(112, "lexbase.nim");
				nimln(112, "lexbase.nim");
				TMP3638 = subInt((*l).Buflen, 1);
				s = (NI32)(TMP3638);
			}
			LA27: ;
		} LA19: ;
	}
	LA14: ;
	popFrame();
}
Ejemplo n.º 6
0
N_NIMCALL(trope148007*, ropef_148079)(NimStringDesc* frmt, trope148007** args, NI argsLen0) {
	trope148007* result;
	NI i;
	NI length;
	NI num;
	nimfr("ropef", "ropes.nim")
	result = 0;
	nimln(243, "ropes.nim");
	i = 0;
	nimln(244, "ropes.nim");
	nimln(244, "ropes.nim");
	length = frmt->Sup.len;
	nimln(245, "ropes.nim");
	result = NIM_NIL;
	nimln(246, "ropes.nim");
	num = 0;
	nimln(247, "ropes.nim");
	while (1) {
		NI TMP558;
		NI start;
		nimln(247, "ropes.nim");
		nimln(247, "ropes.nim");
		TMP558 = subInt(length, 1);
		if (!(i <= (NI32)(TMP558))) goto LA1;
		nimln(248, "ropes.nim");
		{
			nimln(248, "ropes.nim");
			if ((NU)(i) > (NU)(frmt->Sup.len)) raiseIndexError();
			if (!((NU8)(frmt->data[i]) == (NU8)(36))) goto LA4;
			nimln(249, "ropes.nim");
			i = addInt(i, 1);
			nimln(250, "ropes.nim");
			if ((NU)(i) > (NU)(frmt->Sup.len)) raiseIndexError();
			switch (((NU8)(frmt->data[i]))) {
			case 36:
			{
				nimln(252, "ropes.nim");
				app_148046(&result, ((NimStringDesc*) &TMP559));
				nimln(253, "ropes.nim");
				i = addInt(i, 1);
			}
			break;
			case 35:
			{
				nimln(255, "ropes.nim");
				i = addInt(i, 1);
				nimln(256, "ropes.nim");
				if ((NU)(num) >= (NU)(argsLen0)) raiseIndexError();
				app_148040(&result, args[num]);
				nimln(257, "ropes.nim");
				num = addInt(num, 1);
			}
			break;
			case 48 ... 57:
			{
				NI j;
				nimln(259, "ropes.nim");
				j = 0;
				nimln(260, "ropes.nim");
				while (1) {
					NI TMP560;
					NI TMP561;
					NI TMP562;
					nimln(261, "ropes.nim");
					nimln(261, "ropes.nim");
					nimln(261, "ropes.nim");
					nimln(261, "ropes.nim");
					TMP560 = mulInt(j, 10);
					nimln(261, "ropes.nim");
					if ((NU)(i) > (NU)(frmt->Sup.len)) raiseIndexError();
					TMP561 = addInt((NI32)(TMP560), ((NI) (((NU8)(frmt->data[i])))));
					TMP562 = subInt((NI32)(TMP561), 48);
					j = (NI32)(TMP562);
					nimln(262, "ropes.nim");
					i = addInt(i, 1);
					nimln(263, "ropes.nim");
					{
						NIM_BOOL LOC12;
						NI TMP563;
						NI TMP564;
						nimln(263, "ropes.nim");
						LOC12 = 0;
						nimln(263, "ropes.nim");
						nimln(263, "ropes.nim");
						nimln(263, "ropes.nim");
						TMP563 = addInt(length, 0);
						TMP564 = subInt((NI32)(TMP563), 1);
						LOC12 = ((NI32)(TMP564) < i);
						if (LOC12) goto LA13;
						nimln(263, "ropes.nim");
						nimln(263, "ropes.nim");
						if ((NU)(i) > (NU)(frmt->Sup.len)) raiseIndexError();
						LOC12 = !((((NU8)(frmt->data[i])) >= ((NU8)(48)) && ((NU8)(frmt->data[i])) <= ((NU8)(57))));
						LA13: ;
						if (!LOC12) goto LA14;
						nimln(263, "ropes.nim");
						goto LA9;
					}
					LA14: ;
				} LA9: ;
				nimln(264, "ropes.nim");
				num = j;
				nimln(265, "ropes.nim");
				{
					NI TMP565;
					NimStringDesc* LOC20;
					nimln(265, "ropes.nim");
					nimln(265, "ropes.nim");
					nimln(265, "ropes.nim");
					TMP565 = addInt((argsLen0-1), 1);
					if (!((NI32)(TMP565) < j)) goto LA18;
					nimln(266, "ropes.nim");
					nimln(266, "ropes.nim");
					LOC20 = 0;
					LOC20 = nimIntToStr(j);
					errorhandler_148108.ClEnv? errorhandler_148108.ClPrc(((NU8) 1), LOC20, NIM_FALSE, errorhandler_148108.ClEnv):((TMP566)(errorhandler_148108.ClPrc))(((NU8) 1), LOC20, NIM_FALSE);
				}
				goto LA16;
				LA18: ;
				{
					NI TMP567;
					nimln(268, "ropes.nim");
					nimln(268, "ropes.nim");
					TMP567 = subInt(j, 1);
					if ((NU)((NI32)(TMP567)) >= (NU)(argsLen0)) raiseIndexError();
					app_148040(&result, args[(NI32)(TMP567)]);
				}
				LA16: ;
			}
			break;
			case 110:
			{
				nimln(270, "ropes.nim");
				app_148040(&result, softrnl_149435);
				nimln(271, "ropes.nim");
				i = addInt(i, 1);
			}
			break;
			case 78:
			{
				nimln(273, "ropes.nim");
				app_148040(&result, rnl_149434);
				nimln(274, "ropes.nim");
				i = addInt(i, 1);
			}
			break;
			default:
			{
				NimStringDesc* LOC25;
				nimln(276, "ropes.nim");
				nimln(276, "ropes.nim");
				if ((NU)(i) > (NU)(frmt->Sup.len)) raiseIndexError();
				LOC25 = 0;
				LOC25 = nimCharToStr(frmt->data[i]);
				errorhandler_148108.ClEnv? errorhandler_148108.ClPrc(((NU8) 1), LOC25, NIM_FALSE, errorhandler_148108.ClEnv):((TMP568)(errorhandler_148108.ClPrc))(((NU8) 1), LOC25, NIM_FALSE);
			}
			break;
			}
		}
		LA4: ;
		nimln(277, "ropes.nim");
		start = i;
		nimln(278, "ropes.nim");
		while (1) {
			nimln(278, "ropes.nim");
			if (!(i < length)) goto LA26;
			nimln(279, "ropes.nim");
			{
				nimln(279, "ropes.nim");
				nimln(279, "ropes.nim");
				if ((NU)(i) > (NU)(frmt->Sup.len)) raiseIndexError();
				if (!!(((NU8)(frmt->data[i]) == (NU8)(36)))) goto LA29;
				nimln(279, "ropes.nim");
				i = addInt(i, 1);
			}
			goto LA27;
			LA29: ;
			{
				nimln(280, "ropes.nim");
				goto LA26;
			}
			LA27: ;
		} LA26: ;
		nimln(281, "ropes.nim");
		{
			NI TMP569;
			NI TMP570;
			NimStringDesc* LOC36;
			nimln(281, "ropes.nim");
			nimln(281, "ropes.nim");
			TMP569 = subInt(i, 1);
			if (!(start <= (NI32)(TMP569))) goto LA34;
			nimln(282, "ropes.nim");
			nimln(282, "ropes.nim");
			nimln(282, "ropes.nim");
			TMP570 = subInt(i, 1);
			LOC36 = 0;
			LOC36 = copyStrLast(frmt, start, (NI32)(TMP570));
			app_148046(&result, LOC36);
		}
		LA34: ;
	} LA1: ;
	nimln(283, "ropes.nim");
	{
		NIM_BOOL LOC39;
		nimln(283, "ropes.nim");
		nimln(283, "ropes.nim");
		LOC39 = 0;
		LOC39 = ropeinvariant_148098(result);
		if (!!(LOC39)) goto LA40;
		nimln(283, "ropes.nim");
		failedassertimpl_80621(((NimStringDesc*) &TMP545));
	}
	LA40: ;
	popFrame();
	return result;
}
Ejemplo n.º 7
0
N_NIMCALL(void, fillbuffer_164072)(tbaselexer164018* l) {
	NI charsread;
	NI tocopy;
	NI s;
	NI oldbuflen;
	NI TMP1617;
	NI TMP1618;
	NI TMP1622;
	NI TMP1623;
	NI LOC13;
	NI TMP1624;
	NI TMP1625;
	nimfr("FillBuffer", "nimlexbase.nim")
	charsread = 0;
	tocopy = 0;
	s = 0;
	oldbuflen = 0;
	nimln(82, "nimlexbase.nim");
	{
		nimln(82, "nimlexbase.nim");
		nimln(82, "nimlexbase.nim");
		if (!!(((*l).Sentinel < (*l).Buflen))) goto LA3;
		nimln(82, "nimlexbase.nim");
		hiddenraiseassert_77217(((NimStringDesc*) &TMP1616));	}	LA3: ;
	nimln(83, "nimlexbase.nim");
	nimln(83, "nimlexbase.nim");
	nimln(83, "nimlexbase.nim");
	TMP1617 = subInt((*l).Buflen, (*l).Sentinel);
	TMP1618 = subInt((NI32)(TMP1617), 1);
	tocopy = (NI32)(TMP1618);
	nimln(84, "nimlexbase.nim");
	{
		nimln(84, "nimlexbase.nim");
		nimln(84, "nimlexbase.nim");
		if (!!((0 <= tocopy))) goto LA7;
		nimln(84, "nimlexbase.nim");
		hiddenraiseassert_77217(((NimStringDesc*) &TMP1619));	}	LA7: ;
	nimln(85, "nimlexbase.nim");
	{
		NI TMP1620;
		NI TMP1621;
		nimln(706, "system.nim");
		if (!(0 < tocopy)) goto LA11;
		nimln(86, "nimlexbase.nim");
		nimln(86, "nimlexbase.nim");
		TMP1620 = addInt((*l).Sentinel, 1);
		nimln(86, "nimlexbase.nim");
		TMP1621 = mulInt(tocopy, 1);
		memmove(((void*) ((*l).Buf)), ((void*) (&(*l).Buf[(NI32)(TMP1620)])), (NI32)(TMP1621));	}	LA11: ;
	nimln(88, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	nimln(88, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	TMP1622 = addInt((*l).Sentinel, 1);
	TMP1623 = mulInt((NI32)(TMP1622), 1);
	LOC13 = 0;
	LOC13 = llstreamread_163242((*l).Stream, ((void*) (&(*l).Buf[tocopy])), (NI32)(TMP1623));
	TMP1624 = divInt(LOC13, 1);
	charsread = (NI32)(TMP1624);
	nimln(90, "nimlexbase.nim");
	nimln(90, "nimlexbase.nim");
	TMP1625 = addInt(tocopy, charsread);
	s = (NI32)(TMP1625);
	nimln(91, "nimlexbase.nim");
	{
		NI TMP1626;
		nimln(91, "nimlexbase.nim");
		nimln(91, "nimlexbase.nim");
		TMP1626 = addInt((*l).Sentinel, 1);
		if (!(charsread < (NI32)(TMP1626))) goto LA16;
		nimln(92, "nimlexbase.nim");
		(*l).Buf[s] = 0;
		nimln(93, "nimlexbase.nim");
		(*l).Sentinel = s;
	}	goto LA14;
	LA16: ;
	{
		nimln(96, "nimlexbase.nim");
		s = subInt(s, 1);
		nimln(97, "nimlexbase.nim");
		while (1) {
			nimln(98, "nimlexbase.nim");
			{
				nimln(98, "nimlexbase.nim");
				nimln(98, "nimlexbase.nim");
				if (!!((s < (*l).Buflen))) goto LA22;
				nimln(98, "nimlexbase.nim");
				hiddenraiseassert_77217(((NimStringDesc*) &TMP1627));			}			LA22: ;
			nimln(99, "nimlexbase.nim");
			while (1) {
				NIM_BOOL LOC25;
				nimln(99, "nimlexbase.nim");
				LOC25 = 0;
				nimln(702, "system.nim");
				LOC25 = (0 <= s);
				if (!(LOC25)) goto LA26;
				nimln(99, "nimlexbase.nim");
				nimln(730, "system.nim");
				LOC25 = !((((NU8)((*l).Buf[s])) == ((NU8)(13)) || ((NU8)((*l).Buf[s])) == ((NU8)(10))));
				LA26: ;
				if (!LOC25) goto LA24;
				nimln(99, "nimlexbase.nim");
				s = subInt(s, 1);
			} LA24: ;
			nimln(100, "nimlexbase.nim");
			{
				nimln(702, "system.nim");
				if (!(0 <= s)) goto LA29;
				nimln(102, "nimlexbase.nim");
				(*l).Sentinel = s;
				nimln(103, "nimlexbase.nim");
				goto LA19;
			}			goto LA27;
			LA29: ;
			{
				NI TMP1628;
				NI TMP1629;
				void* LOC32;
				NI TMP1632;
				NI LOC37;
				NI TMP1633;
				NI TMP1636;
				nimln(107, "nimlexbase.nim");
				oldbuflen = (*l).Buflen;
				nimln(108, "nimlexbase.nim");
				nimln(108, "nimlexbase.nim");
				TMP1628 = mulInt((*l).Buflen, 2);
				(*l).Buflen = (NI32)(TMP1628);
				nimln(109, "nimlexbase.nim");
				nimln(109, "nimlexbase.nim");
				nimln(109, "nimlexbase.nim");
				TMP1629 = mulInt((*l).Buflen, 1);
				LOC32 = 0;
				LOC32 = realloc_4007(((void*) ((*l).Buf)), (NI32)(TMP1629));
				(*l).Buf = ((NCSTRING) (LOC32));
				nimln(110, "nimlexbase.nim");
				{
					NI TMP1630;
					nimln(110, "nimlexbase.nim");
					nimln(110, "nimlexbase.nim");
					nimln(110, "nimlexbase.nim");
					TMP1630 = subInt((*l).Buflen, oldbuflen);
					if (!!(((NI32)(TMP1630) == oldbuflen))) goto LA35;
					nimln(110, "nimlexbase.nim");
					hiddenraiseassert_77217(((NimStringDesc*) &TMP1631));				}				LA35: ;
				nimln(111, "nimlexbase.nim");
				nimln(112, "nimlexbase.nim");
				nimln(111, "nimlexbase.nim");
				nimln(112, "nimlexbase.nim");
				TMP1632 = mulInt(oldbuflen, 1);
				LOC37 = 0;
				LOC37 = llstreamread_163242((*l).Stream, ((void*) (&(*l).Buf[oldbuflen])), (NI32)(TMP1632));
				TMP1633 = divInt(LOC37, 1);
				charsread = (NI32)(TMP1633);
				nimln(113, "nimlexbase.nim");
				{
					NI TMP1634;
					NI TMP1635;
					nimln(113, "nimlexbase.nim");
					if (!(charsread < oldbuflen)) goto LA40;
					nimln(114, "nimlexbase.nim");
					nimln(114, "nimlexbase.nim");
					TMP1634 = addInt(oldbuflen, charsread);
					(*l).Buf[(NI32)(TMP1634)] = 0;
					nimln(115, "nimlexbase.nim");
					nimln(115, "nimlexbase.nim");
					TMP1635 = addInt(oldbuflen, charsread);
					(*l).Sentinel = (NI32)(TMP1635);
					nimln(116, "nimlexbase.nim");
					goto LA19;
				}				LA40: ;
				nimln(117, "nimlexbase.nim");
				nimln(117, "nimlexbase.nim");
				TMP1636 = subInt((*l).Buflen, 1);
				s = (NI32)(TMP1636);
			}			LA27: ;
		} LA19: ;
	}	LA14: ;
	popFrame();
}
Ejemplo n.º 8
0
N_NIMCALL(void, loadlevel_154449)(NimStringDesc* name) {
    NimStringDesc* LOC1;
    NI32 x;
    NI32 y;
    nimfr("loadLevel", "game.nim")
    nimln(34, "game.nim");
    LOC1 = 0;
    LOC1 = rawNewString(name->Sup.len + 9);
    appendString(LOC1, ((NimStringDesc*) &TMP375));
    appendString(LOC1, name);
    appendString(LOC1, ((NimStringDesc*) &TMP376));
    asgnRefNoCycle((void**) (&mapstring_154011), readfile_13434(LOC1));
    nimln(35, "game.nim");
    x = ((NI32) 0);
    y = ((NI32) 0);
    {
        NIM_CHAR character_154454;
        NI i_154506;
        NI L_154508;
        character_154454 = 0;
        nimln(3102, "system.nim");
        i_154506 = ((NI) 0);
        nimln(3103, "system.nim");
        L_154508 = (mapstring_154011 ? mapstring_154011->Sup.len : 0);
        {
            nimln(3104, "system.nim");
            while (1) {
                NimStringDesc* LOC5;
                NI TMP385;
                if (!(i_154506 < L_154508)) goto LA4;
                nimln(3105, "system.nim");
                if ((NU)(i_154506) > (NU)(mapstring_154011->Sup.len)) raiseIndexError();
                character_154454 = mapstring_154011->data[i_154506];
                nimln(37, "game.nim");
                LOC5 = 0;
                LOC5 = nimIntToStr(((NI) (x)));
                printf("%s\015\012", LOC5? (LOC5)->data:"nil");
                nimln(38, "game.nim");
                {
                    NI32 TMP377;
                    NI32 TMP378;
                    WallHEX3Aobjecttype153013* LOC10;
                    NI32 TMP379;
                    if (!((NU8)(character_154454) == (NU8)(49))) goto LA8;
                    nimln(39, "game.nim");
                    TMP377 = mulInt(x, tilesize_154012);
                    TMP378 = mulInt(y, tilesize_154012);
                    LOC10 = 0;
                    LOC10 = newwall_153024((NI32)(TMP377), (NI32)(TMP378));
                    map_154010 = (TY154009*) incrSeq(&(map_154010)->Sup, sizeof(WallHEX3Aobjecttype153013*));
                    asgnRef((void**) (&map_154010->data[map_154010->Sup.len-1]), LOC10);
                    nimln(40, "game.nim");
                    TMP379 = addInt(x, ((NI) 1));
                    x = (NI32)(TMP379);
                }
                goto LA6;
LA8:
                ;
                {
                    NI32 TMP380;
                    NI32 TMP381;
                    NI32 TMP382;
                    nimln(41, "game.nim");
                    if (!((NU8)(character_154454) == (NU8)(80))) goto LA12;
                    nimln(42, "game.nim");
                    TMP380 = mulInt(x, tilesize_154012);
                    TMP381 = mulInt(y, tilesize_154012);
                    asgnRef((void**) (&player1_154008), newplayer_152024((NI32)(TMP380), (NI32)(TMP381)));
                    nimln(43, "game.nim");
                    TMP382 = addInt(x, ((NI) 1));
                    x = (NI32)(TMP382);
                }
                goto LA6;
LA12:
                ;
                {
                    NI32 TMP383;
                    nimln(44, "game.nim");
                    if (!((NU8)(character_154454) == (NU8)(48))) goto LA15;
                    nimln(45, "game.nim");
                    TMP383 = addInt(x, ((NI) 1));
                    x = (NI32)(TMP383);
                }
                goto LA6;
LA15:
                ;
                {
                    NI32 TMP384;
                    nimln(46, "game.nim");
                    if (!((NU8)(character_154454) == (NU8)(13))) goto LA18;
                    nimln(47, "game.nim");
                    TMP384 = addInt(y, ((NI) 1));
                    y = (NI32)(TMP384);
                    nimln(48, "game.nim");
                    x = ((NI32) 0);
                }
                goto LA6;
LA18:
                ;
LA6:
                ;
                nimln(3106, "system.nim");
                TMP385 = addInt(i_154506, ((NI) 1));
                i_154506 = (NI)(TMP385);
                nimln(3107, "system.nim");
                {
                    if (!!(((mapstring_154011 ? mapstring_154011->Sup.len : 0) == L_154508))) goto LA22;
                    failedassertimpl_88817(((NimStringDesc*) &TMP386));
                }
LA22:
                ;
            }
LA4:
            ;
        }
    }
    popFrame();
}
Ejemplo n.º 9
0
N_NIMCALL(void, fillbuffer_290071)(tbaselexer290016* l) {
	NI charsread;
	NI tocopy;
	NI s;
	NI oldbuflen;
	NI TMP4637;
	NI TMP4638;
	NI TMP4642;
	NI TMP4643;
	NI LOC13;
	NI TMP4644;
	NI TMP4645;
	nimfr("FillBuffer", "lexbase.nim")
	charsread = 0;
	tocopy = 0;
	s = 0;
	oldbuflen = 0;
	nimln(77, "lexbase.nim");
	{
		nimln(77, "lexbase.nim");
		nimln(77, "lexbase.nim");
		if (!!(((*l).Sentinel < (*l).Buflen))) goto LA3;
		nimln(77, "lexbase.nim");
		hiddenraiseassert_76017(((NimStringDesc*) &TMP4636));	}	LA3: ;
	nimln(78, "lexbase.nim");
	nimln(78, "lexbase.nim");
	nimln(78, "lexbase.nim");
	TMP4637 = subInt((*l).Buflen, (*l).Sentinel);
	TMP4638 = subInt((NI64)(TMP4637), 1);
	tocopy = (NI64)(TMP4638);
	nimln(79, "lexbase.nim");
	{
		nimln(79, "lexbase.nim");
		nimln(79, "lexbase.nim");
		if (!!((0 <= tocopy))) goto LA7;
		nimln(79, "lexbase.nim");
		hiddenraiseassert_76017(((NimStringDesc*) &TMP4639));	}	LA7: ;
	nimln(80, "lexbase.nim");
	{
		NI TMP4640;
		NI TMP4641;
		nimln(706, "system.nim");
		if (!(0 < tocopy)) goto LA11;
		nimln(81, "lexbase.nim");
		nimln(81, "lexbase.nim");
		TMP4640 = addInt((*l).Sentinel, 1);
		nimln(81, "lexbase.nim");
		TMP4641 = mulInt(tocopy, 1);
		memmove(((void*) ((*l).Buf)), ((void*) (&(*l).Buf[(NI64)(TMP4640)])), (NI64)(TMP4641));	}	LA11: ;
	nimln(83, "lexbase.nim");
	nimln(84, "lexbase.nim");
	nimln(83, "lexbase.nim");
	nimln(84, "lexbase.nim");
	nimln(84, "lexbase.nim");
	TMP4642 = addInt((*l).Sentinel, 1);
	TMP4643 = mulInt((NI64)(TMP4642), 1);
	LOC13 = 0;
	LOC13 = readdata_142731((*l).Input, ((void*) (&(*l).Buf[tocopy])), (NI64)(TMP4643));
	TMP4644 = divInt(LOC13, 1);
	charsread = (NI64)(TMP4644);
	nimln(85, "lexbase.nim");
	nimln(85, "lexbase.nim");
	TMP4645 = addInt(tocopy, charsread);
	s = (NI64)(TMP4645);
	nimln(86, "lexbase.nim");
	{
		NI TMP4646;
		nimln(86, "lexbase.nim");
		nimln(86, "lexbase.nim");
		TMP4646 = addInt((*l).Sentinel, 1);
		if (!(charsread < (NI64)(TMP4646))) goto LA16;
		nimln(87, "lexbase.nim");
		(*l).Buf[s] = 0;
		nimln(88, "lexbase.nim");
		(*l).Sentinel = s;
	}	goto LA14;
	LA16: ;
	{
		nimln(91, "lexbase.nim");
		s = subInt(s, 1);
		nimln(92, "lexbase.nim");
		while (1) {
			nimln(93, "lexbase.nim");
			{
				nimln(93, "lexbase.nim");
				nimln(93, "lexbase.nim");
				if (!!((s < (*l).Buflen))) goto LA22;
				nimln(93, "lexbase.nim");
				hiddenraiseassert_76017(((NimStringDesc*) &TMP4647));			}			LA22: ;
			nimln(94, "lexbase.nim");
			while (1) {
				NIM_BOOL LOC25;
				nimln(94, "lexbase.nim");
				LOC25 = 0;
				nimln(702, "system.nim");
				LOC25 = (0 <= s);
				if (!(LOC25)) goto LA26;
				nimln(94, "lexbase.nim");
				nimln(730, "system.nim");
				LOC25 = !((((NU8)((*l).Buf[s])) == ((NU8)(13)) || ((NU8)((*l).Buf[s])) == ((NU8)(10))));
				LA26: ;
				if (!LOC25) goto LA24;
				nimln(94, "lexbase.nim");
				s = subInt(s, 1);
			} LA24: ;
			nimln(95, "lexbase.nim");
			{
				nimln(702, "system.nim");
				if (!(0 <= s)) goto LA29;
				nimln(97, "lexbase.nim");
				(*l).Sentinel = s;
				nimln(98, "lexbase.nim");
				goto LA19;
			}			goto LA27;
			LA29: ;
			{
				NI TMP4648;
				NI TMP4649;
				void* LOC32;
				NI TMP4652;
				NI LOC37;
				NI TMP4653;
				NI TMP4656;
				nimln(102, "lexbase.nim");
				oldbuflen = (*l).Buflen;
				nimln(103, "lexbase.nim");
				nimln(103, "lexbase.nim");
				TMP4648 = mulInt((*l).Buflen, 2);
				(*l).Buflen = (NI64)(TMP4648);
				nimln(104, "lexbase.nim");
				nimln(104, "lexbase.nim");
				nimln(104, "lexbase.nim");
				TMP4649 = mulInt((*l).Buflen, 1);
				LOC32 = 0;
				LOC32 = realloc_4007(((void*) ((*l).Buf)), (NI64)(TMP4649));
				(*l).Buf = ((NCSTRING) (LOC32));
				nimln(105, "lexbase.nim");
				{
					NI TMP4650;
					nimln(105, "lexbase.nim");
					nimln(105, "lexbase.nim");
					nimln(105, "lexbase.nim");
					TMP4650 = subInt((*l).Buflen, oldbuflen);
					if (!!(((NI64)(TMP4650) == oldbuflen))) goto LA35;
					nimln(105, "lexbase.nim");
					hiddenraiseassert_76017(((NimStringDesc*) &TMP4651));				}				LA35: ;
				nimln(106, "lexbase.nim");
				nimln(107, "lexbase.nim");
				nimln(106, "lexbase.nim");
				nimln(107, "lexbase.nim");
				TMP4652 = mulInt(oldbuflen, 1);
				LOC37 = 0;
				LOC37 = readdata_142731((*l).Input, ((void*) (&(*l).Buf[oldbuflen])), (NI64)(TMP4652));
				TMP4653 = divInt(LOC37, 1);
				charsread = (NI64)(TMP4653);
				nimln(108, "lexbase.nim");
				{
					NI TMP4654;
					NI TMP4655;
					nimln(108, "lexbase.nim");
					if (!(charsread < oldbuflen)) goto LA40;
					nimln(109, "lexbase.nim");
					nimln(109, "lexbase.nim");
					TMP4654 = addInt(oldbuflen, charsread);
					(*l).Buf[(NI64)(TMP4654)] = 0;
					nimln(110, "lexbase.nim");
					nimln(110, "lexbase.nim");
					TMP4655 = addInt(oldbuflen, charsread);
					(*l).Sentinel = (NI64)(TMP4655);
					nimln(111, "lexbase.nim");
					goto LA19;
				}				LA40: ;
				nimln(112, "lexbase.nim");
				nimln(112, "lexbase.nim");
				TMP4656 = subInt((*l).Buflen, 1);
				s = (NI64)(TMP4656);
			}			LA27: ;
		} LA19: ;
	}	LA14: ;
	popFrame();
}
Ejemplo n.º 10
0
N_NIMCALL(void, fillbuffer_177072)(tbaselexer177018* l) {
	NI charsread;
	NI tocopy;
	NI s;
	NI oldbuflen;
	NI TMP1650;
	NI TMP1651;
	NI TMP1655;
	NI TMP1656;
	NI LOC13;
	NI TMP1657;
	NI TMP1658;
	nimfr("fillBuffer", "nimlexbase.nim")
	charsread = 0;
	tocopy = 0;
	s = 0;
	oldbuflen = 0;
	nimln(82, "nimlexbase.nim");
	{
		nimln(82, "nimlexbase.nim");
		nimln(82, "nimlexbase.nim");
		if (!!(((*l).Sentinel < (*l).Buflen))) goto LA3;
		nimln(82, "nimlexbase.nim");
		failedassertimpl_80021(((NimStringDesc*) &TMP1649));
	}
	LA3: ;
	nimln(83, "nimlexbase.nim");
	nimln(83, "nimlexbase.nim");
	nimln(83, "nimlexbase.nim");
	TMP1650 = subInt((*l).Buflen, (*l).Sentinel);
	TMP1651 = subInt((NI32)(TMP1650), 1);
	tocopy = (NI32)(TMP1651);
	nimln(84, "nimlexbase.nim");
	{
		nimln(84, "nimlexbase.nim");
		nimln(84, "nimlexbase.nim");
		if (!!((0 <= tocopy))) goto LA7;
		nimln(84, "nimlexbase.nim");
		failedassertimpl_80021(((NimStringDesc*) &TMP1652));
	}
	LA7: ;
	nimln(85, "nimlexbase.nim");
	{
		NI TMP1653;
		NI TMP1654;
		nimln(85, "nimlexbase.nim");
		if (!(0 < tocopy)) goto LA11;
		nimln(86, "nimlexbase.nim");
		nimln(86, "nimlexbase.nim");
		TMP1653 = addInt((*l).Sentinel, 1);
		nimln(86, "nimlexbase.nim");
		TMP1654 = mulInt(tocopy, 1);
		memmove(((void*) ((*l).Buf)), ((void*) (&(*l).Buf[(NI32)(TMP1653)])), (NI32)(TMP1654));
	}
	LA11: ;
	nimln(88, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	nimln(88, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	nimln(89, "nimlexbase.nim");
	TMP1655 = addInt((*l).Sentinel, 1);
	TMP1656 = mulInt((NI32)(TMP1655), 1);
	LOC13 = 0;
	LOC13 = llstreamread_175242((*l).Stream, ((void*) (&(*l).Buf[tocopy])), (NI32)(TMP1656));
	TMP1657 = divInt(LOC13, 1);
	charsread = (NI32)(TMP1657);
	nimln(90, "nimlexbase.nim");
	nimln(90, "nimlexbase.nim");
	TMP1658 = addInt(tocopy, charsread);
	s = (NI32)(TMP1658);
	nimln(91, "nimlexbase.nim");
	{
		NI TMP1659;
		nimln(91, "nimlexbase.nim");
		nimln(91, "nimlexbase.nim");
		TMP1659 = addInt((*l).Sentinel, 1);
		if (!(charsread < (NI32)(TMP1659))) goto LA16;
		nimln(92, "nimlexbase.nim");
		(*l).Buf[s] = 0;
		nimln(93, "nimlexbase.nim");
		(*l).Sentinel = s;
	}
	goto LA14;
	LA16: ;
	{
		nimln(96, "nimlexbase.nim");
		s = subInt(s, 1);
		nimln(97, "nimlexbase.nim");
		while (1) {
			nimln(98, "nimlexbase.nim");
			{
				nimln(98, "nimlexbase.nim");
				nimln(98, "nimlexbase.nim");
				if (!!((s < (*l).Buflen))) goto LA22;
				nimln(98, "nimlexbase.nim");
				failedassertimpl_80021(((NimStringDesc*) &TMP1660));
			}
			LA22: ;
			nimln(99, "nimlexbase.nim");
			while (1) {
				NIM_BOOL LOC25;
				nimln(99, "nimlexbase.nim");
				LOC25 = 0;
				nimln(99, "nimlexbase.nim");
				LOC25 = (0 <= s);
				if (!(LOC25)) goto LA26;
				nimln(99, "nimlexbase.nim");
				nimln(99, "nimlexbase.nim");
				LOC25 = !((((NU8)((*l).Buf[s])) == ((NU8)(13)) || ((NU8)((*l).Buf[s])) == ((NU8)(10))));
				LA26: ;
				if (!LOC25) goto LA24;
				nimln(99, "nimlexbase.nim");
				s = subInt(s, 1);
			} LA24: ;
			nimln(100, "nimlexbase.nim");
			{
				nimln(100, "nimlexbase.nim");
				if (!(0 <= s)) goto LA29;
				nimln(102, "nimlexbase.nim");
				(*l).Sentinel = s;
				nimln(103, "nimlexbase.nim");
				goto LA19;
			}
			goto LA27;
			LA29: ;
			{
				NI TMP1661;
				NI TMP1662;
				void* LOC32;
				NI TMP1665;
				NI LOC37;
				NI TMP1666;
				NI TMP1669;
				nimln(107, "nimlexbase.nim");
				oldbuflen = (*l).Buflen;
				nimln(108, "nimlexbase.nim");
				nimln(108, "nimlexbase.nim");
				TMP1661 = mulInt((*l).Buflen, 2);
				(*l).Buflen = (NI32)(TMP1661);
				nimln(109, "nimlexbase.nim");
				nimln(109, "nimlexbase.nim");
				nimln(109, "nimlexbase.nim");
				TMP1662 = mulInt((*l).Buflen, 1);
				LOC32 = 0;
				LOC32 = realloc_4631(((void*) ((*l).Buf)), (NI32)(TMP1662));
				(*l).Buf = ((NCSTRING) (LOC32));
				nimln(110, "nimlexbase.nim");
				{
					NI TMP1663;
					nimln(110, "nimlexbase.nim");
					nimln(110, "nimlexbase.nim");
					nimln(110, "nimlexbase.nim");
					TMP1663 = subInt((*l).Buflen, oldbuflen);
					if (!!(((NI32)(TMP1663) == oldbuflen))) goto LA35;
					nimln(110, "nimlexbase.nim");
					failedassertimpl_80021(((NimStringDesc*) &TMP1664));
				}
				LA35: ;
				nimln(111, "nimlexbase.nim");
				nimln(112, "nimlexbase.nim");
				nimln(111, "nimlexbase.nim");
				nimln(112, "nimlexbase.nim");
				TMP1665 = mulInt(oldbuflen, 1);
				LOC37 = 0;
				LOC37 = llstreamread_175242((*l).Stream, ((void*) (&(*l).Buf[oldbuflen])), (NI32)(TMP1665));
				TMP1666 = divInt(LOC37, 1);
				charsread = (NI32)(TMP1666);
				nimln(113, "nimlexbase.nim");
				{
					NI TMP1667;
					NI TMP1668;
					nimln(113, "nimlexbase.nim");
					if (!(charsread < oldbuflen)) goto LA40;
					nimln(114, "nimlexbase.nim");
					nimln(114, "nimlexbase.nim");
					TMP1667 = addInt(oldbuflen, charsread);
					(*l).Buf[(NI32)(TMP1667)] = 0;
					nimln(115, "nimlexbase.nim");
					nimln(115, "nimlexbase.nim");
					TMP1668 = addInt(oldbuflen, charsread);
					(*l).Sentinel = (NI32)(TMP1668);
					nimln(116, "nimlexbase.nim");
					goto LA19;
				}
				LA40: ;
				nimln(117, "nimlexbase.nim");
				nimln(117, "nimlexbase.nim");
				TMP1669 = subInt((*l).Buflen, 1);
				s = (NI32)(TMP1669);
			}
			LA27: ;
		} LA19: ;
	}
	LA14: ;
	popFrame();
}
Ejemplo n.º 11
0
N_NIMCALL(tnode186813*, totreeset_243679)(tbitset242012* s, ttype186847* settype, tlineinfo162527 info) {
	tnode186813* result;
	NI64 a;
	NI64 b;
	NI64 e;
	NI64 first;
	ttype186847* elemtype;
	tnode186813* n;
	nimfr("toTreeSet", "nimsets.nim")
	result = 0;
	a = 0;
	b = 0;
	e = 0;
	first = 0;
	elemtype = 0;
	n = 0;
	nimln(95, "nimsets.nim");
	if ((NU)(0) >= (NU)((*settype).Sons->Sup.len)) raiseIndexError();
	elemtype = (*settype).Sons->data[0];
	nimln(96, "nimsets.nim");
	first = firstord_222002(elemtype);
	nimln(97, "nimsets.nim");
	result = newnodei_187109(((NU8) 39), info);
	nimln(98, "nimsets.nim");
	asgnRefNoCycle((void**) &(*result).Typ, settype);
	nimln(99, "nimsets.nim");
	(*result).Info = info;
	nimln(100, "nimsets.nim");
	e = 0;
	nimln(101, "nimsets.nim");
	while (1) {
		NI TMP3158;
		nimln(101, "nimsets.nim");
		nimln(101, "nimsets.nim");
		nimln(101, "nimsets.nim");
		TMP3158 = mulInt(s->Sup.len, 8);
		if (!(e < ((NI64) ((NI64)(TMP3158))))) goto LA1;
		nimln(102, "nimsets.nim");
		{
			NIM_BOOL LOC4;
			nimln(102, "nimsets.nim");
			LOC4 = 0;
			LOC4 = bitsetin_242059(s, e);
			if (!LOC4) goto LA5;
			nimln(103, "nimsets.nim");
			a = e;
			nimln(104, "nimsets.nim");
			b = e;
			nimln(105, "nimsets.nim");
			while (1) {
				nimln(106, "nimsets.nim");
				b = addInt64(b, 1);
				nimln(107, "nimsets.nim");
				{
					NIM_BOOL LOC10;
					NI TMP3159;
					NIM_BOOL LOC12;
					nimln(107, "nimsets.nim");
					LOC10 = 0;
					nimln(107, "nimsets.nim");
					nimln(107, "nimsets.nim");
					nimln(107, "nimsets.nim");
					TMP3159 = mulInt(s->Sup.len, 8);
					LOC10 = (((NI64) ((NI64)(TMP3159))) <= b);
					if (LOC10) goto LA11;
					nimln(107, "nimsets.nim");
					nimln(107, "nimsets.nim");
					LOC12 = 0;
					LOC12 = bitsetin_242059(s, b);
					LOC10 = !(LOC12);
					LA11: ;
					if (!LOC10) goto LA13;
					nimln(107, "nimsets.nim");
					goto LA7;
				}
				LA13: ;
			} LA7: ;
			nimln(108, "nimsets.nim");
			b = subInt64(b, 1);
			nimln(109, "nimsets.nim");
			{
				NI64 TMP3160;
				tnode186813* LOC19;
				nimln(109, "nimsets.nim");
				if (!(a == b)) goto LA17;
				nimln(110, "nimsets.nim");
				nimln(110, "nimsets.nim");
				nimln(110, "nimsets.nim");
				TMP3160 = addInt64(a, first);
				LOC19 = 0;
				LOC19 = newinttypenode_187084(((NU8) 6), (NI64)(TMP3160), elemtype);
				addson_187217(result, LOC19);
			}
			goto LA15;
			LA17: ;
			{
				NI64 TMP3161;
				tnode186813* LOC21;
				NI64 TMP3162;
				tnode186813* LOC22;
				nimln(112, "nimsets.nim");
				n = newnodei_187109(((NU8) 44), info);
				nimln(113, "nimsets.nim");
				asgnRefNoCycle((void**) &(*n).Typ, elemtype);
				nimln(114, "nimsets.nim");
				nimln(114, "nimsets.nim");
				nimln(114, "nimsets.nim");
				TMP3161 = addInt64(a, first);
				LOC21 = 0;
				LOC21 = newinttypenode_187084(((NU8) 6), (NI64)(TMP3161), elemtype);
				addson_187217(n, LOC21);
				nimln(115, "nimsets.nim");
				nimln(115, "nimsets.nim");
				nimln(115, "nimsets.nim");
				TMP3162 = addInt64(b, first);
				LOC22 = 0;
				LOC22 = newinttypenode_187084(((NU8) 6), (NI64)(TMP3162), elemtype);
				addson_187217(n, LOC22);
				nimln(116, "nimsets.nim");
				addson_187217(result, n);
			}
			LA15: ;
			nimln(117, "nimsets.nim");
			e = b;
		}
		LA5: ;
		nimln(118, "nimsets.nim");
		e = addInt64(e, 1);
	} LA1: ;
	popFrame();
	return result;
}
Ejemplo n.º 12
0
N_NIMCALL(NI, decodevint_199305)(NCSTRING s, NI* pos) {
	NI result;
	NI i_199312;
	NI sign_199314;
	NI TMP2137;
	nimfr("decodeVInt", "rodutils.nim")
	result = 0;
	nimln(101, "rodutils.nim");
	i_199312 = (*pos);
	nimln(102, "rodutils.nim");
	sign_199314 = -1;
	nimln(103, "rodutils.nim");
	{
		nimln(103, "rodutils.nim");
		nimln(103, "rodutils.nim");
		if (!!((((NU8)(s[i_199312])) >= ((NU8)(97)) && ((NU8)(s[i_199312])) <= ((NU8)(122)) || ((NU8)(s[i_199312])) >= ((NU8)(65)) && ((NU8)(s[i_199312])) <= ((NU8)(90)) || ((NU8)(s[i_199312])) >= ((NU8)(48)) && ((NU8)(s[i_199312])) <= ((NU8)(57)) || ((NU8)(s[i_199312])) == ((NU8)(45)) || ((NU8)(s[i_199312])) >= ((NU8)(128)) && ((NU8)(s[i_199312])) <= ((NU8)(255))))) goto LA3;
		nimln(103, "rodutils.nim");
		failedassertimpl_80621(((NimStringDesc*) &TMP2121));
	}
	LA3: ;
	nimln(104, "rodutils.nim");
	{
		nimln(104, "rodutils.nim");
		if (!((NU8)(s[i_199312]) == (NU8)(45))) goto LA7;
		nimln(105, "rodutils.nim");
		i_199312 = addInt(i_199312, 1);
		nimln(106, "rodutils.nim");
		sign_199314 = 1;
	}
	LA7: ;
	nimln(107, "rodutils.nim");
	result = 0;
	nimln(108, "rodutils.nim");
	while (1) {
		nimln(109, "rodutils.nim");
		switch (((NU8)(s[i_199312]))) {
		case 48 ... 57:
		{
			NI TMP2122;
			NI TMP2123;
			NI TMP2124;
			nimln(110, "rodutils.nim");
			nimln(110, "rodutils.nim");
			nimln(110, "rodutils.nim");
			TMP2122 = mulInt(result, 190);
			nimln(110, "rodutils.nim");
			nimln(110, "rodutils.nim");
			TMP2123 = subInt(((NI) (((NU8)(s[i_199312])))), 48);
			TMP2124 = subInt((NI32)(TMP2122), ((NI) ((NI32)(TMP2123))));
			result = (NI32)(TMP2124);
		}
		break;
		case 97 ... 122:
		{
			NI TMP2125;
			NI TMP2126;
			NI TMP2127;
			NI TMP2128;
			nimln(111, "rodutils.nim");
			nimln(111, "rodutils.nim");
			nimln(111, "rodutils.nim");
			TMP2125 = mulInt(result, 190);
			nimln(111, "rodutils.nim");
			nimln(111, "rodutils.nim");
			nimln(111, "rodutils.nim");
			TMP2126 = subInt(((NI) (((NU8)(s[i_199312])))), 97);
			TMP2127 = addInt(((NI) ((NI32)(TMP2126))), 10);
			TMP2128 = subInt((NI32)(TMP2125), ((NI) ((NI32)(TMP2127))));
			result = (NI32)(TMP2128);
		}
		break;
		case 65 ... 90:
		{
			NI TMP2129;
			NI TMP2130;
			NI TMP2131;
			NI TMP2132;
			nimln(112, "rodutils.nim");
			nimln(112, "rodutils.nim");
			nimln(112, "rodutils.nim");
			TMP2129 = mulInt(result, 190);
			nimln(112, "rodutils.nim");
			nimln(112, "rodutils.nim");
			nimln(112, "rodutils.nim");
			TMP2130 = subInt(((NI) (((NU8)(s[i_199312])))), 65);
			TMP2131 = addInt(((NI) ((NI32)(TMP2130))), 36);
			TMP2132 = subInt((NI32)(TMP2129), ((NI) ((NI32)(TMP2131))));
			result = (NI32)(TMP2132);
		}
		break;
		case 128 ... 255:
		{
			NI TMP2133;
			NI TMP2134;
			NI TMP2135;
			NI TMP2136;
			nimln(113, "rodutils.nim");
			nimln(113, "rodutils.nim");
			nimln(113, "rodutils.nim");
			TMP2133 = mulInt(result, 190);
			nimln(113, "rodutils.nim");
			nimln(113, "rodutils.nim");
			nimln(113, "rodutils.nim");
			TMP2134 = subInt(((NI) (((NU8)(s[i_199312])))), 128);
			TMP2135 = addInt(((NI) ((NI32)(TMP2134))), 62);
			TMP2136 = subInt((NI32)(TMP2133), ((NI) ((NI32)(TMP2135))));
			result = (NI32)(TMP2136);
		}
		break;
		default:
		{
			nimln(114, "rodutils.nim");
			goto LA9;
		}
		break;
		}
		nimln(115, "rodutils.nim");
		i_199312 = addInt(i_199312, 1);
	} LA9: ;
	nimln(116, "rodutils.nim");
	nimln(116, "rodutils.nim");
	nimln(116, "rodutils.nim");
	TMP2137 = mulInt(result, sign_199314);
	result = (NI)((NU32)((NI32)(TMP2137)) - (NU32)(5));
	nimln(117, "rodutils.nim");
	(*pos) = i_199312;
	popFrame();
	return result;
}
Ejemplo n.º 13
0
N_NIMCALL(NI, nodetabletestorset_252928)(tnodetable192871* t, tnode192813* key, NI val) {
	NI result;
	tnodepairseq192869* n;
	NI k;
	NI index;
	nimfr("nodeTableTestOrSet", "treetab.nim")
	result = 0;
	n = 0;
	nimln(96, "treetab.nim");
	k = hashtree_252022(key);
	nimln(97, "treetab.nim");
	index = nodetablerawget_252475((*t), k, key);
	nimln(98, "treetab.nim");
	{
		nimln(98, "treetab.nim");
		if (!(0 <= index)) goto LA3;
		nimln(99, "treetab.nim");
		{
			nimln(99, "treetab.nim");
			nimln(99, "treetab.nim");
			nimln(99, "treetab.nim");
			if ((NU)(index) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
			if (!!(!(((*t).Data->data[index].Key == NIM_NIL)))) goto LA7;
			nimln(99, "treetab.nim");
			failedassertimpl_80421(((NimStringDesc*) &TMP3217));
		}
		LA7: ;
		nimln(100, "treetab.nim");
		if ((NU)(index) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
		result = (*t).Data->data[index].Val;
	}
	goto LA1;
	LA3: ;
	{
		nimln(102, "treetab.nim");
		{
			NIM_BOOL LOC12;
			NI TMP3219;
			NI i_253068;
			NI HEX3Atmp_253121;
			NI res_253123;
			tnodepairseq192869* LOC20;
			nimln(102, "treetab.nim");
			nimln(102, "treetab.nim");
			LOC12 = 0;
			LOC12 = mustrehash_201187((*t).Data->Sup.len, (*t).Counter);
			if (!LOC12) goto LA13;
			nimln(103, "treetab.nim");
			nimln(103, "treetab.nim");
			nimln(103, "treetab.nim");
			TMP3219 = mulInt((*t).Data->Sup.len, 2);
			n = (tnodepairseq192869*) newSeq((&NTI192869), (NI32)(TMP3219));
			i_253068 = 0;
			HEX3Atmp_253121 = 0;
			nimln(104, "treetab.nim");
			nimln(104, "treetab.nim");
			HEX3Atmp_253121 = ((*t).Data->Sup.len-1);
			nimln(1451, "system.nim");
			res_253123 = 0;
			nimln(1452, "system.nim");
			while (1) {
				nimln(1452, "system.nim");
				if (!(res_253123 <= HEX3Atmp_253121)) goto LA15;
				nimln(1451, "system.nim");
				i_253068 = res_253123;
				nimln(105, "treetab.nim");
				{
					nimln(105, "treetab.nim");
					nimln(105, "treetab.nim");
					if ((NU)(i_253068) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if (!!(((*t).Data->data[i_253068].Key == NIM_NIL))) goto LA18;
					nimln(106, "treetab.nim");
					if ((NU)(i_253068) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if ((NU)(i_253068) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					if ((NU)(i_253068) >= (NU)((*t).Data->Sup.len)) raiseIndexError();
					nodetablerawinsert_252514(&n, (*t).Data->data[i_253068].H, (*t).Data->data[i_253068].Key, (*t).Data->data[i_253068].Val);
				}
				LA18: ;
				nimln(1454, "system.nim");
				res_253123 = addInt(res_253123, 1);
			} LA15: ;
			nimln(107, "treetab.nim");
			LOC20 = 0;
			LOC20 = (*t).Data;
			unsureAsgnRef((void**) &(*t).Data, n);
			n = LOC20;
		}
		LA13: ;
		nimln(108, "treetab.nim");
		nodetablerawinsert_252514(&(*t).Data, k, key, val);
		nimln(109, "treetab.nim");
		result = val;
		nimln(110, "treetab.nim");
		(*t).Counter = addInt((*t).Counter, 1);
	}
	LA1: ;
	popFrame();
	return result;
}
Ejemplo n.º 14
0
N_NIMCALL(void, sort_324424)(tentry323943* a, NI aLen0, TY324431 cmp, NU8 order) {
    NI n;
    TY323950* b;
    NI TMP4988;
    NI s;
    nimfr("sort", "algorithm.nim")
    nimln(123, "algorithm.nim");
    nimln(123, "algorithm.nim");
    n = aLen0;
    b = 0;
    nimln(125, "algorithm.nim");
    nimln(125, "algorithm.nim");
    TMP4988 = divInt(n, 2);
    b = (TY323950*) newSeq((&NTI323950), (NI32)(TMP4988));
    nimln(126, "algorithm.nim");
    s = 1;
    nimln(127, "algorithm.nim");
    while (1) {
        NI m;
        NI TMP4989;
        NI TMP4990;
        NI TMP4998;
        nimln(127, "algorithm.nim");
        if (!(s < n)) goto LA1;
        nimln(128, "algorithm.nim");
        nimln(128, "algorithm.nim");
        nimln(128, "algorithm.nim");
        TMP4989 = subInt(n, 1);
        TMP4990 = subInt((NI32)(TMP4989), s);
        m = (NI32)(TMP4990);
        nimln(129, "algorithm.nim");
        while (1) {
            NI TMP4994;
            NI TMP4995;
            NI TMP4996;
            NI TMP4997;
            nimln(702, "system.nim");
            if (!(0 <= m)) goto LA2;
            nimln(130, "algorithm.nim");
            nimln(130, "algorithm.nim");
            nimln(130, "algorithm.nim");
            nimln(130, "algorithm.nim");
            TMP4994 = subInt(m, s);
            TMP4995 = addInt((NI32)(TMP4994), 1);
            nimln(130, "algorithm.nim");
            TMP4996 = addInt(m, s);
            merge_324468(a, aLen0, b->data, b->Sup.len, (((NI32)(TMP4995) >= 0) ? (NI32)(TMP4995) : 0), m, (NI32)(TMP4996), cmp, order);
            nimln(131, "algorithm.nim");
            nimln(131, "algorithm.nim");
            TMP4997 = mulInt(s, 2);
            m = subInt(m, (NI32)(TMP4997));
        }
LA2:
        ;
        nimln(132, "algorithm.nim");
        nimln(132, "algorithm.nim");
        TMP4998 = mulInt(s, 2);
        s = (NI32)(TMP4998);
    }
LA1:
    ;
    popFrame();
}
Ejemplo n.º 15
0
N_NIMCALL(void, sort_321717)(tsym173689** a, NI aLen0, TY321724 cmp, NU8 order) {
    NI n;
    tsymseq173661* b;
    NI TMP4969;
    NI s;
    nimfr("sort", "algorithm.nim")
    nimln(123, "algorithm.nim");
    nimln(123, "algorithm.nim");
    n = aLen0;
    b = 0;
    nimln(125, "algorithm.nim");
    nimln(125, "algorithm.nim");
    TMP4969 = divInt(n, 2);
    b = (tsymseq173661*) newSeq((&NTI173661), (NI32)(TMP4969));
    nimln(126, "algorithm.nim");
    s = 1;
    nimln(127, "algorithm.nim");
    while (1) {
        NI m;
        NI TMP4970;
        NI TMP4971;
        NI TMP4980;
        nimln(127, "algorithm.nim");
        if (!(s < n)) goto LA1;
        nimln(128, "algorithm.nim");
        nimln(128, "algorithm.nim");
        nimln(128, "algorithm.nim");
        TMP4970 = subInt(n, 1);
        TMP4971 = subInt((NI32)(TMP4970), s);
        m = (NI32)(TMP4971);
        nimln(129, "algorithm.nim");
        while (1) {
            NI TMP4976;
            NI TMP4977;
            NI TMP4978;
            NI TMP4979;
            nimln(702, "system.nim");
            if (!(0 <= m)) goto LA2;
            nimln(130, "algorithm.nim");
            nimln(130, "algorithm.nim");
            nimln(130, "algorithm.nim");
            nimln(130, "algorithm.nim");
            TMP4976 = subInt(m, s);
            TMP4977 = addInt((NI32)(TMP4976), 1);
            nimln(130, "algorithm.nim");
            TMP4978 = addInt(m, s);
            merge_321761(a, aLen0, b->data, b->Sup.len, (((NI32)(TMP4977) >= 0) ? (NI32)(TMP4977) : 0), m, (NI32)(TMP4978), cmp, order);
            nimln(131, "algorithm.nim");
            nimln(131, "algorithm.nim");
            TMP4979 = mulInt(s, 2);
            m = subInt(m, (NI32)(TMP4979));
        }
LA2:
        ;
        nimln(132, "algorithm.nim");
        nimln(132, "algorithm.nim");
        TMP4980 = mulInt(s, 2);
        s = (NI32)(TMP4980);
    }
LA1:
    ;
    popFrame();
}