Veronica Loell's "Mimers brunn" http://mimersbrunn.sourceforge.net project includes a message extractor for use with msgcat. It also knows how to translate to the po-format of GNU gettext.
A reworked version of the extractor parser is released and now recognize msgcat::mc and mc besides ::msgcat::mc also enhanced the recognition of message strings to include atoms and {}-lists. It's at version 1.1.0a2.
An short example'
The tcl-source:
.lblfileName configure -text\ [::msgcat::mc "Make sure that the folder you want to repair\n\ is not currently in use, and then select it by clicking 'Select folder'."];#! This is a message to the translator
Will produce the following entry:
#. widget: label - This is a message to the translator #: src/uidrebuild.tcl:33 ::msgcat::mcset sv\ "Make sure that the folder you want to repair\n\ is not currently in use, and then select it by clicking 'Select folder'."\ \
Converted to po-format:
#. widget: label - This is a message to the translator #: src/uidrebuild.tcl:33 msgid "" "Make sure that the folder you want to repair\n" "is not currently in use, and then select it by clicking 'Select folder'." msgstr ""
Translate...
And back to msgcat again:
#. widget: label - This is a message to the translator #: src/uidrebuild.tcl:33 ::msgcat::mcset sv\ "Make sure that the folder you want to repair\n\ is not currently in use, and then select it by clicking 'Select folder'."\ \ "Se till att foldern du vill reparera\n\ inte är öppen, och välj den sedan genom\n\ att klicka på 'Välj folder'"\
LV I've tried to restore this, given my limited tools. I hope everything is back to normal.
EMJ 2006-07-02 Re-edited to restore some Swedish characters.