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

Making http use ASCII rather than Unicode; fixing encodings bug

db4
Daniel Ehrenberg 2009-03-18 18:49:59 -05:00
parent a282789910
commit d5af5027d0
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/http/http.factor
View File

@ -5,8 +5,7 @@ sequences splitting sorting sets strings vectors hashtables
quotations arrays byte-arrays math.parser calendar
calendar.format present urls fry
io io.encodings io.encodings.iana io.encodings.binary
io.encodings.8-bit io.crlf
unicode.case unicode.categories
io.encodings.8-bit io.crlf ascii
http.parsers
base64 ;
IN: http
@ -215,11 +214,10 @@ TUPLE: post-data data params content-type content-encoding ;
: parse-content-type-attributes ( string -- attributes )
" " split harvest [
"=" split1
[ >lower ] [ "\"" ?head drop "\"" ?tail drop ] bi*
"\"" ?head drop "\"" ?tail drop
] { } map>assoc ;
: parse-content-type ( content-type -- type encoding )
";" split1
parse-content-type-attributes "charset" swap at
[ name>encoding ]
[ dup "text/" head? latin1 binary ? ] if* ;
parse-content-type-attributes "charset" swap at name>encoding
[ dup "text/" head? latin1 binary ? ] unless* ;