Function to total reset a schema - Mailing list pgsql-sql

Hi all,
I need to write a function that totally empty a schema.

So I have written a TRUNCATE statement for each table and set to 0 each 
sequence.
Btw, it could be good to execute a vacuum statement on each table, but 
from within the function this is not allowed.

Is there a way to obtain the same result in another way (without using 
the vacuum)?

Thanks