home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / fweb153.zip / fweb-1.53 / web / r_type.h < prev    next >
C/C++ Source or Header  |  1995-09-23  |  4KB  |  118 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/r_type -A -# --F -= 1.53/web/r_type.h" \
  4.   RUN TIME: "Saturday, September 23, 1995 at 16:17." \
  5.   WEB FILE:    "web/r_type.web" \
  6.   CHANGE FILE: (none)
  7. #endif
  8. #define OUT_MSG(msg,msg1)out_msg((CONST ASCII*)(msg),(CONST ASCII*)(msg1))/* \
  9.     Helps avoid compiler warning messages for pc's. */ \
  10.  
  11.  
  12.  
  13. #include "c_type.h" /* Prototypes for \.{common.web}. */
  14.  
  15. #ifdef _ratfor_
  16. boolean char_after PROTO((outer_char c));
  17. outer_char HUGE*cmd_name PROTO((CMD cmd));
  18. eight_bits copy_comment PROTO((boolean save_comments));
  19. SRTN copyd PROTO((boolean to,
  20. boolean xpn_cases,ASCII l,ASCII r,
  21. boolean semi_allowed));
  22. unsigned copy_2to PROTO((ASCII r_before,ASCII r_after));
  23. SRTN expanding PROTO((CMD cmd));
  24. eight_bits get_saved_output PROTO((stack_pointer stack_ptr0));
  25. SRTN flush_comments PROTO((VOID));
  26. SRTN id0 PROTO((sixteen_bits cur_val));
  27. #ifndef C_TYPES
  28. name_pointer id_lookup PROTO((CONST ASCII HUGE*first,
  29. CONST ASCII HUGE*last,eight_bits t));
  30. #endif /* |C_TYPES| */
  31. SRTN ini_out_tokens PROTO((SPEC HUGE*tokens));
  32. STMT_LBL label_case PROTO((CASE_TYPE cmin,CASE_TYPE m));
  33. SRTN not_loop PROTO((CONST outer_char id[],CONST outer_char msg[]));
  34. SRTN not_switch PROTO((CONST outer_char s[]));
  35. SRTN output_ended PROTO((CONST outer_char msg[],int n ELLIPSIS));
  36. SRTN out_cmd PROTO((boolean emit_continue,
  37. outer_char abbrev,CONST outer_char beginning[],
  38. CONST outer_char*fmt0,int n ELLIPSIS));
  39. SRTN out_label PROTO((boolean suppress_0,STMT_LBL stmt_num));
  40. outer_char*qdelim PROTO((ASCII delim));
  41. SRTN resize PROTO((eight_bits HUGE**pp,int nmax,
  42. eight_bits HUGE**pq,eight_bits HUGE**pp_end));
  43. int save_lbls PROTO((CMD cmd,STMT_LBL top0,STMT_LBL next0,
  44. STMT_LBL break0,int n_used));
  45. SRTN show_cmd PROTO((CONST CASE HUGE*cur_case));
  46. SRTN stmt PROTO((boolean to,boolean brace_only));
  47. SRTN unexpected PROTO((CONST outer_char id[]));
  48. X_FCN x_block PROTO((VOID));
  49. X_FCN x_blockdata PROTO((VOID));
  50. X_FCN x_break PROTO((VOID));
  51. X_FCN x_case PROTO((VOID));
  52. X_FCN x_contains PROTO((VOID));
  53. X_FCN x_default PROTO((VOID));
  54. X_FCN x_do PROTO((VOID));
  55. X_FCN x_else PROTO((VOID));
  56. X_FCN x_els_if PROTO((VOID));
  57. X_FCN x_end PROTO((VOID));
  58. X_FCN x_en_if PROTO((VOID));
  59. X_FCN x_en_interface PROTO((VOID));
  60. X_FCN x_en_module PROTO((VOID));
  61. X_FCN x_en_select PROTO((VOID));
  62. X_FCN x_en_type PROTO((VOID));
  63. X_FCN x_en_where PROTO((VOID));
  64. X_FCN x_for PROTO((VOID));
  65. X_FCN x_function PROTO((VOID));
  66. X_FCN x_if PROTO((VOID));
  67. X_FCN x_inter0face PROTO((VOID));
  68. X_FCN x_interface PROTO((VOID));
  69. X_FCN x_module PROTO((VOID));
  70. X_FCN x_next PROTO((VOID));
  71. X_FCN x_procedure PROTO((VOID));
  72. X_FCN x_program PROTO((VOID));
  73. X_FCN x_repeat PROTO((VOID));
  74. X_FCN x_return PROTO((VOID));
  75. SRTN x_stmt PROTO((VOID));
  76. X_FCN x_subroutine PROTO((VOID));
  77. X_FCN x_switch PROTO((VOID));
  78. X_FCN x_then PROTO((VOID));
  79. X_FCN x_type PROTO((VOID));
  80. X_FCN x_until PROTO((VOID));
  81. X_FCN x_where PROTO((VOID));
  82. X_FCN x_while PROTO((VOID));
  83. SRTN xpn_body PROTO((sixteen_bits token1,boolean scan_parens,
  84. sixteen_bits token2));
  85. boolean xpn_else PROTO((sixteen_bits id_x,sixteen_bits id_else_x,
  86. sixteen_bits token1,boolean scan_parens,
  87. sixteen_bits token2));
  88. #endif /* |_ratfor_| */
  89.  
  90. SRTN alloc_Rat PROTO((VOID));
  91. int chk_lbl PROTO((VOID));
  92. SRTN copy_out PROTO((CONST eight_bits HUGE*p0,
  93. CONST eight_bits HUGE*p1,boolean is_expr));
  94. SRTN cp_fcn_body PROTO((VOID));
  95. SRTN didnt_expand PROTO((eight_bits c0,eight_bits c,CONST char*op));
  96. eight_bits get_output PROTO((VOID));
  97. SRTN ini_Ratfor PROTO((VOID));
  98. SRTN is_Rat_present PROTO((VOID));
  99. void HUGE*mac_lookup PROTO((sixteen_bits cur_val));
  100. outer_char HUGE*name_of PROTO((sixteen_bits id));
  101. SRTN out_msg PROTO((CONST ASCII*msg,CONST ASCII*msg1));
  102. SRTN out_ptrunc PROTO((sixteen_bits cur_val));
  103. CONST ASCII HUGE*proper_end PROTO((name_pointer np));
  104. SRTN RAT_error PROTO((ERR_TYPE err_type,CONST outer_char msg[],
  105. int n ELLIPSIS));
  106. boolean Rat_OK PROTO((outer_char*msg));
  107. SRTN rst_last PROTO((VOID));
  108. SRTN skip_newlines PROTO((boolean save_comments));
  109. eight_bits HUGE*str_to_mb PROTO((CONST eight_bits HUGE*begin_arg,
  110. CONST eight_bits HUGE*end_arg,boolean esc_chars));
  111. SRTN x_mod_a PROTO((sixteen_bits a));
  112. SRTN x_special PROTO((VOID));
  113. eight_bits HUGE*xmacro PROTO((text_pointer macro_text,
  114. eight_bits HUGE**pcur_byte,eight_bits HUGE*the_end,
  115. eight_bits HUGE*mp0));
  116.  
  117.  
  118.