/*

	Example of an embedded command

*/

// These are the two different implementations of

// the command that we will use

function FuncImpl1( arg )

{

	Application.LogMessage( arg ) ;

}

function FuncImpl2( arg )

{

	XSIUIToolkit.MsgBox( arg ) ;

}

Application.RemoveCommand( "EmbeddedJScript" ) ;

var cmd = Application.CreateCommand( "EmbeddedJScript" ) ;

cmd.ScriptingName = "EmbeddedJScript" ;

cmd.Language = "JScript" ;

cmd.Handler = "FuncImpl1" 

cmd.Code = FuncImpl1.toString(); // Embed the code directly in the definition

cmd.Arguments.Add( "arg1") ;

cmd.ReturnValue = false   // Optional, but makes it explicit that this is

						  // is a subroutine

Application.AddCommand( cmd ) ;

//Tip: uncomment this line to see the command

//that has just been defined

//EditCommand( "EmbeddedJScript" ) ;

//Execute the command

//This will log:

//INFO : "56"

EmbeddedJScript( 56 ) ;

//Change the code by updating the command with

//a new function

var cmd = Application.Commands( "EmbeddedJScript" ) ;

cmd.Code = FuncImpl2.toString() ;

cmd.Handler = "FuncImpl2" ;

cmd.Update() ;

//Execute the command

//This will pop up a message box

EmbeddedJScript( 56 ) ;

//Cleanup 

Application.RemoveCommand( "EmbeddedJScript" ) ;

'

'	VBScript example of an embedded command

'

'The implementation of the command is stored in this string

'Clearly it would be awkward to write a huge command

'like that.  For large custom commands we recommend that

'you store the command in a file

'and set the Command.FileName property.

dim strCommandImpl 

strCommandImp = _

	"sub FuncImpl( arg )" & vbCrLf & _

	"	logmessage arg" & vbCrLf & _

	"end sub"

Application.RemoveCommand "EmbeddedVBScript" 

set cmd = Application.CreateCommand( "EmbeddedVBScript" )

cmd.ScriptingName = "EmbeddedVBScript" 

cmd.Language = "VBScript" 

cmd.Handler = "FuncImpl" 

cmd.Code = strCommandImp  ' Embed the code directly in the definition

cmd.Arguments.Add "arg1"

cmd.ReturnValue = false   ' Optional, but makes it explicit that this is

						  'is a subroutine

Application.AddCommand( cmd )

'Tip: uncomment this line to see the command

'that has just been defined

'EditCommand "EmbeddedVBScript"

'Execute the command

'This will log:

'INFO : "56"

EmbeddedVBScript 56

'Change the code by updating the command with

'a new function

strCommandImp = _

	"sub FuncImpl( arg )" & vbCrLf & _

	"	MsgBox arg" & vbCrLf & _

	"end sub"

set cmd = Application.Commands( "EmbeddedVBScript" )

cmd.Code = strCommandImp

cmd.Update

'Execute the command

'This will pop up a message box

EmbeddedVBScript 56

'Cleanup 

Application.RemoveCommand "EmbeddedVBScript"

#g_EmbeddedCmd is some simple python code that we will

#use as the implementation of a custom command

g_EmbeddedCmd = """

#This routine expects in_obj to be a light

def FuncWithLightAsArgCmdImp( in_obj ):

	Application.LogMessage( in_obj.Shaders.Count ) 

	Application.LogMessage( in_obj.Name ) 

"""

#

# Function that creates custom command, provides g_EmbeddedCmd

# as the implementation and then calls it

#

def DemoObjectArgument():

	oDefaultLight = Application.ActiveSceneRoot.Children( "light" )		

	Application.RemoveCommand( "pythontestcmd" )

	cmd = Application.CreateCommand( "pythontestcmd" )

	cmd.ScriptingName = "pythontestcmd"

	cmd.Code = g_EmbeddedCmd

	cmd.Language = "Python"

	cmd.Handler = "FuncWithLightAsArgCmdImp"

	cmd.Arguments.AddObjectArgument( "in_obj" )

	Application.AddCommand( cmd )

	Application.pythontestcmd( oDefaultLight )

	#Because of argument handler we can also call it 

	#with a string and it will automatically be converted

	#into the object equivalent

	Application.pythontestcmd( "light" )

	Application.RemoveCommand( "pythontestcmd" )

DemoObjectArgument()

#Expected output

#INFO : 2

#INFO : light

#INFO : 2

#INFO : light