Displaying 1 result from an estimated 1 matches for "getraw".
Did you mean:
setraw
2013 May 23
2
[PATCH 1/2] gcov: Add script to split coverage informations.
...d = 0x5854432e; # end file
+
+# open input file
+if ($ARGV[0]) {
+ my $fn = $ARGV[0];
+ open(IN, ''<'', $fn) or die "opening file \"$fn\"";
+} else {
+ open(IN, ''<&STDIN'') or die "redirecting input";
+}
+
+my $pos = 0;
+
+sub getRaw($)
+{
+ my $l = shift;
+ die ''got no data to read'' if $l < 0;
+ my $res = '''';
+ do {
+ my $data;
+ my $r = read(IN, $data, $l);
+ die "error $! reading data from input at position $pos" if !defined($r);
+ die &...