开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
FLOATEXP.C
资源名称：c_compiler.zip　[点击查看]
上传用户：hlzzc88
上传日期：2007-01-06
资源大小：220k
文件大小：4k
源码类别：

编译器/解释器

开发平台：

Others

FLOATEXP.C：源码内容
  1. /*
  2.  * 68K/386 32-bit C compiler.
  3.  *
  4.  * copyright (c) 1997, David Lindauer
  5.  * 
  6.  * This compiler is intended for educational use.  It may not be used
  7.  * for profit without the express written consent of the author.
  8.  *
  9.  * It may be freely redistributed, as long as this notice remains intact
  10.  * and either the original sources or derived sources 
  11.  * are distributed along with any executables derived from the originals.
  12.  *
  13.  * The author is not responsible for any damages that may arise from use
  14.  * of this software, either idirect or consequential.
  15.  *
  16.  * v1.35 March 1997
  17.  * David Lindauer, gclind01@starbase.spd.louisville.edu
  18.  *
  19.  * Credits to Mathew Brandt for original K&R C compiler
  20.  *
  21.  */
  22. /*
  23.  * this evaluates an expression that may have floating point values in it
  24.  * e.g. the initializer for a module-scoped float or double
  25.  */
  26. #include        <stdio.h>
  27. #include        "expr.h"
  28. #include        "c.h"
  29. #include "errors.h"
  31. extern long ival;
  32. extern long double rval;
  33. extern enum e_sym lastst;
  34. extern char lastid[];
  35. extern TABLE defsyms;
  36. extern int prm_cmangle;
  38. long double floatexpr(void);
  40. /* Primary for constant floats
  41.  *   id
  42.  *   iconst
  43.  *   rconst
  44.  *   defined(MACRO)
  45.  *   (cast) floatexpr
  46.  */
  47. static long double feprimary(void)   
  48. {       long double     temp=0;
  49.         SYM     *sp;
  50.         if(lastst == id) {
  51. char *lid = lastid;
  52. if (prm_cmangle)
  53. lid++;
  54.                 sp = gsearch(lastid);
  55.                 if(sp == NULL) {
  56. gensymerror(ERR_UNDEFINED,lastid);
  57.                        getsym();
  58.                        return 0;
  59.                        }
  60.                 if(sp->storage_class != sc_const && sp->tp->type != bt_enum) {
  61.                        generror(ERR_NEEDCONST,0,0);
  62.                        getsym();
  63.                        return 0;
  64.                        }
  65.                 getsym();
  66.                 return sp->value.i;
  67.         }
  68.         else if(lastst == iconst) {
  69.                 temp = ival;
  70.                 getsym();
  71.                 return temp;
  72.                 }
  73.         else if(lastst == lconst) {
  74.                 temp = ival;
  75.                 getsym();
  76.                 return temp;
  77.                 }
  78.         else if(lastst == iuconst) {
  79.                 temp = (unsigned)ival;
  80.                 getsym();
  81.                 return temp;
  82.                 }
  83.         else if(lastst == luconst) {
  84.                 temp = (unsigned)ival;
  85.                 getsym();
  86.                 return temp;
  87.                 }
  88. else if (lastst = rconst || lastst == lrconst || lastst == fconst) {
  89. temp = rval;
  90. getsym();
  91. return temp;
  92. }
  93. else if (lastst == openpa) {
  94. getsym();
  95. if (castbegin(lastst)) {
  96. decl(0);
  97. decl1();
  98. needpunc(closepa,0);
  99. return floatexpr();
  100. }
  101. else {
  102.    temp = floatexpr();
  103. needpunc(closepa,0);
  104. return(temp);
  105. }
  106. }
  107.         getsym();
  108.         generror(ERR_NEEDCONST,0,0);
  109.         return 0;
  110. }
  111. /* Unary for floating const
  112.  *    -unary
  113.  *    !unary
  114.  *    primary
  115.  */
  116. static long double feunary(void)
  117. {
  118. long double temp;
  119. switch (lastst) {
  120. case minus:
  121. getsym();
  122. temp = -feunary();
  123. break;
  124. case  en_not:
  125. getsym();
  126. temp = !feunary();
  127. break;
  128. default:
  129. temp = feprimary();
  130. break;
  131. }
  132. return(temp);
  133. }
  134. /* Multiply ops */
  135. static long double femultops(void)
  136. {
  137. long double val1 = feunary(),val2;
  138. while (lastst == star || lastst == divide) {
  139. int oper = lastst;
  140. getsym();
  141. val2 = feunary();
  142. switch(oper) {
  143. case star:
  144. val1 = val1 * val2;
  145. break;
  146. case divide:
  147. val1 = val1 / val2;
  148. break;
  149. }
  150. }
  151. return(val1);
  152. }
  153. /* Add ops */
  154. static long double feaddops(void)
  155. {
  156. long double val1 = femultops(),val2;
  157. while (lastst == plus || lastst == minus) {
  158. int oper = lastst;
  159. getsym();
  160. val2 = femultops();
  161. if (oper == plus) 
  162. val1 = val1 + val2;
  163. else
  164. val1 = val1 - val2;
  165. }
  166. return(val1);
  167. }
  168. /* Floating point constant expression */
  169. long double floatexpr(void)
  170. {
  171. return(feaddops());
  172. }