64 lines
		
	
	
		
			2.9 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			64 lines
		
	
	
		
			2.9 KiB
		
	
	
	
		
			Factor
		
	
	
USING: help.markup help.syntax strings generic vectors assocs
 | 
						|
math make ;
 | 
						|
IN: tools.completion
 | 
						|
 | 
						|
ARTICLE: "tools.completion" "Fuzzy completion"
 | 
						|
"Various developer tools make use of a general-purpose fuzzy completion algorithm."
 | 
						|
$nl
 | 
						|
"The main entry point:"
 | 
						|
{ $subsections completions }
 | 
						|
"The words used to implement the algorithm can be called as well, for finer control over fuzzy matching:"
 | 
						|
{ $subsections
 | 
						|
    fuzzy
 | 
						|
    runs
 | 
						|
    score
 | 
						|
    complete
 | 
						|
    rank-completions
 | 
						|
} ;
 | 
						|
 | 
						|
ABOUT: "tools.completion"
 | 
						|
 | 
						|
HELP: fuzzy
 | 
						|
{ $values { "full" string } { "short" string } { "indices" vector } }
 | 
						|
{ $description "If " { $snippet "short" } " can be obtained from " { $snippet "full" } " by removing subsequences, then outputs the index of every character from " { $snippet "short" } " in " { $snippet "full" } ", otherwise outputs " { $link f } "." } ;
 | 
						|
 | 
						|
HELP: runs
 | 
						|
{ $values { "seq" "a sequence of integers" } { "newseq" "a sequence of sequences of integers" } }
 | 
						|
{ $description "Groups subsequences of consecutive integers." }
 | 
						|
{ $examples
 | 
						|
    { $example "USING: prettyprint tools.completion ;" "{ 1 2 3 5 6 9 10 } runs ." "V{ V{ 1 2 3 } V{ 5 6 } V{ 9 10 } }" }
 | 
						|
} ;
 | 
						|
 | 
						|
HELP: score
 | 
						|
{ $values { "full" string } { "fuzzy" "a sequence of sequences of integers" } { "n" integer } }
 | 
						|
{ $description "Ranks " { $snippet "fuzzy" } " by how closely it approximates the sequence " { $snippet "{ { 0 ... n-1 } }" } " where " { $snippet "n" } " is the length of " { $snippet "full" } "." } ;
 | 
						|
 | 
						|
HELP: rank-completions
 | 
						|
{ $values { "results" "an alist" } { "newresults" "an alist" } }
 | 
						|
{ $description "Sorts " { $snippet "results" } " by the first element of each pair, and discards the low 33% of the results." } ;
 | 
						|
 | 
						|
HELP: complete
 | 
						|
{ $values { "full" string } { "short" string } { "score" "a rational number between 0 and 1" } }
 | 
						|
{ $description "Ranks how close " { $snippet "short" } " is to " { $snippet "full" } " by edit distance." } ;
 | 
						|
 | 
						|
HELP: completion
 | 
						|
{ $values { "short" string } { "candidate" "a pair " { $snippet "{ obj full }" } } { "result" "a pair " { $snippet "{ score obj }" } } }
 | 
						|
{ $description "Outputs a pair of two elements:"
 | 
						|
    { $list
 | 
						|
        { "how close " { $snippet "short" } " is to " { $snippet "full" } " by edit distance" }
 | 
						|
        { "the original value of " { $snippet "obj" } }
 | 
						|
    }
 | 
						|
} ;
 | 
						|
 | 
						|
HELP: completion,
 | 
						|
{ $values { "short" string } { "candidate" "a pair " { $snippet "{ obj full }" } } }
 | 
						|
{ $description
 | 
						|
    "Adds the result of " { $link completion }
 | 
						|
    " to the end of the sequence being constructed by " { $link make }
 | 
						|
    " if the score is positive."
 | 
						|
} ;
 | 
						|
 | 
						|
HELP: completions
 | 
						|
{ $values { "short" string } { "candidates" "a sequence of pairs of the shape " { $snippet "{ obj full }" } } { "seq" "a sequence of pairs of the shape " { $snippet "{ score obj }" } } }
 | 
						|
{ $description "Calls " { $link completion } " to produce a sequence of " { $snippet "{ score obj }" } " pairs, then calls " { $link rank-completions } " to sort them and discard the low 33%." } ;
 |