scheme function returning #beats and beat duration

[Gianmaria Lari]

Is there any scheme function returning the number of beats and the duration of each beat of the mesure where the function is invoked?

For instance, I would like this code..

\version "2.19.81"

{

 \time 3/4  

 \writeBeats \writeBeatDuration 

 a4 b a %just some music

 

 \time 4/4

 \writeBeats \writeBeatDuration

 a4 b a b  

 

 \time 2/8

 \writeBeats \writeBeatDuration

 a8 b  

}

... output:

3 4

4 4

2 8.

Thank you, g.