Fixed some diagnostics warnings

Moved examples to tofix because fixing them is besides the point right
now.

06/deps/parser-gen/parsers/tiny-parser.lua

@@ -0,0 +1,55 @@
+package.path = package.path .. ";../?.lua"
+local pg = require "parser-gen"
+local peg = require "peg-parser"
+local errs = {errMissingThen = "Missing Then"}
+pg.setlabels(errs)
+
+
+local grammar = pg.compile([[
+
+  program <- stmtsequence !. 
+  stmtsequence <- statement (';' statement)* 
+  statement <- ifstmt / repeatstmt / assignstmt / readstmt / writestmt
+  ifstmt <- 'if' exp 'then'^errMissingThen stmtsequence elsestmt? 'end' 
+  elsestmt <- ('else' stmtsequence)
+  repeatstmt <-  'repeat' stmtsequence 'until' exp 
+  assignstmt <- IDENTIFIER ':=' exp 
+  readstmt <-  'read'  IDENTIFIER 
+  writestmt <-  'write' exp 
+  exp <-  simpleexp (COMPARISONOP simpleexp)*
+  COMPARISONOP <- '<' / '='
+  simpleexp <-  term (ADDOP term)* 
+  ADDOP <- [+-]
+  term <-  factor (MULOP factor)*
+  MULOP <- [*/]
+  factor <- '(' exp ')' / NUMBER / IDENTIFIER
+
+  NUMBER <- '-'? [0-9]+
+  KEYWORDS <- 'if' / 'repeat' / 'read' / 'write' / 'then' / 'else' / 'end' / 'until' 
+  RESERVED <- KEYWORDS ![a-zA-Z]
+  IDENTIFIER <- !RESERVED [a-zA-Z]+
+  HELPER <- ';' / %nl / %s / KEYWORDS / !.
+  SYNC <- (!HELPER .)*
+
+]], _, true)
+local errors = 0
+local function printerror(desc,line,col,sfail,trec)
+	errors = errors+1
+	print("Error #"..errors..": "..desc.." on line "..line.."(col "..col..")")
+end
+
+
+local function parse(input)
+	errors = 0
+	result, errors = pg.parse(input,grammar,printerror)
+	return result, errors
+end
+
+if arg[1] then	
+	-- argument must be in quotes if it contains spaces
+	res, errs = parse(arg[1])
+	peg.print_t(res)
+	peg.print_r(errs)
+end
+local ret = {parse=parse}
+return ret