[plt-scheme] Web server and response/basic fields
Found an answer to #2.
Need to recompile the .zo's.
Regards!
Ed
On Sun, 22 May 2005, Edmund Dengler wrote:
> For list-related administrative tasks:
> http://list.cs.brown.edu/mailman/listinfo/plt-scheme
>
> Greetings!
>
> I am trying to access the fields of a "response" structure returned by
> "make-response/full".
>
> (require (lib "response.ss" "web-server"))
>
> (define x (make-response/full
> 200 "OK" (current-seconds) #"text/html" '()
> (list "<html><body>Hello</body></html>")))
>
> (display x)(newline)
> (display (response/full-body x))(newline)
> (display (response/basic-extras x))(newline)
>
> I get the following output:
> #<struct:response/full>
> (<html><body>Hello</body></html>)
> reference to undefined identifier: response/basic-extras
>
> Similar results if I change "response/basic-extras" to
> "response/full-extras".
>
> Looking at "response.ss", it looks like "response/basic" is not provided.
>
> I added an extra section to the start of "provide/contract":
>
> [struct response/basic
> ([code number?]
> [message string?]
> [seconds number?]
> [mime bytes?]
> [extras (listof (cons/c symbol? string?))])]
>
> and when a reran the test, I get:
> #<struct:response/full>
> (<html><body>Hello</body></html>)
> ()
>
> (as expected).
>
> Question #1: Should the "response/full" have provided the "response/basic"
> accessor functions?
>
> However, when I try to run the web server, I now get:
>
> compile: variable not provided (directly or indirectly and at the expected position) from module: |,/opt/pkgs/mzscheme/current/collects/web-server/response| in: provide/contract-contract-id-TEXT/HTML-MIME-TYPE.50
>
> I tried moving the section around (even sticking it in a separate
> "provide/contract" clause), but get similar errors, eg:
>
> compile: variable not provided (directly or indirectly and at the expected position) from module: |,/opt/pkgs/mzscheme/current/collects/web-server/response| in: TEXT/HTML-MIME-TYPE
>
> Question #2: Any ideas on how to fix this issue? Or where to look?
>
> Regards!
> Ed
>
>