下列程序使用哪種語言編寫？

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