d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Added C_insertpart etc

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
util/ceg/defaults/pseudo/.distr
View file

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

43
util/ceg/defaults/pseudo/C_insertpart.c Normal file
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;
}