1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#include "PerlOGREControllerValue.h"
PerlOGREControllerValue::PerlOGREControllerValue(SV *pobj)
: PerlOGRECallback(pobj)
{
mCanMap["getValue"] = perlCallbackCan("getValue");
mCanMap["setValue"] = perlCallbackCan("setValue");
}
Ogre::Real PerlOGREControllerValue::getValue() const
{
return callPerlCallbackReal("getValue");
}
void PerlOGREControllerValue::setValue(Ogre::Real value)
{
// arg 1 for perl stack
SV *perlval = newSV(0);
sv_setnv(perlval, (Ogre::Real)value);
mCallbackArgs.push_back(perlval);
// call the callback
return callPerlCallbackVoid("setValue");
}
|
