ginttu has asked for the wisdom of the Perl Monks concerning the following question:
#include <stdio.h> int x; int sum; int main() { pure_c(); return (0); } pure_c() { for (x = 0; x < 100; ++x) { sum = sum + x; printf("%d\n", sum); } return (0); } /* end of pure_c */ #!/usr/local/perl/5.6.1.4/bin/perl -w use ConsistentSet "1.0.2"; # This finds the library Inline no AutoLoader; use Inline C => 'DATA'; c_wrapper(); __DATA__ __C__ #include "c_test.c" int c_wrapper() { pure_c(); printf("After pure_c\n"); return (0); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Inline::C Resolution
by Courage (Parson) on Dec 03, 2002 at 07:53 UTC |