suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restored word completion for the full languages (not teaching languages yet)

Browse Source 
svn: r8018
This commit is contained in:
Robby Findler 2007-12-15 21:10:20 +00:00
parent 9a0498b44d
commit f790d7e10e
4 changed files with 2707 additions and 2699 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/language-configuration.ss
View File

@ -1333,7 +1333,7 @@
(let ([words #f]) (let ([words #f])
(λ () (λ ()
(unless words (unless words
(set! words (text:get-completions/manuals #f))) (set! words (text:get-completions/manuals '(scheme/base scheme/contract))))
words))) words)))
;; add-built-in-languages : -> void ;; add-built-in-languages : -> void

7
collects/framework/framework.ss
View File

@ -82,11 +82,12 @@
"" ""
"Defaults to 15.") "Defaults to 15.")
(text:get-completions/manuals (text:get-completions/manuals
(-> (listof string?) (listof string?)) (-> (or/c false/c (listof symbol?)) (listof string?))
(manuals) (manuals)
"Returns the list of keywords for the manuals from \\var{manuals}" "Returns the list of keywords for the manuals from \\var{manuals}"
"by reading them from the \\texttt{keywords}" "by extracting all of the documented exports of the manuals."
"files in the corresponding manuals' directories") "The symbols are meant to be module paths."
"If \\var{manuals} is false, then all of the documented names are used.")
(number-snip:make-repeating-decimal-snip (number-snip:make-repeating-decimal-snip
(number? boolean? . -> . (is-a?/c snip%)) (number? boolean? . -> . (is-a?/c snip%))

5157
collects/framework/private/text.ss
View File

File diff suppressed because it is too large Load Diff

4
collects/lang/htdp-langs.ss
View File

@ -578,7 +578,7 @@
(case key (case key
[(drscheme:autocomplete-words) [(drscheme:autocomplete-words)
(unless keywords (unless keywords
(set! keywords (text:get-completions/manuals (map bytes->string/utf-8 (htdp-manuals))))) (set! keywords (text:get-completions/manuals #f))) ;; complete with everything, which is wrong ..
keywords] keywords]
[(drscheme:teachpack-menu-items) htdp-teachpack-callbacks] [(drscheme:teachpack-menu-items) htdp-teachpack-callbacks]
[(drscheme:special:insert-lambda) #f] [(drscheme:special:insert-lambda) #f]
@ -1392,7 +1392,7 @@
(instantiate htdp-language% () (instantiate htdp-language% ()
(one-line-summary (string-constant advanced-one-line-summary)) (one-line-summary (string-constant advanced-one-line-summary))
(module '(lib "lang/htdp-advanced.ss")) (module '(lib "lang/htdp-advanced.ss"))
(manual #"advanced") ( #"advanced")
(language-position (language-position
(list (string-constant teaching-languages) (list (string-constant teaching-languages)
(string-constant how-to-design-programs) (string-constant how-to-design-programs)