User defined split function in rpart

In the function rpart, users can define their own split function by
creating functions init, eval, and split.
For method='anova', I have examples of these functions.
I would like to create these functions for the case method='class'.
Does anyone know how the init, eval, and split functions would be
written?

Thank you.

Bill