/* ===================================================================== Source: expr.rule ===================================================================== */ fgl_expr_c : boolean_expr | function_call_expr | KW_NULL { $$=A4GL_new_expr_simple(ET_EXPR_NULL); } | fgl_expr_c KW_AND fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_AND,0); } | fgl_expr_c KW_OR fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_OR,0); } | fgl_expr_c KW_SPACES { int expr_dtype; expr_dtype=expr_datatype(NULL,yylineno, $1) & DTYPE_MASK; if (expr_dtype==DTYPE_INT || expr_dtype==DTYPE_SMINT || expr_dtype==DTYPE_INT8 || expr_dtype==DTYPE_SERIAL) ; else { A4GL_warn("Possible use of non-integer datatype with 'SPACES'"); } $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_SPACES); add_feature("ET_EXPR_SPACES"); } | fgl_expr_c CONCAT_PIPES fgl_expr_c { if ($1->expr_type==ET_EXPR_LITERAL_STRING && $3->expr_type==ET_EXPR_LITERAL_STRING) { char *s; s=malloc(1+strlen($1->expr_str_u.expr_string)+strlen($3->expr_str_u.expr_string)); strcpy(s,$1->expr_str_u.expr_string); strcat(s,$3->expr_str_u.expr_string); $$=A4GL_new_literal_string(s); free(s); } else { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_CONCAT,0); } } | report_only_expr | builtin_expr | pdf_expr | literal_expr | variable_entry | OPEN_SQUARE fgl_expr_list_ptr CLOSE_SQUARE { $$=A4GL_new_expr_binding(expand_variables_in_expr_str_list($2,0,0)); } | KW_MINUS fgl_expr_c %prec UMINUS { $$=A4GL_new_expr_neg($2); } | KW_PLUS fgl_expr_c { $$=$2; } | fgl_expr_c MATCHES fgl_expr_c expr_escape { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_MATCHES,$4); add_feature("ET_EXPR_MATCHES"); } | fgl_expr_c NOT_MATCHES fgl_expr_c expr_escape { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_NOT_MATCHES,$4); add_feature("ET_EXPR_NOT_MATCHES"); } | fgl_expr_c LIKE fgl_expr_c expr_escape { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_LIKE,$4); } | fgl_expr_c NOT_LIKE fgl_expr_c expr_escape { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_NOT_LIKE,$4); } | fgl_expr_c MATCHES fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_MATCHES,0); add_feature("ET_EXPR_MATCHES"); } | fgl_expr_c NOT_MATCHES fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_NOT_MATCHES,0); add_feature("ET_EXPR_NOT_MATCHES"); } | fgl_expr_c LIKE fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_LIKE,0); } | fgl_expr_c NOT_LIKE fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_NOT_LIKE,0); } | fgl_expr_c KW_USING fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_USING,0); } | fgl_expr_c KW_PLUS fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_ADD,0); } | fgl_expr_c KW_MINUS fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_SUB,0); } | fgl_expr_c KW_MULTIPLY fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_MULT,0); } | fgl_expr_c KW_DIVIDE fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_DIV,0); } | fgl_expr_c KW_MOD fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_MOD,0); } | fgl_expr_c KW_POWER fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_POWER,0); } | fgl_expr_c KW_CLIPPED { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_CLIP); } | fgl_expr_c IS_NULL { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_ISNULL); } | fgl_expr_c IS_NOT_NULL { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_ISNOTNULL); } | fgl_expr_c EQUAL fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_EQUAL,0); } | fgl_expr_c LESS_THAN fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_LESS_THAN,0); } | fgl_expr_c GREATER_THAN fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_GREATER_THAN,0); } | fgl_expr_c NOT_EQUAL fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_NOT_EQUAL,0); } | fgl_expr_c LESS_THAN_EQ fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_LESS_THAN_EQ,0); } | fgl_expr_c GREATER_THAN_EQ fgl_expr_c { $$=A4GL_new_op_expr($1,$3,ET_EXPR_OP_GREATER_THAN_EQ,0); } | fgl_expr_c EQUAL ALL OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_EQUAL_ALL,0); } | fgl_expr_c LESS_THAN ALL OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_LESS_THAN_ALL,0); } | fgl_expr_c GREATER_THAN ALL OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_GREATER_THAN_ALL,0); } | fgl_expr_c NOT_EQUAL ALL OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_NOT_EQUAL_ALL,0); } | fgl_expr_c LESS_THAN_EQ ALL OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_LESS_THAN_EQ_ALL,0); } | fgl_expr_c GREATER_THAN_EQ ALL OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_GREATER_THAN_EQ_ALL,0); } | fgl_expr_c EQUAL ANY OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_EQUAL_ANY,0); } | fgl_expr_c LESS_THAN ANY OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_LESS_THAN_ANY,0); } | fgl_expr_c GREATER_THAN ANY OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_GREATER_THAN_ANY,0); } | fgl_expr_c NOT_EQUAL ANY OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_NOT_EQUAL_ANY,0); } | fgl_expr_c LESS_THAN_EQ ANY OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_LESS_THAN_EQ_ANY,0); } | fgl_expr_c GREATER_THAN_EQ ANY OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_GREATER_THAN_EQ_ANY,0); } | fgl_expr_c EQUAL SOME OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_EQUAL_ANY,0); } | fgl_expr_c LESS_THAN SOME OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_LESS_THAN_ANY,0); } | fgl_expr_c GREATER_THAN SOME OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_GREATER_THAN_ANY,0); } | fgl_expr_c NOT_EQUAL SOME OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_NOT_EQUAL_ANY,0); } | fgl_expr_c LESS_THAN_EQ SOME OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_LESS_THAN_EQ_ANY,0); } | fgl_expr_c GREATER_THAN_EQ SOME OPEN_BRACKET in_select_statement CLOSE_BRACKET { $$=A4GL_new_op_expr($1,$5,ET_EXPR_OP_GREATER_THAN_EQ_ANY,0); } | fgl_expr_c UNITS_YEAR { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_YEAR); } | fgl_expr_c UNITS_MONTH { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_MONTH); } | fgl_expr_c UNITS_DAY { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_DAY); } | fgl_expr_c UNITS_HOUR { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_HOUR); } | fgl_expr_c UNITS_MINUTE { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_MINUTE); } | fgl_expr_c UNITS_SECOND { $$=A4GL_new_expr_simple_expr($1,ET_EXPR_OP_SECOND); } | fgl_expr_c KW_IN OPEN_BRACKET in_select_statement CLOSE_BRACKET { add_feature("ET_EXPR_IN_SELECT"); $$=A4GL_expr_in_sq($1,1,$4); } | fgl_expr_c NOT_IN OPEN_BRACKET in_select_statement CLOSE_BRACKET { add_feature("ET_EXPR_NOT_IN_SELECT"); add_feature("ET_EXPR_IN_SELECT"); $$=A4GL_expr_in_sq($1,0,$4); } | fgl_expr_c KW_IN OPEN_BRACKET inexpr_list CLOSE_BRACKET { $$=A4GL_expr_in($1,1,$4); add_feature("ET_EXPR_IN"); } | fgl_expr_c NOT_IN OPEN_BRACKET inexpr_list CLOSE_BRACKET { $$=A4GL_expr_in($1,0,$4); add_feature("ET_EXPR_NOT_IN"); } ; expr_escape : KW_ESCAPE CHAR_VALUE { $$=A4GL_new_literal_string(A4GL_strip_quotes($2)); } ; op_fgl_expr_ret_list_v2: {$$=0;} | fgl_expr_ret_list { $$=expand_variables_in_expr_str_list($1,0,1); } ; fgl_expr_ret : fgl_expr_c /* | KW_NULL {$$=A4GL_new_expr_simple(ET_EXPR_NULL);} */ ; fgl_expr_ret_list : fgl_expr_ret { $$=A4GL_new_ptr_list($1); } | fgl_expr_ret_list KW_COMMA fgl_expr_ret { $$=A4GL_new_append_ptr_list($1,$3); } ; fgl_expr_list_ptr: fgl_expr_c { $$=A4GL_new_ptr_list($1); } | fgl_expr_list_ptr KW_COMMA fgl_expr_c { $$=A4GL_new_append_ptr_list($1,$3); } ; expanded_fgl_expr_list_ptr: fgl_expr_list_ptr { /* Can pass a whole array around */ $$=expand_variables_in_expr_str_list($1,0,0); } ; fgl_expr_concat : expanded_fgl_expr_list_ptr { $$=$1; dump_list($1); } ; /****************************************************************/ boolean_expr: KW_NOT fgl_expr_c { $$=A4GL_new_expr_simple_expr($2,ET_EXPR_NOT); } | KW_TRUE { $$=A4GL_new_expr_simple(ET_EXPR_TRUE); } | KW_FALSE { $$=A4GL_new_expr_simple(ET_EXPR_FALSE); } | OPEN_BRACKET fgl_expr_c CLOSE_BRACKET { $$=A4GL_new_expr_simple_expr($2,ET_EXPR_BRACKET); } | EXISTS OPEN_BRACKET in_select_statement CLOSE_BRACKET { add_feature("ET_EXPR_EXISTS"); $$=A4GL_expr_exists_sq(1,$3); } | NOT_EXISTS OPEN_BRACKET in_select_statement CLOSE_BRACKET { add_feature("ET_EXPR_NOT_EXISTS"); $$=A4GL_expr_exists_sq(0,$3); } ; literal_expr: CHAR_VALUE { if (strcmp($1,"\"\"")==0) { $$=A4GL_new_literal_empty_str (); } else { $$=A4GL_new_literal_string(A4GL_strip_quotes($1)); } } | CHAR_VALUE_TRANSLATED { if (strcmp($1,"\"\"")==0) { $$=A4GL_new_literal_empty_str (); } else { char *ptr; ptr=$1; if (ptr[0]=='"') { $$=A4GL_new_literal_string(A4GL_strip_quotes($1)); } else { $$=A4GL_new_translated_string($1); } } } | real_number { $$=A4GL_new_literal_double_str($1); } | INT_VALUE { $$=A4GL_new_literal_long_str($1); #ifdef LONG_MAX if ($$->expr_str_u.expr_long==LONG_MAX) { $$=A4GL_new_literal_double_str($1); } #endif } | CURR_LINE_NO { $$=A4GL_new_literal_long_long(token_read_on_line); } | CURR_FILE_NAME { $$=A4GL_new_literal_string(infilename); } | SQLERRMESSAGE { $$=A4GL_new_expr_simple(ET_EXPR_SQLERRMESSAGE); } ; ensured_variable_usage_expression: variable_usage_expression { char errbuff[256]; $$=ensure_variable(errbuff,$1,1); if ($$==0) { a4gl_yyerror(errbuff); YYERROR; } } ; ensured_variable_possibly_array_usage_expression: variable_usage_expression { char errbuff[256]; $$=ensure_variable(errbuff,$1,0); if ($$==0) { a4gl_yyerror(errbuff); YYERROR; } } ; variable_entry : variable_usage_expression { char errbuff[256]; if ($1->expr_type==ET_EXPR_VARIABLE_USAGE) { $$=ensure_variable(errbuff,$1,1); } if ($$==0) { a4gl_yyerror(errbuff); YYERROR; } inc_var_usage($$); } | member_fcall {$$=$1;} /* | variable_usage_expression OPEN_BRACKET opt_func_call_args CLOSE_BRACKET { char errbuff[256]; enum e_scope scope; struct variable*v; struct variable_usage *vu_top; vu_top=$1->expr_str_u.expr_variable_usage; v=find_variable_vu_ptr(errbuff, vu_top, &scope,0); $$=A4GL_new_expr_member_fcall($1,$3,A4GL_compiling_module_basename(),lastlineno,get_namespace($1)); inc_var_usage($$); } */ | variable_usage_expression THRU variable_usage_expression { char errbuff[256]; $$=A4GL_new_expr_list(); $$->expr_type=ET_EXPR_THROUGH; A4GL_new_append_ptr_list($$->expr_str_u.expr_list,$1); A4GL_new_append_ptr_list($$->expr_str_u.expr_list,$3); $$=ensure_variable(errbuff,$$,1); inc_var_usage($$); if ($$==0) { a4gl_yyerror(errbuff); YYERROR; } } ; report_only_expr: COLUMN fgl_expr_c { $$=A4GL_new_expr_simple_expr($2,ET_EXPR_COLUMN); } | COLUMNS fgl_expr_c { $$=A4GL_new_expr_simple_expr($2,ET_EXPR_COLUMN); } | RIGHT_ALIGNED fgl_expr_c KW_TO fgl_expr_c { $$=A4GL_new_expr_aligned(ET_EXPR_RIGHT_ALIGNED, $2,$4); } | KW_TAG OPEN_BRACKET fgl_expr_c KW_COMMA fgl_expr_c CLOSE_BRACKET { $$=A4GL_new_expr_aligned(ET_EXPR_TAG, $3,$5); } | rep_agg { if (!isin_command("REPORT")) { a4gl_yyerror("This can only be done in a report!"); YYERROR; } insql=0; $$=$1; } | KW_GROUP {insql=1;set_ingroup();} rep_agg { if (!isin_command("REPORT")) { a4gl_yyerror("This can only be done in a report!");YYERROR; } insql=0; $$=$3; } ; inexpr_list : fgl_expr_c { $$=A4GL_new_ptr_list($1); } | inexpr_list KW_COMMA fgl_expr_c { $$=A4GL_new_append_ptr_list($1,$3); } ; op_extend_di: {$$=-1;} | dtime_val KW_TO dtime_val {$$=$1*16+$3;} ; op_extend_ii: interval_qual_i { $$=$1;} ; dtime_fcall_expr: DATETIME OPEN_BRACKET CHAR_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF1(buff,"%s",$3); $$=A4GL_new_datetime_expr(buff,$5); } | DATETIME OPEN_BRACKET INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF1(buff,"\"%s\"",$3); $$=A4GL_new_datetime_expr(buff,$5); } | DATETIME OPEN_BRACKET NUMBER_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF1(buff,"\"%s\"",$3); $$=A4GL_new_datetime_expr(buff,$5); } | DATETIME OPEN_BRACKET INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF2(buff,"\"%s:%s\"",$3,$5); $$=A4GL_new_datetime_expr(buff,$7); } | DATETIME OPEN_BRACKET INT_VALUE COLON NUMBER_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF2(buff,"\"%s:%s\"",$3,$5); $$=A4GL_new_datetime_expr(buff,$7); } | DATETIME OPEN_BRACKET INT_VALUE COLON INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF3(buff,"\"%s:%s:%s\"",$3,$5,$7); $$=A4GL_new_datetime_expr(buff,$9); } | DATETIME OPEN_BRACKET INT_VALUE COLON INT_VALUE COLON NUMBER_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF3(buff,"\"%s:%s:%s\"",$3,$5,$7); $$=A4GL_new_datetime_expr(buff,$9); } | DATETIME OPEN_BRACKET INT_VALUE INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF2(buff,"\"%s:%s\"",$3,$4); $$=A4GL_new_datetime_expr(buff,$6); } | DATETIME OPEN_BRACKET INT_VALUE INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF3(buff,"\"%s %s:%s\"",$3,$4,$6); $$=A4GL_new_datetime_expr(buff,$8); } | DATETIME OPEN_BRACKET INT_VALUE INT_VALUE COLON INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF4(buff,"\"%s %s:%s:%s\"",$3,$4,$6,$8); $$=A4GL_new_datetime_expr(buff,$10); } | DATETIME OPEN_BRACKET INT_VALUE INT_VALUE COLON INT_VALUE COLON NUMBER_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF4(buff,"\"%s %s:%s:%s\"",$3,$4,$6,$8); $$=A4GL_new_datetime_expr(buff,$10); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF2(buff,"\"%s-%s\"",$3,$5); $$=A4GL_new_datetime_expr(buff,$7); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE KW_MINUS INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF3(buff,"\"%s-%s-%s\"",$3,$5,$7); $$=A4GL_new_datetime_expr(buff,$9); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF3(buff,"\"%s-%s %s\"",$3,$5,$6); $$=A4GL_new_datetime_expr(buff,$8); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE KW_MINUS INT_VALUE INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF4(buff,"\"%s-%s-%s %s\"",$3,$5,$7,$8); $$=A4GL_new_datetime_expr(buff,$10); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE KW_MINUS INT_VALUE INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF5(buff,"\"%s-%s-%s %s:%s\"",$3,$5,$7,$8,$10); $$=A4GL_new_datetime_expr(buff,$12); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE KW_MINUS INT_VALUE INT_VALUE COLON INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF6(buff,"\"%s-%s-%s %s:%s:%s\"",$3,$5,$7,$8,$10,$12); $$=A4GL_new_datetime_expr(buff,$14); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE KW_MINUS INT_VALUE INT_VALUE COLON INT_VALUE COLON NUMBER_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF6(buff,"\"%s-%s-%s %s:%s:%s\"",$3,$5,$7,$8,$10,$12); $$=A4GL_new_datetime_expr(buff,$14); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF4(buff,"\"%s-%s %s:%s\"",$3,$5,$6,$8); $$=A4GL_new_datetime_expr(buff,$10); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE INT_VALUE COLON INT_VALUE COLON INT_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF5(buff,"\"%s-%s %s:%s:%s\"",$3,$5,$6,$8,$10); $$=A4GL_new_datetime_expr(buff,$12); } | DATETIME OPEN_BRACKET INT_VALUE KW_MINUS INT_VALUE INT_VALUE COLON INT_VALUE COLON NUMBER_VALUE CLOSE_BRACKET op_extend_di { char buff[256]; SPRINTF5(buff,"\"%s-%s %s:%s:%s\"",$3,$5,$6,$8,$10); $$=A4GL_new_datetime_expr(buff,$12); } ; function_call_expr: KW_DATE OPEN_BRACKET fgl_expr_c CLOSE_BRACKET { $$=A4GL_new_expr_simple_expr($3,ET_EXPR_DATE_FUNC); } | TIME OPEN_BRACKET fgl_expr_c CLOSE_BRACKET { $$=A4GL_new_expr_simple_expr($3,ET_EXPR_TIME_FUNC); } | MONTH OPEN_BRACKET fgl_expr_c CLOSE_BRACKET { $$=A4GL_new_expr_simple_expr($3,ET_EXPR_MONTH_FUNC); } | DAY OPEN_BRACKET fgl_expr_c CLOSE_BRACKET { $$=A4GL_new_expr_simple_expr($3,ET_EXPR_DAY_FUNC); } | YEAR OPEN_BRACKET fgl_expr_c CLOSE_BRACKET { $