извлечете дефиниция на клас от файл с помощта на dcg в prolog

Може ли някой да ми помогне да генерирам прологова граматика на проста дефиниция на клас. Това е примерно dcg правило, което съм написал.

   :- use_module(library(pio)).
   %classrule(Z) -->class,letter(X),letters(L),{name(Z,[X|L])}.
   classrule(Z) -->"class ",classname(X),"{",{name(Z,X)}.
   classname([X|L])-->letter(X),letters(L).
   letters([X|L])-->letter(X),!,letters(L).
   class-->"class".
   letters([])-->[].
   letter(X)-->[X], {alpha(X)}.
   alpha(X) :- X > 64, X < 91.
   alpha(X) :- X > 96, X < 123.

вход:

class component {
        attributes
          Real V, I, R;
        constraints
          V = I * R;
        constructors component(V1, I1, R1) {
          V = V1; I = I1; R = R1;
        }
}