C_ms_stb.c 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. /* $Id$ */
  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 <stdlib.h>
  7. #include <string.h>
  8. #include <em.h>
  9. #include <em_mes.h>
  10. void
  11. C_ms_stb_cst(s, e1, e2, e3)
  12. char *s;
  13. int e1, e2;
  14. arith e3;
  15. {
  16. C_mes_begin(ms_stb);
  17. if (s) C_scon(s, (arith) (strlen(s)+1));
  18. C_cst((arith)e1);
  19. C_cst((arith)e2);
  20. C_cst(e3);
  21. C_mes_end();
  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. void
  38. C_ms_stb_dnam(s, e1, e2, l, off)
  39. char *s;
  40. int e1, e2;
  41. char *l;
  42. arith off;
  43. {
  44. C_mes_begin(ms_stb);
  45. if (s) C_scon(s, (arith) (strlen(s)+1));
  46. C_cst((arith)e1);
  47. C_cst((arith)e2);
  48. C_dnam(l, off);
  49. C_mes_end();
  50. }
  51. void
  52. C_ms_stb_ilb(s, e1, e2, l)
  53. char *s;
  54. int e1, e2;
  55. label l;
  56. {
  57. C_mes_begin(ms_stb);
  58. if (s) C_scon(s, (arith) (strlen(s)+1));
  59. C_cst((arith)e1);
  60. C_cst((arith)e2);
  61. C_ilb(l);
  62. C_mes_end();
  63. }
  64. void
  65. C_ms_stb_pnam(s, e1, e2, p)
  66. char *s;
  67. int e1, e2;
  68. char *p;
  69. {
  70. C_mes_begin(ms_stb);
  71. if (s) C_scon(s, (arith) (strlen(s)+1));
  72. C_cst((arith)e1);
  73. C_cst((arith)e2);
  74. C_pnam(p);
  75. C_mes_end();
  76. }