mirror of
https://github.com/WinampDesktop/winamp.git
synced 2024-12-04 22:21:02 -05:00
3500 lines
107 KiB
C++
3500 lines
107 KiB
C++
|
#include <precomp.h>
|
||
|
|
|
||
|
|
#include <bfc/wasabi_std.h>
|
||
|
|
#include <bfc/wasabi_std_wnd.h>
|
||
|
|
#include <api/script/script.h>
|
||
|
|
#include <api/script/scriptmgr.h>
|
||
|
|
#include <api/script/scriptobj.h>
|
||
|
|
#include <api/script/scriptguid.h>
|
||
|
|
#include <api/script/objects/systemobj.h>
|
||
|
|
#include <api/service/svcs/svc_action.h>
|
||
|
|
#include <api/util/selectfile.h>
|
||
|
|
#include <api/script/vcpu.h> // for getAtom, CUT
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
#include <api/wnd/wndclass/wndholder.h>
|
||
|
|
#include <api/wndmgr/skinembed.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <api/script/objects/timer.h>
|
||
|
|
#include <time.h>
|
||
|
|
#include <api.h>
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_SKIN
|
||
|
|
#include <api/skin/skinparse.h>
|
||
|
|
#include <api/skin/skin.h>
|
||
|
|
#endif
|
||
|
|
#include <math.h>
|
||
|
|
#include <shlobj.h>
|
||
|
|
|
||
|
|
#include <bfc/string/url.h>
|
||
|
|
#include <bfc/parse/pathparse.h>
|
||
|
|
#include <bfc/tlist.h>
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
#include <api/util/varmgr.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <bfc/nsguid.h>
|
||
|
|
#include <api/script/objecttable.h>
|
||
|
|
#include <api/skin/groupmgr.h>
|
||
|
|
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
#include <api/skin/widgets/mb/xuibrowser.h>
|
||
|
|
#include <api/skin/widgets/mb/mainminibrowser.h>
|
||
|
|
#include <api/util/dde.h>
|
||
|
|
#include <api/wac/main.h>//CUT!!
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
#include <api/service/svcs/svc_player.h>
|
||
|
|
#include <api/core/buttons.h>
|
||
|
|
#include <api/core/api_core.h>
|
||
|
|
#include <api/core/corehandle.h> // safe to include even if core isn't there
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
#include <api/config/items/attrbool.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <api/locales/xlatstr.h>
|
||
|
|
#include "../Agave/Language/api_language.h"
|
||
|
|
#include <api/syscb/callbacks/consolecb.h>
|
||
|
|
#include "../nu/AutoChar.h"
|
||
|
|
#include "../nu/AutoUrl.h"
|
||
|
|
#include "../nu/AutoWide.h"
|
||
|
|
#ifdef _WIN32
|
||
|
|
#include <shlwapi.h>
|
||
|
|
extern HINSTANCE hInstance;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef GEN_FF
|
||
|
|
#include "../../../../Plugins/General/gen_ff/wa2frontend.h"
|
||
|
|
#endif
|
||
|
|
|
||
|
|
SystemScriptObjectController _systemController;
|
||
|
|
SystemScriptObjectController *systemController = &_systemController;
|
||
|
|
|
||
|
|
#define MAKI_RUNTIME_VERSION 2
|
||
|
|
|
||
|
|
// -- Functions table -------------------------------------
|
||
|
|
function_descriptor_struct SystemScriptObjectController::exportedFunction[] =
|
||
|
|
{
|
||
|
|
{L"getRuntimeVersion", 0, (void*)SystemObject::vcpu_getVersion},
|
||
|
|
{L"onScriptLoaded", 0, (void*)SystemObject::vcpu_onScriptLoaded},
|
||
|
|
{L"onScriptUnloading", 0, (void*)SystemObject::vcpu_onScriptUnloading},
|
||
|
|
{L"onQuit", 0, (void*)SystemObject::vcpu_onQuit},
|
||
|
|
{L"onKeyDown", 1, (void*)SystemObject::vcpu_onKeyDown},
|
||
|
|
{L"onKeyUp", 1, (void*)SystemObject::vcpu_onKeyUp},
|
||
|
|
{L"onAccelerator", 3, (void*)SystemObject::vcpu_onAccelerator},
|
||
|
|
{L"getMousePosX", 0, (void*)SystemObject::vcpu_getMousePosX},
|
||
|
|
{L"getMousePosY", 0, (void*)SystemObject::vcpu_getMousePosY},
|
||
|
|
{L"isMinimized", 0, (void*)SystemObject::vcpu_isMinimized},
|
||
|
|
{L"restoreApplication", 0, (void*)SystemObject::vcpu_restoreApplication},
|
||
|
|
{L"activateApplication", 0, (void*)SystemObject::vcpu_activateApplication},
|
||
|
|
{L"minimizeApplication", 0, (void*)SystemObject::vcpu_minimizeApplication},
|
||
|
|
{L"isDesktopAlphaAvailable", 0, (void*)SystemObject::vcpu_isDesktopAlphaAvailable},
|
||
|
|
{L"isTransparencyAvailable", 0, (void*)SystemObject::vcpu_isTransparencyAvailable},
|
||
|
|
//-----
|
||
|
|
{L"integerToString", 1, (void*)SystemObject::vcpu_integerToString},
|
||
|
|
{L"stringToInteger", 1, (void*)SystemObject::vcpu_stringToInteger},
|
||
|
|
{L"floatToString", 2, (void*)SystemObject::vcpu_floatToString},
|
||
|
|
{L"stringToFloat", 1, (void*)SystemObject::vcpu_stringToFloat},
|
||
|
|
{L"integerToTime", 1, (void*)SystemObject::vcpu_integerToTime},
|
||
|
|
{L"integerToLongTime", 1, (void*)SystemObject::vcpu_integerToLongTime},
|
||
|
|
{L"dateToTime", 1, (void*)SystemObject::vcpu_dateToTime},
|
||
|
|
{L"dateToLongTime", 1, (void*)SystemObject::vcpu_dateToLongTime},
|
||
|
|
{L"formatDate", 1, (void*)SystemObject::vcpu_formatDate},
|
||
|
|
{L"formatLongDate", 1, (void*)SystemObject::vcpu_formatLongDate},
|
||
|
|
{L"getDateYear", 1, (void*)SystemObject::vcpu_getDateYear},
|
||
|
|
{L"getDateMonth", 1, (void*)SystemObject::vcpu_getDateMonth},
|
||
|
|
{L"getDateDay", 1, (void*)SystemObject::vcpu_getDateDay},
|
||
|
|
{L"getDateDow", 1, (void*)SystemObject::vcpu_getDateDow},
|
||
|
|
{L"getDateDoy", 1, (void*)SystemObject::vcpu_getDateDoy},
|
||
|
|
{L"getDateHour", 1, (void*)SystemObject::vcpu_getDateHour},
|
||
|
|
{L"getDateMin", 1, (void*)SystemObject::vcpu_getDateMin},
|
||
|
|
{L"getDateSec", 1, (void*)SystemObject::vcpu_getDateSec},
|
||
|
|
{L"getDateDst", 1, (void*)SystemObject::vcpu_getDateDst},
|
||
|
|
{L"getDate", 0, (void*)SystemObject::vcpu_getDate},
|
||
|
|
{L"StrMid", 3, (void*)SystemObject::vcpu_strmid},
|
||
|
|
{L"StrLeft", 2, (void*)SystemObject::vcpu_strleft},
|
||
|
|
{L"StrRight", 2, (void*)SystemObject::vcpu_strright},
|
||
|
|
{L"StrSearch", 2, (void*)SystemObject::vcpu_strsearch},
|
||
|
|
{L"StrLen", 1, (void*)SystemObject::vcpu_strlen},
|
||
|
|
{L"StrUpper", 1, (void*)SystemObject::vcpu_strupper},
|
||
|
|
{L"StrLower", 1, (void*)SystemObject::vcpu_strlower},
|
||
|
|
{L"UrlEncode", 1, (void*)SystemObject::vcpu_urlencode},
|
||
|
|
{L"UrlDecode", 1, (void*)SystemObject::vcpu_urldecode},
|
||
|
|
{L"RemovePath", 1, (void*)SystemObject::vcpu_removepath},
|
||
|
|
{L"GetPath", 1, (void*)SystemObject::vcpu_getpath},
|
||
|
|
{L"GetExtension", 1, (void*)SystemObject::vcpu_getextension},
|
||
|
|
{L"getToken", 3, (void*)SystemObject::vcpu_gettoken},
|
||
|
|
//-----
|
||
|
|
{L"sin", 1, (void*)SystemObject::vcpu_sin},
|
||
|
|
{L"cos", 1, (void*)SystemObject::vcpu_cos},
|
||
|
|
{L"tan", 1, (void*)SystemObject::vcpu_tan},
|
||
|
|
{L"asin", 1, (void*)SystemObject::vcpu_asin},
|
||
|
|
{L"acos", 1, (void*)SystemObject::vcpu_acos},
|
||
|
|
{L"atan", 1, (void*)SystemObject::vcpu_atan},
|
||
|
|
{L"atan2", 2, (void*)SystemObject::vcpu_atan2},
|
||
|
|
{L"pow", 2, (void*)SystemObject::vcpu_pow},
|
||
|
|
{L"sqr", 1, (void*)SystemObject::vcpu_sqr},
|
||
|
|
{L"sqrt", 1, (void*)SystemObject::vcpu_sqrt},
|
||
|
|
{L"random", 1, (void*)SystemObject::vcpu_random},
|
||
|
|
{L"integer", 1, (void*)SystemObject::vcpu_integer},
|
||
|
|
{L"frac", 1, (void*)SystemObject::vcpu_frac},
|
||
|
|
{L"ln", 1, (void*)SystemObject::vcpu_log},
|
||
|
|
{L"log10", 1, (void*)SystemObject::vcpu_log10},
|
||
|
|
//-----
|
||
|
|
{L"getParam", 0, (void*)SystemObject::vcpu_getParam},
|
||
|
|
{L"getViewportWidth", 0, (void*)SystemObject::vcpu_getViewportWidth},
|
||
|
|
{L"getViewportHeight", 0, (void*)SystemObject::vcpu_getViewportHeight},
|
||
|
|
{L"getViewportLeft", 0, (void*)SystemObject::vcpu_getViewportLeft},
|
||
|
|
{L"getViewportTop", 0, (void*)SystemObject::vcpu_getViewportTop},
|
||
|
|
{L"getViewportWidthFromPoint", 2, (void*)SystemObject::vcpu_getViewportWidthFP},
|
||
|
|
{L"getViewportHeightFromPoint",2, (void*)SystemObject::vcpu_getViewportHeightFP},
|
||
|
|
{L"getViewportLeftFromPoint", 2, (void*)SystemObject::vcpu_getViewportLeftFP},
|
||
|
|
{L"getViewportTopFromPoint", 2, (void*)SystemObject::vcpu_getViewportTopFP},
|
||
|
|
{L"getViewportWidthFromGuiObject", 1, (void*)SystemObject::vcpu_getViewportWidthGO},
|
||
|
|
{L"getViewportHeightFromGuiObject", 1, (void*)SystemObject::vcpu_getViewportHeightGO},
|
||
|
|
{L"getViewportLeftFromGuiObject", 1, (void*)SystemObject::vcpu_getViewportLeftGO},
|
||
|
|
{L"getViewportTopFromGuiObject", 1, (void*)SystemObject::vcpu_getViewportTopGO},
|
||
|
|
{L"onViewPortChanged", 2, (void*)SystemObject::vcpu_onViewPortChanged},
|
||
|
|
{L"debugString", 2, (void*)SystemObject::vcpu_debugString},
|
||
|
|
{L"isObjectValid", 1, (void*)SystemObject::vcpu_isObjectValid},
|
||
|
|
{L"getTimeOfDay", 0, (void*)SystemObject::vcpu_getTimeOfDay},
|
||
|
|
{L"navigateUrl", 1, (void*)SystemObject::vcpu_navigateUrl},
|
||
|
|
{L"navigateUrlBrowser", 1, (void*)SystemObject::vcpu_navigateUrlBrowser},
|
||
|
|
{L"isKeyDown", 1, (void*)SystemObject::vcpu_isKeyDown},
|
||
|
|
{L"setClipboardText", 1, (void*)SystemObject::vcpu_setClipboard},
|
||
|
|
{L"Chr", 1, (void*)SystemObject::vcpu_chr},
|
||
|
|
{L"triggerAction", 3, (void*)SystemObject::vcpu_triggerAction},
|
||
|
|
{L"messageBox", 4, (void*)SystemObject::vcpu_messageBox},
|
||
|
|
{L"setAtom", 2, (void*)SystemObject::vcpu_setAtom},
|
||
|
|
{L"getAtom", 1, (void*)SystemObject::vcpu_getAtom},
|
||
|
|
#ifdef WASABI_COMPILE_MAKIDEBUG
|
||
|
|
{L"invokeDebugger", 0, (void*)SystemObject::vcpu_invokeDebugger},
|
||
|
|
#endif
|
||
|
|
#ifdef WASABI_COMPILE_SKIN
|
||
|
|
{L"newGroup", 1, (void*)SystemObject::vcpu_newGroup},
|
||
|
|
{L"onSetXuiParam", 2, (void*)SystemObject::vcpu_onSetXuiParam},
|
||
|
|
{L"getScriptGroup", 0, (void*)SystemObject::vcpu_getScriptGroup},
|
||
|
|
{L"getSkinName", 0, (void*)SystemObject::vcpu_getSkinName},
|
||
|
|
{L"newGroupAsLayout", 1, (void*)SystemObject::vcpu_newGroupAsLayout},
|
||
|
|
{L"getNumContainers", 0, (void*)SystemObject::vcpu_getNumContainers},
|
||
|
|
{L"enumContainer", 1, (void*)SystemObject::vcpu_enumContainer},
|
||
|
|
{L"onCreateLayout", 1, (void*)SystemObject::vcpu_onCreateLayout},
|
||
|
|
{L"onShowLayout", 1, (void*)SystemObject::vcpu_onShowLayout},
|
||
|
|
{L"onHideLayout", 1, (void*)SystemObject::vcpu_onHideLayout},
|
||
|
|
{L"switchSkin", 1, (void*)SystemObject::vcpu_switchSkin},
|
||
|
|
{L"isLoadingSkin", 0, (void*)SystemObject::vcpu_isLoadingSkin},
|
||
|
|
{L"lockUI", 0, (void*)SystemObject::vcpu_lockUI},
|
||
|
|
{L"unlockUI", 0, (void*)SystemObject::vcpu_unlockUI},
|
||
|
|
#endif
|
||
|
|
#if defined(WASABI_COMPILE_WNDMGR) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
{
|
||
|
|
L"getContainer", 1, (void*)SystemObject::vcpu_getContainer
|
||
|
|
},
|
||
|
|
{L"newDynamicContainer", 1, (void*)SystemObject::vcpu_newDynamicContainer},
|
||
|
|
{L"onGetCancelComponent", 2, (void*)SystemObject::vcpu_onGetCancelComponent},
|
||
|
|
{L"onLookForComponent", 1, (void*)SystemObject::vcpu_onLookForComponent},
|
||
|
|
{L"isAppActive", 0, (void*)SystemObject::vcpu_isAppActive},
|
||
|
|
{L"showWindow", 3, (void*)SystemObject::vcpu_showWindow},
|
||
|
|
{L"hideWindow", 1, (void*)SystemObject::vcpu_hideWindow},
|
||
|
|
{L"hideNamedWindow", 1, (void*)SystemObject::vcpu_hideNamedWindow},
|
||
|
|
{L"isNamedWindowVisible", 1, (void*)SystemObject::vcpu_isNamedWindowVisible},
|
||
|
|
{L"getCurAppLeft", 0, (void*)SystemObject::vcpu_getCurAppLeft},
|
||
|
|
{L"getCurAppTop", 0, (void*)SystemObject::vcpu_getCurAppTop},
|
||
|
|
{L"getCurAppWidth", 0, (void*)SystemObject::vcpu_getCurAppWidth},
|
||
|
|
{L"getCurAppHeight", 0, (void*)SystemObject::vcpu_getCurAppHeight},
|
||
|
|
#endif
|
||
|
|
#if defined (WASABI_COMPILE_CONFIG) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
{
|
||
|
|
L"setPrivateString", 3, (void*)SystemObject::vcpu_setPrivateString
|
||
|
|
},
|
||
|
|
{L"setPrivateInt", 3, (void*)SystemObject::vcpu_setPrivateInt},
|
||
|
|
{L"getPrivateString", 3, (void*)SystemObject::vcpu_getPrivateString},
|
||
|
|
{L"getPrivateInt", 3, (void*)SystemObject::vcpu_getPrivateInt},
|
||
|
|
{L"setPublicString", 2, (void*)SystemObject::vcpu_setPublicString},
|
||
|
|
{L"setPublicInt", 2, (void*)SystemObject::vcpu_setPublicInt},
|
||
|
|
{L"getPublicString", 2, (void*)SystemObject::vcpu_getPublicString},
|
||
|
|
{L"getPublicInt", 2, (void*)SystemObject::vcpu_getPublicInt},
|
||
|
|
#endif
|
||
|
|
#if defined (WASABI_COMPILE_MEDIACORE) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
{
|
||
|
|
L"getPlayItemString", 0, (void*)SystemObject::vcpu_getPlayItemString
|
||
|
|
},
|
||
|
|
{L"getPlayItemLength", 0, (void*)SystemObject::vcpu_getPlayItemLength},
|
||
|
|
{L"getPlayItemMetadataString", 1, (void*)SystemObject::vcpu_getPlayItemMetadataString},
|
||
|
|
{L"getMetadataString", 2, (void*)SystemObject::vcpu_getMetadataString},
|
||
|
|
{L"getPlayItemDisplayTitle", 0, (void*)SystemObject::vcpu_getPlayItemDisplayTitle},
|
||
|
|
{L"getExtFamily", 1, (void*)SystemObject::vcpu_getExtFamily},
|
||
|
|
{L"getDecoderName", 1, (void*)SystemObject::vcpu_getDecoderName},
|
||
|
|
{L"playFile", 1, (void*)SystemObject::vcpu_playFile},
|
||
|
|
{L"enqueueFile", 1, (void*)SystemObject::vcpu_enqueueFile},
|
||
|
|
{L"clearPlaylist", 0, (void*)SystemObject::vcpu_clearPlaylist},
|
||
|
|
{L"onStop", 0, (void*)SystemObject::vcpu_onStop},
|
||
|
|
{L"onPlay", 0, (void*)SystemObject::vcpu_onPlay},
|
||
|
|
{L"onPause", 0, (void*)SystemObject::vcpu_onPause},
|
||
|
|
{L"onResume", 0, (void*)SystemObject::vcpu_onResume},
|
||
|
|
{L"onTitleChange", 1, (void*)SystemObject::vcpu_onTitleChange},
|
||
|
|
{L"onTitle2Change", 1, (void*)SystemObject::vcpu_onTitle2Change},
|
||
|
|
{L"onUrlChange", 1, (void*)SystemObject::vcpu_onUrlChange},
|
||
|
|
{L"onInfoChange", 1, (void*)SystemObject::vcpu_onInfoChange},
|
||
|
|
{L"onStatusMsg", 1, (void*)SystemObject::vcpu_onStatusMsg},
|
||
|
|
{L"getLeftVuMeter", 0, (void*)SystemObject::vcpu_getLeftVuMeter},
|
||
|
|
{L"getRightVuMeter", 0, (void*)SystemObject::vcpu_getRightVuMeter},
|
||
|
|
{L"getVisBand", 2, (void*)SystemObject::vcpu_getVisBand},
|
||
|
|
{L"getVolume", 0, (void*)SystemObject::vcpu_getVolume},
|
||
|
|
{L"setVolume", 1, (void*)SystemObject::vcpu_setVolume},
|
||
|
|
{L"play", 0, (void*)SystemObject::vcpu_play},
|
||
|
|
{L"stop", 0, (void*)SystemObject::vcpu_stop},
|
||
|
|
{L"pause", 0, (void*)SystemObject::vcpu_pause},
|
||
|
|
{L"next", 0, (void*)SystemObject::vcpu_next},
|
||
|
|
{L"previous", 0, (void*)SystemObject::vcpu_previous},
|
||
|
|
{L"eject", 0, (void*)SystemObject::vcpu_eject},
|
||
|
|
{L"seekTo", 1, (void*)SystemObject::vcpu_seekTo},
|
||
|
|
{L"getPosition", 0, (void*)SystemObject::vcpu_getPosition},
|
||
|
|
{L"setEqBand", 2, (void*)SystemObject::vcpu_setEqBand},
|
||
|
|
{L"setEqPreAmp", 1, (void*)SystemObject::vcpu_setEqPreAmp},
|
||
|
|
{L"setEq", 1, (void*)SystemObject::vcpu_setEq},
|
||
|
|
{L"getEqBand", 1, (void*)SystemObject::vcpu_getEqBand},
|
||
|
|
{L"getEqPreAmp", 0, (void*)SystemObject::vcpu_getEqPreAmp},
|
||
|
|
{L"getEq", 0, (void*)SystemObject::vcpu_getEq},
|
||
|
|
{L"onEqBandChanged", 2, (void*)SystemObject::vcpu_onEqBandChanged},
|
||
|
|
{L"onEqFreqChanged", 1, (void*)SystemObject::vcpu_onEqFreqChanged},
|
||
|
|
{L"onEqPreAmpChanged", 1, (void*)SystemObject::vcpu_onEqPreAmpChanged},
|
||
|
|
{L"onEqChanged", 1, (void*)SystemObject::vcpu_onEqChanged},
|
||
|
|
{L"onVolumeChanged", 1, (void*)SystemObject::vcpu_onVolumeChanged},
|
||
|
|
{L"onSeek", 1, (void*)SystemObject::vcpu_onSeeked},
|
||
|
|
{L"getStatus", 0, (void*)SystemObject::vcpu_getStatus},
|
||
|
|
{L"getStatus", 0, (void*)SystemObject::vcpu_getStatus},
|
||
|
|
{L"getSongInfoText", 0, (void*)SystemObject::vcpu_getSongInfoText},
|
||
|
|
{L"getSongInfoTextTranslated", 0, (void*)SystemObject::vcpu_getSongInfoTextTranslated},
|
||
|
|
{L"hasVideoSupport", 0, (void*)SystemObject::vcpu_hasVideoSupport},
|
||
|
|
{L"isVideo", 0, (void*)SystemObject::vcpu_isVideo},
|
||
|
|
{L"isVideoFullscreen", 0, (void*)SystemObject::vcpu_isVideoFullscreen},
|
||
|
|
{L"setVideoFullscreen", 1, (void*)SystemObject::vcpu_setVideoFullscreen},
|
||
|
|
{L"getIdealVideoWidth", 0, (void*)SystemObject::vcpu_getIdealVideoWidth},
|
||
|
|
{L"getIdealVideoHeight", 0, (void*)SystemObject::vcpu_getIdealVideoHeight},
|
||
|
|
{L"getPlaylistIndex", 0, (void*)SystemObject::vcpu_getPlaylistIndex},
|
||
|
|
{L"onShowNotification", 0, (void*)SystemObject::vcpu_onShowNotification},
|
||
|
|
{L"getPlaylistLength", 0, (void*)SystemObject::vcpu_getPlaylistLength},
|
||
|
|
{L"getCurrentTrackRating", 0, (void *)SystemObject::vcpu_getRating},
|
||
|
|
{L"setCurrentTrackRating", 1, (void *)SystemObject::vcpu_setRating},
|
||
|
|
#endif
|
||
|
|
#if defined(WASABI_COMPILE_COMPONENTS) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
{
|
||
|
|
L"getWac", 1, (void*)SystemObject::vcpu_getWac
|
||
|
|
},
|
||
|
|
#endif
|
||
|
|
#if defined(WA3COMPATIBILITY) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
{
|
||
|
|
L"ddesend", 3, (void*)SystemObject::vcpu_ddeSend
|
||
|
|
},
|
||
|
|
{L"setMenuTransparency", 1, (void*)SystemObject::vcpu_setMenuTransparency},
|
||
|
|
{L"popMainBrowser", 0, (void*)SystemObject::vcpu_popMb},
|
||
|
|
{L"getMainBrowser", 0, (void*)SystemObject::vcpu_getMainMB},
|
||
|
|
{L"windowMenu", 0, (void*)SystemObject::vcpu_windowMenu},
|
||
|
|
{L"systemMenu", 0, (void*)SystemObject::vcpu_systemMenu},
|
||
|
|
#endif
|
||
|
|
#if defined (WA3COMPATIBILITY) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
{
|
||
|
|
L"selectFile", 3, (void*)SystemObject::vcpu_selectFile
|
||
|
|
},
|
||
|
|
#endif
|
||
|
|
{L"selectFolder", 3, (void*)SystemObject::vcpu_selectFolder},
|
||
|
|
{L"onOpenURL", 1, (void*)SystemObject::vcpu_onOpenURL},
|
||
|
|
{L"getMonitorLeft", 0, (void*)SystemObject::vcpu_getMonitorLeftGO},
|
||
|
|
{L"getMonitorTop", 0, (void*)SystemObject::vcpu_getMonitorTopGO},
|
||
|
|
{L"getMonitorLeftFromPoint", 2, (void*)SystemObject::vcpu_getMonitorLeftFP},
|
||
|
|
{L"getMonitorTopFromPoint", 2, (void*)SystemObject::vcpu_getMonitorTopFP},
|
||
|
|
{L"getMonitorLeftFromGuiObject", 1, (void*)SystemObject::vcpu_getMonitorLeftGO},
|
||
|
|
{L"getMonitorTopFromGuiObject", 1, (void*)SystemObject::vcpu_getMonitorTopGO},
|
||
|
|
{L"getMonitorWidth", 0, (void*)SystemObject::vcpu_getMonitorWidth},
|
||
|
|
{L"getMonitorHeight", 0, (void*)SystemObject::vcpu_getMonitorHeight},
|
||
|
|
{L"getMonitorWidthFromPoint", 2, (void*)SystemObject::vcpu_getMonitorWidthFP},
|
||
|
|
{L"getMonitorHeightFromPoint",2, (void*)SystemObject::vcpu_getMonitorHeightFP},
|
||
|
|
{L"getMonitorWidthFromGuiObject", 1, (void*)SystemObject::vcpu_getMonitorWidthGO},
|
||
|
|
{L"getMonitorHeightFromGuiObject", 1, (void*)SystemObject::vcpu_getMonitorHeightGO},
|
||
|
|
{L"downloadURL", 3, (void*)SystemObject::vcpu_downloadURL},
|
||
|
|
{L"downloadMedia", 4, (void*)SystemObject::vcpu_downloadMedia},
|
||
|
|
{L"onDownloadFinished", 3, (void*)SystemObject::vcpu_onDownloadFinished},
|
||
|
|
{L"getDownloadPath", 0, (void*)SystemObject::vcpu_getDownloadPath},
|
||
|
|
{L"setDownloadPath", 1, (void*)SystemObject::vcpu_setDownloadPath},
|
||
|
|
{L"getAlbumArt", 1, (void*)SystemObject::vcpu_getAlbumArt},
|
||
|
|
{L"isProVersion", 0, (void*)SystemObject::vcpu_isWinampPro}, // ugh, i hate putting this here but ohh well
|
||
|
|
{L"enumEmbedGUID", 1, (void*)SystemObject::vcpu_enumEmbedGUID}, // ugh, i hate putting this here but ohh well
|
||
|
|
{L"getWinampVersion",0, (void*)SystemObject::vcpu_getWinampVersion},
|
||
|
|
{L"getBuildNumber",0, (void*)SystemObject::vcpu_getBuildNumber},
|
||
|
|
{L"getFileSize",1, (void*)SystemObject::vcpu_getFileSize},
|
||
|
|
{L"getString", 2, (void*)SystemObject::vcpu_getString},
|
||
|
|
{L"translate", 1, (void*)SystemObject::vcpu_translate},
|
||
|
|
{L"getLanguageId", 0, (void*)SystemObject::vcpu_getLanguageId}
|
||
|
|
};
|
||
|
|
// --------------------------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
const wchar_t *SystemScriptObjectController::getClassName()
|
||
|
|
{
|
||
|
|
return L"SystemObject";
|
||
|
|
}
|
||
|
|
|
||
|
|
const wchar_t *SystemScriptObjectController::getAncestorClassName()
|
||
|
|
{
|
||
|
|
return L"Object";
|
||
|
|
}
|
||
|
|
|
||
|
|
ScriptObject *SystemScriptObjectController::instantiate()
|
||
|
|
{
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemScriptObjectController::destroy(ScriptObject *o)
|
||
|
|
{
|
||
|
|
ASSERTALWAYS("don't delete systemobject!");
|
||
|
|
}
|
||
|
|
|
||
|
|
void *SystemScriptObjectController::encapsulate(ScriptObject *o)
|
||
|
|
{
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemScriptObjectController::deencapsulate(void *o)
|
||
|
|
{
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemScriptObjectController::getNumFunctions()
|
||
|
|
{
|
||
|
|
return sizeof(exportedFunction) / sizeof(function_descriptor_struct);
|
||
|
|
}
|
||
|
|
|
||
|
|
const function_descriptor_struct *SystemScriptObjectController::getExportedFunctions()
|
||
|
|
{
|
||
|
|
return exportedFunction;
|
||
|
|
}
|
||
|
|
|
||
|
|
GUID SystemScriptObjectController::getClassGuid()
|
||
|
|
{
|
||
|
|
return systemObjectGuid;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemScriptObjectController::getReferenceable()
|
||
|
|
{
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemScriptObjectController::getInstantiable()
|
||
|
|
{
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifndef _NOSTUDIO
|
||
|
|
|
||
|
|
SystemObject::SystemObject()
|
||
|
|
{
|
||
|
|
getScriptObject()->vcpu_setInterface( systemObjectGuid, ( void * )static_cast<SystemObject *>( this ) );
|
||
|
|
getScriptObject()->vcpu_setClassName( L"System" );
|
||
|
|
getScriptObject()->vcpu_setController( systemController );
|
||
|
|
|
||
|
|
loaded = 0;
|
||
|
|
started_up = 0;
|
||
|
|
scriptVCPUId = -1;
|
||
|
|
isoldformat = 0;
|
||
|
|
parentGroup = NULL;
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_SKIN
|
||
|
|
skinpartid = WASABI_API_PALETTE->getSkinPartIterator();
|
||
|
|
#else
|
||
|
|
skinpartid = -1;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
SOM::registerSystemObject( this );
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_addCallback( 0, this );
|
||
|
|
#endif
|
||
|
|
|
||
|
|
WASABI_API_SYSCB->syscb_registerCallback( this );
|
||
|
|
}
|
||
|
|
|
||
|
|
SystemObject::~SystemObject()
|
||
|
|
{
|
||
|
|
SOM::unregisterSystemObject( this );
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_delCallback( 0, this );
|
||
|
|
#endif
|
||
|
|
WASABI_API_SYSCB->syscb_deregisterCallback( this );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::setScriptId( int id )
|
||
|
|
{
|
||
|
|
scriptVCPUId = id;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::getScriptId()
|
||
|
|
{
|
||
|
|
return scriptVCPUId;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::setParam( const wchar_t *p )
|
||
|
|
{
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
StringW *s = PublicVarManager::translate_nocontext( p );
|
||
|
|
if ( s )
|
||
|
|
param.swap( s );
|
||
|
|
else
|
||
|
|
param = p;
|
||
|
|
delete s;
|
||
|
|
#else
|
||
|
|
param = p;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::setParentGroup( Group *g )
|
||
|
|
{
|
||
|
|
parentGroup = g;
|
||
|
|
}
|
||
|
|
|
||
|
|
Group *SystemObject::getParentGroup()
|
||
|
|
{
|
||
|
|
return parentGroup;
|
||
|
|
}
|
||
|
|
|
||
|
|
const wchar_t *SystemObject::getParam()
|
||
|
|
{
|
||
|
|
return param;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onLoad()
|
||
|
|
{
|
||
|
|
loaded = 1;
|
||
|
|
vcpu_onScriptLoaded( SCRIPT_CALL, getScriptObject() );
|
||
|
|
started_up = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onUnload()
|
||
|
|
{
|
||
|
|
if ( loaded && started_up )
|
||
|
|
vcpu_onScriptUnloading( SCRIPT_CALL, getScriptObject() );
|
||
|
|
|
||
|
|
// that was the script's last chance to delete its stuff, now we need to garbageCollect whatever is left
|
||
|
|
garbageCollect();
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
WindowHolder *SystemObject::getSuitableWindowHolderByGuid( GUID g )
|
||
|
|
{
|
||
|
|
wchar_t guidstr[ 256 ] = { 0 };
|
||
|
|
nsGUID::toCharW( g, guidstr );
|
||
|
|
scriptVar v = vcpu_onLookForComponent( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( guidstr ) );
|
||
|
|
|
||
|
|
if ( v.type == SCRIPT_OBJECT )
|
||
|
|
{
|
||
|
|
ScriptObject *ret = GET_SCRIPT_OBJECT( v );
|
||
|
|
if ( ret )
|
||
|
|
{
|
||
|
|
WindowHolder *co = static_cast<WindowHolder *>( ret->vcpu_getInterface( windowHolderGuid ) );
|
||
|
|
return co;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::onGetCancelComponent( GUID g, int i )
|
||
|
|
{
|
||
|
|
wchar_t guidstr[ 256 ] = { 0 };
|
||
|
|
nsGUID::toCharW( g, guidstr );
|
||
|
|
scriptVar v = vcpu_onGetCancelComponent( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( guidstr ), MAKE_SCRIPT_BOOLEAN( i ) );
|
||
|
|
|
||
|
|
if ( v.type != SCRIPT_VOID )
|
||
|
|
return GET_SCRIPT_INT( v );
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onViewPortChanged( int width, int height )
|
||
|
|
{
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0; i-- )
|
||
|
|
vcpu_onViewPortChanged( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_INT( width ), MAKE_SCRIPT_INT( height ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::onShowNotification()
|
||
|
|
{
|
||
|
|
WASABI_API_MAKI->vcpu_resetComplete();
|
||
|
|
#if defined(WASABI_COMPILE_MEDIACORE) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0 && !WASABI_API_MAKI->vcpu_getComplete(); i-- )
|
||
|
|
{
|
||
|
|
scriptVar v = vcpu_onShowNotification( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject() );
|
||
|
|
if ( v.type != SCRIPT_VOID )
|
||
|
|
return GET_SCRIPT_INT( v );
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onCreateLayout( Layout *l )
|
||
|
|
{
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0; i-- )
|
||
|
|
vcpu_onCreateLayout( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_OBJECT( l->getGuiObject()->guiobject_getScriptObject() ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onShowLayout( Layout *l )
|
||
|
|
{
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0; i-- )
|
||
|
|
vcpu_onShowLayout( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_OBJECT( l->getGuiObject()->guiobject_getScriptObject() ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onHideLayout( Layout *l )
|
||
|
|
{
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0; i-- )
|
||
|
|
vcpu_onHideLayout( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_OBJECT( l->getGuiObject()->guiobject_getScriptObject() ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::getCurAppRect( RECT *r )
|
||
|
|
{
|
||
|
|
ASSERT( r );
|
||
|
|
#ifdef WIN32
|
||
|
|
HWND w = GetForegroundWindow();
|
||
|
|
if ( !IsWindowVisible( w ) ) return 0;
|
||
|
|
GetWindowRect( w, r );
|
||
|
|
#else
|
||
|
|
DebugString( "portme SystemObject::getCurAppRect\n" );
|
||
|
|
#endif
|
||
|
|
return 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onQuit()
|
||
|
|
{
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0; i-- )
|
||
|
|
vcpu_onQuit( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject() );
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif // wndmgr
|
||
|
|
|
||
|
|
static bool FilterBrowserUrl( const wchar_t *url )
|
||
|
|
{
|
||
|
|
const wchar_t filterNowPlaying[] = L"http://client.winamp.com/nowplaying";
|
||
|
|
size_t urlLength, filterLength;
|
||
|
|
|
||
|
|
if ( NULL == url )
|
||
|
|
return false;
|
||
|
|
|
||
|
|
urlLength = wcslen( url );
|
||
|
|
filterLength = sizeof( filterNowPlaying ) / sizeof( filterNowPlaying[ 0 ] ) - 1;
|
||
|
|
if ( urlLength >= filterLength &&
|
||
|
|
0 == _wcsnicmp( url, filterNowPlaying, filterLength ) )
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::browsercb_onOpenURL( wchar_t *url, bool *override )
|
||
|
|
{
|
||
|
|
if ( !*override && false == FilterBrowserUrl( url ) ) // ignore if someone else already overrode
|
||
|
|
{
|
||
|
|
scriptVar v = vcpu_onOpenURL( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( url ) );
|
||
|
|
if ( v.type == SCRIPT_INT )
|
||
|
|
{
|
||
|
|
if ( v.data.idata == 1 )
|
||
|
|
*override = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onOpenURL( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar url )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, url );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, url );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onKeyDown( const wchar_t *s )
|
||
|
|
{
|
||
|
|
WASABI_API_MAKI->vcpu_resetComplete();
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0 && !WASABI_API_MAKI->vcpu_getComplete(); i-- )
|
||
|
|
vcpu_onKeyDown( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_STRING( s ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onKeyUp( const wchar_t *s )
|
||
|
|
{
|
||
|
|
WASABI_API_MAKI->vcpu_resetComplete();
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0 && !WASABI_API_MAKI->vcpu_getComplete(); i-- )
|
||
|
|
vcpu_onKeyUp( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_STRING( s ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::onAccelerator( const wchar_t *action, const wchar_t *section, const wchar_t *key )
|
||
|
|
{
|
||
|
|
int r = 0;
|
||
|
|
WASABI_API_MAKI->vcpu_resetComplete();
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0 && !WASABI_API_MAKI->vcpu_getComplete(); i-- )
|
||
|
|
{
|
||
|
|
scriptVar v = vcpu_onAccelerator( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_STRING( action ), MAKE_SCRIPT_STRING( section ), MAKE_SCRIPT_STRING( key ) );
|
||
|
|
if ( SOM::isNumeric( &v ) )
|
||
|
|
r |= GET_SCRIPT_INT( v );
|
||
|
|
}
|
||
|
|
return r;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::onDownloadFinished( const wchar_t *url, boolean success, const wchar_t *filename )
|
||
|
|
{
|
||
|
|
for ( int i = SOM::getNumSystemObjects() - 1; i >= 0; i-- )
|
||
|
|
vcpu_onDownloadFinished( SCRIPT_CALL, SOM::getSystemObject( i )->getScriptObject(), MAKE_SCRIPT_STRING( url ), MAKE_SCRIPT_BOOLEAN( success ), MAKE_SCRIPT_STRING( filename ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
TList < int > *SystemObject::getTypesList()
|
||
|
|
{
|
||
|
|
return &typeslist;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::setIsOldFormat( int is )
|
||
|
|
{
|
||
|
|
isoldformat = is;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::isOldFormat()
|
||
|
|
{
|
||
|
|
return isoldformat;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_WND
|
||
|
|
int SystemObject::isAppActive()
|
||
|
|
{
|
||
|
|
#ifdef WIN32
|
||
|
|
HWND w = GetForegroundWindow();
|
||
|
|
wchar_t classname[ 256 ] = L"";
|
||
|
|
GetClassNameW( w, classname, 256 );
|
||
|
|
return ( w == WASABI_API_WND->main_getRootWnd()->gethWnd() || !wcscmp( classname, BASEWNDCLASSNAME ) );
|
||
|
|
#else
|
||
|
|
DebugString( "portme SystemObject::isAppActive\n" );
|
||
|
|
return 1;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
void SystemObject::setSkinPartId( int _skinpartid )
|
||
|
|
{
|
||
|
|
skinpartid = _skinpartid;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::getSkinPartId()
|
||
|
|
{
|
||
|
|
return skinpartid;
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::addInstantiatedObject( ScriptObject *obj )
|
||
|
|
{
|
||
|
|
ASSERT( !instantiated.haveItem( obj ) );
|
||
|
|
instantiated.addItem( obj );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::removeInstantiatedObject( ScriptObject *obj )
|
||
|
|
{
|
||
|
|
int n = instantiated.searchItem( obj );
|
||
|
|
if ( n < 0 ) return; //ASSERT(n >= 0);
|
||
|
|
instantiated.removeByPos( n );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::garbageCollect()
|
||
|
|
{
|
||
|
|
foreach( instantiated )
|
||
|
|
ObjectTable::destroy( instantiated.getfor() );
|
||
|
|
endfor
|
||
|
|
instantiated.removeAll();
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::isObjectValid( ScriptObject *o )
|
||
|
|
{
|
||
|
|
static ScriptObject *cached = NULL;
|
||
|
|
static int cachedn = -1;
|
||
|
|
if ( o == cached && scriptobjects.enumItem( cachedn ) == o ) return 1;
|
||
|
|
int is = scriptobjects.searchItem( o );
|
||
|
|
if ( is >= 0 )
|
||
|
|
{
|
||
|
|
cached = o;
|
||
|
|
cachedn = is;
|
||
|
|
}
|
||
|
|
return ( is > -1 );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::addScriptObject( ScriptObject *o )
|
||
|
|
{
|
||
|
|
ASSERT( !scriptobjects.haveItem( o ) );
|
||
|
|
scriptobjects.addItem( o );
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::removeScriptObject( ScriptObject *o )
|
||
|
|
{
|
||
|
|
int pos = scriptobjects.searchItem( o );
|
||
|
|
if ( pos < 0 ) return;
|
||
|
|
scriptobjects.removeByPos( pos );
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_SKIN
|
||
|
|
void SystemObject::onSetXuiParam( const wchar_t *param, const wchar_t *value )
|
||
|
|
{
|
||
|
|
vcpu_onSetXuiParam( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( param ), MAKE_SCRIPT_STRING( value ) );
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
void SystemObject::navigateUrl( const wchar_t *url )
|
||
|
|
{
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
if ( MainMiniBrowser::getScriptObject() )
|
||
|
|
{
|
||
|
|
MainMiniBrowser::navigateUrl( url );
|
||
|
|
MainMiniBrowser::popMb();
|
||
|
|
}
|
||
|
|
else // no minibrowser container -> launch IE
|
||
|
|
{
|
||
|
|
Std::shellExec( url );
|
||
|
|
}
|
||
|
|
#else
|
||
|
|
Wasabi::Std::shellExec( url );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void SystemObject::navigateUrlBrowser( const wchar_t *url )
|
||
|
|
{
|
||
|
|
wa2.openUrl( url );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getVersion( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
return MAKE_SCRIPT_DOUBLE( MAKI_RUNTIME_VERSION );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onScriptLoaded( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SystemObject *so = static_cast<SystemObject *>( o->vcpu_getInterface( systemObjectGuid ) );
|
||
|
|
ASSERT( so != NULL );
|
||
|
|
return WASABI_API_MAKI->maki_triggerEvent( o, DLF_ID, 0, so->scriptVCPUId );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onScriptUnloading( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SystemObject *so = static_cast<SystemObject *>( o->vcpu_getInterface( systemObjectGuid ) );
|
||
|
|
ASSERT( so != NULL );
|
||
|
|
return WASABI_API_MAKI->maki_triggerEvent( o, DLF_ID, 0, so->scriptVCPUId );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onQuit( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT0( o );
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_SKIN
|
||
|
|
scriptVar SystemObject::vcpu_onSetXuiParam( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar param, scriptVar value )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS2( o, systemController, param, value );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT2( o, param, value );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getSkinName( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_STRING( WASABI_API_SKIN->getSkinName() );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_switchSkin( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar skinname )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef SWITCH_SKIN
|
||
|
|
SWITCH_SKIN( GET_SCRIPT_STRING( skinname ) );
|
||
|
|
#else
|
||
|
|
WASABI_API_SKIN->skin_switchSkin( GET_SCRIPT_STRING( skinname ) );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isLoadingSkin( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
int l = 0;
|
||
|
|
#ifdef IS_SKIN_STILL_LOADING
|
||
|
|
IS_SKIN_STILL_LOADING( l );
|
||
|
|
#endif
|
||
|
|
if ( !l ) return MAKE_SCRIPT_INT( Skin::isLoading() );
|
||
|
|
return MAKE_SCRIPT_INT( l );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_lockUI( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WASABI_API_SKIN->skin_setLockUI( 1 );
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_unlockUI( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WASABI_API_SKIN->skin_setLockUI( 0 );
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isObjectValid( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_BOOLEAN( SystemObject::isObjectValid( GET_SCRIPT_OBJECT( o ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getTimeOfDay( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
time_t ts = Wasabi::Std::getTimeStamp();
|
||
|
|
struct tm *tm_now;
|
||
|
|
tm_now = localtime( (const time_t *)&ts );
|
||
|
|
uint32_t tcnow = Wasabi::Std::getTickCount();
|
||
|
|
static uint32_t lasttc = 0;
|
||
|
|
|
||
|
|
int v = tm_now->tm_hour * 3600000 + tm_now->tm_min * 60000 + tm_now->tm_sec * 1000;
|
||
|
|
|
||
|
|
// yay milliseconds!
|
||
|
|
|
||
|
|
static int lastv = 0;
|
||
|
|
static int total = 0;
|
||
|
|
int tv = v;
|
||
|
|
if ( v == lastv )
|
||
|
|
{
|
||
|
|
total += tcnow - lasttc;
|
||
|
|
v += total;
|
||
|
|
}
|
||
|
|
else total = 0;
|
||
|
|
lasttc = tcnow;
|
||
|
|
lastv = tv;
|
||
|
|
|
||
|
|
return MAKE_SCRIPT_INT( v );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_navigateUrl( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar url )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SystemObject::navigateUrl( GET_SCRIPT_STRING( url ) );
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_navigateUrlBrowser( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar url )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SystemObject::navigateUrlBrowser( GET_SCRIPT_STRING( url ) );
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isKeyDown( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar vk_code )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( Std::keyDown( GET_SCRIPT_INT( vk_code ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setClipboard( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar text )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef _WIN32
|
||
|
|
const wchar_t *source = GET_SCRIPT_STRING( text );
|
||
|
|
DebugStringW( L"%s\n", source );
|
||
|
|
OpenClipboard( 0 );
|
||
|
|
EmptyClipboard();
|
||
|
|
int len = ( wcslen( source ) + 1 );
|
||
|
|
HGLOBAL clipbuffer = GlobalAlloc( GMEM_DDESHARE, sizeof( wchar_t ) * len );
|
||
|
|
wchar_t *buffer = (wchar_t *)GlobalLock( clipbuffer );
|
||
|
|
wcsncpy( buffer, source, len - 1 );
|
||
|
|
GlobalUnlock( clipbuffer );
|
||
|
|
SetClipboardData( CF_UNICODETEXT, clipbuffer );
|
||
|
|
CloseClipboard();
|
||
|
|
#else
|
||
|
|
DebugString( "portme SystemObject::vcpu_setClipboard\n" );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_chr( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar n )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSCPYN( staticStr, StringPrintfW( L"%c", GET_SCRIPT_INT( n ) ), 4096 );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onAccelerator( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar action, scriptVar section, scriptVar key )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS3( o, systemController, action, section, key );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT3( o, action, section, key );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_triggerAction( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar guiobj, scriptVar actionstr, scriptVar paramstr )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
ASSERT( actionstr.type == SCRIPT_STRING );
|
||
|
|
ASSERT( paramstr.type == SCRIPT_STRING );
|
||
|
|
const wchar_t *astr = GET_SCRIPT_STRING( actionstr );
|
||
|
|
const wchar_t *pstr = GET_SCRIPT_STRING( paramstr );
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
ScriptObject *context = guiobj.data.odata;
|
||
|
|
if ( context != NULL )
|
||
|
|
{
|
||
|
|
GuiObject *go = static_cast<GuiObject *>( context->vcpu_getInterface( guiObjectGuid ) );
|
||
|
|
if ( go != NULL )
|
||
|
|
{
|
||
|
|
ifc_window *wc = go->guiobject_getRootWnd();
|
||
|
|
if ( wc != NULL )
|
||
|
|
{
|
||
|
|
ifc_window *lr = wc->getDesktopParent();
|
||
|
|
if ( lr != NULL )
|
||
|
|
{
|
||
|
|
Layout *lay = static_cast<Layout *>( lr->getInterface( layoutGuid ) );
|
||
|
|
if ( lay != NULL )
|
||
|
|
{
|
||
|
|
int ia = WASABI_API_SKIN->parse( astr, L"internal_action" );
|
||
|
|
if ( ia == ACTION_NONE )
|
||
|
|
{
|
||
|
|
ActionEnum ae( astr );
|
||
|
|
svc_action *act = ae.getFirst();
|
||
|
|
if ( act )
|
||
|
|
{
|
||
|
|
act->onAction( astr, pstr, 0, 0, NULL, 0, wc );
|
||
|
|
SvcEnum::release( act );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
lay->runAction( ia, pstr );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
ActionEnum ae( astr );
|
||
|
|
svc_action *act = ae.getFirst();
|
||
|
|
if ( act )
|
||
|
|
{
|
||
|
|
act->onAction( astr, pstr );
|
||
|
|
SvcEnum::release( act );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getParam( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SystemObject *o = static_cast<SystemObject *>( object->vcpu_getInterface( systemObjectGuid ) );
|
||
|
|
if ( o ) return MAKE_SCRIPT_STRING( o->getParam() );
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_SKIN
|
||
|
|
scriptVar SystemObject::vcpu_getScriptGroup( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SystemObject *o = static_cast<SystemObject *>( object->vcpu_getInterface( systemObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Group *g = o->getParentGroup();
|
||
|
|
return MAKE_SCRIPT_OBJECT( g ? g->getScriptObject() : NULL );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_OBJECT( NULL );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_newGroup( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar groupname )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
GuiObject *g = SkinParser::newDynamicGroup( GET_SCRIPT_STRING( groupname ), GROUP_GROUP );
|
||
|
|
if ( g != NULL )
|
||
|
|
{
|
||
|
|
SystemObject *so = static_cast<SystemObject *>( object->vcpu_getInterface( systemObjectGuid ) );
|
||
|
|
so->addInstantiatedObject( g->guiobject_getScriptObject() );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_OBJECT( g ? g->guiobject_getScriptObject() : NULL );
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMousePosX( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt;
|
||
|
|
Wasabi::Std::getMousePos( &pt );
|
||
|
|
return MAKE_SCRIPT_INT( pt.x );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMousePosY( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt;
|
||
|
|
Wasabi::Std::getMousePos( &pt );
|
||
|
|
return MAKE_SCRIPT_INT( pt.y );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_minimizeApplication( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef _WIN32
|
||
|
|
ShowWindow( WASABI_API_WND->main_getRootWnd()->gethWnd(), SW_MINIMIZE );
|
||
|
|
#else
|
||
|
|
#warning port me
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_activateApplication( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef _WIN32
|
||
|
|
SetForegroundWindow( WASABI_API_WND->main_getRootWnd()->gethWnd() );
|
||
|
|
#else
|
||
|
|
#warning port me
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_restoreApplication( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef _WIN32
|
||
|
|
ShowWindow( WASABI_API_WND->main_getRootWnd()->gethWnd(), SW_RESTORE );
|
||
|
|
#else
|
||
|
|
#warning port me
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isDesktopAlphaAvailable( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
extern _bool cfg_uioptions_desktopalpha;
|
||
|
|
return MAKE_SCRIPT_INT( Wasabi::Std::Wnd::isDesktopAlphaAvailable() && cfg_uioptions_desktopalpha.getValueAsInt() );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_INT( Wasabi::Std::Wnd::isDesktopAlphaAvailable() );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isTransparencyAvailable( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( Wasabi::Std::Wnd::isTransparencyAvailable() );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isMinimized( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef _WIN32
|
||
|
|
return MAKE_SCRIPT_INT( IsIconic( WASABI_API_WND->main_getRootWnd()->gethWnd() ) );
|
||
|
|
#else
|
||
|
|
#warning port me
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
// extern String System.translate(String str);
|
||
|
|
scriptVar SystemObject::vcpu_translate( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSCPYN( translateStr, _( GET_SCRIPT_STRING( str ) ), ( sizeof( translateStr ) / sizeof( *translateStr ) ) );
|
||
|
|
return MAKE_SCRIPT_STRING( translateStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
// extern String System.getString(String table, Int id);
|
||
|
|
scriptVar SystemObject::vcpu_getString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar table, scriptVar id )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *xlat = LocalesManager::GetString( GET_SCRIPT_STRING( table ), GET_SCRIPT_INT( id ) );
|
||
|
|
if ( xlat )
|
||
|
|
return MAKE_SCRIPT_STRING( xlat );
|
||
|
|
else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
}
|
||
|
|
|
||
|
|
// extern String System.getString(String table, Int id);
|
||
|
|
scriptVar SystemObject::vcpu_getLanguageId( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *langId = WASABI_API_LNG->GetLanguageIdentifier( LANG_IDENT_STR );
|
||
|
|
if ( langId )
|
||
|
|
return MAKE_SCRIPT_STRING( langId );
|
||
|
|
else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_integerToString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%d", GET_SCRIPT_INT( i ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_stringToInteger( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar s )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( WTOI( GET_SCRIPT_STRING( s ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_floatToString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar f, scriptVar digits )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
// to whoever made this use StringPrintf, you left out the digits param, GRRRRRR!!
|
||
|
|
double v = GET_SCRIPT_DOUBLE( f );
|
||
|
|
StringPrintfW tmp( v );
|
||
|
|
WCSCPYN( staticStr, tmp, ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
wchar_t *p = wcschr( staticStr, '.' );
|
||
|
|
if ( p )
|
||
|
|
{
|
||
|
|
int numdigits = GET_SCRIPT_INT( digits );
|
||
|
|
if ( numdigits > 0 )
|
||
|
|
{
|
||
|
|
int n = numdigits;
|
||
|
|
int curnumdigits = staticStr + wcslen( staticStr ) - ( p + 1 );
|
||
|
|
n -= curnumdigits;
|
||
|
|
if ( n > 0 )
|
||
|
|
{
|
||
|
|
for ( int i = 0; i < n && i < ( sizeof( staticStr ) / sizeof( *staticStr ) ) - 128; i++ )
|
||
|
|
wcscat( staticStr, L"0" );
|
||
|
|
}
|
||
|
|
else if ( n < 0 )
|
||
|
|
{
|
||
|
|
*( p + 1 + numdigits ) = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
*p = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
int n = GET_SCRIPT_INT( digits );
|
||
|
|
if ( n > 0 )
|
||
|
|
{
|
||
|
|
wcscat( staticStr, L"." );
|
||
|
|
for ( int i = 0; i < n && i < ( sizeof( staticStr ) / sizeof( *staticStr ) ) - 128; i++ )
|
||
|
|
wcscat( staticStr, L"0" );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_stringToFloat( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar s )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_FLOAT( (float)WTOF( GET_SCRIPT_STRING( s ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_integerToTime( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
int i = GET_SCRIPT_INT( _i );
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%d:%02d", i / 60000, i % 60000 / 1000 );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_integerToLongTime( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
int i = GET_SCRIPT_INT( _i );
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%d:%02d:%02d", i / 3600000, ( i % 3600000 ) / 60000, i % 60000 / 1000 );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_dateToTime( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%d:%02d", t->tm_hour, t->tm_min );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_dateToLongTime( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%d:%02d:%02d", t->tm_hour, t->tm_min, t->tm_sec );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_formatDate( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
wcsftime( staticStr, 4096, L"%c", t );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_formatLongDate( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
wcsftime( staticStr, 4096, L"%#c", t );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateYear( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_year );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateMonth( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_mon );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateDay( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_mday );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateDow( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_wday );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateDoy( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_yday );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateHour( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_hour );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateMin( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_min );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateSec( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_sec );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDateDst( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
//CUT: int i = GET_SCRIPT_INT(_i);
|
||
|
|
time_t tt = GET_SCRIPT_INT( _i );
|
||
|
|
struct tm *t = localtime( &tt );
|
||
|
|
return MAKE_SCRIPT_INT( t->tm_isdst );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDate( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
time_t t;
|
||
|
|
time( &t );
|
||
|
|
return MAKE_SCRIPT_INT( (int)t );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strmid( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar str, scriptVar start, scriptVar len )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SOM::mid( staticStr, GET_SCRIPT_STRING( str ), MIN( GET_SCRIPT_INT( start ), 4096 ), MIN( GET_SCRIPT_INT( len ), 4096 ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strleft( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar str, scriptVar len )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SOM::mid( staticStr, GET_SCRIPT_STRING( str ), 0, MIN( GET_SCRIPT_INT( len ), 4096 ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strright( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str, scriptVar _len )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *str = GET_SCRIPT_STRING( _str );
|
||
|
|
int len = GET_SCRIPT_INT( _len );
|
||
|
|
SOM::mid( staticStr, str, MIN( (int)( wcslen( str ) - len ), 4096 ), MIN( len, 4096 ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strsearch( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str, scriptVar substr )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *str = GET_SCRIPT_STRING( _str );
|
||
|
|
const wchar_t *p = wcsstr( str, GET_SCRIPT_STRING( substr ) );
|
||
|
|
return MAKE_SCRIPT_INT( p ? p - str : -1 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strlen( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( wcslen( GET_SCRIPT_STRING( str ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strupper( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSCPYN( staticStr, GET_SCRIPT_STRING( _str ), ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
WCSTOUPPER( staticStr );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_strlower( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSCPYN( staticStr, GET_SCRIPT_STRING( _str ), ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
WCSTOLOWER( staticStr );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_urlencode( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
StringW str( GET_SCRIPT_STRING( _str ) );
|
||
|
|
str = AutoWide( AutoUrl( str ) );
|
||
|
|
*staticStr = 0;
|
||
|
|
if ( !str.isempty() ) WCSCPYN( staticStr, str, ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_urldecode( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
StringW str( GET_SCRIPT_STRING( _str ) );
|
||
|
|
Url::decode( str ); // Martin> I know there might be something nicer than this, but this does at least work
|
||
|
|
*staticStr = 0;
|
||
|
|
if ( !str.isempty() ) WCSCPYN( staticStr, str, ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_removepath( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PathParserW pp( GET_SCRIPT_STRING( _str ) );
|
||
|
|
// ASSERT(pp.getNumStrings() >= 1); // shouldn't happen ever
|
||
|
|
wchar_t *lastString = pp.getLastString();
|
||
|
|
if ( lastString )
|
||
|
|
{
|
||
|
|
WCSCPYN( staticStr, lastString, ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
staticStr[ 0 ] = 0;
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getpath( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSCPYN( staticStr, GET_SCRIPT_STRING( _str ), ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
#ifdef _WIN32
|
||
|
|
PathRemoveFileSpecW( staticStr );
|
||
|
|
PathRemoveBackslashW( staticStr );
|
||
|
|
#else
|
||
|
|
#warning port me
|
||
|
|
#endif
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getextension( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *pt = Wasabi::Std::extension( GET_SCRIPT_STRING( _str ) );
|
||
|
|
if ( pt != NULL ) WCSCPYN( staticStr, pt, ( sizeof( staticStr ) / sizeof( *staticStr ) ) );
|
||
|
|
else *staticStr = '\0';
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_gettoken( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar tok, scriptVar sep, scriptVar num )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wchar_t *p = const_cast<wchar_t *>( GET_SCRIPT_STRING( tok ) );
|
||
|
|
wchar_t *d = const_cast<wchar_t *>( GET_SCRIPT_STRING( sep ) );
|
||
|
|
int i = GET_SCRIPT_INT( num );
|
||
|
|
if ( !d ) return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
if ( !p ) return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
wchar_t c = *d;
|
||
|
|
d = staticStr;
|
||
|
|
int n = 0, ct = 0;
|
||
|
|
while ( p && *p && ct < 4096 )
|
||
|
|
{
|
||
|
|
if ( *p == c )
|
||
|
|
{
|
||
|
|
n++; p++; continue;
|
||
|
|
}
|
||
|
|
if ( n > i ) break;
|
||
|
|
if ( n == i )
|
||
|
|
*d++ = *p;
|
||
|
|
p++;
|
||
|
|
ct++;
|
||
|
|
}
|
||
|
|
*d = 0;
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_sin( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::sin( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_cos( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::cos( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_tan( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::tan( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_asin( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::asin( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_acos( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::acos( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_atan( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::atan( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_atan2( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar y, scriptVar x )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::atan2( GET_SCRIPT_DOUBLE( y ), GET_SCRIPT_DOUBLE( x ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_pow( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::pow( GET_SCRIPT_DOUBLE( x ), GET_SCRIPT_DOUBLE( y ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_sqr( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
double d = GET_SCRIPT_DOUBLE( _d );
|
||
|
|
return MAKE_SCRIPT_DOUBLE( d * d );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_sqrt( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::sqrt( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_log10( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::log10( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_log( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar d )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_DOUBLE( ::log( GET_SCRIPT_DOUBLE( d ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_random( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar m )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
int m_ = GET_SCRIPT_INT( m );
|
||
|
|
return MAKE_SCRIPT_INT( m_ <= 0 ? 0 : ::rand() % m_ );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_integer( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
// precision will get lost automatically
|
||
|
|
int _v = GET_SCRIPT_INT( v );
|
||
|
|
return MAKE_SCRIPT_INT( _v );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_frac( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
double _v = GET_SCRIPT_DOUBLE( v ) - GET_SCRIPT_INT( v );
|
||
|
|
return MAKE_SCRIPT_DOUBLE( _v );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onViewPortChanged( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar width, scriptVar height )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS2( o, systemController, width, height );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT2( o, width, height );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportWidth( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportHeight( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportWidthGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle() );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportHeightGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle() );
|
||
|
|
|
||
|
|
// benski> this prevents the window from going "fullscreen" but adds a one-line space at the bottom
|
||
|
|
RECT full = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &full, o->guiobject_getRootWnd()->getOsWindowHandle(), true );
|
||
|
|
if (Wasabi::Std::rectEqual( &full, &r ) )
|
||
|
|
r.bottom--;
|
||
|
|
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorLeft( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorLeftFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorLeftGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle(), 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorTop( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorTopFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorTopGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle(), 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorWidth( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorHeight( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorWidthGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle(), 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorHeightGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle(), true );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportLeft( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportTop( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { 0 };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportLeftGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle() );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportTopGO( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
RECT r = { 0 };
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( obj, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
{
|
||
|
|
Wasabi::Std::getViewport( &r, o->guiobject_getRootWnd()->getOsWindowHandle() );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
POINT pt = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportWidthFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorHeightFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMonitorWidthFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt, 1 );
|
||
|
|
return MAKE_SCRIPT_INT( r.right - r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportHeightFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.bottom - r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportLeftFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.left );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getViewportTopFP( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar x, scriptVar y )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
POINT pt = { GET_SCRIPT_INT( x ),GET_SCRIPT_INT( y ) };
|
||
|
|
RECT r = { 0 };
|
||
|
|
Wasabi::Std::getViewport( &r, &pt );
|
||
|
|
return MAKE_SCRIPT_INT( r.top );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getTickCount( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT(Wasabi::Std::getTickCount() );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onKeyDown( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS1( o, systemController, v );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, v );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onKeyUp( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS1( o, systemController, v );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, v );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_debugString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar str, scriptVar severity )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
DebugStringW( L"%s", GET_SCRIPT_STRING( str ) );
|
||
|
|
WASABI_API_SYSCB->syscb_issueCallback( SysCallback::CONSOLE, ConsoleCallback::DEBUGMESSAGE, GET_SCRIPT_INT( severity ), reinterpret_cast<intptr_t>( GET_SCRIPT_STRING( str ) ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_messageBox( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar msg, scriptVar title, scriptVar flags, scriptVar nam )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_WNDMGR->messageBox( GET_SCRIPT_STRING( msg ), GET_SCRIPT_STRING( title ), GET_SCRIPT_INT( flags ), GET_SCRIPT_STRING( nam ), NULL ) );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_INT( MessageBox( NULL, GET_SCRIPT_STRING( msg ), GET_SCRIPT_STRING( title ), GET_SCRIPT_INT( flags ) ) );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getAtom( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar atomname )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_OBJECT( VCPU::getAtom( GET_SCRIPT_STRING( atomname ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setAtom( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar atomname, scriptVar obj )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
VCPU::setAtom( GET_SCRIPT_STRING( atomname ), GET_SCRIPT_OBJECT( obj ) );
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_MAKIDEBUG
|
||
|
|
scriptVar SystemObject::vcpu_invokeDebugger( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WASABI_API_MAKIDEBUG->debugger_createJITD( object->vcpu_getScriptId(), 1 );
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined (WASABI_COMPILE_WNDMGR) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onCreateLayout( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar l )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
PROCESS_HOOKS1( o, systemController, l );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, l );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onShowLayout( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar l )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
PROCESS_HOOKS1( o, systemController, l );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, l );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onHideLayout( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar l )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
PROCESS_HOOKS1( o, systemController, l );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, l );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getContainer( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar contname )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
Container *c = SkinParser::script_getContainer( GET_SCRIPT_STRING( contname ) );
|
||
|
|
return MAKE_SCRIPT_OBJECT( c ? c->getScriptObject() : NULL );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_newDynamicContainer( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar contname )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
Container *c = SkinParser::newDynamicContainer( GET_SCRIPT_STRING( contname ) );
|
||
|
|
return MAKE_SCRIPT_OBJECT( c ? c->getScriptObject() : NULL );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_newGroupAsLayout( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar groupname )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
Group *g = GroupMgr::instantiate( GET_SCRIPT_STRING( groupname ), GROUP_LAYOUTGROUP );
|
||
|
|
if ( g )
|
||
|
|
{
|
||
|
|
Layout *l = static_cast<Layout *>( g );
|
||
|
|
ifc_window *par = l->getCustomOwner();
|
||
|
|
if ( !par ) par = WASABI_API_WND->main_getRootWnd();
|
||
|
|
g->setAutoResizeAfterInit( 0 );
|
||
|
|
g->setStartHidden( 1 );
|
||
|
|
g->setParent( par );
|
||
|
|
|
||
|
|
#ifdef _WIN32
|
||
|
|
g->init( hInstance, par->gethWnd(), TRUE );
|
||
|
|
#else
|
||
|
|
#warning port me
|
||
|
|
g->init( 0, par->gethWnd(), TRUE );
|
||
|
|
#endif
|
||
|
|
SystemObject *so = SOM::getSystemObjectByScriptId( __vsd );
|
||
|
|
if ( so != NULL ) so->addInstantiatedObject( g->getScriptObject() );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_OBJECT( g ? g->getScriptObject() : NULL );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getNumContainers( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
return MAKE_SCRIPT_INT( SkinParser::getNumContainers() );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_enumContainer( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar n )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
Container *c = SkinParser::enumContainer( GET_SCRIPT_INT( n ) );
|
||
|
|
return MAKE_SCRIPT_OBJECT( c ? c->getScriptObject() : NULL );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onLookForComponent( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar guid )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
PROCESS_HOOKS1( o, systemController, guid );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, guid );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onGetCancelComponent( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar guid, scriptVar i )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
PROCESS_HOOKS2( o, systemController, guid, i );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT2( o, guid, i );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getCurAppLeft( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
RECT r = { 0 };
|
||
|
|
int s = getCurAppRect( &r );
|
||
|
|
return MAKE_SCRIPT_INT( s ? r.left : -1 );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getCurAppTop( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
RECT r = { 0 };
|
||
|
|
int s = getCurAppRect( &r );
|
||
|
|
return MAKE_SCRIPT_INT( s ? r.top : -1 );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getCurAppWidth( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
RECT r = { 0 };
|
||
|
|
int s = getCurAppRect( &r );
|
||
|
|
return MAKE_SCRIPT_INT( s ? r.right - r.left : -1 );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getCurAppHeight( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
RECT r = { 0 };
|
||
|
|
int s = getCurAppRect( &r );
|
||
|
|
return MAKE_SCRIPT_INT( s ? r.bottom - r.top : -1 );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isAppActive( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
return MAKE_SCRIPT_BOOLEAN( isAppActive() );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_showWindow( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar wndguidorgroup, scriptVar prefcontainer, scriptVar transient )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
const wchar_t *s = GET_SCRIPT_STRING( wndguidorgroup );
|
||
|
|
const wchar_t *p = GET_SCRIPT_STRING( prefcontainer );
|
||
|
|
int t = GET_SCRIPT_INT( transient );
|
||
|
|
if ( p != NULL && *p == 0 ) p = NULL;
|
||
|
|
GUID _g = nsGUID::fromCharW( s );
|
||
|
|
#ifdef ON_CREATE_EXTERNAL_WINDOW_GUID
|
||
|
|
if ( _g != INVALID_GUID )
|
||
|
|
{
|
||
|
|
int y = 0;
|
||
|
|
ON_CREATE_EXTERNAL_WINDOW_GUID( _g, y );
|
||
|
|
if ( y ) RETURN_SCRIPT_NULL;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
ifc_window *ret = NULL;
|
||
|
|
if ( _g != INVALID_GUID )
|
||
|
|
ret = WASABI_API_WNDMGR->skinwnd_createByGuid( _g, p, 0, NULL, t );
|
||
|
|
else
|
||
|
|
ret = WASABI_API_WNDMGR->skinwnd_createByGroupId( s, p, 0, NULL, t );
|
||
|
|
if ( ret )
|
||
|
|
{
|
||
|
|
if ( ret->getGuiObject() )
|
||
|
|
{
|
||
|
|
return MAKE_SCRIPT_OBJECT( ret->getGuiObject()->guiobject_getScriptObject() );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_hideWindow( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar hw )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
GuiObject *o = static_cast<GuiObject *>( GET_SCRIPT_OBJECT_AS( hw, guiObjectGuid ) );
|
||
|
|
if ( o )
|
||
|
|
WASABI_API_WNDMGR->skinwnd_destroy( o->guiobject_getRootWnd() );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_hideNamedWindow( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar guidorgroup )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_WNDMGR
|
||
|
|
const wchar_t *s = GET_SCRIPT_STRING( guidorgroup );
|
||
|
|
GUID _g = nsGUID::fromCharW( s );
|
||
|
|
ifc_window *w = NULL;
|
||
|
|
if ( _g != INVALID_GUID )
|
||
|
|
{
|
||
|
|
int n = WASABI_API_WNDMGR->skinwnd_getNumByGuid( _g ); // benski> CUT: int n = skinEmbedder->getNumItems(_g);
|
||
|
|
if ( n > 0 )
|
||
|
|
w = WASABI_API_WNDMGR->skinwnd_enumByGuid( _g, n - 1 ); // benski> CUT: w = skinEmbedder->enumItem(_g, n-1);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
int n = WASABI_API_WNDMGR->skinwnd_getNumByGroupId( s ); // benski> CUT: int n = skinEmbedder->getNumItems(s);
|
||
|
|
if ( n > 0 )
|
||
|
|
w = WASABI_API_WNDMGR->skinwnd_enumByGroupId( s, n - 1 ); // benski> CUT: w = skinEmbedder->enumItem(s, n-1);
|
||
|
|
}
|
||
|
|
if ( w )
|
||
|
|
{
|
||
|
|
GuiObject *o = w->getGuiObject();
|
||
|
|
if ( o )
|
||
|
|
WASABI_API_WNDMGR->skinwnd_destroy( o->guiobject_getRootWnd() );
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isNamedWindowVisible( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar guidorgroup )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *s = GET_SCRIPT_STRING( guidorgroup );
|
||
|
|
GUID _g = nsGUID::fromCharW( s );
|
||
|
|
ifc_window *w = NULL;
|
||
|
|
if ( _g != INVALID_GUID )
|
||
|
|
{
|
||
|
|
int n = WASABI_API_WNDMGR->skinwnd_getNumByGuid( _g ); // benski> CUT: int n = skinEmbedder->getNumItems(_g);
|
||
|
|
if ( n > 0 )
|
||
|
|
w = WASABI_API_WNDMGR->skinwnd_enumByGuid( _g, n - 1 ); // benski> CUT: w = skinEmbedder->enumItem(_g, n-1);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
int n = WASABI_API_WNDMGR->skinwnd_getNumByGroupId( s ); // benski> CUT: int n = skinEmbedder->getNumItems(s);
|
||
|
|
if ( n > 0 )
|
||
|
|
w = WASABI_API_WNDMGR->skinwnd_enumByGroupId( s, n - 1 ); // benski> CUT: w = skinEmbedder->enumItem(s, n-1);
|
||
|
|
}
|
||
|
|
if ( w )
|
||
|
|
{
|
||
|
|
return MAKE_SCRIPT_BOOLEAN( w->isVisible() );
|
||
|
|
}
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif // if defined (WASABI_COMPILE_WNDMGR) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
#if defined(WASABI_COMPILE_MEDIACORE) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getStatus( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getStatus( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getSongInfoText( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
|
||
|
|
#ifdef GET_SONG_INFO_TEXT
|
||
|
|
const wchar_t *c;
|
||
|
|
GET_SONG_INFO_TEXT( c );
|
||
|
|
WCSCPYN( staticStr, c, 4096 );
|
||
|
|
#else
|
||
|
|
*staticStr = 0;
|
||
|
|
#pragma CHAT("lone", "bas", "need to get the song info text, the same as would be in a text field with SONGINFO")
|
||
|
|
#endif
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getSongInfoTextTranslated( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
|
||
|
|
#ifdef GET_SONG_INFO_TEXT_TRANSLATED
|
||
|
|
const wchar_t *c;
|
||
|
|
GET_SONG_INFO_TEXT_TRANSLATED( c );
|
||
|
|
WCSCPYN( staticStr, c, 4096 );
|
||
|
|
#else
|
||
|
|
*staticStr = 0;
|
||
|
|
#endif
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef GEN_FF
|
||
|
|
#include "../../../../Plugins/General/gen_ff/wa2frontend.h"
|
||
|
|
#endif
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_hasVideoSupport( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
return MAKE_SCRIPT_INT( wa2.hasVideoSupport() );
|
||
|
|
#else
|
||
|
|
#pragma CHAT("lone", "bas", "how can we ask if the currently playing file is video thru the core objects ?")
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isVideo( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
return MAKE_SCRIPT_INT( wa2.isPlayingVideo() );
|
||
|
|
#else
|
||
|
|
#pragma CHAT("lone", "bas", "how can we ask if the currently playing file is video thru the core objects ?")
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isVideoFullscreen( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
return MAKE_SCRIPT_INT( wa2.isPlayingVideoFullscreen() );
|
||
|
|
#else
|
||
|
|
#pragma CHAT("lone", "bas", "how can we ask if we are running fullscreen (either vis or video) ?")
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setVideoFullscreen( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
const bool vidfs = GET_SCRIPT_BOOLEAN( v );
|
||
|
|
if ( vidfs )
|
||
|
|
{
|
||
|
|
wa2.sendVidCmd( Winamp2FrontEnd::WA2_VIDCMD_FULLSCREEN );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
wa2.sendVidCmd( Winamp2FrontEnd::WA2_VIDCMD_EXIT_FS );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPlaylistIndex( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
return MAKE_SCRIPT_INT( wa2.getCurPlaylistEntry() );
|
||
|
|
#else
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( CoreHandle().getCurPlaybackNumber() );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPlaylistLength( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
return MAKE_SCRIPT_INT( wa2.getPlaylistLength() );
|
||
|
|
#else
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
//BU CoreHandle is your friend
|
||
|
|
return MAKE_SCRIPT_INT( CoreHandle().getNumTracks() );
|
||
|
|
#else
|
||
|
|
//FG not always, heh
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getIdealVideoHeight( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
int h = -1;
|
||
|
|
wa2.getIdealVideoSize( NULL, &h );
|
||
|
|
return MAKE_SCRIPT_INT( h );
|
||
|
|
#else
|
||
|
|
#pragma CHAT("lone", "bas", "how can we ask for the ideal video size thru the core objects ?")
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getIdealVideoWidth( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef GEN_FF
|
||
|
|
int w = -1;
|
||
|
|
wa2.getIdealVideoSize( &w, NULL );
|
||
|
|
return MAKE_SCRIPT_INT( w );
|
||
|
|
#else
|
||
|
|
#pragma CHAT("lone", "bas", "how can we ask for the ideal video size thru the core objects ?")
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onStop( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT0( o );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onShowNotification( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT0( o );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onPlay( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT0( o );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onPause( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT0( o );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onResume( SCRIPT_FUNCTION_PARAMS, ScriptObject *o )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS0( o, systemController );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT0( o );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onTitleChange( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar title )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, title );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, title );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onTitle2Change( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar title )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, title );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, title );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onUrlChange( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar title )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, title );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, title );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onInfoChange( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar info )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, info );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, info );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onStatusMsg( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar info )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, info );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, info );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onEqBandChanged( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar band, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS2( o, systemController, band, val );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT2( o, band, val );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onEqFreqChanged( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, val );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, val );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onEqPreAmpChanged( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, val );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, val );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onEqChanged( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, val );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, val );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onVolumeChanged( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, val );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, val );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onSeeked( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
PROCESS_HOOKS1( o, systemController, val );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT1( o, val );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPlayItemString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
const wchar_t *cur = WASABI_API_MEDIACORE->core_getCurrent( 0 );
|
||
|
|
if ( cur == NULL ) cur = L"";
|
||
|
|
return MAKE_SCRIPT_STRING( cur );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPlayItemLength( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getLength( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPlayItemDisplayTitle( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
WCSCPYN( staticStr, WASABI_API_MEDIACORE->core_getTitle( 0 ), 4096 );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPlayItemMetadataString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar name )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#if defined(WASABI_COMPILE_MEDIACORE) & defined(WASABI_COMPILE_METADB)
|
||
|
|
const char *cur = WASABI_API_MEDIACORE->core_getCurrent( 0 );
|
||
|
|
if ( cur == NULL ) return MAKE_SCRIPT_STRING( "" );
|
||
|
|
if ( cur && WASABI_API_METADB->metadb_getMetaData( cur, GET_SCRIPT_STRING( name ), staticStr, ( sizeof( staticStr ) / sizeof( *staticStr ) ) ) <= 0 ) return MAKE_SCRIPT_STRING( "" );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#elif defined(WASABI_CUSTOM_MINIDB)
|
||
|
|
WASABI_CUSTOM_MINIDB( GET_SCRIPT_STRING( name ), staticStr, 4096 ); staticStr[ 4095 ] = 0;
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#elif defined(WASABI_COMPILE_MEDIACORE)
|
||
|
|
STRNCPY( staticStr, WASABI_API_MEDIACORE->core_getCurrent( 0 ), 4095 ); staticStr[ 4095 ] = 0;
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMetadataString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar filename, scriptVar name )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wa2.getMetaData( GET_SCRIPT_STRING( filename ), GET_SCRIPT_STRING( name ), staticStr, 4096 );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getExtFamily( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar ext )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
const wchar_t *ps = GET_SCRIPT_STRING( ext );
|
||
|
|
staticStr[ 0 ] = '\0';
|
||
|
|
if ( ps != NULL )
|
||
|
|
{
|
||
|
|
const wchar_t *f = WASABI_API_MEDIACORE->core_getExtensionFamily( ps );
|
||
|
|
if ( f == NULL ) f = L"";
|
||
|
|
WCSCPYN( staticStr, f, 4096 );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDecoderName( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar ext )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
const wchar_t *ps = GET_SCRIPT_STRING( ext );
|
||
|
|
staticStr[ 0 ] = '\0';
|
||
|
|
if ( ps != NULL )
|
||
|
|
{
|
||
|
|
const wchar_t *f = WASABI_API_MEDIACORE->core_getDecoderName( ps );
|
||
|
|
if ( f == NULL ) f = L"";
|
||
|
|
WCSCPYN( staticStr, f, 4096 );
|
||
|
|
}
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_playFile( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar file )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
#ifdef GEN_FF
|
||
|
|
StringW _file = GET_SCRIPT_STRING( file );
|
||
|
|
const wchar_t *f = _file.getValue();
|
||
|
|
if ( f && *f )
|
||
|
|
{
|
||
|
|
if ( wcsstr( _file, L"://" ) )
|
||
|
|
{
|
||
|
|
wa2.playFile( _file );
|
||
|
|
}
|
||
|
|
else if ( f[ 1 ] != ':' && f[ 0 ] != '\\' && f[ 0 ] != '/' )
|
||
|
|
{
|
||
|
|
PathParserW pp( f );
|
||
|
|
if ( WCSCASEEQLSAFE( pp.enumString( 0 ), L"skins" )
|
||
|
|
&& WCSCASEEQLSAFE( pp.enumString( 1 ), WASABI_API_SKIN->getSkinName() ) )
|
||
|
|
{
|
||
|
|
_file = L"";
|
||
|
|
for ( int i = 0; i < pp.getNumStrings() - 2; i++ )
|
||
|
|
{
|
||
|
|
if ( i > 0 ) _file += L"\\";
|
||
|
|
_file += pp.enumString( i + 2 );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
_file = StringPathCombine( WASABI_API_SKIN->getSkinPath(), _file );
|
||
|
|
if ( !WACCESS( _file, 0 ) ) // avoid clearing playlist if file not found
|
||
|
|
wa2.playFile( _file );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#else
|
||
|
|
svc_player *sp = SvcEnumByGuid<svc_player>();
|
||
|
|
if ( sp ) sp->openFile( GET_SCRIPT_STRING( file ) );
|
||
|
|
WASABI_API_SVC->service_release( sp );
|
||
|
|
#endif
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_enqueueFile( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar file )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
#ifdef GEN_FF
|
||
|
|
StringW _file = GET_SCRIPT_STRING( file );
|
||
|
|
const wchar_t *f = _file.getValue();
|
||
|
|
if ( f && *f )
|
||
|
|
{
|
||
|
|
if ( wcsstr( _file, L"://" ) )
|
||
|
|
{
|
||
|
|
wa2.enqueueFile( _file );
|
||
|
|
}
|
||
|
|
else if ( f[ 1 ] != ':' && f[ 0 ] != '\\' && f[ 0 ] != '/' )
|
||
|
|
{
|
||
|
|
PathParserW pp( f );
|
||
|
|
if ( WCSCASEEQLSAFE( pp.enumString( 0 ), L"skins" )
|
||
|
|
&& WCSCASEEQLSAFE( pp.enumString( 1 ), WASABI_API_SKIN->getSkinName() ) )
|
||
|
|
{
|
||
|
|
_file = L"";
|
||
|
|
for ( int i = 0; i < pp.getNumStrings() - 2; i++ )
|
||
|
|
{
|
||
|
|
if ( i > 0 ) _file += L"\\";
|
||
|
|
_file += pp.enumString( i + 2 );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
_file = StringPathCombine( WASABI_API_SKIN->getSkinPath(), _file );
|
||
|
|
wa2.enqueueFile( _file );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#else
|
||
|
|
svc_player *sp = SvcEnumByGuid<svc_player>();
|
||
|
|
if ( sp ) sp->openFile( GET_SCRIPT_STRING( file ) );
|
||
|
|
WASABI_API_SVC->service_release( sp );
|
||
|
|
#endif
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_clearPlaylist( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wa2.clearPlaylist();
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getLeftVuMeter( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getLeftVuMeter( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getVisBand( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar chan, scriptVar band )
|
||
|
|
{
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
unsigned char visdata[ 576 * 2 * 2 ] = { 0 };
|
||
|
|
int ret = WASABI_API_MEDIACORE->core_getVisData( 0, &visdata, sizeof( visdata ) );
|
||
|
|
if ( !ret ) MEMSET( visdata, 0, sizeof( visdata ) );
|
||
|
|
int b = MIN( MAX( 0, GET_SCRIPT_INT( band ) ), 74 );
|
||
|
|
int a = MIN( MAX( 0, GET_SCRIPT_INT( chan ) ), 1 );
|
||
|
|
return MAKE_SCRIPT_INT( MIN( 255, visdata[ 576 * a + b ] * 16 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getRightVuMeter( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getRightVuMeter( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getVolume( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getVolume( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setVolume( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_setVolume( 0, GET_SCRIPT_INT( v ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_play( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_userButton( 0, UserButton::PLAY );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_stop( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_userButton( 0, UserButton::STOP );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_pause( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_userButton( 0, UserButton::PAUSE );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_next( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_userButton( 0, UserButton::NEXT );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_previous( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_userButton( 0, UserButton::PREV );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_eject( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
#ifdef GEN_FF
|
||
|
|
wa2.openFileDialog( WASABI_API_WND->main_getRootWnd()->gethWnd() );
|
||
|
|
#else
|
||
|
|
svc_player *sp = SvcEnumByGuid<svc_player>();
|
||
|
|
sp->openFiles();
|
||
|
|
WASABI_API_SVC->service_release( sp );
|
||
|
|
#endif
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_seekTo( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar to )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_setPosition( 0, GET_SCRIPT_INT( to ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setEqBand( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar band, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_setEqBand( 0, MAX( 0, MIN( 9, GET_SCRIPT_INT( band ) ) ), GET_SCRIPT_INT( val ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setEqPreAmp( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_setEqPreamp( 0, GET_SCRIPT_INT( v ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setEq( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_setEqStatus( 0, GET_SCRIPT_INT( v ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPosition( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getPosition( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getEqBand( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar band )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getEqBand( 0, MAX( 0, MIN( 9, GET_SCRIPT_INT( band ) ) ) ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getEqPreAmp( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getEqPreamp( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getEq( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getEqStatus( 0 ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif // #if defined(WASABI_COMPILE_MEDIACORE) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
#if defined(WASABI_COMPILE_COMPONENTS) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getWac( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar guid )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_COMPONENTS
|
||
|
|
WACObject *wo = SOM::getWACObject( GET_SCRIPT_STRING( guid ) );
|
||
|
|
return MAKE_SCRIPT_OBJECT( wo ? wo->getScriptObject() : NULL );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif // if defined(WASABI_COMPILE_COMPONENTS) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
#if defined(WASABI_COMPILE_CONFIG) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setPrivateString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar section, scriptVar item, scriptVar str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%s_%s", GET_SCRIPT_STRING( section ), GET_SCRIPT_STRING( item ) );
|
||
|
|
WASABI_API_CONFIG->setStringPrivate( staticStr, GET_SCRIPT_STRING( str ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setPrivateInt( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar section, scriptVar item, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
WCSNPRINTF( staticStr, 4096, L"%s_%s", GET_SCRIPT_STRING( section ), GET_SCRIPT_STRING( item ) );
|
||
|
|
WASABI_API_CONFIG->setIntPrivate( staticStr, GET_SCRIPT_INT( val ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPrivateString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar section, scriptVar item, scriptVar defstr )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
wchar_t t[ 4096 ] = { 0 };
|
||
|
|
StringCchPrintfW( t, 4096, L"%s_%s", GET_SCRIPT_STRING( section ), GET_SCRIPT_STRING( item ) );
|
||
|
|
WASABI_API_CONFIG->getStringPrivate( t, staticStr, 4095, GET_SCRIPT_STRING( defstr ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPrivateInt( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar section, scriptVar item, scriptVar defval )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
wchar_t t[ 4096 ] = { 0 };
|
||
|
|
StringCchPrintfW( t, 4096, L"%s_%s", GET_SCRIPT_STRING( section ), GET_SCRIPT_STRING( item ) );
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_CONFIG->getIntPrivate( t, GET_SCRIPT_INT( defval ) ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setPublicString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar item, scriptVar str )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
WASABI_API_CONFIG->setStringPrivate( GET_SCRIPT_STRING( item ), GET_SCRIPT_STRING( str ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setPublicInt( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar item, scriptVar val )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
WASABI_API_CONFIG->setIntPrivate( GET_SCRIPT_STRING( item ), GET_SCRIPT_INT( val ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPublicString( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar item, scriptVar defstr )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
WASABI_API_CONFIG->getStringPrivate( GET_SCRIPT_STRING( item ), staticStr, 4095, GET_SCRIPT_STRING( defstr ) );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
#else
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getPublicInt( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar item, scriptVar defval )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_CONFIG
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_CONFIG->getIntPrivate( GET_SCRIPT_STRING( item ), GET_SCRIPT_INT( defval ) ) );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif // #if defined(WASABI_COMPILE_CONFIG) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
#if defined (WA3COMPATIBILITY) || defined(WASABI_SCRIPT_SYSTEMOBJECT_WA3COMPATIBLE)
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_ddeSend( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar ddetarget, scriptVar cmd, scriptVar minInterval )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
DdeCom::sendCommand( GET_SCRIPT_STRING( ddetarget ), GET_SCRIPT_STRING( cmd ), GET_SCRIPT_INT( minInterval ) );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_popMb( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
MainMiniBrowser::popMb();
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getMainMB( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
return MAKE_SCRIPT_OBJECT( MainMiniBrowser::getScriptObject() );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_NULL;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setMenuTransparency( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar a )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
WASABI_API_CONFIG->setIntPublic( "Popup alpha", GET_SCRIPT_INT( a ) );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_windowMenu( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
Main::thingerContextMenu( NULL );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_systemMenu( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WA3COMPATIBILITY
|
||
|
|
Main::appContextMenu( NULL, FALSE, FALSE );
|
||
|
|
#endif
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_selectFile( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar extlist, scriptVar id, scriptVar prevfn )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
SelectFile sf( WASABI_API_WND->main_getRootWnd() );
|
||
|
|
sf.setIdent( GET_SCRIPT_STRING( id ) );
|
||
|
|
StringW ff = GET_SCRIPT_STRING( prevfn );
|
||
|
|
if ( !ff.isempty() )
|
||
|
|
{
|
||
|
|
wchar_t *p = const_cast<wchar_t *>(Wasabi::Std::filename( ff ) );
|
||
|
|
if ( p != NULL ) *p = 0;
|
||
|
|
sf.setDefaultDir( ff );
|
||
|
|
}
|
||
|
|
StringW exts = GET_SCRIPT_STRING( extlist );
|
||
|
|
if ( exts.isempty() )
|
||
|
|
exts = L"All files(*.*)|*.*||";
|
||
|
|
exts.changeChar( '|', '\0' );
|
||
|
|
int r = sf.runSelector( L"files", FALSE, exts );
|
||
|
|
StringW t;
|
||
|
|
if ( !r || sf.getNumFiles() < 1 )
|
||
|
|
{
|
||
|
|
t = GET_SCRIPT_STRING( prevfn );
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
t = sf.enumFilename( 0 );
|
||
|
|
}
|
||
|
|
WCSCPYN( staticStr, t, 4096 );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
const wchar_t *dldir;
|
||
|
|
|
||
|
|
BOOL CALLBACK browseEnumProc( HWND hwnd, LPARAM lParam )
|
||
|
|
{
|
||
|
|
wchar_t cl[ 32 ] = { 0 };
|
||
|
|
GetClassName( hwnd, cl, ARRAYSIZE( cl ) );
|
||
|
|
if ( !lstrcmpi( cl, WC_TREEVIEW ) )
|
||
|
|
{
|
||
|
|
PostMessage( hwnd, TVM_ENSUREVISIBLE, 0, (LPARAM)TreeView_GetSelection( hwnd ) );
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
static int CALLBACK BrowseCallbackProcX( HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData )
|
||
|
|
{
|
||
|
|
switch ( uMsg )
|
||
|
|
{
|
||
|
|
case BFFM_INITIALIZED:
|
||
|
|
{
|
||
|
|
const wchar_t *wnd_title = (wchar_t *)lpData;
|
||
|
|
//if(wnd_title) wnd_title = _(wnd_title);
|
||
|
|
if ( WCSICMP( _( wnd_title ), L"" ) ) SetWindowTextW( hwnd, _( wnd_title ) );
|
||
|
|
SendMessageW( hwnd, BFFM_SETSELECTIONW, 1, (LPARAM)dldir );
|
||
|
|
|
||
|
|
// this is not nice but it fixes the selection not working correctly on all OSes
|
||
|
|
EnumChildWindows( hwnd, browseEnumProc, 0 );
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
void Shell_Free( void *p )
|
||
|
|
{
|
||
|
|
IMalloc *m;
|
||
|
|
SHGetMalloc( &m );
|
||
|
|
m->Free( p );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_selectFolder( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar title, scriptVar info, scriptVar defPath )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
|
||
|
|
dldir = defPath.data.sdata;
|
||
|
|
|
||
|
|
BROWSEINFOW bi = { 0 };
|
||
|
|
bi.hwndOwner = WASABI_API_WND->main_getRootWnd()->gethWnd();
|
||
|
|
bi.lpszTitle = _( info.data.sdata ); // Info Text
|
||
|
|
bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_NEWDIALOGSTYLE;
|
||
|
|
bi.lpfn = BrowseCallbackProcX;
|
||
|
|
bi.lParam = (LPARAM)title.data.sdata; // Window Title
|
||
|
|
|
||
|
|
ITEMIDLIST *idlist = SHBrowseForFolderW( &bi );
|
||
|
|
if ( idlist )
|
||
|
|
{
|
||
|
|
SHGetPathFromIDListW( idlist, staticStr );
|
||
|
|
Shell_Free( idlist );
|
||
|
|
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
|
||
|
|
int SystemObject::corecb_onVolumeChange( int newvol )
|
||
|
|
{
|
||
|
|
vcpu_onVolumeChanged( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_INT( newvol ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onEQStatusChange( int newval )
|
||
|
|
{
|
||
|
|
vcpu_onEqChanged( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_INT( newval ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onEQPreampChange( int newval )
|
||
|
|
{
|
||
|
|
vcpu_onEqPreAmpChanged( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_INT( newval ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onEQBandChange( int band, int newval )
|
||
|
|
{
|
||
|
|
vcpu_onEqBandChanged( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_INT( band ), MAKE_SCRIPT_INT( newval ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onEQFreqChange( int newval )
|
||
|
|
{
|
||
|
|
vcpu_onEqFreqChanged( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_INT( newval ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onStarted()
|
||
|
|
{
|
||
|
|
vcpu_onPlay( SCRIPT_CALL, getScriptObject() );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onStopped()
|
||
|
|
{
|
||
|
|
vcpu_onStop( SCRIPT_CALL, getScriptObject() );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onPaused()
|
||
|
|
{
|
||
|
|
vcpu_onPause( SCRIPT_CALL, getScriptObject() );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onUnpaused()
|
||
|
|
{
|
||
|
|
vcpu_onResume( SCRIPT_CALL, getScriptObject() );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onSeeked( int newpos )
|
||
|
|
{
|
||
|
|
vcpu_onSeeked( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_INT( newpos ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onTitleChange( const wchar_t *title )
|
||
|
|
{
|
||
|
|
vcpu_onTitleChange( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( title ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onTitle2Change( const wchar_t *title )
|
||
|
|
{
|
||
|
|
vcpu_onTitle2Change( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( title ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onUrlChange( const wchar_t *url )
|
||
|
|
{
|
||
|
|
vcpu_onUrlChange( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( url ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onInfoChange( const wchar_t *info )
|
||
|
|
{
|
||
|
|
vcpu_onInfoChange( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( info ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
int SystemObject::corecb_onStatusMsg( const wchar_t *info )
|
||
|
|
{
|
||
|
|
vcpu_onStatusMsg( SCRIPT_CALL, getScriptObject(), MAKE_SCRIPT_STRING( info ) );
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getRating( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
return MAKE_SCRIPT_INT( WASABI_API_MEDIACORE->core_getRating() );
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_ZERO;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setRating( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar v )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
#ifdef WASABI_COMPILE_MEDIACORE
|
||
|
|
WASABI_API_MEDIACORE->core_setRating( GET_SCRIPT_INT( v ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
#else
|
||
|
|
RETURN_SCRIPT_VOID;
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getDownloadPath( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wa2.getDownloadPath( staticStr );
|
||
|
|
return MAKE_SCRIPT_STRING( staticStr );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_setDownloadPath( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar new_path )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wa2.setDownloadPath( new_path.data.sdata );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_downloadURL( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar url, scriptVar filename, scriptVar title )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wa2.DownloadFile( AutoChar( GET_SCRIPT_STRING( url ) ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_downloadMedia( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar url, scriptVar filepath, scriptVar storeInMl, scriptVar notifyDownloadsList )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
wa2.DownloadFile( AutoChar( GET_SCRIPT_STRING( url ) ), GET_SCRIPT_STRING( filepath ), GET_SCRIPT_BOOLEAN( storeInMl ), GET_SCRIPT_BOOLEAN( notifyDownloadsList ) );
|
||
|
|
return MAKE_SCRIPT_VOID();
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_onDownloadFinished( SCRIPT_FUNCTION_PARAMS, ScriptObject *o, scriptVar url, scriptVar success, scriptVar filename )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
PROCESS_HOOKS3( o, systemController, url, success, filename );
|
||
|
|
SCRIPT_FUNCTION_CHECKABORTEVENT_SYS( o );
|
||
|
|
SCRIPT_EXEC_EVENT3( o, url, success, filename );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getAlbumArt( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar filename )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( !!wa2.GetAlbumArt( GET_SCRIPT_STRING( filename ) ) );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_isWinampPro( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( !!wa2.IsWinampPro() );
|
||
|
|
}
|
||
|
|
|
||
|
|
static PtrList<StringW> embed_guids;
|
||
|
|
|
||
|
|
static int embed_guid_enumProc( embedWindowState *ws, struct embedEnumStruct *param )
|
||
|
|
{
|
||
|
|
if ( ws->flags & EMBED_FLAGS_GUID )
|
||
|
|
{
|
||
|
|
wchar_t guid[ 39 ] = { 0 };
|
||
|
|
nsGUID::toCharW( GET_EMBED_GUID( ws ), guid );
|
||
|
|
embed_guids.addItem( new StringW( guid ) );
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
scriptVar SystemObject::vcpu_enumEmbedGUID( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _index )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
int index = GET_SCRIPT_INT( _index );
|
||
|
|
if ( index == 0 ) // make the table
|
||
|
|
{
|
||
|
|
embed_guids.deleteAll();
|
||
|
|
embedEnumStruct param;
|
||
|
|
param.user_data = 0;
|
||
|
|
param.enumProc = embed_guid_enumProc;
|
||
|
|
SendMessageW( wa2.getMainWindow(), WM_WA_IPC, (WPARAM)¶m, IPC_EMBED_ENUM );
|
||
|
|
}
|
||
|
|
if ( index >= 0 && index < embed_guids.getNumItems() )
|
||
|
|
return MAKE_SCRIPT_STRING( embed_guids[ index ]->getValue() );
|
||
|
|
|
||
|
|
return MAKE_SCRIPT_STRING( L"" );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getWinampVersion( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
/** This would have been the code to return a double.
|
||
|
|
double r = atof(wa2.getVersion());
|
||
|
|
return MAKE_SCRIPT_DOUBLE(r);
|
||
|
|
*/
|
||
|
|
return MAKE_SCRIPT_STRING( applicationApi->main_getVersionNumString() );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getBuildNumber( SCRIPT_FUNCTION_PARAMS, ScriptObject *object )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
return MAKE_SCRIPT_INT( applicationApi->main_getBuildNumber() );
|
||
|
|
}
|
||
|
|
|
||
|
|
scriptVar SystemObject::vcpu_getFileSize( SCRIPT_FUNCTION_PARAMS, ScriptObject *object, scriptVar _file )
|
||
|
|
{
|
||
|
|
SCRIPT_FUNCTION_INIT;
|
||
|
|
const wchar_t *file = GET_SCRIPT_STRING( _file );
|
||
|
|
if ( file == NULL ) // make the table
|
||
|
|
{
|
||
|
|
return MAKE_SCRIPT_INT( 0 );
|
||
|
|
}
|
||
|
|
/*fileApi->fileOpen(file, 0);
|
||
|
|
int size = fileApi->fileGetFileSize();
|
||
|
|
fileApi->fileClose(;*/
|
||
|
|
OSFILETYPE in = WFOPEN( file, WF_READONLY_BINARY );
|
||
|
|
if ( in == OPEN_FAILED ) return MAKE_SCRIPT_INT( 0 );
|
||
|
|
int size = (int)FGETSIZE( in );
|
||
|
|
FCLOSE( in );
|
||
|
|
return MAKE_SCRIPT_INT( size );
|
||
|
|
}
|
||
|
|
|
||
|
|
wchar_t SystemObject::staticStr[ 4096 ] = { 0 };
|
||
|
|
wchar_t SystemObject::translateStr[ 4096 ] = { 0 };
|
||
|
|
PtrList < ScriptObject > SystemObject::scriptobjects;
|
||
|
|
|
||
|
|
// END VCPU
|
||
|
|
|
||
|
|
// ---------------------------------------------------------------
|
||
|
|
// -- END SCRIPT -------------------------------------------------
|
||
|
|
// ---------------------------------------------------------------
|