The R Project SVN R

Rev

Rev 38101 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 38101 Rev 38119
Line 35... Line 35...
35 
use Text::Wrap;
 35 
use Text::Wrap;
36 
 
 36 
 
37 
## Don't buffer output.
 37 
## Don't buffer output.
38 
$| = 1;
 38 
$| = 1;
39 
 
 39 
 
40 
my $revision = ' $Rev: 38101 $ ';
 40 
my $revision = ' $Rev: 38119 $ ';
41 
my $version;
 41 
my $version;
42 
my $name;
 42 
my $name;
43 
$revision =~ / ([\d\.]*) /;
 43 
$revision =~ / ([\d\.]*) /;
44 
$version = $1;
 44 
$version = $1;
45 
($name = $0) =~ s|.*/||;
 45 
($name = $0) =~ s|.*/||;
Line 1104... Line 1104...
1104 
	    exit(1);
 1104 
	    exit(1);
1105 
	}
 1105 
	}
1106 
	else {
 1106 
	else {
1107 
	    $log->result("OK");
 1107 
	    $log->result("OK");
1108 
	}
 1108 
	}
1109 
	$log->checking("R files for non-ASCII chars");
 1109 
	$log->checking("R files for non-ASCII characters");
1110 
	my @out = R_runR("tools:::.check_package_ASCII_code('.')",
 1110 
	my @out = R_runR("tools:::.check_package_ASCII_code('.')",
1111 
			 "${R_opts} --slave");
 1111 
			 "${R_opts} --slave");
1112 
	if(scalar(@out) > 0) {
 1112 
	if(scalar(@out) > 0) {
1113 
	    $log->warning();
 1113 
	    $log->warning();
1114 
	    $log->print("Non-ASCII char(s) in file(s) '$out[0]'\n");
 1114 
	    $log->print(join(" ", @out)."\n");
- 
 
 1115 
	    $log->print(wrap("", "",
- 
 
 1116 
			     ("Portable packages must use only ASCII",
- 
 
 1117 
			      "characters in their R code,\n",
- 
 
 1118 
			      "except perhaps in comments.\n")));
1115 
	}
1119 
	}
1116 
	else {
 1120 
	else {
1117 
	    $log->result("OK");
 1121 
	    $log->result("OK");
1118 
	}
 1122 
	}
1119 
    }
 1123 
    }