How to add a menu item to the export in CIW

Actually, thinking about it, why do you need to do this? If you use File->Export->Stream and fill in the library name but leave the top cell name field blank, it already writes out all layouts into the stream file. See the documentation on the stream interface (<ICinstDir>/doc/transref/transref.pdf ) for more details.

Regards,

Andrew.

 hi Andrew,

I saw your code on cadence online support .

/* abWriteLibGDS.il

Author     A.D.Beckett

Group      Custom IC (UK), Cadence Design Systems Ltd.

Language   SKILL

Date       Mar 05, 2002

Modified 

By       

 

To use this, Save a template from the File->Export Stream form,

which contains any layer maps etc that you want to use. Then

you can run the code by doing:
 


abWriteLibGDS("libName" "/path/to/template/file")

 

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

 

SCCS Info: @(#) abWriteLibGDS.il 03/05/02.10:52:04 1.1

 

 

/***************************************************************

*                                                              *

*     abWriteLibGDS(libName fileOrDPL [?viewName "layout"      *

*                       ?suffix ".gds")                        *

*                                                              *

*    Writes out GDS files for all layout views in a library    *

*                                                              *

***************************************************************/

 

procedure(abWriteLibGDS(

    libName fileOrDPL @key (viewName "layout") (suffix ".gds")

    )

    let((streamOutKeys)

        if(stringp(fileOrDPL) && isFile(fileOrDPL) then

            loadi(fileOrDPL)

        else

            streamOutKeys=fileOrDPL

        ) ; if

        foreach(cell ddGetObj(libName)~>cells

            when(ddGetObj(libName cell~>name viewName "master.tag")

                abWriteCellGDS(libName cell~>name viewName streamOutKeys suffix)

            ) ; when

        ) ; foreach

        t

    ) ; let

) ; procedure

 

/*****************************************************************

*                                                                *

* abWriteCellGDS(libName cellName viewName streamOutKeys suffix) *

*                                                                *

*    Given the library, cell and view names, and a DPL of the    *

*     template file data, the suffix to apply to the files,      *

*    write out a stream file. This is done by creating a new     *

*  template file, and invoking "pipo strmout", and waiting for   *

*                          the results.                          *

*                                                                *

*****************************************************************/

 

procedure(abWriteCellGDS(libName cellName viewName streamOutKeys suffix)

    let((template fileName ipcId)

        streamOutKeys->libName=libName

        streamOutKeys->primaryCell=cellName

        streamOutKeys->viewName=viewName

        streamOutKeys->outFile=strcat(cellName suffix)

        streamOutKeys->errFile=strcat("PIPO_" cellName ".LOG")

        printf("Writing GDS for %s/%s/%s to %s\n"

            libName cellName viewName

            streamOutKeys->outFile

        ) ; printf

        fileName=makeTempFileName("/tmp/writeCellGDS")

        template=outfile(fileName)

        fprintf(template "streamOutKeys='%L\n" streamOutKeys)

        close(template)

        ipcId=ipcBeginProcess(strcat("pipo strmout " fileName))

        ipcWait(ipcId)

        deleteFile(fileName)

    ) ; let

) ; procedure

 ;; =============

I need to attach this function as an item in  File->Export. 

You'll need to create a form to fill in some of the fields, and then use this as a callback to that form. There is plenty of coverage of writing forms in the documentation, and examples on COS and on this forum.

Then  you'll need to add a menu. I would suggest not adding this into File->Export, although it could be done by taking the menus files in <ICinstDir>/tools/dfII/etc/tools/menus (look at the README file in there) and customizing it. Alternatively you could use hiCreatePulldownMenu() and hiInsertBannerMenu to add your own menu in the CIW.

Hopefully that gives you enough pointers. I do not have the bandwidth to write it for you, and there are plenty of examples around that should allow you to get started.

Regards,

Andrew.

 hi Andrew,

 I done as u suggested in last post. 1st i created a form and fill it with fields(rundirectory, library). Then i created a menu in CIW. But when i running the script for form then CIW shows "nil" and one worning.

 procedure(gds()
  let( (form)
 if(boundp('CCSgdsForm) && CCSgdsForm then
      form = CCSgdsForm
    else
      form = CCScreategdsForm()
    ); if
    when(hiIsForm(form)
     
  enterString(
        ?prompts list("Enter rundirectory to gds ")
        ?form form
        ;?initProc t_initProcName 

        ?doneProc "CCSgdsDoneProc"
        ;?formProc t_formProcName
        ?alwaysMap t
        ?cmdName "CCSgdsForm"
)
    ); when the form exists
  ); let
); procedure CCSmetBus

procedure(CCScreategdsForm()
   let( (rundirectory librarys library form )
librarys=ddGetLibList()~>name
        library = hiCreateCyclicField(
          ?name 'library
          ?choices      librarys
          ?prompt       "Library"
          ?value        car(librarys)
          ?callback     "CCSchangelibrary()"

)
rundirectory=hiCreateStringField(
?name 'rundirectory
?prompt "Rundirectory"
?value  ""
?defValue "."
?callback "CCSchangeDirectory()"
); hiCreateStringField


 form = hiCreateAppForm(
          ?name 'CCScelltoGdsForm
          ?formTitle "Cell into GDS"
          ?formType     'options
          ?buttonLayout 'HideCancelDef
          ?fields list(list(library 0:0 200:30 50)
                list(rundirectory 0:30 200:30 50) )
        ); hiCreateAppForm
 
            
     ); let

);procedure

 procedure(CCSchangeDirectory()
  let( (origRundirectory)
    when(boundp('CCSgdsForm) && CCSgdsForm
      origRundirectory= CCSgdsForm->rundirectory->value
      CCSgdsForm->rundirectory->value = origRundirectory
      unless(CCSgdsForm->currentRundirectory == CCSgdsForm->rundirectory->value
        CCSgdsForm->currentRundirectory = CCSgdsForm->rundirectory->value
      ); unless
      applyEnterFun(form)
    ); when the form exists
  ); let
); procedure



procedure(CCSgdsDoneProc( done points "wgl")
  let( ( form )
    when(boundp('CCSgdsForm) && CCSgdsForm
      form   = CCSgdsForm
      if(done then
            form->currentRundirectory = nil
              CCSgdsCB(
             form->rundirectory~>value
             )
       ); if done
    ); when form exists
  ); let
); procedure

Then CIW shows:

" (icfb) Syncing library list with the Library Manager."

And I feel my form is not working properly. Please help me to do this.

 hi Andrew,

                 I created a menu in CIW. but when I placed this program in .cdsinit for loading automatically,it doesnot work. Let me know suggestion on it.

code is below.

  let( (item1   trPulldownMenu2  )
item1=hiCreateMenuItem( ?name 'item1 ?itemText "gds to library"
              ?callback "labels()"
            )
;item2 = hiCreateMenuItem( ?name 'item2 ?itemText "Set lsw"
              ;?callback "venu()")
Menu=hiCreatePulldownMenu('trPulldownMenu2 "FPS2" list(item1 ) )
hiInsertBannerMenu(window(1) Menu  0))

OK, starting from this last question. You need to call ciwMenuInit() in the .cdsinit before you try to insert the banner menu.

For the previous question, several issues:

1. The gds() function is checking for the existence of a variable called CCSgdsForm, yet the function CCScreategdsForm() is creating a form called CCScelltoGdsForm. So it checks for the existence of it, and then creates a different form.
2. Rather bizarrely gds() is calling enterString(). Why? Surely you want to use hiDisplayForm() instead? That will avoid having to have the function CCSgdsDoneProc at all.
3. If you do that, you will need to create the form as a 'nonoptions form rather than an 'options form.
4. The CCSchangeDirectory() function is also referring to the wrong form name.
5. CCSchangeDirectory() is calling applyEnterFun() which wouldn't be necessary if this is done properly (i.e. without an enter function)
6. When you create the form, you'll probably want to use ?callback to specify a function which is called when the OK/Apply button is pressed.

I've not followed through or tried to debug the entire code - but it's a bit messed up, so I suggest you try to unravel things using the suggestions above first.

Regards,

Andrew.

 hi Andrew,

 I did the changes as you suggested in last post. But form appears  only, whenever layout window is opened. Without layout window I  get  nil  in CIW.  My code is below

 procedure(gds()
  let( (form)
 if(boundp('CCSgdsForm) && CCSgdsForm then
      form = CCScelltoGdsForm
    else
      form = CCScreategdsForm()
    ); if
    when(hiIsForm(form)
     
  enterString(
        ?prompts list("Enter rundirectory to gds ")
        ?form form
        ;?initProc t_initProcName
        ?doneProc "CCSgdsDoneProc"
        ;?formProc t_formProcName
        ?alwaysMap t
        ?cmdName "CCScelltoGdsForm"
)
    ); when the form exists
  ); let
); procedure CCSmetBus

procedure(CCScreategdsForm()
   let( (rundirectory librarys library form )

librarys=ddGetLibList()~>name
        library = hiCreateCyclicField(
          ?name 'library
          ?choices      librarys
          ?prompt       "Library"
          ?value        car(librarys)
          ?callback     "CCSchangelibrary()"

)
rundirectory=hiCreateStringField(
?name 'rundirectory
?prompt "Rundirectory"
?value  ""
?defValue "."
?callback "CCSchangeDirectory()"
); hiCreateStringField


 form = hiCreateAppForm(
          ?name 'CCScelltoGdsForm
          ?formTitle "Cell into GDS"
          ?formType     'nonoptions
          ?buttonLayout 'OKCancelApply
          ?fields list(list(library 0:0 200:30 50)
                list(rundirectory 0:30 200:30 50) )
          ?callback "abWriteLibGDS1()"
        ); hiCreateAppForm
 
            
     ); letprocedure(gds()
  let( (form)
 if(boundp('CCSgdsForm) && CCSgdsForm then
      form = CCScelltoGdsForm
    else
      form = CCScreategdsForm()
    ); if
    when(hiIsForm(form)
    
  enterString(
        ?prompts list("Enter rundirectory to gds ")
        ?form form
        ;?initProc t_initProcName
        ?doneProc "CCSgdsDoneProc"
        ;?formProc t_formProcName
        ?alwaysMap t
        ?cmdName "CCScelltoGdsForm"
)
    ); when the form exists
  ); let
); procedure CCSmetBus

procedure(CCScreategdsForm()
   let( (rundirectory librarys library form )

librarys=ddGetLibList()~>name
        library = hiCreateCyclicField(
          ?name 'library
          ?choices      librarys
          ?prompt       "Library"
          ?value        car(librarys)
          ?callback     "CCSchangelibrary()"

)
rundirectory=hiCreateStringField(
?name 'rundirectory
?prompt "Rundirectory"
?value  ""
?defValue "."
); hiCreateStringField


 form = hiCreateAppForm(
          ?name 'CCScelltoGdsForm
          ?formTitle "Cell into GDS"
          ?formType     'nonoptions
          ?buttonLayout 'OKCancelApply
          ?fields list(list(library 0:0 200:30 50)
                list(rundirectory 0:30 200:30 50) )
          ?callback "abWriteLibGDS1()"
        ); hiCreateAppForm
 
           
     ); let

);procedure

 procedure(CCSchangeDirectory()
  let( (origRundirectory)
    when(boundp('CCScelltoGdsForm) && CCScelltoGdsForm
      origRundirectory= CCScelltoGdsForm->rundirectory->value
      CCScelltoGdsForm->rundirectory->value = origRundirectory
      unless(CCScelltoGdsForm->currentRundirectory == CCScelltoGdsForm->rundirectory->value
        CCScelltoGdsForm->currentRundirectory = CCScelltoGdsForm->rundirectory->value
      ); unless
      ;applyEnterFun(form)
    ); when the form exists
  ); let
); procedure CCSchangeMetBusWidth




procedure(CCSgdsDoneProc( done )
  let( ( form )
    when(boundp('CCSgdsForm) && CCSgdsForm
      form   = CCSgdsForm
      if(done then
            form->currentRundirectory = nil
              CCSgdsCB(
             form->rundirectory~>value
             )
       ); if done
    ); when form exists
  ); let
); procedure


procedure(abWriteLibGDS1()

/* abWriteLibGDS.il

 

Author     A.D.Beckett

Group      Custom IC (UK), Cadence Design Systems Ltd.

Language   SKILL

Date       Mar 05, 2002

Modified 

By       

 

To use this, Save a template from the File->Export Stream form,

which contains any layer maps etc that you want to use. Then

you can run the code by doing:

 

abWriteLibGDS("libName" "/path/to/template/file")

 

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

 

SCCS Info: @(#) abWriteLibGDS.il 03/05/02.10:52:04 1.1

 


 

/***************************************************************

*                                                              *

*     abWriteLibGDS(libName fileOrDPL [?viewName "layout"      *

*                       ?suffix ".gds")                        *

*                                                              *

*    Writes out GDS files for all layout views in a library    *

*                                                              *

***************************************************************/

 abWriteLibGDS(CCScelltoGdsForm->library->value "venus.il")

)
procedure(abWriteLibGDS(

    libName fileOrDPL @key (viewName "layout") (suffix ".gds")

    )

    let((streamOutKeys)

        if(stringp(fileOrDPL) && isFile(fileOrDPL) then

            loadi(fileOrDPL)

        else

            streamOutKeys=fileOrDPL

        ) ; if

        foreach(cell ddGetObj(libName)~>cells

            when(ddGetObj(libName cell~>name viewName "master.tag")

                abWriteCellGDS(libName cell~>name viewName streamOutKeys suffix)

            ) ; when

        ) ; foreach

        t

    ) ; let

) ; procedure

 

/*****************************************************************

*                                                                *

* abWriteCellGDS(libName cellName viewName streamOutKeys suffix) *

*                                                                *

*    Given the library, cell and view names, and a DPL of the    *

*     template file data, the suffix to apply to the files,      *

*    write out a stream file. This is done by creating a new     *

*  template file, and invoking "pipo strmout", and waiting for   *

*                          the results.                          *

*                                                                *

*****************************************************************/

 

procedure(abWriteCellGDS(libName cellName viewName streamOutKeys suffix)

    let((template fileName ipcId)

        streamOutKeys->libName=libName

        streamOutKeys->primaryCell=cellName

        streamOutKeys->viewName=viewName

        streamOutKeys->outFile=strcat(cellName suffix)

        streamOutKeys->errFile=strcat("PIPO_" cellName ".LOG")

        printf("Writing GDS for %s/%s/%s to %s\n"

            libName cellName viewName

            streamOutKeys->outFile

        ) ; printf

        fileName=makeTempFileName("/tmp/writeCellGDS")

        template=outfile(fileName)

        fprintf(template "streamOutKeys='%L\n" streamOutKeys)

        close(template)

        ipcId=ipcBeginProcess(strcat("pipo strmout " fileName))

        ipcWait(ipcId)

        deleteFile(fileName)

    ) ; let

) ; procedure

);procedure

 procedure(CCSchangeDirectory()
  let( (origRundirectory)
    when(boundp('CCScelltoGdsForm) && CCScelltoGdsForm
      origRundirectory= CCScelltoGdsForm->rundirectory->value
      CCScelltoGdsForm->rundirectory->value = origRundirectory
      unless(CCScelltoGdsForm->currentRundirectory == CCScelltoGdsForm->rundirectory->value
        CCScelltoGdsForm->currentRundirectory = CCScelltoGdsForm->rundirectory->value
      ); unless
      ;applyEnterFun(form)
    ); when the form exists
  ); let
); procedure CCSchangeMetBusWidth




procedure(CCSgdsDoneProc( done )
  let( ( form )
    when(boundp('CCSgdsForm) && CCSgdsForm
      form   = CCSgdsForm
      if(done then
            form->currentRundirectory = nil
              CCSgdsCB(
             form->rundirectory~>value
             )
       ); if done
    ); when form exists
  ); let
); procedure


procedure(abWriteLibGDS1()

/* abWriteLibGDS.il

 

Author     A.D.Beckett

Group      Custom IC (UK), Cadence Design Systems Ltd.

Language   SKILL

Date       Mar 05, 2002

Modified  

By        

 

To use this, Save a template from the File->Export Stream form,

which contains any layer maps etc that you want to use. Then

you can run the code by doing:

 

abWriteLibGDS("libName" "/path/to/template/file")

 

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

 

SCCS Info: @(#) abWriteLibGDS.il 03/05/02.10:52:04 1.1

 


 

/***************************************************************

*                                                              *

*     abWriteLibGDS(libName fileOrDPL [?viewName "layout"      *

*                       ?suffix ".gds")                        *

*                                                              *

*    Writes out GDS files for all layout views in a library    *

*                                                              *

***************************************************************/

 abWriteLibGDS(CCScelltoGdsForm->library->value "venus.il")

)
procedure(abWriteLibGDS(

    libName fileOrDPL @key (viewName "layout") (suffix ".gds")

    )

    let((streamOutKeys)

        if(stringp(fileOrDPL) && isFile(fileOrDPL) then

            loadi(fileOrDPL)

        else

            streamOutKeys=fileOrDPL

        ) ; if

        foreach(cell ddGetObj(libName)~>cells

            when(ddGetObj(libName cell~>name viewName "master.tag")

                abWriteCellGDS(libName cell~>name viewName streamOutKeys suffix)

            ) ; when

        ) ; foreach

        t

    ) ; let

) ; procedure

 

/*****************************************************************

*                                                                *

* abWriteCellGDS(libName cellName viewName streamOutKeys suffix) *

*                                                                *

*    Given the library, cell and view names, and a DPL of the    *

*     template file data, the suffix to apply to the files,      *

*    write out a stream file. This is done by creating a new     *

*  template file, and invoking "pipo strmout", and waiting for   *

*                          the results.                          *

*                                                                *

*****************************************************************/

 

procedure(abWriteCellGDS(libName cellName viewName streamOutKeys suffix)

    let((template fileName ipcId)

        streamOutKeys->libName=libName

        streamOutKeys->primaryCell=cellName

        streamOutKeys->viewName=viewName

        streamOutKeys->outFile=strcat(cellName suffix)

        streamOutKeys->errFile=strcat("PIPO_" cellName ".LOG")

        printf("Writing GDS for %s/%s/%s to %s\n"

            libName cellName viewName

            streamOutKeys->outFile

        ) ; printf

        fileName=makeTempFileName("/tmp/writeCellGDS")

        template=outfile(fileName)

        fprintf(template "streamOutKeys='%L\n" streamOutKeys)

        close(template)

        ipcId=ipcBeginProcess(strcat("pipo strmout " fileName))

        ipcWait(ipcId)

        deleteFile(fileName)

    ) ; let

) ; procedure

1) what is the difference between options and nonoptions form

2)Why do we need  CCSchangeDirectory(),CCSgdsDoneProc() in code.

hi Andrew,

I did what you suggested in before post. I got it . But my form is appears when i opened a cellview. If  cellview is not present, then CIW(5141) shows "nil".  Why it is happening? My code is below

 procedure(gds()
  let( (form)
 if(boundp('CCSgdsForm) && CCSgdsForm then
      form = CCScelltoGdsForm
    else
      form = CCScreategdsForm()
    ); if
    when(hiIsForm(form)
     
  enterString(
        ?prompts list("Enter rundirectory to gds ")
        ?form form
        ;?initProc t_initProcName
        ?doneProc "CCSgdsDoneProc"
        ;?formProc t_formProcName
        ?alwaysMap t
        ?cmdName "CCScelltoGdsForm"
)
    ); when the form exists
  ); let
); procedure CCSmetBus

procedure(CCScreategdsForm()
   let( (rundirectory librarys library form )

librarys=ddGetLibList()~>name
        library = hiCreateCyclicField(
          ?name 'library
          ?choices      librarys
          ?prompt       "Library"
          ?value        car(librarys)
          ?callback     "CCSchangelibrary()"

)
rundirectory=hiCreateStringField(
?name 'rundirectory
?prompt "Rundirectory"
?value  ""
?defValue "."
); hiCreateStringField


 form = hiCreateAppForm(
          ?name 'CCScelltoGdsForm
          ?formTitle "Cell into GDS"
          ?formType     'nonoptions
          ?buttonLayout 'OKCancelApply
          ?fields list(list(library 0:0 200:30 50)
                list(rundirectory 0:30 200:30 50) )
          ?callback "abWriteLibGDS1()"
        ); hiCreateAppForm
 
            
     ); let

);procedure

 procedure(CCSchangeDirectory()
  let( (origRundirectory)
    when(boundp('CCScelltoGdsForm) && CCScelltoGdsForm
      origRundirectory= CCScelltoGdsForm->rundirectory->value
      CCScelltoGdsForm->rundirectory->value = origRundirectory
      unless(CCScelltoGdsForm->currentRundirectory == CCScelltoGdsForm->rundirectory->value
        CCScelltoGdsForm->currentRundirectory = CCScelltoGdsForm->rundirectory->value
      ); unless
      ;applyEnterFun(form)
    ); when the form exists
  ); let
); procedure CCSchangeMetBusWidth




procedure(CCSgdsDoneProc( done )
  let( ( form )
    when(boundp('CCSgdsForm) && CCSgdsForm
      form   = CCSgdsForm
      if(done then
            form->currentRundirectory = nil
              CCSgdsCB(
             form->rundirectory~>value
             )
       ); if done
    ); when form exists
  ); let
); procedure


procedure(abWriteLibGDS1()

/* abWriteLibGDS.il

 

Author     A.D.Beckett

Group      Custom IC (UK), Cadence Design Systems Ltd.

Language   SKILL

Date       Mar 05, 2002

Modified  

By        

 

To use this, Save a template from the File->Export Stream form,

which contains any layer maps etc that you want to use. Then

you can run the code by doing:

 

abWriteLibGDS("libName" "/path/to/template/file")

 

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

 

SCCS Info: @(#) abWriteLibGDS.il 03/05/02.10:52:04 1.1

 


 

/***************************************************************

*                                                              *

*     abWriteLibGDS(libName fileOrDPL [?viewName "layout"      *

*                       ?suffix ".gds")                        *

*                                                              *

*    Writes out GDS files for all layout views in a library    *

*                                                              *

***************************************************************/

 abWriteLibGDS(CCScelltoGdsForm->library->value "venus.il")

)
procedure(abWriteLibGDS(

    libName fileOrDPL @key (viewName "layout") (suffix ".gds")

    )

    let((streamOutKeys)

        if(stringp(fileOrDPL) && isFile(fileOrDPL) then

            loadi(fileOrDPL)

        else

            streamOutKeys=fileOrDPL

        ) ; if

        foreach(cell ddGetObj(libName)~>cells

            when(ddGetObj(libName cell~>name viewName "master.tag")

                abWriteCellGDS(libName cell~>name viewName streamOutKeys suffix)

            ) ; when

        ) ; foreach

        t

    ) ; let

) ; procedure

 

/*****************************************************************

*                                                                *

* abWriteCellGDS(libName cellName viewName streamOutKeys suffix) *

*                                                                *

*    Given the library, cell and view names, and a DPL of the    *

*     template file data, the suffix to apply to the files,      *

*    write out a stream file. This is done by creating a new     *

*  template file, and invoking "pipo strmout", and waiting for   *

*                          the results.                          *

*                                                                *

*****************************************************************/

 

procedure(abWriteCellGDS(libName cellName viewName streamOutKeys suffix)

    let((template fileName ipcId)

        streamOutKeys->libName=libName

        streamOutKeys->primaryCell=cellName

        streamOutKeys->viewName=viewName

        streamOutKeys->outFile=strcat(cellName suffix)

        streamOutKeys->errFile=strcat("PIPO_" cellName ".LOG")

        printf("Writing GDS for %s/%s/%s to %s\n"

            libName cellName viewName

            streamOutKeys->outFile

        ) ; printf

        fileName=makeTempFileName("/tmp/writeCellGDS")

        template=outfile(fileName)

        fprintf(template "streamOutKeys='%L\n" streamOutKeys)

        close(template)

        ipcId=ipcBeginProcess(strcat("pipo strmout " fileName))

        ipcWait(ipcId)

        deleteFile(fileName)

    ) ; let

) ; procedure

1) what is the need of  CCSchangeDirectory(),CCSgdsDoneProc in above cod.

2) what is the difference between nonoptions and options form