helloworld.pl

use Inline 'Info', 'Force', 'Noclean';
use Cwd;
use strict;
use warnings;
my $dir = getcwd;
warn "Dir is $dir";
use Inline "C" => Config => 
    AUTO_INCLUDE => '#include "gcc.h"',
    INC => '-I' . getcwd . '/pluginheaders/',
    CCFLAGS=> '-save-temps --verbose',
    TYPEMAPS => 'typemap',
    ENABLE => "AUTOWRAP" ;
use Inline "C";

print "this is being executed in the compiler;\n";

sub showtime
{
    print "lets dance!";
}

sub add_node
{
    my $ptree=shift;
    my $type=shift;
    warn "add node called";
    warn $ptree;
    print_tree($ptree);
    warn $type;
}

sub print_tree
{
    my $t=shift;
    warn "hello $t\n";
    print_tree2($t);
}

#add_node(123,"blag");
##greet('Mike');

__END__
__C__

void greet(char* name) {
    printf("Hello %s!\n", name);
}

void print_tree2(tree t) {
    printf("%p %ld code %d!\n", t, t,  t->base.code);
}