You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
400 lines
12 KiB
400 lines
12 KiB
/* Copyright (c) 2008, 2009 Ryan Dahl (ry@tinyclouds.org)
|
|
*
|
|
* Based on Zed Shaw's Mongrel.
|
|
* Copyright (c) 2005 Zed A. Shaw
|
|
*
|
|
* All rights reserved.
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining
|
|
* a copy of this software and associated documentation files (the
|
|
* "Software"), to deal in the Software without restriction, including
|
|
* without limitation the rights to use, copy, modify, merge, publish,
|
|
* distribute, sublicense, and/or sell copies of the Software, and to
|
|
* permit persons to whom the Software is furnished to do so, subject to
|
|
* the following conditions:
|
|
*
|
|
* The above copyright notice and this permission notice shall be
|
|
* included in all copies or substantial portions of the Software.
|
|
*
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|
* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
* NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
|
* LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
|
* OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
|
* WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
*/
|
|
#include "http_parser.h"
|
|
|
|
#include <stdio.h>
|
|
#include <assert.h>
|
|
#include <string.h>
|
|
|
|
static int unhex[] = {-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1
|
|
,-1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
,-1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
|
|
};
|
|
#define TRUE 1
|
|
#define FALSE 0
|
|
#define MIN(a,b) (a < b ? a : b)
|
|
|
|
#define REMAINING (pe - p)
|
|
#define CALLBACK(FOR) \
|
|
if (parser->FOR##_mark && parser->on_##FOR) { \
|
|
parser->on_##FOR( parser \
|
|
, parser->FOR##_mark \
|
|
, p - parser->FOR##_mark \
|
|
); \
|
|
}
|
|
#define RESET_PARSER(parser) \
|
|
parser->chunk_size = 0; \
|
|
parser->eating = 0; \
|
|
parser->header_field_mark = NULL; \
|
|
parser->header_value_mark = NULL; \
|
|
parser->query_string_mark = NULL; \
|
|
parser->path_mark = NULL; \
|
|
parser->uri_mark = NULL; \
|
|
parser->fragment_mark = NULL; \
|
|
parser->status_code = 0; \
|
|
parser->method = 0; \
|
|
parser->transfer_encoding = HTTP_IDENTITY; \
|
|
parser->version_major = 0; \
|
|
parser->version_minor = 0; \
|
|
parser->number_of_headers = 0; \
|
|
parser->keep_alive = 0; \
|
|
parser->content_length = 0; \
|
|
parser->body_read = 0;
|
|
|
|
#define END_REQUEST \
|
|
if (parser->on_message_complete) { \
|
|
parser->on_message_complete(parser); \
|
|
} \
|
|
RESET_PARSER(parser);
|
|
|
|
|
|
%%{
|
|
machine http_parser;
|
|
|
|
action mark_header_field { parser->header_field_mark = p; }
|
|
action mark_header_value { parser->header_value_mark = p; }
|
|
action mark_fragment { parser->fragment_mark = p; }
|
|
action mark_query_string { parser->query_string_mark = p; }
|
|
action mark_request_path { parser->path_mark = p; }
|
|
action mark_request_uri { parser->uri_mark = p; }
|
|
|
|
action write_field {
|
|
CALLBACK(header_field);
|
|
parser->header_field_mark = NULL;
|
|
}
|
|
|
|
action write_value {
|
|
CALLBACK(header_value);
|
|
parser->header_value_mark = NULL;
|
|
}
|
|
|
|
action request_uri {
|
|
CALLBACK(uri);
|
|
parser->uri_mark = NULL;
|
|
}
|
|
|
|
action fragment {
|
|
CALLBACK(fragment);
|
|
parser->fragment_mark = NULL;
|
|
}
|
|
|
|
action query_string {
|
|
CALLBACK(query_string);
|
|
parser->query_string_mark = NULL;
|
|
}
|
|
|
|
action request_path {
|
|
CALLBACK(path);
|
|
parser->path_mark = NULL;
|
|
}
|
|
|
|
action content_length {
|
|
parser->content_length *= 10;
|
|
parser->content_length += *p - '0';
|
|
}
|
|
|
|
action status_code {
|
|
parser->status_code *= 10;
|
|
parser->status_code += *p - '0';
|
|
}
|
|
|
|
action use_identity_encoding { parser->transfer_encoding = HTTP_IDENTITY; }
|
|
action use_chunked_encoding { parser->transfer_encoding = HTTP_CHUNKED; }
|
|
|
|
action set_keep_alive { parser->keep_alive = TRUE; }
|
|
action set_not_keep_alive { parser->keep_alive = FALSE; }
|
|
|
|
action trailer {
|
|
/* not implemenetd yet. (do requests even have trailing headers?) */
|
|
}
|
|
|
|
action version_major {
|
|
parser->version_major *= 10;
|
|
parser->version_major += *p - '0';
|
|
}
|
|
|
|
action version_minor {
|
|
parser->version_minor *= 10;
|
|
parser->version_minor += *p - '0';
|
|
}
|
|
|
|
action headers_complete {
|
|
if(parser->on_headers_complete)
|
|
parser->on_headers_complete(parser);
|
|
}
|
|
|
|
action add_to_chunk_size {
|
|
parser->chunk_size *= 16;
|
|
parser->chunk_size += unhex[(int)*p];
|
|
}
|
|
|
|
action skip_chunk_data {
|
|
skip_body(&p, parser, MIN(parser->chunk_size, REMAINING));
|
|
fhold;
|
|
if (parser->chunk_size > REMAINING) {
|
|
fbreak;
|
|
} else {
|
|
fgoto chunk_end;
|
|
}
|
|
}
|
|
|
|
action end_chunked_body {
|
|
END_REQUEST
|
|
//fnext main;
|
|
if (parser->type == HTTP_REQUEST) {
|
|
fnext Requests;
|
|
} else {
|
|
fnext Responses;
|
|
}
|
|
}
|
|
|
|
action body_logic {
|
|
if (parser->transfer_encoding == HTTP_CHUNKED) {
|
|
fnext ChunkedBody;
|
|
} else {
|
|
/* this is pretty stupid. i'd prefer to combine this with skip_chunk_data */
|
|
parser->chunk_size = parser->content_length;
|
|
p += 1;
|
|
skip_body(&p, parser, MIN(REMAINING, parser->content_length));
|
|
fhold;
|
|
if(parser->chunk_size > REMAINING) {
|
|
fbreak;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
CRLF = "\r\n";
|
|
|
|
# character types
|
|
CTL = (cntrl | 127);
|
|
safe = ("$" | "-" | "_" | ".");
|
|
extra = ("!" | "*" | "'" | "(" | ")" | ",");
|
|
reserved = (";" | "/" | "?" | ":" | "@" | "&" | "=" | "+");
|
|
unsafe = (CTL | " " | "\"" | "#" | "%" | "<" | ">");
|
|
national = any -- (alpha | digit | reserved | extra | safe | unsafe);
|
|
unreserved = (alpha | digit | safe | extra | national);
|
|
escape = ("%" xdigit xdigit);
|
|
uchar = (unreserved | escape);
|
|
pchar = (uchar | ":" | "@" | "&" | "=" | "+");
|
|
tspecials = ("(" | ")" | "<" | ">" | "@" | "," | ";" | ":" | "\\" | "\""
|
|
| "/" | "[" | "]" | "?" | "=" | "{" | "}" | " " | "\t");
|
|
|
|
# elements
|
|
token = (ascii -- (CTL | tspecials));
|
|
quote = "\"";
|
|
# qdtext = token -- "\"";
|
|
# quoted_pair = "\" ascii;
|
|
# quoted_string = "\"" (qdtext | quoted_pair )* "\"";
|
|
|
|
# headers
|
|
|
|
Method = ( "COPY" %{ parser->method = HTTP_COPY; }
|
|
| "DELETE" %{ parser->method = HTTP_DELETE; }
|
|
| "GET" %{ parser->method = HTTP_GET; }
|
|
| "HEAD" %{ parser->method = HTTP_HEAD; }
|
|
| "LOCK" %{ parser->method = HTTP_LOCK; }
|
|
| "MKCOL" %{ parser->method = HTTP_MKCOL; }
|
|
| "MOVE" %{ parser->method = HTTP_MOVE; }
|
|
| "OPTIONS" %{ parser->method = HTTP_OPTIONS; }
|
|
| "POST" %{ parser->method = HTTP_POST; }
|
|
| "PROPFIND" %{ parser->method = HTTP_PROPFIND; }
|
|
| "PROPPATCH" %{ parser->method = HTTP_PROPPATCH; }
|
|
| "PUT" %{ parser->method = HTTP_PUT; }
|
|
| "TRACE" %{ parser->method = HTTP_TRACE; }
|
|
| "UNLOCK" %{ parser->method = HTTP_UNLOCK; }
|
|
); # Not allowing extension methods
|
|
|
|
HTTP_Version = "HTTP/" digit+ $version_major "." digit+ $version_minor;
|
|
|
|
scheme = ( alpha | digit | "+" | "-" | "." )* ;
|
|
absolute_uri = (scheme ":" (uchar | reserved )*);
|
|
path = ( pchar+ ( "/" pchar* )* ) ;
|
|
query = ( uchar | reserved )* >mark_query_string %query_string ;
|
|
param = ( pchar | "/" )* ;
|
|
params = ( param ( ";" param )* ) ;
|
|
rel_path = ( path? (";" params)? ) ;
|
|
absolute_path = ( "/"+ rel_path ) >mark_request_path %request_path ("?" query)?;
|
|
Request_URI = ( "*" | absolute_uri | absolute_path ) >mark_request_uri %request_uri;
|
|
Fragment = ( uchar | reserved )* >mark_fragment %fragment;
|
|
|
|
field_name = ( token -- ":" )+;
|
|
Field_Name = field_name >mark_header_field %write_field;
|
|
|
|
field_value = ((any - " ") any*)?;
|
|
Field_Value = field_value >mark_header_value %write_value;
|
|
|
|
hsep = ":" " "*;
|
|
header = (field_name hsep field_value) :> CRLF;
|
|
Header = ( ("Content-Length"i hsep digit+ $content_length)
|
|
| ("Connection"i hsep
|
|
( "Keep-Alive"i %set_keep_alive
|
|
| "close"i %set_not_keep_alive
|
|
)
|
|
)
|
|
| ("Transfer-Encoding"i %use_chunked_encoding hsep "identity" %use_identity_encoding)
|
|
| (Field_Name hsep Field_Value)
|
|
) :> CRLF;
|
|
|
|
Headers = (Header)* :> CRLF @headers_complete;
|
|
|
|
Request_Line = ( Method " " Request_URI ("#" Fragment)? " " HTTP_Version CRLF ) ;
|
|
|
|
StatusCode = digit digit digit $status_code;
|
|
ReasonPhrase = ascii -- ("\r" | "\n");
|
|
StatusLine = HTTP_Version " " StatusCode " " ReasonPhrase CRLF;
|
|
|
|
# chunked message
|
|
trailing_headers = header*;
|
|
#chunk_ext_val = token | quoted_string;
|
|
chunk_ext_val = token*;
|
|
chunk_ext_name = token*;
|
|
chunk_extension = ( ";" " "* chunk_ext_name ("=" chunk_ext_val)? )*;
|
|
last_chunk = "0"+ chunk_extension CRLF;
|
|
chunk_size = (xdigit* [1-9a-fA-F] xdigit*) $add_to_chunk_size;
|
|
chunk_end = CRLF;
|
|
chunk_body = any >skip_chunk_data;
|
|
chunk_begin = chunk_size chunk_extension CRLF;
|
|
chunk = chunk_begin chunk_body chunk_end;
|
|
ChunkedBody := chunk* last_chunk trailing_headers CRLF @end_chunked_body;
|
|
|
|
Request = (Request_Line Headers) @body_logic;
|
|
Response = (StatusLine Headers) @body_logic;
|
|
|
|
Requests := Request*;
|
|
Responses := Response*;
|
|
|
|
main := any >{
|
|
fhold;
|
|
if (parser->type == HTTP_REQUEST) {
|
|
fgoto Requests;
|
|
} else {
|
|
fgoto Responses;
|
|
}
|
|
};
|
|
|
|
}%%
|
|
|
|
%% write data;
|
|
|
|
static void
|
|
skip_body(const char **p, http_parser *parser, size_t nskip) {
|
|
if (parser->on_body && nskip > 0) {
|
|
parser->on_body(parser, *p, nskip);
|
|
}
|
|
parser->body_read += nskip;
|
|
parser->chunk_size -= nskip;
|
|
*p += nskip;
|
|
if (0 == parser->chunk_size) {
|
|
parser->eating = FALSE;
|
|
if (parser->transfer_encoding == HTTP_IDENTITY) {
|
|
END_REQUEST
|
|
}
|
|
} else {
|
|
parser->eating = TRUE;
|
|
}
|
|
}
|
|
|
|
void
|
|
http_parser_init (http_parser *parser, enum http_parser_type type)
|
|
{
|
|
memset(parser, 0, sizeof(struct http_parser));
|
|
|
|
int cs = 0;
|
|
%% write init;
|
|
parser->cs = cs;
|
|
parser->type = type;
|
|
|
|
RESET_PARSER(parser);
|
|
}
|
|
|
|
/** exec **/
|
|
size_t
|
|
http_parser_execute (http_parser *parser, const char *buffer, size_t len)
|
|
{
|
|
const char *p, *pe;
|
|
int cs = parser->cs;
|
|
|
|
p = buffer;
|
|
pe = buffer+len;
|
|
|
|
if (0 < parser->chunk_size && parser->eating) {
|
|
/* eat body */
|
|
size_t eat = MIN(len, parser->chunk_size);
|
|
skip_body(&p, parser, eat);
|
|
}
|
|
|
|
if (parser->header_field_mark) parser->header_field_mark = buffer;
|
|
if (parser->header_value_mark) parser->header_value_mark = buffer;
|
|
if (parser->fragment_mark) parser->fragment_mark = buffer;
|
|
if (parser->query_string_mark) parser->query_string_mark = buffer;
|
|
if (parser->path_mark) parser->path_mark = buffer;
|
|
if (parser->uri_mark) parser->uri_mark = buffer;
|
|
|
|
%% write exec;
|
|
|
|
parser->cs = cs;
|
|
|
|
CALLBACK(header_field);
|
|
CALLBACK(header_value);
|
|
CALLBACK(fragment);
|
|
CALLBACK(query_string);
|
|
CALLBACK(path);
|
|
CALLBACK(uri);
|
|
|
|
assert(p <= pe && "buffer overflow after parsing execute");
|
|
|
|
return(p - buffer);
|
|
}
|
|
|
|
int
|
|
http_parser_has_error (http_parser *parser)
|
|
{
|
|
return parser->cs == http_parser_error;
|
|
}
|
|
|
|
#if 0
|
|
int
|
|
http_should_keep_alive (http *request)
|
|
{
|
|
if (request->keep_alive == -1)
|
|
if (request->version_major == 1)
|
|
return (request->version_minor != 0);
|
|
else if (request->version_major == 0)
|
|
return FALSE;
|
|
else
|
|
return TRUE;
|
|
else
|
|
return request->keep_alive;
|
|
}
|
|
#endif
|