Uniform code indentation

Author: TobiasWrigstad

xml/chapter5/section4/subsection1.xml

@@ -51,30 +51,30 @@
     </SCHEME>
     <JAVASCRIPT>
       <!--  \indcode*{eval-dispatch} -->
-     "eval_dispatch",
-         test(op("is_self_evaluating"), reg("exp")), 
-         branch(label("ev_self_eval")),
-         test(op("is_name"), reg("exp")),
-         branch(label("ev_name")),
-
-         test(op("is_variable_declaration"), reg("exp")),
-         branch(label("ev_variable_declaration")),
-         test(op("is_constant_declaration"), reg("exp")),
-         branch(label("ev_constant_declaration")),
-         test(op("is_assignment"), reg("exp")),
-         branch(label("ev_assignment")),
-
-         test(op("is_conditional_expression"), reg("exp")),
-         branch(label("ev_if")),
-         test(op("is_function_definition"), reg("exp")),
-         branch(label("ev_lambda")),
-         test(op("is_sequence"), reg("exp")),
-         branch(label("ev_seq")),
-         test(op("is_block"), reg("exp")),
-         branch(label("ev_block")),
-         test(op("is_application"), reg("exp")),
-         branch(label("ev_application")),
-         go_to(label("unknown_expression_type")),
+"eval_dispatch",
+    test(op("is_self_evaluating"), reg("exp")), 
+    branch(label("ev_self_eval")),
+    test(op("is_name"), reg("exp")),
+    branch(label("ev_name")),
+    
+    test(op("is_variable_declaration"), reg("exp")),
+    branch(label("ev_variable_declaration")),
+    test(op("is_constant_declaration"), reg("exp")),
+    branch(label("ev_constant_declaration")),
+    test(op("is_assignment"), reg("exp")),
+    branch(label("ev_assignment")),
+    
+    test(op("is_conditional_expression"), reg("exp")),
+    branch(label("ev_if")),
+    test(op("is_function_definition"), reg("exp")),
+    branch(label("ev_lambda")),
+    test(op("is_sequence"), reg("exp")),
+    branch(label("ev_seq")),
+    test(op("is_block"), reg("exp")),
+    branch(label("ev_block")),
+    test(op("is_application"), reg("exp")),
+    branch(label("ev_application")),
+    go_to(label("unknown_expression_type")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -215,14 +215,14 @@
       (goto (label eval-dispatch))
     </SCHEME>
     <JAVASCRIPT>
-      "ev_application",
-          save("continue"),
-          save("env"),
-          assign("unev", list(op("operands"), reg("exp"))),
-          save("unev"),
-          assign("exp", list(op("operator"), reg("exp"))),
-          assign("continue", label("ev_appl_did_operator")),
-          go_to(label("eval_dispatch")),
+"ev_application",
+    save("continue"),
+    save("env"),
+    assign("unev", list(op("operands"), reg("exp"))),
+    save("unev"),
+    assign("exp", list(op("operator"), reg("exp"))),
+    assign("continue", label("ev_appl_did_operator")),
+    go_to(label("eval_dispatch")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -294,14 +294,14 @@ function is_last_operand(ops) {
       (save proc)
     </SCHEME>
     <JAVASCRIPT>
-      "ev_appl_did_operator",
-          restore("unev"), // the operands
-          restore("env"),
-          assign("argl", list(op("empty_arglist"))),
-          assign("fun", list(reg("val"))), // the operator
-          test(op("has_no_operands"), reg("unev")),
-          branch(label("apply_dispatch")),
-          save("fun"),
+"ev_appl_did_operator",
+    restore("unev"), // the operands
+    restore("env"),
+    assign("argl", list(op("empty_arglist"))),
+    assign("fun", list(reg("val"))), // the operator
+    test(op("has_no_operands"), reg("unev")),
+    branch(label("apply_dispatch")),
+    save("fun"),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -330,15 +330,15 @@ function is_last_operand(ops) {
       (goto (label eval-dispatch))
     </SCHEME>
     <JAVASCRIPT>
-       "ev_appl_operand_loop",
-            save("argl"),
-            assign("exp", list(op("first_operand"), reg("unev"))),
-            test(op("is_last_operand"), reg("unev")),
-            branch(label("ev_appl_last_arg")),
-            save("env"),
-            save("unev"),
-            assign("continue", label("ev_appl_accumulate_arg")),
-            go_to(label("eval_dispatch")),
+"ev_appl_operand_loop",
+    save("argl"),
+    assign("exp", list(op("first_operand"), reg("unev"))),
+    test(op("is_last_operand"), reg("unev")),
+    branch(label("ev_appl_last_arg")),
+    save("env"),
+    save("unev"),
+    assign("continue", label("ev_appl_accumulate_arg")),
+    go_to(label("eval_dispatch")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -359,13 +359,13 @@ function is_last_operand(ops) {
       (goto (label ev-appl-operand-loop))
     </SCHEME>
     <JAVASCRIPT>
-      "ev_appl_accumulate_arg",
-          restore("unev"),
-          restore("env"),
-          restore("argl"),
-          assign("argl", list(op("adjoin_arg"), reg("val"), reg("argl"))),
-          assign("unev", list(op("rest_operands"), reg("unev"))),
-          go_to(label("ev_appl_operand_loop")),
+"ev_appl_accumulate_arg",
+    restore("unev"),
+    restore("env"),
+    restore("argl"),
+    assign("argl", list(op("adjoin_arg"), reg("val"), reg("argl"))),
+    assign("unev", list(op("rest_operands"), reg("unev"))),
+    go_to(label("ev_appl_operand_loop")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -407,15 +407,15 @@ function is_last_operand(ops) {
       (goto (label apply-dispatch))
     </SCHEME>
     <JAVASCRIPT>
-    "ev_appl_last_arg",
-        assign("continue", label("ev_appl_accum_last_arg")),
-        go_to(label("eval_dispatch")),
+"ev_appl_last_arg",
+    assign("continue", label("ev_appl_accum_last_arg")),
+    go_to(label("eval_dispatch")),
 
-    "ev_appl_accum_last_arg",
-        restore("argl"),
-        assign("argl", list(op("adjoin_arg"), reg("val"), reg("argl"))),
-        restore("fun"),
-        go_to(label("apply_dispatch")),
+"ev_appl_accum_last_arg",
+    restore("argl"),
+    assign("argl", list(op("adjoin_arg"), reg("val"), reg("argl"))),
+    restore("fun"),
+    go_to(label("apply_dispatch")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -477,12 +477,12 @@ function is_last_operand(ops) {
       (goto (label unknown-procedure-type))
     </SCHEME>
     <JAVASCRIPT>
-    "apply_dispatch",
-        test(op("is_primitive_function"), reg("fun")),
-        branch(label("primitive_apply")),
-        test(op("is_compound_function"), reg("fun")),
-        branch(label("compound_apply")),
-        go_to(label("unknown_procedure_type")),
+"apply_dispatch",
+    test(op("is_primitive_function"), reg("fun")),
+    branch(label("primitive_apply")),
+    test(op("is_compound_function"), reg("fun")),
+    branch(label("compound_apply")),
+    go_to(label("unknown_procedure_type")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -533,13 +533,13 @@ function is_last_operand(ops) {
       (goto (reg continue))
     </SCHEME>
     <JAVASCRIPT>
-      "primitive_apply",
-      assign(
-          "val",
-          list(op("apply_primitive_function"), reg("fun"), reg("argl"))
-      ),
-      restore("continue"),
-      go_to(reg("continue")),
+"primitive_apply",
+    assign(
+    "val",
+    list(op("apply_primitive_function"), reg("fun"), reg("argl"))
+    ),
+    restore("continue"),
+    go_to(reg("continue")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -571,26 +571,26 @@ function is_last_operand(ops) {
       (goto (label ev-sequence))
     </SCHEME>
     <JAVASCRIPT>
-      "compound_apply",
-          assign("unev", list(op("function_parameters"), reg("fun"))), // params
-          // FIXME: A QUICK HACK HERE, UNSURE WHY IT'S NEEDED
-          assign("unev", list(op("all_names_of_names"), reg("unev"))), // params destructured
-          
-          assign("temp", list(op("function_body"), reg("fun"))), // body
-          assign("temp", list(op("local_names"), reg("unev"))), // locals
-          
-          assign("unev", list(op("insert_all"), reg("unev"), reg("temp"))), //names
-          assign("temp", list(op("get_temp_block_values"), reg("temp"))), // temp_values
-          
-          assign("temp", list(op("append"), reg("argl"), reg("temp"))), // values
-          assign("env", list(op("function_environment"), reg("fun"))),
-          
-          assign(
-          "env",
-          list(op("extend_environment"), reg("unev"), reg("temp"), reg("env"))
-          ),
-          assign("unev", list(op("function_body"), reg("fun"))),
-          go_to(label("ev_sequence")),
+"compound_apply",
+    assign("unev", list(op("function_parameters"), reg("fun"))), // params
+    // FIXME: A QUICK HACK HERE, UNSURE WHY IT'S NEEDED
+    assign("unev", list(op("all_names_of_names"), reg("unev"))), // params destructured
+    
+    assign("temp", list(op("function_body"), reg("fun"))), // body
+    assign("temp", list(op("local_names"), reg("unev"))), // locals
+    
+    assign("unev", list(op("insert_all"), reg("unev"), reg("temp"))), //names
+    assign("temp", list(op("get_temp_block_values"), reg("temp"))), // temp_values
+    
+    assign("temp", list(op("append"), reg("argl"), reg("temp"))), // values
+    assign("env", list(op("function_environment"), reg("fun"))),
+    
+    assign(
+    "env",
+    list(op("extend_environment"), reg("unev"), reg("temp"), reg("env"))
+    ),
+    assign("unev", list(op("function_body"), reg("fun"))),
+    go_to(label("ev_sequence")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>

xml/chapter5/section4/subsection2.xml

@@ -86,28 +86,28 @@
       (goto (label eval-dispatch))
     </SCHEME>
     <JAVASCRIPT>
-    "ev_seq", //FIXME: not part of original book -- explain why needed
-        save("continue"),
-        assign("unev", list(op("sequence_statements"), reg("exp"))),
-        
-    "ev_sequence",
-        assign("exp", list(op("first_statement"), reg("unev"))),
-        test(op("is_last_statement"), reg("unev")),
-        branch(label("ev_sequence_last_exp")),
-        save("unev"),
-        save("env"),
-        assign("continue", label("ev_sequence_continue")),
-        go_to(label("eval_dispatch")),
-        
-    "ev_sequence_continue",
-        restore("env"),
-        restore("unev"),
-        assign("unev", list(op("rest_statements"), reg("unev"))),
-        go_to(label("ev_sequence")),
-        
-    "ev_sequence_last_exp",
-        restore("continue"),
-        go_to(label("eval_dispatch")),
+"ev_seq", //FIXME: not part of original book -- explain why needed
+    save("continue"),
+    assign("unev", list(op("sequence_statements"), reg("exp"))),
+    
+"ev_sequence",
+    assign("exp", list(op("first_statement"), reg("unev"))),
+    test(op("is_last_statement"), reg("unev")),
+    branch(label("ev_sequence_last_exp")),
+    save("unev"),
+    save("env"),
+    assign("continue", label("ev_sequence_continue")),
+    go_to(label("eval_dispatch")),
+    
+"ev_sequence_continue",
+    restore("env"),
+    restore("unev"),
+    assign("unev", list(op("rest_statements"), reg("unev"))),
+    go_to(label("ev_sequence")),
+    
+"ev_sequence_last_exp",
+    restore("continue"),
+    go_to(label("eval_dispatch")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>
@@ -132,11 +132,11 @@
             x)))
     </SCHEME>
     <JAVASCRIPT>
-      function sqrt_iter(guess, x) {
-          return is_good_enough(guess, x)
-              ? guess
-              : sqrt_iter(improve(guess, x), x);
-      }
+function sqrt_iter(guess, x) {
+    return is_good_enough(guess, x)
+        ? guess
+        : sqrt_iter(improve(guess, x), x);
+}
     </JAVASCRIPT>
   </SNIPPET>
   is an iterative process.  Even though the
@@ -234,23 +234,23 @@ function has_no_more_exps(seq) {
       (goto (reg continue))
     </SCHEME>
     <JAVASCRIPT>
-      <!--  \indcode*{ev-sequence}[without tail recursion] -->
-      "ev_sequence",
-          test(op("has_no_more_exps"), reg("unev")),
-          branch(label("ev_sequence_end")),
-          assign(exp(op("first_exp"), reg("unev")),
-          save("unev"),
-          save("env"),
-          assign(continue(label("ev_sequence_continue"))),
-          go_to(label("eval_dispatch")),
-      "ev_sequence_continue",
-          restore("env"),
-          restore("unev"),
-          assign("unev", op("rest_exps"), reg("unev")),
-          go_to(label("ev_sequence")),
-      "ev_sequence_end",
-          restore("continue"),
-          go_to(reg("continue")),
+<!--  \indcode*{ev-sequence}[without tail recursion] -->
+"ev_sequence",
+     test(op("has_no_more_exps"), reg("unev")),
+     branch(label("ev_sequence_end")),
+     assign(exp(op("first_exp"), reg("unev")),
+     save("unev"),
+     save("env"),
+     assign(continue(label("ev_sequence_continue"))),
+     go_to(label("eval_dispatch")),
+"ev_sequence_continue",
+     restore("env"),
+     restore("unev"),
+     assign("unev", op("rest_exps"), reg("unev")),
+     go_to(label("ev_sequence")),
+"ev_sequence_end",
+     restore("continue"),
+     go_to(reg("continue")),
     </JAVASCRIPT>
   </SNIPPET>
       </TEXT>