Subversion Repositories Kolibri OS

//HTTP library

dword libHTTP = #alibHTTP;

char alibHTTP[23] = "/sys/lib/http.obj\0";

dword http_lib_init          = #aLib_init;

dword http_get               = #aHTTPget;

dword http_head              = #aHTTPhead;

dword http_post              = #aHTTPpost;

dword http_find_header_field = #aFHF;

dword http_send              = #aHTTPsend;

dword http_receive           = #aHTTPreceive;

dword http_disconnect        = #aHTTPdisconnect;

dword http_free              = #aHTTPfree;

dword uri_escape             = #aURIescape;

dword uri_unescape           = #aURIunescape;

$DD 2 dup 0

char aLib_init[9]              = "lib_init\0";

char aHTTPget[4]               = "get\0";

char aHTTPhead[5]              = "head\0";

char aHTTPpost[5]              = "post\0";

char aFHF[18]                  = "find_header_field\0";

char aHTTPsend[5]              = "send\0";

char aHTTPreceive[8]           = "receive\0";

char aHTTPdisconnect[11]       = "disconnect\0";

char aHTTPfree[5]              = "free\0";

char aURIescape[7]             = "escape\0";

char aURIunescape[9]           = "unescape\0";

// status flags

#define FLAG_HTTP11             1 << 0

#define FLAG_GOT_HEADER         1 << 1

#define FLAG_GOT_ALL_DATA       1 << 2

#define FLAG_CONTENT_LENGTH     1 << 3

#define FLAG_CHUNKED            1 << 4

#define FLAG_CONNECTED          1 << 5

// user flags

#define FLAG_KEEPALIVE          1 << 8

#define FLAG_MULTIBUFF			1 << 9

// error flags

#define FLAG_INVALID_HEADER     1 << 16

#define FLAG_NO_RAM             1 << 17

#define FLAG_SOCKET_ERROR       1 << 18

#define FLAG_TIMEOUT_ERROR      1 << 19

#define FLAG_TRANSFER_FAILED    1 << 20

struct  http_msg{

        dword   socket;

        dword   flags;

        dword   write_ptr;

        dword   buffer_length;

        dword   chunk_ptr;

        dword   timestamp;

        dword   status;

        dword   header_length;

		dword	content_ptr;

        dword   content_length;

        dword   content_received;

        char    http_header;

};

:dword file_get_contents(dword url,...)

{

	http_get(url,FLAG_HTTP11,"");

}