TCL and UG/OPEN API

How to run Ufun in  TCL, for example , from post_processor, usiing MOM_run_user_function....
  
  I have tried, it works, but I don;t know how to pass the variables from  TCl to Ufun or from Ufun to TCl?
  
any information are welcome.
  
Thanks!

This function causes MOM to call the function named entry_point_name in the shared library named shared_library_name. That function can then extend the translator from which MOM_run_user_function was called. It will do this by calling a User Function function named UF_MOM_extend_translator( param, ''extension_name'', extension_entry_point ). The param will be passed into entry_point_name as the first argument. The signature of entry_point_name is the same as ufusr. The extension_name is the name of the function as it will appear in a TCL script. The extension_entry_point is the actual address of the function to be called by the interpreter when interpreting the extension_name call. (See Tcl_CmdProc.)  Example: MOM_run_user_function /usr/local/shlib/lib.sl extendInterp

学习中！！