Added C_insertpart etc
This commit is contained in:
parent
41d0500d81
commit
4c8442f1f0
|
@ -16,3 +16,4 @@ C_magic.c
|
|||
C_open.c
|
||||
C_pro.c
|
||||
C_pro_narg.c
|
||||
C_insertpart.c
|
||||
|
|
43
util/ceg/defaults/pseudo/C_insertpart.c
Normal file
43
util/ceg/defaults/pseudo/C_insertpart.c
Normal 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;
|
||||
}
|
Loading…
Reference in a new issue