@@ -2026,31 +2026,14 @@ private command addToDictionaryFromFolder pFolder, pDefaults, @xLibraryA
20262026 get files (pFolder )
20272027 filter it with "*.lcdoc"
20282028 repeat for each line tFile in it
2029- local tText , tParsedA , tDisplayName , tSynonymA
2029+ local tText , tParsedA
20302030 wait 0 with messages
20312031 put docsFileGetUTF8Contents(pFolder & slash & tFile , true ) into tText
20322032 put revDocsParseDocText(tText , pFolder & slash & tFile , pDefaults ) into tParsedA
20332033 repeat for each element tDoc in tParsedA ["doc" ]
2034- put tDoc ["display name" ] into tDisplayName
20352034 -- TODO: Work out why something empty is returned
2036- if tDisplayName is empty then next repeat
2035+ if tDoc [ "display name" ] is empty then next repeat
20372036 addToList tDoc , xLibraryA
2038- -- BWM fix for Bug 18305
2039- -- add an additional entry to dictionary for each synonym to allow keyword search
2040- if tDoc ["Synonyms" ] is not empty then
2041- put tDoc ["Synonyms" ] into tSynonymA
2042- repeat for each element tSynonymName in tSynonymA
2043- local tSynonymDoc
2044- if tSynonymName is tDisplayName then next repeat -- glossary entries include themselves
2045- put tDoc into tSynonymDoc
2046- put tSynonymName into tSynonymDoc ["display name" ]
2047- if tDoc ["Type" ] is not "glossary" then
2048- put " (Synonym of " & tDisplayName & ")" after tSynonymDoc ["display name" ]
2049- end if
2050- addToList tSynonymDoc , xLibraryA
2051- end repeat
2052- end if
2053- -- end fix for Bug 18305
20542037 end repeat
20552038 end repeat
20562039end addToDictionaryFromFolder
0 commit comments