tbnl-devel July 2006

tbnl-devel@common-lisp.net

4 participants
3 discussions

[tbnl-devel] customisation
by quasi 07 Jul '06

07 Jul '06

Hey, I have deployed a lisp web site app. :) It runs pretty nicely. I am using CMUCL 19c and TBNL 0.9.10. Some of the dynamic pages service 45pages/sec at concurrency of 1000 (ab benchmark). thanks Edi for TBNL and the CMUCL folks for CMUCL. I need now to customize some things. I need to desperately get rid of the Internal Server Error page. If someone types in a url part of which triggers a prefix dispatcher then we get this simple "Internal Server Error" page with a info string at the bottom. I need to change both of these. Any pointers on how to do these things? I redefined the tbnl::tbnl-info-string in my source. Now I get my output string AND the original tbnl string. thanks, -- quasi Utopia Unlimited!

2 2

[tbnl-devel] Re: Quick Question about Dispatch Handlers in TBNL
by Edi Weitz 06 Jul '06

06 Jul '06

Hi! Please use the mailing list for questions about TBNL. On Wed, 5 Jul 2006 22:55:08 -0500, Cameron Desautels <cam(a)apt2324.com> wrote: > I have a quick question about TBNL that I am hoping you wouldn't > mind helping me with. > > I'm a little surprised to see that TBNL does not contain a function > which creates a dispatcher that matches an exact string (rather than > a prefix or a regexp). Perhaps something like this?: > > (defun create-static-dispatcher (str page-function) > "A convenience function which will return a dispatch function > which will return `page-function' whenever the path portion of > the URI matches the string `str'." > (lambda (request) > (if (string= (script-name request) str) > page-function))) > > I'm somewhat curious what the reason for this omission is. Is it > because the same functionality can be achieved with > create-regex-dispatcher given a string with no wildcards? Certainly > that method would be less efficient and isn't as (logically) clear. > Am I missing something? > > Your enlightening reply is appreciated. I've never needed such a function, but as you demonstrate above it is trivial to build it yourself. I could add it to the next release if people feel that it's a worthwhile contribution. Concerning your remark about efficiency: Do you really think that the speed difference between a regex scan and a string comparison (if there is one) would be noticable in a web application? Cheers, Edi.

1 0

[tbnl-devel] Strange encoding problems with SBCL and TBNL
by Dan Beauchesne 05 Jul '06

05 Jul '06

Hi list, I'm running SBCL 0.9.13.52 (same error with 0.9.13 release) and TBNL 0.9.10. I've got a simple page set up that I need to simply print the return value of an external function. That function returns a list containing UTF-8 characters. I've set *show-lisp-errors-p* to T, here is the error: encoding error on stream #<SB-SYS:FD-STREAM for "standard output" {A6877B9}> (:EXTERNAL-FORMAT :ASCII): the character with code 20170 cannot be encoded. I had done some digging on google and found someone in a similar situation with TBNL, and he tried changing his locale LC_ALL to a utf-8 one. The above (:EXTERNAL-FORMAT :ASCII part was :ASCII only after I set my locale to UTF-8, beforehand it was :LATIN-1, which I do not understand. Here is the code, if it helps: (in-package :tbnl-foo) (setq *dispatch-table* (list (create-prefix-dispatcher "/tbnl/foo" 'foo) 'default-dispatcher)) (defun foo () (let ((foo (jalat::search-hash "hello"))) (with-html-output (*standard-output*) (:h2 (str foo))))) (setq *dispatch-table* (nconc (mapcar (lambda (args) (apply #'create-prefix-dispatcher args)) '(("/tbnl/test/" foo))) (list #'default-dispatcher))) The external function simply returns a list of plists containing UTF-8 characters. I also tried setting *tbnl-default-external-format* to no avail. Thanks guys, -- Dan Beauchesne dbeauchesne -at- gmail -dot- com

3 7

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel July 2006