modules/src/em_mes/C_ms_stb.c

   1 /* $Id: C_ms_stb.c,v 1.4 1994/06/24 11:13:18 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 #include <em.h>
   7 #include <em_mes.h>
   8
   9 void
  10 C_ms_stb_cst(s, e1, e2, e3)
  11         char    *s;
  12         int     e1, e2;
  13         arith   e3;
  14 {
  15         C_mes_begin(ms_stb);
  16         if (s) C_scon(s, (arith) (strlen(s)+1));
  17         C_cst((arith)e1);
  18         C_cst((arith)e2);
  19         C_cst(e3);
  20         C_mes_end();
  21 }
  22
  23 void
  24 C_ms_stb_dlb(s, e1, e2, l, off)
  25         char    *s;
  26         int     e1, e2;
  27         label   l;
  28         arith   off;
  29 {
  30         C_mes_begin(ms_stb);
  31         if (s) C_scon(s, (arith) (strlen(s)+1));
  32         C_cst((arith)e1);
  33         C_cst((arith)e2);
  34         C_dlb(l, off);
  35         C_mes_end();
  36 }
  37
  38 void
  39 C_ms_stb_dnam(s, e1, e2, l, off)
  40         char    *s;
  41         int     e1, e2;
  42         char    *l;
  43         arith   off;
  44 {
  45         C_mes_begin(ms_stb);
  46         if (s) C_scon(s, (arith) (strlen(s)+1));
  47         C_cst((arith)e1);
  48         C_cst((arith)e2);
  49         C_dnam(l, off);
  50         C_mes_end();
  51 }
  52
  53 void
  54 C_ms_stb_ilb(s, e1, e2, l)
  55         char    *s;
  56         int     e1, e2;
  57         label   l;
  58 {
  59         C_mes_begin(ms_stb);
  60         if (s) C_scon(s, (arith) (strlen(s)+1));
  61         C_cst((arith)e1);
  62         C_cst((arith)e2);
  63         C_ilb(l);
  64         C_mes_end();
  65 }
  66
  67 void
  68 C_ms_stb_pnam(s, e1, e2, p)
  69         char    *s;
  70         int     e1, e2;
  71         char    *p;
  72 {
  73         C_mes_begin(ms_stb);
  74         if (s) C_scon(s, (arith) (strlen(s)+1));
  75         C_cst((arith)e1);
  76         C_cst((arith)e2);
  77         C_pnam(p);
  78         C_mes_end();
  79 }