util/ceg/defaults/message/C_cst.c

   1 #define CODE_EXPANDER
   2 #include <em.h>
   3 #include <stb.h>
   4 #include <em_mes.h>
   5
   6 extern int __db_mes, __db_cst, __db_len, __db_type, __db_add;
   7 extern char *__db_str;
   8
   9 void
  10 C_cst( l)
  11 arith l;
  12 {
  13         if (__db_mes) {
  14                 if (! __db_cst) __db_type = l;
  15                 else if (__db_cst == 1) {
  16                         if (__db_mes == ms_std) {
  17                                 if (__db_type == N_SLINE) {
  18                                         C_db_sline();
  19                                 }
  20                                 B_symd(__db_str, __db_len, __db_type, (int) l);
  21                         }
  22                         else __db_add = l;
  23                 }
  24                 else B_symbcst(__db_str, __db_len, __db_type, __db_add, l);
  25                 __db_cst++;
  26         }
  27 }