Mercurial > repos > rhope
comparison parser_old_c.rhope @ 112:fd23ab2c1a73
Small changes to make profile data a little cleaner
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Mon, 11 Oct 2010 21:53:27 -0400 |
| parents | f4fc0a98088a |
| children | 04148770c229 |
comparison
equal
deleted
inserted
replaced
| 111:13dfe8214254 | 112:fd23ab2c1a73 |
|---|---|
| 1577 { | 1577 { |
| 1578 out <- Fold[Add If Store[?, ?, params], stores, [node]Assignments >>] | 1578 out <- Fold[Add If Store[?, ?, params], stores, [node]Assignments >>] |
| 1579 } | 1579 } |
| 1580 | 1580 |
| 1581 | 1581 |
| 1582 Main[args] | 1582 /* Main[args] |
| 1583 { | 1583 { |
| 1584 fname <- [args]Index[1] | 1584 fname <- [args]Index[1] |
| 1585 { | 1585 { |
| 1586 file <- [File[~]]Open["r"] | 1586 file <- [File[~]]Open["r"] |
| 1587 text <- String[[file]Read[[file]Length]] | 1587 text <- String[[file]Read[[file]Length]] |
| 1602 { Print[["Wrote output to "]Append[ [fname]Append[".c"] ]] } | 1602 { Print[["Wrote output to "]Append[ [fname]Append[".c"] ]] } |
| 1603 } | 1603 } |
| 1604 }{ | 1604 }{ |
| 1605 Print["You must provide a file name to compile"] | 1605 Print["You must provide a file name to compile"] |
| 1606 } | 1606 } |
| 1607 } | 1607 } */ |
| 1608 |