From 672e3e50c6ed6de161e40aa256c3fc0f2b1f7cf9 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 6 May 2015 00:19:03 -0700 Subject: 1279 - colorized rendering of the source files --- html/075scenario_keyboard.cc.html | 89 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 89 insertions(+) create mode 100644 html/075scenario_keyboard.cc.html (limited to 'html/075scenario_keyboard.cc.html') diff --git a/html/075scenario_keyboard.cc.html b/html/075scenario_keyboard.cc.html new file mode 100644 index 00000000..a83e3dd4 --- /dev/null +++ b/html/075scenario_keyboard.cc.html @@ -0,0 +1,89 @@ + + + + +~/Desktop/s/mu/075scenario_keyboard.cc.html + + + + + + + + + + +
+//: Clean syntax to manipulate and check the keyboard in scenarios.
+//: Instruction 'assume-keyboard' implicitly creates a variable called
+//: 'keyboard' that is accessible inside other 'run' instructions in the
+//: scenario.
+
+:(scenarios run_mu_scenario)
+:(scenario keyboard_in_scenario)
+scenario keyboard-in-scenario [
+  assume-keyboard [abc]
+  run [
+    1:character, 2:boolean, keyboard:address <- read-key keyboard:address
+    3:character, 4:boolean, keyboard:address <- read-key keyboard:address
+    5:character, 6:boolean, keyboard:address <- read-key keyboard:address
+    7:character, 8:boolean, keyboard:address <- read-key keyboard:address
+  ]
+  memory-should-contain [
+    1 <- 97  # 'a'
+    2 <- 1  # first read-key call found a character
+    3 <- 98  # 'b'
+    4 <- 1  # second read-key call found a character
+    5 <- 99  # 'c'
+    6 <- 1  # third read-key call found a character
+    7 <- 0
+    8 <- 0  # fourth read-key call didn't find a character
+  ]
+]
+
+:(before "End Scenario Globals")
+const size_t KEYBOARD = Next_predefined_global_for_scenarios++;
+:(before "End Predefined Scenario Locals In Run")
+Name[tmp_recipe[0]]["keyboard"] = KEYBOARD;
+
+:(before "End Rewrite Instruction(curr)")
+// rewrite `assume-keyboard string` to
+//   ```
+//   keyboard:address <- new string  # hacky reuse of location
+//   keyboard:address <- init-fake-keyboard keyboard:address
+//   ```
+if (curr.name == "assume-keyboard") {
+  // insert first instruction
+  curr.operation = Recipe_number["new"];
+  assert(curr.products.empty());
+  curr.products.push_back(reagent("keyboard:address"));
+  curr.products[0].set_value(KEYBOARD);
+  result.steps.push_back(curr);  // hacky that "Rewrite Instruction" is converting to multiple instructions
+  // leave second instruction in curr
+  curr.clear();
+  curr.operation = Recipe_number["init-fake-keyboard"];
+  assert(curr.ingredients.empty());
+  curr.ingredients.push_back(reagent("keyboard:address"));
+  curr.ingredients[0].set_value(KEYBOARD);
+  assert(curr.products.empty());
+  curr.products.push_back(reagent("keyboard:address"));
+  curr.products[0].set_value(KEYBOARD);
+}
+
+ + + -- cgit 1.4.1-2-gfad0