Mercurial > repos > rhope
diff 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 |
line wrap: on
line diff
--- a/parser_old_c.rhope Sat Nov 20 17:48:22 2010 -0500 +++ b/parser_old_c.rhope Sun Nov 21 16:33:17 2010 -0500 @@ -1056,7 +1056,8 @@ value,after <- Parse Number[name, params] }{ 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 >>] - afterdelim,raw before,delim,nodelim <- [name]Get Comment DString[delims, params] + afterdelim,raw before,delim,nodelim <- [name]Get Comment DString[delims, params] {} {} {} + { delim <- "" } before <- Trim[raw before, "\r\n\t "] If[[delim] = [[params]List Begin >>]] @@ -1435,9 +1436,12 @@ } Val[valstring] { + Print[["Parsing initial value: "]Append[valstring]] value <- [Named Pipe or Literal[Trim[~, "\r\n\t "], params]]Value >> next store <- [store]Vars <<[ [[store]Vars >>]Set[varname, value] ] } + }{ + Print[["Expected assignment operator in global var block, found "]Append[trimmed]] } }{ out <- store