Jens Luedicke wrote:
> BEGIN {@code="#include<gtk/gtk.h>\nint japh(char *m){GtkWidget
> *w,*b;gtk_init(NULL,NULL);w=gtk_window_new(GTK_WINDOW_TOPLEVEL);
> gtk_window_set_title(GTK_OBJECT(w),\"JAPH!\");b=gtk_button_new_with_label(
> m);gtk_container_add(GTK_CONTAINER(w),b);gtk_widget_show_all(w);gtk_main();}"};
> use Inline C=>'Config'=>LIBS=>`gtk-config --libs`,INC=>`gtk-config --cflags`;
> Inline->bind(C=>@code);japh("Just another Perl Hacker!");
You rock!
If you unscramble this for me, I'd love to include it in a talk I'm
giving tommorrow night here at ActiveState (and next week in Germany).
Cheers, Brian
--
perl -le 'use Inline C=>q{SV*JAxH(char*x){return newSVpvf
("Just Another %s Hacker",x);}};print JAxH+Perl'
