about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-11-12 01:05:38 -0800
committerKartik K. Agaram <vc@akkartik.com>2016-11-12 01:05:38 -0800
commit17401c3854057e28cc9f48d10fa1a7700c336bb5 (patch)
treead1a10706a7f5bc2e14420105b383b81a893f0ab
parent5f1e13b5305b797f08ee1831547a18da6d62a7a0 (diff)
downloadmu-17401c3854057e28cc9f48d10fa1a7700c336bb5.tar.gz
3671 - support text in '$print'
-rw-r--r--029tools.cc1
-rw-r--r--038new_text.cc5
2 files changed, 6 insertions, 0 deletions
diff --git a/029tools.cc b/029tools.cc
index 935dd4ed..79f6ba84 100644
--- a/029tools.cc
+++ b/029tools.cc
@@ -248,6 +248,7 @@ case _PRINT: {
         cout << '\n';
       }
     }
+    // End $print Special-cases
     else {
       for (int j = 0;  j < SIZE(ingredients.at(i));  ++j) {
         trace(9998, "run") << "$print: " << ingredients.at(i).at(j) << end();
diff --git a/038new_text.cc b/038new_text.cc
index c8a02881..2bda16cf 100644
--- a/038new_text.cc
+++ b/038new_text.cc
@@ -77,6 +77,11 @@ if (is_mu_text(r)) {
   return read_mu_text(data.at(0));
 }
 
+:(before "End $print Special-cases")
+else if (is_mu_text(current_instruction().ingredients.at(i))) {
+  cout << read_mu_text(ingredients.at(i).at(0));
+}
+
 :(scenario unicode_string)
 def main [
   1:text <- new [♠]