myperl.h

/**************************************************************************
 * Copyright (c) 2002-2011 T. M. Murali                                   *
 *                                                                        *
 * This file is part of Biorithm.                                         *
 *                                                                        *
 * Biorithm is free software: you can redistribute it and/or modify       *
 * it under the terms of the GNU General Public License as published by   *
 * the Free Software Foundation, either version 3 of the License, or      *
 * (at your option) any later version.                                    *
 *                                                                        *
 * Biorithm is distributed in the hope that it will be useful,            *
 * but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 * GNU General Public License for more details.                           *
 *                                                                        *
 * You should have received a copy of the GNU General Public License      *
 * along with Biorithm.  If not, see <http://www.gnu.org/licenses/>.      *
 *                                                                        *
 **************************************************************************/

// Purpose: to define a global variable that points to a perl interpreter.

#ifndef _MYPERL_H
#define _MYPERL_H

#include <string>
#include <vector>

using namespace std;

// see p. 540 of the second edition of the camel book.
#include <EXTERN.h>
#include <perl.h>

static PerlInterpreter *my_perl = NULL;


// functions in perlmatch.C
// SV* my_eval_sv(SV *sv, I32 croak_on_error);
bool perl_match(string text, string pattern);
I32 perl_match(SV *string, const char *pattern);
int perl_substitute(string& text, string pattern);
I32 perl_substitute(SV **string, const char *pattern);
I32 perl_matches(SV *string, const char *pattern, AV **match_list);
int perl_split(string text, string pattern, vector< string >& item_list);
I32 perl_split(SV *string, const char *pattern, AV **item_list);


inline void perlInit(int argc, char **argv)
{
  char *embedding[] = { "", "-e", "0" };
  my_perl = perl_alloc();
  perl_construct(my_perl);
  // the 3 below refers to the number of args i am passing to perl in
  // embedding. see the perlembed manpage.
  perl_parse(my_perl, NULL, 3, embedding, (char **) NULL);
}


inline void perlKill()
{
  perl_destruct(my_perl);
  perl_free(my_perl);
}



#endif // _MYPERL_H