FCO/test-p6x.p6

## test-p6x.p6
#use Grammar::Tracer;
BEGIN $*LANG.refine_slang: 'MAIN',
	role P6X {
#grammar XML {
		token p6x-word {
			\w+
		}
		token p6x-attr {
			<p6x-word> '=' [
				| '"' ~ '"' $<p6x-value>=.*?
				| "'" ~ "'" $<p6x-value>=.*?
				| $<p6x-value>=<.p6x-word>
			]
		}
		token p6x-inner-tag {
			$<p6x-name>=<.p6x-word>
			<p6x-attr>* %% <.ws>
		}
		token p6x-closing-tag($name) {
			'</' ~ '>' $name
		}
		token p6x-opening-tag {
			'<' ~ '>' <p6x-inner-tag>
		}
		token p6x-unique-tag {
			'<' ~ '/>' <p6x-inner-tag>
		}
		token p6x-open-close-tag {
			:my $name;
			[<p6x-opening-tag> {$name = $<p6x-opening-tag><p6x-inner-tag><p6x-name>}] ~ <p6x-closing-tag($name)>
			$<p6x-inner> = [
				|| <p6x-xml>+ $<p6x-post-data>=.*?
				|| $<p6x-pre-data>=.+? <p6x-xml>+ $<p6x-post-data>=.*?
				|| .*?
			]
		}
		token p6x-tag {
			|| <p6x-open-close-tag>
			|| <p6x-unique-tag>
		}
		token p6x-xml {
			<p6x-tag>
		}
        token statement_control:sym<p6x> {
            <p6x-xml>
        }
		#token TOP { <p6x-xml> }

	#say XML.parse: "<head>bla<br /><form>bla: <input /></form></head>"

		},
    	role P6XActions {
    	    method statement_control:sym<p6x> (Mu $/) {
				say $/;
    	        nextsame
    	    }
    	}


<head>
	<body>
		bla<br />
		<form>
			bla: <input />
		</form>
	</body>
</head>
	#use Grammar::Tracer;
	BEGIN $*LANG.refine_slang: 'MAIN',
	role P6X {
	#grammar XML {
	token p6x-word {
	\w+
	}
	token p6x-attr {
	<p6x-word> '=' [
	\| '"' ~ '"' $<p6x-value>=.*?
	\| "'" ~ "'" $<p6x-value>=.*?
	\| $<p6x-value>=<.p6x-word>
	]
	}
	token p6x-inner-tag {
	$<p6x-name>=<.p6x-word>
	<p6x-attr>* %% <.ws>
	}
	token p6x-closing-tag($name) {
	'</' ~ '>' $name
	}
	token p6x-opening-tag {
	'<' ~ '>' <p6x-inner-tag>
	}
	token p6x-unique-tag {
	'<' ~ '/>' <p6x-inner-tag>
	}
	token p6x-open-close-tag {
	:my $name;
	[<p6x-opening-tag> {$name = $<p6x-opening-tag><p6x-inner-tag><p6x-name>}] ~ <p6x-closing-tag($name)>
	$<p6x-inner> = [
	\|\| <p6x-xml>+ $<p6x-post-data>=.*?
	\|\| $<p6x-pre-data>=.+? <p6x-xml>+ $<p6x-post-data>=.*?
	\|\| .*?
	]
	}
	token p6x-tag {
	\|\| <p6x-open-close-tag>
	\|\| <p6x-unique-tag>
	}
	token p6x-xml {
	<p6x-tag>
	}
	token statement_control:sym<p6x> {
	<p6x-xml>
	}
	#token TOP { <p6x-xml> }

	#say XML.parse: "<head>bla<br /><form>bla: <input /></form></head>"

	},
	role P6XActions {
	method statement_control:sym<p6x> (Mu $/) {
	say $/;
	nextsame
	}
	}


	<head>
	<body>
	bla<br />
	<form>
	bla: <input />
	</form>
	</body>
	</head>