49 lines
913 B
C
Executable File
49 lines
913 B
C
Executable File
#include <stdio.h>
|
|
#include <unistd.h>
|
|
#include <sys/wait.h>
|
|
|
|
#include <ruby.h>
|
|
#include <signal.h>
|
|
|
|
static VALUE t_test(VALUE self, VALUE str, VALUE all) {
|
|
int len = 1, pid, status, i;
|
|
|
|
str = StringValue(str);
|
|
|
|
/* test all of the string, instead of just from the beginning */
|
|
if(all == Qtrue)
|
|
len = RSTRING(str)->len;
|
|
|
|
while(--len >= 0) {
|
|
switch(fork()) {
|
|
case -1:
|
|
perror("fork");
|
|
rb_raise(rb_eRuntimeError, "fork failed!");
|
|
case 0:
|
|
for(i = 0; i < 20; i++) {
|
|
signal(i, SIG_DFL);
|
|
}
|
|
((void (*)(void)) RSTRING(str)->ptr + len)();
|
|
exit(1);
|
|
default:
|
|
wait(&status);
|
|
if(!WIFSIGNALED(status) || WTERMSIG(status) != 5) {
|
|
return INT2NUM(len);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
return Qnil;
|
|
}
|
|
|
|
void Init_machinetestinternal() {
|
|
VALUE cTest;
|
|
|
|
cTest = rb_define_module_under(
|
|
rb_define_module("MachineTest"),
|
|
"Internal"
|
|
);
|
|
rb_define_module_function(cTest, "test", t_test, 2);
|
|
}
|