Mercurial > repos > rhope
annotate backendutils.rhope @ 13:23dd9c766699
C backend close to being useable
| author | mpavone@ |
|---|---|
| date | Tue, 26 May 2009 23:49:46 +0000 |
| parents | 31f8182f3433 |
| children | ea991f95ae1f |
| rev | line source |
|---|---|
|
12
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 Escape Rhope Name[name:escaped] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 { |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 escaped <- [[[[[[[[[[[name]Replace["_","__"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 ]Replace["@","_AT_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 ]Replace[" ","_SP_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 ]Replace[":","_CN_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 ]Replace["?","_QN_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 ]Replace["+","_PL_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 ]Replace["-","_MN_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 ]Replace["*","_TM_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
12 ]Replace["/","_DV_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
13 ]Replace["<","_LT_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
14 ]Replace["<","_GT_"] |
|
31f8182f3433
Finished fib test and did some small work on the c backend
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
15 } |
| 13 | 16 |
| 17 Blueprint AddRef | |
| 18 { | |
| 19 Value | |
| 20 } | |
| 21 | |
| 22 AddRef[value:out] | |
| 23 { | |
| 24 out <- [Build["AddRef"]]Value <<[value] | |
| 25 } | |
| 26 | |
| 27 Make Op@AddRef[addref,func:out] | |
| 28 { | |
| 29 out <- [["add_ref("]Append[ [[addref]Value >>]Make Op[func] ]]Append[")"] | |
| 30 } | |
| 31 | |
| 32 Make Op@String[string,func:out] | |
| 33 { | |
| 34 out <- [func]Resolve[string] | |
| 35 } | |
| 36 | |
| 37 Make Op@Whole Number[num,func:out] | |
| 38 { | |
| 39 out <- num | |
| 40 } | |
| 41 | |
| 42 Make Op@Real Number[num,func:out] | |
| 43 { | |
| 44 out <- num | |
| 45 } | |
| 46 | |
| 47 Blueprint Constant | |
| 48 { | |
| 49 Var | |
| 50 } | |
| 51 | |
| 52 Constant[var:out] | |
| 53 { | |
| 54 out <- [Build["Constant"]]Var <<[var] | |
| 55 } | |
| 56 | |
| 57 Make Op@Constant[const,func:out] | |
| 58 { | |
| 59 out <- [const]Var >> | |
| 60 } | |
| 61 | |
| 62 Blueprint Result | |
| 63 { | |
| 64 Output Num | |
| 65 } | |
| 66 | |
| 67 Result[num:out] | |
| 68 { | |
| 69 out <- [Build["Result"]]Output Num <<[num] | |
| 70 } | |
| 71 | |
| 72 Make Op@Result[result,func:out] | |
| 73 { | |
| 74 out <- [func]Result Reference[[result]Output Num>>] | |
| 75 } | |
| 76 | |
| 77 |