Dans quelle langue est écrit le programme suivant?

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++, le générateur de demande de C++.

Answer 2

GEN ++ un générateur d'analyse pour C++

Answer 3

On dirait une spécification du langage Gênes.

(Ne me demandez pas pour plus de détails, tout ce que je ne me googler « ROOTPROC HAS-TYPE EST-EQUAL ».)