2015-03-29 03:57:21 +00:00
|
|
|
//: So far you can have global variables by not setting default-space, and
|
|
|
|
//: local variables by setting default-space. You can isolate variables
|
|
|
|
//: between those extremes by creating 'surrounding' spaces.
|
|
|
|
//:
|
|
|
|
//: (Surrounding spaces are like lexical scopes in other languages.)
|
|
|
|
|
2015-04-24 17:19:03 +00:00
|
|
|
:(scenario surrounding_space)
|
2018-06-24 16:16:17 +00:00
|
|
|
# location 2 in space 1 (remember that locations 0 and 1 are reserved in all
|
|
|
|
# spaces) refers to the space surrounding the default space, here 20.
|
2016-03-08 09:30:14 +00:00
|
|
|
def main [
|
2018-06-24 16:16:17 +00:00
|
|
|
# prepare default-space address
|
|
|
|
10:num/alloc-id, 11:num <- copy 0, 1000
|
|
|
|
# prepare default-space payload
|
|
|
|
1000:num <- copy 0 # alloc id of payload
|
|
|
|
1001:num <- copy 5 # length
|
|
|
|
# prepare address of chained space
|
|
|
|
20:num/alloc-id, 21:num <- copy 0, 2000
|
|
|
|
# prepare payload of chained space
|
|
|
|
2000:num <- copy 0 # alloc id of payload
|
|
|
|
2001:num <- copy 5 # length
|
2016-01-21 04:47:54 +00:00
|
|
|
# actual start of this recipe
|
2018-06-24 16:16:17 +00:00
|
|
|
default-space:space <- copy 10:space
|
2016-12-12 18:01:12 +00:00
|
|
|
#: later layers will explain the /names: property
|
2018-06-24 16:16:17 +00:00
|
|
|
0:space/names:dummy <- copy 20:space/raw
|
|
|
|
2:num <- copy 94
|
|
|
|
2:num/space:1 <- copy 95
|
2015-03-29 03:57:21 +00:00
|
|
|
]
|
2016-03-08 09:30:14 +00:00
|
|
|
def dummy [ # just for the /names: property above
|
2015-11-07 16:23:59 +00:00
|
|
|
]
|
2018-06-24 16:16:17 +00:00
|
|
|
# chain space: 1000 + (alloc id) 1 + (length) 1
|
|
|
|
+mem: storing 0 in location 1002
|
|
|
|
+mem: storing 2000 in location 1003
|
|
|
|
# store to default space: 1000 + (alloc id) 1 + (length) 1 + (index) 2
|
|
|
|
+mem: storing 94 in location 1004
|
|
|
|
# store to chained space: (contents of location 1003) 2000 + (alloc id) 1 + (length) 1 + (index) 2
|
|
|
|
+mem: storing 95 in location 2004
|
2016-08-17 19:20:48 +00:00
|
|
|
|
2015-03-29 03:57:21 +00:00
|
|
|
//: If you think of a space as a collection of variables with a common
|
|
|
|
//: lifetime, surrounding allows managing shorter lifetimes inside a longer
|
|
|
|
//: one.
|
|
|
|
|
2016-03-14 03:26:47 +00:00
|
|
|
:(replace{} "int space_base(const reagent& x)")
|
|
|
|
int space_base(const reagent& x) {
|
2018-06-24 16:16:17 +00:00
|
|
|
int base = current_call().default_space ? (current_call().default_space+/*skip alloc id*/1) : 0;
|
2016-01-21 04:47:54 +00:00
|
|
|
return space_base(x, space_index(x), base);
|
2015-03-29 03:57:21 +00:00
|
|
|
}
|
|
|
|
|
2016-03-14 03:26:47 +00:00
|
|
|
int space_base(const reagent& x, int space_index, int base) {
|
2016-02-26 04:47:42 +00:00
|
|
|
if (space_index == 0)
|
2015-04-15 02:06:57 +00:00
|
|
|
return base;
|
2018-06-24 16:16:17 +00:00
|
|
|
double chained_space_address = base+/*skip length*/1+/*skip alloc id of chaining slot*/1;
|
|
|
|
double chained_space_base = get_or_insert(Memory, chained_space_address) + /*skip alloc id of chained space*/1;
|
|
|
|
return space_base(x, space_index-1, chained_space_base);
|
2015-03-29 03:57:21 +00:00
|
|
|
}
|
|
|
|
|
2016-03-14 03:26:47 +00:00
|
|
|
int space_index(const reagent& x) {
|
2016-10-20 05:10:35 +00:00
|
|
|
for (int i = 0; i < SIZE(x.properties); ++i) {
|
2015-05-07 22:06:53 +00:00
|
|
|
if (x.properties.at(i).first == "space") {
|
2015-10-27 03:00:38 +00:00
|
|
|
if (!x.properties.at(i).second || x.properties.at(i).second->right)
|
2016-05-21 05:09:06 +00:00
|
|
|
raise << maybe(current_recipe_name()) << "/space metadata should take exactly one value in '" << x.original_string << "'\n" << end();
|
2015-10-27 03:00:38 +00:00
|
|
|
return to_integer(x.properties.at(i).second->value);
|
2015-05-07 22:06:53 +00:00
|
|
|
}
|
2015-03-29 03:57:21 +00:00
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
2015-05-23 19:30:58 +00:00
|
|
|
|
|
|
|
:(scenario permit_space_as_variable_name)
|
2016-03-08 09:30:14 +00:00
|
|
|
def main [
|
2016-09-17 07:43:13 +00:00
|
|
|
space:num <- copy 0
|
2015-05-23 19:30:58 +00:00
|
|
|
]
|