Add debug-ability to yacc code

Author: ncw

parser/lexer.go

@@ -650,6 +650,11 @@ func (x *yyLex) Error(s string) {
 	log.Printf("State %#v", x)
 }
 
+// Set the debug level 0 = off, 4 = max
+func SetDebug(level int) {
+	yyDebug = level
+}
+
 // Parse a file
 func Parse(in io.Reader) {
 	yyParse(NewLex(in))

parser/testparser/testparser.go

@@ -10,11 +10,13 @@ import (
 )
 
 var (
-	lex = flag.Bool("l", false, "Lex the file only")
+	lex        = flag.Bool("l", false, "Lex the file only")
+	debugLevel = flag.Int("d", 0, "Debug level 0-4")
 )
 
 func main() {
 	flag.Parse()
+	parser.SetDebug(*debugLevel)
 	for _, path := range flag.Args() {
 		if *lex {
 			fmt.Printf("Lexing %q\n", path)