Now we can define and run functions, but not in the same JSVM at the moment. A lookup is needed

This commit is contained in:
Jonatan Pålsson 2011-02-04 19:09:41 +01:00
parent f5fac06849
commit 4c6d0987bd
3 changed files with 49 additions and 23 deletions

View file

@ -12,15 +12,27 @@ parse(Data) ->
), Message),
% Hacky way to build a tuple, filter out not_found later on
Processed = {
case lists:keysearch("Command", 1, MsgKV) of
{value,{_, "define"}} ->
define;
{value,{_, "call"}} ->
call;
false ->
not_found
end,
case lists:keysearch("Token", 1, MsgKV) of
{value,{_, Value}} ->
Value;
false ->
not_found
end,
case lists:keysearch("Command", 1, MsgKV) of
{value,{_, "define"}} ->
define;
case lists:keysearch("Content-Length", 1, MsgKV) of
{value,{_, Value}} ->
{Length, _} = string:to_integer(Value),
[_|Cont] = re:split(Data, "\n\n",[{return,list}]),
Content = string:join(Cont, "\n\n"),
Payload = string:substr(Content,1,Length),
Payload;
false ->
not_found
end