The R Project SVN R

Rev

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

Rev 89935 Rev 90254
Line 621... Line 621...
621 
	    const char *dcall, *msg = CHAR(STRING_ELT(names, 0));
 621 
	    const char *dcall, *msg = CHAR(STRING_ELT(names, 0));
622 
	    dcall = CHAR(STRING_ELT(deparse1s(VECTOR_ELT(R_Warnings, 0)), 0));
 622 
	    dcall = CHAR(STRING_ELT(deparse1s(VECTOR_ELT(R_Warnings, 0)), 0));
623 
	    REprintf(_("In %s :"), dcall);
 623 
	    REprintf(_("In %s :"), dcall);
624 
	    if (mbcslocale) {
 624 
	    if (mbcslocale) {
625 
		int msgline1;
 625 
		int msgline1;
626 
		char *p = strchr(msg, '\n');
 626 
		char *p = (char *) strchr(msg, '\n');
627 
		if (p) {
 627 
		if (p) {
628 
		    *p = '\0';
 628 
		    *p = '\0';
629 
		    msgline1 = wd(msg);
 629 
		    msgline1 = wd(msg);
630 
		    *p = '\n';
 630 
		    *p = '\n';
631 
		} else msgline1 = wd(msg);
 631 
		} else msgline1 = wd(msg);
632 
		if (6 + wd(dcall) + msgline1 > LONGWARN) REprintf("\n ");
 632 
		if (6 + wd(dcall) + msgline1 > LONGWARN) REprintf("\n ");
633 
	    } else {
 633 
	    } else {
634 
		size_t msgline1 = strlen(msg);
 634 
		size_t msgline1 = strlen(msg);
635 
		char *p = strchr(msg, '\n');
 635 
		char *p = (char *)strchr(msg, '\n');
636 
		if (p) msgline1 = (int)(p - msg);
 636 
		if (p) msgline1 = (int)(p - msg);
637 
		if (6 + strlen(dcall) + msgline1 > LONGWARN) REprintf("\n ");
 637 
		if (6 + strlen(dcall) + msgline1 > LONGWARN) REprintf("\n ");
638 
	    }
 638 
	    }
639 
	    REprintf(" %s\n", msg);
 639 
	    REprintf(" %s\n", msg);
640 
	}
 640 
	}
Line 649... Line 649...
649 
		dcall = CHAR(STRING_ELT(deparse1s(VECTOR_ELT(R_Warnings, i)), 0));
 649 
		dcall = CHAR(STRING_ELT(deparse1s(VECTOR_ELT(R_Warnings, i)), 0));
650 
		REprintf("%d: ", i + 1);
 650 
		REprintf("%d: ", i + 1);
651 
		REprintf(_("In %s :"), dcall);
 651 
		REprintf(_("In %s :"), dcall);
652 
		if (mbcslocale) {
 652 
		if (mbcslocale) {
653 
		    int msgline1;
 653 
		    int msgline1;
654 
		    char *p = strchr(msg, '\n');
 654 
		    char *p = (char *) strchr(msg, '\n');
655 
		    if (p) {
 655 
		    if (p) {
656 
			*p = '\0';
 656 
			*p = '\0';
657 
			msgline1 = wd(msg);
 657 
			msgline1 = wd(msg);
658 
			*p = '\n';
 658 
			*p = '\n';
659 
		    } else msgline1 = wd(msg);
 659 
		    } else msgline1 = wd(msg);
660 
		    if (10 + wd(dcall) + msgline1 > LONGWARN) {
 660 
		    if (10 + wd(dcall) + msgline1 > LONGWARN) {
661 
			REprintf("\n ");
 661 
			REprintf("\n ");
662 
		    }
 662 
		    }
663 
		} else {
 663 
		} else {
664 
		    size_t msgline1 = strlen(msg);
 664 
		    size_t msgline1 = strlen(msg);
665 
		    char *p = strchr(msg, '\n');
 665 
		    char *p = (char *) strchr(msg, '\n');
666 
		    if (p) msgline1 = (int)(p - msg);
 666 
		    if (p) msgline1 = (int)(p - msg);
667 
		    if (10 + strlen(dcall) + msgline1 > LONGWARN) {
 667 
		    if (10 + strlen(dcall) + msgline1 > LONGWARN) {
668 
			REprintf("\n ");
 668 
			REprintf("\n ");
669 
		    }
 669 
		    }
670 
		}
 670 
		}