[Q]: Как пристегивать свои функции к рекс-интерпретатору

[A]: Dmitry Zavalishin (2:5020/32)

Живой пример из 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
}