Mercurial > repos > rhope
comparison parser_old_c.rhope @ 142:7bbdc034e347
Fix some bugs. Get basic network code working (epoll listener + accept connections). Start porting webserver.
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 21 Nov 2010 16:33:17 -0500 |
parents | a68e6828d896 |
children | e769b2e0facc |
comparison
equal
deleted
inserted
replaced
141:f2cb85c53ced | 142:7bbdc034e347 |
---|---|
1054 If[[[name]Slice[1]]In["-0123456789"]] | 1054 If[[[name]Slice[1]]In["-0123456789"]] |
1055 { | 1055 { |
1056 value,after <- Parse Number[name, params] | 1056 value,after <- Parse Number[name, params] |
1057 }{ | 1057 }{ |
1058 delims <- [[[[[[[("\n")]Append[[params]Block Begin >>]]Append[[params]Block End >>]]Append[[params]Empty Block >>]]Append[[params]Arg End >>]]Append[[params]List Delim >>]]Append[[params]List End >>]]Append[[params]List Begin >>] | 1058 delims <- [[[[[[[("\n")]Append[[params]Block Begin >>]]Append[[params]Block End >>]]Append[[params]Empty Block >>]]Append[[params]Arg End >>]]Append[[params]List Delim >>]]Append[[params]List End >>]]Append[[params]List Begin >>] |
1059 afterdelim,raw before,delim,nodelim <- [name]Get Comment DString[delims, params] | 1059 afterdelim,raw before,delim,nodelim <- [name]Get Comment DString[delims, params] {} {} {} |
1060 { delim <- "" } | |
1060 | 1061 |
1061 before <- Trim[raw before, "\r\n\t "] | 1062 before <- Trim[raw before, "\r\n\t "] |
1062 If[[delim] = [[params]List Begin >>]] | 1063 If[[delim] = [[params]List Begin >>]] |
1063 { | 1064 { |
1064 value,after <- [Type Instance[before]]Parse Params[params,afterdelim] | 1065 value,after <- [Type Instance[before]]Parse Params[params,afterdelim] |
1433 valstring <- Val[after] | 1434 valstring <- Val[after] |
1434 out <- Val[next store] | 1435 out <- Val[next store] |
1435 } | 1436 } |
1436 Val[valstring] | 1437 Val[valstring] |
1437 { | 1438 { |
1439 Print[["Parsing initial value: "]Append[valstring]] | |
1438 value <- [Named Pipe or Literal[Trim[~, "\r\n\t "], params]]Value >> | 1440 value <- [Named Pipe or Literal[Trim[~, "\r\n\t "], params]]Value >> |
1439 next store <- [store]Vars <<[ [[store]Vars >>]Set[varname, value] ] | 1441 next store <- [store]Vars <<[ [[store]Vars >>]Set[varname, value] ] |
1440 } | 1442 } |
1443 }{ | |
1444 Print[["Expected assignment operator in global var block, found "]Append[trimmed]] | |
1441 } | 1445 } |
1442 }{ | 1446 }{ |
1443 out <- store | 1447 out <- store |
1444 } | 1448 } |
1445 } | 1449 } |