{ServeLocalCollection (5):} {catched error from plutao.sid.inpe.br} {too many nested evaluations (infinite loop?)} {    while executing} {"regsub {,$} $words {} words	"} {    invoked from within} \"if\ !\[regexp\ \{_|^\[Bb\]ook,\$|^\[Nn\]ewspaper,\$\}\ \$words\]\ \{ {			regsub {,$} $words {} words	;# Banon Lise,$ -> Banon Lise} {# but Banon,_Lise,$ -> Banon,_Lise,} ...\" {    invoked from within} \"if\ \[regexp\ \{\ and\ |\ or\ \}\ \$string\]\ \{ {# puts $string} #\t\tif\ !\[string\ equal\ \[llength\ \$string\]\ \[llength\ \[join\ \$string\]\]\]\ \{ #\ syntax\ error\ example:\ \{af\ inpe\ ...\" {    (procedure "Search" line 67)} {    invoked from within} {"Search {textlanguage, pt-BR} no no repArray {} {}"} {    ("eval" body line 1)} {    invoked from within} {"eval $virtualRepList"} {    (procedure "or" line 6)} {    invoked from within} {"or [list Search [list textlanguage, pt-BR ] no no repArray {} {}]"} {    ("eval" body line 1)} {    invoked from within} {"eval $statement"} {    ("foreach" body line 26)} {    invoked from within} \"foreach\ statement\ \[lreplace\ \[split\ \$string\ ×\]\ 0\ 0\]\ \{\t\;#\ added\ by\ GPRB\ and\ GJFB\ on\ 2025-03-25 {# puts -1->$statement--} {# puts --$codedPassword--} {#			if..."} {    invoked from within} {"if [regexp {^related:(.*?):(.*?):(.*?):(.*?):(.*?):(.*?):} $string m metadataRep-i language selectedFieldNameList numberOfCombinations importantWordLi..."} {    (procedure "dpi.inpe.br/banon/1999/04.21.17.06::MountSearch" line 26)} {    invoked from within} {"${searchRepository}::MountSearch $entrySearch $accent $case $arrayName $codedPassword $subsetOfGroups"} {    invoked from within} \"if\ \$multipleSearch\ \{ {# multiple search} {		set searchResult [${searchRepository}::MultipleMountSearch $entrySearch $accent $case $arrayName $codedPasswo..."} {    (procedure "GetMetadataRepositories" line 15)} {    invoked from within} \"GetMetadataRepositories\ \{\}\ 4\ \{textlanguage,\ pt-BR\ or\ not\ textlanguage,\ *\ and\ \{k\ _morfologia_matematica\ or\ k\ _mathematical_morphology\ and\ not\ datab\ *\ a...\" {    ("eval" body line 1)} {    invoked from within} {"eval $cmd"}