12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182 |
- /* $Id$ */
- /*
- * (c) copyright 1990 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
-
- #include <stdlib.h>
- #include <string.h>
- #include <em.h>
- #include <em_mes.h>
- void
- C_ms_stb_cst(s, e1, e2, e3)
- char *s;
- int e1, e2;
- arith e3;
- {
- C_mes_begin(ms_stb);
- if (s) C_scon(s, (arith) (strlen(s)+1));
- C_cst((arith)e1);
- C_cst((arith)e2);
- C_cst(e3);
- C_mes_end();
- }
- void
- C_ms_stb_dlb(s, e1, e2, l, off)
- char *s;
- int e1, e2;
- label l;
- arith off;
- {
- C_mes_begin(ms_stb);
- if (s) C_scon(s, (arith) (strlen(s)+1));
- C_cst((arith)e1);
- C_cst((arith)e2);
- C_dlb(l, off);
- C_mes_end();
- }
- void
- C_ms_stb_dnam(s, e1, e2, l, off)
- char *s;
- int e1, e2;
- char *l;
- arith off;
- {
- C_mes_begin(ms_stb);
- if (s) C_scon(s, (arith) (strlen(s)+1));
- C_cst((arith)e1);
- C_cst((arith)e2);
- C_dnam(l, off);
- C_mes_end();
- }
- void
- C_ms_stb_ilb(s, e1, e2, l)
- char *s;
- int e1, e2;
- label l;
- {
- C_mes_begin(ms_stb);
- if (s) C_scon(s, (arith) (strlen(s)+1));
- C_cst((arith)e1);
- C_cst((arith)e2);
- C_ilb(l);
- C_mes_end();
- }
- void
- C_ms_stb_pnam(s, e1, e2, p)
- char *s;
- int e1, e2;
- char *p;
- {
- C_mes_begin(ms_stb);
- if (s) C_scon(s, (arith) (strlen(s)+1));
- C_cst((arith)e1);
- C_cst((arith)e2);
- C_pnam(p);
- C_mes_end();
- }
|