{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, en} yes yes repArray {} {}"} { ("eval" body line 1)} { invoked from within} {"eval $virtualRepList"} { (procedure "or" line 6)} { invoked from within} {"or [list Search [list textlanguage, en ] yes yes 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, en or not textlanguage, * and {resumeid, 8JMKD3MGP5W/3C9JH3P and referencetype, Book Section,}} yes yes 1 ..."} { ("eval" body line 1)} { invoked from within} {"eval $cmd"}>} {<{ServeLocalCollection (5):} {catched error from mtc-m21d.sid.inpe.br} {too many nested evaluations (infinite loop?)} { while executing} {"regexp {([^ ]*) +(.*)} $string m field words"} { 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 {resumeid, 8JMKD3MGP5W/3C9JH3P} yes yes repArray {} {}"} { ("eval" body line 1)} { invoked from within} {"eval $virtualRepList"} { (procedure "or" line 6)} { invoked from within} {"or [list Search [list resumeid, 8JMKD3MGP5W/3C9JH3P ] yes yes 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 "MountSearch" line 26)} { invoked from within} {"MountSearch $string $accent $case $arrayName $codedPassword {} $listOfWordsFlag $arrayNamesMode"} { (procedure "Search" line 65)} { invoked from within} {"Search {{resumeid, 8JMKD3MGP5W/3C9JH3P and referencetype, Book Section,}} yes yes repArray {} {}"} { ("eval" body line 1)} { invoked from within} {"eval $virtualRepList"} { invoked from within} \"if\ \[regexp\ \{^not\ \}\ \$virtualRepList\]\ \{ {# and not} { if $listOfWordsFlag {return}} { } { set list2 [lindex $virtualRepList 1]} { foreach element $searchResu..."} { (procedure "and" line 8)} { invoked from within} {"and [list Search [list {resumeid, 8JMKD3MGP5W/3C9JH3P and referencetype, Book Section,} ] yes yes 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, en or not textlanguage, * and {resumeid, 8JMKD3MGP5W/3C9JH3P and referencetype, Book Section,}} yes yes 1 ..."} { ("eval" body line 1)} { invoked from within} {"eval $cmd"}