axlToolSetSetupOptions

axlToolSetSetupOptions( 
t_session 
t_test 
l_toolOptions 
) 
=> t / nil 

Description

Sets the option values for the tool instance associated with the specified session and test.

Arguments

t_session	Session name.
t_test	Test name.
l_toolOptions	Associative list of original option values for the tool instance. Valid Values for tool instance ADE: Library name: lib t_libName Cell name: cell t_cellName View name: view t_viewName Simulator name: sim t_simulator State name: state t_stateName Path to ADE state: path t_path

Value Returned

t	Successful operation.
nil	Unsuccessful operation.

Examples

The following example sets the option values for the tool instance associated with session session0 and test delayTest.

axlToolSetSetupOptions( "session0" "delayTest" axlGetTestToolArgs( 1031 ) )
=> t

The following example shows how to modify analyses for multiple tests together:

LJNaxlUpdateAnalysisFieldValAllTests (analysis field value)

;    Update all tests that contain the specified analysis type. 
;    e.g.  (LJNaxlUpdateAnalysisFieldValAllTests 'tran 'stop 100n)

LJNaxlUpdateTranStopTimeAllTests (stopTime)

;    Shortcut function to update tran stop time. 
;    e.g.  LJNaxlUpdateTranStopTimeAllTests 100n
;     A cellview must be opened.  Make sure the view is in focus before
; entering the command in the CIW. All tests that contain the specified analysis
type will be updated. 

;load this file in the .cdsinit:
(when !(axlIsICRPProcess)
    load("<this filename>")
)

;Example: Add $HOME/skill directory to SKILL path:
    setSkillPath(cons("~/skill" getSkillPath()))

Note: The GUI does not update automatically with the new analysis value although
;the value has been updated. If you close the view and open it again the value is 
;updated or if you open the 'Choosing Analyses' form and select OK the value (e.g. 
;tran stop time) is updated. 

(defun LJNaxlUpdateAnalysisFieldValAllTests (analysisType field value)
    (let (axl tests testSession oSession analysisName analysisList) 
        axl = (LJNaxlGetCurrentWindowSessionAndSetupDB) 
        tests = (cadr (axlGetTests axl->sdbh) )
    ; Special case to convert tran stop time to string if necessary (handle 1e-9 or
    ; 1n without double-quotes)

     (when (and (analysisType == 'tran) (field == 'stop) (not (stringp value)))
            value = (aelSuffixNotation value)
     )

         (foreach testName tests
            (printf "Test %s\n" testName)
            testSession = (axlGetToolSession axl->sess testName) ;sev session
            oSession = (sevEnvironment testSession) ;oasis session
            analysisName = (asiGetAnalysisName (asiGetAnalysis oSession analysisType))
            analysisList = (asiGetEnabledAnalysisList oSession)
            (foreach analysis analysisList
                (printf "\tAnalysis name = %L\n" analysis->name)
            (when analysis->name == analysisName
                (printf "\t\tSetting %A = %A\n" field value)
                (asiSetAnalysisFieldVal analysis field value)
                (printf "\tNew val = %A\n" (asiGetAnalysisFieldVal analysis field )))
        )
        )
    )
) 
(defun LJNaxlUpdateTranStopTimeAllTests (stopTime)
    (let ()
        (LJNaxlUpdateAnalysisFieldValAllTests 'tran 'stop stopTime) 
    )
)

;Utility functions

(defun LJNaxlGetCurrentWindowSessionAndSetupDB ()
    (let (sess sdbh ret)
        sess = (LJNaxlGetCurrentWindowSession)
         (unless sdbh 
            (error "Cannot find setupDB handle.\n")
        )

        ret=(ncons nil)
        ret->sess=sess
        ret->sdbh=sdbh
        ret
       )
)

(defun LJNaxlGetCurrentWindowSetupDB ()
       (let (sess sdbh)
       sess = (LJNaxlGetCurrentWindowSession)
       sdbh = (axlGetMainSetupDB sess)
       (unless sdbh 
              (error "Cannot find setupDB handle.\n")
       )
       sdbh
       )
)

(defun LJNaxlGetCurrentWindowSession ()
(       let (sess)
              sess = (axlGetWindowSession (hiGetCurrentWindow))
       (unless sess 
              (error "Cannot find the session from current window. Select the ADE Explorer window to set the current window.\n")
       )
       sess
       )
)

;To get a list of available analysis fields for an analysis: 
;e.g:
;(LJNdisplayAnalysisField 'tran) 
;(LJNdisplayAnalysisField 'dc) 

(defun LJNdisplayAnalysisField (analysisType)
       (let (session analysis)
              session = asiGetCurrentSession()
              analysis = asiGetAnalysis(session analysisType)
              asiDisplayAnalysisField(analysis)
       )
)

Related Topics

axlGetTestToolArgs

axlToolSetOriginalSetupOptions

Return to top