steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove http.client => logging dependency

db4
Slava Pestov 2008-10-02 03:38:09 -05:00
parent 1ef5dbe3fb
commit 15eaf33ee8
3 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/http/http.factor
View File

@ -3,7 +3,7 @@
USING: accessors kernel combinators math namespaces make USING: accessors kernel combinators math namespaces make
assocs sequences splitting sorting sets debugger assocs sequences splitting sorting sets debugger
strings vectors hashtables quotations arrays byte-arrays strings vectors hashtables quotations arrays byte-arrays
math.parser calendar calendar.format present urls logging math.parser calendar calendar.format present urls
io io.encodings io.encodings.iana io.encodings.binary io io.encodings io.encodings.iana io.encodings.binary
io.encodings.8-bit io.encodings.8-bit
@ -96,8 +96,6 @@ TUPLE: cookie name value version comment path domain expires max-age http-only s
drop drop
] { } make ; ] { } make ;
\ parse-cookie DEBUG add-input-logging
: check-cookie-string ( string -- string' ) : check-cookie-string ( string -- string' )
dup "=;'\"\r\n" intersect empty? dup "=;'\"\r\n" intersect empty?
[ "Bad cookie name or value" throw ] unless ; [ "Bad cookie name or value" throw ] unless ;

4
basis/http/parsers/parsers.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit math math.order math.parser USING: combinators.short-circuit math math.order math.parser
kernel sequences sequences.deep peg peg.parsers assocs arrays kernel sequences sequences.deep peg peg.parsers assocs arrays
hashtables strings unicode.case namespaces make ascii logging ; hashtables strings unicode.case namespaces make ascii ;
IN: http.parsers IN: http.parsers
: except ( quot -- parser ) : except ( quot -- parser )
@ -61,8 +61,6 @@ PEG: parse-request-line ( string -- triple )
'space' , 'space' ,
] seq* just ; ] seq* just ;
\ parse-request-line DEBUG add-input-logging
: 'text' ( -- parser ) : 'text' ( -- parser )
[ ctl? ] except ; [ ctl? ] except ;

2
basis/http/server/server.factor
View File

@ -24,6 +24,8 @@ html.elements
html.streams ; html.streams ;
IN: http.server IN: http.server
\ parse-cookie DEBUG add-input-logging
: check-absolute ( url -- url ) : check-absolute ( url -- url )
dup path>> "/" head? [ "Bad request: URL" throw ] unless ; inline dup path>> "/" head? [ "Bad request: URL" throw ] unless ; inline