9 lines
170 B
Perl
9 lines
170 B
Perl
|
use Inline C => q{
|
||
|
|
void c_hello (char *text) {
|
||
|
|
char *copy = strdup(text);
|
||
|
|
printf("Hello, %s!\n", copy);
|
||
|
|
free(copy);
|
||
|
|
}
|
||
|
|
};
|
||
|
|
c_hello 'world';
|