/[ascend]/trunk/tcltk/generic/interface/UnitsProc.c
ViewVC logotype

Diff of /trunk/tcltk/generic/interface/UnitsProc.c

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

revision 911 by johnpye, Thu Oct 26 10:18:53 2006 UTC revision 912 by johnpye, Fri Oct 27 07:18:21 2006 UTC
# Line 698  dim_type *Unit_FindRelDim(CONST struct I Line 698  dim_type *Unit_FindRelDim(CONST struct I
698        return RelationDim(reln);        return RelationDim(reln);
699      }      }
700      if (g_check_dimensions_noisy) {      if (g_check_dimensions_noisy) {
701  #ifdef BBOXWHINE        ERROR_REPORTER_HERE(ASC_PROG_WARNING,"Blackbox relation dimensionality waiting on output var dimensionality.");
       FPRINTF(stderr,  
               "Blackbox relation dimensionality waiting on output var dimensionality.\n");  
 #endif  
702        /* should come off lhs var of blackbox */        /* should come off lhs var of blackbox */
703      }      }
704      return (dim_type *)WildDimension();      return (dim_type *)WildDimension();
705    case e_glassbox:    case e_glassbox:
706    case e_opcode:    case e_opcode:
707      if (g_check_dimensions_noisy) {      if (g_check_dimensions_noisy) {
708        FPRINTF(stderr,        ERROR_REPORTER_HERE(ASC_PROG_ERR,"Dimensionality checking not supported for these relns");
               "Dimensionality checking not supported for these relns\n");  
709      }      }
710      return (dim_type *)WildDimension();      return (dim_type *)WildDimension();
711    case e_token:    case e_token:
712      break;      break;
713    default:    default:
714      Asc_Panic(2, "Unit_FindRelDimen",      Asc_Panic(2, __FUNCTION__, "Type is not a relation type in Unit_FindRelDimen.");
               "Type is not a relation type in Unit_FindRelDimen\n");  
715    }    }
716    
717    consistent = asc_check_dimensions(reln,&dim);    consistent = asc_check_dimensions(reln,&dim);

Legend:
Removed from v.911  
changed lines
  Added in v.912

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22