fisher.test and table probability

[Jason Connor <jconnor@bio.ri.ccf.org>]

I'm writing some code to compare a few tests and would like to include the
Mid-p scenario for Fisher's exact test.

S-PLUS only outputs the Fisher's p-value.  Is there code that produces or
does someone know how to find the table probability in addition to the
p-value?


Thanks.
Jason