[Q]: ��� �p��⥣����� ᢮� �y��樨 � p���-���p�p���py

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

����� �p���p �� U1. ��᫥ �믮������ Register_Rexx_Function_Handlers()
�� p���-�p�楤�p�, p������� � ���⥪�� ��襩 �p��p����, ᬮ��� �ᯮ�짮���� p���-�y���� 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++-��� �y����, ���p��, ᮡ�⢥���,
// ����� ���誨. �� ���� �믮���� ᠬy p����y.

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
}

--- INN 2.7.2
* Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)

[Q]: ��� �p��⥣����� ᢮� �y��樨 � p���-���p�p���py

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

����� �p���p �� U1. ��᫥ �믮������ Register_Rexx_Function_Handlers()
�� p���-�p�楤�p�, p������� � ���⥪�� ��襩 �p��p����, ᬮ��� �ᯮ�짮���� p���-�y���� 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++-��� �y����, ���p��, ᮡ�⢥���,
// ����� ���誨. �� ���� �믮���� ᠬy p����y.

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
}

--- INN 2.7.3 (20241006 prerelease)
* Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)