/[pspp]/pspp/src/expressions/parse.c
ViewVC logotype

Diff of /pspp/src/expressions/parse.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by blp, Mon Mar 7 03:34:47 2005 UTC revision 1.6 by blp, Sat Mar 12 01:08:33 2005 UTC
# Line 336  type_coercion_core (struct expression *e Line 336  type_coercion_core (struct expression *e
336    
337      case OP_ni_format:      case OP_ni_format:
338        if ((*node)->type == OP_format        if ((*node)->type == OP_format
339            && check_input_specifier (&(*node)->format.f, 0))            && check_input_specifier (&(*node)->format.f, false)
340              && check_specifier_type (&(*node)->format.f, NUMERIC, false))
341          {          {
342            if (do_coercion)            if (do_coercion)
343              (*node)->type = OP_ni_format;              (*node)->type = OP_ni_format;
# Line 346  type_coercion_core (struct expression *e Line 347  type_coercion_core (struct expression *e
347    
348      case OP_no_format:      case OP_no_format:
349        if ((*node)->type == OP_format        if ((*node)->type == OP_format
350            && check_output_specifier (&(*node)->format.f, 0))            && check_output_specifier (&(*node)->format.f, false)
351              && check_specifier_type (&(*node)->format.f, NUMERIC, false))
352          {          {
353            if (do_coercion)            if (do_coercion)
354              (*node)->type = OP_no_format;              (*node)->type = OP_no_format;
# Line 1098  no_match (const char *func_name, Line 1100  no_match (const char *func_name,
1100      }      }
1101    else    else
1102      {      {
1103        ds_create (&s, _("Function invocation "));        ds_puts (&s, _("Function invocation "));
1104        put_invocation (&s, func_name, args, arg_cnt);        put_invocation (&s, func_name, args, arg_cnt);
1105        ds_puts (&s, _(" does not match any known function.  Candidates are:"));        ds_puts (&s, _(" does not match any known function.  Candidates are:"));
1106    
1107        for (f = first; f < last; f++)        for (f = first; f < last; f++)
1108          {          ds_printf (&s, "\n%s", f->prototype);
           ds_printf (&s, "\n%s", f->prototype);  
         }  
1109      }      }
1110    ds_putc (&s, '.');    ds_putc (&s, '.');
1111    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26