home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / fweb153.zip / fweb-1.53 / web / ratfor0.c < prev    next >
C/C++ Source or Header  |  1995-09-23  |  2KB  |  116 lines
  1. #if(0)
  2.   FTANGLE v1.53, created with UNIX on "Thursday, September 21, 1995 at 15:06."  \
  3.   COMMAND LINE: "web/ftangle web/ratfor0 -A -# --F -= 1.53/web/ratfor0.c" \
  4.   RUN TIME: "Saturday, September 23, 1995 at 16:17." \
  5.   WEB FILE:    "web/ratfor0.web" \
  6.   CHANGE FILE: (none)
  7. #endif
  8. #define BAD_CALL(fcn_name)bad_call(OC(fcn_name)) \
  9.  
  10.  
  11.  
  12. #include "typedefs.h"
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20. #include "c_type.h"
  21.  
  22.  
  23.  
  24.  
  25. /* The shorter length here is primarily to keep the stack under control. \
  26. Now that |N_MSGBUF| is used  dynamically, maybe this statement isn't \
  27. necessary. */
  28. #ifdef SMALL_MEMORY
  29. #define N_MSGBUF 2000
  30. #else
  31. #define N_MSGBUF 10000
  32. #endif
  33.  
  34.  
  35.  
  36.  
  37.  
  38. sixteen_bits id_function,id_program,id_subroutine;
  39. boolean balanced= YES;
  40. ASCII cur_delim= '\0';
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49. SRTN is_Rat_present(VOID)
  50. {
  51. Rat_is_loaded= BOOLEAN(program==weave);
  52. }
  53.  
  54.  
  55. boolean Rat_OK FCN((msg))
  56. outer_char*msg C1("")
  57. {
  58. if(Rat_is_loaded)return YES;/* We might get here by a call from \
  59.                 \.{common} during \FWEAVE. */
  60.  
  61.  
  62. err0_print(ERR_R,OC("Ratfor is not loaded.  %s"),1,msg);
  63. return NO;
  64. }
  65.  
  66.  
  67. SRTN bad_call FCN((fcn_name))
  68. outer_char*fcn_name C1("")
  69. {
  70. CONFUSION(fcn_name,"This function shouldn't be called");
  71. }
  72.  
  73.  
  74. SRTN alloc_Rat(VOID)
  75. {}
  76.  
  77.  
  78. SRTN ini_Ratfor(VOID)
  79. {}
  80.  
  81.  
  82. SRTN ini_RAT_tokens FCN((language0))
  83. LANGUAGE language0 C1("")
  84. {
  85. if(Rat_is_loaded)return;
  86. BAD_CALL("ini_RAT_tokens");
  87. }
  88.  
  89.  
  90. SRTN cp_fcn_body(VOID)
  91. {
  92. BAD_CALL("cp_fcn_body");
  93. }
  94.  
  95.  
  96. int chk_lbl(VOID)
  97. {
  98. BAD_CALL("chk_lbl");
  99. return-1;/* Avoids spurious compiler warning. */
  100. }
  101.  
  102.  
  103. SRTN RAT_error(VOID)
  104. {
  105. BAD_CALL("RAT_error");
  106. }
  107.  
  108.  
  109. X_FCN x_unroll(VOID)
  110. {
  111. Rat_OK(OC("Therefore, the _DO macro cannot be used, since it relies on some \
  112. Ratfor features (sorry)"));
  113. }
  114.  
  115.  
  116.