下列程序使用哪种语言编写？

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-平等”。）