more private words
parent
eb7a344e00
commit
460ce6ec93
|
@ -55,8 +55,6 @@ TUPLE: multipart-stream stream n leftover separator ;
|
||||||
stream dup [ read-n ] [ separator>> ] bi quot1 multipart-step
|
stream dup [ read-n ] [ separator>> ] bi quot1 multipart-step
|
||||||
swap [ drop stream quot1 multipart-step-loop ] when ; inline recursive
|
swap [ drop stream quot1 multipart-step-loop ] when ; inline recursive
|
||||||
|
|
||||||
PRIVATE>
|
|
||||||
|
|
||||||
SYMBOL: header
|
SYMBOL: header
|
||||||
SYMBOL: parsed-header
|
SYMBOL: parsed-header
|
||||||
SYMBOL: magic-separator
|
SYMBOL: magic-separator
|
||||||
|
@ -95,6 +93,8 @@ TUPLE: uploaded-file path filename name ;
|
||||||
uploaded-file boa ,
|
uploaded-file boa ,
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
PRIVATE>
|
||||||
|
|
||||||
: parse-multipart ( stream -- array )
|
: parse-multipart ( stream -- array )
|
||||||
[
|
[
|
||||||
"\r\n" <multipart-stream>
|
"\r\n" <multipart-stream>
|
||||||
|
|
Loading…
Reference in New Issue