Mercurial > repos > rhope

comparison parser.vistxt @ 1:b3f71490858c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small fixes and enhancements from main windows box
author Mike Pavone <pavone@retrodev.com>
date Wed, 29 Apr 2009 02:13:24 -0400
parents 76568becd6d6
children 23dd9c766699
comparison
equal deleted inserted replaced
0:76568becd6d6 1:b3f71490858c
844 If[[[name]Slice[1]]In["-0123456789"]] 844 If[[[name]Slice[1]]In["-0123456789"]]
845 |: 845 |:
846 value,after(1) <- Parse Number[name, params(1)] 846 value,after(1) <- Parse Number[name, params(1)]
847 :||: 847 :||:
848 delims <- [[[[[[{"\n"}]Append[[params(1)]Block Begin >>]]Append[[params(1)]Block End >>]]Append[[params(1)]Empty Block >>]]Append[[params(1)]Arg End >>]]Append[[params(1)]List Delim >>]]Append[[params(1)]List End >>] 848 delims <- [[[[[[{"\n"}]Append[[params(1)]Block Begin >>]]Append[[params(1)]Block End >>]]Append[[params(1)]Empty Block >>]]Append[[params(1)]Arg End >>]]Append[[params(1)]List Delim >>]]Append[[params(1)]List End >>]
849 ,before,delim <- [name]Get Comment DString[delims, params(1)] 849 afterdelim,raw before,delim <- [name]Get Comment DString[delims, params(1)]
850 |: 850 |:
851 after(1) <- [delim]Append[~] 851 after(1) <- [delim]Append[~]
852 :| |::| |::| |: 852 :| |::| |::| |:
853 after(1) <- "" 853 after(1) <- ""
854 :| 854 :|
855 before <- Trim[raw before, "\r\n\t "]
855 If[[before] = ["Yes"]] 856 If[[before] = ["Yes"]]
856 |: 857 |:
857 yesno <- Yes 858 yesno <- Yes
858 :||: 859 :||:
859 If[[before] = ["No"]] 860 If[[before] = ["No"]]