interfdde.C File Reference

#include "interfdde.h"
#include "win_mem_alloc.h"

Include dependency graph for interfdde.C:

Go to the source code of this file.

Defines
#define	MSG_ERROR14   "parameter(s) type incorrect.\r\n"
#define	MSG_ERROR15   "2 parameters required.\r\n"
Functions
int InterfaceWindowsDDEopen	_PARAMS ((char *fname))

---

Define Documentation

#define MSG_ERROR14   "parameter(s) type incorrect.\r\n"

Definition at line 6 of file interfdde.C.

#define MSG_ERROR15   "2 parameters required.\r\n"

Definition at line 7 of file interfdde.C.

---

Function Documentation

int InterfaceWindowsDDEopen _PARAMS

(

(char *fname)

)

Definition at line 9 of file interfdde.C.

References CheckLhs, CheckRhs, CreateVarFromPtr, cstk, DDEOpenConnection(), FALSE, FREE, GetRhsVar, GetType, LhsVar, m1, MALLOC, Max, MSG_ERROR14, MSG_ERROR15, n1, NULL, Rhs, sci_strings, and TRUE.

{
        static int l1,n1,m1;
        Rhs=Max(0,Rhs);
        CheckRhs(2,2);
        CheckLhs(0,1);

        if (Rhs == 2)
        {
                int TypeVar1=GetType(1);
                int TypeVar2=GetType(2);

                if ( (TypeVar1 == sci_strings) && (TypeVar2 == sci_strings) )
                {
                        char *param1=NULL,*param2=NULL;
                        
                        GetRhsVar(1,"c",&m1,&n1,&l1);
                    param1=cstk(l1);

                        GetRhsVar(2,"c",&m1,&n1,&l1);
                    param2=cstk(l1);

                        if ( DDEOpenConnection(param1,param2) )
                        {
                                int *paramoutINT=(int*)MALLOC(sizeof(int));
                                *paramoutINT=(int)(TRUE);
                                n1=1;
                                CreateVarFromPtr(1, "i", &n1, &n1, &paramoutINT);
                                LhsVar(1)=1;
                                FREE(paramoutINT);
                        }
                        else
                        {
                                int *paramoutINT=(int*)MALLOC(sizeof(int));
                                *paramoutINT=(int)(FALSE);
                                n1=1;
                                CreateVarFromPtr(1, "i", &n1, &n1, &paramoutINT);
                                LhsVar(1)=1;
                                FREE(paramoutINT);
                        }
                }
                else 
                {
                        Scierror(999,MSG_ERROR14);
                }
        }
        else
        {
                Scierror(999,MSG_ERROR15);
        }
        return 0;
}

Here is the call graph for this function:

---