diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-04-17 09:56:04 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-04-17 09:56:04 -0700 |
commit | 9da1b126cc017e14035b94c4615d211e5bc4bb21 (patch) | |
tree | a69baf5f6b75be08e68003a725d33cd478659b56 /cpp/036length | |
parent | c8087de8d99a4c3c4264eb89e4d0b35a4fb2c816 (diff) | |
download | mu-9da1b126cc017e14035b94c4615d211e5bc4bb21.tar.gz |
1072
Diffstat (limited to 'cpp/036length')
-rw-r--r-- | cpp/036length | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/cpp/036length b/cpp/036length new file mode 100644 index 00000000..b9e3bc3c --- /dev/null +++ b/cpp/036length @@ -0,0 +1,30 @@ +:(scenario "array_length") +recipe main [ + 1:integer <- copy 3:literal + 2:integer <- copy 14:literal + 3:integer <- copy 15:literal + 4:integer <- copy 16:literal + 5:integer <- length 1:array:integer +] ++run: instruction main/4 ++mem: storing 3 in location 5 + +:(before "End Globals") +const int LENGTH = 31; +:(before "End Primitive Recipe Numbers") +Recipe_number["length"] = LENGTH; +assert(Next_recipe_number == LENGTH); +Next_recipe_number++; +:(before "End Primitive Recipe Implementations") +case LENGTH: { + reagent x = canonize(instructions[pc].ingredients[0]); + if (x.types[0] != Type_number["array"]) { + raise << "tried to calculate length of non-array " << x.to_string() << '\n'; + break; + } + vector<int> result; +//? cout << "length: " << x.value << '\n'; //? 1 + result.push_back(Memory[x.value]); + write_memory(instructions[pc].products[0], result); + break; +} |