Skip to main content

Конференции

Просмотр конференции fido7.su.os2.faq:

Предыдущее Следующее

Дата: 08 Jul 2019, 07:35:05
От: FAQServer @ 2:5020/181.0
Кому: All
Тема: PRG27 - Как вызывать pекс-фyнкции из своей пpогpаммы?


[Q]: Как вызывать pекс-фyнкции из своей пpогpаммы?

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

Это - кyсок кода, наспех выдpаный из U1 - вpяд ли скомпилится y вас, но как 
пpимеp - сойдет, надеюсь.

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



bool
CallRexx( const char *prog, string &out, const char *a1, const char *a2 )
    {
    RXSTRING arg[2];                    // argument string for REXX  
    RXSTRING rexxretval;                // return value from REXX    

    APIRET   rc;                        // return code from REXX     
    SHORT    rexxrc = 0;                // return code from function 

    if( prog == NULL || strlen(prog) == 0 )
return Err;

    /* By setting the strlength of the output RXSTRING to zero, we   */
    /* force the interpreter to allocate memory and return it to us. */
    /* We could provide a buffer for the interpreter to use instead. */
    rexxretval.strlength = 0L;          /* initialize return to empty*/

    if( a1 == NULL ) a1 = "";
    MAKERXSTRING(arg[0], a1, strlen(a1)); /* create input argument     */

    if( a2 == NULL ) a2 = "";
    MAKERXSTRING(arg[1], a2, strlen(a2)); /* create input argument     */

    /* Here we call the interpreter.  We don't really need to use    */
    /* all the casts in this call; they just help illustrate         */
    /* the data types used.                                          */

    rc=RexxStart((LONG)      2,             /* number of arguments   */
                (PRXSTRING)  &arg,          /* array of arguments    */
                (PSZ)        prog,          /* name of REXX file     */
                (PRXSTRING)  0,             /* No INSTORE used       */
                (PSZ)        "U1",         /* Command env. name     */
                (LONG)       RXSUBROUTINE,  /* Code for how invoked  */
                (PRXSYSEXIT) 0,             /* No EXITs on this call */
                (PSHORT)     &rexxrc,       /* Rexx program output   */
                (PRXSTRING)  &rexxretval ); /* Rexx program output   */


debug( "CallRexx() = '%s',int=%d, rexx=%d",rexxretval.strptr, rc, (int)rexxrc);

//    printf("Interpreter Return Code: %d\n", rc);
//    printf("Function Return Code:    %d\n", (int) rexxrc);
//    printf("Args:         '%s', '%s'\n", arg[0].strptr, arg[1].strptr );
//    printf("Ret :         '%s'\n", rexxretval.strptr);

    if( rexxretval.strptr != NULL )
        out = rexxretval.strptr;

    DosFreeMem(rexxretval.strptr);          /* Release storage       */
                                            /* given to us by REXX.  */

    if( rexxrc != 0 )
{
        error( EI_None, "CallRexx( '%s', out, '%s', '%s' ) returned %d",
prog, a1, a2, (int) rexxrc );
return Err;
}

    return rc == 0 ? Ok : Err;
    }
 

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

Предыдущее Следующее

К списку сообщений
К списку конференций