nobody is responsing... but, I found the same problem in (set-header!) in the spiffy egg. - (match (string-match "([-_A-Z0-9a-z]+)\\:[ \t]*([^ \t].*)" header) + (match (string-match "([_A-Z0-9a-z---]+)\\:[ \t]*([^ \t].*)" header)
Wondering if there are the same things somewhere else. Daishi At Wed, 09 Nov 2005 00:18:54 +0900, Daishi Kato wrote: > > [1 <text/plain; US-ASCII (7bit)>] > I did a trick. It should now work with pregexp, > but I would like to confirm the author's intention, > --- if there are other limitations. > > See the attached file. > Daishi > > At Tue, 08 Nov 2005 22:35:00 +0900, > Daishi Kato wrote: > > > > One more thing: > > > > url egg is not supported on windows? > > > > It says; > > Error: sorry - URL parsing is currently not available with pregexp > > > > Is there a regex library other than pregexp, > > or how is it difficult for url.scm to suppport it? > > > > I'm almost spamming this list, so much for now. > > Daishi > [2 url.scm.patch <application/octet-stream (8bit)>] > --- url.scm.bak 2005-11-08 23:57:40.256281600 +0900 > +++ url.scm 2005-11-09 00:07:04.818081600 +0900 > @@ -38,11 +38,11 @@ > (export url? url-scheme url-user url-password url-host url-host url-port > url-path url-typecode > url->string url url-decode url-encode) ) > > -(define name-chars "[-A-Za-z0-9.+%]+") > -(define path-chars "[-A-Za-z0-9.~/+%]+") > +(define name-chars "[A-Za-z0-9---.+%]+") > +(define path-chars "[A-Za-z0-9---.~/+%]+") > > -(when (memq #:pregexp ##sys#features) > - (error "sorry - URL parsing is currently not available with pregexp") ) > +;(when (memq #:pregexp ##sys#features) > +; (error "sorry - URL parsing is currently not available with pregexp") ) > > (define url-regex > (regexp _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
