Mirrors/Microsoft-3D-Movie-Maker
1
0
Fork 0
mirror of https://github.com/microsoft/Microsoft-3D-Movie-Maker.git synced 2024-11-22 02:12:33 +01:00
Code Issues Projects Releases Wiki Activity
main
Microsoft-3D-Movie-Maker/kauai/SRC/SCRCOMG.CPP
Scott Hanselman 3954101c19 commit message
2022-05-03 16:31:19 -07:00

344 lines
15 KiB
C++
Raw Permalink Blame History

/* Copyright (c) Microsoft Corporation.
Licensed under the MIT License. */
/***************************************************************************
Author: ShonK
Project: Kauai
Reviewed:
Copyright (c) Microsoft Corporation
Script compiler for gob based scripts. The real compilation is
done at the SCCB class level. The SCCG class just provides mapping
of identifiers to opcodes for GOB specific script primitives.
***************************************************************************/
#include "kidframe.h"
ASSERTNAME
RTCLASS(SCCG)
SZOP _rgszopSccg[] =
{
{ kopCreateChildGob, PszLit("CreateChildGob") },
{ kopCreateChildThis, PszLit("CreateChildThis") },
{ kopDestroyGob, PszLit("DestroyGob") },
{ kopDestroyThis, PszLit("DestroyThis") },
{ kopResizeGob, PszLit("ResizeGob") },
{ kopResizeThis, PszLit("ResizeThis") },
{ kopMoveRelGob, PszLit("MoveRelGob") },
{ kopMoveRelThis, PszLit("MoveRelThis") },
{ kopMoveAbsGob, PszLit("MoveAbsGob") },
{ kopMoveAbsThis, PszLit("MoveAbsThis") },
{ kopGidThis, PszLit("GidThis") },
{ kopGidParGob, PszLit("GidParGob") },
{ kopGidParThis, PszLit("GidParThis") },
{ kopGidNextSib, PszLit("GidNextSib") },
{ kopGidPrevSib, PszLit("GidPrevSib") },
{ kopGidChild, PszLit("GidChild") },
{ kopFGobExists, PszLit("FGobExists") },
{ kopCreateClock, PszLit("CreateClock") },
{ kopDestroyClock, PszLit("DestroyClock") },
{ kopStartClock, PszLit("StartClock") },
{ kopStopClock, PszLit("StopClock") },
{ kopTimeCur, PszLit("TimeCur") },
{ kopSetAlarm, PszLit("SetAlarm") },
{ kopEnqueueCid, PszLit("EnqueueCid") },
{ kopAlert, PszLit("Alert") },
{ kopRunScriptGob, PszLit("RunScriptGob") },
{ kopRunScriptThis, PszLit("RunScriptThis") },
{ kopStateGob, PszLit("StateGob") },
{ kopStateThis, PszLit("StateThis") },
{ kopChangeStateGob, PszLit("ChangeStateGob") },
{ kopChangeStateThis, PszLit("ChangeStateThis") },
{ kopAnimateGob, PszLit("AnimateGob") },
{ kopAnimateThis, PszLit("AnimateThis") },
{ kopSetPictureGob, PszLit("SetPictureGob") },
{ kopSetPictureThis, PszLit("SetPictureThis") },
{ kopSetRepGob, PszLit("SetRepGob") },
{ kopSetRepThis, PszLit("SetRepThis") },
{ kopXMouseGob, PszLit("XMouseGob") },
{ kopXMouseThis, PszLit("XMouseThis") },
{ kopYMouseGob, PszLit("YMouseGob") },
{ kopYMouseThis, PszLit("YMouseThis") },
{ kopGidUnique, PszLit("GidUnique") },
{ kopXGob, PszLit("XGob") },
{ kopXThis, PszLit("XThis") },
{ kopYGob, PszLit("YGob") },
{ kopYThis, PszLit("YThis") },
{ kopZGob, PszLit("ZGob") },
{ kopZThis, PszLit("ZThis") },
{ kopSetZGob, PszLit("SetZGob") },
{ kopSetZThis, PszLit("SetZThis") },
{ kopSetColorTable, PszLit("SetColorTable") },
{ kopCell, PszLit("Cell") },
{ kopCellNoPause, PszLit("CellNoPause") },
{ kopGetModifierState, PszLit("GetModifierState") },
{ kopChangeModifierState, PszLit("ChangeModifierState") },
{ kopCreateHelpGob, PszLit("CreateHelpGob") },
{ kopCreateHelpThis, PszLit("CreateHelpThis") },
{ kopTransition, PszLit("Transition") },
{ kopGetEdit, PszLit("GetEdit") },
{ kopSetEdit, PszLit("SetEdit") },
{ kopAlertStr, PszLit("AlertStr") },
{ kopGetProp, PszLit("GetProp") },
{ kopSetProp, PszLit("SetProp") },
{ kopLaunch, PszLit("Launch") },
{ kopPlayGob, PszLit("PlayGob") },
{ kopPlayThis, PszLit("PlayThis") },
{ kopPlayingGob, PszLit("PlayingGob") },
{ kopPlayingThis, PszLit("PlayingThis") },
{ kopStopGob, PszLit("StopGob") },
{ kopStopThis, PszLit("StopThis") },
{ kopCurFrameGob, PszLit("CurFrameGob") },
{ kopCurFrameThis, PszLit("CurFrameThis") },
{ kopCountFramesGob, PszLit("CountFramesGob") },
{ kopCountFramesThis, PszLit("CountFramesThis") },
{ kopGotoFrameGob, PszLit("GotoFrameGob") },
{ kopGotoFrameThis, PszLit("GotoFrameThis") },
{ kopFilterCmdsGob, PszLit("FilterCmdsGob") },
{ kopFilterCmdsThis, PszLit("FilterCmdsThis") },
{ kopDestroyChildrenGob, PszLit("DestroyChildrenGob") },
{ kopDestroyChildrenThis, PszLit("DestroyChildrenThis") },
{ kopPlaySoundThis, PszLit("PlaySoundThis") },
{ kopPlaySoundGob, PszLit("PlaySoundGob") },
{ kopStopSound, PszLit("StopSound") },
{ kopStopSoundClass, PszLit("StopSoundClass") },
{ kopPlayingSound, PszLit("PlayingSound") },
{ kopPlayingSoundClass, PszLit("PlayingSoundClass") },
{ kopPauseSound, PszLit("PauseSound") },
{ kopPauseSoundClass, PszLit("PauseSoundClass") },
{ kopResumeSound, PszLit("ResumeSound") },
{ kopResumeSoundClass, PszLit("ResumeSoundClass") },
{ kopPlayMouseSoundGob, PszLit("PlayMouseSoundGob") },
{ kopPlayMouseSoundThis, PszLit("PlayMouseSoundThis") },
{ kopRunScriptCnoGob, PszLit("RunScriptCnoGob") },
{ kopRunScriptCnoThis, PszLit("RunScriptCnoThis") },
{ kopWidthGob, PszLit("WidthGob") },
{ kopWidthThis, PszLit("WidthThis") },
{ kopHeightGob, PszLit("HeightGob") },
{ kopHeightThis, PszLit("HeightThis") },
{ kopSetNoSlipGob, PszLit("SetNoSlipGob") },
{ kopSetNoSlipThis, PszLit("SetNoSlipThis") },
{ kopFIsDescendent, PszLit("FIsDescendent") },
{ kopPrint, PszLit("Print") },
{ kopPrintStr, PszLit("PrintStr") },
{ kopSetMasterVolume, PszLit("SetMasterVolume") },
{ kopGetMasterVolume, PszLit("GetMasterVolume") },
{ kopStartLongOp, PszLit("StartLongOp") },
{ kopEndLongOp, PszLit("EndLongOp") },
{ kopSetToolTipSourceGob, PszLit("SetToolTipSourceGob") },
{ kopSetToolTipSourceThis, PszLit("SetToolTipSourceThis") },
{ kopSetAlarmGob, PszLit("SetAlarmGob") },
{ kopSetAlarmThis, PszLit("SetAlarmThis") },
{ kopModalHelp, PszLit("ModalHelp") },
{ kopFlushUserEvents, PszLit("FlushUserEvents") },
{ kopStreamGob, PszLit("StreamGob") },
{ kopStreamThis, PszLit("StreamThis") },
{ kopPrintStat, PszLit("PrintStat") },
{ kopPrintStrStat, PszLit("PrintStrStat") },
{ opNil, pvNil },
};
AROP _rgaropSccg[] =
{
{ kopCreateChildGob, PszLit("CreateChildGob"), 3, 0, 0, fFalse },
{ kopCreateChildThis, PszLit("CreateChildThis"), 2, 0, 0, fFalse },
{ kopDestroyGob, PszLit("DestroyGob"), 1, 0, 0, fTrue },
{ kopDestroyThis, PszLit("DestroyThis"), 0, 0, 0, fTrue },
{ kopResizeGob, PszLit("ResizeGob"), 3, 0, 0, fTrue },
{ kopResizeThis, PszLit("ResizeThis"), 2, 0, 0, fTrue },
{ kopMoveRelGob, PszLit("MoveRelGob"), 3, 0, 0, fTrue },
{ kopMoveRelThis, PszLit("MoveRelThis"), 2, 0, 0, fTrue },
{ kopMoveAbsGob, PszLit("MoveAbsGob"), 3, 0, 0, fTrue },
{ kopMoveAbsThis, PszLit("MoveAbsThis"), 2, 0, 0, fTrue },
{ kopGidThis, PszLit("GidThis"), 0, 0, 0, fFalse },
{ kopGidParGob, PszLit("GidParGob"), 1, 0, 0, fFalse },
{ kopGidParThis, PszLit("GidParThis"), 0, 0, 0, fFalse },
{ kopGidNextSib, PszLit("GidNextSib"), 1, 0, 0, fFalse },
{ kopGidPrevSib, PszLit("GidPrevSib"), 1, 0, 0, fFalse },
{ kopGidChild, PszLit("GidChild"), 1, 0, 0, fFalse },
{ kopFGobExists, PszLit("FGobExists"), 1, 0, 0, fFalse },
{ kopCreateClock, PszLit("CreateClock"), 1, 0, 0, fFalse },
{ kopDestroyClock, PszLit("DestroyClock"), 1, 0, 0, fTrue },
{ kopStartClock, PszLit("StartClock"), 2, 0, 0, fTrue },
{ kopStopClock, PszLit("StopClock"), 1, 0, 0, fTrue },
{ kopTimeCur, PszLit("TimeCur"), 1, 0, 0, fFalse },
{ kopSetAlarm, PszLit("SetAlarm"), 2, 0, 0, fTrue },
{ kopEnqueueCid, PszLit("EnqueueCid"), 6, 0, 0, fTrue },
{ kopAlert, PszLit("Alert"), 0, 1, 1, fTrue },
{ kopRunScriptGob, PszLit("RunScriptGob"), 2, 1, 0, fFalse },
{ kopRunScriptThis, PszLit("RunScriptThis"), 1, 1, 0, fFalse },
{ kopStateGob, PszLit("StateGob"), 1, 0, 0, fFalse },
{ kopStateThis, PszLit("StateThis"), 0, 0, 0, fFalse },
{ kopChangeStateGob, PszLit("ChangeStateGob"), 2, 0, 0, fTrue },
{ kopChangeStateThis, PszLit("ChangeStateThis"), 1, 0, 0, fTrue },
{ kopAnimateGob, PszLit("AnimateGob"), 2, 0, 0, fTrue },
{ kopAnimateThis, PszLit("AnimateThis"), 1, 0, 0, fTrue },
{ kopSetPictureGob, PszLit("SetPictureGob"), 2, 0, 0, fTrue },
{ kopSetPictureThis, PszLit("SetPictureThis"), 1, 0, 0, fTrue },
{ kopSetRepGob, PszLit("SetRepGob"), 2, 0, 0, fTrue },
{ kopSetRepThis, PszLit("SetRepThis"), 1, 0, 0, fTrue },
{ kopXMouseGob, PszLit("XMouseGob"), 1, 0, 0, fFalse },
{ kopXMouseThis, PszLit("XMouseThis"), 0, 0, 0, fFalse },
{ kopYMouseGob, PszLit("YMouseGob"), 1, 0, 0, fFalse },
{ kopYMouseThis, PszLit("YMouseThis"), 0, 0, 0, fFalse },
{ kopGidUnique, PszLit("GidUnique"), 0, 0, 0, fFalse },
{ kopXGob, PszLit("XGob"), 1, 0, 0, fFalse },
{ kopXThis, PszLit("XThis"), 0, 0, 0, fFalse },
{ kopYGob, PszLit("YGob"), 1, 0, 0, fFalse },
{ kopYThis, PszLit("YThis"), 0, 0, 0, fFalse },
{ kopZGob, PszLit("ZGob"), 1, 0, 0, fFalse },
{ kopZThis, PszLit("ZThis"), 0, 0, 0, fFalse },
{ kopSetZGob, PszLit("SetZGob"), 2, 0, 0, fTrue },
{ kopSetZThis, PszLit("SetZThis"), 1, 0, 0, fTrue },
{ kopSetColorTable, PszLit("SetColorTable"), 1, 0, 0, fTrue },
{ kopCell, PszLit("Cell"), 4, 0, 0, fTrue },
{ kopCellNoPause, PszLit("CellNoPause"), 4, 0, 0, fTrue },
{ kopGetModifierState, PszLit("GetModifierState"), 0, 0, 0, fFalse },
{ kopChangeModifierState, PszLit("ChangeModifierState"), 2, 0, 0, fTrue },
{ kopCreateHelpGob, PszLit("CreateHelpGob"), 2, 0, 0, fFalse },
{ kopCreateHelpThis, PszLit("CreateHelpThis"), 1, 0, 0, fFalse },
{ kopTransition, PszLit("Transition"), 5, 0, 0, fTrue },
{ kopGetEdit, PszLit("GetEdit"), 2, 0, 0, fTrue },
{ kopSetEdit, PszLit("SetEdit"), 2, 0, 0, fTrue },
{ kopAlertStr, PszLit("AlertStr"), 0, 1, 1, fTrue },
{ kopGetProp, PszLit("GetProp"), 1, 0, 0, fFalse },
{ kopSetProp, PszLit("SetProp"), 2, 0, 0, fTrue },
{ kopLaunch, PszLit("Launch"), 1, 0, 0, fFalse },
{ kopPlayGob, PszLit("PlayGob"), 1, 0, 0, fTrue },
{ kopPlayThis, PszLit("PlayThis"), 0, 0, 0, fTrue },
{ kopPlayingGob, PszLit("PlayingGob"), 1, 0, 0, fFalse },
{ kopPlayingThis, PszLit("PlayingThis"), 0, 0, 0, fFalse },
{ kopStopGob, PszLit("StopGob"), 1, 0, 0, fTrue },
{ kopStopThis, PszLit("StopThis"), 0, 0, 0, fTrue },
{ kopCurFrameGob, PszLit("CurFrameGob"), 1, 0, 0, fFalse },
{ kopCurFrameThis, PszLit("CurFrameThis"), 0, 0, 0, fFalse },
{ kopCountFramesGob, PszLit("CountFramesGob"), 1, 0, 0, fFalse },
{ kopCountFramesThis, PszLit("CountFramesThis"), 0, 0, 0, fFalse },
{ kopGotoFrameGob, PszLit("GotoFrameGob"), 2, 0, 0, fTrue },
{ kopGotoFrameThis, PszLit("GotoFrameThis"), 1, 0, 0, fTrue },
{ kopFilterCmdsGob, PszLit("FilterCmdsGob"), 4, 0, 0, fTrue },
{ kopFilterCmdsThis, PszLit("FilterCmdsThis"), 3, 0, 0, fTrue },
{ kopDestroyChildrenGob, PszLit("DestroyChildrenGob"), 1, 0, 0, fTrue },
{ kopDestroyChildrenThis, PszLit("DestroyChildrenThis"), 0, 0, 0, fTrue },
{ kopPlaySoundThis, PszLit("PlaySoundThis"), 7, 0, 0, fFalse },
{ kopPlaySoundGob, PszLit("PlaySoundGob"), 8, 0, 0, fFalse },
{ kopStopSound, PszLit("StopSound"), 1, 0, 0, fTrue },
{ kopStopSoundClass, PszLit("StopSoundClass"), 2, 0, 0, fTrue },
{ kopPlayingSound, PszLit("PlayingSound"), 1, 0, 0, fFalse },
{ kopPlayingSoundClass, PszLit("PlayingSoundClass"), 2, 0, 0, fFalse },
{ kopPauseSound, PszLit("PauseSound"), 1, 0, 0, fTrue },
{ kopPauseSoundClass, PszLit("PauseSoundClass"), 2, 0, 0, fTrue },
{ kopResumeSound, PszLit("ResumeSound"), 1, 0, 0, fTrue },
{ kopResumeSoundClass, PszLit("ResumeSoundClass"), 2, 0, 0, fTrue },
{ kopPlayMouseSoundGob, PszLit("PlayMouseSoundGob"), 3, 0, 0, fTrue },
{ kopPlayMouseSoundThis, PszLit("PlayMouseSoundThis"), 2, 0, 0, fTrue },
{ kopRunScriptCnoGob, PszLit("RunScriptCnoGob"), 2, 1, 0, fFalse },
{ kopRunScriptCnoThis, PszLit("RunScriptCnoThis"), 1, 1, 0, fFalse },
{ kopWidthGob, PszLit("WidthGob"), 1, 0, 0, fFalse },
{ kopWidthThis, PszLit("WidthThis"), 0, 0, 0, fFalse },
{ kopHeightGob, PszLit("HeightGob"), 1, 0, 0, fFalse },
{ kopHeightThis, PszLit("HeightThis"), 0, 0, 0, fFalse },
{ kopSetNoSlipGob, PszLit("SetNoSlipGob"), 2, 0, 0, fTrue },
{ kopSetNoSlipThis, PszLit("SetNoSlipThis"), 1, 0, 0, fTrue },
{ kopFIsDescendent, PszLit("FIsDescendent"), 2, 0, 0, fFalse },
{ kopPrint, PszLit("Print"), 0, 1, 1, fTrue },
{ kopPrintStr, PszLit("PrintStr"), 0, 1, 1, fTrue },
{ kopSetMasterVolume, PszLit("SetMasterVolume"), 1, 0, 0, fTrue },
{ kopGetMasterVolume, PszLit("GetMasterVolume"), 0, 0, 0, fFalse },
{ kopStartLongOp, PszLit("StartLongOp"), 0, 0, 0, fTrue },
{ kopEndLongOp, PszLit("EndLongOp"), 1, 0, 0, fTrue },
{ kopSetToolTipSourceGob, PszLit("SetToolTipSourceGob"), 2, 0, 0, fTrue },
{ kopSetToolTipSourceThis, PszLit("SetToolTipSourceThis"), 1, 0, 0, fTrue },
{ kopSetAlarmGob, PszLit("SetAlarmGob"), 4, 0, 0, fTrue },
{ kopSetAlarmThis, PszLit("SetAlarmThis"), 3, 0, 0, fTrue },
{ kopModalHelp, PszLit("ModalHelp"), 2, 0, 0, fFalse },
{ kopFlushUserEvents, PszLit("FlushUserEvents"), 1, 0, 0, fTrue },
{ kopStreamGob, PszLit("StreamGob"), 2, 0, 0, fTrue },
{ kopStreamThis, PszLit("StreamThis"), 1, 0, 0, fTrue },
{ kopPrintStat, PszLit("PrintStat"), 0, 1, 1, fTrue },
{ kopPrintStrStat, PszLit("PrintStrStat"), 0, 1, 1, fTrue },
{ opNil, pvNil, 0, 0, 0, fTrue },
};
/***************************************************************************
Map a string to an operator.
***************************************************************************/
long SCCG::_OpFromStn(PSTN pstn)
{
AssertThis(0);
AssertPo(pstn, 0);
long op;
if (opNil != (op = _OpFromStnRgszop(pstn, _rgszopSccg)))
return op;
return SCCG_PAR::_OpFromStn(pstn);
}
/***************************************************************************
Map an op code to a string.
***************************************************************************/
bool SCCG::_FGetStnFromOp(long op, PSTN pstn)
{
AssertThis(0);
AssertPo(pstn, 0);
if (_FGetStnFromOpRgszop(op, pstn, _rgszopSccg))
return fTrue;
return SCCG_PAR::_FGetStnFromOp(op, pstn);
}
/***************************************************************************
Map a string to an operator with argument information (for in-fix
compiler).
***************************************************************************/
bool SCCG::_FGetOpFromName(PSTN pstn, long *pop, long *pclwFixed,
long *pclwVar, long *pcactMinVar, bool *pfVoid)
{
if (_FGetArop(pstn, _rgaropSccg, pop, pclwFixed,
pclwVar, pcactMinVar, pfVoid))
{
return fTrue;
}
return SCCG_PAR::_FGetOpFromName(pstn, pop, pclwFixed,
pclwVar, pcactMinVar, pfVoid);
}
/***************************************************************************
Return the current version number of the script compiler.
***************************************************************************/
short SCCG::_SwCur(void)
{
return kswCurSccg;
}
/***************************************************************************
Return the back version number of the script compiler. Versions
back to here can read this script.
***************************************************************************/
short SCCG::_SwBack(void)
{
return kswBackSccg;
}
/***************************************************************************
Return the min version number of the script compiler. We can read
scripts back to this version.
***************************************************************************/
short SCCG::_SwMin(void)
{
return kswMinSccg;
}
Reference in New Issue View Git Blame Copy Permalink