OS/2 FAQ

Живой пример из U1. После выполнения Register_Rexx_Function_Handlers() любая рекс-процедкра, работающая в контексте вашей программы, сможет использовать рекс-функцию MatchAKA.

/************************ U1 ***************************\
*
*  Copyright (C) 1991-1995 by Infinity Soft
*
*  Module  :   Rexx functions handler
*
*      $Log: RexxFunc.c $
* Revision 1.1  1995/05/08  16:04:26  dz
* Initial revision
*
*
**/

#define INCL_RXFUNC
#define INCL_RXSUBCOM
#define INCL_RXSHV
#define INCL_REXXSAA
#include <rexxsaa.h>                   /* needed for RexxStart()     */
#include <stdio.h>                     /* needed for printf()        */
#include <string.h>                    /* needed for strlen()        */
#include <strng.h>                    /* needed for strlen()        */







LONG   EXPENTRY MatchAKA(
PSZ        name,                     /* function name              */
LONG       argc,                     /* count of arguments         */
PRXSTRING  argv,                     /* argument RXSTRINGs         */
PSZ        queue,                    /* current Rexx queue         */
PRXSTRING  retstr );                 /* returned string value      */


extern "SYSTEM" void
DeRegister_Rexx_Function_Handlers( void )
{
RexxDeregisterFunction("MatchAKA");
}


bool
Register_Rexx_Function_Handlers( void )
{

atexit( DeRegister_Rexx_Function_Handlers );

RexxRegisterFunctionExe("MatchAKA", (PFN)MatchAKA );

return Ok;
}



/*********************************************************************/
/*                                                                   */
/* MatchAKA - External Rexx function                                 */
/*                                                                   */
/*********************************************************************/


LONG   EXPENTRY MatchAKA(
PSZ        name,                     /* function name              */
LONG       argc,                     /* count of arguments         */
PRXSTRING  argv,                     /* argument RXSTRINGs         */
PSZ        queue,                    /* current Rexx queue         */
PRXSTRING  retstr )                  /* returned string value      */
{

fido_addr       a;
ftn_def         def;

const char *in = RXSTRPTR(argv[0]);
a.aparse( in );

ftn::match( def, a ); // Это моя C++-ная функция, которая, собственно,
// матчит акашки. То есть выполняет саму работу.

const char *res = ((string)def.fido_a).c_str();

strcpy(RXSTRPTR(*retstr), res);  // copy over current precision

retstr->strlength = strlen(res); // set new length
return 0;                              // completed successfully
}