Perl 6 SQL grammar for mysqldump files

SQL.pm6

grammar SQL {
	token TOP {
		^ <statement>? <comment>? $
	}

	rule statement {
		[
		| <insert-statement>
		| <drop-statement>
		| <create-statement>
		| <lock-statement>
		| <unlock-statement>
		] \;
	}

	rule drop-statement {
		DROP TABLE [IF EXISTS]? <table>
	}

	rule create-statement {
		CREATE TABLE <table> <-[;]>+
	}

	rule lock-statement {
		LOCK TABLES <table> WRITE
	}

	rule unlock-statement {
		UNLOCK TABLES
	}

	rule insert-statement {
		INSERT INTO <table> VALUES [\( <value>+ % ',' \)]+ % ','
	}

	rule value {
		| \-?\d+[\.\d+]?
		| NULL
		| <simple-string>
		| <string-with-escapes>
	}

	rule simple-string {
		\'<-[\']>*\'
	}

	rule string-with-escapes {
		\'[\\\\|\\\'|<-[\']>]*\'
	}

	rule table {
		| <identifier>
		| \`<identifier>\`
	}

	rule identifier {
		\w+
	}

	rule comment {
		| <block-comment>
		| <line-comment>
	}

	rule block-comment {
		'/*' .+ '*/;'
	}

	rule line-comment {
		'--' .* $
	}
}