#include <stdio.h>
#include <apl/libapl.h>

/* compile with: 
   gcc libapl_test.c -L /usr/local/lib/apl -lapl -lstdc++ -o libapl_test
 */
int
main(int argc, char * argv[])
{
  init_libapl(argv[0], 0);

  apl_exec(    "⎕FX 'Z←A SUM B' 'Z←A + B'");
  printf(")FNS → %s", apl_command( ")FNS"));
  apl_exec(    "'⎕CR SUM:' (⎕CR 'SUM')"   );
  apl_exec(    "1 SUM 2"                  );

const char * foo[] = { "Z←A FOO B", "Z←A SUM B", NULL };
  fix_function(foo);

const char * bar = "Z←A BAR B\n" "Z←A SUM B\n";
  fix_function_NL(bar);

  printf(")FNS → %s", apl_command( ")FNS"));
  apl_exec(    "⎕CR 'FOO'"                );
  apl_exec(    "⎕CR 'BAR'"                );
}