perl/zebra_perl.c

   1 //#include "zebraapi.h"
   2 #include "zebra_perl.h"
   3 #include <data1.h>
   4 #include <yaz/log.h>
   5 #include "rg.h"
   6
   7 NMEM handles;
   8
   9 void init (void) {
  10   nmem_init ();
  11   yaz_log_init_prefix ("ZebraPerl");
  12   yaz_log (LOG_LOG, "Zebra::API initialized");
  13 }
  14
  15 void DESTROY (void) {
  16   nmem_exit ();
  17   yaz_log (LOG_LOG, "Zebra::API destroyed");
  18 }
  19
  20 /* Logging facilities from yaz */
  21 void logLevel (int level) {
  22   yaz_log_init_level(level);
  23 }
  24
  25 void logFile (const char *fname) {
  26   yaz_log_init_file(fname);
  27 }
  28
  29 void logMsg (int level, const char *message) {
  30   logf(level, "%s", message);
  31 }
  32
  33