50 lines
524 B
C
50 lines
524 B
C
#define CODE_EXPANDER
|
|
#include <em.h>
|
|
#include "back.h"
|
|
|
|
C_insertpart( d)
|
|
int d;
|
|
|
|
{
|
|
char *s;
|
|
swtxt();
|
|
|
|
C_jump(extnd_part( d));
|
|
symbol_definition( s = extnd_cont( d));
|
|
set_local_visible( s);
|
|
}
|
|
|
|
|
|
C_beginpart( d)
|
|
int d;
|
|
|
|
{
|
|
char *s;
|
|
swtxt();
|
|
|
|
C_jump(extnd_main( d));
|
|
symbol_definition(s = extnd_part( d));
|
|
set_local_visible(s);
|
|
}
|
|
|
|
|
|
C_endpart( d)
|
|
int d;
|
|
|
|
{
|
|
char *s;
|
|
swtxt();
|
|
|
|
C_jump(extnd_cont( d));
|
|
symbol_definition(s = extnd_main( d));
|
|
set_local_visible(s);
|
|
}
|
|
|
|
|
|
C_getid()
|
|
{
|
|
static int id = 0;
|
|
|
|
return ++id;
|
|
}
|