Initial revision

lang/pc/comp/progs.c

@@ -0,0 +1,71 @@
+/* TYDELYK !!!!!! */
+
+#include	"debug.h"
+
+#include	<assert.h>
+#include	<em.h>
+
+#include	"LLlex.h"
+#include	"def.h"
+#include	"main.h"
+#include	"scope.h"
+#include	"type.h"
+
+arith cnt = 2;			/* standaard input & output */
+int inpflag = 0;		/* std input gedefinieerd of niet */
+int outpflag = 0;		/* std output gedefinieerd of niet */
+label con_label;
+
+set_inp()
+{
+	inpflag = 1;
+}
+
+set_outp()
+{
+	outpflag = 1;
+}
+
+set_prog(df)
+	struct def *df;
+{
+	cnt++;
+	df->df_flags |= 0x40;
+}
+
+make_con()
+{
+	register struct def *df;
+
+	con_label = ++data_label;
+	C_df_dlb(con_label);
+	C_con_cst(cnt);
+
+	if( inpflag )
+		C_con_dnam("input", (arith) 0);
+	else
+		C_con_cst((arith) -1);
+
+	if( outpflag )
+		C_con_dnam("output", (arith) 0);
+	else
+		C_con_cst((arith) -1);
+
+	for( df = GlobalScope->sc_def; df; df = df->df_nextinscope )
+		if( df->df_flags & 0x40 )	{
+			C_con_dnam(df->var_name, (arith) 0);
+			cnt--;
+		}
+
+	assert(cnt == 2);
+}
+
+call_ini()
+{
+	C_lxl((arith) 0);
+	C_lae_dlb(con_label, (arith) 0);
+	C_zer(pointer_size);
+	C_lxa((arith) 0);
+	C_cal("_ini");
+	C_asp(4 * pointer_size);
+}