/* test3.c -- Funktion mit mehreren Argumenten, */
/*            aber keinem Rueckgabewert         */
/*            Mit embedmain.c zusammenlinken.   */

#include <EXTERN.h>
#include <perl.h>

void doit(void) {
  dSP;

  int i;

  ENTER;
    SAVETMPS;
      PUSHMARK(SP);
        for (i=10; i>5; i--)
      XPUSHs(sv_2mortal(newSViv((IV)i)));
        XPUSHs(sv_2mortal(newSVpv("some text", 0)));
        XPUSHs(sv_2mortal(newSVpv("fin", 0)));
      PUTBACK;
      perl_call_pv("func1", G_DISCARD);
    FREETMPS;
  LEAVE;
}