OpenMortal Apocalypse mirror
Sourceforge mirror
SourceForge.net Logo
      News | Info | Characters | Arenas | Screenshots | Forums | Download  
Developer: Making of | Character-HOWTO | AI Design | Submit a Character
Documentation: Main Page | Modules | Class Hierarchy | Class List | File List

Backend.cpp File Reference

#include "common.h"
#include "Backend.h"
#include "Audio.h"
#include "State.h"
#include <string>
#include <stdarg.h>
#include "MszPerl.h"

Defines

#define PERLEVAL(A)   eval_pv(A, TRUE);
#define PERLCALL(PROC, A, B)

Functions

const char * Translate (const char *a_pcText)
const char * TranslateUTF8 (const char *a_pcText)

Variables

PerlInterpreter * my_perl
CBackend g_oBackend
SV * perl_bgx
SV * perl_bgy
SV * perl_px [MAXPLAYERS]
SV * perl_py [MAXPLAYERS]
SV * perl_pf [MAXPLAYERS]
SV * perl_ph [MAXPLAYERS]
SV * perl_phreal [MAXPLAYERS]
SV * perl_gametick
SV * perl_over
SV * perl_ko
SV * perl_doodad_x
SV * perl_doodad_y
SV * perl_doodad_t
SV * perl_doodad_f
SV * perl_doodad_dir
SV * perl_doodad_gfxowner
SV * perl_doodad_text
SV * perl_sound
SV * perl_Translated

Define Documentation

#define PERLCALL (  PROC,
A,
B   ) 
 

Value:

{                           \
    dSP;                                                \
    ENTER;                                              \
    SAVETMPS;                                           \
    PUSHMARK(SP);                                       \
    XPUSHs(sv_2mortal(newSViv(A)));                     \
    XPUSHs(sv_2mortal(newSViv(B)));                     \
    PUTBACK ;                                           \
                                                        \
    call_pv( (PROC),  G_DISCARD );                      \
                                                        \
    FREETMPS;                                           \
    LEAVE;                                              \
}

#define PERLEVAL (  A   )     eval_pv(A, TRUE);
 

Function Documentation

const char* Translate (  const char *  a_pcText  ) 
 

const char* TranslateUTF8 (  const char *  a_pcText  ) 
 

Variable Documentation

CBackend g_oBackend
 

PerlInterpreter* my_perl
 

SV* perl_bgx
 

SV * perl_bgy
 

SV * perl_doodad_dir
 

SV * perl_doodad_f
 

SV * perl_doodad_gfxowner
 

SV * perl_doodad_t
 

SV * perl_doodad_text
 

SV* perl_doodad_x
 

SV * perl_doodad_y
 

SV * perl_gametick
 

SV * perl_ko
 

SV * perl_over
 

SV * perl_pf[MAXPLAYERS]
 

SV * perl_ph[MAXPLAYERS]
 

SV * perl_phreal[MAXPLAYERS]
 

SV * perl_px[MAXPLAYERS]
 

SV * perl_py[MAXPLAYERS]
 

SV* perl_sound
 

SV * perl_Translated