PEBLEnvironment Namespace Reference

The following initiates classes used by functions in the Environment library. More...

Functions
Variant	GetTime (Variant v)
	This function moves a widget to a new location.
Variant	GetTimeHP (Variant v)
Variant	Wait (Variant v)
Variant	GetTimeOfDay (Variant v)
Variant	GetObjectTime (Variant v)
Variant	IsKeyDown (Variant v)
Variant	IsKeyUp (Variant v)
Variant	IsAnyKeyDown (Variant v)
Variant	ShowCursor (Variant v)
Variant	GetCursorPosition (Variant v)
Variant	SetCursorPosition (Variant v)
	This sets the mouse to a new position.
Variant	WaitForKeyDown (Variant v)
Variant	WaitForKeyUp (Variant v)
Variant	WaitForAnyKeyDown (Variant v)
Variant	WaitForKeyPress (Variant v)
Variant	WaitForKeyRelease (Variant v)
Variant	WaitForAnyKeyPress (Variant v)
Variant	WaitForListKeyPress (Variant v)
Variant	WaitForAllKeysUp (Variant v)
Variant	WaitForAnyKeyDownWithTimeout (Variant v)
Variant	WaitForAnyKeyPressWithTimeout (Variant v)
Variant	WaitForListKeyPressWithTimeout (Variant v)
Variant	WaitForKeyListDown (Variant v)
Variant	WaitForMouseButton (Variant v)
Variant	WaitForMouseButtonWithTimeout (Variant v)
Variant	GetMouseState (Variant v)
Variant	GetNumJoysticks (Variant v)
Variant	GetJoystick (Variant v)
Variant	GetNumJoystickAxes (Variant v)
Variant	GetNumJoystickBalls (Variant v)
Variant	GetNumJoystickButtons (Variant v)
Variant	GetNumJoystickHats (Variant v)
Variant	GetJoystickButtonState (Variant v)
Variant	GetJoystickAxisState (Variant v)
Variant	GetJoystickHatState (Variant v)
Variant	GetJoystickBallState (Variant v)
Variant	RegisterEvent (Variant v)
Variant	StartEventLoop (Variant v)
Variant	ClearEventLoop (Variant v)
Variant	CallFunction (Variant v)
Variant	GetInput0 (Variant v)
Variant	GetInputOld1 (Variant v)
Variant	GetInputOld2 (Variant v)
Variant	GetInput (Variant v)
Variant	GetTextBoxCursorFromClick (Variant v)
Variant	SignalFatalError (Variant v)
Variant	ExitQuietly (Variant v)
Variant	TranslateKeyCode (Variant v)
Variant	TranslateString (Variant v)
Variant	TimeStamp (Variant v)
Variant	GetCurrentScreenResolution (Variant v)
Variant	GetVideoModes (Variant v)
Variant	GetDrivers (Variant v)
Variant	GetPEBLVersion (Variant v)
Variant	GetSystemType (Variant v)
Variant	GetExecutableName (Variant v)
Variant	LaunchFile (Variant v)
Variant	SystemCall (Variant v)
Variant	SystemCallUpdate (Variant v)
Variant	CheckProcessStatus (Variant v)
Variant	IsDirectory (Variant v)
Variant	GetDirectoryListing (Variant v)
Variant	FileExists (Variant v)
Variant	MakeDirectory (Variant v)
Variant	DeleteFile (Variant v)
Variant	GetHomeDirectory (Variant v)
Variant	GetWorkingDirectory (Variant v)
Variant	SetWorkingDirectory (Variant v)
Variant	CopyToClipboard (Variant v)
Variant	CopyFromClipboard (Variant v)
Variant	VariableExists (Variant v)
Variant	IsText (Variant v)
Variant	IsNumber (Variant v)
Variant	IsInteger (Variant v)
Variant	IsFloat (Variant v)
Variant	IsString (Variant v)
Variant	IsList (Variant v)
Variant	IsTextBox (Variant v)
Variant	IsJoystick (Variant v)
Variant	IsCanvas (Variant v)
Variant	IsImage (Variant v)
Variant	IsLabel (Variant v)
Variant	IsAudioOut (Variant v)
Variant	IsFont (Variant v)
Variant	IsColor (Variant v)
Variant	IsFileStream (Variant v)
Variant	IsWidget (Variant v)
Variant	IsWindow (Variant v)
Variant	IsShape (Variant v)
Variant	IsCircle (Variant v)
Variant	IsSquare (Variant v)
Variant	IsRectangle (Variant v)
Variant	IsCustomObject (Variant v)
Variant	IsPEBLObject (Variant v)
Variant	PlayMovie (Variant v)

Variables
PEBL_Function_Type	FunctionTable []
PlatformTimer	myTimer
PlatformKeyboard	myKeyboard

Detailed Description

The following initiates classes used by functions in the Environment library.

Function Documentation

CallFunction()

Variant PEBLEnvironment::CallFunction

(

Variant

v

)

Definition at line 1997 of file PEBLEnvironment.cpp.

{
 
   //v[1] should have the key
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING,
          "Argument error in first argument of function [CallFunction(<fname>,[<paramlist>])]:  ");
    PError::AssertType(plist->Nth(2), PEAT_LIST,
          "Argument error in second argument of function [CallFunction(<fname>,[<paramlist>])]:  ");
 
    Variant fname = plist->First();
    Variant args = plist->Nth(2);
 
 
    //we need to create a 'varlist' tree, which
    //is a set of opnode(varlist) nodes with the variable on
    // the left  and another opnode on the right.
 
    PList * arglist = args.GetComplexData()->GetList();
 
 
    std::vector<Variant>::iterator a = arglist->End();
    PNode * rest = NULL;
    while(a != arglist->Begin())
        {
            a--;
 
 
            Variant value = *a;
            DataNode * valuenode = new DataNode(value,"<CALLBACK>",0);
            rest = new OpNode(PEBL_VARLIST,valuenode,rest, "<CALLBACK>",0);
 
        }
 
    //now, rest is equal to the argument list.
 
    Variant fname2 = Variant(fname.GetString().c_str(), P_DATA_FUNCTION);
    DataNode * namenode = new DataNode(fname2,"<CALLBACK>",-1);
 
 
    OpNode * node = (OpNode*)Evaluator::mFunctionMap.GetFunction(fname);
 
    Variant retval;
 if(node->GetOp()==PEBL_LAMBDAFUNCTION)
        {
            //For a lambda function, the left node is
            //a varlist, the right node is
            // the function block.
 
 
            PNode * arglistnode = ((OpNode*)node)->GetLeft();
 
 
#ifdef PEBL_ITERATIVE_EVAL
            //For iterative evaluator, schedule the function call and execute until complete
 
            //Create a DataNode containing the actual parameter values
            DataNode * argsDataNode = new DataNode(args, "user-generated", -1);
 
            //Create the PEBL_FUNCTION node with the parameter values
            OpNode * fnode = new OpNode(PEBL_FUNCTION, namenode, (PNode*)argsDataNode, "user-generated", -1);
 
            //Save the current node stack size to know when the function completes
            size_t nodeStackSizeBefore = myEval->GetNodeStackDepth();
 
            //Schedule the PEBL_FUNCTION node on myEval's node stack
            //PEBL_FUNCTION will evaluate argsDataNode which pushes the parameter list onto the stack
            myEval->NodeStackPush(fnode);
 
            //Execute nodes until the function completes
            //The function is complete when the node stack is back to its original size
            while(myEval->GetNodeStackDepth() > (int)nodeStackSizeBefore)
            {
                myEval->Evaluate1();
            }
 
            //The function's return value should now be on top of the data stack
            //Pop it to return to the caller
            if(myEval->GetStackDepth() >= 1)
            {
                retval = myEval->Pop();
            }
            else
            {
                retval = Variant(0);  //Default return value if stack is empty
            }
 
            //Clean up the allocated nodes to prevent memory leaks
            //The nodes have been processed and the values are on the stack,
            //so we can safely delete them now
            delete argsDataNode;
            delete fnode;
#else
            //For recursive evaluator, create a new evaluator as before
            OpNode * fnode = new OpNode(PEBL_FUNCTION, namenode, arglistnode, "user-generated", -1);
 
            Evaluator * eval = new Evaluator();
 
            eval->Push(args);//add the  parameter node
 
 
            eval->CallFunction(fnode);
 
            if(eval->GetStackDepth()<1)
                {
                    retval = Variant(0);
                }
            else{
 
                retval = eval->Pop();
            }
 
 
 
            delete eval;
#endif
            //Maybe this argument structure should be cleaned up?
            rest->DestroyChildren();
            delete rest;
 
 
 
        }
 else  if(node->GetOp()==PEBL_LIBRARYFUNCTION)
        {
            //For a library function, the left node is an AND with min/max arguments
            //the right node has the function pointer.
 
            //PNod * tmpNode = new DataNode(
 
#if 0
            //THis is not used--not sure why it was created; mayb redundant with tmpNode above?
 
            Variant fname2 = Variant(fname.GetString().c_str(), P_DATA_FUNCTION);
            PNode * tmpNode = new DataNode(fname2, "USER-GENERATED",-1);
 
            PNode * arglistnode = ((OpNode*)node)->GetLeft();
 
              OpNode * fnode = new OpNode(PEBL_FUNCTION, tmpNode, arglistnode, "user-generated", -1);
 
#endif
 
 
            Evaluator * eval = new Evaluator();
 
 
 
            eval->Push(args);//add the  parameter node
 
#ifdef PEBL_ITERATIVE_EVAL
            eval->Evaluate1(node);
            eval->Evaluate1();
#else
            eval->Evaluate(node);
#endif
 
            if(eval->GetStackDepth()<1)
                {
                    retval = Variant(0);
                }
            else
                {
 
                    retval = eval->Pop();
                }
 
 
 
            delete eval;
            //Maybe this argument structure should be cleaned up?
            rest->DestroyChildren();
            delete rest;
 
 
        }
    else
        {
            //Unknown type
        }
 
    return retval;
}

References PError::AssertType(), PList::Begin(), Evaluator::CallFunction(), PNode::DestroyChildren(), PList::End(), Evaluator::Evaluate(), Evaluator::Evaluate1(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), Evaluator::GetNodeStackDepth(), OpNode::GetOp(), Evaluator::GetStackDepth(), Variant::GetString(), Evaluator::mFunctionMap, myEval, Evaluator::NodeStackPush(), PList::Nth(), NULL, P_DATA_FUNCTION, PEAT_LIST, PEAT_STRING, Evaluator::Pop(), and Evaluator::Push().

CheckProcessStatus()

Variant PEBLEnvironment::CheckProcessStatus

(

Variant

v

)

Definition at line 2485 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_INTEGER, "Argument error in function [CheckProcessStatus(<pid>)]: ");
 
#if defined(PEBL_UNIX)
    pid_t pid = (pid_t)(plist->First().GetInteger());
 
    int status;
    pid_t result = waitpid(pid, &status, WNOHANG);
 
    if (result == 0) {
        // Process still running
        return Variant(1);
    }
    else if (result == pid) {
        // Process has finished
        return Variant(0);
    }
    else {
        // Error or already reaped
        return Variant(-1);
    }
#elif defined(PEBL_WIN32)
    DWORD pid = (DWORD)(plist->First().GetInteger());
 
    HANDLE hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, pid);
    if (hProcess == NULL) {
        // Process doesn't exist or already finished
        return Variant(0);
    }
 
    DWORD exitCode;
    if (GetExitCodeProcess(hProcess, &exitCode)) {
        CloseHandle(hProcess);
        if (exitCode == STILL_ACTIVE) {
            // Process still running
            return Variant(1);
        } else {
            // Process has finished
            return Variant(0);
        }
    } else {
        // Error querying process
        CloseHandle(hProcess);
        return Variant(-1);
    }
#else
    // Not supported on other platforms
    PError::SignalWarning("CheckProcessStatus not supported on this platform");
    return Variant(-1);
#endif
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), Variant::GetInteger(), PComplexData::GetList(), NULL, PEAT_INTEGER, and PError::SignalWarning().

ClearEventLoop()

Variant PEBLEnvironment::ClearEventLoop

(

Variant

v

)

Definition at line 1986 of file PEBLEnvironment.cpp.

{
 
 
    Evaluator::mEventLoop->Clear();
 
    return Variant(0);
}

References PEventLoop::Clear(), and Evaluator::mEventLoop.

CopyFromClipboard()

Variant PEBLEnvironment::CopyFromClipboard

(

Variant

v

)

Definition at line 2642 of file PEBLEnvironment.cpp.

{
#ifdef PEBL_VALIDATOR
    // Validator mode: return empty string
    return Variant("");
#else
    return SDLUtility::CopyFromClipboard();
#endif
}

References SDLUtility::CopyFromClipboard().

CopyToClipboard()

Variant PEBLEnvironment::CopyToClipboard

(

Variant

v

)

Definition at line 2628 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    Variant x  = plist->First();
    PError::AssertType(x,PEAT_STRING,"Argument error in function [CopyToClipboard]: ");
 
#ifdef PEBL_VALIDATOR
    // Validator mode: no-op
#else
    SDLUtility::CopyToClipboard(x);
#endif
    return x;  //return whatever we copied here.
}

References PError::AssertType(), SDLUtility::CopyToClipboard(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

DeleteFile()

Variant PEBLEnvironment::DeleteFile

(

Variant

v

)

Definition at line 2587 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [DeleteFile(<filename>)]:  ");
    //cout << "Making directory in penviremnt" << plist->First()<<std::endl;
    Variant out = PEBLUtility::DeleteMyFile((plist->First()));
    return out;
 
 
}

References PError::AssertType(), PEBLUtility::DeleteMyFile(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

ExitQuietly()

Variant PEBLEnvironment::ExitQuietly

(

Variant

v

)

Definition at line 2193 of file PEBLEnvironment.cpp.

{
    //Exit quietly with optional exit code
    //First parameter is message, optional second parameter is exit code (default 0)
    PList * plist = v.GetComplexData()->GetList();
    std::string message  = plist->First().GetString();
 
    int exitCode = 0;  // Default exit code
    if(plist->Length() >= 2)
    {
        exitCode = plist->Nth(2).GetInteger();
    }
 
    PError::ExitQuietly(message, exitCode);
    return Variant(false);
}

References PError::ExitQuietly(), PList::First(), Variant::GetComplexData(), Variant::GetInteger(), PComplexData::GetList(), Variant::GetString(), PList::Length(), and PList::Nth().

FileExists()

Variant PEBLEnvironment::FileExists

(

Variant

v

)

Definition at line 2563 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [FileExists(<filename>)]:  ");
 
    Variant out = PEBLUtility::FileExists(plist->First());
    //cout << "Fileexists:" << out << endl;
    return out;
}

References PError::AssertType(), PEBLUtility::FileExists(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_STRING.

GetCurrentScreenResolution()

Variant PEBLEnvironment::GetCurrentScreenResolution

(

Variant

v

)

Definition at line 2273 of file PEBLEnvironment.cpp.

{
#ifdef PEBL_VALIDATOR
    // Validator mode: return dummy resolution
    PList * list = new PList();
    list->PushBack(Variant(1920));
    list->PushBack(Variant(1080));
    counted_ptr<PEBLObjectBase> tmp = counted_ptr<PEBLObjectBase>(list);
    PComplexData * pcd = new PComplexData(tmp);
    Variant ret = Variant(pcd);
    delete pcd;
    return ret;
#else
    return SDLUtility::GetCurrentScreenResolution();
#endif
}

References SDLUtility::GetCurrentScreenResolution(), and PList::PushBack().

GetCursorPosition()

Variant PEBLEnvironment::GetCursorPosition

(

Variant

v

)

This gets the x,y coordinates of the mouse, and returns them in a list

Definition at line 1266 of file PEBLEnvironment.cpp.

{
    return myEnv->GetCursorPosition();
}

References PlatformEnvironment::GetCursorPosition(), and myEnv.

GetDirectoryListing()

Variant PEBLEnvironment::GetDirectoryListing

(

Variant

v

)

Definition at line 2551 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [GetDirectoryListing(<pathname>)]:  ");
 
    Variant out = PEBLUtility::GetDirectoryListing(plist->First());
    return out;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PEBLUtility::GetDirectoryListing(), PComplexData::GetList(), and PEAT_STRING.

GetDrivers()

Variant PEBLEnvironment::GetDrivers

(

Variant

v

)

Definition at line 2291 of file PEBLEnvironment.cpp.

{
#ifdef PEBL_VALIDATOR
    // Validator mode: return empty list
    PList * list = new PList();
    counted_ptr<PEBLObjectBase> tmp = counted_ptr<PEBLObjectBase>(list);
    PComplexData * pcd = new PComplexData(tmp);
    Variant ret = Variant(pcd);
    delete pcd;
    return ret;
#else
    return SDLUtility::GetDriverList(false);
#endif
}

References SDLUtility::GetDriverList().

GetExecutableName()

Variant PEBLEnvironment::GetExecutableName

(

Variant

v

)

Definition at line 2345 of file PEBLEnvironment.cpp.

{
    SignalFatalError("Use gExecutableName");
   //THis should access a global variable that is set up on startup
   //that keeps track of the executable name.
    //return myEnv->GetExecutableName();
    return Variant(0);
}

References SignalFatalError().

GetHomeDirectory()

Variant PEBLEnvironment::GetHomeDirectory

(

Variant

v

)

Definition at line 2600 of file PEBLEnvironment.cpp.

{
    Variant out = PEBLUtility::GetHomeDirectory();
    return out;
 
}

References PEBLUtility::GetHomeDirectory().

GetInput()

Variant PEBLEnvironment::GetInput

(

Variant

v

)

GetInput0()

Variant PEBLEnvironment::GetInput0

(

Variant

v

)

This takes as an argument a textbox and an 'escape' key. Once executed, it will allow all keyboard entry to show up in the text box. Once the escape key is hit, the function will return the text inside the box. If it has a third argument that is non-zero, it will also use any mouse click as an escape key. this triesto use just textedit events

Definition at line 836 of file PEBLEnvironment.cpp.

{
 
    //    cout << "GetInput0:\n";
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a textbox.
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in function [GetInput(<textbox>,<key-string>)]: ");
    PlatformTextBox * textbox = dynamic_cast<PlatformTextBox*>(plist->First().GetComplexData()->GetObject().get());
 
    //The next argument should be the 'escape' key, or a list of 'escape' keys.
    // l.GetType() << std::endl;
    //type = plist->First()->GetType();
 
    PError::AssertType(plist->Nth(2), PEAT_STRING, "Argument error in function [GetInput(<textbox>,<key-string>)]: ");
    string  exitString = plist->Nth(2); //plist->PopFront();
 
 
    //Create a keyboard test correspending to escape keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
 
 
 
 
    //NULL,NULL will terminate the looping
    string funcname = "";
    ValueState  * keypressstate =NULL;
    ValueState  * texteditstate =NULL;
 
    //Make the textbox editable.
    textbox->SetEditable(true);
    myEnv->SetKeyRepeat(true);
    myEnv->Draw();
 
    Evaluator::mEventLoop->Clear();
 
    //This is the main mini-event loop for getinput.
    bool cont = true;
 
    while(cont)
        {
 
 
            //First, program the event loop triggers:
 
            //This adds anykey press to process.
            keypressstate = new ValueState(PEBL_PRESSED, DT_EQUAL,
                                           PEBL_KEYCODE_ANYKEY,gEventQueue, PDT_KEYBOARD);
 
            Evaluator::mEventLoop->RegisterEvent(keypressstate, funcname, Variant(0));
            keypressstate = NULL;
 
 
 
            //This handles text editing events
            texteditstate = new ValueState(PEBL_PRESSED, DT_TRUE, 1, gEventQueue, PDT_TEXT_INPUT);
            Evaluator::mEventLoop->RegisterEvent(texteditstate, funcname, Variant(0));
            texteditstate = NULL;
 
            //Evaluate the last list item, if it exists.
            //This is the optional command that specifies mouse click events.
            //cout << "Testing length:" << plist->Length() << endl;
            if(plist->Length() > 2)
                {
 
                    //cout << "Optinoal arguments:\n";
                    Variant tmp = plist->Nth(3);  //nth(3) is the 3rd element
                    //cout << "tmp:["<<plist->Nth(2)<<"]\n";
                    //cout << "tmp:["<<tmp<<"]\n";
 
                    if(tmp)
                        {
                            //cout << "tmp was not null\n";
                            //add a mouse click as an exit too.
                            ValueState  * state2 = new ValueState(PEBL_PRESSED, DT_TRUE, 1, gEventQueue, PDT_MOUSE_BUTTON);
                            Evaluator::mEventLoop->RegisterEvent(state2,funcname, Variant(0));
                            state2 = NULL;
                        }
 
 
                    //right-click is button 3 (interface 3rd argument):
                    ValueState  * state2 = new ValueState(PEBL_PRESSED, DT_EQUAL, 3, gEventQueue, PDT_MOUSE_BUTTON);
                    Evaluator::mEventLoop->RegisterEvent(state2,"HANDLETEXTBOXRIGHTCLICK", v);
                    state2 = NULL;
                    //cout << "handletextboxrightclick will be called with : " << v << endl;
 
                }
            else
                {
 
                    //Otherwise, add mouse click event but use it in a specific way.
                    //add a mouse click as an exit too.
 
                    ValueState  * state2 = new ValueState(PEBL_PRESSED, DT_EQUAL, 1, gEventQueue, PDT_MOUSE_BUTTON);
                    Evaluator::mEventLoop->RegisterEvent(state2,"SETTEXTBOXCURSORFROMCLICK", v);
                    state2 = NULL;
 
                    //right-click is button 3:
                    state2 = new ValueState(PEBL_PRESSED, DT_EQUAL, 3, gEventQueue, PDT_MOUSE_BUTTON);
                    Evaluator::mEventLoop->RegisterEvent(state2,"HANDLETEXTBOXRIGHTCLICK", v);
                    state2 = NULL;
 
 
 
                    //  ValueState  * state2 = new ValueState(PEBL_PRESSED, DT_TRUE, 1, gEventQueue, PDT_MOUSE_BUTTON);
                    //                    Evaluator::mEventLoop->RegisterEvent(state2,funcname, Variant(0));
                    //state2 = NULL;
                }
 
 
            bool ignore = false;
 
            //Now, the event(s) we are catching have been programmed. Turn
            //on the loop until it catches something:
            //This gets the first click/keypress:
 
            PEvent evt =  Evaluator::mEventLoop->Loop();
            //Evaluator::mEventLoop->Clear();
            //handle special if it is a mouse click:
            //cout << "********************************************\n--------------EVENt"<<  evt.GetType() << endl;
 
            if(evt.GetType()==PDT_MOUSE_BUTTON )
                {
                    if(evt.GetMouseButtonEvent().state==PEBL_PRESSED)
                        {
 
                            textbox->SetEditable(false);
                            gEventQueue->PushEvent(evt);
                            return Variant(textbox->GetText());
                        } else {
 
                        //We just ignore the keypress in this case.
                        ignore = true;
                    }
                }
 
            //Keyboard event is ONLY used for checking exit condition.
            //otherwise, the text should be taken from the TEXT_EDITING
            //or TEXT_INPUT event.
 
            else if(evt.GetType()==PDT_KEYBOARD)
                    {
 
 
                        PEBL_KeyboardEvent pke = evt.GetKeyboardEvent();
 
                        //cout << "Keystring: " <<PEBLUtility::TranslateKeycode(pke.key, pke.modkeys);
                        //cout << "  Exitstring: " << PEBLUtility::ToLower(exitString) << endl;
                        if( PEBLUtility::TranslateKeycode(pke.key, 0)== PEBLUtility::ToLower(exitString))
                           {
 
                                textbox->SetEditable(false);
                                cont = false;
                                //Exit the loop here; we have matched the exit condition.
                            }
                        else
                            {
                                //This should handle keypresses for limited keystrokes:
                                textbox->HandleKeyPress(pke.key, pke.modkeys, 0);
                                ignore = true;
                                if(myEnv) myEnv->Draw();
                            }
 
                    }
            else if(evt.GetType()==PDT_TEXT_INPUT)
                {
                    PEBL_TextInputEvent event = evt.GetTextInputEvent();
 
                    if(!ignore)
                        {
                            textbox->HandleTextInput(std::string(event.text));
                        }
 
                        if(myEnv)
                            {
 
                                myEnv->Draw();
                            }
 
 
                        //return to top of loop to program events and await for the next keystroke..
                    }
 
            Evaluator::mEventLoop->Clear();
        }
 
 
 
 
    textbox->SetEditable(false);
 
    myEnv->SetKeyRepeat(false);
    return Variant(textbox->GetText());
}

References PError::AssertType(), PEventLoop::Clear(), PlatformEnvironment::Draw(), DT_EQUAL, DT_TRUE, PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PEvent::GetKeyboardEvent(), PComplexData::GetList(), PEvent::GetMouseButtonEvent(), PComplexData::GetObject(), PTextObject::GetText(), PEvent::GetTextInputEvent(), PEvent::GetType(), gEventQueue, PlatformTextBox::HandleKeyPress(), PlatformTextBox::HandleTextInput(), PEBL_KeyboardEvent::key, PList::Length(), PEventLoop::Loop(), Evaluator::mEventLoop, PEBL_KeyboardEvent::modkeys, myEnv, PList::Nth(), NULL, PDT_KEYBOARD, PDT_MOUSE_BUTTON, PDT_TEXT_INPUT, PEAT_STRING, PEAT_TEXTBOX, PEBL_KEYCODE_ANYKEY, PEBL_PRESSED, PEventQueue::PushEvent(), PEventLoop::RegisterEvent(), PlatformTextBox::SetEditable(), PlatformEnvironment::SetKeyRepeat(), PEBL_MouseButtonEvent::state, PEBLUtility::ToLower(), and PEBLUtility::TranslateKeycode().

GetInputOld1()

Variant PEBLEnvironment::GetInputOld1

(

Variant

v

)

GetInputOld2()

Variant PEBLEnvironment::GetInputOld2

(

Variant

v

)

GetJoystick()

Variant PEBLEnvironment::GetJoystick

(

Variant

v

)

Definition at line 1305 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be an integer specifying the joystick index
    PError::AssertType(plist->First(), PEAT_INTEGER, "Argument error in argument of function [GetJoystick(<int>)]: ");
    int id = plist->First();
    //plist->PopFront();
 
 
    PlatformJoystick * js = new PlatformJoystick(id);
    counted_ptr<PEBLObjectBase> joy = counted_ptr<PEBLObjectBase>(js);
    PComplexData *   pcd = new PComplexData(joy);
    return Variant(pcd);
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and PEAT_INTEGER.

GetJoystickAxisState()

Variant PEBLEnvironment::GetJoystickAxisState

(

Variant

v

)

Definition at line 1387 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in first argument of function [GetJoystickAxisState(<joystick>,<axis>)]: ");
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
    //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second argument of function [GetJoystickAxisState(<joystick>,<axis>)]: ");
 
    unsigned int axis  = (unsigned int)(int)(plist->Nth(2));
 
    return joystick->GetAxisState(axis);
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), PlatformJoystick::GetAxisState(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_INTEGER, and PEAT_JOYSTICK.

GetJoystickBallState()

Variant PEBLEnvironment::GetJoystickBallState

(

Variant

v

)

Definition at line 1422 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in first argument of function [GetJoystickBallState(<joystick>,<button>)]: ");
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
    //    plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second argument of function [GetJoystickBallState(<joystick>,<button>)]: ");
    unsigned int button  = (unsigned int)(int)(plist->Nth(2));
 
 
    return joystick->GetBallState(button);
 
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), PlatformJoystick::GetBallState(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_INTEGER, and PEAT_JOYSTICK.

GetJoystickButtonState()

Variant PEBLEnvironment::GetJoystickButtonState

(

Variant

v

)

Definition at line 1372 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in first argument of function [GetJoystickButtonState(<joystick>,<button>)]: ");
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
    //    plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second argument of function [GetJoystickButtonState(<joystick>,<button>)]: ");
    unsigned int button  = (unsigned int)(int)(plist->Nth(2));
 
 
    return joystick->GetButtonState(button);
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), PlatformJoystick::GetButtonState(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_INTEGER, and PEAT_JOYSTICK.

GetJoystickHatState()

Variant PEBLEnvironment::GetJoystickHatState

(

Variant

v

)

Definition at line 1405 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in first argument of function [GetJoystickHatState(<joystick>,<hat>)]: ");
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
    //    plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_INTEGER, "Argument error in second argument of function [GetJoystickHatState(<joystick>,<hat>)]: ");
 
    unsigned int hat  = (unsigned int)(int)(plist->First());
 
    return joystick->GetHatState(hat);
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PlatformJoystick::GetHatState(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_INTEGER, and PEAT_JOYSTICK.

GetMouseState()

Variant PEBLEnvironment::GetMouseState

(

Variant

v

)

Definition at line 1292 of file PEBLEnvironment.cpp.

{
   return myEnv->GetMouseState();
 
}

References PlatformEnvironment::GetMouseState(), and myEnv.

GetNumJoystickAxes()

Variant PEBLEnvironment::GetNumJoystickAxes

(

Variant

v

)

Definition at line 1322 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in argument of function [GetNumJoystickAxes(<joystick>)]: ");
 
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
 
    return Variant(joystick->GetNumAxes());
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PJoystick::GetNumAxes(), PComplexData::GetObject(), and PEAT_JOYSTICK.

GetNumJoystickBalls()

Variant PEBLEnvironment::GetNumJoystickBalls

(

Variant

v

)

Definition at line 1335 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in argument of function [GetNumJoystickBalls(<joystick>)]: ");
 
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
 
 
    return Variant(joystick->GetNumBalls());
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PJoystick::GetNumBalls(), PComplexData::GetObject(), and PEAT_JOYSTICK.

GetNumJoystickButtons()

Variant PEBLEnvironment::GetNumJoystickButtons

(

Variant

v

)

Definition at line 1347 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in argument of function [GetNumJoystickButtons(<joystick>)]: ");
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
 
 
 
    return Variant(joystick->GetNumButtons());
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PJoystick::GetNumButtons(), PComplexData::GetObject(), and PEAT_JOYSTICK.

GetNumJoystickHats()

Variant PEBLEnvironment::GetNumJoystickHats

(

Variant

v

)

Definition at line 1359 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a joystick
    PError::AssertType(plist->First(), PEAT_JOYSTICK, "Argument error in argument of function [GetNumJoystickHats(<joystick>)]: ");
    PlatformJoystick * joystick = dynamic_cast<PlatformJoystick*>(plist->First().GetComplexData()->GetObject().get());
 
 
    return Variant(joystick->GetNumHats());
 
}

References PError::AssertType(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PJoystick::GetNumHats(), PComplexData::GetObject(), and PEAT_JOYSTICK.

GetNumJoysticks()

Variant PEBLEnvironment::GetNumJoysticks

(

Variant

v

)

Definition at line 1299 of file PEBLEnvironment.cpp.

{
    return myEnv->GetNumJoysticks();
}

References PlatformEnvironment::GetNumJoysticks(), and myEnv.

GetObjectTime()

Variant PEBLEnvironment::GetObjectTime

(

Variant

v

)

Definition at line 145 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
 
    Variant obj = plist->First();
 
    return Variant(obj.GetCreationTime());
}

References PList::First(), Variant::GetComplexData(), Variant::GetCreationTime(), and PComplexData::GetList().

GetPEBLVersion()

Variant PEBLEnvironment::GetPEBLVersion

(

Variant

v

)

Definition at line 2324 of file PEBLEnvironment.cpp.

{
 
    return Variant("PEBL Version " PEBL_VERSION);
}

References PEBL_VERSION.

GetSystemType()

Variant PEBLEnvironment::GetSystemType

(

Variant

v

)

Definition at line 2331 of file PEBLEnvironment.cpp.

{
#if defined(PEBL_EMSCRIPTEN)
    Variant type = "EMSCRIPTEN";
#elif defined(PEBL_OSX)
    Variant type = "OSX";
#elif defined (PEBL_UNIX)
    Variant type = "LINUX";
#else
    Variant  type = "WINDOWS";
#endif
  return type;
}

GetTextBoxCursorFromClick()

Variant PEBLEnvironment::GetTextBoxCursorFromClick

(

Variant

v

)

Definition at line 1035 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a textbox.
    PError::AssertType(plist->First(), PEAT_TEXTBOX, "Argument error in function [SetTextBoxCursorFromClick(<textbox>,<x>,<y>)]: ");
    PlatformTextBox * textbox = dynamic_cast<PlatformTextBox*>(plist->First().GetComplexData()->GetObject().get());
 
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in first argument of function [SetTextBoxCursorFromClick(<textbox>,<x>,<y>)]: ");
    int x = plist->Nth(2);
 
 
    PError::AssertType(plist->Nth(3), PEAT_NUMBER, "Argument error in second argumeent of function [SetTextBoxCursorFromClick(<textbox>,<x>,<y>)]: ");
 
    int y = plist->Nth(3);
 
 
    //    int relx <- x - (textbox->GetX() - textbox->GetWidth()/2)
    //    int rely <- y - (textbox->GetY() - textbox->GetHeight()/2)
 
    return textbox->FindCursorPosition(x,y);
 
}

References PError::AssertType(), PlatformTextBox::FindCursorPosition(), PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), PList::Nth(), PEAT_NUMBER, and PEAT_TEXTBOX.

GetTime()

Variant PEBLEnvironment::GetTime

(

Variant

v

)

This function moves a widget to a new location.

Definition at line 111 of file PEBLEnvironment.cpp.

{
   //v should have no parameters
 
    //get the time from timer object.
    return Variant(myTimer.GetTime());
}

References PlatformTimer::GetTime(), and myTimer.

GetTimeHP()

Variant PEBLEnvironment::GetTimeHP

(

Variant

v

)

Definition at line 119 of file PEBLEnvironment.cpp.

{
#ifdef PEBL_VALIDATOR
    // Validator mode: return dummy value
    return Variant((pDouble)0.0);
#else
    return Variant((pDouble)SDLUtility::GetTimeHP());
#endif
}

References SDLUtility::GetTimeHP(), and pDouble.

GetTimeOfDay()

Variant PEBLEnvironment::GetTimeOfDay

(

Variant

v

)

Definition at line 135 of file PEBLEnvironment.cpp.

{
    long unsigned int secs;
    long unsigned int msecs;
    myTimer.GetTimeOfDay(secs,msecs);
 
  return Variant(secs);
}

References PlatformTimer::GetTimeOfDay(), and myTimer.

GetVideoModes()

Variant PEBLEnvironment::GetVideoModes

(

Variant

v

)

Definition at line 2306 of file PEBLEnvironment.cpp.

{
 
    int screen = 0;
    if(v.IsStackSignal())
        {
            screen = 0;
        }
    else
        {
            PList * plist = v.GetComplexData()->GetList();
            screen = plist->First();
        }
 
    return myEnv->GetScreenModes(screen);
 
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformEnvironment::GetScreenModes(), Variant::IsStackSignal(), and myEnv.

GetWorkingDirectory()

Variant PEBLEnvironment::GetWorkingDirectory

(

Variant

v

)

Definition at line 2609 of file PEBLEnvironment.cpp.

{
 
    Variant out = PEBLUtility::GetWorkingDirectory();
    return out;
}

References PEBLUtility::GetWorkingDirectory().

IsAnyKeyDown()

Variant PEBLEnvironment::IsAnyKeyDown

(

Variant

v

)

Definition at line 214 of file PEBLEnvironment.cpp.

{
    //This shouldn't receive any arguments
    PEBL_Keycode key = myKeyboard.IsKeyDown(PEBL_KEYCODE_ANYKEY);
 
    //    cout<< "isanykeydown key:"  << key << endl;
    if(key==PEBL_KEYCODE_NOTHING)
        {
            return Variant(0);
        }else
        {
            return Variant(PEBLUtility::TranslateKeycode(key,0));
        }
}

References PlatformKeyboard::IsKeyDown(), myKeyboard, PEBL_KEYCODE_ANYKEY, PEBL_KEYCODE_NOTHING, and PEBLUtility::TranslateKeycode().

IsAudioOut()

Variant PEBLEnvironment::IsAudioOut

(

Variant

v

)

Definition at line 2805 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsAudioOut())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsCanvas()

Variant PEBLEnvironment::IsCanvas

(

Variant

v

)

Definition at line 2758 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsCanvas())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsCircle()

Variant PEBLEnvironment::IsCircle

(

Variant

v

)

IsColor()

Variant PEBLEnvironment::IsColor

(

Variant

v

)

Definition at line 2839 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsColor())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsCustomObject()

Variant PEBLEnvironment::IsCustomObject

(

Variant

v

)

Definition at line 2917 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsCustomObject())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsDirectory()

Variant PEBLEnvironment::IsDirectory

(

Variant

v

)

Definition at line 2540 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [IsDirectory(<pathname>)]:  ");
 
    Variant out = PEBLUtility::IsDirectory(plist->First());
    return out;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEBLUtility::IsDirectory(), and PEAT_STRING.

IsFileStream()

Variant PEBLEnvironment::IsFileStream

(

Variant

v

)

Definition at line 2855 of file PEBLEnvironment.cpp.

{
     PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsFileStream())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsFloat()

Variant PEBLEnvironment::IsFloat

(

Variant

v

)

Definition at line 2691 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    return plist->First().IsFloat();
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsFloat().

IsFont()

Variant PEBLEnvironment::IsFont

(

Variant

v

)

Definition at line 2822 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsFont())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsImage()

Variant PEBLEnvironment::IsImage

(

Variant

v

)

Definition at line 2773 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsImageBox())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsInteger()

Variant PEBLEnvironment::IsInteger

(

Variant

v

)

Definition at line 2683 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    return plist->First().IsInteger();
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsInteger().

IsJoystick()

Variant PEBLEnvironment::IsJoystick

(

Variant

v

)

Definition at line 2740 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsJoystick())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsKeyDown()

Variant PEBLEnvironment::IsKeyDown

(

Variant

v

)

Definition at line 184 of file PEBLEnvironment.cpp.

{
    //v[1] should have the parameter-a letter
     PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [IsKeyDown(<string>)]: ");
 
    std::string mystring = plist->First();// plist->PopFront();
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
    return Variant(myKeyboard.IsKeyDown(key));
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformKeyboard::IsKeyDown(), myKeyboard, PEAT_STRING, and PEBLUtility::TranslateString().

IsKeyUp()

Variant PEBLEnvironment::IsKeyUp

(

Variant

v

)

Definition at line 199 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
   //v[1] should have the parameter-a letter
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [IsKeyUp(<string>)]:  ");
 
    string mystring = plist->First();// plist->PopFront();
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
    return Variant(myKeyboard.IsKeyUp(key));
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PlatformKeyboard::IsKeyUp(), myKeyboard, PEAT_STRING, and PEBLUtility::TranslateString().

IsLabel()

Variant PEBLEnvironment::IsLabel

(

Variant

v

)

Definition at line 2789 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsLabel())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsList()

Variant PEBLEnvironment::IsList

(

Variant

v

)

Definition at line 2707 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsList())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsNumber()

Variant PEBLEnvironment::IsNumber

(

Variant

v

)

Definition at line 2675 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    return plist->First().IsNumber();
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsNumber().

IsPEBLObject()

Variant PEBLEnvironment::IsPEBLObject

(

Variant

v

)

Definition at line 2935 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First();
 
    // Must be ComplexData (excludes simple types like numbers/strings)
    // But must NOT be a list (lists have no properties)
    if (v1.IsComplexData() && !(v1.GetComplexData()->IsList()))
    {
        return Variant(true);
    }
 
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), Variant::IsComplexData(), and PComplexData::IsList().

IsRectangle()

Variant PEBLEnvironment::IsRectangle

(

Variant

v

)

IsShape()

Variant PEBLEnvironment::IsShape

(

Variant

v

)

Definition at line 2900 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsDrawObject())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsSquare()

Variant PEBLEnvironment::IsSquare

(

Variant

v

)

IsString()

Variant PEBLEnvironment::IsString

(

Variant

v

)

Definition at line 2700 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    return plist->First().IsString();
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsString().

IsText()

Variant PEBLEnvironment::IsText

(

Variant

v

)

Definition at line 2667 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    return plist->First().IsString();
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsString().

IsTextBox()

Variant PEBLEnvironment::IsTextBox

(

Variant

v

)

Definition at line 2723 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsTextBox())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsWidget()

Variant PEBLEnvironment::IsWidget

(

Variant

v

)

Definition at line 2869 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsWidget())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

IsWindow()

Variant PEBLEnvironment::IsWindow

(

Variant

v

)

Definition at line 2884 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 =  plist->First();
    if (v1.IsComplexData())
        {
            if((v1.GetComplexData())->IsWindow())
                {
                    return Variant(true);
                }
        }
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), and Variant::IsComplexData().

LaunchFile()

Variant PEBLEnvironment::LaunchFile

(

Variant

v

)

Definition at line 2357 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    std::string file  = plist->First().GetString();
 
 
  Variant success =   PEBLUtility::LaunchFile(file.c_str());
  return success;
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), Variant::GetString(), and PEBLUtility::LaunchFile().

MakeDirectory()

Variant PEBLEnvironment::MakeDirectory

(

Variant

v

)

Definition at line 2576 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [MakeDirectory(<dirname>)]:  ");
    //cout << "Making directory in penviremnt" << plist->First()<<std::endl;
//    (std::string)(plist->First()
    Variant out = PEBLUtility::MakeDirectory(plist->First());
    return out;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEBLUtility::MakeDirectory(), and PEAT_STRING.

PlayMovie()

Variant PEBLEnvironment::PlayMovie

(

Variant

v

)

Definition at line 2953 of file PEBLEnvironment.cpp.

{
#ifdef PEBL_MOVIES
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_MOVIE, "Argument error in first parameter of function [PlayMovie(<movie>)]: ");
 
 
    Variant v1 = plist->First();
    PlatformMovie * myMovie = dynamic_cast<PlatformMovie*>(v1.GetComplexData()->GetObject().get());
 
    //the endmovie event seems to be a bit buggy; so we need to get the actual duration and add a 'kill' event a bit after that.
    long int movietime = myMovie->GetLength();
 
 
    movietime  += PEBLEnvironment::myTimer.GetTime()+100;
    PDevice * timer = new PlatformTimer(PEBLEnvironment::myTimer);
    ValueState  * timestate = new ValueState(movietime, DT_GREATER_THAN_OR_EQUAL, 1, timer, PDT_TIMER);
    string funcname = "";
    Evaluator::mEventLoop->RegisterState(timestate, funcname, Variant(0));
    ValueState  * state = new ValueState(1, DT_EQUAL, true, myMovie, PDT_MOVIE_END);
    //NULL,NULL will terminate the looping
 
 
    //Loop (play movie) until you get the end-of-movie event.
    Evaluator::mEventLoop->RegisterEvent(state, funcname, Variant(0));
 
    myMovie->StartPlayback();
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
 
 
    return Variant(returnval.GetDummyEvent().value);
#else
    PError::SignalFatalError("Movie playing capabilities not supported in this version.");
    return Variant(0);
#endif
 
}

References PError::AssertType(), PEventLoop::Clear(), DT_EQUAL, DT_GREATER_THAN_OR_EQUAL, PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PEvent::GetDummyEvent(), PComplexData::GetList(), PComplexData::GetObject(), PlatformTimer::GetTime(), PEventLoop::Loop(), Evaluator::mEventLoop, myTimer, PDT_MOVIE_END, PDT_TIMER, PEAT_MOVIE, PEventLoop::RegisterEvent(), PEventLoop::RegisterState(), PError::SignalFatalError(), and PEBL_DummyEvent::value.

RegisterEvent()

Variant PEBLEnvironment::RegisterEvent

(

Variant

v

)

third argument (state) could impact the first argument interpretation.

Definition at line 1456 of file PEBLEnvironment.cpp.

{
 
    //v[1] should have the parameter-a letter
    PList * plist = v.GetComplexData()->GetList();
 
 
    //arguments are:
    //1: event type as a string
    //2: interface (key, etc), dummy value of 1 for timer
    //3: state (pressed/released)
    //4: logical test
    //5: called function ("" for no function call)
    //6: function arguments
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [RegisterEvent(<string>)]:  ");
    string mystring = PEBLUtility::ToUpper(plist->First());
 
    PDevice * device = NULL;
 
    enum PEBL_DEVICE_TYPE devicetype = PDT_DUMMY;
    int type = PEBL_UNKNOWN;
 
 
    if(mystring == "<KEY_PRESS>")
        {
            type=PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_KEYBOARD;
        }
    else if(mystring == "<KEY_RELEASE>")
        {
            type=PEBL_RELEASED;
            device = gEventQueue;
            devicetype = PDT_KEYBOARD;
 
 
        }else if(mystring == "<TEXT_INPUT>")
        {
            type=PEBL_TEXT_INPUT;
            device = gEventQueue;
            devicetype = PDT_TEXT_INPUT;
 
 
        }else if(mystring == "<MOUSE_MOVEMENT>")
        {
            type = PEBL_MOVEMENT;
            device = gEventQueue;
            devicetype = PDT_MOUSE_MOVEMENT;
 
 
        }else if(mystring == "<MOUSE_BUTTON>")
        {
 
            //this is sort of broken--keeping it around because
            //it used to work ok in 1.0, but now we should use
            //mouse_button_press and mouse_button_release
            type = PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_MOUSE_BUTTON;
 
 
        }else if(mystring == "<MOUSE_BUTTON_PRESS>")
        {
            type = PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_MOUSE_BUTTON;
 
        }else if(mystring == "<MOUSE_BUTTON_RELEASE>")
        {
            type = PEBL_RELEASED;
            device = gEventQueue;
            devicetype = PDT_MOUSE_BUTTON;
 
        }  else if(mystring==  "<TIMER>")
        {
 
 
            type = PEBL_TIMEOUT;
            //This has the potential to leak:
            device = new PlatformTimer(myTimer);
            devicetype = PDT_TIMER;
 
            //this will be a state, not an event.
 
        }else if(mystring == "<WINDOW_RESIZE>")
        {
            type = PEBL_WINDOWWIDTH;
            device = gEventQueue;
            devicetype = PDT_WINDOW_RESIZE;
 
            //cout << "Creating window resize:" << PDT_WINDOW_RESIZE << endl;
        }else if (mystring == "<JOYSTICK_BUTTON>")
        {
            type = PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_JOYSTICK_BUTTON;
 
        }else if (mystring == "<JOYSTICK_HAT>")
        {
            type = PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_JOYSTICK_HAT;
 
 
        }else if (mystring == "<JOYSTICK_AXIS>")
        {
            type = PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_JOYSTICK_HAT;
 
        }else if (mystring == "<JOYSTICK_BALL>")
        {
            type = PEBL_PRESSED;
            device = gEventQueue;
            devicetype = PDT_JOYSTICK_HAT;
        }else
        {
            //Note: PDT_stream, PDTevent_queue, and PDT_audio_out
            //not handled.
 
            PError::SignalFatalError("Unknown Device\n");
        }
 
 
 
    //Next argument is a value or range
    //It should be either a number,
    // or a list of 2 or 4 items.
    //For keyboard events, this can be anything, because it should be
    //overridden by whether it is key_press or key_release.
 
    Variant v1,v2,v11,v12,v21,v22;
    enum DeviceTestType testtype;
 
    Variant p = plist->Nth(3);//plist->PopFront();
    if(devicetype== PDT_KEYBOARD |
       devicetype == PDT_MOUSE_BUTTON)
        {
            p =type;
            testtype =DTT_VALUESTATE;
        } else {
 
 
 
 
 
 
    if(p.IsNumber())
        {
 
 
            testtype =DTT_VALUESTATE;
            PError::AssertType(p, PEAT_INTEGER, "In RegisterEvent, test bounds not a number:");
            //valuestate
            // this will crash!!!       }else if (p.IsList())
 
        }else
        {
 
 
 
            PList * myList = (PList*)(p.GetComplexData()->GetObject().get());
            // This will be either intervalstate or regionstate
            // if it is an intervalstate, the list well have two numbers inside it
            // for a regionstate, the list will have two sublists.
 
            v1 = myList->First();//myList->PopFront();
            v2 = myList->Nth(2);//First();myList->PopFront();
 
             if(/* DISABLES CODE */ (0))//v1.IsList())
                {
 
                    //regionstate;
                    testtype =DTT_REGIONSTATE;
 
                    PList * sublist1 = (PList*)(v1.GetComplexData()->GetObject().get());
                    PList * sublist2 = (PList*)(v2.GetComplexData()->GetObject().get());
 
                    //Could this end up destroying a global list???
                    v11 = sublist1->First();// sublist1->PopFront();
                    v12 = sublist1->Nth(2);
                    v21 = sublist2->First(); //sublist1->PopFront();
                    v22 = sublist2->Nth(2);//First();
 
                }
            else
                {
 
                    testtype = DTT_INTERVALSTATE;
                    PError::AssertType(v1, PEAT_NUMBER, "In RegisterEvent, test bounds not a number:");
                    PError::AssertType(v2, PEAT_NUMBER, "In RegisterEvent, test bounds not a number:");
                    //intervalstate
                    //ValueState  * state = new ValueState(1, DT_EQUAL, key, device, PDT_KEYBOARD);
 
 
                }
 
 
        }
    }
 
 
 
 
    //Next argument is the interface
    //for mouse/keyboard, this is the button
    //for textinput, it doesn't matter.
 
    Variant intface =(plist->Nth(2));// plist->PopFront();
 
    if(devicetype == PDT_KEYBOARD)
        {
            //cout<<"Translating interface/keycode"<<intface << "==";
           // PEBL_Keycode key = PEBLUtility::TranslateString(intface);
            intface = PEBLUtility::TranslateString(intface);
            //cout << intface << endl;
 
        }
 
 
 
 
 
 
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
 
    //   intervalstate or
    //   regionstate:
    //      inside
    //      not_outside
    //      outside
    //      note_inside
    //      on_edge
 
    //   other:
    //   TRUE
    //   FALSE
 
 
     PError::AssertType(plist->Nth(4), PEAT_STRING,
        "Error in  4th argument of function [RegisterEvent(<device>,<interface>,valuerange,comparison,<function>,<fval>)]: ");
 
 
     std::string test = PEBLUtility::ToUpper(plist->Nth(4)); //plist->PopFront();
    enum DeviceTest dtype=DT_TRUE;
 
    switch(testtype)
        {
        case DTT_VALUESTATE:
 
            if(test == "<NOTEQUAL>")
                {
                    dtype = DT_NOT_EQUAL;
                }
            else if(test == "<EQUAL>")
                {
                    dtype = DT_EQUAL;
                }
            else if(test == "<LESSTHAN>")
                {
                    dtype = DT_LESS_THAN;
                }
            else if(test == "<GREATERTHAN>")
                {
                    dtype = DT_GREATER_THAN;
                }
            else if(test =="<LEQ>")
                {
                    dtype = DT_LESS_THAN_OR_EQUAL;
                }
            else if( test == "<GEQ>")
                {
                    dtype = DT_GREATER_THAN_OR_EQUAL;
                }
            else if(test == "<TRUE>")
                {
                    dtype = DT_TRUE;
                }
            else if(test == "<FALSE>")
                {
                    dtype = DT_FALSE;
                }else{
 
                PError::SignalFatalError("test type not available for value comparisons");
            }
 
            break;
 
            //The same test types are available
            //for intervals and regions.
        case DTT_INTERVALSTATE:
        case DTT_REGIONSTATE:
 
            if(test =="<INSIDE>")
                {
                    dtype = DT_INSIDE;
                }
            else if(test == "<OUTSIDE>")
                {
                    dtype = DT_OUTSIDE;
                }
            else if (test == "<TRUE>")
                {
                    dtype = DT_TRUE;
                }
            else if (test == "<FALSE>")
                {
                    dtype = DT_FALSE;
                }
            else if( test == "<ON_EDGE>")
                {
                    dtype = DT_ON_EDGE;
                }
            else if(test =="<NOT_INSIDE>")
                {
                    dtype = DT_NOT_INSIDE;
                }
            else if(test == "<NOT_OUTSIDE>")
                {
                    dtype = DT_OUTSIDE;
                }else
                {
                    PError::SignalFatalError("Test type not available for region or interval test");
                }
 
        }
 
 
 
 
    PError::AssertType(plist->Nth(5), PEAT_STRING, "Error in parameter of function [RegisterEvent(<device>,<xxx>,<functionname>)]:  ");
    string funcname = PEBLUtility::ToUpper(plist->Nth(5));// plist->PopFront();
    //Can we check to see if funcname exists in the functionmap?
 
 
 
    DeviceState * state  = NULL;
 
    switch(testtype)
        {
        case DTT_VALUESTATE:
 
 
 
            state = new ValueState((int)p,
                                   dtype,
                                   (int)intface,
                                   device, devicetype);
 
 
 
            break;
        case DTT_INTERVALSTATE:
            //This might not work right now.
            state = new IntervalState((int)v1,(int)v2, dtype, (int)intface, device, devicetype);
            break;
        case DTT_REGIONSTATE:
            //This might not work right now.
            state = new RegionState((int)v11, (int)v12, (int)v21, (int)v22, dtype, (int)intface, device, devicetype);
            break;
        }
 
 
 
    //get the parameter to pass to the callback function.
 
    Variant parameters =  plist->Nth(6);//; plist->PopFront();
 
    if(parameters.IsStackSignal())
        parameters = Variant(0);
 
    if(devicetype == PDT_TIMER)
        {
            Evaluator::mEventLoop->RegisterState(state,funcname,
                                                 parameters);
 
            //cout<<">>>>>>>>>>Timer" << *Evaluator::mEventLoop << endl;
        }
    else
        {
 
            Evaluator::mEventLoop->RegisterEvent(state,funcname, parameters);
            //cout<<">>>>>>>>>>>>nonTimer" << *Evaluator::mEventLoop << endl;
        }
 
 
 
    return Variant(0);
}

References PError::AssertType(), DT_EQUAL, DT_FALSE, DT_GREATER_THAN, DT_GREATER_THAN_OR_EQUAL, DT_INSIDE, DT_LESS_THAN, DT_LESS_THAN_OR_EQUAL, DT_NOT_EQUAL, DT_NOT_INSIDE, DT_ON_EDGE, DT_OUTSIDE, DT_TRUE, DTT_INTERVALSTATE, DTT_REGIONSTATE, DTT_VALUESTATE, PList::First(), counted_ptr< X >::get(), Variant::GetComplexData(), PComplexData::GetList(), PComplexData::GetObject(), gEventQueue, Variant::IsNumber(), Variant::IsStackSignal(), Evaluator::mEventLoop, myTimer, PList::Nth(), NULL, PDT_DUMMY, PDT_JOYSTICK_BUTTON, PDT_JOYSTICK_HAT, PDT_KEYBOARD, PDT_MOUSE_BUTTON, PDT_MOUSE_MOVEMENT, PDT_TEXT_INPUT, PDT_TIMER, PDT_WINDOW_RESIZE, PEAT_INTEGER, PEAT_NUMBER, PEAT_STRING, PEBL_MOVEMENT, PEBL_PRESSED, PEBL_RELEASED, PEBL_TEXT_INPUT, PEBL_TIMEOUT, PEBL_UNKNOWN, PEBL_WINDOWWIDTH, PEventLoop::RegisterEvent(), PEventLoop::RegisterState(), PError::SignalFatalError(), PEBLUtility::ToUpper(), and PEBLUtility::TranslateString().

SetCursorPosition()

Variant PEBLEnvironment::SetCursorPosition

(

Variant

v

)

This sets the mouse to a new position.

Definition at line 1275 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    //The first argument should be a textbox.
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in first argument of function [SetCursorPosition(<x>,<y>)]: ");
    int x = plist->First();
    //plist->PopFront();
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second argument of function [SetCursorPosition(<x>,<y>)]: ");
 
    int y =plist->Nth(2);
    //    plist->PopFront();
 
    myEnv->SetCursorPosition(x,y);
     return Variant(1);
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), myEnv, PList::Nth(), PEAT_NUMBER, and PlatformEnvironment::SetCursorPosition().

SetWorkingDirectory()

Variant PEBLEnvironment::SetWorkingDirectory

(

Variant

v

)

Definition at line 2617 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [SetWorkingDirectory(<pathname>)]:  ");
 
    Variant out = PEBLUtility::SetWorkingDirectory(plist->First());
    return out;
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEAT_STRING, and PEBLUtility::SetWorkingDirectory().

ShowCursor()

Variant PEBLEnvironment::ShowCursor

(

Variant

v

)

Definition at line 229 of file PEBLEnvironment.cpp.

{
    PList * plist = v.GetComplexData()->GetList();
    PError::AssertType(plist->First(), PEAT_INTEGER, "Argument error in function [ShowCursor(<bool>)]: ");
    int val = plist->First();
    return Variant(myEnv->ShowCursor(val));
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), myEnv, PEAT_INTEGER, and PlatformEnvironment::ShowCursor().

SignalFatalError()

Variant PEBLEnvironment::SignalFatalError

(

Variant

v

)

Definition at line 2182 of file PEBLEnvironment.cpp.

{
    //Signal a fatal error with the message inside v
    PList * plist = v.GetComplexData()->GetList();
    std::string message  = plist->First().GetString();
 
    PError::SignalFatalError(message);
    return Variant(false);
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), Variant::GetString(), and PError::SignalFatalError().

Referenced by GetExecutableName().

StartEventLoop()

Variant PEBLEnvironment::StartEventLoop

(

Variant

v

)

Definition at line 1851 of file PEBLEnvironment.cpp.

{
 
 
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
 
 
    /*
      returnval could take on any one of the folloing event types:
      we need to make as many of them interpretable as possible.
      it should return, in each case, the same thing returned by the custom
      compiled library function; i.e., the key name, mouse position, etc.
 
 
      PDT_UNKNOWN = 0,
      PDT_KEYBOARD,
      PDT_TEXT_INPUT,
      PDT_TEXT_EDITING,
      PDT_MOUSE_MOVEMENT,
      PDT_MOUSE_BUTTON,
      PDT_MOUSE_WHEEL,
      PDT_TIMER,
      PDT_STREAM,
      PDT_EVENT_QUEUE,
      PDT_AUDIO_OUT,
      PDT_JOYSTICK_AXIS,
      PDT_JOYSTICK_BALL,
      PDT_JOYSTICK_BUTTON,
      PDT_JOYSTICK_HAT,
      PDT_PORT,
      PDT_MOVIE_REFRESH,
      PDT_MOVIE_END,
      PDT_WINDOW_RESIZE,
      PDT_DUMMY
    */
    Variant ret = Variant(-999);
    //    cout << "returntype:" << returnval.GetType() <<endl;
 
 
    switch(returnval.GetType())
        {
 
        case PDT_KEYBOARD:
            //cout << "Keyborad event\n";
 
            ret = Variant(PEBLUtility::TranslateKeycode(returnval.GetKeyboardEvent().key,0));
 
            break;
 
 
        case PDT_MOUSE_MOVEMENT:
        case PDT_MOUSE_BUTTON:
            {
                //cout << "Mouse button/move case\n";
                PList * newlist = new PList();
                int x =returnval.GetMouseButtonEvent().x;
                int y =returnval.GetMouseButtonEvent().y;
                newlist->PushBack(Variant(x));
                newlist->PushBack(Variant(y));
                int btn = returnval.GetMouseButtonEvent().button;
                Variant button = Variant(btn);
                newlist ->PushBack(button);
 
                Variant buttonstate = "";
                int upstate = returnval.GetMouseButtonEvent().state;
                if(upstate == PEBL_PRESSED)
                    {
                        buttonstate = Variant("<pressed>");
                    }
                else
                    {
                    buttonstate = Variant("<released>");
                    }
                newlist->PushBack(buttonstate);
                counted_ptr<PEBLObjectBase> newlist2 = counted_ptr<PEBLObjectBase>(newlist);
                PComplexData *   pcd = new PComplexData(newlist2);
                newlist = NULL;
 
                ret =  Variant(pcd);
 
            }
            break;
 
        case PDT_MOUSE_WHEEL:
            {
 
                //cout << "Mouse wheel case\n";
 
                PList * newlist = new PList();
                unsigned long int x =returnval.GetMouseWheelEvent().x;
                unsigned long int y =returnval.GetMouseWheelEvent().y;
                newlist->PushBack(Variant(x));
                newlist->PushBack(Variant(y));
 
                long int deltax = returnval.GetMouseWheelEvent().deltax;
                long int deltay = returnval.GetMouseWheelEvent().deltay;
 
 
                Variant button = 0;  //keep button code here for consistency.
                newlist ->PushBack(button);
 
                Variant buttonstate = "<wheel>";
                newlist->PushBack(buttonstate);
 
                Variant buttonstatex = (pInt)deltax;
                Variant buttonstatey = (pInt)(deltay*returnval.GetMouseWheelEvent().direction);
 
                newlist->PushBack(buttonstatex);
                newlist->PushBack(buttonstatey);
 
                counted_ptr<PEBLObjectBase> newlist2 = counted_ptr<PEBLObjectBase>(newlist);
                PComplexData *   pcd = new PComplexData(newlist2);
                newlist = NULL;
 
                ret =  Variant(pcd);
 
                //should return a list of mouse
                break;
            }
 
        case PDT_TIMER:
            //cout << "TIMEOUT case\n";
            ret = Variant("<timeout>");
            break;
        default:
            //cout << "UNKNOWN\n";
            ret = Variant("<unknown>");
        }
 
 
    return ret;
}

References PEBL_MouseButtonEvent::button, PEBL_MouseWheelEvent::deltax, PEBL_MouseWheelEvent::deltay, PEBL_MouseWheelEvent::direction, PEvent::GetKeyboardEvent(), PEvent::GetMouseButtonEvent(), PEvent::GetMouseWheelEvent(), PEvent::GetType(), PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, NULL, PDT_KEYBOARD, PDT_MOUSE_BUTTON, PDT_MOUSE_MOVEMENT, PDT_MOUSE_WHEEL, PDT_TIMER, PEBL_PRESSED, pInt, PList::PushBack(), PEBL_MouseButtonEvent::state, PEBLUtility::TranslateKeycode(), PEBL_MouseButtonEvent::x, PEBL_MouseWheelEvent::x, PEBL_MouseButtonEvent::y, and PEBL_MouseWheelEvent::y.

SystemCall()

Variant PEBLEnvironment::SystemCall

(

Variant

v

)

Definition at line 2367 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    std::string call  = plist->First().GetString();
 
 
    std::string args;
 
    if(plist->Length()>=2)
        {
            args = plist->Nth(2).GetString();
        }
    else
        {
            args = "";
        }
 
 
    Variant x =PEBLUtility::SystemCall(call.c_str(),args.c_str());
 
 
    return x;
 
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), Variant::GetString(), PList::Length(), PList::Nth(), and PEBLUtility::SystemCall().

Referenced by SystemCallUpdate().

SystemCallUpdate()

Variant PEBLEnvironment::SystemCallUpdate

(

Variant

v

)

Definition at line 2438 of file PEBLEnvironment.cpp.

{
#if defined(PEBL_UNIX)
    PList * plist = v.GetComplexData()->GetList();
 
    std::string call  = plist->Nth(1).GetString();
    std::string args;
 
    if(plist->Length()>=2)
    {
        args = plist->Nth(2).GetString();
    }
    else
    {
        args = "";
    }
 
    // Combine command and args for shell execution
    std::string fullcmd = call + " " + args;
 
    // Fork a child process
    pid_t pid = fork();
 
    if (pid < 0) {
        // Fork failed
        PError::SignalWarning("SystemCallUpdate: fork() failed");
        return Variant(-1);
    }
    else if (pid == 0) {
        // Child process - execute the command
        execl("/bin/sh", "sh", "-c", fullcmd.c_str(), (char *)NULL);
        // If execl returns, it failed
        _exit(127);
    }
    else {
        // Parent process - return the child PID
        return Variant((pInt)pid);
    }
#else
    // Fallback for non-Unix platforms
    return SystemCall(v);
#endif
}

References Variant::GetComplexData(), PComplexData::GetList(), Variant::GetString(), PList::Length(), PList::Nth(), NULL, pInt, PError::SignalWarning(), and SystemCall().

TimeStamp()

Variant PEBLEnvironment::TimeStamp

(

Variant

v

)

Definition at line 2251 of file PEBLEnvironment.cpp.

{
 
    time_t  rawtime;
    rawtime = time(NULL);
    char* timestring = ctime(&rawtime);
 
 
    //timestring now ends with a carriage return.  So fix it.
 
    int pos =0;
    while( timestring[pos] != '\n' && timestring[pos] != '\0')
        {
            pos++;
        }
    timestring[pos] = '\0';
    Variant ret = Variant(timestring);
 
    return ret;
}

References NULL.

Referenced by PlatformWindow::Initialize().

TranslateKeyCode()

Variant PEBLEnvironment::TranslateKeyCode

(

Variant

v

)

This function takes as an argument an integer, and returns the string values corresponding to that keycode.

Definition at line 2214 of file PEBLEnvironment.cpp.

{
 
   //v[1] should have the key
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_INTEGER, "Argument error in function [TranslateKeyCode(<integer>)]:  ");
 
    int key = (int)(plist->First());// plist->PopFront();
 
    std::string retval = PEBLUtility::TranslateKeycode((PEBL_Keycode)key, PEBLMOD_NONE);
    return Variant(retval);
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEAT_INTEGER, PEBLMOD_NONE, and PEBLUtility::TranslateKeycode().

TranslateString()

Variant PEBLEnvironment::TranslateString

(

Variant

v

)

This function takes as an argument an integer, and returns the string values corresponding to that keycode.

Definition at line 2232 of file PEBLEnvironment.cpp.

{
 
 
    PList * plist = v.GetComplexData()->GetList();
   //v[1] should have the parameter-a letter
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [TranslateString(<string>)]:  ");
 
    string mystring = plist->First();// plist->PopFront();
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
    return Variant(key);
 
}

References PError::AssertType(), PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEAT_STRING, and PEBLUtility::TranslateString().

VariableExists()

Variant PEBLEnvironment::VariableExists

(

Variant

v

)

Definition at line 2656 of file PEBLEnvironment.cpp.

{
   PList * plist = v.GetComplexData()->GetList();
   Variant x  = plist->First();
   //return Variant(true);//
   return Variant(myEval->IsVariableName(x));
 
}

References PList::First(), Variant::GetComplexData(), PComplexData::GetList(), Evaluator::IsVariableName(), and myEval.

Wait()

Variant PEBLEnvironment::Wait

(

Variant

v

)

Definition at line 155 of file PEBLEnvironment.cpp.

{
 
    //cout << "Internal wait\n";
    //v[1] should have the parameter
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in function [Wait(<number>)]: ");
    int delay = plist->First();// plist->PopFront();
    delay += myTimer.GetTime();
    //Create a timer test correspending to keydown.
    //1 is the value (down), DT_GREATER_THAN is the test, key is the interface (e.g., the 'A' key)
    PDevice * device = new PlatformTimer(myTimer);
    ValueState  * state = new ValueState(delay, DT_GREATER_THAN_OR_EQUAL, 1,device, PDT_TIMER);
    //NULL,NULL will terminate the looping
    string funcname = "";
 
    Evaluator::mEventLoop->RegisterState(state, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
 
 
    delete device;
 
    return Variant(returnval.GetDummyEvent().value);
}

References PError::AssertType(), PEventLoop::Clear(), DT_GREATER_THAN_OR_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetDummyEvent(), PComplexData::GetList(), PlatformTimer::GetTime(), PEventLoop::Loop(), Evaluator::mEventLoop, myTimer, PDT_TIMER, PEAT_NUMBER, PEventLoop::RegisterState(), and PEBL_DummyEvent::value.

WaitForAllKeysUp()

Variant PEBLEnvironment::WaitForAllKeysUp

(

Variant

v

)

Definition at line 477 of file PEBLEnvironment.cpp.

{
 
    PEBL_Keycode key = PEBL_KEYCODE_ANYKEY;
 
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
    PDevice * device = new PlatformKeyboard(myKeyboard);
    ValueState  * state = new ValueState(1, DT_NOT_EQUAL, key, device, PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string  funcname = "";
    Evaluator::mEventLoop->RegisterState(state,funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
 
 
    return Variant(returnval.GetDummyEvent().value);
}

References PEventLoop::Clear(), DT_NOT_EQUAL, PEvent::GetDummyEvent(), PEventLoop::Loop(), Evaluator::mEventLoop, myKeyboard, PDT_KEYBOARD, PEBL_KEYCODE_ANYKEY, PEventLoop::RegisterState(), and PEBL_DummyEvent::value.

WaitForAnyKeyDown()

Variant PEBLEnvironment::WaitForAnyKeyDown

(

Variant

v

)

This function uses the event loop to schedule a single device-test, which checks for the selected key.

Definition at line 337 of file PEBLEnvironment.cpp.

{
 
    PEBL_Keycode key = PEBL_KEYCODE_ANYKEY;
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (normally an actual key, here the "ANYKEY")
    PDevice * device = new PlatformKeyboard(myKeyboard);
    ValueState  * state = new ValueState(1, DT_EQUAL, key, device,PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string  funcname = "";
 
    Evaluator::mEventLoop->RegisterState(state, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    return Variant(returnval.GetDummyEvent().value);
}

References PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, PEvent::GetDummyEvent(), gEventQueue, PEventLoop::Loop(), Evaluator::mEventLoop, myKeyboard, PDT_KEYBOARD, PEBL_KEYCODE_ANYKEY, PEventLoop::RegisterState(), and PEBL_DummyEvent::value.

WaitForAnyKeyDownWithTimeout()

Variant PEBLEnvironment::WaitForAnyKeyDownWithTimeout

(

Variant

v

)

Definition at line 501 of file PEBLEnvironment.cpp.

{
 
   //v[1] should have the parameter: a time to wait.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in function [WaitForAnyKeyDownWithTimeout(<number>)]:  ");
 
    int delay = plist->First(); //plist->PopFront();
    delay += myTimer.GetTime();
 
    //Create a timer test correspending to keydown.
    //1 is the value (down), DT_GREATERTHAN is the test, key is the interface (e.g., the 'A' key)
    PDevice * timer = new PlatformTimer(myTimer);
    ValueState  * timestate = new ValueState(delay, DT_GREATER_THAN_OR_EQUAL, 1, timer, PDT_TIMER);
 
 
    PEBL_Keycode key = PEBL_KEYCODE_ANYKEY;
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
 
    PDevice * device = new PlatformKeyboard(myKeyboard);
    ValueState  * state = new ValueState(1, DT_EQUAL, key, device,PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string  funcname = "";
    Evaluator::mEventLoop->RegisterState(state,funcname, Variant(0));
    Evaluator::mEventLoop->RegisterState(timestate, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    //std::cout << "Returnval for gadpwto: "<<returnval.GetDummyEvent().value<< std::endl;
 
    //Now, clear the event loop tests
 
 
    int retkey =returnval.GetDummyEvent().value;
     if(retkey==PEBL_KEYCODE_UNKNOWN)
         {
             //cout << "Returning timeout value\n";
             return    Variant("<timeout>");
         }else{
 
         return Variant(PEBLUtility::TranslateKeycode((PEBL_Keycode)retkey,0));
     }
 
    return Variant(returnval.GetDummyEvent().value);
 
}

References PError::AssertType(), PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, DT_GREATER_THAN_OR_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetDummyEvent(), PComplexData::GetList(), PlatformTimer::GetTime(), gEventQueue, PEventLoop::Loop(), Evaluator::mEventLoop, myKeyboard, myTimer, PDT_KEYBOARD, PDT_TIMER, PEAT_NUMBER, PEBL_KEYCODE_ANYKEY, PEBL_KEYCODE_UNKNOWN, PEventLoop::RegisterState(), PEBLUtility::TranslateKeycode(), and PEBL_DummyEvent::value.

WaitForAnyKeyPress()

Variant PEBLEnvironment::WaitForAnyKeyPress

(

Variant

v

)

This function uses the event loop to schedule a single device-test, which checks for the selected key.

Definition at line 447 of file PEBLEnvironment.cpp.

{
 
    PEBL_Keycode key = PEBL_KEYCODE_ANYKEY;
 
    //Create a keyboard test correspending to keydown.
    ValueState  * state = new ValueState(PEBL_PRESSED, DT_EQUAL, key, gEventQueue, PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string  funcname = "";
 
    Evaluator::mEventLoop->RegisterEvent(state, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //cout <<" inhere:" <<returnval.GetEventTime() << endl;
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    //cout << "KEY:!" << returnval.GetKeyboardEvent().key << endl;
    Variant out = Variant(PEBLUtility::TranslateKeycode(returnval.GetKeyboardEvent().key,0));
    out.SetCreationTime(returnval.GetEventTime());
    //cout <<"out:" << out.GetCreationTime() << endl;
 
    return out;
 
}

References PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, PEvent::GetEventTime(), PEvent::GetKeyboardEvent(), gEventQueue, PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, PDT_KEYBOARD, PEBL_KEYCODE_ANYKEY, PEBL_PRESSED, PEventLoop::RegisterEvent(), Variant::SetCreationTime(), and PEBLUtility::TranslateKeycode().

WaitForAnyKeyPressWithTimeout()

Variant PEBLEnvironment::WaitForAnyKeyPressWithTimeout

(

Variant

v

)

Definition at line 557 of file PEBLEnvironment.cpp.

{
 
   //v[1] should have the parameter: a time to wait.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in function [WaitForAnyKeyPressWithTimeout(<number>)]:  ");
 
    int delay = plist->First(); //plist->PopFront();
    delay += myTimer.GetTime();
 
    //Create a timer test correspending to keydown.
    //1 is the value (down), DT_GREATERTHAN is the test, key is
    // the interface (e.g., the 'A' key)
    PDevice * timer = new PlatformTimer(myTimer);
    ValueState  * timestate = new ValueState(delay, DT_GREATER_THAN_OR_EQUAL, 1, timer, PDT_TIMER);
 
 
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
    PEBL_Keycode key = PEBL_KEYCODE_ANYKEY;
    //PDevice * device = new PlatformKeyboard(myKeyboard);
    //ValueState  * state = new ValueState(1, DT_EQUAL, key, device, PDT_KEYBOARD);
    ValueState  * state = new ValueState(PEBL_PRESSED, DT_EQUAL, key, gEventQueue, PDT_KEYBOARD);
 
 
    string  funcname = "";
    Evaluator::mEventLoop->RegisterEvent(state, funcname, Variant(0));
 
 
    Evaluator::mEventLoop->RegisterState(timestate, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
 
    //std::cout << "Returnval for gakpwto: "<<returnval.GetKeyboardEvent().key<< std::endl;
    //std::cout << PEBL_KEYCODE_UNKNOWN << endl;
    //Now, clear the event loop tests
     Evaluator::mEventLoop->Clear();
      gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
     //  return Variant(returnval.GetDummyEvent().value);
 
     PEBL_Keycode retkey =returnval.GetKeyboardEvent().key;
     if(retkey==PEBL_KEYCODE_UNKNOWN)
         {
             //cout << "Returning timeout value\n";
             return    Variant("<timeout>");
         }else{
 
         return Variant(PEBLUtility::TranslateKeycode(retkey,0));
     }
}

References PError::AssertType(), PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, DT_GREATER_THAN_OR_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetKeyboardEvent(), PComplexData::GetList(), PlatformTimer::GetTime(), gEventQueue, PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, myTimer, PDT_KEYBOARD, PDT_TIMER, PEAT_NUMBER, PEBL_KEYCODE_ANYKEY, PEBL_KEYCODE_UNKNOWN, PEBL_PRESSED, PEventLoop::RegisterEvent(), PEventLoop::RegisterState(), and PEBLUtility::TranslateKeycode().

WaitForKeyDown()

Variant PEBLEnvironment::WaitForKeyDown

(

Variant

v

)

This function uses the event loop to schedule a single device-test, which checks for the selected key.

Definition at line 270 of file PEBLEnvironment.cpp.

{
 
    //v[1] should have the parameter-a letter
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [WaitForKeyDown(<string>)]:  ");
 
    string mystring = plist->First();// plist->PopFront();
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
    PDevice * device = new PlatformKeyboard(myKeyboard);
    ValueState  * state = new ValueState(1, DT_EQUAL, key, device, PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string  funcname = "";
 
 
    Evaluator::mEventLoop->RegisterState(state,funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    return Variant(returnval.GetDummyEvent().value);
}

References PError::AssertType(), PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetDummyEvent(), PComplexData::GetList(), gEventQueue, PEventLoop::Loop(), Evaluator::mEventLoop, myKeyboard, PDT_KEYBOARD, PEAT_STRING, PEventLoop::RegisterState(), PEBLUtility::TranslateString(), and PEBL_DummyEvent::value.

WaitForKeyListDown()

Variant PEBLEnvironment::WaitForKeyListDown

(

Variant

v

)

Definition at line 711 of file PEBLEnvironment.cpp.

{
 
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_LIST, "Argument error in function [WaitForKeyListDown(<list>)]:  ");
 
    //Use plist to get the actual list of items.
    PList * keylist = (PList*)((v1.GetComplexData())->GetObject().get());
 
    std::vector<Variant>::iterator p = keylist->Begin();
    std::vector<Variant>::iterator end = keylist->End();
 
    PDevice * device = new PlatformKeyboard(myKeyboard);
    ValueState * state;
    string  funcname = "";
 
    PEBL_Keycode key;
 
 
    while(p != end)
        {
            //Create a keyboard tests correspending to each item in v1.
            //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
            key = PEBLUtility::TranslateString(*p);
            state = new ValueState(1, DT_EQUAL, key, device, PDT_KEYBOARD);
            //NULL,NULL will terminate the looping
            Evaluator::mEventLoop->RegisterState(state,funcname, Variant(0));
            p++;
        }
 
 
    //Start the event loop.
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
 
    Evaluator::mEventLoop->Clear();
 
 
    Variant ret;
    if(returnval.GetType() == PDT_KEYBOARD)
        {
 
             ret = Variant(returnval.GetDummyEvent().value);
        }
    else
        {
            //            cout <<"======="<< returnval.GetDummyEvent().value << std::endl;
 
            //PList *newlist = new PList();
            //newlist->PushBack(Variant("<timeout>"));
            //counted_ptr<PEBLObjectBase>newlist2 = counted_ptr<PEBLObjectBase>(newlist);
            //PComplexData *   pcd = new PComplexData(newlist2);
            //            ret = Variant(pcd);
 
 
            //ret = Variant(returnval.GetDummyEvent().value);
            ret = Variant(PEBLUtility::TranslateKeycode((PEBL_Keycode)(returnval.GetDummyEvent().value),0));
 
        }
 
    return ret;
}

References PError::AssertType(), PList::Begin(), PEventLoop::Clear(), DT_EQUAL, PList::End(), PList::First(), Variant::GetComplexData(), PEvent::GetDummyEvent(), PComplexData::GetList(), PEvent::GetType(), PEventLoop::Loop(), Evaluator::mEventLoop, myKeyboard, PDT_KEYBOARD, PEAT_LIST, PEventLoop::RegisterState(), PEBLUtility::TranslateKeycode(), PEBLUtility::TranslateString(), and PEBL_DummyEvent::value.

WaitForKeyPress()

Variant PEBLEnvironment::WaitForKeyPress

(

Variant

v

)

This function uses the event loop to schedule a single device-test, which checks for the selected key.

Definition at line 365 of file PEBLEnvironment.cpp.

{
 
 
    //v[1] should have the parameter-a letter
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [WaitForKeyPress(<string>)]:  ");
 
    string mystring = plist->First();// plist->PopFront();
 
 
 
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
 
    ValueState  * state = new ValueState(PEBL_PRESSED, DT_EQUAL,
                                         key, gEventQueue, PDT_KEYBOARD);
 
 
 
    //NULL,NULL will terminate the looping
    string funcname = "";
 
    Evaluator::mEventLoop->RegisterEvent(state,funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    state =NULL;
 
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    //return returnval.GetKeyboardEvent().key;
    return Variant(PEBLUtility::TranslateKeycode(returnval.GetKeyboardEvent().key,0));
}

References PError::AssertType(), PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetKeyboardEvent(), PComplexData::GetList(), gEventQueue, PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, NULL, PDT_KEYBOARD, PEAT_STRING, PEBL_PRESSED, PEventLoop::RegisterEvent(), PEBLUtility::TranslateKeycode(), and PEBLUtility::TranslateString().

WaitForKeyRelease()

Variant PEBLEnvironment::WaitForKeyRelease

(

Variant

v

)

Definition at line 408 of file PEBLEnvironment.cpp.

{
 
    //v[1] should have the parameter-a letter
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [WaitForKeyRelease(<string>)]:  ");
 
    string mystring = plist->First();// plist->PopFront();
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_NOT_EQUAL is the test, key is the interface (e.g., the 'A' key)
 
    ValueState  * state = new ValueState(PEBL_RELEASED,
                                         DT_EQUAL, key,
                                         gEventQueue,
                                         PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string funcname = "";
 
    Evaluator::mEventLoop->RegisterEvent(state, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
 
 
    return Variant(PEBLUtility::TranslateKeycode(returnval.GetKeyboardEvent().key,0));
 
}

References PError::AssertType(), PEventLoop::Clear(), DT_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetKeyboardEvent(), PComplexData::GetList(), gEventQueue, PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, PDT_KEYBOARD, PEAT_STRING, PEBL_RELEASED, PEventLoop::RegisterEvent(), PEBLUtility::TranslateKeycode(), and PEBLUtility::TranslateString().

WaitForKeyUp()

Variant PEBLEnvironment::WaitForKeyUp

(

Variant

v

)

Definition at line 303 of file PEBLEnvironment.cpp.

{
 
    //v[1] should have the parameter-a letter
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_STRING, "Argument error in function [WaitForKeyUp(<string>)]:  ");
 
    string mystring = plist->First(); //plist->PopFront();
    PEBL_Keycode key = PEBLUtility::TranslateString(mystring);
 
 
    //Create a keyboard test correspending to keydown.
    //1 is the value (down), DT_NOT_EQUAL is the test, key is the interface (e.g., the 'A' key)
    PDevice * device = new PlatformKeyboard(myKeyboard);
    ValueState  * state = new ValueState(1, DT_NOT_EQUAL, key, device, PDT_KEYBOARD);
 
    //NULL,NULL will terminate the looping
    string funcname = "";
    Evaluator::mEventLoop->RegisterState(state, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests (this is now done in-loop).
    Evaluator::mEventLoop->Clear();
 
    return Variant(returnval.GetDummyEvent().value);
 
}

References PError::AssertType(), PEventLoop::Clear(), DT_NOT_EQUAL, PList::First(), Variant::GetComplexData(), PEvent::GetDummyEvent(), PComplexData::GetList(), PEventLoop::Loop(), Evaluator::mEventLoop, myKeyboard, PDT_KEYBOARD, PEAT_STRING, PEventLoop::RegisterState(), PEBLUtility::TranslateString(), and PEBL_DummyEvent::value.

WaitForListKeyPress()

Variant PEBLEnvironment::WaitForListKeyPress

(

Variant

v

)

Definition at line 780 of file PEBLEnvironment.cpp.

{
 
   //v[1] should have the parameter: a list of keys to wait for.
    PList * plist = v.GetComplexData()->GetList();
 
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_LIST, "Argument error in function [WaitForKeyListPress(<list>)]:  ");
 
    //Use plist to get the actual list of items.
    PList * keylist = (PList*)((v1.GetComplexData())->GetObject().get());
 
    std::vector<Variant>::iterator p = keylist->Begin();
    std::vector<Variant>::iterator end = keylist->End();
 
    ValueState * state;
    string funcname = "";
 
    PEBL_Keycode key;
 
    while(p != end)
        {
            //Create a keyboard tests correspending to each item in v1.
            //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
 
 
            key = PEBLUtility::TranslateString(*p);
            //std::cout<< "Key:" << *p << "|"<<key<< std::endl;
            state = new ValueState(PEBL_PRESSED, DT_EQUAL, key, gEventQueue, PDT_KEYBOARD);
            //NULL,NULL will terminate the looping
            Evaluator::mEventLoop->RegisterEvent(state,funcname, Variant(0));
            p++;
        }
 
 
    //Start the event loop.
    PEvent returnval = Evaluator::mEventLoop->Loop();
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    return Variant(PEBLUtility::TranslateKeycode(returnval.GetKeyboardEvent().key,0));
}

References PError::AssertType(), PList::Begin(), PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, PList::End(), PList::First(), Variant::GetComplexData(), PEvent::GetKeyboardEvent(), PComplexData::GetList(), gEventQueue, PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, PDT_KEYBOARD, PEAT_LIST, PEBL_PRESSED, PEventLoop::RegisterEvent(), PEBLUtility::TranslateKeycode(), and PEBLUtility::TranslateString().

WaitForListKeyPressWithTimeout()

Variant PEBLEnvironment::WaitForListKeyPressWithTimeout

(

Variant

v

)

Definition at line 626 of file PEBLEnvironment.cpp.

{
 
    PList * plist = v.GetComplexData()->GetList();
    Variant v1 = plist->First(); //plist->PopFront();
    PError::AssertType(v1, PEAT_LIST, "Argument error in first parameter of function [WaitForListKeyPressWithTimeout(<list-of-keys>,<timeout>,<style>)]:  ");
 
 
    //Use plist to get the actual list of items.
    PList * keylist = (PList*)((v1.GetComplexData())->GetObject().get());
 
    PError::AssertType(plist->Nth(2), PEAT_NUMBER, "Argument error in second parameter of function [WaitForListKeyPressWithTimeout(<list-of-keys>,<timeout>,<style>)]:  ");
    int delay  = plist->Nth(2);// plist->PopFront();
    delay += myTimer.GetTime();
 
    //this is unused.
    // PError::AssertType(plist->Nth(3), PEAT_INTEGER, "Argument error in third parameter of function [WaitForListKeyPressWithTimeout(<list-of-keys>,<timeout>,<style>)]:  ");
    //    Variant v3 = plist->Nth(3);// plist->PopFront();
 
 
 
 
 
    std::vector<Variant>::iterator p = keylist->Begin();
    std::vector<Variant>::iterator end = keylist->End();
 
    ValueState * state;
    string funcname = "";
 
    PEBL_Keycode key;
 
    while(p != end)
        {
            //Create a keyboard tests correspending to each item in v1.
            //1 is the value (down), DT_EQUAL is the test, key is the interface (e.g., the 'A' key)
            key = PEBLUtility::TranslateString(*p);
            state = new ValueState(PEBL_PRESSED, DT_EQUAL, key, gEventQueue, PDT_KEYBOARD);
            //NULL,NULL will terminate the looping
            Evaluator::mEventLoop->RegisterEvent(state,funcname, Variant(0));
            p++;
        }
 
 
 
    //Create a timer test correspending to keydown.
    //1 is the value (down), DT_GREATERTHAN is the test, key is the interface (e.g., the 'A' key)
    PDevice * timer = new PlatformTimer(myTimer);
    ValueState  * timestate = new ValueState(delay, DT_GREATER_THAN_OR_EQUAL, 1, timer, PDT_TIMER);
 
 
    //NULL,NULL will terminate the looping
    Evaluator::mEventLoop->RegisterState(timestate, funcname, Variant(0));
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
    gEventQueue->Clear();  //clear the event queue so the editing events don't bleed over.
 
    //    return Variant(PEBLUtility::TranslateKeyCode(returnval.GetKeyboardEvent().key,0));
    Variant ret;
    //    std::cout<<"Type:" << returnval.GetType() <<std::endl;
 
    if(returnval.GetType() == PDT_KEYBOARD)
        {
 
            ret = Variant(PEBLUtility::TranslateKeycode(returnval.GetKeyboardEvent().key,0));
        }
    else
        {
 
            //PList *newlist = new PList();
            //newlist->PushBack(Variant("<timeout>"));
            //counted_ptr<PEBLObjectBase>newlist2 = counted_ptr<PEBLObjectBase>(newlist);
            //PComplexData *   pcd = new PComplexData(newlist2);
 
            ret = Variant("<timeout>");
        }
 
    return ret;
 
}

References PError::AssertType(), PList::Begin(), PEventLoop::Clear(), PEventQueue::Clear(), DT_EQUAL, DT_GREATER_THAN_OR_EQUAL, PList::End(), PList::First(), Variant::GetComplexData(), PEvent::GetKeyboardEvent(), PComplexData::GetList(), PlatformTimer::GetTime(), PEvent::GetType(), gEventQueue, PEBL_KeyboardEvent::key, PEventLoop::Loop(), Evaluator::mEventLoop, myTimer, PList::Nth(), PDT_KEYBOARD, PDT_TIMER, PEAT_LIST, PEAT_NUMBER, PEBL_PRESSED, PEventLoop::RegisterEvent(), PEventLoop::RegisterState(), PEBLUtility::TranslateKeycode(), and PEBLUtility::TranslateString().

WaitForMouseButton()

Variant PEBLEnvironment::WaitForMouseButton

(

Variant

v

)

This function uses the event loop to schedule a single device-test, which checks for any type of mouse click. It returns x,y, button, and type of button press.

Definition at line 1064 of file PEBLEnvironment.cpp.

{
     //Create a mouse test
    //1 is the value (down), DT_EQUAL is the test, 1 is the interface (e.g., the 'A' key)
 
    //Add normal mouse buttons:
    ValueState  * state = NULL;
    state = new ValueState(PEBL_PRESSED, DT_TRUE, 1, gEventQueue, PDT_MOUSE_BUTTON);
    //cout << "Registering in: " << *(Evaluator::mEventLoop) << endl;
    //NULL,NULL will terminate the looping
    string funcname = "";
    Evaluator::mEventLoop->RegisterEvent(state,funcname, Variant(0));
 
 
    //add scrolling button movement.
    //interface=1 is x, interface 2 = 5
    state = new ValueState(PEBL_PRESSED,DT_TRUE,2,gEventQueue,PDT_MOUSE_WHEEL);
    Evaluator::mEventLoop->RegisterEvent(state,funcname, Variant(0));
 
 
 
 
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
 
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
 
 
    PList * newlist = new PList();
 
    if( returnval.GetType()==PDT_MOUSE_BUTTON)
        {
            int x =returnval.GetMouseButtonEvent().x;
            int y =returnval.GetMouseButtonEvent().y;
            newlist->PushBack(Variant(x));
            newlist->PushBack(Variant(y));
            int btn = returnval.GetMouseButtonEvent().button;
            Variant button = Variant(btn);
            newlist ->PushBack(button);
 
            Variant buttonstate = "";
            int upstate = returnval.GetMouseButtonEvent().state;
            if(upstate == PEBL_PRESSED)
                {
                    buttonstate = Variant("<pressed>");
                }
            else
                {
                    buttonstate = Variant("<released>");
                }
            newlist->PushBack(buttonstate);
 
        }else if(returnval.GetType()==PDT_MOUSE_WHEEL)
        {
 
            unsigned long int x =returnval.GetMouseWheelEvent().x;
            unsigned long int y =returnval.GetMouseWheelEvent().y;
            newlist->PushBack(Variant(x));
            newlist->PushBack(Variant(y));
 
            long int deltax = returnval.GetMouseWheelEvent().deltax;
            long int deltay = returnval.GetMouseWheelEvent().deltay;
 
 
            Variant button = 0;  //keep button code here for consistency.
            newlist ->PushBack(button);
 
            Variant buttonstate = "<wheel>";
            newlist->PushBack(buttonstate);
 
            Variant buttonstatex = (pInt)deltax;
            Variant buttonstatey = (pInt)(deltay*returnval.GetMouseWheelEvent().direction);
 
            newlist->PushBack(buttonstatex);
            newlist->PushBack(buttonstatey);
 
        }
 
    counted_ptr<PEBLObjectBase> newlist2 = counted_ptr<PEBLObjectBase>(newlist);
    PComplexData *   pcd = new PComplexData(newlist2);
    newlist = NULL;
 
    return Variant(pcd);
}

References PEBL_MouseButtonEvent::button, PEventLoop::Clear(), PEBL_MouseWheelEvent::deltax, PEBL_MouseWheelEvent::deltay, PEBL_MouseWheelEvent::direction, DT_TRUE, PEvent::GetMouseButtonEvent(), PEvent::GetMouseWheelEvent(), PEvent::GetType(), gEventQueue, PEventLoop::Loop(), Evaluator::mEventLoop, NULL, PDT_MOUSE_BUTTON, PDT_MOUSE_WHEEL, PEBL_PRESSED, pInt, PList::PushBack(), PEventLoop::RegisterEvent(), PEBL_MouseButtonEvent::state, PEBL_MouseButtonEvent::x, PEBL_MouseWheelEvent::x, PEBL_MouseButtonEvent::y, and PEBL_MouseWheelEvent::y.

WaitForMouseButtonWithTimeout()

Variant PEBLEnvironment::WaitForMouseButtonWithTimeout

(

Variant

v

)

This function uses the event loop to schedule a single device-test, which checks for any type of mouse click. It returns x,y, button, and type of button press.

Definition at line 1154 of file PEBLEnvironment.cpp.

{
 
 
 
   //v[1] should have the parameter: a time to wait.
    PList * plist = v.GetComplexData()->GetList();
 
    PError::AssertType(plist->First(), PEAT_NUMBER, "Argument error in function [WaitForMouseButtonWithTimeout(<number>)]:  ");
 
    //set the timeout
    int delay = plist->First(); //plist->PopFront();
    delay += myTimer.GetTime();
 
 
    //Create a timer test
    //1 is the value (down), DT_GREATERTHAN is the test, key is
    // the interface (e.g., the 'A' key)
    PDevice * timer = new PlatformTimer(myTimer);
    ValueState  * timestate = new ValueState(delay, DT_GREATER_THAN_OR_EQUAL, PDT_TIMER, timer, PDT_TIMER);
 
 
 
     //Create a mouse test
    //1 is the value (down), DT_EQUAL is the test, 1 is the interface (e.g., the 'A' key)
 
    ValueState  * state = new ValueState(PEBL_PRESSED, DT_TRUE, 1, gEventQueue, PDT_MOUSE_BUTTON);
 
 
    ValueState* state2 = new ValueState(PEBL_PRESSED,DT_TRUE,2,   gEventQueue,PDT_MOUSE_WHEEL);
 
 
 
    //NULL,NULL will terminate the looping
    string funcname = "";
    Evaluator::mEventLoop->RegisterEvent(state,funcname, Variant(0));
    Evaluator::mEventLoop->RegisterEvent(state2,funcname, Variant(0));
    Evaluator::mEventLoop->RegisterState(timestate, funcname, Variant(0));
 
    PEvent returnval = Evaluator::mEventLoop->Loop();
 
 
    //Now, clear the event loop tests
    Evaluator::mEventLoop->Clear();
 
 
    PList *newlist = new PList();
 
    if(returnval.GetType()== PDT_MOUSE_BUTTON)
        {
 
 
            int x =returnval.GetMouseButtonEvent().x;
            int y =returnval.GetMouseButtonEvent().y;
            newlist->PushBack(Variant(x));
            newlist->PushBack(Variant(y));
            int btn = returnval.GetMouseButtonEvent().button;
            Variant button = Variant(btn);
            newlist ->PushBack(button);
 
            Variant buttonstate = "";
            int upstate = returnval.GetMouseButtonEvent().state;
            if(upstate == PEBL_PRESSED)
                {
                    buttonstate = Variant("<pressed>");
                } else {
                buttonstate = Variant("<released>");
            }
            newlist->PushBack(buttonstate);
 
        }else if(returnval.GetType()==PDT_MOUSE_WHEEL)
        {
 
            unsigned long int x =returnval.GetMouseWheelEvent().x;
            unsigned long int y =returnval.GetMouseWheelEvent().y;
            newlist->PushBack(Variant(x));
            newlist->PushBack(Variant(y));
 
            long int deltax = returnval.GetMouseWheelEvent().deltax;
            long int deltay = returnval.GetMouseWheelEvent().deltay;
 
 
            Variant button = 0;  //keep button code here for consistency.
            newlist ->PushBack(button);
 
            Variant buttonstate = "<wheel>";
            newlist->PushBack(buttonstate);
 
            Variant buttonstatex = (pInt)deltax;
            Variant buttonstatey = (pInt)(deltay*returnval.GetMouseWheelEvent().direction);
 
            newlist->PushBack(buttonstatex);
            newlist->PushBack(buttonstatey);
 
        }    else  //PCD_TIMER
        {
 
            return Variant("<timeout>");
 
        }
 
    counted_ptr<PEBLObjectBase>newlist2 = counted_ptr<PEBLObjectBase>(newlist);
    PComplexData *   pcd = new PComplexData(newlist2);
    return Variant(pcd);
}

References PError::AssertType(), PEBL_MouseButtonEvent::button, PEventLoop::Clear(), PEBL_MouseWheelEvent::deltax, PEBL_MouseWheelEvent::deltay, PEBL_MouseWheelEvent::direction, DT_GREATER_THAN_OR_EQUAL, DT_TRUE, PList::First(), Variant::GetComplexData(), PComplexData::GetList(), PEvent::GetMouseButtonEvent(), PEvent::GetMouseWheelEvent(), PlatformTimer::GetTime(), PEvent::GetType(), gEventQueue, PEventLoop::Loop(), Evaluator::mEventLoop, myTimer, PDT_MOUSE_BUTTON, PDT_MOUSE_WHEEL, PDT_TIMER, PEAT_NUMBER, PEBL_PRESSED, pInt, PList::PushBack(), PEventLoop::RegisterEvent(), PEventLoop::RegisterState(), PEBL_MouseButtonEvent::state, PEBL_MouseButtonEvent::x, PEBL_MouseWheelEvent::x, PEBL_MouseButtonEvent::y, and PEBL_MouseWheelEvent::y.

Variable Documentation

FunctionTable

PEBL_Function_Type PEBLEnvironment::FunctionTable[]

Definition at line 297 of file Functions.h.

        {
            {(char *)"GETTIME",                         GetTime,           0, 0},
            {(char*) "GETTIMEHP",                       GetTimeHP,         0,0},
            {(char *)"GETTIMEOFDAY",                    GetTimeOfDay,      0, 0},
            {(char *)"WAIT",                            Wait,              1, 1},
            {(char*)"GETOBJECTTIME",                    GetObjectTime,     1,1},
 
            {(char *)"SHOWCURSOR",                      ShowCursor,        1, 1},
            {(char *)"SETMOUSECURSORPOSITION",          SetCursorPosition,   2,2},
            {(char *)"GETMOUSECURSORPOSITION",          GetCursorPosition,   0,0},
 
 
 
            {(char*)"ISKEYDOWN",                       IsKeyDown,         1, 1},
            {(char*)"ISKEYUP",                         IsKeyUp,           1, 1},
            {(char*)"ISANYKEYDOWN",                    IsAnyKeyDown,      0, 0},
            {(char*)"WAITFORKEYDOWN",                  WaitForKeyDown,    1, 1},
            {(char*)"WAITFORANYKEYDOWN",               WaitForAnyKeyDown, 0, 0},
            {(char*)"WAITFORKEYUP",                    WaitForKeyUp,      1, 1},
 
            {(char*)"WAITFORKEYPRESS",                 WaitForKeyPress,    1, 1},
            {(char*)"WAITFORANYKEYPRESS",              WaitForAnyKeyPress, 0, 0},
            {(char*)"WAITFORKEYRELEASE",               WaitForKeyRelease,  1, 1},
            {(char*)"WAITFORLISTKEYPRESS",             WaitForListKeyPress,  1, 1},
 
            {(char*)"WAITFORALLKEYSUP",                WaitForAllKeysUp,  0, 0},
            {(char*)"WAITFORANYKEYDOWNWITHTIMEOUT",    WaitForAnyKeyDownWithTimeout,  1, 1},
            {(char*)"WAITFORANYKEYPRESSWITHTIMEOUT",   WaitForAnyKeyPressWithTimeout, 1, 1},
            {(char*)"WAITFORKEYLISTDOWN",              WaitForKeyListDown, 1, 1},
            {(char*)"WAITFORLISTKEYPRESSWITHTIMEOUT",  WaitForListKeyPressWithTimeout, 2,3},
            {(char*)"WAITFORMOUSEBUTTON",              WaitForMouseButton, 0,1},
            {(char*)"WAITFORMOUSEBUTTONWITHTIMEOUT",   WaitForMouseButtonWithTimeout, 1,2},
            {(char*)"GETMOUSESTATE",                   GetMouseState,           0,0},
 
            {(char*)"GETNUMJOYSTICKS",                 GetNumJoysticks,      0, 0},
            {(char*)"OPENJOYSTICK",                    GetJoystick,       1, 1},
            {(char*)"GETNUMJOYSTICKAXES",              GetNumJoystickAxes,   1, 1},
            {(char*)"GETNUMJOYSTICKBALLS",             GetNumJoystickBalls,  1, 1},
            {(char*)"GETNUMJOYSTICKBUTTONS",           GetNumJoystickButtons,1, 1},
            {(char*)"GETNUMJOYSTICKHATS",              GetNumJoystickHats,   1, 1},
 
            {(char*)"GETJOYSTICKBUTTONSTATE",          GetJoystickButtonState, 2, 2},
            {(char*)"GETJOYSTICKAXISSTATE",            GetJoystickAxisState,   2, 2},
            {(char*)"GETJOYSTICKHATSTATE",             GetJoystickHatState,    2, 2},
            {(char*)"GETJOYSTICKBALLSTATE",            GetJoystickBallState,   2, 2},
 
 
            {(char*)"CLEAREVENTLOOP",                  ClearEventLoop,     0, 0},
            {(char*)"CALLFUNCTION",                    CallFunction,       2,2},
            {(char*)"GETINPUT",                        GetInput0,           2, 4},
 
            {(char*)"GETTEXTBOXCURSORFROMCLICK",       GetTextBoxCursorFromClick, 3,3},
            {(char*)"REGISTEREVENT",                   RegisterEvent,      5,6},
            {(char*)"STARTEVENTLOOP",                  StartEventLoop,      0,0},
            {(char*)"CLEAREVENTLOOP",                  ClearEventLoop,      0,0},
 
 
            {(char*)"SIGNALFATALERROR",                SignalFatalError,   1,1},
            {(char*)"EXITQUIETLY",                     ExitQuietly, 1,2},
            {(char*)"TRANSLATEKEYCODE",                TranslateKeyCode,  1, 1},
            {(char*)"TRANSLATESTRING",                 TranslateString,  1, 1},
            {(char*)"TIMESTAMP",                       TimeStamp,         0, 0},
 
            {(char*)"GETCURRENTSCREENRESOLUTION",      GetCurrentScreenResolution,    0, 0},
            {(char*)"GETVIDEOMODES",                   GetVideoModes,    0, 1},
            {(char*)"GETDRIVERS",                      GetDrivers, 0, 0},
            {(char*)"GETPEBLVERSION",                  GetPEBLVersion,    0, 0},
 
            {(char*)"GETSYSTEMTYPE",                   GetSystemType,     0, 0},
            {(char*)"LAUNCHFILE",                      LaunchFile,        1,1},
            {(char*)"SYSTEMCALL",                      SystemCall,        1,2},
//#ifdef PEBL_WINDOWS
            {(char*)"SYSTEMCALLUPDATE",                SystemCallUpdate,   1,2},
//#endif
            {(char*)"CHECKPROCESSSTATUS",              CheckProcessStatus, 1,1},
            {(char*)"COPYTOCLIPBOARD",                 CopyToClipboard,    1,1},
            {(char*)"COPYFROMCLIPBOARD",               CopyFromClipboard,    0,0},
            {(char*)"VARIABLEEXISTS",                  VariableExists,    1,1},
            {(char*)"GETEXECUTABLENAME",               GetExecutableName,  0,0},
 
 
            {(char*)"ISDIRECTORY",                     IsDirectory,        1,1},
            {(char*)"FILEEXISTS",                      FileExists,        1,1},
            {(char*)"GETDIRECTORYLISTING",             GetDirectoryListing,1,1},
            {(char*)"MAKEDIRECTORY",                   MakeDirectory,      1,1},
            {(char*)"GETHOMEDIRECTORY",                GetHomeDirectory,    0,0},
            {(char*)"GETWORKINGDIRECTORY",             GetWorkingDirectory,    0,0},
            {(char*)"SETWORKINGDIRECTORY",             SetWorkingDirectory,    1,1},
 
            {(char*)"DELETEFILE",                      DeleteFile,      1,1},
 
 
            {(char*)"ISTEXT",                          IsText,          1,1},
            {(char*)"ISNUMBER",                        IsNumber,          1,1},
            {(char*)"ISINTEGER",                       IsInteger,          1,1},
            {(char*)"ISFLOAT",                         IsFloat,            1,1},
            {(char*)"ISSTRING",                        IsString,           1,1},
            {(char*)"ISLIST",                          IsList,             1,1},
            {(char*)"ISTEXTBOX",                       IsTextBox,          1,1},
            {(char*)"ISCANVAS",                        IsCanvas,           1,1},
            {(char*)"ISIMAGE",                         IsImage,            1,1},
            {(char*)"ISLABEL",                         IsLabel,            1,1},
            {(char*)"ISAUDIOOUT",                      IsAudioOut,         1,1},
            {(char*)"ISFONT",                          IsFont,             1,1},
            {(char*)"ISCOLOR",                         IsColor,            1,1},
            {(char*)"ISFILESTREAM",                    IsFileStream,       1,1},
            {(char*)"ISWIDGET",                        IsWidget,           1,1},
            {(char*)"ISWINDOW",                        IsWindow,           1,1},
            {(char*)"ISSHAPE",                         IsShape,            1,1},
            {(char*)"ISCUSTOMOBJECT",                  IsCustomObject,     1,1},
            {(char*)"ISPEBLOBJECT",                    IsPEBLObject,       1,1},
            {(char*)"PLAYMOVIE",   PlayMovie,  1,1},
 
 
            {0,            0,  0, 0}
        };

Referenced by Loader::LoadLibraryFunctions().

myKeyboard

PlatformKeyboard PEBLEnvironment::myKeyboard

Definition at line 104 of file PEBLEnvironment.cpp.

Referenced by IsAnyKeyDown(), IsKeyDown(), IsKeyUp(), WaitForAllKeysUp(), WaitForAnyKeyDown(), WaitForAnyKeyDownWithTimeout(), WaitForKeyDown(), WaitForKeyListDown(), and WaitForKeyUp().

myTimer

PlatformTimer PEBLEnvironment::myTimer

Definition at line 103 of file PEBLEnvironment.cpp.

Referenced by GetTime(), GetTimeOfDay(), PEventLoop::Loop(), PlayMovie(), PEBLObjects::RecordToBuffer(), RegisterEvent(), Wait(), WaitForAnyKeyDownWithTimeout(), WaitForAnyKeyPressWithTimeout(), WaitForListKeyPressWithTimeout(), and WaitForMouseButtonWithTimeout().