main.c

#include <unistd.h>
#include <stdio.h>
#include "gap/libgap.h"

#include "gap/config.h"
#include "gap/system.h"
#include "gap/objects.h"
#include "gap/gasman.h"
#include "gap/code.h"
#include "gap/vars.h"
#include "gap/read.h"

extern char **environ;

void error_handler(char* msg)
{
  printf("Error: %s\n", msg);
}

void eval(char* cmd) {
  printf("Input:\n%s", cmd);
  libgap_start_interaction(cmd);

  libgap_enter();
  libGAP_ReadEvalCommand(libGAP_BottomLVars);
  libGAP_ViewObjHandler(libGAP_ReadEvalResult);
  char* out = libgap_get_output();
  libgap_exit();

  printf("Output:\n%s", out);
  libgap_finish_interaction();
}

int main()
{
  char* argv[8];
  argv[0] = "gap";
  argv[1] = "-l";
  argv[2] = GAPDIR;
  argv[3] = "-m";
  argv[4] = "32M";
  argv[5] = "-q";
  argv[6] = "-T";
  argv[7] = NULL;
  int argc=7;
  // gap_main_loop(argc, argv, environ);
  libgap_set_error_handler(&error_handler);
  libgap_initialize(argc, argv);
  printf("Initialized\n");

  libgap_enter()
  libGAP_CollectBags(0,1);  // full GC
  libgap_exit()

  eval("1+2+3;\n");
  eval("g:=FreeGroup(2);\n");
  eval("a:=g.1;\n");
  eval("b:=g.2;\n");
  eval("lis:=[a^2, a^2, b*a];\n");
  eval("h:=g/lis;\n");
  eval("c:=h.1;\n");
  eval("Set([1..1000000], i->Order(c));\n");

  libgap_finalize();
  return 0;
}


/*

g:=FreeGroup(2);
a:=g.1;
b:=g.2;
lis:=[a^2, a^2, b*a];
h:=g/lis;
c:=h.1;
Set([1..300000], i->Order(c));


 */