--- loncom/homework/CAPA-converter/capaGrammarDef.y	2000/10/02 22:13:11	1.2
+++ loncom/homework/CAPA-converter/capaGrammarDef.y	2001/11/18 09:41:33	1.3
@@ -59,7 +59,7 @@ extern int         Input_idx;
 int                Current_line[MAX_OPENED_FILE];
 extern int         Func_idx;
 extern Symbol      FuncStack[MAX_FUNC_NEST];
-extern int         IFstatus[MAX_FUNC_NEST];
+/*extern int         IFstatus[MAX_FUNC_NEST];*/
 extern int         IFcount;
 /*extern int         gUnitError;*/
 
@@ -295,24 +295,24 @@ if_expr      :  CAPA_IF '(' calc_expr  '
                                           YYDBUG_PR2("(IF expr <IFcount=%d>)\n",IFcount);
                                           switch($3->s_type) {
                                             case IDENTIFIER: 
-                                                   IFstatus[IFcount] = IF_FALSE;
+					           /*IFstatus[IFcount] = IF_FALSE;*/
                                                    begin_next_line();
                                                    break;
                                             case I_CONSTANT: case I_VAR: 
                                                    if(!$3->s_int) {
-                                                      IFstatus[IFcount] = IF_FALSE;
-                                                      begin_if_skip();
+						     /*IFstatus[IFcount] = IF_FALSE;
+                                                      begin_if_skip();*/
                                                    } else {
-                                                      IFstatus[IFcount] = IF_TRUE;
+						     /*IFstatus[IFcount] = IF_TRUE;*/
                                                       begin_next_line();
                                                    } 
                                                    break;
                                             case R_CONSTANT: case R_VAR:
                                                    if($3->s_real == 0.0) {
-                                                      IFstatus[IFcount] = IF_FALSE;
-                                                      begin_if_skip();
+						     /*IFstatus[IFcount] = IF_FALSE;
+                                                      begin_if_skip();*/
                                                    }else{
-                                                      IFstatus[IFcount] = IF_TRUE;
+						     /*IFstatus[IFcount] = IF_TRUE;*/
                                                       begin_next_line();
                                                    }
                                                    break;
@@ -322,10 +322,10 @@ if_expr      :  CAPA_IF '(' calc_expr  '
                                                       capa_mfree($3->s_str);
                                                    } 
                                                    if(leng == 0) {
-                                                      IFstatus[IFcount] = IF_FALSE;
-                                                      begin_if_skip();
+						     /*IFstatus[IFcount] = IF_FALSE;
+                                                      begin_if_skip();*/
                                                    }else{
-                                                      IFstatus[IFcount] = IF_TRUE;
+						     /*IFstatus[IFcount] = IF_TRUE;*/
                                                       begin_next_line();
                                                    }
                                                    break;
@@ -335,10 +335,10 @@ if_expr      :  CAPA_IF '(' calc_expr  '
                                                       capa_mfree($3->s_str);
                                                    }
 						   if(leng == 0) {
-                                                      IFstatus[IFcount] = IF_FALSE;
-                                                      begin_if_skip();
+						     /*IFstatus[IFcount] = IF_FALSE;*/
+                                                      /*begin_if_skip();*/
                                                    }else{
-                                                      IFstatus[IFcount] = IF_TRUE;
+						     /*IFstatus[IFcount] = IF_TRUE;*/
                                                       begin_next_line();
                                                    }
                                                    break;
@@ -708,7 +708,7 @@ term         : term '*' basic_constr   {
                                          YYDBUG_PR1(" term <= basic_constr "); YYDBUG_SYM($1);   }
              ;
 
-basic_constr : FUNCTION_ID '('  ')'   {  int tmp;
+basic_constr : FUNCTION_ID '('  ')'   {  /*int tmp;*/
                                          
                                          Func_idx--;
                                          if(Func_idx >= 0 ) {
@@ -719,7 +719,7 @@ basic_constr : FUNCTION_ID '('  ')'   {
                                          
                                       }
              | FUNCTION_ID '(' arg_list ')'
-                                      {  int  tmp;
+                                      {  /*int  tmp; */
                                       
                                          Func_idx--;
                                          YYDBUG_PR4(" basic_constr <= FUNCTION<%s><argc=%d> YYSTATE(%d) ",
@@ -867,7 +867,7 @@ void free_calc_expr(Symbol *expr)
 Symbol* get_array_symbol ( name,index,free_symbols ) 
 Symbol *name,*index;int free_symbols;
 {
-  Symbol  *s_p, *a_p;
+  Symbol  *s_p/*, *a_p*/;
   char    *key, *tmp;
   int      leng, idx_len;
   leng = strlen(name->s_name)+8; /* [ ] */
@@ -912,7 +912,7 @@ Symbol * build_array_list(ar_name,num_el
 Symbol *ar_name;int num_elem;
 {
   int     i;
-  Symbol *arg_list,*a_p;
+  Symbol *arg_list/*,*a_p*/;
   char    idx_str[MAX_BUFFER_SIZE];
   
   /*a_p = find_arrayid(ar_name->s_name);*/