Which language is the following program written in

问题:

ROOTPROC VarUse
PROC VarUse
ROOT Cfile;
1 {
2 [
3 (?NameRef
4 (IF (AND (HAS-TYPE $parent Assignment) (IS-EQUAL $slot ``lhs''))
5 (THEN (PRINT stdout "Variable %s defined at %s" $token $location))
6 (ELSE (PRINT stdout "Name %s accessed at %s" $token $location))))]
7 }

回答1:

Gen++, application generator for C++.

回答2:

GEN++ an analyzer generator for C++

回答3:

Looks like a Genoa language specification.

(Don't ask me for details, all I did was googling "HAS-TYPE ROOTPROC IS-EQUAL".)