%% WSP Table 34. PDU Type Assignments
%%

-define(WSP_Connect,       16#01).
-define(WSP_ConnectReply,  16#02).
-define(WSP_Redirect,      16#03).
-define(WSP_Reply,         16#04).
-define(WSP_Disconnect,    16#05).
-define(WSP_Push,          16#06).
-define(WSP_ConfirmedPush, 16#07).
-define(WSP_Suspend,       16#08).
-define(WSP_Resume,        16#09).

-define(WSP_Get,           16#40).
-define(WSP_Options,       16#41).
-define(WSP_Head,          16#42).
-define(WSP_Delete,        16#43).
-define(WSP_Trace,         16#44).

-define(WSP_Post,          16#60).
-define(WSP_Put,           16#61).

-define(WSP_DataFragmentPDU, 16#80).

%%
%% WSP Table 37. Capability Assignments
%%

-define(WSP_CAP_CLIENT_SDU_SIZE,     16#00).
-define(WSP_CAP_SERVER_SDU_SIZE,     16#01).
-define(WSP_CAP_PROTOCOL_OPTIONS,    16#02).
-define(WSP_CAP_METHOD_MOR,          16#03).
-define(WSP_CAP_PUSH_MOR,            16#04).
-define(WSP_CAP_EXTENDED_METHODS,    16#05).
-define(WSP_CAP_HEADER_CODE_PAGES,   16#06).
-define(WSP_CAP_ALIASES,             16#07).
-define(WSP_CAP_CLIENT_MESSAGE_SIZE, 16#08).
-define(WSP_CAP_SERVER_MESSAGE_SIZE, 16#09).

-define(WSP_CODEPAGE_1, 1).
-define(WSP_DEFAULT_CODEPAGE, ?WSP_CODEPAGE_1).

-define(ANY_LANGUAGE,128).

-define(WSP_10, {1,0}).
-define(WSP_11, {1,1}).
-define(WSP_12, {1,2}).
-define(WSP_13, {1,3}).
-define(WSP_14, {1,4}).
-define(WSP_15, {1,5}).

-define(WSP_COMPLIENT_VERSION, ?WSP_15).
-define(WSP_DEFAULT_VERSION,   ?WSP_12).

-define(WSP_STATUS_CONTINUE, 100).
-define(WSP_STATUS_SWITCHING_PROTOCOLS, 101).
-define(WSP_STATUS_OK, 200).
-define(WSP_STATUS_CREATED, 201).
-define(WSP_STATUS_ACCEPTED, 202).
-define(WSP_STATUS_NON_AUTHORITATIVE_INFORMATION, 203).
-define(WSP_STATUS_NO_CONTENT, 204).
-define(WSP_STATUS_RESET_CONTENT, 205).
-define(WSP_STATUS_PARTIAL_CONTENT, 206).
-define(WSP_STATUS_MULTIPLE_CHOICES, 300).
-define(WSP_STATUS_MOVED_PERMANENTLY, 301).
-define(WSP_STATUS_MOVED_TEMPORARILY, 302).
-define(WSP_STATUS_SEE_OTHER, 303).
-define(WSP_STATUS_NOT_MODIFIED, 304).
-define(WSP_STATUS_USE_PROXY, 305).
-define(WSP_STATUS_RESERVED, 306).
-define(WSP_STATUS_TEMPORARY_REDIRECT, 307).
-define(WSP_STATUS_BAD_REQUEST, 400).
-define(WSP_STATUS_UNAUTHORIZED, 401).
-define(WSP_STATUS_PAYMENT_REQUIRED, 402).
-define(WSP_STATUS_FORBIDDEN, 403).
-define(WSP_STATUS_NOT_FOUND, 404).
-define(WSP_STATUS_METHOD_NOT_ALLOWED, 405).
-define(WSP_STATUS_NOT_ACCEPTABLE, 406).
-define(WSP_STATUS_PROXY_AUTHENTICATION_REQUIRED, 407).
-define(WSP_STATUS_REQUEST_TIMEOUT, 408).
-define(WSP_STATUS_CONFLICT, 409).
-define(WSP_STATUS_GONE, 410).
-define(WSP_STATUS_LENGTH_REQUIRED, 411).
-define(WSP_STATUS_PRECONDITION_FAILED, 412).
-define(WSP_STATUS_REQUEST_ENTITY_TOO_LARGE, 413).
-define(WSP_STATUS_REQUEST_URI_TOO_LARGE, 414).
-define(WSP_STATUS_UNSUPPORTED_MEDIA_TYPE, 415).
-define(WSP_STATUS_REQUESTED_RANGE_NOT_SATISFIABLE, 416).
-define(WSP_STATUS_EXPECTATION_FAILED, 417).
-define(WSP_STATUS_INTERNAL_SERVER_ERROR, 500).
-define(WSP_STATUS_NOT_IMPLEMENTED, 501).
-define(WSP_STATUS_BAD_GATEWAY, 502).
-define(WSP_STATUS_SERVICE_UNAVAILABLE, 503).
-define(WSP_STATUS_GATEWAY_TIMEOUT, 504).
-define(WSP_STATUS_HTTP_VERSION_NOT_SUPPORTED, 505).

-define(ENCODE_SHORT(X), <<1:1, (X):7>>).

-define(ENCODE_LONG(X),
	if (X) =< 16#ff   -> <<1, (X):8>>;
	   (X) =< 16#ffff -> <<2, (X):16>>;
	   (X) =< 16#ffffff -> <<3, (X):24>>;
	   (X) =< 16#ffffffff -> <<4, (X):32>>;
	   true -> encode_long1(X)
	end).


-record(wsp_session,
	{
	  id,            %% uniq session id
	  ref,           %% address quadruple (socketpair)
	  state=null,    %% connected, suspended
	  version,       %% encoding version to use
	  capabilities,  %% client capabilities
	  headers        %% client hop-by-hop headers!!!
	 }).

-record(wsp_header,
	{
	  name,     %% field name
	  value,    %% field value (binary value)
	  params=[] %% field params [{Name,Value} | Value]
	 }).

-record(wsp_multipart_entry,
	{
	  content_type,  %% #wsp_header
	  headers=[],
	  data=(<<>>)
	 }).

-record(wsp_capabilities,
	{
	  aliases=[],             %% [#wdp_address]
	  client_sdu_size=1400,
	  extended_methods=[],    %% [{PduType, Name}]
	  header_code_pages=[],   %% [{Page,Name}] | [Page]
	  protocol_options=[],    %% [push,confirmed_push,resume,
	                          %%  acknowledgement_headers]
	  method_mor = 10,        %% 1?
	  push_mor = 10,          %% 1?
	  server_sdu_size=1400,
	  client_message_size,
	  server_message_size,
	  unknown=[]
	 }).

%% WSP PDU records

-record(wsp_connect,
	{
	  version,     %% protocol version, not wsp version?
	  capabilities,
	  headers
	 }).

-record(wsp_connect_reply,
	{
	  server_session_id,
	  capabilities,
	  headers=[]
	}).

-define(WSP_PERMANENT_REDIRECT, 16#80).
-define(WSP_REUSE_SECURITY,     16#40).

-record(wsp_redirect,
	{
	  flags=[],
	  addresses=[]
	 }).

-record(wsp_disconnect,
	{
	  server_session_id
	 }).

-record(wsp_get,
	{
	  type,
	  uri,
	  headers=[]
	 }).

-record(wsp_post,
	{
	  type,
	  uri,
	  content_type, %% #wsp_header
	  headers=[],
	  data
	 }).

-record(wsp_reply,
	{
	  status,
	  content_type, %% #wsp_header
	  headers=[],
	  data
	}).

-record(wsp_data_fragment_pdu,
	{
	  headers=[],
	  data
	 }).

-record(wsp_push,
	{
	  type = push,
	  content_type, %% #wsp_header
	  headers=[],
	  data
	 }).

-record(wsp_suspend,
	{
	  session_id
	}).

-record(wsp_resume,
	{
	  session_id,
	  capabilities,
	  headers
	 }).

%% NOTE: not a real pdu
-record(wsp_acknowledgement_headers,
	{
	  headers=[]
	}).

-record(wsp_unknown_pdu,
	{
	  type,  %% integer
	  data   %% the payload
	 }).