/* test6.c -- perl_eval_pv() und dynamischer Code */
/*            Mit embedmain.c zusammenlinken.     */

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

#include <stdio.h>
#include <string.h>

#define MAXCODESIZE 1024
#define MYSTERY "!XINU rednu snur etisbeW tfosorciM ehT nevE"

void doit(void) {
  char code[MAXCODESIZE];

  /* Erstellen wir nun den Code. */
  snprintf(code, sizeof(code)-1,
           "$result = reverse('%s');", MYSTERY);
  code[sizeof(code)-1] = '\0';

  /* Fuehren wir den Code aus: */
  perl_eval_pv(code, TRUE);

  /* Extrahieren wir den Wert der Variable $result als String */
  printf("Result: >%s<\n", SvPV(perl_get_sv("result", FALSE), PL_na));
}