The R Project SVN R

Rev

Rev 60241 | Rev 61776 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 60241 Rev 60801
Line 479... Line 479...
479 
	break;
 479 
	break;
480 
    default:
 480 
    default:
481 
	UNIMPLEMENTED_TYPE("printMatrix", x);
 481 
	UNIMPLEMENTED_TYPE("printMatrix", x);
482 
    }
 482 
    }
483 
#ifdef ENABLE_NLS
 483 
#ifdef ENABLE_NLS
484 
    if(r_pr < r) /* FIXME? use _P() and "Defn.h" ? */
 484 
    if(r_pr < r) // number of formats must be consistent here
485 
	Rprintf(ngettext(" [ reached getOption(\"max.print\") -- omitted last row ]\n",
 485 
	Rprintf(ngettext(" [ reached getOption(\"max.print\") -- omitted %d row ]\n",
486 
			 " [ reached getOption(\"max.print\") -- omitted %d rows ]\n",
 486 
			 " [ reached getOption(\"max.print\") -- omitted %d rows ]\n",
487 
			 r - r_pr),
 487 
			 r - r_pr),
488 
		r - r_pr);
 488 
		r - r_pr);
489 
#else
 489 
#else
490 
    if(r_pr < r) /* FIXME? use _P() and "Defn.h" ? */
 490 
    if(r_pr < r)
491 
	Rprintf(" [ reached getOption(\"max.print\") -- omitted %d rows ]\n",
 491 
	Rprintf(" [ reached getOption(\"max.print\") -- omitted %d rows ]\n",
492 
		r - r_pr);
 492 
		r - r_pr);
493 
#endif
 493 
#endif
494 
}
 494 
}
495 
 
 495