How to add a menu item to the export in CIW

 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 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.