TCL script to read OLB library file and generate list of the symbols into text file

Hi CadAP,

here's the code, not sure if i doing wrong. Thanks

set dirName {C:/SPB_Data/Capture_Lib} ; # provide your library location.

set lSession $::DboSession_s_pDboSession
DboSession -this $lSession
set lStatus [DboState]
set lNullObj NULL
namespace eval readOlb {} {
# variable dir [file normalize [info script]]
set dirName {C:/SPB_Data/Capture_Lib}
# variable dirName [file dirname $dir]
catch { variable fileData [glob -directory $dirName *.olb] } filereaderror
}
set lSymbollist {}
set lFile [open "$readOlb::dirName/Symbol.txt" a+]
foreach olb $readOlb::fileData {
puts $lFile $olb
set libname [DboTclHelper_sMakeCString $olb]
set lDboLibrary [DboSession_GetLib $lSession $libname $lStatus]
set lib1 [$lDboLibrary GetContainingLib]
set partName [DboTclHelper_sMakeCString ]
set pkgIter [$lDboLibrary NewPackagesIter $lStatus]
set pPkg [$pkgIter NextPackage $lStatus]
set lNullObj NULL
while {$pPkg!=$lNullObj} {
$pPkg GetName $partName
# puts "partName : [DboTclHelper_sGetConstCharPtr $partName]"
puts $lFile "PartName : [DboTclHelper_sGetConstCharPtr $partName]"
set pPkg [$pkgIter NextPackage $lStatus]
}
# puts $lDboLibrary
delete_DboLibPackagesIter $pkgIter
}
close $lFile
$lSession RemoveLib $lDboLibrary

Hi CadAP,

after restarting the capture the code works fine. 
maybe i just typed the wrong way earlier.
code gives output i want.
Thank you the Help!

HI Fseyer,

I see you have added below variable at two place:

set dirName {C:/SPB_Data/Capture_Lib} ; # provide your library location. --> Please remove this one, I have added just for your example.

set dirName {C:/SPB_Data/Capture_Lib} ;#--> This one is correct (defined under namespace.). Do not remove.

Thanks

Hi CadAP,

yes i removed the example variable and restart my capture then it works fine.

thank you

Hi CadAP,

sorry i got one more thing to ask, how can i run this code standalone?
without opening the capture, can run directly into windows cmd prompt?
my main goal is to incorporate with the allegro skill lisp so i was thinking running TCL into batchscript.

Thanks