From 608d5c9aa148801081d7dca80b6f3bfb5b285f08 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 3 Jul 2015 18:07:38 -0700 Subject: 1698 --- 037call_variable.cc | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 037call_variable.cc (limited to '037call_variable.cc') diff --git a/037call_variable.cc b/037call_variable.cc new file mode 100644 index 00000000..9514ed95 --- /dev/null +++ b/037call_variable.cc @@ -0,0 +1,44 @@ +//: push a variable recipe on the call stack + +:(scenario call_literal_recipe) +recipe main [ + 1:number <- call f:recipe, 34:literal +] +recipe f [ + 2:number <- next-ingredient + reply 2:number +] ++mem: storing 34 in location 1 + +:(scenario call_variable) +recipe main [ + 1:number/recipe <- copy 1001:literal/f # hack: assumes tests start recipes at 1000 + 2:number <- call 1:number/recipe, 34:literal +] +recipe f [ # recipe 1001 + 3:number <- next-ingredient + reply 3:number +] ++mem: storing 34 in location 2 +#? ? + +:(before "End Primitive Recipe Declarations") +CALL, +:(before "End Primitive Recipe Numbers") +Recipe_number["call"] = CALL; +:(before "End Primitive Recipe Implementations") +case CALL: { + recipe_number r = 0; + if (current_instruction().ingredients.at(0).initialized) { + assert(scalar(ingredients.at(0))); + // 'call' received an integer recipe_number + r = ingredients.at(0).at(0); + } + else { + // 'call' received a literal recipe name + r = Recipe_number[current_instruction().ingredients.at(0).name]; + } + Current_routine->calls.push_front(call(r)); + ingredients.erase(ingredients.begin()); // drop the callee + goto complete_call; +} -- cgit 1.4.1-2-gfad0
path: root/README.md
blob: f6ab19264be4fbef8ff6c1dbb07194bbfc1324e4 (plain) (tree) 
501c95d ^






9b2612e ^


501c95d ^






84e9853 ^







501c95d ^




c05e5f7 ^

b18e339 ^


1
2
3
4
5
6

7
8

9
10
11
12
13
14

15
16
17
18
19
20
21

22
23
24
25

26

27
28