AlignDB-IntSpanXS
view release on metacpan or search on metacpan
benchmark/test_c.c view on Meta::CPAN
return 0;
}
void read_file(char **str, char *filename, size_t len) {
FILE *fp;
int buf_size = 512;
char buf[buf_size];
fp = fopen(filename, "rt");
if (!fp) {
fprintf(stderr, "can't open %s\n", filename);
exit(1);
}
while (fgets(buf, buf_size, fp) != NULL) {
if (len - strlen(*str) < buf_size) {
len = strlen(*str) + buf_size + 1;
kroundup32(len);
*str = (char *) realloc(*str, len);
}
strncat(*str, buf, buf_size);
benchmark/test_c.c view on Meta::CPAN
printf("%ld\n", strlen(runlist1));
printf("%s", runlist1);
free(runlist1);
free(runlist2);
return 0;
}
static int usage() {
fprintf(stderr, "\n"
"Usage: test_c test\n"
" test_c benchmark\n"
" test_c file\n"
);
return 1;
}
int main(int argc, char *argv[]) {
if (argc == 1) return usage();
if (strcmp(argv[1], "test") == 0)
run_test();
else if (strcmp(argv[1], "benchmark") == 0)
run_benchmark();
else if (strcmp(argv[1], "file") == 0)
run_file();
else {
fprintf(stderr, "unrecognized commad '%s'. Abort!\n", argv[1]);
return 1;
}
return 0;
}
PerlIO_flush||5.007003|
PerlIO_get_base||5.007003|
PerlIO_get_bufsiz||5.007003|
PerlIO_get_cnt||5.007003|
PerlIO_get_ptr||5.007003|
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|
Perl_signbit||5.009005|n
PoisonFree|5.009004||p
PoisonNew|5.009004||p
PoisonWith|5.009004||p
Poison|5.008000||p
vwarner||5.006000|
vwarn||5.006000|
wait4pid|||
warn_nocontext|||vn
warner_nocontext|||vn
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
write_no_mem|||
write_to_stderr|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v
xmldump_packsubs|||
xmldump_sub|||
xmldump_vindent|||
yyerror|||
yylex|||
( run in 0.230 second using v1.01-cache-2.11-cpan-55f5a4728d2 )