home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / fweb153.zip / fweb-1.53 / web / e_type.web < prev    next >
Text File  |  1995-09-23  |  2KB  |  67 lines
  1. @z --- e_type.web ---
  2.  
  3. FWEB version 1.53 (September 23, 1995)
  4.  
  5. Based on version 0.5 of S. Levy's CWEB [copyright (C) 1987 Princeton University]
  6.  
  7. @x-----------------------------------------------------------------------------
  8.  
  9.  
  10. \Title{E\_TYPE.WEB} % Prototypes for EVAL.
  11.  
  12. @c 
  13. @* PROTOTYPES for {\tt EVAL.WEB}.  The function prototypes are macroed
  14. up so that if |PROTOTYPES==1| (see \.{proto.hweb}) one gets full function
  15. prototyping; otherwise just old-style declarations.
  16.  
  17. @I formats.hweb
  18.  
  19. @I os.hweb
  20.  
  21. @ The make file produces \.{e\_type.h} from these prototypes.
  22. @a
  23.  
  24. #include SFILE(c_type.h) /* Prototypes for \.{common.web}. */
  25.  
  26. SRTN i_eval_ PROTO((int n,PARGS pargs));
  27. SRTN i_const_ PROTO((int n, PARGS pargs));
  28. SRTN i_log_ PROTO((int n, PARGS pargs));
  29. SRTN i_min_max_ PROTO((int n, PARGS pargs));
  30.  
  31. unsigned long btoi PROTO((CONST ASCII HUGE *b,CONST ASCII HUGE *b1));
  32. SRTN chk_zero PROTO((outer_char c,CONST VAL HUGE *pv));
  33. SRTN convert_to PROTO((TYPE type,VAL HUGE *v0,VAL HUGE *v1));
  34. SRTN e_macros PROTO((VOID));
  35. boolean eval PROTO((CONST eight_bits HUGE *p0,CONST eight_bits HUGE *p1));
  36. CONST eight_bits HUGE *eval0 PROTO((VAL HUGE *val,CONST eight_bits HUGE *p0,
  37.             CONST eight_bits HUGE *p1,eight_bits delim));
  38. VAL HUGE *eval1 PROTO((CONST VAL HUGE *v0,CONST VAL HUGE *v1,
  39.     PRECEDENCE prec0,int found_op[])); 
  40. CONST eight_bits HUGE *evaluate PROTO((VAL HUGE *val,CONST eight_bits HUGE *p0,
  41.                 CONST eight_bits HUGE *p1));
  42.  
  43. SRTN fin_constant PROTO((TYPE type));
  44.  
  45. #ifndef C_TYPES
  46.     name_pointer id_lookup PROTO((CONST ASCII HUGE *first,
  47.             CONST ASCII HUGE *last,eight_bits t));
  48. #endif /* |C_TYPES| */
  49. void HUGE *mac_lookup PROTO((sixteen_bits cur_val));
  50. SRTN mcheck0 PROTO((unsigned long n,CONST outer_char reason[]));
  51. SRTN misplaced_id PROTO((sixteen_bits a0,sixteen_bits a1));
  52. int neval PROTO((CONST eight_bits HUGE *p0,CONST eight_bits HUGE *p1));
  53. SRTN num_to_mbuf PROTO((int n,PARGS pargs,
  54.         CONST char *built_in_name,int num_args,
  55.         CONST char *num_descr,int num));
  56. outer_char *op_name PROTO((eight_bits tokn));
  57. unsigned long otoi PROTO((CONST ASCII HUGE *b,CONST ASCII HUGE *b1));
  58. PRECEDENCE precedence PROTO((eight_bits tokn));
  59. SRTN promote PROTO((VAL HUGE *v0,VAL HUGE *v1));
  60. unsigned stnd_num PROTO((LANGUAGE Language));
  61. outer_char *stype PROTO((TYPE type));
  62. CONST eight_bits HUGE *vfill PROTO((VAL HUGE *v,CONST eight_bits HUGE *p0,
  63.     CONST eight_bits HUGE *p1));
  64. unsigned long xtoi PROTO((CONST ASCII HUGE *b,CONST ASCII HUGE *b1));
  65.  
  66. @ Index:
  67.