Mercurial > repos > rhope
annotate backendutils.rhope @ 17:d05184970c1c
Merged accidentally created head
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 26 May 2009 23:37:59 -0400 |
parents | 23dd9c766699 |
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 |