Moved files to private; new help-desk.ss

original commit: c2a637dafc1bcff2dc20eaaa35eaea9dfd1e44a1
This commit is contained in:
Paul Steckler 2002-07-01 20:06:03 +00:00
parent 0107648eac
commit 7c15d8c584
2 changed files with 20 additions and 8 deletions

View File

@ -3,8 +3,8 @@
(lib "util.ss" "web-server")
(lib "configuration.ss" "web-server")
(lib "configuration-structures.ss" "web-server")
(lib "server.ss" "help")
(lib "browser.ss" "help"))
"private/server.ss"
"private/browser.ss")
(require (lib "exit.ss" "help" "servlets" "private"))

View File

@ -2,16 +2,28 @@
(require (lib "string-constant.ss" "string-constants")
"docpos.ss"
"colldocs.ss"
"server.ss"
"browser.ss"
(lib "list.ss")
(lib "util.ss" "help" "servlets" "private")
(lib "server.ss" "help")
(lib "browser.ss" "help"))
(lib "specs.ss" "framework"))
(provide do-search
doc-collections-changed
search-for-docs)
; hd-cookie string sym sym any -> void
doc-collections-changed)
(provide/contract
(search-for-docs
(hd-cookie? string?
(lambda (s)
(member s
'("keyword" "keyword-index" "keyword-index-text")))
(lambda (s)
(member s
'("exact-match" "containing-match" "regexp-match")))
any?
. -> . any?)))
; hd-cookie string string string any -> void
; shows search result in default browser
(define (search-for-docs cookie search-string search-type match-type lucky?)
(let* ([port (hd-cookie->port cookie)]