以下程序是用哪种语言编写的？

Question

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 }

Answer 1

Gen++，C ++的应用程序生成器。

Answer 2

GEN ++用于C ++的分析器生成器

Answer 3

看起来像热那亚语言规范。

（不要问我详细情况，我所做的只是谷歌搜索“HAS-TYPE ROOTPROC IS-EQUAL”。）