Mercurial > repos > rhope

comparison parser_old_c.rhope @ 142:7bbdc034e347

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }