SKILL pCell STREAM OUT failure

Hello,

A pCell fails during stream out stage.

(unsupported XStream function in Pcell SKILL)

All functions behaves normal during testing and are taken from previous Cadence development. The pCell also fails manual stream out procedure.

Thanks for your help...

Danny

-----------------------------------------------------------------------------------------------

procedure(CCScreateBoxAndLabels(cv w l lay)
  let( (rectRodObj)
  ;; create a rectangle on metal1 with x & y dimensions set by w & l
  rectRodObj = rodCreateRect(
      ?name     "myRect"
      ?cvId     cv
      ?layer    lay ; list("Metal1" "drawing")
      ?width    w
      ?length   l
      ?origin   list(0 0)
  )
  ;; create labels to show the w and l parameters
  dbCreateLabel(cv list("text" "drawing") list(0 0)
    sprintf(nil "%2.8f" w) "lowerLeft" "R0" "stick" 0.05)
  dbCreateLabel(cv list("text" "drawing") list(0 0.2)
    sprintf(nil "%2.8f" l) "lowerLeft" "R0" "stick" 0.05)
  ;; create a stretch handle for the width, in the X dimension, it
  ;; will display as "width = <value>" and change by 0.1 increments
  rodAssignHandleToParameter(
    ?parameter          "w"
    ?rodObj             rectRodObj
    ?handleName         "centerRight"
    ?stretchDir         "X"
    ?displayName        "width"
    ?displayExpression  "w"
    ?updateIncrement    0.1
  ); rodAssignHandleToParameter
  ); let
); procedure CCScreateBoxAndLabels


procedure(createDRBox(cv w l lay objName orig)
  let( (rectRodObj)
  ;; create a rectangle on metal1 with x & y dimensions set by w & l
  rectRodObj = rodCreateRect(
      ?name     objName
      ?cvId     cv
      ?layer    lay
      ?width    M1w
      ?length   M1l
      ?origin   orig
  )
  ;; create a stretch handle for the width, in the X dimension, it
  ;; will display as "width = <value>" and change by 0.1 increments
  rodAssignHandleToParameter(
    ?parameter          "w"
    ?rodObj             rectRodObj
    ?handleName         "centerRight"
    ?stretchDir         "X"
    ?displayName        "width"
    ?displayExpression  "w"
    ?updateIncrement    0.1
  ); rodAssignHandleToParameter

  ); let
); procedure


procedure(placeContactsNP(Width Length)

prog( (i j)

i=0
j=0.060

x=1.070
y=1.070

;----------------
; Bottom Part
;----------------
; First Row
while( x < Width-1.070
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while

; Second Row
x=1.370
y=1.370
while( x < Width-1.370
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while

; Third Row
x=1.670
y=1.670
while( x < Width-1.670
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while

; Fourth Row
x=1.970
y=1.970
while( x < Width-1.970
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while

; Fifth Row
x=2.270
y=2.270
while( x < Width-2.270
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while



;----------------
; Top Part
;----------------
; First Row
x=1.255
y=l-1.070
while( x < Width-1.255
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
x=x+0.185
) ;while

; Second Row
x=1.555
y=l-1.370
while( x < Width-1.555
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
x=x+0.185
) ;while

; Third Row
x=1.855
y=l-1.670
while( x < Width-1.855
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
x=x+0.185
) ;while


; Fourth Row
x=2.155
y=l-1.970
while( x < Width-2.155
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
x=x+0.185
) ;while

; Fifth Row
x=2.455
y=l-2.270
while( x < Width-2.455
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
x=x+0.185
) ;while



;----------------
; Left Part
;----------------
; First Row
x=1.070
y=1.255
while( y < Length-1.255
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

; Second Row
x=1.370
y=1.550
while( y < Length-1.550
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

; Third Row
x=1.670
y=1.855
while( y < Length-1.855
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

; Fourth Row
x=1.970
y=2.155
while( y < Length-2.155
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

; Fifth Row
x=2.270
y=2.455
while( y < Length-2.455
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while



;----------------
;  Right Part
;----------------
; First Row
x=w-1.070
y=1.312
while( y < Length-1.312
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
y=y+0.185
) ;while

; Second Row
x=w-1.370
y=1.610
while( y < Length-1.610
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
y=y+0.185
) ;while


; Third Row
x=w-1.670
y=1.915
while( y < Length-1.915
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
y=y+0.185
) ;while

; Fourth Row
x=w-1.970
y=2.215
while( y < Length-2.215
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
y=y+0.185
) ;while

; Fifth Row
x=w-2.270
y=2.515
while( y < Length-2.515
dbCreateRect(cv list("CO" "drawing") list((x:y) (x-j:y-j)))
y=y+0.185
) ;while



) ;prog

);proc



procedure(placeContactsPP(Width Length)

prog( (i j)

i=0
j=0.060

x=-1.325
y=-1.325

;----------------
; Bottom Part
;----------------
; First Row
while( x < Width+1.380
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while
; Second Row
x=-1.325
y=-1.165

while( x < Width+1.38
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while


;----------------
; Top Part
;----------------
; First Row
x=-1.325
y=l+1.105

while( x < Width+1.380
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while
; Second Row
x=-1.325
y=l+1.265

while( x < Width+1.380
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
x=x+0.185
) ;while


;----------------
; Left Part
;----------------
; First Row
x=-1.325
y=-.950

while( y < Length+0.950
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

; Second Row
x=-1.165
y=-.950

while( y < Length+0.950
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

;----------------
;  Right Part
;----------------
; First Row
x=w+1.105
y=-0.950

while( y < Length+0.950
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while

; Second Row
x=w+1.265
y=-0.950

while( y < Length+0.950
dbCreateRect(cv list("CO" "drawing") list((x:y) (x+j:y+j)))
y=y+0.185
) ;while


) ;prog

);proc





;; Create the PCell, the "drawing routine"
;;  
pcDefinePCell(
  list(ddGetObj("testLibDR") "isolationRing" "layout")
  (
    (w 10.0)
    (l 10.0)
;    (Hl 5.0)
;    (Hw 5.0)
;    (He 1.0)
  )
  let( ((cv pcCellView))
    ; Create the FLASH
    dbCreateRect(cv list("FLASH" "drawing") list((0:0) (w:3.4)))

    ; Create the DNW over the FLASH
    dbCreateRect(cv list("DNW" "drawing") list((0:0) (w:l)))

    ; NP Isolation Ring
    ;==================
    ; NP Layer
    dbCreateRect(cv list("NP" "drawing") list((0.760:0.760) (w-0.760:2.640)))

    ; Create the Contacts for the NP Ring
    placeContactsNP(w l)

    ; PP Isolation Ring
    ;==================
    ; PP Layer
    dbCreateRect(cv list("PP" "drawing") list((-1.43:-1.43) (w+1.43:-1)))
 
    ; Create the Contacts for the NP Ring
    placeContactsPP(w l)

  ); let
)

;; Create the CDF for the 'l' and 'w' parameters, the width (w)
;; parameter is either hidden or displayed but not editable.
let( (cellId cdfId)
  when(cellId = ddGetObj("testLibDR" "isolationRing")
    ;; if the cell CDF already exists, delete it
    when( cdfId = cdfGetBaseCellCDF(cellId)
      cdfDeleteCDF(cdfId)
    )
    ;; create the base cell CDF
    cdfId = cdfCreateBaseCellCDF(cellId)
    ;; create the parameters
    ;; BM Layer
    cdfCreateParam( cdfId
      ?name     "l"
      ?prompt   "Ring Length"
      ?defValue 10.0
      ?type     "float"
      ?display  "t"
    )
    cdfCreateParam( cdfId
      ?name     "w"
      ?prompt   "Ring Width"
      ?defValue 10.0
      ?type     "float"
      ;; comment out the next line and uncomment the lines below
      ;; it if the parameter is to be visible but not editable
      ?display "t"
;      ?editable        "nil"
    )

    cdfSaveCDF(cdfId)
  ); when
); let for CDF creation