Fixed weakness in parser causing modifier characters not to work in front of 'if' statements. Fixes #197

src/parser.y

@@ -233,6 +233,22 @@ ifelse_statement:
 	} ;
 
 module_instantiation:
+	'!' module_instantiation {
+		$$ = $2;
+		if ($$) $$->tag_root = true;
+	} |
+	'#' module_instantiation {
+		$$ = $2;
+		if ($$) $$->tag_highlight = true;
+	} |
+	'%' module_instantiation {
+		$$ = $2;
+		if ($$) $$->tag_background = true;
+	} |
+	'*' module_instantiation {
+		delete $2;
+		$$ = NULL;
+	} |
 	single_module_instantiation ';' {
 		$$ = $1;
 	} |
@@ -271,26 +287,7 @@ single_module_instantiation:
 		$$->argexpr = $3->argexpr;
 		free($1);
 		delete $3;
-	} |
-	'!' single_module_instantiation {
-		$$ = $2;
-		if ($$)
-			$$->tag_root = true;
-	} |
-	'#' single_module_instantiation {
-		$$ = $2;
-		if ($$)
-			$$->tag_highlight = true;
-	} |
-	'%' single_module_instantiation {
-		$$ = $2;
-		if ($$)
-			$$->tag_background = true;
-	} |
-	'*' single_module_instantiation {
-		delete $2;
-		$$ = NULL;
-	};
+	}
 
 expr:
 	TOK_TRUE {

testdata/scad/features/background-modifier.scad

@@ -2,3 +2,4 @@ difference() {
   sphere(r=10);
   %cylinder(h=30, r=6, center=true);
 }
+%if (true) cube([25,6,3], center=true);

testdata/scad/features/disable-modifier.scad

@@ -2,3 +2,4 @@ difference() {
   *sphere(r=10);
   cylinder(h=30, r=6, center=true);
 }
+*if (true) cube([25,6,3], center=true);

testdata/scad/features/highlight-and-background-modifier.scad

@@ -1,8 +1,10 @@
 difference() {
   sphere(r=10);
   %#cylinder(h=30, r=6, center=true);
+  %#if (true) cube([6,25,3], center=true);
 }
 translate([13,0,0]) difference() {
   sphere(r=10);
   #%cylinder(h=30, r=6, center=true);
+  #%if (true) cube([6,25,3], center=true);
 }

testdata/scad/features/highlight-modifier.scad

@@ -2,3 +2,4 @@ difference() {
   sphere(r=10);
   #cylinder(h=30, r=6, center=true);
 }
+#if (true) cube([25,6,3], center=true);

testdata/scad/features/hull3-tests.scad

@@ -19,10 +19,10 @@ translate([25,0,0]) hull() {
 // Don't Crash (issue 188)
 
 translate([-5,-5,-5]) {
-	hull() {
-		intersection(){
-		cube([1,1,1]);
-	  translate([-1,-1,-1]) cube([1,1,1]);
-	}
+  hull() {
+    intersection() {
+      cube([1,1,1]);
+      translate([-1,-1,-1]) cube([1,1,1]);
+    }
+  }
 }
-

tests/regression/dumptest/background-modifier-expected.txt

@@ -2,4 +2,7 @@
 		sphere($fn = 0, $fa = 12, $fs = 2, r = 10);
 		%cylinder($fn = 0, $fa = 12, $fs = 2, h = 30, r1 = 6, r2 = 6, center = true);
 	}
+	%group() {
+		cube(size = [25, 6, 3], center = true);
+	}
 

tests/regression/dumptest/highlight-and-background-modifier-expected.txt

@@ -1,11 +1,17 @@
 	difference() {
 		sphere($fn = 0, $fa = 12, $fs = 2, r = 10);
 		%cylinder($fn = 0, $fa = 12, $fs = 2, h = 30, r1 = 6, r2 = 6, center = true);
+		%group() {
+			cube(size = [6, 25, 3], center = true);
+		}
 	}
 	multmatrix([[1, 0, 0, 13], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]]) {
 		difference() {
 			sphere($fn = 0, $fa = 12, $fs = 2, r = 10);
 			%cylinder($fn = 0, $fa = 12, $fs = 2, h = 30, r1 = 6, r2 = 6, center = true);
+			%group() {
+				cube(size = [6, 25, 3], center = true);
+			}
 		}
 	}
 

tests/regression/dumptest/highlight-modifier-expected.txt

@@ -2,4 +2,7 @@
 		sphere($fn = 0, $fa = 12, $fs = 2, r = 10);
 		cylinder($fn = 0, $fa = 12, $fs = 2, h = 30, r1 = 6, r2 = 6, center = true);
 	}
+	group() {
+		cube(size = [25, 6, 3], center = true);
+	}
 

tests/regression/dumptest/hull3-tests-expected.txt

@@ -17,4 +17,14 @@
 			}
 		}
 	}
+	multmatrix([[1, 0, 0, -5], [0, 1, 0, -5], [0, 0, 1, -5], [0, 0, 0, 1]]) {
+		hull() {
+			intersection() {
+				cube(size = [1, 1, 1], center = false);
+				multmatrix([[1, 0, 0, -1], [0, 1, 0, -1], [0, 0, 1, -1], [0, 0, 0, 1]]) {
+					cube(size = [1, 1, 1], center = false);
+				}
+			}
+		}
+	}
 

tests/regression/dumptest/root-modifier-if-expected.txt

@@ -0,0 +1,7 @@
+	group() {
+		sphere($fn = 0, $fa = 12, $fs = 2, r = 5);
+	}
+	group() {
+		cube(size = [5, 5, 5], center = false);
+	}
+