Descending into a cell - skill function

Thanks Andrew,

I verified this works. I guess the documentation needs to be updated then...

Thanks

You could use this code:

/* abWhichView.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Oct 03, 2005 
Modified   
By         

Function which can be used as a label on a symbol, to say
which view is being used in a config.

Create an ILLabel, with value "abWhichView()"

***************************************************

SCCS Info: @(#) abWhichView.il 10/03/05.15:07:34 1.1

*/

/*******************************************************************
*                                                                  *
*                   (abWhichView [instId] [wid])                   *
*                                                                  *
*     Returns the name of the view bound in the config, or nil     *
* if there is no config. instId defaults to ilInst - the currently *
*     drawn instrane, and wid defaults to the current window.      *
*                                                                  *
*******************************************************************/

(procedure (abWhichView @optional (instId ilInst) (wid (hiGetCurrentWindow)))
  (let (pathVector bindInfo)
       (setq pathVector (deGetVector wid))
       (when pathVector
             (setq bindInfo
                   (hdbBind 
                    pathVector 
                    (dbGetq instId libName)
                    (dbGetq instId cellName)
                    (dbGetq instId viewName)
                    (dbGetq instId name)
                    nil nil nil
                    ))
             ;-----------------------------------------------------------
             ; The third entry in the list is the view used
             ;-----------------------------------------------------------
             (caddr bindInfo)
             ) ; when
       ) ; let
  ) ; procedure 

Hello Andrew,

         This still doesn't do it. I think what I need already exists.. but I don't know how to get my hands on it.. Let me explain..

 The code you provided gives me the view being used if I'm viewing a config. If not, pathVector doesn't exist. In that case what do I do?

However, when I use the descend function (default bindkey is 'e'), Cadence already knows what order to give me the views in... if it's a config, it puts the view being used first in the drop-down menu for view.. If it's not a config, and a schematic view exists, it gives me that on top.

So, the work is already done. How can I get "that" view (that Cadence puts at the top of the list when using the descend dialog) without using the form, through skill.

Why do I want to bypass the form?

Because there is a bug that causes a remnant of that form to remain after bindkey based interaction... some of the time.. and it's an annoyance...

Thanks!

Will geSwitch do what you want?

 geSwitch(
w_windowId
t_accessMode
d_instId
x_iteration
x_row
x_col
[ g_cancel ]
)
=> t / nil

Switches into an instance.
w_windowId->viewNameList is used as a switch for the instance. w_windowId must be a valid Graphics Editor window with at least one stack element, and d_instId must be an instance in the edit cellview in w_windowId.

Derek

Okay, with this and Andrew's code, I have something that works..  and then some!!

(let (n instId pathVector bindInfo wid myFileSpec)

      (when (instId = car(geGetSelSet() ) )

      n = instId~>name;

      rexCompile(":[0-9]>");

      n = rexReplace(n ">" 1);     to handle arrayed instances

           wid = hiGetCurrentWindow()

          (setq pathVector (deGetVector wid) )

         if( pathVector

             then

                   (setq bindInfo

                          (hdbBind

                              pathVector  

                                    (dbGetq instId     libName)

                                    (dbGetq instId cellName)

                                     (dbGetq  instId viewName)

                                     (dbGetq    instId   name)

                                      nil nil nil

                          ) ; setq

                 myFileSpec = list( nil 'instanceName n 'viewNameList caddr(bindInfo) );

                 dePush("myFileSpec wid "read");

          else

                geSwitch( wid "r" instId 0 0 0)

         ) ; if

     ) ; when

) ; let

Thanks guys!!

Bottom line, this code doesn't work reliably. My EDA folks suggest that

          (setq pathVector (deGetVector wid) )

is the problem - pathVector obtained from the current window is not reliable for binding information. The suggestion was to consider the example in $CDSHOME/tools/hdb/examples/hdbTraverse.il

My problem - it seems really complicated. Is anyone familiar enough with that exmple to suggest an alternative to deGetVector for setting pathVector?

Thanks!!

Here's the final solution (help from CCS). It does not avoid form interaction unfortunately - but uses hiRegTimer to ensure that the skill interacts with the form after sufficient delay :

in .cdsinit :

load("/path/to/CCSDescend.il")

hiSetBindKey("Schematics" "<Key>e"  "CCSQueryUserSchHiDescend()")
hiSetBindKey("Schematics" "Ctrl<Key>x" "CCSNoQueryUserSchHiDescend()")

CCSDescend.il :

 procedure(CCSNoQueryUserSchHiDescend()
    envSetVal("schematic" "descendTarget" 'string "use viewNameList")

    if( (1 < car( geGetSelSet()~>numInst) )
        then
            hiRegTimer("hiFormDone(schDescendIterForm)" 2)
        else
    )
    schHiDescendRead()
)

procedure(CCSQueryUserSchHiDescend()

envSetVal("schematic" "descendTarget" 'string "query user")
schHiDescendRead()
)