Thanks Andrew for such an obvious answer~ What was I thinking in the first place? The solution is so straight forward. Thank you so much! Is there any shortcomings that you could think off using either approaches? The most obvious benefit I see in the second approach is that when the session is already created, it can take effect immediately if you change the condition. Where as the first approach can only take effect after a new session is started when the condition change. ;register a callback to connect the triggers on ADE XL session start (axlSessionRegisterCreationCallback 'ADEXLTriggers_func1) (axlSessionRegisterCreationCallback 'ADEXLTriggers_func2) ;connect ADE XL triggers (defun ADEXLTriggers_func1 (session) if(boundp('myVar) && myVar!=nil then (axlSessionConnect session "postInstall" 'func1) (axlSessionConnect session "postCreatedTest" 'func1) (axlSessionConnect session "preRun" 'func1) else (axlSessionDisconnect session 'func1) ) ) (defun ADEXLTriggers_func2 (session) (axlSessionConnect session "postInstall" 'func2) (axlSessionConnect session "postCreatedTest" 'func2) (axlSessionConnect session "preRun" 'func2) ) ;define a handler to connect to a trigger procedure( func1(session @rest args) let(() printf("Func1: Length of arguments: %d\n" length(args)) ); let ); procedure procedure( func2(session @rest args) let(() if(boundp('myVar) && myVar!=nil then printf("Func2: Length of arguments: %d\n" length(args)) ); if ); let )
↧