version 1.12, 2000/07/07 18:33:03
|
version 1.15, 2000/09/14 20:25:12
|
Line 2
|
Line 2
|
Copyright (C) 1992-2000 Michigan State University |
Copyright (C) 1992-2000 Michigan State University |
|
|
The CAPA system is free software; you can redistribute it and/or |
The CAPA system is free software; you can redistribute it and/or |
modify it under the terms of the GNU Library General Public License as |
modify it under the terms of the GNU General Public License as |
published by the Free Software Foundation; either version 2 of the |
published by the Free Software Foundation; either version 2 of the |
License, or (at your option) any later version. |
License, or (at your option) any later version. |
|
|
The CAPA system is distributed in the hope that it will be useful, |
The CAPA system is distributed in the hope that it will be useful, |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
Library General Public License for more details. |
General Public License for more details. |
|
|
You should have received a copy of the GNU Library General Public |
You should have received a copy of the GNU General Public |
License along with the CAPA system; see the file COPYING. If not, |
License along with the CAPA system; see the file COPYING. If not, |
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
Boston, MA 02111-1307, USA. |
Boston, MA 02111-1307, USA. |
Line 250 statement : IDENTIFIER '=' calc_expr
|
Line 250 statement : IDENTIFIER '=' calc_expr
|
case IDENTIFIER: |
case IDENTIFIER: |
case I_VAR: case I_CONSTANT: |
case I_VAR: case I_CONSTANT: |
case R_VAR: case R_CONSTANT: break; |
case R_VAR: case R_CONSTANT: break; |
case S_VAR: case S_CONSTANT: |
case S_VAR: case S_CONSTANT: /* free up original used spaces */ |
capa_mfree($1->s_str); $1->s_str = NULL; break; |
capa_mfree($1->s_str); $1->s_str = NULL; break; |
default: break; |
default: break; |
} |
} |
Line 704 map_expr : startM '(' basic_constr '
|
Line 704 map_expr : startM '(' basic_constr '
|
a_sp=build_array_list($5,$7->s_argc); |
a_sp=build_array_list($5,$7->s_argc); |
result=do_map(key, a_sp->s_argp, $7->s_argp, a_sp->s_argc, FORWARD_MAP); |
result=do_map(key, a_sp->s_argp, $7->s_argp, a_sp->s_argc, FORWARD_MAP); |
free_arglist(a_sp->s_argp); |
free_arglist(a_sp->s_argp); |
|
a_sp->s_argp=NULL; |
} else { |
} else { |
sprintf(warn_msg,"/MAP arg. counts are not matched.\n"); |
sprintf(warn_msg,"/MAP arg. counts are not matched.\n"); |
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
Line 715 map_expr : startM '(' basic_constr '
|
Line 716 map_expr : startM '(' basic_constr '
|
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
} |
} |
free_arglist($5->s_argp); |
free_arglist($5->s_argp); |
free_arglist($7->s_argp); |
$5->s_argp=NULL; |
|
free_arglist($7->s_argp); |
|
$7->s_argp=NULL; |
} |
} |
| startR '(' basic_constr ';' var_list ';' arg_list ')' |
| startR '(' basic_constr ';' var_list ';' arg_list ')' |
{ char key[SMALL_LINE_BUFFER]; |
{ char key[SMALL_LINE_BUFFER]; |
Line 733 map_expr : startM '(' basic_constr '
|
Line 736 map_expr : startM '(' basic_constr '
|
a_sp=build_array_list($5,$7->s_argc); |
a_sp=build_array_list($5,$7->s_argc); |
result=do_map(key, a_sp->s_argp, $7->s_argp, a_sp->s_argc, FORWARD_MAP); |
result=do_map(key, a_sp->s_argp, $7->s_argp, a_sp->s_argc, FORWARD_MAP); |
free_arglist(a_sp->s_argp); |
free_arglist(a_sp->s_argp); |
|
a_sp->s_argp=NULL; |
} else { |
} else { |
sprintf(warn_msg,"/RMAP arg. counts are not matched.\n"); |
sprintf(warn_msg,"/RMAP arg. counts are not matched.\n"); |
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
Line 744 map_expr : startM '(' basic_constr '
|
Line 748 map_expr : startM '(' basic_constr '
|
capa_msg(MESSAGE_ERROR,warn_msg); |
capa_msg(MESSAGE_ERROR,warn_msg); |
} |
} |
free_arglist($5->s_argp); |
free_arglist($5->s_argp); |
|
$5->s_argp=NULL; |
free_arglist($7->s_argp); |
free_arglist($7->s_argp); |
|
$7->s_argp=NULL; |
} |
} |
; |
; |
|
|
Line 796 basic_constr : FUNCTION_ID '(' ')' {
|
Line 802 basic_constr : FUNCTION_ID '(' ')' {
|
$$ = do_function(tmp, $3->s_argc, $3->s_argp); |
$$ = do_function(tmp, $3->s_argc, $3->s_argp); |
capa_mfree(FuncStack[Func_idx].s_name); |
capa_mfree(FuncStack[Func_idx].s_name); |
free_arglist($3->s_argp); |
free_arglist($3->s_argp); |
|
$3->s_argp=NULL; |
} |
} |
YYDBUG_PR1(" basic_constr <= RETURN FUNCT "); YYDBUG_SYM($$); |
YYDBUG_PR1(" basic_constr <= RETURN FUNCT "); YYDBUG_SYM($$); |
|
|