em.nogen 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147
  1. /* Definition of EM procedural interface: hand-written definitions
  2. C_open | char *:filename | <hand-written>
  3. C_busy | | <hand-written>
  4. C_close | | <hand-written>
  5. C_magic | | <hand-written>
  6. */
  7. /* $Id$ */
  8. #define C_df_dlb(l) CC_dfdlb(l)
  9. #define C_df_dnam(s) CC_dfdnam(s)
  10. #define C_df_ilb(l) CC_dfilb(l)
  11. #define C_pro(s,l) CC_pro(s, l)
  12. #define C_pro_narg(s) CC_pronarg(s)
  13. #define C_end(l) CC_end(l)
  14. #define C_end_narg() CC_endnarg()
  15. #define C_exa_dnam(s) CC_psdnam(ps_exa, s)
  16. #define C_exa_dlb(l) CC_psdlb(ps_exa, l)
  17. #define C_ina_dnam(s) CC_psdnam(ps_ina, s)
  18. #define C_ina_dlb(l) CC_psdlb(ps_ina, l)
  19. #define C_exp(s) CC_pspnam(ps_exp, s)
  20. #define C_inp(s) CC_pspnam(ps_inp, s)
  21. #define C_bss_cst(n,w,i) CC_bhcst(ps_bss, n, w, i)
  22. #define C_hol_cst(n,w,i) CC_bhcst(ps_hol, n, w, i)
  23. #define C_bss_icon(n,s,sz,i) CC_bhicon(ps_bss,n,s,sz,i)
  24. #define C_hol_icon(n,s,sz,i) CC_bhicon(ps_hol,n,s,sz,i)
  25. #define C_bss_ucon(n,s,sz,i) CC_bhucon(ps_bss,n,s,sz,i)
  26. #define C_hol_ucon(n,s,sz,i) CC_bhucon(ps_hol,n,s,sz,i)
  27. #define C_bss_fcon(n,s,sz,i) CC_bhfcon(ps_bss,n,s,sz,i)
  28. #define C_hol_fcon(n,s,sz,i) CC_bhfcon(ps_hol,n,s,sz,i)
  29. #define C_bss_dnam(n,s,off,i) CC_bhdnam(ps_bss,n,s,off,i)
  30. #define C_hol_dnam(n,s,off,i) CC_bhdnam(ps_hol,n,s,off,i)
  31. #define C_bss_dlb(n,l,off,i) CC_bhdlb(ps_bss,n,l,off,i)
  32. #define C_hol_dlb(n,l,off,i) CC_bhdlb(ps_hol,n,l,off,i)
  33. #define C_bss_ilb(n,l,i) CC_bhilb(ps_bss,n,l,i)
  34. #define C_hol_ilb(n,l,i) CC_bhilb(ps_hol,n,l,i)
  35. #define C_bss_pnam(n,s,i) CC_bhpnam(ps_bss,n,s,i)
  36. #define C_hol_pnam(n,s,i) CC_bhpnam(ps_hol,n,s,i)
  37. #define C_con_cst(v) CC_crcst(ps_con,v)
  38. #define C_con_icon(v,s) CC_crxcon(ps_con,sp_icon,v,s)
  39. #define C_con_ucon(v,s) CC_crxcon(ps_con,sp_ucon,v,s)
  40. #define C_con_fcon(v,s) CC_crxcon(ps_con,sp_fcon,v,s)
  41. #define C_con_scon(v,s) CC_crscon(ps_con,v,s)
  42. #define C_con_dnam(v,s) CC_crdnam(ps_con,v,s)
  43. #define C_con_dlb(v,s) CC_crdlb(ps_con,v,s)
  44. #define C_con_ilb(v) CC_crilb(ps_con,v)
  45. #define C_con_pnam(v) CC_crpnam(ps_con,v)
  46. #define C_rom_cst(v) CC_crcst(ps_rom,v)
  47. #define C_rom_icon(v,s) CC_crxcon(ps_rom,sp_icon,v,s)
  48. #define C_rom_ucon(v,s) CC_crxcon(ps_rom,sp_ucon,v,s)
  49. #define C_rom_fcon(v,s) CC_crxcon(ps_rom,sp_fcon,v,s)
  50. #define C_rom_scon(v,s) CC_crscon(ps_rom,v,s)
  51. #define C_rom_dnam(v,s) CC_crdnam(ps_rom,v,s)
  52. #define C_rom_dlb(v,s) CC_crdlb(ps_rom,v,s)
  53. #define C_rom_ilb(v) CC_crilb(ps_rom,v)
  54. #define C_rom_pnam(v) CC_crpnam(ps_rom,v)
  55. #define C_cst(l) CC_cst(l)
  56. #define C_icon(v,s) CC_icon(v,s)
  57. #define C_ucon(v,s) CC_ucon(v,s)
  58. #define C_fcon(v,s) CC_fcon(v,s)
  59. #define C_scon(v,s) CC_scon(v,s)
  60. #define C_dnam(v,s) CC_dnam(v,s)
  61. #define C_dlb(v,s) CC_dlb(v,s)
  62. #define C_ilb(l) CC_ilb(l)
  63. #define C_pnam(s) CC_pnam(s)
  64. #define C_mes_begin(ms) CC_msstart(ms)
  65. #define C_mes_end() CC_msend()
  66. #define C_exc(c1,c2) CC_exc(c1,c2)
  67. #ifndef ps_rom
  68. #include <em_pseu.h>
  69. #endif
  70. #ifndef op_lol
  71. #include <em_mnem.h>
  72. #endif
  73. #ifndef sp_icon
  74. #include <em_spec.h>
  75. #endif
  76. /* prototypes, also hand written. */
  77. _PROTOTYPE(void CC_bhcst, (int, arith, arith, int));
  78. _PROTOTYPE(void CC_bhdlb, (int, arith, label, arith, int));
  79. _PROTOTYPE(void CC_bhdnam, (int, arith, char *, arith, int));
  80. _PROTOTYPE(void CC_bhfcon, (int, arith, char *, arith, int));
  81. _PROTOTYPE(void CC_bhicon, (int, arith, char *, arith, int));
  82. _PROTOTYPE(void CC_bhilb, (int, arith, label, int));
  83. _PROTOTYPE(void CC_bhpnam, (int, arith, char *, int));
  84. _PROTOTYPE(void CC_bhucon, (int, arith, char *, arith, int));
  85. _PROTOTYPE(void CC_crcst, (int, arith));
  86. _PROTOTYPE(void CC_crdlb, (int, label, arith));
  87. _PROTOTYPE(void CC_crdnam, (int, char *, arith));
  88. _PROTOTYPE(void CC_crilb, (int, label));
  89. _PROTOTYPE(void CC_crpnam, (int, char *));
  90. _PROTOTYPE(void CC_crscon, (int, char *, arith));
  91. _PROTOTYPE(void CC_crxcon, (int, int, char *, arith));
  92. _PROTOTYPE(void CC_cst, (arith));
  93. _PROTOTYPE(void CC_dfdlb, (label));
  94. _PROTOTYPE(void CC_dfdnam, (char *));
  95. _PROTOTYPE(void CC_dfilb, (label));
  96. _PROTOTYPE(void CC_dlb, (label, arith));
  97. _PROTOTYPE(void CC_dnam, (char *, arith));
  98. _PROTOTYPE(void CC_end, (arith));
  99. _PROTOTYPE(void CC_endnarg, (void));
  100. _PROTOTYPE(void CC_exc, (arith, arith));
  101. _PROTOTYPE(void CC_fcon, (char *, arith));
  102. _PROTOTYPE(void CC_icon, (char *, arith));
  103. _PROTOTYPE(void CC_ilb, (label));
  104. _PROTOTYPE(void CC_msend, (void));
  105. _PROTOTYPE(void CC_msstart, (int));
  106. _PROTOTYPE(void CC_op, (int));
  107. _PROTOTYPE(void CC_opcst, (int, arith));
  108. _PROTOTYPE(void CC_opdlb, (int, label, arith));
  109. _PROTOTYPE(void CC_opdnam, (int, char *, arith));
  110. _PROTOTYPE(void CC_opilb, (int, label));
  111. _PROTOTYPE(void CC_opnarg, (int));
  112. _PROTOTYPE(void CC_oppnam, (int, char *));
  113. _PROTOTYPE(void CC_pnam, (char *));
  114. _PROTOTYPE(void CC_pro, (char *, arith));
  115. _PROTOTYPE(void CC_pronarg, (char *));
  116. _PROTOTYPE(void CC_psdlb, (int, label));
  117. _PROTOTYPE(void CC_psdnam, (int, char *));
  118. _PROTOTYPE(void CC_pspnam, (int, char *));
  119. _PROTOTYPE(void CC_scon, (char *, arith));
  120. _PROTOTYPE(void CC_ucon, (char *, arith));
  121. _PROTOTYPE(void C_init, (arith, arith));
  122. _PROTOTYPE(void C_failed, (void));
  123. _PROTOTYPE(void C_internal_error, (void));
  124. _PROTOTYPE(int C_open, (char *));
  125. _PROTOTYPE(void C_close, (void));
  126. _PROTOTYPE(int C_busy, (void));
  127. _PROTOTYPE(void C_magic, (void));
  128. _PROTOTYPE(int C_getid, (void));
  129. _PROTOTYPE(void C_insertpart, (int));
  130. _PROTOTYPE(void C_beginpart, (int));
  131. _PROTOTYPE(void C_endpart, (int));