Ruby

static void

print_line_from_file(char *filename_and_line_number) {

char *c;

char *filename;

char *line_number_string;

FILE *test;

int bytes_read;

int done = 0;

int byte_at;

int line_number = 0;

int am_within_preceding_whitespace = 1;

int line_at = 1;

char read_buffer[100];

/* find filename from string filename:line:more */

filename = alloca(strlen(filename_and_line_number) + 1);

strcpy(filename, filename_and_line_number );

for(c = &filename[0]; *c != 0 && *c != ':'; c++) { }

*c = 0;

test = fopen(filename, "r");

if(!test)

return; // file not found

c++;

line_number_string = c;

for(; *c != 0 && *c != ':'; c++) { }

*c = 0;

line_number = atoi(line_number_string);

if(!line_number)

return;

warn_printf("\t\t ");

while(!done) {

char current;

bytes_read = fread(&read_buffer[0], sizeof(char), 99, test);

read_buffer[bytes_read] = 0;

for(byte_at = 0; byte_at < bytes_read; byte_at++) {

current = read_buffer[byte_at];

if(current == '\n')

line_at += 1;

if(line_at == line_number && current != '\r' && current != '\n') {

if(!(am_within_preceding_whitespace && (current == '\t' || current == ' '))) {

am_within_preceding_whitespace = 0;

printf("%c", current);

}

}

}

if(bytes_read < 99) // EOF

done = 1;

if(line_at > line_number)

done = 1;

}

fclose(test);

warn_printf("\n");

}

if (!NIL_P(errat))

print_line_from_file(RSTRING_PTR( RARRAY_PTR(errat)[0]));

print_line_from_file(RSTRING_PTR(ptr[i]));