about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-04-17 23:24:52 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-04-17 23:24:52 -0700
commit7284d503f67572dab678f68e5635c471a9d53480 (patch)
tree292b611d694da66c1a881ed11662cf9b0ee64610
parentb3cdcdd44f6b8db053e4814351fbf04fefb7d7cf (diff)
downloadmu-7284d503f67572dab678f68e5635c471a9d53480.tar.gz
1094 - demarcate sections in layers
We have tangled vs regular comments, but they highlight the same. So
we're still at 3 colors for comments. Anything more starts to seem
gratuitous.
-rw-r--r--cpp/010vm2
-rw-r--r--cpp/014types4
-rw-r--r--cpp/020run5
-rw-r--r--cpp/030container4
-rw-r--r--cpp/031address2
-rw-r--r--cpp/032array5
-rw-r--r--cpp/034exclusive_container2
-rw-r--r--cpp/035call6
-rw-r--r--cpp/041name4
-rw-r--r--cpp/042new9
-rw-r--r--cpp/043space6
-rw-r--r--cpp/vimrc.vim24
12 files changed, 46 insertions, 27 deletions
diff --git a/cpp/010vm b/cpp/010vm
index de50bde0..a900a56e 100644
--- a/cpp/010vm
+++ b/cpp/010vm
@@ -161,7 +161,7 @@ Next_recipe_number = 1000;  // consistent new numbers for each test
 
 
 
-//: Helpers
+//:: Helpers
 
 :(code)
 instruction::instruction() :is_label(false), operation(IDLE) {}
diff --git a/cpp/014types b/cpp/014types
index 226be5ee..f12aa6f8 100644
--- a/cpp/014types
+++ b/cpp/014types
@@ -51,7 +51,7 @@ void insert_container(const string& command, kind_of_type kind, istream& in) {
   t.size = t.elements.size();
 }
 
-//: Similarly for exclusive_container.
+//:: Similarly for exclusive_container.
 
 :(scenario "exclusive_container")
 exclusive-container foo [
@@ -69,7 +69,7 @@ else if (command == "exclusive-container") {
   insert_container(command, exclusive_container, in);
 }
 
-//: ensure types created in one scenario don't leak outside it.
+//:: ensure types created in one scenario don't leak outside it.
 :(before "End Globals")
 vector<type_number> recently_added_types;
 :(before "End Setup")
diff --git a/cpp/020run b/cpp/020run
index 400524e2..02a949f0 100644
--- a/cpp/020run
+++ b/cpp/020run
@@ -122,7 +122,7 @@ void load(string filename) {
   fin.close();
 }
 
-//: On startup, load everything in core.mu
+//:: On startup, load everything in core.mu
 :(before "End Load Recipes")
 load("core.mu");
 // freeze everything so it doesn't get cleared by tests
@@ -137,7 +137,8 @@ void run(string form) {
   run(tmp.front());
 }
 
-:(code)
+//:: Reading from memory, writing to memory.
+
 vector<int> read_memory(reagent x) {
 //?   cout << "read_memory: " << x.to_string() << '\n'; //? 1
   vector<int> result;
diff --git a/cpp/030container b/cpp/030container
index fa936d25..b84314b6 100644
--- a/cpp/030container
+++ b/cpp/030container
@@ -59,7 +59,7 @@ if (t.kind == container) {
   return result;
 }
 
-//: To access elements of a container, use 'get'
+//:: To access elements of a container, use 'get'
 :(scenario "get")
 recipe main [
   12:integer <- copy 34:literal
@@ -128,7 +128,7 @@ recipe main [
 +run: product 0 is 36
 +mem: storing 36 in location 15
 
-//: To write to elements of containers, you need their address.
+//:: To write to elements of containers, you need their address.
 
 :(scenario "get_address")
 recipe main [
diff --git a/cpp/031address b/cpp/031address
index e3f31869..e31ae67d 100644
--- a/cpp/031address
+++ b/cpp/031address
@@ -75,7 +75,7 @@ reagent deref(reagent x) {
   return result;
 }
 
-//: 'get' can read from container address
+//:: 'get' can read from container address
 :(scenario "get_indirect")
 recipe main [
   1:integer <- copy 2:literal
diff --git a/cpp/032array b/cpp/032array
index 284ca592..3aa531d0 100644
--- a/cpp/032array
+++ b/cpp/032array
@@ -56,7 +56,8 @@ if (x.types[0] != Type_number["array"] && size_of(x) != data.size())
     return 1 + Memory[r.value]*size_of(array_element(r.types));
   }
 
-//: To access elements of an array, use 'index'
+//:: To access elements of an array, use 'index'
+
 :(scenario "index")
 recipe main [
   1:integer <- copy 3:literal
@@ -139,7 +140,7 @@ recipe main [
 +run: address to copy is 2
 +mem: storing 2 in location 5
 
-//: To write to elements of containers, you need their address.
+//:: To write to elements of containers, you need their address.
 
 :(scenario "index_indirect")
 recipe main [
diff --git a/cpp/034exclusive_container b/cpp/034exclusive_container
index 8f9fe842..b7d08c12 100644
--- a/cpp/034exclusive_container
+++ b/cpp/034exclusive_container
@@ -54,7 +54,7 @@ if (t.kind == exclusive_container) {
   return result+1;
 }
 
-//: To access variants of an exclusive container, use 'maybe-convert'.
+//:: To access variants of an exclusive container, use 'maybe-convert'.
 //: It always returns an address (so that you can modify it) or null (to
 //: signal that the conversion failed (because the container contains a
 //: different variant).
diff --git a/cpp/035call b/cpp/035call
index 21d07b18..efb4a2a7 100644
--- a/cpp/035call
+++ b/cpp/035call
@@ -31,7 +31,9 @@ struct routine {
   routine::routine(recipe_number r) {
     calls.push(call(r));
   }
-//: now update routine's helpers
+
+//:: now update routine's helpers
+
 :(replace{} "inline size_t& running_at(routine& rr)")
 inline size_t& running_at(routine& rr) {
   return rr.calls.top().pc;
@@ -56,7 +58,7 @@ default: {
   continue;  // not done with caller; don't increment pc
 }
 
-//: finally, we need to fix the termination conditions for the run loop
+//:: finally, we need to fix the termination conditions for the run loop
 
 :(replace{} "inline bool done(routine& rr)")
 inline bool done(routine& rr) {
diff --git a/cpp/041name b/cpp/041name
index c514ed3d..64a416af 100644
--- a/cpp/041name
+++ b/cpp/041name
@@ -134,7 +134,7 @@ recipe main [
 ]
 -name: assign x 1
 
-//: Support element names for containers in 'get' and 'get-address'.
+//:: Support element names for containers in 'get' and 'get-address'.
 
 //: update our running example container for the next test
 :(before "End Mu Types Initialization")
@@ -173,7 +173,7 @@ recipe main [
 +name: assign a 1
 +name: assign b 3
 
-//: Support variant names for exclusive containers in 'maybe-convert'.
+//:: Support variant names for exclusive containers in 'maybe-convert'.
 
 :(scenarios run)
 :(scenario "maybe_convert_named")
diff --git a/cpp/042new b/cpp/042new
index 0d7742f8..7244cca2 100644
--- a/cpp/042new
+++ b/cpp/042new
@@ -19,7 +19,8 @@ size_t alloc;
     calls.push(call(r));
   }
 
-//: First handle 'type' operands
+//:: First handle 'type' operands.
+
 :(before "End Mu Types Initialization")
 Type_number["type"] = 0;
 :(after "Per-recipe Transforms")
@@ -35,7 +36,8 @@ if (inst.operation == Recipe_number["new"]) {
   trace("new") << inst.ingredients[0].name << " -> " << inst.ingredients[0].value;
 }
 
-//: Now implement the primitive recipe.
+//:: Now implement the primitive recipe.
+
 :(before "End Primitive Recipe Declarations")
 NEW,
 :(before "End Primitive Recipe Numbers")
@@ -74,7 +76,8 @@ recipe main [
 +run: instruction main/2
 +mem: storing 5 in location 3
 
-//: Next, extend 'new' to handle a string literal argument.
+//:: Next, extend 'new' to handle a string literal argument.
+
 :(scenario "new_string")
 recipe main [
   1:address:array:character <- new [abc def]
diff --git a/cpp/043space b/cpp/043space
index b2b29cf3..c285f65f 100644
--- a/cpp/043space
+++ b/cpp/043space
@@ -52,6 +52,8 @@ reagent absolutize(reagent x) {
 :(before "return result" following "reagent deref(reagent x)")
 result.properties.push_back(pair<string, vector<string> >("raw", vector<string>()));
 
+//:: fix 'get'
+
 :(scenario "deref_sidesteps_default_space_in_get")
 recipe main [
   # pretend pointer to container from outside
@@ -69,6 +71,8 @@ recipe main [
 :(after "reagent tmp" following "case GET:")
 tmp.properties.push_back(pair<string, vector<string> >("raw", vector<string>()));
 
+//:: fix 'index'
+
 :(scenario "deref_sidesteps_default_space_in_index")
 recipe main [
   # pretend pointer to array from outside
@@ -87,6 +91,8 @@ recipe main [
 :(after "reagent tmp" following "case INDEX:")
 tmp.properties.push_back(pair<string, vector<string> >("raw", vector<string>()));
 
+//:: helpers
+
 :(code)
 int space_base(const reagent& x) {
   return Current_routine->calls.top().default_space;
diff --git a/cpp/vimrc.vim b/cpp/vimrc.vim
index 4f89542e..627bfc8a 100644
--- a/cpp/vimrc.vim
+++ b/cpp/vimrc.vim
@@ -1,23 +1,29 @@
 " Highlighting literate directives in C++ sources.
 function! HighlightTangledFile()
-  set ft=cpp
+  if &ft == ""
+    set ft=cpp
+  endif
   set comments-=://
   set comments-=n://
   set comments+=n://:,n://
+
+  set isk+=-
+
   syntax region tangleDirective start=+:(+ skip=+".*"+ end=+)+
   highlight link tangleDirective Delimiter
   syntax region traceContains start="^+" end="$"
   highlight traceContains ctermfg=darkgreen
   syntax region traceAbsent start="^-" end="$"
   highlight traceAbsent ctermfg=darkred
+  " Our C++ files can have mu code in scenarios, so highlight mu comments like
+  " regular comments.
+  syntax match muComment /#.*$/ | highlight link muComment Comment
+  syntax match muSalientComment /##.*$/ | highlight link muSalientComment SalientComment
+  " Tangled comments only make sense in the sources and are stripped out of
+  " the generated .cc file. They're highlighted same as regular comments.
+  syntax match tangledComment /\/\/:.*/ | highlight link tangledComment Comment
+  syntax match tangledSalientComment /\/\/::.*/ | highlight link tangledSalientComment SalientComment
 endfunction
 call HighlightTangledFile()
+autocmd BufRead,BufNewFile *.mu set ft=mu
 autocmd BufRead,BufNewFile 0* call HighlightTangledFile()
-
-set isk+=-
-
-" scenarios inside c++ files
-syntax match muComment /#.*$/ | highlight link muComment Comment
-syntax keyword muControl reply jump jump-if jump-unless loop loop-if loop-unless break-if break-unless | highlight link muControl Identifier
-syntax match muAssign "<-" | highlight link muAssign SpecialChar
-syntax match muAssign "\<raw\>"