Select Code to Download

#include <stdio.h>
#include "dll.h"

...
  printf("Hello from simplelib, arg = %d\n", arg);
  return 0;
}

g4 -c -I. -I/home/soren.hein/include -DPERL_USE_SAFE_PUTENV -U__STRICT
+_ANSI__ -g -fno-strict-aliasing -pipe -fstack-protector -DUSEIMPORTLI
+B -O3 "-I/usr/lib/perl5/5.14/i686-cygwin-threads-64int/CORE" simpleli
+b.c

g4 --shared -Wl,--enable-auto-import -Wl,--export-all-symbols -Wl,--en
+able-auto-image-base -L/usr/local/lib -fstack-protector simplelib.o -
+o simplelib.dll

#include <stdio.h>
#include "dll.h"

...
  printf("Hello from main\n");
  ret = own_function(5);
}

g4 -c -I. -I/home/soren.hein/include -DPERL_USE_SAFE_PUTENV -U__STRICT
+_ANSI__ -g -fno-strict-aliasing -pipe -fstack-protector -DUSEIMPORTLI
+B -O3 "-I/usr/lib/perl5/5.14/i686-cygwin-threads-64int/CORE" standalo
+ne.c

g4 -Wl,--enable-auto-import -Wl,--export-all-symbols -Wl,--enable-auto
+-image-base -L/usr/local/lib -fstack-protector standalone.o -o standa
+lone /home/soren.hein/testcase/xs/simplelib.dll

Hello from main
Hello from simplelib, arg = 5

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
...
  printf("Hello from XS\n");
  i = 17;
  ret = own_function(i);

/usr/bin/perl.exe /usr/lib/perl5/5.14/ExtUtils/xsubpp -typemap /usr/li
+b/perl5/5.14/ExtUtils/typemap glue.xs > glue.xsc && mv glue.xsc glue.
+c

g4 -c -I. -I/home/soren.hein/include -DPERL_USE_SAFE_PUTENV -U__STRICT
+_ANSI__ -g -fno-strict-aliasing -pipe -fstack-protector -DUSEIMPORTLI
+B -O3 "-I/usr/lib/perl5/5.14/i686-cygwin-threads-64int/CORE" glue.c
...
rm -f DDS_IF.dll

g4 --shared -Wl,--enable-auto-import -Wl,--export-all-symbols -Wl,--en
+able-auto-image-base -L/usr/local/lib -fstack-protector glue.o -o Glu
+e.dll /usr/lib/perl5/5.14/i686-cygwin-threads-64int/CORE/cygperl5_14.
+dll /home/soren.hein/testcase/xs/simplelib.dll