#include <EXTERN.h>
#include <perl.h>
#include "epn_icinga.h"
Defines | |
#define | DO_CLEAN "0" |
#define | MAX_INPUT_CHARS 1024 |
#define | DO_READLINE |
#define | INIT_TERM_READLINE |
Functions | |
void | run_plugin (char *command_line) |
SV * | my_eval_pv (char *pv) |
char * | get_command_line (void) |
void | init_term_readline (void) |
void | init_embedded_perl (void) |
void | deinit_embedded_perl (void) |
int | main (int argc, char **argv, char **env) |
Variables | |
static PerlInterpreter * | my_perl = NULL |
#define DO_CLEAN "0" |
#define DO_READLINE |
Value:
"$_ = defined($term) " \ " ? $term->readline($prompt) " \ " : do { " \ " print $prompt; " \ " chomp($_ = <>); " \ " $_; " \ " }; " \ "die qq(That's all folks.\\n) " \ " unless $_ && ! /^\\s*$/ ; " \ "$_; "
#define INIT_TERM_READLINE |
Value:
"use vars qw($term $prompt $OUT); " \ \ "eval { require Term::ReadLine; }; " \ "unless ($@) { " \ " $term = new Term::ReadLine 'new_mini_epn'; " \ "} else { " \ " warn qq(Install Term::ReadLine for arrow key access to history, filename completion etc.); " \ "} " \ \ "$OUT = $term->OUT " \ " if defined($term); " \ "$prompt = 'plugin command line: '; "
#define MAX_INPUT_CHARS 1024 |
void deinit_embedded_perl | ( | void | ) |
char* get_command_line | ( | void | ) |
void init_embedded_perl | ( | void | ) |
void init_term_readline | ( | void | ) |
int main | ( | int | argc, | |
char ** | argv, | |||
char ** | env | |||
) |
SV* my_eval_pv | ( | char * | pv | ) |
void run_plugin | ( | char * | command_line | ) |
PerlInterpreter* my_perl = NULL [static] |