prop-match.ccl

match_rules(
	apply(
		match(
			optional(equal(base[0], "nie")),
			repeat(
				inter(class[0], {adj, ppas, pact})
			)
		),
		cond(
			agr(first(:2), last(M), {nmb,gnd,cas})
		),
		actions(
			mark(M, "AdjP")
		)
	);
 
	apply(
		match(
			optional(is("AdjP")),
			inter(class[0], {subst, ger, depr})
		),
		cond(
			or(
				empty(:1),
				agrpp(last(:1), first(:2), {nmb,gnd,cas})
			)
		),
		actions(
			setprop(M, "qtype1", "valueO")
		)
	);
	apply(
		match(
			optional(is("AdjP")),
			inter(class[0], {subst, ger, depr})
		),
		cond(
			equal(orth[1], "trudno")
		),
		actions(
			setprop(M, "qtype2", "valueX")
		)
	)
)