Added C_insertpart etc

This commit is contained in:
ceriel 1988-09-12 13:59:43 +00:00
parent 41d0500d81
commit 4c8442f1f0
2 changed files with 44 additions and 0 deletions

View file

@ -16,3 +16,4 @@ C_magic.c
C_open.c
C_pro.c
C_pro_narg.c
C_insertpart.c

View file

@ -0,0 +1,43 @@
#define CODE_EXPANDER
#include <em.h>
#include "back.h"
C_insertpart( d)
int d;
{
swtxt();
jump(extnd_part( d));
symbol_definition( extnd_cont( d));
set_local_visible( extnd_cont( d));
}
C_beginpart( d)
int d;
{
swtxt();
symbol_definition( extnd_part( d));
set_local_visible( extnd_part( d));
}
C_endpart( d)
int d;
{
swtxt();
jump(extnd_cont( d));
}
C_getid()
{
static int id = 0;
return ++id;
}