CDL extraction

hi,

We have the skill to  extract multiple cells from the celllist from the shell. We need to export its cdl from the corresponding schematics. Is there any way to put this extraction on queue.We get only first cell of the cell list is exported. Before the previous cell is extracted the cdl export of next cell is commenced.

i am posting my skill below

procedure(CDLOutData()

let((cv)

cv = ""

 inPort = infile( "~/SKILL/celllist" )

when( inPort

while( gets( nextLine inPort )

lineData = parseString(nextLine "\n")

 Data=car( lineData)

 if( Data != nil

then

cv=dbOpenCellViewByType("LIB" Data "schematic")

if(cv == nil

then

             printf(Data)

print( "No cdl" )

 else

  printf(Data)

print( "cdl is present" )

CdlOut_Assign(cv)

) )

)

close( inPort )

)

 );let

);procedure

procedure( CdlOut_Assign(cv)

hiFormDone(transCdlOutForm)

 let((cdl_path cdl_name cdl_value)

cdl_name = cv->cellName

cdl_value = buildString(list(cdl_name "cdl") ".")

out_file = outfile("output.il")

fprintf(out_file "cdlOutKeys = list(nil\n'simLibName \"%s\" \n'simCellName \"%s\" \n'simViewName \"%s\" \n'cdlSimViewList \"auCdl schematic\" \n'cdlSimStopList \"auCdl\" \n'simRunDir \"%s\" \n'hnlNetlistFileName \"%s\" \n'cdsNetlistingMode \"Analog\" \n'shortRES 0.0 \n'resistorModel \"\" \n'setEQUIV \"\" \n'incFILE \"/~/source.added\" \n'globalPowerSig \"\" \n'globalGndSig \"\" \n'resistorCheck \"value\" \n'capacitorCheck \"value\" \n'pinMAP t \n'shrinkFACTOR 0.0 \n'diodeCheck \"both\" \n'checkScale \"meter\" \n'displayPININFO nil \n'checkLDD t\n )" cv->libName cv->cellName cv->viewName cdl_outForm~>CDLPath~>value cdl_value)

close(out_file)

transCdlOutGetProps("output.il")

);let

);procedure

string_v = nil

InputField=hiCreateStringField(

?name 'CDLPath

?prompt "CDL Path :"

?value ""

?defValue ""

?callback ""

)

hiCreateAppForm( ?name 'cdl_outForm

?formTitle "CDL Path"

?callback "assignment_cdl()"

?fields list( InputField )

)

status = hiDisplayForm( cdl_outForm )

procedure(assignment_cdl()

string_v=cdl_outForm~>CDLPath~>value

if( string_v != nil

then

CDLOutData()

)

)