kalzium/src/solver/modwrap.c

   1 /***************************************************************************
   2  *   Copyright (C) 2004 by Thomas Nagy                                     *
   3  *   tnagy2^8@yahoo.fr                                                     *
   4  *                                                                         *
   5  *   This program is free software; you can redistribute it and/or modify  *
   6  *   it under the terms of the GNU General Public License as published by  *
   7  *   the Free Software Foundation; either version 2 of the License, or     *
   8  *   (at your option) any later version.                                   *
   9  *                                                                         *
  10  *   This program is distributed in the hope that it will be useful,       *
  11  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
  12  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
  13  *   GNU General Public License for more details.                          *
  14  *                                                                         *
  15  *   You should have received a copy of the GNU General Public License     *
  16  *   along with this program; if not, write to the                         *
  17  *   Free Software Foundation, Inc.,                                       *
  18  *   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.             *
  19  ***************************************************************************/
  20
  21 #include <stdio.h>
  22 #include <string.h>
  23
  24 #include <caml/mlvalues.h>
  25 #include <caml/callback.h>
  26 #include <caml/alloc.h>
  27
  28 char* solve_equation(const char * eq)
  29 {
  30         static value * solve_equation_closure = NULL;
  31         if (solve_equation_closure == NULL)
  32         {
  33                 solve_equation_closure = caml_named_value("solve_equation");
  34         }
  35
  36     value v = copy_string(eq);
  37     return strdup(String_val(callback(*solve_equation_closure, v)));
  38 }
  39