Added C_insertpart etc
This commit is contained in:
parent
1f679b93c5
commit
28e8e8778b
@ -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…
x
Reference in New Issue
Block a user