Library of all instances

 Hello sir ,

I would like to ask, how can I display the library 

of all the instances in my libray by using SKILL ?

 

I've got a skill code below from one of my officemate, 

but I think it is not running very well.  It can not display the library 

of all the instances . 

 

Please help. 

 

Thanks in advance . 

 

Marbs

 

 

 

;;;============================================================================================
;;; procedure name        : vxl_GetlibName
;;;    argument(inputs)
;;;    retern
;;;    function
;;;    history
;;;        06/4/05
;;;============================================================================================
procedure(test()
let((
    libName_Field
    uncomparisonLibName_Fild
    getLibName_Form
    )

    libName_Field = hiCreateStringField(
        ?name        'libName_Field
        ?prompt        "Library Name"
        ?value        ""
    )

    uncomparisonLibName_Fild = hiCreateStringField(
        ?name        'uncomparisonLibName_Fild
        ?prompt        "Uncomparison Library"
        ?value        ""
    )


    getLibName_Form = hiCreateAppForm(
        ?name            'getLibName_Form
        ?buttonLayout    'OKCancelApply
        ?fields            list(
                            list(libName_Field                0:10    350:25    150)
                            list(uncomparisonLibName_Fild    0:40    350:25    150)
                        )    
        ?callback        "GetlibName()"
        ?formTitle        "Get Cell Library Name"
    )

    hiDisplayForm(getLibName_Form)

);let
);procedure




procedure(GetlibName()
prog((
    libName
    uncomparisonLibName
    l_uncomparisonLibName
    lib_id
    cv_open
    outPort)

;;; get parameter value
    libName = getLibName_Form->libName_Field->value
    uncomparisonLibName = getLibName_Form->uncomparisonLibName_Fild->value

;;; change ""--->list()
    l_uncomparisonLibName = parseString(uncomparisonLibName)

;;; check libName
    unless(parseString(libName)
        println("********* Error : Input Library Name *********")
        return(nil)
    )
    
;;; get lib_id
    lib_id    = ddGetObj(libName)
    outPort = outfile("./libName.txt" "w")

foreach(cell lib_id~>cells
    ;;; open cv
    cv_open = dbOpenCellViewByType(lib_id cell~>name "layout" "" "r")

/*
    println("-----------------------------------------------------------------------------")
    println(cell~>name)
    fprintf(outPort "-----------------------------------------------------------------------------\n")
    fprintf(outPort "%s \n" cell~>name)
*/

    if(cv_open == nil then
        println("-----------------------------------------------------------------------------")
        println(cell~>name)
        fprintf(outPort "-----------------------------------------------------------------------------\n")
        fprintf(outPort "%s \n" cell~>name)
        println("********* Error *********")
        fprintf(outPort "********* Error *********\n")
    else
/*
        println("-----------------------------------------------------------------------------")
        println(cell~>name)
        fprintf(outPort "-----------------------------------------------------------------------------\n")
        fprintf(outPort "%s \n" cell~>name)
*/
        foreach(int cv_open~>instances
            unless(member(int~>libName l_uncomparisonLibName) ;int~>libName == pdk_name
                println("-----------------------------------------------------------------------------")
                println(cell~>name)
                fprintf(outPort "-----------------------------------------------------------------------------\n")
                fprintf(outPort "%s \n" cell~>name)
                printf("%s %s \n" int~>libName int~>cellName)
                fprintf(outPort "%s %-20s \n" int~>libName int~>cellName)
            
            
    
            
            
            );unless

    
    
    
    
            
            
            
        );foreach
        
        
        
        
    ;;sprintf( reportFile "./countFile.tmp")
    ;cqsh("touch ./countFile.tmp")
    outPort = outfile("./countFile.tmp")
    ;;outPort = outfile(reportFile)
    fprintf(outPort "  \n  ELEMENTS LIBRARY:\n")
    fprintf(outPort "\n ============================================================\n" )
    fprintf(outPort "  Cell Name       Library Name      Master Name")
    
    fprintf(outPort "\n ============================================================\n" )
    
    
    
    foreach(int cv_open~>instances
            unless(member(int~>libName l_uncomparisonLibName) ;int~>libName == pdk_name
                println("-----------------------------------------------------------------------------")
                println("  ")
                
                println(cell~>name)
                
                fprintf(outPort "  ")
                fprintf(outPort "%s   |" cell~>name)
                printf("%s %s \n" int~>libName int~>cellName)
                ;fprintf(outPort "%s %-20s \n" int~>libName int~>cellName)
                   
                   
                   
                    fprintf(outPort "  %s  " int~>libName )
                    fprintf(outPort "         ")
                    
                    fprintf(outPort "|  %s    \n" int~>cellName )
            
                            fprintf(outPort " --------------+-----------------+---------------------------\n")
                
            
            
            );unless

    
    
    
    
            
            
            
        );foreach
    
    
    
    
    
    fprintf(outPort " ============================================================\n" )
    fprintf(outPort "            List of Elements Library ends here .  " )
    fprintf(outPort "\n ============================================================\n" )
    close( outPort)
    view("./countFile.tmp" list(0:0 500:683) "ELEMENTS LIBRARY")
    ;csh("/bin/rm ./countFile.tmp")
    t
        
        
        
        
        
    
        
        
        
        
        
    );if
    
);foreach

println(";;;;;;;;;;;;;;; End ;;;;;;;;;;;;;;;")
;fprintf(outPort "%s\n" ";;;;;;;;;;;;;;; End ;;;;;;;;;;;;;;;")

;close(outPort)



);let
);procedure