diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-30 12:49:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-30 12:49:45 +0000 |
commit | 09ad07bc33ad4ce8d7e4ac1f9e5bb5e7cb9a9498 (patch) | |
tree | 1e856a205222688e4e05c7521f21e6166bb7fbfd /src/interp/word.boot | |
parent | 1dad9f2ee595ae4255a7afecc249c4d4a02e148a (diff) | |
download | open-axiom-09ad07bc33ad4ce8d7e4ac1f9e5bb5e7cb9a9498.tar.gz |
* interp/br-data.boot (lefts): Iterate directly over table.
(mkUsersHashTable): Likewise.
(mkDependentsHashTable): Likewise.
(domainsOf): Likewise.
* interp/br-op1.boot (dbShowOpAllDomains): Likewise.
* interp/cattable.boot (showCategoryTable): Likewise.
(displayCategoryTable): Likewise.
(simpTempCategoryTable): Likewise.
(simpCategoryTable): Likewise.
(genTempCategoryTable): Likewise.
(compressHashTable): Likewise.
(updateCategoryTableForCategory): Likewise.
(clearTempCategoryTable): Likewise.
* interp/clam.boot (displayHashtable): Likewise.
(reportHashCacheStats): Likewise.
(reportInstantiations): Likewise.
(globalHashtableStats): Likewise.
* interp/guess.boot (buildWordTable): Likewise.
* interp/i-syscmd.boot (writify): Likewise.
* interp/scan.boot (scanDictCons): Likewise.
(scanPunCons): Likewise.
* interp/slam.boot (hashCount): Likewise.
* interp/topics.boot (mkTopicHashTable): Likewise.
(addTopic2Documentation): Likewise.
(topics): Likewise.
(listOfTopics): Likewise.
* interp/word.boot (buildWordTable): Likewise.
(writeFunctionTables): Likewise.
(bootSearch): Likewise.
Diffstat (limited to 'src/interp/word.boot')
-rw-r--r-- | src/interp/word.boot | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/interp/word.boot b/src/interp/word.boot index 304ad784..ac9132ed 100644 --- a/src/interp/word.boot +++ b/src/interp/word.boot @@ -44,11 +44,10 @@ buildWordTable u == for s in u repeat key := charUpcase stringChar(s,0) tableValue(table,key) := [[s,:wordsOfString s],:tableValue(table,key)] - for key in HKEYS table repeat + for [key,:val] in entries table repeat tableValue(table,key) := listSort(function GLESSEQP,removeDupOrderedAlist - listSort(function GLESSEQP, tableValue(table,key),function first), - function second) + listSort(function GLESSEQP,val,function first),function second) table writeFunctionTables(filemode) == @@ -66,8 +65,8 @@ writeFunctionTable(filemode,name,dicts) == stream:= writeLib1(name,'DATABASE,filemode) if not $functionTable then $functionTable:= buildFunctionTable dicts - for key in HKEYS $functionTable repeat - rwrite(object2Identifier key,tableValue($functionTable,key),stream) + for [key,:val] in entries $functionTable repeat + rwrite(object2Identifier key,val,stream) RSHUT stream 'done @@ -200,8 +199,8 @@ bootSearch word == pattern.0 ~= char "&" => [x for [x,:.] in tableValue($functionTable,UPCASE pattern.0)| match?(pattern,COPY x)] - "append"/[[x for [x,:.] in tableValue($functionTable,k)| match?(pattern,COPY x)] - for k in HKEYS $functionTable] + "append"/[[x for [x,:.] in v | match?(pattern,COPY x)] + for [k,:v] in entries $functionTable] findApproximateWords(PNAME word,$functionTable) list |