cpp-httplib/httplib.h

//
//  httplib.h
//
//  Copyright (c) 2012 Yuji Hirose. All rights reserved.
//  The Boost Software License 1.0
//

#ifndef HTTPSVRKIT_H
#define HTTPSVRKIT_H

#ifdef _WIN32
#define _CRT_SECURE_NO_WARNINGS
#define _CRT_NONSTDC_NO_DEPRECATE

#ifndef SO_SYNCHRONOUS_NONALERT
#define SO_SYNCHRONOUS_NONALERT 0x20;
#endif
#ifndef SO_OPENTYPE
#define SO_OPENTYPE 0x7008
#endif

#include <fcntl.h>
#include <io.h>
#include <winsock2.h>

typedef SOCKET socket_t;
#define snprintf sprintf_s
#else
#include <pthread.h>
#include <unistd.h>
#include <netdb.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <sys/socket.h>

typedef int socket_t;
#endif

#include <functional>
#include <map>
#include <regex>
#include <string>
#include <assert.h>

namespace httplib
{

typedef std::map<std::string, std::string>      Map;
typedef std::vector<std::string>                Array;
typedef std::multimap<std::string, std::string> MultiMap;

struct Request {
    std::string method;
    std::string url;
    MultiMap    headers;
    std::string body;
    Map         query;
    Array       params;
};

struct Response {
    int         status;
    MultiMap    headers;
    std::string body;

    void set_redirect(const char* url);
    void set_content(const std::string& s, const char* content_type = "text/plain");
};

struct Connection {
    Request  request;
    Response response;
};

class Server {
public:
    typedef std::function<void (Connection& c)> Handler;

    Server(const char* host, int port);
    ~Server();

    void get(const char* pattern, Handler handler);
    void post(const char* pattern, Handler handler);

    void on_ready(std::function<void ()> callback);
    void set_logger(std::function<void (const Connection&)> logger);

    bool run();
    void stop();

private:
    void process_request(FILE* fp_read, FILE* fp_write);

    bool read_request_line(FILE* fp, Request& request);
    void write_response(FILE* fp, const Response& response);
    void write_error(FILE* fp, int status);

    const std::string host_;
    const int         port_;
    socket_t          sock_;

    std::vector<std::pair<std::regex, Handler>>  get_handlers_;
    std::vector<std::pair<std::string, Handler>> post_handlers_;
    std::function<void ()>                       on_ready_;
    std::function<void (const Connection&)>      logger_;
};

class Client {
public:
    Client(const char* host, int port);
    ~Client();

    int get(const char* url, Response& response);

private:
    bool read_response_line(FILE* fp, Response& response);

    const std::string host_;
    const int         port_;
};

// Implementation

template <class Fn>
void split(const char* b, const char* e, char d, Fn fn)
{
    int i = 0;
    int beg = 0;

    while (e ? (b + i != e) : (b[i] != '\0')) {
        if (b[i] == d) {
            fn(&b[beg], &b[i]);
            beg = i + 1;
        }
        i++;
    }

    if (i) {
        fn(&b[beg], &b[i]);
    }
}

inline void get_flie_pointers(int fd, FILE*& fp_read, FILE*& fp_write)
{
#ifdef _WIN32
    int osfhandle = _open_osfhandle(fd, _O_RDONLY);
    fp_read = fdopen(osfhandle, "rb");
    fp_write = fdopen(osfhandle, "wb");
#else
    fp_read = fdopen(fd, "rb");
    fp_write = fdopen(fd, "wb");
#endif
}

template <typename Fn>
inline socket_t create_socket(const char* host, int port, Fn fn)
{
#ifdef _WIN32
    int opt = SO_SYNCHRONOUS_NONALERT;
    setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE, (char*)&opt, sizeof(opt));
#endif

    // Create a server socket
    socket_t sock = socket(AF_INET, SOCK_STREAM, 0);
    if (sock == -1) {
        return -1;
    }

    // Make 'reuse address' option available
    int yes = 1;
    setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char*)&yes, sizeof(yes));

    // Get a host entry info
    struct hostent* hp;
    if (!(hp = gethostbyname(host))) {
        return -1;
    }

    // Bind the socket to the given address
    struct sockaddr_in addr;
    memset(&addr, 0, sizeof(addr));
    memcpy(&addr.sin_addr, hp->h_addr, hp->h_length);
    addr.sin_family = AF_INET;
    addr.sin_port = htons(port);

    return fn(sock, addr);
}

inline socket_t create_server_socket(const char* host, int port)
{
    return create_socket(host, port, [](socket_t sock, struct sockaddr_in& addr) -> socket_t {

        if (::bind(sock, (struct sockaddr*)&addr, sizeof(addr))) {
            return -1;
        }

        // Listen through 5 channels
        if (listen(sock, 5)) {
            return -1;
        }

        return sock;
    });
}

inline int close_server_socket(socket_t sock)
{
#ifdef _WIN32
    shutdown(sock, SD_BOTH);
    return closesocket(sock);
#else
    shutdown(sock, SHUT_RDWR);
    return close(sock);
#endif
}

inline socket_t create_client_socket(const char* host, int port)
{
    return create_socket(host, port,
            [](socket_t sock, struct sockaddr_in& addr) -> socket_t {

        if (connect(sock, (struct sockaddr*)&addr, sizeof(struct sockaddr_in))) {
            return -1;
        }

        return sock;
    });
}

inline int close_client_socket(socket_t sock)
{
#ifdef _WIN32
    return closesocket(sock);
#else
    return close(sock);
#endif
}

inline const char* get_header_value(const MultiMap& map, const char* key, const char* def)
{
    auto it = map.find(key);
    if (it != map.end()) {
        return it->second.c_str();
    }
    return def;
}

inline int get_header_value_int(const MultiMap& map, const char* key, int def)
{
    auto it = map.find(key);
    if (it != map.end()) {
        return std::atoi(it->second.c_str());
    }
    return def;
}

inline void read_headers(FILE* fp, MultiMap& headers)
{
    static std::regex re("(.+?): (.+?)\r\n");

    const size_t BUFSIZ_HEADER = 2048;
    char buf[BUFSIZ_HEADER];

    while (fgets(buf, BUFSIZ_HEADER, fp) && strcmp(buf, "\r\n")) {
        std::cmatch m;
        if (std::regex_match(buf, m, re)) {
            auto key = std::string(m[1]);
            auto val = std::string(m[2]);
            headers.insert(std::make_pair(key, val));
        }
    }
}

inline std::string dump_headers(const MultiMap& headers)
{
    std::string s;
    char buf[BUFSIZ];

    for (auto it = headers.begin(); it != headers.end(); ++it) {
       const auto& x = *it;
       snprintf(buf, sizeof(buf), "%s: %s\n", x.first.c_str(), x.second.c_str());
       s += buf;
    }

    return s;
}

// HTTP server implementation
inline void Response::set_redirect(const char* url)
{
    headers.insert(std::make_pair("Location", url));
    status = 302;
}

inline void Response::set_content(const std::string& s, const char* content_type)
{
    body = s;
    headers.insert(std::make_pair("Content-Type", content_type));
    status = 200;
}

inline Server::Server(const char* host, int port)
    : host_(host)
    , port_(port)
    , sock_(-1)
{
#ifdef _WIN32
    WSADATA wsaData;
    WSAStartup(0x0002, &wsaData);
#endif
}

inline Server::~Server()
{
#ifdef _WIN32
    WSACleanup();
#endif
}

inline void Server::get(const char* pattern, Handler handler)
{
    get_handlers_.push_back(std::make_pair(pattern, handler));
}

inline void Server::post(const char* pattern, Handler handler)
{
    post_handlers_.push_back(std::make_pair(pattern, handler));
}

inline void Server::on_ready(std::function<void ()> callback)
{
    on_ready_ = callback;
}

inline void Server::set_logger(std::function<void (const Connection&)> logger)
{
    logger_ = logger;
}

inline bool Server::run()
{
    sock_ = create_server_socket(host_.c_str(), port_);
    if (sock_ == -1) {
        return false;
    }
    
    if (on_ready_) {
        on_ready_();
    }

    for (;;) {
        socket_t fd = accept(sock_, NULL, NULL);
        if (fd == -1) {
            // The server socket was closed by user.
            if (sock_ == -1) {
                return true;
            } 

            close_server_socket(sock_);
            return false;
        }

        FILE* fp_read;
        FILE* fp_write;
        get_flie_pointers(fd, fp_read, fp_write);

        process_request(fp_read, fp_write);

        fflush(fp_write);
        close_server_socket(fd);
    }

    // NOTREACHED
}

inline void Server::stop()
{
    close_server_socket(sock_);
    sock_ = -1;
}

inline bool Server::read_request_line(FILE* fp, Request& request)
{
    const size_t BUFSIZ_REQUESTLINE = 2048;
    char buf[BUFSIZ_REQUESTLINE];
    if (!fgets(buf, BUFSIZ_REQUESTLINE, fp)) {
        return false;
    }

    static std::regex re("(GET|POST) ([^?]+)(?:\\?(.+?))? HTTP/1\\.[01]\r\n");

    std::cmatch m;
    if (std::regex_match(buf, m, re)) {
        request.method = std::string(m[1]);
        request.url = std::string(m[2]);

        // Parse query text
        auto len = std::distance(m[3].first, m[3].second);
        if (len > 0) {
            const auto& pos = m[3];
            split(pos.first, pos.second, '&', [&](const char* b, const char* e) {
                std::string key;
                std::string val;
                split(b, e, '=', [&](const char* b, const char* e) {
                    if (key.empty()) {
                        key.assign(b, e);
                    } else {
                        val.assign(b, e);
                    }
                });
                request.query[key] = val;
            });
        }

        return true;
    }

    return false;
}

inline void Server::write_response(FILE* fp, const Response& response)
{
    fprintf(fp, "HTTP/1.0 %d OK\r\n", response.status);
    fprintf(fp, "Connection: close\r\n");

    for (auto it = response.headers.begin(); it != response.headers.end(); ++it) {
        if (it->first != "Content-Type" && it->second != "Content-Length") {
            fprintf(fp, "%s: %s\r\n", it->first.c_str(), it->second.c_str());
        }
    }

    if (!response.body.empty()) {
        auto content_type = get_header_value(response.headers, "Content-Type", "text/plain");
        fprintf(fp, "Content-Type: %s\r\n", content_type);
        fprintf(fp, "Content-Length: %ld\r\n", response.body.size());
    }

    fprintf(fp, "\r\n");

    if (!response.body.empty()) {
        fprintf(fp, "%s", response.body.c_str());
    }
}

inline void Server::write_error(FILE* fp, int status)
{
    const char* msg = NULL;

    switch (status) {
    case 400:
        msg = "Bad Request";
        break;
    case 404:
        msg = "Not Found";
        break;
    default:
        status = 500;
        msg = "Internal Server Error";
        break;
    }

    assert(msg);

    fprintf(fp, "HTTP/1.0 %d %s\r\n", status, msg);
    fprintf(fp, "Content-type: text/plain\r\n");
    fprintf(fp, "Connection: close\r\n");
    fprintf(fp, "\r\n");
    fprintf(fp, "Status: %d\r\n", status);
}

inline void Server::process_request(FILE* fp_read, FILE* fp_write)
{
    Connection c;

    if (!read_request_line(fp_read, c.request)) {
        write_error(fp_write, 400);
        return;
    }

    read_headers(fp_read, c.request.headers);
    
    // Routing
    c.response.status = 404;

    if (c.request.method == "GET") {
        for (auto it = get_handlers_.begin(); it != get_handlers_.end(); ++it) {
            const auto& pattern = it->first;
            const auto& handler = it->second;
            
            std::smatch m;
            if (std::regex_match(c.request.url, m, pattern)) {
                for (size_t i = 1; i < m.size(); i++) {
                    c.request.params.push_back(m[i]);
                }
                handler(c);
                break;
            }
        }
    } else if (c.request.method == "POST") {
        // TODO: parse body
    } else {
        c.response.status = 400;
    }

    if (logger_) {
        logger_(c);
    }

    if (200 <= c.response.status && c.response.status < 400) {
        write_response(fp_write, c.response);
    } else {
        write_error(fp_write, c.response.status);
    }
}

// HTTP client implementation
inline Client::Client(const char* host, int port)
    : host_(host)
    , port_(port)
{
#ifdef _WIN32
    WSADATA wsaData;
    WSAStartup(0x0002, &wsaData);
#endif
}

inline Client::~Client()
{
#ifdef _WIN32
    WSACleanup();
#endif
}

inline bool Client::read_response_line(FILE* fp, Response& response)
{
    const size_t BUFSIZ_RESPONSELINE = 2048;
    char buf[BUFSIZ_RESPONSELINE];
    if (!fgets(buf, BUFSIZ_RESPONSELINE, fp)) {
        return false;
    }

    static std::regex re("HTTP/1\\.[01] (\\d+?) .+\r\n");

    std::cmatch m;
    if (std::regex_match(buf, m, re)) {
        response.status = std::atoi(std::string(m[1]).c_str());
    }

    return true;
}

inline int Client::get(const char* url, Response& response)
{
    socket_t sock = create_client_socket(host_.c_str(), port_);
    if (sock == -1) {
        return -1;
    }

    FILE* fp_read;
    FILE* fp_write;
    get_flie_pointers(sock, fp_read, fp_write);

    // Send request
    fprintf(fp_write, "GET %s HTTP/1.0\r\n\r\n", url);
    fflush(fp_write);

    if (!read_response_line(fp_read, response)) {
        return -1;
    }

    read_headers(fp_read, response.headers);

    // Read content body
    auto len = get_header_value_int(response.headers, "Content-Length", 0);
    if (len) {
        response.body.assign(len, 0);
        if (!fgets(&response.body[0], response.body.size() + 1, fp_read)) {
            return -1;
        }
    }

    close_client_socket(sock);

    return 0;
}

} // namespace httplib

#endif

// vim: et ts=4 sw=4 cin cino={1s ff=unix