util/ceg/defaults/pseudo/C_insertpart.c

   1 #define CODE_EXPANDER
   2 #include <em.h>
   3 #include "back.h"
   4
   5 void
   6 C_insertpart( d)
   7 int d;
   8
   9 {
  10         char *s;
  11         swtxt();
  12
  13         C_jump(extnd_part( d));
  14         symbol_definition( s = extnd_cont( d));
  15         set_local_visible( s);
  16 }
  17
  18
  19 void
  20 C_beginpart( d)
  21 int d;
  22
  23 {
  24         char *s;
  25         swtxt();
  26
  27         C_jump(extnd_main( d));
  28         symbol_definition(s = extnd_part( d));
  29         set_local_visible(s);
  30 }
  31
  32
  33 void
  34 C_endpart( d)
  35 int d;
  36
  37 {
  38         char *s;
  39         swtxt();
  40
  41         C_jump(extnd_cont( d));
  42         symbol_definition(s = extnd_main( d));
  43         set_local_visible(s);
  44 }
  45
  46
  47 int
  48 C_getid()
  49 {
  50         static int id = 0;
  51
  52         return ++id;
  53 }