コード例 #1
0
ファイル: compiler_nimconf.c プロジェクト: jlp765/csources
N_NIMCALL(void, parsedirective_186344)(Tlexer181185* L, Ttoken181181* tok) {
	NU16 LOC1;
	ppgettok_186009(L, tok);
	LOC1 = 0;
	LOC1 = whichkeyword_172386((*tok).ident);
	switch (LOC1) {
	case ((NU16) 31):
	{
		NIM_BOOL res;
		condstack_186188 = (TY186169*) setLengthSeq(&(condstack_186188)->Sup, sizeof(NIM_BOOL), ((NI) ((NI)((condstack_186188 ? condstack_186188->Sup.len : 0) + ((NI) 1)))));
		res = evalppif_186147(L, tok);
		condstack_186188->data[(condstack_186188 ? (condstack_186188->Sup.len-1) : -1)] = res;
		{
			if (!!(res)) goto LA5;
			jumptodirective_186222(L, tok, ((NU8) 1));
		}
		LA5: ;
	}
	break;
	case ((NU16) 20):
	{
		doelif_186253(L, tok);
	}
	break;
	case ((NU16) 21):
	{
		doelse_186232(L, tok);
	}
	break;
	case ((NU16) 22):
	{
		doend_186193(L, tok);
	}
	break;
	case ((NU16) 180):
	{
		NimStringDesc* LOC11;
		NimStringDesc* LOC12;
		ppgettok_186009(L, tok);
		LOC11 = 0;
		LOC11 = toktostr_181323((&(*tok)));
		LOC12 = 0;
		LOC12 = nstFormat(LOC11, gconfigvars_154231, 5);
		msgwriteln_164538(LOC12);
		ppgettok_186009(L, tok);
	}
	break;
	default:
	{
		NimStringDesc* LOC14;
		LOC14 = 0;
		LOC14 = nsuNormalize((*(*tok).ident).s);
		if (eqStrings(LOC14, ((NimStringDesc*) &TMP1883))) goto LA15;
		if (eqStrings(LOC14, ((NimStringDesc*) &TMP1884))) goto LA16;
		if (eqStrings(LOC14, ((NimStringDesc*) &TMP1885))) goto LA17;
		goto LA18;
		LA15: ;
		{
			NimStringDesc* key;
			NimStringDesc* LOC21;
			ppgettok_186009(L, tok);
			key = toktostr_181323((&(*tok)));
			ppgettok_186009(L, tok);
			LOC21 = 0;
			LOC21 = toktostr_181323((&(*tok)));
			putenv_122669(key, LOC21);
			ppgettok_186009(L, tok);
		}
		goto LA19;
		LA16: ;
		{
			NimStringDesc* key;
			NimStringDesc* LOC23;
			NimStringDesc* LOC24;
			NimStringDesc* LOC25;
			ppgettok_186009(L, tok);
			key = toktostr_181323((&(*tok)));
			ppgettok_186009(L, tok);
			LOC23 = 0;
			LOC24 = 0;
			LOC24 = toktostr_181323((&(*tok)));
			LOC25 = 0;
			LOC25 = getenv_122644(key);
			LOC23 = rawNewString(LOC24->Sup.len + LOC25->Sup.len + 0);
appendString(LOC23, LOC24);
appendString(LOC23, LOC25);
			putenv_122669(key, LOC23);
			ppgettok_186009(L, tok);
		}
		goto LA19;
		LA17: ;
		{
			NimStringDesc* key;
			NimStringDesc* LOC27;
			NimStringDesc* LOC28;
			NimStringDesc* LOC29;
			ppgettok_186009(L, tok);
			key = toktostr_181323((&(*tok)));
			ppgettok_186009(L, tok);
			LOC27 = 0;
			LOC28 = 0;
			LOC28 = getenv_122644(key);
			LOC29 = 0;
			LOC29 = toktostr_181323((&(*tok)));
			LOC27 = rawNewString(LOC28->Sup.len + LOC29->Sup.len + 0);
appendString(LOC27, LOC28);
appendString(LOC27, LOC29);
			putenv_122669(key, LOC27);
			ppgettok_186009(L, tok);
		}
		goto LA19;
		LA18: ;
		{
			NimStringDesc* LOC31;
			LOC31 = 0;
			LOC31 = toktostr_181323((&(*tok)));
			lexmessage_181483((&(*L)), ((NU16) 30), LOC31);
		}
		LA19: ;
	}
	break;
	}
}
コード例 #2
0
ファイル: compiler_nimconf.c プロジェクト: undecided/csources
N_NIMCALL(void, parsedirective_186342)(Tlexer181185* L, Ttoken181181* tok) {
	NU16 LOC1;
	nimfr("parseDirective", "nimconf.nim")
	nimln(112, "nimconf.nim");
	ppgettok_186009(L, tok);
	nimln(113, "nimconf.nim");
	LOC1 = 0;
	LOC1 = whichkeyword_172386((*tok).ident);
	switch (LOC1) {
	case ((NU16) 31):
	{
		NI TMP2486;
		NIM_BOOL res;
		nimln(115, "nimconf.nim");
		TMP2486 = addInt((condstack_186186 ? condstack_186186->Sup.len : 0), ((NI) 1));
		condstack_186186 = (TY186169*) setLengthSeq(&(condstack_186186)->Sup, sizeof(NIM_BOOL), ((NI)chckRange((NI)(TMP2486), ((NI) 0), ((NI) IL64(9223372036854775807)))));
		nimln(116, "nimconf.nim");
		res = evalppif_186147(L, tok);
		nimln(117, "nimconf.nim");
		if ((NU)((condstack_186186 ? (condstack_186186->Sup.len-1) : -1)) >= (NU)(condstack_186186->Sup.len)) raiseIndexError();
		condstack_186186->data[(condstack_186186 ? (condstack_186186->Sup.len-1) : -1)] = res;
		nimln(118, "nimconf.nim");
		{
			if (!!(res)) goto LA5;
			jumptodirective_186220(L, tok, ((NU8) 1));
		}
		LA5: ;
	}
	break;
	case ((NU16) 20):
	{
		nimln(119, "nimconf.nim");
		doelif_186251(L, tok);
	}
	break;
	case ((NU16) 21):
	{
		nimln(120, "nimconf.nim");
		doelse_186230(L, tok);
	}
	break;
	case ((NU16) 22):
	{
		nimln(121, "nimconf.nim");
		doend_186191(L, tok);
	}
	break;
	case ((NU16) 180):
	{
		NimStringDesc* LOC11;
		NimStringDesc* LOC12;
		nimln(123, "nimconf.nim");
		ppgettok_186009(L, tok);
		nimln(124, "nimconf.nim");
		LOC11 = 0;
		LOC11 = toktostr_181323((&(*tok)));
		LOC12 = 0;
		LOC12 = nstFormat(LOC11, gconfigvars_154231, 5);
		msgwriteln_164536(LOC12);
		nimln(126, "nimconf.nim");
		ppgettok_186009(L, tok);
	}
	break;
	default:
	{
		NimStringDesc* LOC14;
		nimln(128, "nimconf.nim");
		LOC14 = 0;
		LOC14 = nsuNormalize((*(*tok).ident).s);
		if (eqStrings(LOC14, ((NimStringDesc*) &TMP2487))) goto LA15;
		if (eqStrings(LOC14, ((NimStringDesc*) &TMP2488))) goto LA16;
		if (eqStrings(LOC14, ((NimStringDesc*) &TMP2489))) goto LA17;
		goto LA18;
		LA15: ;
		{
			NimStringDesc* key;
			NimStringDesc* LOC21;
			nimln(130, "nimconf.nim");
			ppgettok_186009(L, tok);
			nimln(131, "nimconf.nim");
			key = toktostr_181323((&(*tok)));
			nimln(132, "nimconf.nim");
			ppgettok_186009(L, tok);
			nimln(133, "nimconf.nim");
			LOC21 = 0;
			LOC21 = toktostr_181323((&(*tok)));
			putenv_122669(key, LOC21);
			nimln(134, "nimconf.nim");
			ppgettok_186009(L, tok);
		}
		goto LA19;
		LA16: ;
		{
			NimStringDesc* key;
			NimStringDesc* LOC23;
			NimStringDesc* LOC24;
			NimStringDesc* LOC25;
			nimln(136, "nimconf.nim");
			ppgettok_186009(L, tok);
			nimln(137, "nimconf.nim");
			key = toktostr_181323((&(*tok)));
			nimln(138, "nimconf.nim");
			ppgettok_186009(L, tok);
			nimln(139, "nimconf.nim");
			LOC23 = 0;
			LOC24 = 0;
			LOC24 = toktostr_181323((&(*tok)));
			LOC25 = 0;
			LOC25 = getenv_122644(key);
			LOC23 = rawNewString(LOC24->Sup.len + LOC25->Sup.len + 0);
appendString(LOC23, LOC24);
appendString(LOC23, LOC25);
			putenv_122669(key, LOC23);
			nimln(140, "nimconf.nim");
			ppgettok_186009(L, tok);
		}
		goto LA19;
		LA17: ;
		{
			NimStringDesc* key;
			NimStringDesc* LOC27;
			NimStringDesc* LOC28;
			NimStringDesc* LOC29;
			nimln(142, "nimconf.nim");
			ppgettok_186009(L, tok);
			nimln(143, "nimconf.nim");
			key = toktostr_181323((&(*tok)));
			nimln(144, "nimconf.nim");
			ppgettok_186009(L, tok);
			nimln(145, "nimconf.nim");
			LOC27 = 0;
			LOC28 = 0;
			LOC28 = getenv_122644(key);
			LOC29 = 0;
			LOC29 = toktostr_181323((&(*tok)));
			LOC27 = rawNewString(LOC28->Sup.len + LOC29->Sup.len + 0);
appendString(LOC27, LOC28);
appendString(LOC27, LOC29);
			putenv_122669(key, LOC27);
			nimln(146, "nimconf.nim");
			ppgettok_186009(L, tok);
		}
		goto LA19;
		LA18: ;
		{
			NimStringDesc* LOC31;
			nimln(147, "nimconf.nim");
			LOC31 = 0;
			LOC31 = toktostr_181323((&(*tok)));
			lexmessage_181483((&(*L)), ((NU16) 30), LOC31);
		}
		LA19: ;
	}
	break;
	}
	popFrame();
}